Fortran Coder

标题: fortran 预编译及implicit 语法 [打印本页]

作者: 1035326373 时间: 2015-4-21 22:30
标题: fortran 预编译及implicit 语法
在fortran77中看到这样一段代码，请问这是什么意思？

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

*if sw

      implicit real*8 (h)

*else

      implicit integer (h)

*endif

作者: fcode 时间: 2015-4-21 22:40
implicit real*8 (h)
这表示以 h 开头的变量都默认为 real*8 类型

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

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

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)