| 查看: 251 | 回复: 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 ] |
回复此楼» 猜你喜欢
329求调剂
已经有8人回复
-
070305高分子化学与物理 304分求调剂
已经有8人回复
-
349求调剂
已经有5人回复
-
一志愿北京理工大学本科211材料工程294求调剂
已经有7人回复
-
291求调剂
已经有4人回复
-
0856材料化工调剂 总分330
已经有14人回复
-
352分-085602-一志愿985
已经有5人回复
-
各位老师好，我的一志愿为北京科技大学085601材料专硕
已经有8人回复
-
求调剂，一志愿 南京航空航天大学 ，080500材料科学与工程学硕，总分289分
已经有4人回复
-
279求调剂
已经有4人回复
3楼2009-03-20 12:06:21
sdxuhong
铜虫 (正式写手)
- 应助: 11 (小学生)
- 金币: 2592.8
- 散金: 10
- 红花: 1
- 帖子: 503
- 在线: 102.6小时
- 虫号: 535187
- 注册: 2008-03-28
- 性别: MM
- 专业: 催化化学
2楼2009-03-19 22:28:44
10