fortran 预编译及implicit 语法

1035326373 · 发表于 2015-4-21 22:30:50

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

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

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

fcode · 发表于 2015-4-21 22:40:54

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

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

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

[求助] fortran 预编译及implicit 语法

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章