IVF如何编译通过预处理宏

fcode

define 和 undefine 也不一样，分别是

[Fortran] 纯文本查看 复制代码

!DEC$ DEFINE COUPLING 
!DEC$ UNDEFINE COUPLING 

zhu_youren

vvt 发表于 2015-3-16 11:29
Fortran 语法里没有关于预处理宏的指令，所以都是各家编译器扩展的。

ivf 这样用：

灰常感谢vvt！！！

vvt

Fortran 语法里没有关于预处理宏的指令，所以都是各家编译器扩展的。

ivf 这样用：

[Fortran] 纯文本查看 复制代码

!DEC$ IF DEFINED ( COUPLING )
             if (modele2d==1) then
!DEC$ endif
                 call is_in_cell(x,y,kvol,in_cell)
!DEC$ IF DEFINED ( COUPLING )
             else
                 call is_in_cell_1d(x,y,kvol,in_cell)
             endif
!DEC$ endif