目的
BLOCK DATA ステートメントはブロック・データ・プログラム 単位の最初のステートメントであり、名前付き共通ブロック 内の変数に初期値を与えます。
構文
>>-BLOCK DATA--+-----------------+----------------------------->< '-block_data_name-' |
規則
1 つの実行可能プログラム内に複数のブロック・データ・プログラム単位を 入れることができますが、名前を指定しなくてよいのはその中の 1 つだけです。
ブロック・データ・プログラム単位の名前を指定する場合、その名前は、実行可能プログラム内の外部サブプログラム、入り口、メインプログラム、モジュール、または共通ブロックの名前と同じであってはなりません。 また、当該プログラム単位内のローカル・エンティティーの名前と同じであってもなりません。
例
BLOCK DATA ABC PARAMETER (I=10) DIMENSION Y(5) COMMON /L4/ Y DATA Y /5*I/ END BLOCK DATA ABC
関連情報