| 查看: 317 | 回复: 2 | |||
| 当前主题已经存档。 | |||
[交流]
【求助】如何在windows intel visual fortran 中应用define进行预处理
|
|||
|
以下是linux下面fortran的一个头文件 #define GEN_ALLOCATE_(object, objsize) \ if (.not. allocated(object)) then;\ allocate(object objsize, stat=ioerr);\ if (ioerr /= 0) call allocateError(__FILE__, __LINE__, ioerr, 1);\ else;\ call allocateError(__FILE__, __LINE__, "Array already allocated", 1);\ endif #define GEN_DEALLOCATE_(object) \ if (allocated(object)) then;\ deallocate(object, stat=ioerr);\ if (ioerr /= 0) call allocateError(__FILE__,__LINE__,ioerr, 2);\ endif #define GEN_INIT_P(ptr) \ nullify(ptr) #define GEN_ALLOCATE_P(ptr) \ if (.not. associated(ptr)) then;\ allocate(ptr, stat=ioerr);\ if (ioerr /= 0) call allocateError(__FILE__, __LINE__, ioerr, 3);\ else;\ call allocateError(__FILE__, __LINE__, "Ptr. already associated!", 3);\ endif #define GEN_DEALLOCATE_P(ptr) \ if (associated(ptr)) then;\ deallocate(ptr, stat=ioerr);\ if (ioerr /= 0) call allocateError(__FILE__, __LINE__, ioerr, 4);\ GEN_INIT_P(ptr);\ endif #define GEN_INIT_PARR(ptr) \ nullify(ptr) 以上程序的作用是很明显的,想应用define 语句在程序编译前替换成相应的语句，在linux下面用 ifort编译能通过，这是一个头文件的一部分，但是到了windows下面我该怎么改才能实现这种功能呢，我怎么改也不行，看了help，里面只能用define 把一个变量定义一个值，我找不到实现的办法，期待高手解决，万分感谢！！ [ Last edited by ghfan on 2009-3-18 at 17:09 ] |
回复此楼» 猜你喜欢
40+中年人失业后，还能找到好工作吗？
已经有13人回复
-
用NBS溴化时溶剂除了CCl4外还有什么
已经有6人回复
-
申请科研项目纯靠实力能成功吗？
已经有11人回复
-
极限拉扯，如何抉择
已经有15人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有8人回复
sdxuhong
铜虫 (正式写手)
- 应助: 11 (小学生)
- 金币: 2592.8
- 散金: 10
- 红花: 1
- 帖子: 503
- 在线: 102.6小时
- 虫号: 535187
- 注册: 2008-03-28
- 性别: MM
- 专业: 催化化学
2楼2009-03-19 22:28:44
3楼2009-03-20 12:06:21
200