Fortran CPP 类预处理器的替代方案

Question

我正在我的 Fortran 90 代码中寻找 #ifdef #else #enddef 的替代方法。 是否有另一种方法来控制调用模块时执行的 use 语句？我想摆脱复杂系统中的#include 文件。

例如，这就是我现在所拥有的。

#include "defs.h"
module X
#ifdef Sys
use ....
#else
use ....
#endif
implicit none

snip...
#ifdef Sys
some block of code...
#else
some block of code...
#endif
end module X

在 defs.h 中定义了 Sys。我想找到使用 defs.h 来控制代码的#ifdef.... 部分的替代方法。

感谢您对此的任何想法。

Answer 1

我将首先重复 cmets 中指出的内容：真正解决您的实际问题的正确方法是弄清楚为什么在使用 FCM 时编译器找不到您希望包含的文件。

为了解决您的具体问题，由于无法成功include 提供各种定义的给定文件，我们可以改为通过传递给编译器的参数来定义符号。

考虑以下，存储在test.fpp

#ifdef Sys
#warning "This messages tells you Sys is defined"
#else
#warning "This messages tells you Sys is NOT defined"
#endif

program test
  implicit none
  write(*,'("For clarity we will now print defined if Sys is defined or not defined if Sys is not defined")')
#ifdef Sys
  write(*,'("Defined")')
#else
  write(*,'("Not defined")')
#endif
end program test

我们可以使用gfortran -ffree-form test.fpp -o test 编译它。这将产生：

test.fpp:4:2: warning: #warning "This messages tells you Sys is NOT defined" [-Wcpp]
 #warning "This messages tells you Sys is NOT defined"
  ^

并且做./test 给出输出

For clarity we will now print defined if Sys is defined or not defined if Sys is not defined
Not defined

如果我们现在使用gfortran -ffree-form test.fpp -o test -DSys 编译，我们会看到消息

test.fpp:2:2: warning: #warning "This messages tells you Sys is defined" [-Wcpp]
 #warning "This messages tells you Sys is defined"
  ^

运行./test 给了我们

For clarity we will now print defined if Sys is defined or not defined if Sys is not defined
Defined