山东建筑大学
a=1 b=2
call ShowCommon() stop end
subroutine ShowCommon() implicit none
integer :: num1, num2
common num1, num2 ! 定义a,b是全局变量中的第1及第2
个变量
write(*,*) num1, num2 return end
程序执行结果：
1 2 注释：
（1） 取用全局变量，是根据他们声明时的相对位置关系，而不是变量名
称对应。
（2） 由于全局变量是使用地址对应的方法在程序中共享数据，在子程序
中若仅使用部分全局变量，也必须声明全部全局变量。这在全局变量很多的情况下是非常麻烦的，解决的方法是，把变量归类放在彼此独立的COMMON中。 （3） 全局变量不能用DATA赋值；
6.3.2 BLOCK DATA命令
全局变量不能直接在子程序或主程序中使用DATA来设值初值。全局变量的赋值采用BLOCK DATA语句。其结构为
BLOCK DATA NAME ! NAME可以省略 IMPLICIT NONE INTEGER …
49
数值分析程序设计——Fortran基础
REAL … COMMON …
COMMON /GROUP1/… DATA VAR1,VAR2, … …. ....
END BLOCK DATA NAME 看一个实例：
program ex0812 implicit none integer :: a,b
common a,b ! a,b放在不具名的全局变量空间中 integer :: c,d
common /group1/ c,d ! c,d放在group1的全局变量空间中 integer :: e,f
common /group2/ e,f ! e,f放在group2的全局变量空间中 write(*,\ stop end block data implicit none integer a,b
common a,b ! a,b放在不具名的全局变量空间中 data a,b /1,2/ ! 设定a,b的初值 integer c,d
common /group1/ c,d ! c,d放在group1的全局变量空间中 data c,d /3,4/ ! 设定c,d的初值 integer e,f
common /group2/ e,f ! e,f放在group2的全局变量空间中 data e,f /5,6/ ! 设定e,f的初值
50
