Question

块数据单元是一种为有名公用块中的变量定义初始值的一种程序单元，它只包含数据声明和初始值，不包含可执行语句。其一般形式为：

BLOCK DATA[块数据名]

[说明部分]

END [BLOCK DATA[块数据名]]

变量一般由 DATA 语句来初始化。公共块中命名的变量只能在块数据单元或某个过程中初始化一次，或只能由所有的过程完全一致地初始化。更好的编程法是用模块而不是块数据单元来声明和初始化变量。

在块数据单元的说明部分，不能包含 ALLOCATABLE，AUTOMATIC，EXTERNAL，INTENT，OPTIONAL，PRIVATE 或 PUBLIC 等属性说明符。

例：BLOCK DATA BLKDAT

INTEGER S,X

LOGICAL T,W

DOUBLE PRECISION U

DIMENSION R(3)

COMMON/AREA1/R,S,U,T/AREA2/W,X,Y

DATA R/1.0,2*2.0/,T/.FALSE./,U/0.214537D-7/,W/.TRUE./,Y/3.5/

END BLOCK DATA BLKDAT