fortran 预编译及implicit 语法

fcode

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

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

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