２　　　ＦＯＲＴＲＡＮ

　　　　２．１　　ＦＯＲＴＲＡＮ文法

　　　　　２．１．１　ＦＯＲＴＲＡＮプログラミング　22

　　　　　２．１．２　定数24

　　　　　２．１．３　変数、添字24

　　　　　２．１．４　式25

　　　　　２．１．５　代入文25

　　　　　２．１．６　制御文26

　　　　　２．１．７　関数とサブルーチン27

　　　　　２．１．８　入出力文とＦＯＲＭＡＴ文31

　　　　　２．１．９　宣言文とＤＡＴＡ文32

２　　　ＦＯＲＴＲＡＮ

　ＦＯＲＴＲＡＮ（FORmula　TRANslation）は科学技術計算を目的として作成

されたプログラミング言語で、１９５６年ＩＢＭ社で開発され、現在では世界中

で最も広く使用されている言語といえます。日本では１９６７年５月１日付で

ＪＩＳ　ＦＯＲＴＲＡＮ３０００（ミニコン用）、同５０００（中型機用）、

同７０００（大型機用）を制定しています。その後改善してＪＩＳ　ＦＯＲＴＲ

ＡＮ−１９８２（基本水準および上位水準）ができました。

　プログラミング言語には他に、ＦＯＲＴＲＡＮと同じく計算を目的としたＡＬ

ＧＯＬ（ALGOrithmic Language）やデータ処理を目的としたＣＯＢＯＬ（COmmon

Business Oriented Language）、これら両方の機能を備えたＰＬ／�TやＣ言語な

どがあります。

　コンピュータを利用して計算を行なうとき、ユーザーである我々は当然これら

の言語を少なくとも一つ学ばなければなりませんが、コンピュータはこれらの言

語で書かれたプログラムを直接理解する訳ではありません。ユーザーは、まずソ

ースプログラム（source　program）をテキストファイル（text file）として作

成し、これをコンパイラ（compiler）と呼ばれる翻訳プログラムを介して機械語

（machine language）のプログラム（オブジェクト・プログラム、object progr

am）に書き直します。さらにこのオブジェクト・プログラムにリンカ（linker）

を介して、 必要なリロケータブル・オブジェクト・ファイル（relocatable）を

結合して実行可能なプログラム・ファイルを作成します。これを実行させること

で初めてユーザーの目的が達成されることになります。

　ＦＯＲＴＲＡＮにおいてもソースプログラムの入力、コンパイル及びリンク操

作による実行形式プログラムの作成、実行、実行結果の出力という一連の手続き

が必要となり、これらの手続きはＯＳを介してユーザー自身が行なうことになり

ます。つまりはＯＳについてもある程度の知識が必要となるわけです。

　ここでは、ハードウェアに１６ビットパーソナルコンピュータを、ＯＳにはＭ

Ｓ−ＤＯＳを使用することとして、ソースプログラムの作成方法、ＭＳ−ＦＯＲ

ＴＲＡＮ（Microsoft Corp.）、Ｐｒｏ　ＦＯＲＴＲＡＮ−７７（Prospero Soft

ware Ltd）の操作方法について説明することとします。

２．１　　ＦＯＲＴＲＡＮ文法

２．１．１　ＦＯＲＴＲＡＮプログラミング

　ＦＯＲＴＲＡＮプログラムは一連の文（statement）からなる 行（line）の集

まりで構成されます。記述には所定のコーディング用紙を使用し、使用文字は英

数字（A〜Z,0〜9）と特殊文字（空白、=、+、-、*、/、(、)、,、.、&、\または

$）で、いずれも半角文字です。空白（blank）は "!"と記述します。コーディン

グ用紙の１行は１から８０の番号が付された升目で、これをカラム（column, co

l.）と呼びます。ＦＯＲＴＲＡＮとして意味を持つのは１〜７２カラムで、これ

が１行になります。 １〜５カラムは必要な場合に文番号（statement label）を

書く場所で、６カラムは通常は空白（後述）、文は７〜７２カラム内に記述しま

す。７３〜８０カラムは、その行の標識や確認のために自由に使用することがで

きます。

　文には、それを他の文から参照できるように１〜９９９９９の文番号を付ける

ことができます。番号の順は不同ですが、同番号の重複は許されません。

　１つの文が数行にわたるとき第１行目を開始行（initial line）と呼び続く行

を継続行（continuation line）と呼びます。 継続行であることを表わすために

は６カラムに "0" 以外の文字を書きます。 ＦＯＲＴＲＡＮでは７〜７２カラム

以外にある "!" を "0" として扱っているためです。逆にいえば、７〜７２カラ

ムのプログラム中では適当に空白を入れて、見やすくできることになります。継

続行の個数には、基本水準９行、上位水準１９行までという制限があります。

　１カラムに "C"と書くことでその行を注釈行（comment line）として使用する

ことができます（上位水準では "*"も可）。残りの２カラム以降は注釈やメモな

ど何を記述してもかまいません。この場合には使用文字に制限はありません。

　１行には１つの文あるいは１つの式だけを記述し改行"��"し、プログラムの終

わりは、"!!!!!!!STOP��"、"!!!!!!!END��"とします。

　ＥＮＤ行（END line）は処理系にプログラム単位（program unit）の終わりを

指示するためのもので、 ７〜７２カラムの間に "E"、"N"、"D" という文字がこ

の順序に書かれたものです。他のカラムはすべて空白でなければなりません。プ

ログラム単位とは、主プログラム（main program）または副プログラム（subpro

gram）を意味します。

　文には実行文（executable statement）と非実行文（non-executable stateme

nt）があります。実行文は動作を指定するもので、非実行文はデータの特性・並

び方、プログラム単位の分類などの情報を記述するものです。実行文には代入文

（assignment statement）、制御文（control statement）、入出力文（input/o

utput statement）の３種類、非実行文には、宣言文（specification statemen

t）、ＤＡＴＡ文（data initialization statement）、ＦＯＲＭＡＴ文（FORMAT

statement）、文関数定義文（statement function defining statement）、副プ

ログラム文（subprogram statement）の５種類があります。

　プログラム中でデータや手続きなどを識別する（identify）ためには英字名

（symbolic name）を用います。英字名は６文字以内の英数字で、最初の文字は英

字でなければなりません。英字名をデータとして使用する場合には、「暗黙の型

宣言」に注意します。最初の文字が "I,J,K,L,M,N (I〜N)" で始まる英字名は整

数型、それ以外は実数型として扱います。

２．１．２　定数

　ＦＯＲＴＲＡＮで扱う定数は、以下の６種類です。ａ〜ｄを算術定数と呼び、

符号（+ 及び -）を付けることができます。

ａ．整定数（integer constant）：１０進整数。2147483647（＝2^３１-1）以内。

ｂ．実定数（real c-）：基本実定数（basic real c-）と基本実定数のあとに指

数部（exponent　part）を付けたものの２種類がある。基本実定数は１個の小数

点を含む１０進数。 指数部は "E" のあとに２桁以内の整数（符号も可）で表わ

す。

ｃ．倍精度実定数（double　precision c-）：基本実定数のあとに倍精度指数部

を付けたもの。 倍精度指数部は "D" のあとに２桁以内の整数（符号も可）で表

わす。

ｄ．複素定数（complex c-）：実数部（real part）及び虚数部（imaginary p-）

をコンマで区切り、全体をかっこでくっくたもの。実数部、虚数部はともに実定

数。

ｅ．論理定数（logical c-）：".TRUE."は真を、".FALSE."は偽を表わす。

ｆ．文字定数（hollerith c-）：255文字以内の文字列を引用符（'）でくくるか、

"ｎH文字列"（ｎは文字列の個数）で表わす。

２．１．３　変数、添字

　変数及び配列変数は、英字名によって識別（半角６文字までを識別、それ以上

の文字は無視）され、プログラム中でデータを定義したり引用したりすることが

できます。 これを変数名（variable name）、配列名（array name）と呼びます。

変数名および配列名には、整数型、実数型、倍精度実数型、複素数型、論理型、

文字型の区別があり、その変数名や配列名で表わすデータの型と一致していなけ

ればなりません。そこで通常は「暗黙の型宣言」に従うこととしますが、「暗黙

の型宣言」に従わない場合には必要に応じてプログラムの先頭で型宣言文を用い

て宣言しておかなければなりません。

　配列を構成しているデータの一つを配列要素（array element）と呼び、 配列

名の後に添字（subscript）をつけて表わします。 添字はコンマで区切られた１

〜３の添字式をかっこ（"("、")"）でくくったもので、添字式は整定数及び整変

数、あるいはそれらと算術演算子の "+"、"-"、"*" を組み合わせたものです。

例えば、 A(I)、L(2*I+1)、ARRAY(I,J)、SUM(I+5,2*J,3*K-1) と表わします。配

列変数を用いる場合にはプログラムの先頭で配列宣言子を用いて配列の大きさを

宣言しておかなければなりません。添字式のとる値は１から宣言した大きさまで

となります。

２．１．４　式

　式には、算術式（arithmetic expression）、関係式（relational expression

）、論理式（logical expression）の３種類があります。

　算術式は算術演算子（arithmetic operator）と 定数、変数、配列要素及び関

数などの算術要素を用いて構成します。このとき構成要素の型は一致していなけ

ればなりません。例外として、関数の引数、添字、べき指数は型に影響されませ

ん。また、、算術式は複数組のかっこでくくることができ、内側のかっこから順

に演算が行なわれます。かっこがないときの演算順序は、関数の計算，べき乗

（**），負の単項演算（-），乗除算（*及び/），加減算（+及び-）の順です。

　関係式は２つの算術式を関係演算子でつないだもので、その関係式が成立する

かしないかで、それぞれ真か偽の値をもつことになります。関係演算子には次の

６種類があります。

　.GT.　＞（greater than）

　.GE.　≧（greater than or equal to）

　.NE.　≠（not equal to）

　.EQ.　＝（equal to）

　.LE.　≦（less than or equal to）

　.LT.　＜（less than）

"式１.GT.式２"としたとき、この関係式の値は、式１＞式２ならば真、そうでな

ければ偽となります。関係式の値が真のときには引き続き次の文を実行しますが、

偽のときには続く文は無視して次の行を実行することになります。

　論理式は２つの論理要素を論理演算子でつないだもので、関係式と同様につね

に真か偽の値をもちます。論理要素とは、論理型の定数、変数、配列要素及び関

数の引用などのことで、関係式や論理式も論理要素です。論理演算子には次の３

種類があります。

　.NOT.　否定（not）

　.AND.　論理積（and）

　.OR. 　論理和（or）

".NOT.式１"は式１が真ならば偽、偽ならば真の値をもちます。"式１.AND.式２"

は式１、式２がともに真のときのみ真、"式１.OR.式２"はその反対で式１、式２

がともに偽のときのみ偽となります。

２．１．５　代入文

　文の中で、「変数名または配列要素名」＝「算術式」で表わされるものを算術

代入文（arithmetic assignment statement）と呼びます。例えば、"I=K-1"、"B

=X*Y/Z"、"A(I)=T(I)+SIN(C)" などです。算術代入文は数値演算を定義する文で

す。算術代入文においては、等号（=）は、 右辺の算術式を計算し、その結果を

左辺の変数名または配列要素名の値とすることを意味します。左辺と右辺の型は

同じであることが基本（混合演算の禁止）ですが、複素数型以外は一般に左辺と

右辺の型が異なる場合もこれを許しています。この場合、右辺の数値演算の結果

は左辺の型に変換されることになります。　例えば、"I=3.14" としたときには

"I" の値はは整数 "3" ということになります。

　「論理型の変数名または配列要素名」＝「論理式」で表わされるものを論理代

入文（logical assignment statement）と呼びます。右辺の演算結果を左辺の値

とし、このとき値は真（.TRUE.）か偽（.FALSE.）のいずれかとなります。

２．１．６　制御文

ａ．GO TO 文

単純 GO TO 文．．．．．"GO TO ｎ"

　ｎは文番号。文番号ｎの付された文に実行を移す。

計算型 GO TO 文．．．．．"GO TO(ｎ1,ｎ2,･･･,ｎm),ｉ "

　ｎ1,ｎ2,･･･,ｎmは文番号。ｉは整変数。１≦ｉ≦ｍ。

　文番号ｎiの付された文に実行を移す。

割当型 GO TO 文．．．．．"GO TO ｋ,(ｎ1,ｎ2,･･･,ｎm)"

　ｋは整変数。１≦ｋ≦ｍ。ｎ1,ｎ2,･･･,ｎmは文番号。

　これ以前に ASSIGN 文が実行されている。文番号ｎkの付された文に実行を移す。

ｂ．ASSIGN 文．．．．．"ASSIGN ｎ TO ｋ"

　ASSING 文は割当型 GO TO 文で実行を移す文の番号を割り当てる代入文。

　ｋは割当型 GO TO 文で用いる整変数。ｎは割当型 GO TO 文で指定するｎ1,ｎ

2,･･･,ｎmのいずれかの文番号。

ｃ．IF 文

算術 IF 文．．．．．"IF(式) ｎ1,ｎ2,ｎ3"

　式は複素数型を除く算術式。ｎ1,ｎ2,ｎ3は文番号。式＜０ならばｎ1へ、式＝

０ならばｎ2へ、式＞０ならばｎ3へ実行を移す。

論理 IF 文．．．．．"IF(論理式) 実行文"

　実行文は DO 文および論理 IF 文を除く。論理式が真ならば続く文を実行し、

偽ならば続く文を無視して次の行に実行を移す。

"IF(A.LT.0.0) GO TO 10","IF(B.GT.0.0.AND.B.LT.10.0) I=I+1"

ｄ．DO 文．．．．．"DO ｎ ｉ=ｍ1,ｍ2[,ｍ3]"

ｎは文番号でｎの付された文を端末文（terminal statement）と呼ぶ。ｉは制御

変数（control variable）と呼び、整変数。ｍ1、ｍ2、ｍ3は整変数か整定数（符

号無し）で、それぞれ初期値パラメータ（initial parameter）、終値パラメータ

（terminal p-）、増分パラメータ（incrementation p-）と呼ばれる。

　DO 文から端末文までをＤＯループと呼び、ｉの値はｍ1から始まりｍ3ずつ増加

し、ｍ2をこえない最大数まで実行を繰り返す。ｉの値がｍ2をこえたときＤＯル

ープは満足されたといい、端末文の次の行に実行が移る。ｍ3＝１のときには省略

できる。

　端末文は DO 文、GO TO 文、算術 IF 文、RETURN 文、STOP 文、PAUSE 文及び

以上のいずれかを含む論理 IF 文であってはならないという制限があるため、通

常は端末文として CONTINUE 文を用いることが多い。

　ＤＯループは他のＤＯループを含んでもよいが、入れ子（nest）でなければな

らない。ＤＯループから外に出ることはできるが、外からＤＯループにはいるこ

とはできない。例外として完全入れ子のいちばん内側のＤＯループから完全入れ

子の外に飛び出しても、もとのＤＯループに戻ることは許される。このとき完全

入れ子の外側で実行される可能性のある実行文をＤＯループの拡張範囲と呼ぶ。

　上位水準では制御変数は実数型も許される。

ｅ．CONTINUE 文

　通常 DO 文の端末文として使用され、プログラム実行時に何もしない文。

ｆ．PAUSE 文．．．．．"PAUSE [ｎ]"

　ｎは符号無しの８進整数（５桁以内）。ｎを出力してプログラムの実行を一時

停止する。

ｇ．STOP 文．．．．．"STOP [ｎ]"

　ｎは符号無しの８進整数（５桁以内）。ｎを出力してプログラムの実行を終了

する。

２．１．７　関数とサブルーチン

　主プログラム（main program）に対して関数とサブルーチンのことを特に副プ

ログラムまたは手続き（procedure）副プログラムと呼ぶ。副プログラムには組込

み関数（intrinsic function）・文関数（statement function）・外部関数（ex

ternal function）・外部サブルーチン（external subroutine）の４種類がある。

組込み関数と文関数は内部手続き、外部関数と外部サブルーチンは外部手続きで

ある。

　外部サブルーチンには、関数副プログラムとサブルーチン副プログラムがある。

　副プログラムには手続き副プログラムのほかに初期値設定副プログラムがある。

（２．１．９　ＢＬＯＣＫ　ＤＡＴＡ文　参照）

　副プログラムだけの実行はできないが、コンパイル及びデバッグはできる。

ａ．組込み関数

注）AMOD,MOD,SIGN,ISIGN,DSIGN は

その関数の性質から引数の最初の値がゼロのときは定義されない。

　ＦＯＲＴＲＡＮの処理系に組み込まれている関数で、引用には関数名に必要な

引数をつけて算術式に書けばよい。このとき引数にはそれぞれ個数、順序、型が

定められていることに注意する。引数として算術式を用いることができる。

ｂ．文関数

　１つの文で定義する関数で、この文を文関数定義文（statement function def

ining statement）と呼ぶ。文関数定義文はプログラムの先頭におく。宣言文があ

る場合にはその後におく。文関数の名前は英字名。

　文関数の名前（仮引数１，２，３，・・・）＝算術式ｏｒ論理式

　例）SUM(X,Y)=X+Y

　　　LOGIC(A,B)=A.OR.B

ｃ．外部関数

　基本外部関数として処理系に準備されている関数。引用にあたっては組込み関

数と同じに扱うことができる。組込み関数との相違は、組込み関数がソースプロ

グラム中で引用されるたびに、オブジェクトプログラムの対応する位置へ組み込

まれるのに対して、外部関数は関数副プログラムとかわりなくメインプログラム

の外におかれ、独立したプログラムとして扱われる。

注）正弦・余弦関数の引数の単位はラジアン。　　　　　　　　　　　　　

注）逆正接関数の結果は主値。　　　　

ｄ．関数副プログラム

　ＦＵＮＣＴＩＯＮ文で始まりＥＮＤ行で終る１つの独立した副プログラムであ

り、主プログラムや他の副プログラムで引用して使用する１価関数である。

　　［型宣言］　ＦＵＮＣＴＩＯＮ　英字名（仮引数１，２，３，・・・）

　暗黙の型宣言に従わないときには、最初に宣言して用いる。

ｅ．サブルーチン副プログラム

　ＳＵＢＲＯＵＴＩＮ文で始まりＥＮＤ行で終る１つの独立した副プログラムで、

ＦＵＮＣＴＩＯＮ文が１価関数であるのに対し、ＳＵＢＲＯＵＴＩＮ文は多価関

数として使用されるだけでなく、入出力などをまとめて処理するのに使用できる。

　　ＳＵＢＲＯＵＴＩＮ　英字名（仮引数１，２，３，・・・）

　引用にはＣＡＬＬ文を用いる。

　　ＣＡＬＬ　英字名（仮引数１，２，３，・・・）

ｆ．ＲＥＴＵＲＮ文

　ＳＵＢＲＯＵＴＩＮ文またはＦＵＮＣＴＩＯＮ文で始まる副プログラムから、

これらを引用した主プログラムあるいは副プログラムに戻るためのもので、副プ

ログラム中にいくつあってもよい。

ｇ．ＰＲＯＧＲＡＭ文

　主プログラムであることを表わし、通常は省略される。

　　ＰＲＯＧＲＡＭ　英字名

２．１．８　入出力文とＦＯＲＭＡＴ文

　入出力文（input/output statement）は、ＣＰＵと外部入出力装置の間でデー

タの転送を行ない、ＲＥＡＤ文、ＷＲＩＴＥ文のほかに外部ファイルを扱うため

の補助入出力文が準備されている。データの入出力にあたっては、なにを（デー

タ）をどのように（書式）入出力するかを指定する必要があり、データは入出力

並びで指定し、書式はＦＯＲＭＡＴ文で指定する。

ａ．ＲＥＡＤ文とＷＲＩＴＥ文

�@書式付きＲＥＡＤ文およびＷＲＩＴＥ文

　　ＲＥＡＤ（装置番号，文番号）　入力並び

　　ＷＲＩＴＥ（　〃　，　〃　）　出力並び

　装置番号は整定数（整変数）で、通常５に標準入力装置、６に標準出力装置が

割り付けられている。文番号は、ＦＯＲＭＡＴ文の番号または配列名。文番号に

アスタリスク（*）を代用してＦＯＲＭＡＴ文を省略することができるが、 この

ときには１つの入力データは１０桁程度（2147483647=2^３１-1以下）、出力は小数

点以下７桁の実数あるいは小数点以下６桁の指数表示となる。

�A書式なしＲＥＡＤ文およびＷＲＩＴＥ文

　　ＲＥＡＤ（装置番号）　入力並び

　　ＷＲＩＴＥ（　〃　）　出力並び

　機械語データを取り扱う。

ｂ．入出力並び（input/output list）

　入出力並びとは、ＣＰＵと入出力装置の間でデータを割り当てるための変数名

（配列要素名、配列名も可）を並べたものである。

　変数名（配列要素名、配列名）をコンマで区切って並べたものを単純並び（

simple list）と呼び単純並びをかっこでくくったものも用いることができる。

　例）　　　READ(5,100) A,B

ＤＯ形並びが使用できる。

　例）　　　READ(5,100) (A(I,J),J=1,K),I=1,L

　　　　100 FORMAT(8F10.0)

　　　　　　WRITE(6,200) B,(I,(J,C(I,J),J=1,5),I=1,K,2)

　　　　200 FORMAT(1H ,'B=',F10.3/1H ,6('C(',I3,','I3,')=',F10.5,1X))

ｃ．ＦＯＲＭＡＴ文

　書式付きＲＥＡＤ文およびＷＲＩＴＥ文では入出力の書式をＦＯＲＭＡＴ文で

指定しなければならない。ＦＯＲＭＡＴ文は欄記述子と欄区切りで構成される。

プリンタ及びコンソールに出力する場合には先頭の欄記述子は半角１文字（!、0、

1、+）で行送りの制御を指定する。

　　文番号�獅eＯＲＭＡＴ（欄記述子，欄記述子，欄記述子，・・・）

　欄記述子には以下の４種類がある。

　　数値欄記述子

　　　nＩw（整数），nＦw.d（実数），nＥw.d（指数表示実数），

　　　nＧw.d（有効数字実数），nＤw.d（倍精度実数）

　　文字欄記述子　nＡw（文字），wＨ，’文字’

　　空白欄記述子　wＸ

　　論理欄記述子　nＬw

　ｎはデータの個数、ｗはデータの長さ（カラムの個数）、ｄは小数点以下の桁

数を表わす。データ入力にあたっては指定したｗの範囲でデータが優先する。つ

まりＲＥＡＤ文で引用するＦＯＲＭＡＴ文中では、データの長さだけに注意すれ

ばよいことになる。

　例）　　　READ(5,100) I,J,A,B,C,D

　　　　100 FORMAT(2I5,3F10.0,D16.0)

　　　　　　WRITE(6,200)

　　　　200 FORMAT(1H1,'OUTPUT')

　　　　　　WRITE(6,300) I,J,A,B,C,D

　　　　300 FORMAT(1H ,2(5X,I5),3F10.3,4X,D16.9)

　欄区切りは通常コンマ（,）を使用する。斜線（/）は１行あたりのデータの終

了を表わす。

　例）　　　READ(5,100) I,J,A,B,C,D

　　　　100 FORMAT(2I5/3F10.0/D16.0)

　　　　　　WRITE(6,200) I,J,A,B,C,D

　　　　200 FORMAT(1H1,'OUTPUT'/1H ,2I5/' ',3F10.3//D16.9)

　行送りはＦＯＲＭＡＴ文の先頭（あるいは斜線の直後）に指定する。出力装置

（通常はプリンタ）によっては使用できないものもある。

　　1H! （'!'、/）　 印刷前に１行改行

　　1H0 （'0'、//）　　 〃　 ２　〃

　　1H1 （'1'）　　　　 〃　 改頁

　　1H+ （'+'）　　　　 〃　 改行無し（同じ行に印字）

ｄ．補助入出力文

　ＥＮＤＦＩＬＥ文：指定した装置にファイル終了記録（ＥＯＦ）を書く。ただ

　　　　　　　　　　しＦＯＲＴＲＡＮでＥＯＦは読めない。

　　ＥＮＤＦＩＬＥ　出力装置番号

　ＲＥＷＩＮＤ文：指定した装置を始点に戻す。

　　ＲＥＷＩＮＤ　装置番号

　ＢＡＣＫＳＰＡＣＥ文：指定した装置を１記録分戻す。

　　ＢＡＣＫＳＰＡＣＥ　装置番号

２．１．９　宣言文とＤＡＴＡ文

　ＦＯＲＴＲＡＮはプログラム中で使用する変数の型や、配列などをあらかじめ

宣言しておかなければならない。暗黙の型宣言などのＦＯＲＴＲＡＮの規定値に

従わない場合に必要となる。宣言文はプログラムの先頭に置く。

ａ．ＤＩＭＥＮＳＩＯＮ文

　配列は添字付きの変数名で表わす。ＤＩＭＥＮＳＩＯＮ文は配列名とその大き

さを宣言する。これにより配列のための記憶場所が確保される。

　配列は型宣言文およびＣＯＭＭＯＮ文においても宣言できる。

　例１）DIMENSION A(10),B(11,11),C(10,100,10)

　　　基本水準では３次元配列まで、配列の寸法（大きさ）は１以上。

　例２）DIMENSION A(0:9),B(-5:5,-5:5),C(2:11,100,-1:8)

　　　上位水準では７次元配列まで可、添字式として寸法宣言子に ":"が使える。

ｂ．型宣言文

　変数名、配列名および関数名について暗黙の型宣言に従わない場合に型と大き

さ（倍精度）を宣言し、同時に配列宣言もできる。

　整数型宣言　：ＩＮＴＥＧＥＲ、ＩＮＴＥＧＥＲ＊４

　実数型　　　：ＲＥＡＬ、ＲＥＡＬ＊８

　倍精度実数型：ＤＯＵＢＬＥ　ＰＲＥＣＩＳＩＯＮ

　複素数型　　：ＣＯＭＰＬＥＸ

　論理型　　　：ＬＯＧＩＣＡＬ

　文字型　　　：ＣＨＡＲＡＣＴＥＲ

　　　　　　　　例１）CHARACTER A*2,B*4,C*8

　　　　　　　　例２）CHARACTER*4 A,B,C

　一括宣言　　：ＩＭＰＬＩＣＩＴ

　　　　　　　　例１）IMPLICIT REAL*8(A-H,O-Z)

　　　　　　　　例２）IMPLICIT INTEGER(A-H),REAL(I,J)

ｃ．ＥＱＵＩＶＡＬＥＮＣＥ文

　かっこでくくられた変数や配列要素の集まりを、記憶装置の同一の場所に割り

当てる（記憶場所を共有する）ために用いる。

ｄ．ＣＯＭＭＯＮ文

　複数のプログラム単位間で使用する変数や配列の記憶場所を共有するために用

いる。

ｅ．ＥＸＴＥＲＮＡＬ文

　外部手続きであることを宣言する。外部手続き名を他の外部手続きの引数とし

て用いる（基本外部関数名をサブルーチン副プログラムの引数として用いる）場

合や、ＦＯＲＴＲＡＮで準備されている外部手続き（基本外部関数）を使用しな

で別に準備されたものを使用する場合に宣言する。

ｆ．ＤＡＴＡ文

　変数、配列要素あるいは配列に初期値として定数を与える。ＤＡＴＡ文は宣言

文の後、実行文の前に置く。

　例）DATA I,J/1,2/A,CHA/10.0,5HCHARA/

ｇ．ＢＬＯＣＫ　ＤＡＴＡ文

　初期値設定副プログラム（specification subprogram or block data subprog

ram）は名前付き共通ブロックの各要素に初期値を与えるための１つの独立した副

プログラムで、ＢＬＯＣＫ　ＤＡＴＡ文で始まりＣＯＭＭＯＮ文・ＤＡＴＡ文

（順不同）、ＥＮＤ行で構成される。

　例）BLOCK DATA

　　　COMMON

　　　DATA

　　　END

　必要に応じて、ＥＱＵＩＶＡＬＥＮＣＥ，ＤＩＭＥＮＳＩＯＮ，型宣言文が使

用できる。