| 查看: 259 | 回复: 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 ] |
回复此楼» 猜你喜欢
博士申请
已经有6人回复
-
评审有感
已经有11人回复
-
面上本子正文33页，违规吗？会被低分嘛？
已经有10人回复
-
国自然上会要求
已经有9人回复
-
今年审到国自然15份，谈谈感受
已经有16人回复
-
上海大学实验技术岗位非升即走
已经有8人回复
-
考博自荐
已经有6人回复
-
青C资助名额大幅增加！
已经有16人回复
-
重磅！青年科学基金项目（C类）资助增幅预计超过50%
已经有10人回复
-
我在等一个没有答案的答案
已经有3人回复
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
