| 查看: 250 | 回复: 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 ] |
回复此楼» 猜你喜欢
一志愿华东师范大学有机化学专业，初试351分，复试被刷求调剂!
已经有4人回复
-
298求调剂
已经有4人回复
-
材料学硕333求调剂
已经有11人回复
-
0856求调剂
已经有7人回复
-
356求调剂
已经有3人回复
-
332求调剂
已经有7人回复
-
348求调剂
已经有4人回复
-
305求调剂
已经有8人回复
-
一志愿北京化工大学材料与化工（085600）296求调剂
已经有13人回复
-
调剂310
已经有9人回复
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
20