Fortran的全局变量（Common blocks）

---

前言

Fortran77没有全局变量这一说，也就是几个subroutines之间都用的变量。Fortran77都是使用subroutine parameter list 或者叫做common block，但是我们应该减少使用全局变量的定义。

一、例子。定义两个全局变量alpha, beta

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.
全局变量的名字可以不一样，但是他们必须得是同样的数据类型和大小，并且位置得是一样。最好名字也是一摸一样的，就是复制粘贴。

二、Arrays in common blocks公共区域内的数组

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。