fortran 预编译及implicit 语法

1035326373

在fortran77中看到这样一段代码，请问这是什么意思？

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

*if sw
      implicit real*8 (h)
*else
      implicit integer (h)
*endif

fcode

implicit real*8 (h)
这表示以 h 开头的变量都默认为 real*8 类型

implicit integer (h)
这表示以 h 开头的变量都默认是整型。

*if sw
*else
*end if
这可能是早期编译器扩展的“预处理”语句，应该表示，如果定义了 sw 预处理常量，则编译第一句，否则编译第二句。
（这是非标准的语法）