common

楚香饭

早期用于定义全局变量。

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

Program Main
  real :: a = 1.0 , b = 2.0 , c = 3.0
  common a , b , c
  call sub()
End Program Main

Subroutine sub()
  real :: a , b , c
  common a , c , b !// 此处按顺序对应
  write( * , * ) a , b , c !// 输出 1.0 ， 3.0 ， 2.0
End Subroutine sub

注意它是按顺序对应，而不是按变量名对应。所以极易出错，不推荐使用。