Fortran77没有全局变量这一说,也就是几个subroutines之间都用的变量。Fortran77都是使用subroutine parameter list 或者叫做common block,但是我们应该减少使用全局变量的定义。
c2345678
program main
some declarations
real alpha, beta
common /coeff/ alpha, beta
statements
stop
end
subroutine sub1 (some arguments)
declarations of arguments
real alpha, beta
common /coeff/ alpha, beta
statements
return
end
subroutine sub2 (some arguments)
declarations of arguments
real alpha, beta
common /coeff/ alpha, beta
statements
return
end
这里我们定义一个公共区域coeff(coeff是这个公共区域的名字). 上述程序在common blocks中定义了两个变量一个叫做alpha,另一个叫beta。common block中可以定义很多的全局变量。这些变量在common block定义时,不必所有的变量类型都一样。每一个想要使用全局变量的subroutine都得在subroutine的local variables定义的位置重新定义所有的全局变量。
common /name/ list_of_variables
这个common应该与变量声明语句一起出现,在可执行语句之前。
不同的common blocks应该有不同的名字,就像是变量一样。
一个公共变量只能隶属于一个common block.
全局变量的名字可以不一样,但是他们必须得是同样的数据类型和大小,并且位置得是一样。最好名字也是一摸一样的,就是复制粘贴。
common blocks内可以包括数组,如下面所示。
program main
integer nmax
parameter (nmax=20)
integer n
real A(nmax, nmax)
common /matrix/ A, n
但是并不推荐,因为如果你想要在一些subroutines中使用这个矩阵A,那么你就需要包含下列所有的声明。
subroutine sub1(...)
integer nmax
parameter (nmax=20)
integer n
real A(nmax, nmax)
common /matrix/ A, n
所以最好的是将数组作为subroutine的参数输进去,同时有这个数组的行数,lda,leading dimension。