24小时热门版块排行榜

返回列表

当前主题已经存档。

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

ghfan

新虫 (小有名气)

应助: 1 (幼儿园)
金币: 10.1
帖子: 72
在线: 84.3小时
虫号: 465081
注册: 2007-11-22
性别: GG
专业: 理论和计算化学

[交流] 【求助】如何在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 ]

回复此楼