common

我是刚子仔

请问大神，在fortran中的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

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

我是刚子仔

chuxf 发表于 2014-4-29 13:47
早期用于定义全局变量。

[mw_shl_code=fortran,true]Program Main

好的，谢谢！