Fortran スマートプログラミング(2015 年度版)

摂南大学 理工学部 電気電子工学科
田口 俊弘

2016 年 3 月 29 日

c Department of Electrical and Electronic Engineering, Setsunan University, 2016.

はじめにパソコンが登場してから今日まで，計算機とそれを取り巻く環境の劇的な進歩には目を見張るばかりです．計算機の利用目的も多様になり，それぞれの目的に応じて様々なプログラミング言語が開発されました．しかし，数値計算やコンピュータシミュレーションにおいては，コンピュータ本来の能力である「高速計算」ができればいいので，それほど新しい言語は必要ありません．
現在，数値計算をするためによく使われているプログラミング言語には，C 言語と Fortran があります．最近の大学では C 言語で計算機の講義を教えるところが増えてきて，Fortran は影が薄くなっているようですが，コンピュータシミュレーションの分野では Fortran の方がよく使われています．これは，Fortran が科学技術計算用言語として発展してきているので，数値計算に便利な書式が多数採用されているからです．例えば，複素数計算や行列計算などは文法に組み込まれているので簡単に書くことができます．数値計算向けのプログラムを書くには Fortran の方が書きやすいし，完成したプログラムをそのまま大型計算機で高速に実行させることも可能です．
Fortran は，計算機の歴史の初期に開発された由緒ある言語で，“ FORmula TRANslation ”が語源です．当初から数値計算用言語として開発されており，筆者が計算機を利用し始めた数十年前には，数値計算をするといえば，ほとんどが Fortran でした．しかし，科学技術計算に特化するということはユー
ザーの専門分野が限られるということであり，その結果コンパイラの値段があまり下がらなかったのがFortran をマイナーにした最大の要因だと思います．C 言語は誕生時点から比較的安価に供給され，これが広く使われている理由の一つです．C 言語はそもそも OS を記述するために開発された言語なので，計算機のハードウェア寄りの書式が多く，必ずしも初心者向きの言語だとは思えないのですが，プログ
ラミングの専門家にすれば Fortran も C 言語も大して変わりません．安い方にシフトしたのはある意味
やむを得ないことだと思います．
さて，1990 年代に入って無料の OS である Linux や FreeBSD の開発が開始され，これが非常な勢いで普及しました．普及した最大の要因は，インターネットを通じて，世界中のアマチュアプログラマがOS やその上で動作するアプリケーションの開発に参加したことです．コンパイラも同様で，このフリー
OS には，開発環境として有志が作成した無料の C 言語 (gcc) が付属し，さらにこれを利用した無料のFortran(g77，gfortran など) も付属しています．このため，Linux などをインストールすれば，パソコ
ンでも無料で Fortran が使えます．また，これらフリーの Fortran は Windows や MacOS 上で動作するものも作られていているので，価格で Fortran を敬遠する理由はなくなったと言えます．
本書は，数値計算やコンピュータシミュレーションを目的として，これから計算機プログラムの勉強を始めようとする人を対象にした Fortran プログラム作成法の解説書です．単に文法だけを説明するのではなく，コンピュータの構造の話なども交えながら，効率が良くてエラーを見つけやすい，“ スマー
トな Fortran プログラム ” の書き方を説明します．
長い歴史を持っている Fortran は，古いバージョンとの互換性を保つ必要性から，若干緩い文法体系になっています．例えば，デフォルトでは変数宣言をしなくてもかまわないため，変数名を書き間違えた
ときに発見するのが難しく，思わぬエラーを引き起こす可能性があります．また，コンピュータシミュ
レーションのような長いプログラムを書くときには，プログラムのチェックや修正がしやすいように書
いておかないと，メンテナンスに苦労します．このため，多少冗長になっても，読みやすく，後でデバッ
グしやすいように書くべきです．本書では，これを念頭に置いて説明をしています．
もちろん，数値計算やコンピュータシミュレーションにとっては計算速度が命ですから，できる限り計算が速くなるようなプログラムにすることも必要です．プログラムとはコンピュータでの計算手順を記述するものなので，コンピュータの構造を考慮してちょっと計算順序を変えるだけでも高速化できる
ことがあります．本書では，このようなコンピュータの内部構造で知っておいた方が良い部分もいくつか説明しました．孫子曰く，「彼を知り己を知れば百戦殆うからず」と．
Fortran は古くからある言語なのですが，1991 年に策定された Fortran90 を境に大きく変貌しました [1]．配列演算などの新しい機能を導入すると同時に，現代的な書式で書けるようになったのです．それまで 1 行に 72 文字までしか書けなかったという制限は無くなったし，1 行に複数の文を書くこともできるようになりました．Fortran90 以降も何度か改版されて，現在の最新規格は Fortran2013 であり，オブジェクト指向プログラミングや並列処理の記述も可能になっています．しかし，パソコンを利用した数値計算にはそのような新しい概念は必要ないので，本書では Fortran90 の改訂版である Fortran95 レ
ベルの文法で説明をしました．このレベルでプログラムを書いておけばフリーの Fortran でコンパイルできるというメリットもあります．
本書には 6 章ありますが，基本的なプログラミングに関する知識は第 4 章までで十分です．そこで，第4 章までには演習問題を付けています．ただし，第 3 章までの演習問題は各章の内容に合わせた問題になっていますが，第 4 章の演習問題はそれまでのプログラミング知識全般を応用して実用的なプログラ
ムを書くための練習になるような問題になっています．また，第 3 章までの章末に「スマートテクニッ
ク」と称して，プログラムを書くときの心構え，高速化のこつ，知っておくと便利な文法について紹介
しています．これらも合わせて利用すれば，より質の高いプログラムを書くことができると思います．
これに対し，第 5 章と第 6 章はある程度プログラミングに慣れてきた人向けです．初心者の方は，まず第 4 章までの内容を使って色々なプログラムを書き，プログラミングというものを良く理解して下さい．第 5 章以降は，ある程度の経験を積んでから必要に応じて読まれれば良いと思います．また，実際にパソコンで Fortran プログラムを動作させる方法や，その際の注意事項などをまとめて付録にしています．こちらも必要に応じて活用して下さい．
本書は，筆者が摂南大学の卒業研究生向けに書いた Fortran のテキストがベースになっています．これを，大阪大学レーザーエネルギー学研究センターの福田優子氏が Web で公開できる Fortran テキス
トを探しているというので提供したところ，結構気に入ってくれて，学生に配ったり，他の計算機セン
ターに紹介してくれました．その後，紹介先の一つである東北大学サイバーサイエンスセンターから広報誌 SENAC へテキストの内容を投稿してくれないかとの依頼があったので，加筆・修正をして 2012 年
度に 3 回の連載として掲載されました．ただ，3 回の連載ではページ数が限られていたので演習問題をカットせざるを得ず，卒研生を教育するために配る資料としてはもの足りないものになってしまいました．そこで，SENAC の原稿を再編成して説明が不十分の箇所を補い，演習問題を加えてまとめ直したのが本書です．
その後，阪大の Web で公開していたテキストを見られた技術評論社の方から，「Fortran の解説とそれを利用した数値計算の本として出版しないか」という提案をいただきました．これまで勉強してきたことを活かす良い機会だと思って引き受けてから 2 年近くかかりましたが，なんとか 2015 年 7 月に “ Fortran
ハンドブック ”という題で出版されました [7]．本書の 2015 年度版は，本を出版するために行った確認
チェックにより気がついた問題点を踏まえて改訂したものです．
最後に，筆者が適当に書いたテキストをこのようなまともな文書にまとめ直すきっかけを与えてくれた福田優子氏に深い感謝の意を表します．また，連載するに当たって，つたない文章を熱心に読んで多数の有益なご意見を下さった東北大学サイバーメディアセンターの方々にも深く感謝致します．

目

次

第1章
1.1
1.2

Fortran プログラミングの基本
メインプログラムの開始と終了 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
基本的な実行文の書き方 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1.2.1 代入文と演算の書式 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1.2.2 数値の型 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1.2.3 変数の宣言 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1.2.4 組み込み関数 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1.2.5 print 文による簡易出力 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1.3
配列 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1.3.1 配列宣言 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1.3.2 メモリ上での配列の並び . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1.4
プログラミング スマートテクニック (その 1) . . . . . . . . . . . . . . . . . . . . . . .
1.4.1 コンピュータで表現可能な数値の大きさ . . . . . . . . . . . . . . . . . . . . . . .
1.4.2 演算の速度を考える . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1.4.3 桁落ちに気を付ける . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1.4.4 π の作り方 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1.4.5 コメント文の挿入 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1.4.6 継続行と複文 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
演習問題1 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(1–1) 2 次方程式の解 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(1–2) ヘロンの公式 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(1–3) 面積，体積 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(1–4) ビオ・サバールの法則 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(1–5) 相対論的エネルギー . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(1–6) 複素インピーダンス . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(1–7) 回路計算 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(1–8) 3 次元ベクトルと電磁気学 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(1–9) 2 行 2 列の行列計算 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

1
1
3
3
4
6
8
9
10
10
11
12
12
13
14
14
15
15
17
17
17
17
17
18
18
18
18
18

第2章
2.1
2.2
2.3
2.4

19
19
21
23
26
26
28
28
29
30
31
31
33
33
33

手順の繰り返しと条件分岐
手順の繰り返し — do 文 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
条件分岐 — if 文 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
無条件ジャンプ — goto 文，exit 文，cycle 文 . . . . . . . . . . . . . . . . . . . . . . .
プログラミング スマートテクニック (その 2) . . . . . . . . . . . . . . . . . . . . . . .
2.4.1 do ループのテクニック . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
2.4.2 多項式を計算する手法 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
2.4.3 do while 文と無条件 do 文 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
2.4.4 0.1 を 10 回足しても 1 に等しくならない . . . . . . . . . . . . . . . . . . . . . . .
2.4.5 ブロックを明確にするために字下げする . . . . . . . . . . . . . . . . . . . . . . .
2.4.6 文字間や行間は適当に空ける . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
2.4.7 定数は意味のある名前をつけた変数に代入して使う . . . . . . . . . . . . . . . . .
演習問題2 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(2–1) 繰り返し出力 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(2–2) 統計計算 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

–i–

(2–3) 定積分 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(2–4) 漸化式 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(2–5) テーラー展開 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(2–6) 2 次方程式の解 (解の判別付き) . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(2–7) 非線形方程式の解法：逐次代入法 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(2–8) 非線形方程式の解法：Newton 法 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(2–9) 常微分方程式 (初期値問題) の解法：サイクロトロン運動 . . . . . . . . . . . . . . . . .
(2–10)常微分方程式 (境界値問題) の解法：1 次元ポワソン方程式 . . . . . . . . . . . . . . . .
サブルーチンサブルーチンの利用目的 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
サブルーチンの宣言と呼び出し . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
ローカル変数と引数 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
間接アドレスを用いたルーチン間におけるデータの受け渡し . . . . . . . . . . . . . . .
配列を引数にする場合 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
関数副プログラム . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
モジュールを使ったグローバル変数の利用 . . . . . . . . . . . . . . . . . . . . . . . .
プログラミング スマートテクニック (その 3) . . . . . . . . . . . . . . . . . . . . . . .
3.8.1 拡張宣言文とそれを用いたローカル変数の使い分け . . . . . . . . . . . . . . . . .
3.8.2 parameter 変数の利用 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
3.8.3 include 文 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
3.8.4 サブルーチンや関数副プログラムを引数にする方法 . . . . . . . . . . . . . . . . .
3.8.5 interface 文 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
演習問題3 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(3–1) 2 次方程式の解 (サブルーチン利用) . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(3–2) ヘロンの公式 (関数副プログラム利用) . . . . . . . . . . . . . . . . . . . . . . . . . . .
(3–3) 回路計算 (サブルーチン利用) . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(3–4) 3 次元ベクトルと電磁気学 (サブルーチン利用) . . . . . . . . . . . . . . . . . . . . . .
(3–5) 統計計算 (サブルーチン利用) . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(3–6) 非線形方程式の解法：Newton 法 (サブルーチン利用) . . . . . . . . . . . . . . . . . .
(3–7) 行列計算 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(3–8) 行列式 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(3–9) 3 元連立方程式の解法 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(3–10)モンテカルロ法 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

33
33
34
34
34
35
35
36

第3章
3.1
3.2
3.3
3.4
3.5
3.6
3.7
3.8

37
37
38
40
42
45
47
48
50
50
53
55
55
57
59
59
59
59
59
59
60
60
60
60
61

第4章
4.1
4.2
4.3
4.4

62
62
62
64
69
69
70
70
72
74
77

データ出力の詳細とデータ入力
データ出力先の指定 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
配列の出力，do 型出力 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
format による出力形式の指定 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
データの入力方法 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4.4.1 入力文の一般型 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4.4.2 入力時のエラー処理 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4.4.3 ネームリストを用いた入力 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4.5
書式なし入出力文によるバイナリ形式の利用 . . . . . . . . . . . . . . . . . . . . . . .
4.6
ファイルのオープンとクローズ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
演習問題4 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

–ii–

(4–1) 連立常微分方程式：2 次の Runge-Kutta 法 . . . . . . . . . . . . . . . . . . . . . . . .
(4–2) 連立常微分方程式：4 次の Runge-Kutta 法 . . . . . . . . . . . . . . . . . . . . . . . .
(4–3) 楕円型偏微分方程式 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(4–4) 放物型偏微分方程式：陽解差分法 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(4–5) 放物型偏微分方程式：陰解差分法 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(4–6) 分子動力学 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(4–7) 1 次元移流方程式 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(4–8) 粒子密度 – 分布関数 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
(4–9) ブラウン運動 – 拡散 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

77
77
78
79
79
80
81
82
82

第5章
5.1
5.2
5.3
5.4
5.5

文字列の活用
文字列定数と文字列変数 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
部分文字列と文字列演算 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
出力における文字列の利用 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
数値・文字列変換 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
文字列に関する組み込み関数 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

83
83
84
86
87
88

第6章
6.1
6.2
6.3
6.4
6.5
6.6

配列計算式
基本的な配列計算式 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
部分配列 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
where 文による条件分岐 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
配列構成子 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
配列に関する組み込み関数 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
配列の動的割り付け . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

90
90
91
94
95
97
99

付録 A

gfortran を用いたコンパイルから実行までの手順

102

付録 B

エラー・バグへの対処法

104

付録 C

自動倍精度化オプション

107

付録 D

数値型の精度指定

108

付録 E

Big Endian と Little Endian

110

付録 F

ASCII コード

111

付録 G
G.1
G.2
G.3
G.4
G.5

数値計算を補助するフリーのサブルーチンライブラリ
高速フーリエ変換 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
多倍長計算 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
長周期乱数発生 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
数値計算ライブラリ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
グラフィックライブラリ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

112
112
112
112
113
113

参考文献

114

–iii–

第1章

Fortran プログラミングの基本

計算機プログラム (あるいは，単にプログラム) とはコンピュータへの動作指示 (命令) を記述した文の集まりのことです．コンピュータを動作させる本来の命令は “ 機械語 ”と呼ばれる数値で表されていますが，これで直接プログラムを書くことはまず不可能です．そこで，人間が理解しやすいように，単語や記号を使った書式で計算機の動作を書けるようにしたものが，Fortran のような “ プログラミング言語 ”です．プログラミング言語を使ってプログラムを書いておけば，これを “ コンパイラ ”という機械語への翻訳ソフトを使って，コンピュータで実行可能な機械語 (実行形式) に変換することができます．
しかし，コンパイラは翻訳機に過ぎません．プログラミング言語という，我々には理解しやすい書式
で書けるといっても，あくまでもコンピュータを動作させる手順になるように書かねばならないのです．
本章では，Fortran における基本的なプログラムの書式とデータの取り扱いについて説明します．
Fortran プログラムは，基本的にコンピュータに与える命令を次の形をした “ 文 ”で記述します．
動作指示語 動作制御パラメータ
すなわち，先頭に “ 動作指示語 ”と呼ばれる計算機の動作を指定する単語を書き，それに続けて，動作を制御するための数値や予約語を “ 動作制御パラメータ ”として記述します．ただし動作制御パラメー
タを記述する必要のない，動作指示語だけの命令も存在します．
実行形式に変換されたプログラムを起動すると，コンピュータは，実行開始処理→ プログラムに記述された命令を順に実行→

実行終了処理という流れで動作します．実行を開始した時に最初に実行する部分を “ メインプログラム ”，または “ メインルーチン ”といいます．言わばプログラムの本体です．本章と次章では，メインプログラムだけを使った Fortran の基本的プログラムの書き方について説明します．メインプログラムと同レベルの完結したプログラムには，他のプログラムの中から実行開始を指示してその機能を利用する “ サブルーチン ”
がありますが，これについては第 3 章で説明します．

1.1

メインプログラムの開始と終了

Fortran では特別な手続きをせずにプログラムを書くと，それがメインプログラムと仮定されます．しかし，それではサブルーチンと区別しにくいので，program 文を用いて最初にプログラムの名前を書きます．program 文は以下の形式です．
program プログラム名
これに対し，メインプログラムの終了は end program 文で指定します．

end program プログラム名
ここで，program 文と end program 文で指定する “ プログラム名 ”は同じでなければなりません．このため，メインプログラムは次のような構造になります．

program code_name.......
.......
.......
end program code_name
この例のようにプログラム名にはアンダースコア ( _ ) も使えるので，これをスペースの代わりに使えば単語をつないだ長いプログラム名を付けることもできます．

–1–

program 文と end program 文の間に Fortran の文法に従った文を並べて，動作させたい計算手順を記述します．動作手順を記述する文を “ 実行文 ”といいます．しかし，プログラムに記述するのは実行文だけではありません．計算途中で必要となる変数領域を確保するための宣言文も書かねばなりません．
このような計算動作に直接携わらない文を “ 非実行文 ”といいます．Fortran では，非実行文をプログラ
ムの最初に集約して，実行文はその後に書きます．このため，動作の開始は program 文の次の文ではな
く，最初の実行文になります．
完結したメインプログラムの一例を示します1 ．
program test_code
implicit none
real x,y,z
x = 5
y = 100z = x + y*100
print *,x,y
print *,’z =’,z
end program test_code
このプログラムにおける実行文・非実行文の区分と，動作開始から終了までの実行の流れを図 1.1 に示します．実行形式のプログラムを起動すると，最初の実行文から動作が開始し，上から順に一行ずつ実行して，end program 文に到達した段階で動作終了となります．第 2 章で述べる do 文を使った繰り返しや，if 文による条件分岐など，動作指定によっては所定の位置にバックしたり，条件に応じて実行するかどうかの選択ができますが，それでもそれぞれの文が終了した後に次の文が実行されるという基本的動作は変わりません．
これは計算機が 1 回に一つの動作しかできないためです．プログラム全体を見渡して実行するのではなく，1 行ずつ順に実行していくので，バックするような動作指定をしない限り，下方に書いた実行文
は上方に影響を及ぼしません．プログラムはこのことを常に念頭に置いて書かなければなりません．

メインプログラム

実行開始

実行の流れ
実行終了

プログラム領域
program test_code
implicit none
real x,y,z
x = 5
y = 100z = x + y*100
print *,x,y
print *,’z =’,z
end program test_code

非実行文
実行文

図 1.1 プログラム開始から終了までの流れ
なお，2.2 節で述べる if 文を使って，条件によって途中でプログラムを終了するときや，第 3 章で説明するサブルーチン内でプログラムを終了するときには stop 文を用います．stop 文を実行すると，その時点でプログラムが終了します．例えば，

1

この例のように，プログラム内部の文は，先頭にスペースを数個入れて，program 文と end program 文よりも少し右にずらして書きます．そうすれば，メインプログラムの範囲が明確になります．

–2–

program fluid_code
implicit none
real x,y
integer m,n.......
if (m < 0) stop.......
end program fluid_codeと書けば，m < 0 の時にプログラムは終了し，それ以降は実行しません．

1.2

基本的な実行文の書き方

数値計算における基本的要素は “ 定数 ”と “ 変数 ”で，実行文はこれらを使って数学的に記述します．
ただし，あくまでもコンピュータを実行させるための記述ですから，数学における表現とは異なる意味を持つこともあります．そのあたりの区別が理解できれば，本節の知識だけでもプログラム電卓的な計算をさせることが可能です．

1.2.1

代入文と演算の書式

実行文には，stop 文のように常に同じ動作を指示する文と，いくつかの “ 数値 ”を伴って，その数値に応じた動作を指示する文とがあります．プログラム中で “ 数値 ”を与える方法は 3 種類あります．−500
とか 3.14 のような数字を直接書く “ 定数 ”，x とか yrz のような単語で示した “ 変数 ”，およびそれらを使って x+3 や sin(y-5) のような計算手順を表した “ 計算式 ”です．計算式に書かれている手順も計算機の動作なのですが，プログラム中の計算式は，その計算結果を動作命令に与える “ 数値 ”として位置づけられています．このため，計算式を書いただけでは実行文になりません．
プログラムで最も良く使う実行文は “ 代入文 ”です．これは，変数 = 計算式という形をしています．計算式の代わりに，定数や変数を書くこともできます．プログラムにおける “ 変数 ”とはコンピュータのメモリ領域のことで，数値を入れる箱だと考ればいいでしょう．代入文は右辺の “ 数値 ”を左辺で示した変数メモリに格納する動作を表します．よって，計算式 = 計算式!

これはエラーという形は使えません．Fortran において “ = ”という記号は，“ 左辺と右辺が等しい ”という意味ではないからです．例えば，

x = 4 + 2
y = 9 - x
y = y + 1のようなプログラムを考えてみましょう．プログラムは上から順に実行されるので，まず 4 + 2 の結果である 6 が変数 x に代入されます．次に，9 から変数 x に保存されている数値を引いた値が変数 y に代入されるので，y には 3 が代入されます．最後の文は数学の等式と見れば変ですが，イコールが “ 代入する動作 ”だと理解できれば特に不思議な文ではありません．y はその前の文で 3 が代入されていますか
ら，最後の文によって変数 y に y+1 の結果である 4 が代入されます．
Fortran における基本演算の書き方と使い方を表 1.1 に示します．

–3–

表 1.1 演算記号の書き方と使い方
演算記号

演算の意味

使用例

使用例の意味

+

足し算

x+y

x+y

-

引き算

x-y

x−y

*

掛け算

x*y

x×y

/

割り算

x/y

x÷y

**

べき乗

x**y

xy

-

マイナス

-x

−x

べき乗までの二項演算には以下のような優先順位があり，優先順位の高い方が低い方より先に計算されます．これは数学における演算順序と同じです．
べき乗 ＞

掛け算または割り算＞

足し算または引き算

掛け算と割り算のような同レベルの演算は左から順に計算されます．さらに，かっこを使えばかっこの中が優先的に計算されます．例えば，

f = x + (y-3)/z**2という文では，一番最初に y-3 を計算し，次に z の 2 乗を計算し，次に y-3 の結果を z の 2 乗の結果で割り，その結果を x に加えて，最後に f に代入する，という動作になります．
なお，時々見かける間違いに，

f = x + y/abという数式を次のようなプログラムにするものがあります．

f = x + y/a*byと解釈することが多いのですが，プログラムでは掛け算と割り算が同じ
abレベルなので，y/a*b は “ y を a で割って，その結果に b を掛ける ”です．よって，数学的解釈になるよ
うにするには，
数学では，y/ab の記述を

f = x + y/(a*b)と書かなければなりません．

1.2.2

数値の型

コンピュータという機械が取り扱う数値は 2 進数で表されていて，基本的には整数です．例えば，1byteの数は，8bit，つまり 0 か 1 のどちらかを選択できる数が 8 個並んだもので，10 進数では 0〜255 (=28 −1)までの整数を表すことができます2 ．Fortran では小数点のない数字，56 とか −1112 などの数字を “ 整数型 ”といいます．Fortran の整数型数は 4byte (32bit) で表現されていて，−231 〜231 − 1 の整数を扱うことができます．
しかし，数値計算やシミュレーションをする場合には，3.14 のように小数点以下を含んだり，3×1019
とか，1.6×10−27 とかいった様々なスケールの数値を取り扱うため，整数型だけでは不便です．特に，整数型数は小数点以下の表現ができないので，割り算をすると全て切り捨てになります．これを忘れてプ
ログラムを書くと，よく間違いを起こします．例えば，

2bit や byte の詳細と実数型の表現については 1.4.1 節参照．

–4–

x = (5/2)**2
y = x**(3/2)
t = 2/3*y*xと書くと，x，y，z はいくつになると思いますか？ 答えは x = 4，y = 4，t = 0 です．これは整数の割り算が切り捨てになるため，5/2 → 2，3/2 → 1，2/3 → 0 になるからです．
そこで，整数型の他に，3.14 のような少数点以下を含んだり，1.6×10−27 のような，A×10B という形
式の数値を取り扱うことができます．これを “ 実数型 ”といい，A の部分を “ 仮数部 ”，B の部分を “ 指数部 ”といいます．通常，数値計算は実数型で計算しなければなりません．
実数型には有効数字の違う 2 種類が用意されています．単精度実数と倍精度実数です2 ．単精度実数とは 4byte で表される実数のことで，仮数部の有効数字は 7 桁程度です．これに対し，倍精度実数とは8byte (64bit) で表される実数のことで，仮数部の有効数字は 15 桁程度です．7 桁あれば問題ないと思われるかもしれませんが，何百万個もの数字の合計を計算したり，次数の高い多項式の計算をするときな
どでは，計算回数の増加につれて有効桁数が減少することを考慮しなければなりません．このため，通常は倍精度実数で計算をします．
Fortran における基本的な実数型は単精度であり，倍精度実数型を使用する時にはそれを意識した書式で書かなければなりません．しかし，最近のコンパイラはオプションを指定すればデフォルトの実数型を倍精度にする “ 自動倍精度化機能 ”を持っているので，本書では，単精度実数と倍精度実数を使い分けることはせず，単に “ 実数型 ”と表現します3 ．よって，特に単精度で計算する必要がなければ，コンパイル時に自動倍精度化オプションを付加して倍精度で計算して下さい．多くの計算機は倍精度実数計算を高速で行えるハードウェアを内蔵しているので，倍精度計算をしてもさほど実行速度は下がりません．
プログラム上で，整数型の定数と実数型の定数は小数点の有無で区別します．例えば，100 とか，-12345と書けば整数型ですが，100.0 とか，-12345. とか，-0.0314 とか書けば実数型になります．また，1.6×1023を入力したい時には，1.6e23 と書きます．すなわち，A×10B は AeB と書きます．B が負の場合でも
1.6e-19 のように e の後に続けて書きます．また，6e20 のように eB を付加した場合には小数点が無くても実数型になります．例えば，

a = 3.141592 r2 + 3x5 + 6.5×10−5 x − 105という式をプログラムで書けば以下のようになります．

a = 3.141592*r**2 + 3.0*x**5 + 6.5e-5*x - 1e5
この例のように，r**2 とか x**5 のように整数べき乗の指数 (2 とか 5) には整数型を使います．
先ほど整数型を使ったら期待どおりの結果が出ない例を挙げましたが，以下のように実数型を使えば正しい結果が得られます．

x = (5.0/2.0)**2
y = x**(3.0/2.0)
y = 2.0/3.0*y*x
Fortran の便利な機能の一つは，複素数が使えることです．複素数にも単精度複素数型と倍精度複素数型がありますが，自動倍精度化機能を使えばデフォルトが倍精度複素数形になるので，本書では単に“ 複素数型 ”と表現します．複素数型の定数は，3

自動倍精度化については付録 C 参照．精度の変更については付録 D で説明しています．

–5–

(0.0,1.0)(1e-5,-5.2e3)(-3200.0,0.005)のように，2 個の実数をコンマでつないで，かっこで囲みます．前半が実部，後半が虚部です．つまり
この例は，それぞれ，i，10−5 − 5.2×103 i，−3200 + 0.005 i を表した複素数型定数です．
なお，ここまで読むと整数型は必要がないと思われるかもしれませんが，そうではありません．1.3 節
で説明する配列の要素を指定する数や，2.1 節で説明する do 文のカウンタ変数は整数型でなければなりません．また，オン・オフを表すだけの変数を作るときにも整数型を使います．すなわち，整数型数は“ 順番 ”や “ 区別 ”を表すときに不可欠です．また実数の整数部を取り出したいときや，剰余 (あまり) を計算するときも整数型を利用します．数値計算プログラムの中でも整数型の使い道は多いのです．
計算式中に異なる数値型が混在する時は，情報量の多い方の型に合わせて計算し，その型の値が結果になります．例えば，実数型と整数型の計算は整数型の数値を実数型に変換して実数型と実数型の計算を行い，実数型の結果になります．複素数型と実数型の計算の場合にはその実数型の数値を実部とした複素数型にして複素数計算をし，結果は複素数型になります．ただし，掛け算と割り算の計算は左から順に行うので注意が必要です．最初の整数型を使った計算例で，

t = 2/3*y*xが 0 になるのは，最初に計算されるのが 2/3 という整数型÷整数型だからです．これを，t = y*x*2/3と書けば，切り捨ては起こりません．

1.2.3

変数の宣言

次に，数式の計算結果を保存する変数の使い方を説明します．変数の名前は，頭文字が a〜z のどれかであれば，後は a〜z，0〜9 をどの様な順序で並べたものでも使えます．例えば，abc とか k10xy 等です．Fortran では大文字と小文字を区別しないため，abc と ABC は同じ変数になります．変数にも型があり，計算結果に応じた型の変数を使わなければ正確に保存することができません．この変数の型を決める文を “ 宣言文 ”といいます．型を決めると同時に，変数のメモリ領域を確保します．このため，計算に用いる変数は全て宣言しなければなりません．宣言は一度しかできず，プログラムの実行時に変更することはできません．宣言文は非実行文です．
ところが Fortran には “ 暗黙の宣言 ”があり，通常は宣言しなくても文法的な間違いにならないので，
タイプミスなどで思わぬエラーが発生する可能性があります．これを防ぐため，プログラムの 2 行目，すなわち program 文の次の行に必ず以下の implicit 文を書いておきます．

implicit none
この文を入れておけば，宣言せずに使用した変数があるとコンパイルエラーになり，タイプミスのチェッ
クができます．
数値計算は基本的に実数で行いますが，実数型変数は次のように宣言します．

real 変数 1, 変数 2，...
これに対し，整数型の変数は，次のように宣言します．

integer 変数 1, 変数 2，...
宣言文は非実行文なので，全ての実行文より前に書かなければなりません．例えば，メインプログラ
ムの始まりは以下のようになります．

–6–

program test1
implicit none
real x,y,z,omega,wave,area
integer i,k,n,imin,imax,kmax.......
real や integer 等の型宣言文は何行書いても良いし，順番も無関係です．
Fortran の暗黙宣言では，名前の頭文字が a〜h か o〜z の変数は実数型で，i〜n の変数は整数型でした．このため，整数型変数の頭文字を i〜n にする習慣があります．全てを宣言する以上，基本的に変数名の付け方に制限はないのですが，整数型は用途が限られているので，頭文字を限定する方が良いと思います．実数型数の名前はあまり頭文字にこだわる必要はありませんが，原則として整数型をイメージ
する i,j,k,l,m,n の 1 文字変数は使わない方が無難です．
複素数型変数の宣言文は，
complex 変数 1, 変数 2，...
です．複素数型も用途が限定されているので名前の付け方に規則をつける方が良いでしょう．複素数型
変数名は，頭文字を c か z にすることが多いようです．
プログラムにおいて，数値を変数に保存する意義は大別して二つあります．一つはプログラム全域にわたって共通してその値を利用するためであり，もう一つは狭い範囲で計算結果を一時的に保存するた
めです．この二つは意識して使い分けるようにします．特に，前者の大域的に利用する変数には長めで意味のある名前を付けるべきです．これは，1 文字のような短い変数名を使うと，プログラムが長くなるにつれて，どこでその変数を使っているかを検索するのが難しくなるからです．
変数に数値を代入する時は，右辺の計算結果を左辺の変数の型に変換して代入します．このため，実数の計算結果を整数型の変数に代入すると，小数点以下は切り捨てられます．例えば，

real xinteger n
x = 3.14
n = x + 6の結果，n に代入される値は 9 です．
また，複素数型の計算結果を実数型の変数に代入すると，その複素数の実部が代入されます．例えば，

real xcomplex cc=(1.0,-2.0)
x=c**2とすると，x = −3.0 になります．逆に，複素数型の変数に実数型の数値を代入すると，実部に結果が代入され，虚部は 0 になります．例えば，

real xcomplex cx=5
c=x**2とすると，c = (25.0, 0.0) になります．

–7–

1.2.4組み込み関数数値計算上よく使う数学関数はあらかじめ用意されています．この用意された関数を “ 組み込み関数 ”といいます．表 1.2 に，代表的な組み込み数学関数を示します．
表 1.2 数学関数の書き方と使い方
組み込み関数名

称

sqrt(x)

平方根*

数学的表現
√
x

必要条件

sin(x)

正弦関数*

sin x

cos(x)

余弦関数*

cos x

tan(x)

正接関数

tan x

asin(x)

逆正弦関数

sin−1 x

−1 5 x 5 1

acos(x)

逆余弦関数

cos−1 x

−1 5 x 5 1

atan(x)

逆正接関数

tan−1 x

atan2(y,x)

逆正接関数4tan−1 (y/x)

exp(x)

指数関数*

exlog(x)

自然対数*

loge xx>0log10(x)常用対数log10 xx>0sinh(x)双曲線正弦関数sinh xcosh(x)双曲線余弦関数cosh xtanh(x)双曲線正接関数tanh x関数値 f の範囲

x=0

− π2 5 f 5 π2
05f 5π− π2 < f < π2
−π < f 5 π

関数名の後のかっこは必ず必要です．かっこの中の x や y を “ 引数 (ひきすう) ”といいます．関数を計算式中に記述すると，引数に対する関数値が結果となってその計算式を実行します．例えば，

c = exp(-x**2) + sin(10*x+3) - 2*tan(-2*log(x))**3のように書くことができます．この例のように関数の引数に関数を使った計算式を与えることも可能
です．
表 1.2 の数学関数は，引数に実数型数を与えると実数型の結果になる “ 実数型関数 ”ですが，名称に“ * ”の付いている関数は，引数が複素数型でも使えます．Fortran の組み込み関数には，引数の型や精度に応じて計算をする “ 総称名 ”機能があるので，複素数を引数に与えた場合の関数値は複素数型の結果になります5 ．
ただし，総称名機能では引数の数値型に対応した関数が用意されていないとコンパイルエラーになり√ます．例えば， 2 を計算したくて，sqrt(2) と書くとエラーです．“ 2 ”は整数型の定数であり，整数型
数の平方根は用意されていないからです．sqrt(2.0) のように実数型を引数に書かなければなりません．
この他，絶対値や余りを計算するのにも組み込み関数を使うし，実数型を複素数型に変換するなどの型変換も組み込み関数を使って処理します．その中の代表的なものを表 1.3 に示します．
型変換関数は，数値型が限定されている場所に，その数値型以外の値を指定したいときなどに使います．例えば，整数型の変数 n の平方根を計算したいときには，上記のように sqrt(n) と書くことはできません．このときは，sqrt(real(n)) と書きます．また，整数化は切り捨て演算を含んでいるので，それを積極的に利用するときにも使います．例えば，正の実数 x の小数点以下を四捨五入した整数は，
int(x+0.5) で計算することができます．
4
逆正接関数 atan2(y,x) は，座標点 (x, y) の偏角を計算する関数です (x と y の順序に注意)．よって，表の数学的表現には “ tan−1 (y/x) ”と記述してありますが，実際には x と y の値に応じて −π から π の間の角度が結果になります．
5
表 1.2 の必要条件と関数値の範囲は引数が実数型の場合です．この必要条件を満たさない実数型数を与えると実行時エラーになります．しかし複素数型を与えた場合には必ずしもエラーにはなりません．

–8–

複素数型の定数は，(1.0,-2.0) のような表現で指定することができますが，変数や計算式で実部と虚部を指定した複素数を作る時には関数 cmplx を使います．例えば，

complex z,z1
real x,yx = 10.0
y = -3.5z = cmplx(x,y)
z1 = cmplx(x**2,y+2.0)のように書きます．この場合，z = x + iy であり，z1 = x2 + i(y + 2) になります．
表 1.3 型変換関数などの組み込み関数
組み込み関数名

称

引数の数値型関数値の数値型関数の意味

real(n)

実数化

整数

実数

実数型に変換abs(n)

絶対値

整数

整数

n の絶対値

mod(m,n)剰余62 個の整数整数

m を n で割った余り

int(x)

整数化

実数

整数

整数型に変換 (切り捨て)

nint(x)

整数化

実数

整数

整数型に変換 (四捨五入)

sign(x,s)

符号の変更

実数

実数

s= 0 なら |x|，さもなくば −|x|abs(x)

絶対値

実数または複素数

実数

x の絶対値

mod(x,y)

剰余2 個の実数実数

x を y で割った余り

real(z)複素数の実部

複素数

実数

z の実部

imag(z)複素数の虚部

複素数

実数

z の虚部

cmplx(x,y)

複素数化

2 個の実数複素数

x + iyconjg(z)

共役複素数

複素数

複素数

z の共役複素数

1.2.5

print 文による簡易出力

数値計算を目的としたプログラムでは，得られた計算結果を表示したりファイルに保存する必要があります．入出力の詳細については第 4 章で説明しますが，最低限，print 文を使った標準形式による数
値出力は覚えておいて下さい．print 文の一例を以下に示します．

integer nn = 3
print *, 4+5, n, n*2, 2*n-11
このように，“ print *, ”に続いて変数や計算式をコンマで区切って並べると，それらの計算結果が横に並んで出力されます．上例の場合には，4+5 の結果である 9 から 2*n-11 の結果である −5 までが以下のように出力されます．

9

3

6

-5

なお，“ print *, ”の “ * ”は，標準形式で出力することを意味しているのですが，とりあえずは形式的に書くものだと覚えて下さい7 ．
複数の数値を出力するときに数字だけを出力すると，どれがどの数値かわからなくなる可能性があります．このような場合は，文字列を併用して変数の意味を同時に出力します．Fortran における “ 文字6
7

剰余を計算する関数 mod の利用例として繰り返しの制御があります．2.2 節を参照して下さい．
出力形式の指定方法は 4.3 節参照．

–9–

列 ”とは，2 個のアポストロフィ「’」または 2 個のダブルクォーテーション「"」ではさんだ文字の並びのことで，print 文中で数値といっしょに並べると，その文字の並びがそのまま出力されます．例えば，

real xx = 3
print *,’x = ’,x,’x**3 = ’,x**3というプログラムの出力は，

x =3.00000000000000

x**3 =

27.0000000000000となります．

1.3

配列

ここまで出てきた変数は型に応じた 1 個の数値を記憶することしかできませんでした．しかし，数値計算やシミュレーションでは，数万個のデータを保存して，それぞれを条件に応じて変化させていく，
なんていうのが当たり前のように行われます．そこで，数学で a1 , a2 , · · · , an のように変数に添字を付けて区別するように，数字で区別した変数を作ることができます．これを “ 配列 ”といいます．本節では配列の使い方について説明します．

1.3.1

配列宣言

配列は変数の一種なので，型宣言文を使って宣言しておかねばなりません．単一変数と異なるのは，宣言時に添字の範囲を示す整数値をかっこを使って付加することです．例えば，次のように宣言します．

real a(10),b(20,30)
complex cint(10,10)integer node(100)
ここで，a や node のように数字が 1 個の配列を 1 次元配列，b や cint のように数字が 2 個の配列を 2次元配列といいます．3 次元以上の配列を作ることもできます．配列の名前の付け方，頭文字の選択などの規則は単一変数名の付け方と同じにします．宣言した配列の各部の名称を表 1.4 に示します．
表 1.4 配列の各部の名称

real a(10) と宣言した配列について
記

号

名

称

a

配列名

a(3) など

配列要素

かっこ中の数字

要素番号，添字

配列宣言で指定した数値は要素番号の最大値を表し，要素番号の使用可能範囲は 1 から指定した最大値までです．例えば a(10) の宣言では a(1) から a(10) までの 10 個の配列要素が使用可能になります．
また，2 次元以上の配列の場合には各次元ごとの最大値を指定しているので，b(20,30) の宣言では全部で 20×30 = 600 個の配列要素が使用可能になります．
問題によっては，要素番号として 0 や負数を使いたい時があります．このような時には “ : ”を間に入れて，使用可能な要素番号の最小値と最大値を同時に指定します．例えば，

real ac(-3:5),bc(-20:20,0:100)と宣言すると，1 次元配列 ac は，ac(-3) から ac(5) までの 9 個が使用可能であり，2 次元配列 bc は，
bc(-20,0) から bc(20,100) までの (20×2 + 1)×(100 + 1) = 4141 個が使用可能です．

–10–

1.3.2

メモリ上での配列の並び

配列はコンピュータ内部において連続したメモリ領域で実現されています．例えば，real a(10) と宣言された配列は，図 1.2 左のように，a(1),a(2),...,a(10) の順で並んだ実数型のメモリです．

a

101:
102:
103:
104:
105:
106:
107:
108:
109:
110:

real a(10)real ac(-3:5)

内部メモリ

内部メモリ
ac

a( 1)
a( 2)
a( 3)
a( 4)
a( 5)
a( 6)
a( 7)
a( 8)
a( 9)
a(10)

....

201:
202:
203:
204:
205:
206:
207:
208:
209:
210:

ac(-3)
ac(-2)
ac(-1)
ac( 0)
ac( 1)
ac( 2)
ac( 3)
ac( 4)
ac( 5)....

図 1.2 1 次元配列のメモリ並び
図からわかるように，a(3) とは a(1) から数えて 3 番目のメモリのことです．また，real a(10) の宣言では 10 個しかメモリを確保していないのですから，a(10000) のように範囲外の要素番号を指定すると問題が起こります．10000 番目の要素 a(10000) がどのメモリを示すのか不明だし，そもそも存在す
るという保証さえありません．
Fortran での配列名は配列を代表する名称であると同時に，配列の先頭メモリを示します．例えば，配列名 a は図 1.2 左のように a(1) を示します．また，ac(-3:5) のように最小値も指定して宣言した場合には，図 1.2 右のように並んでいて，配列名 ac は ac(-3) を示します．配列名が先頭要素を示すことは配列をサブルーチンの引数として与える時に意識する必要があります．
2 次元以上の配列の場合は，左の方の要素番号から先に進むようにメモリ上で並んでいます．例えば，

real b(3,2)と宣言した場合，メモリ上での並びは図 1.3 のようになります．2 次元以上の配列も配列名は先頭要素を示しています．配列 b の場合，配列名 b は b(1,1) を示します．
real b(3,2)
内部メモリ
b

301:
302:
303:
304:
305:
306:
307:
....

b(1,1)b(2,1)b(3,1)b(1,2)b(2,2)b(3,2)

図 1.3 2 次元配列のメモリ並び2 次元と 3 次元の配列の並び方を式で表せば，–11–

real b(m,n) の配列宣言で，b(i,j) は先頭から数えて i + m*(j-1) 番目
real b(`,m,n) の配列宣言で，b(i,j,k) は先頭から数えて i + `*(j-1 + m*(k-1)) 番目となります．どちらの公式も一番右側の要素数 n に依存していません．一般的に，どんな次元の配列の順番を与える公式も一番右側の要素数には依存しません．

1.4

プログラミング スマートテクニック (その 1)

計算手順が複雑になったり大量のデータを処理するようになると，数式を単純にプログラムに置きかえるのではなく，計算機の特性を考慮したプログラムにすることで計算効率や精度を高めることができます．ここでは，計算速度を向上させるテクニックや，コメントを入れてプログラムのメンテナンスを容易にする手法などについて説明します．

1.4.1

コンピュータで表現可能な数値の大きさ

我々が日常的に使っている 10 進数は，10 のべき乗が基本です．すなわち，数字を 10 の多項式で表したときの係数を次数の大きい方から並べたものです．ただし，係数は 10 より小さい整数 (0〜9) でなけ
ればなりません．例えば，1203 という数は，10 の多項式で表せば，1203 = 1 × 103 + 2 × 102 + 0 × 101 + 3 × 100となるので，表現が “ 1203 ”なのです．
これに対し，コンピュータ内部で使われている 2 進数は，2 のべき乗を基本として表された数です．この場合，多項式の係数は 2 より小さい整数でなければならないので，0 か 1 です．例えば，10 進数で 123と表示される数を 2 の多項式で表せば，

123 = 1 × 26 + 1 × 25 + 1 × 24 + 1 × 23 + 0 × 22 + 1 × 21 + 1 × 20となるので，2 進数で表すと，1111011 となります．2 進数は 0 または 1 だけで表すことができるので，電子回路の ON/OFF 回路を使って実現することができます．これがコンピュータで 2 進数が使われている理由です．2 進数の一桁を bit といいます．現在のコンピュータは 2 進数 8 桁 (8bit) を基本に作られていて，これを byte といいます．1byte は 8 桁の 2 進数ですから 28 = 256 個の数字をあつかうことができます．これを 0 以上の整数と考える場合には，0〜255 となります．
さて，Fortran の整数型は 4byte なので，32 桁 (32bit) の 2 進数です．すなわち，232 個の数字があつかえます．しかし負の整数を含ませるために，整数型の範囲は −231 〜231 −1 になります．231 は 2,147,483,648ですから，取り扱える数の上限はおよそ 21 億です．整数型の計算をするときは，絶対値がこれを超えないようにしなければなりません．
これに対し，実数型数は数値の bit を仮数部 f と指数部 e，および正負を決める符号 bit に分割して，±f ×2e のような形式で表現します．指数部 e は負数も含んでいるので，10−19 のような絶対値の小さい数も表現できます．実数型における bit 分割とそれによる数の表現には規格がいくつかありますが，現在最もよく使われているのは IEEE 754 と呼ばれている規格です．IEEE 754 における実数型の bit 分割
数と，それによる表現可能な絶対値の上限を表 1.5 に示します8 ．
例えば，倍精度実数型は仮数部が 52bit なので，252 ; 4.5×1015 個の区別ができ，これが “ 有効数字
15 桁程度 ”の根拠です．また，指数部の最大が 1023 なので，最大 10308 程度まで表現することができま
8IEEE 754 に関しては「http://ja.wikipedia.org/wiki/浮動小数点数」を参考にしました．詳しくは，この Web ページを見て下さい．なお，表現できる正数の下限は，およそ「1/上限数」程度，という見当で良いと思いますが，IEEE 754 の規格ではもう少し小さい桁の数まで表せます．もっとも，実際にパソコンで上限と下限をチェックしてみたところ，下限は動作環
境やコンパイラによって異なりました．また，4 倍精度に関しては上限が倍精度と同じ 10308 程度しかないものもありました．
すなわち，必ずしも IEEE 754 の規格通りに実装されているとは限らないようです．

–12–

表 1.5 実数型の bit 分割数と表現可能な絶対値の上限 (IEEE 754)
数値型 (bit)

符号 bit

指数部 bit

指数部 e の範囲

仮数部 bit

絶対値の上限単精度 (32)1

8−126〜12723

3.4×1038 程度

倍精度 (64)1

11−1022〜1023

52

1.7×10308 程度

4 倍精度 (128)1

15−16382〜16383

112

1.1×104932 程度

す．これに対し，単精度は指数部の最大が 127 なので，最大は 1038 程度です．1038 のような大きな数字を扱うことはあまりないかもしれませんが，計算の途中で現れる可能性は考慮する必要があります．例
えば，プランク定数は h ; 6.6×10−34 Js なので，h の逆 2 乗が公式の中に入っていると，途中計算で1038 を越えてしまいます．倍精度実数を使う意義はここにもあります．
なお，IEEE 754 での指数部には 2e という以外にも意味があり，数字の組み合わせによっては，“ 無限大 ”や “ 非数 ”を表します．もし，print 文で数値を出力したときに，Inﬁnity や INF という文字が出力された場合には無限大です．つまり，計算した結果が表現できる上限を超えたという意味です．これを “ オーバーフロー ”といいます．
これに対し，NaN と出力された場合は非数です．非数 (Not a Number) というのは，「数字じゃない」という意味ですが，具体的には，0 を 0 で割ったときや，−1 の平方根を計算したときの結果がこれに相当します．ただ，結果が非数になっても計算が継続することもあるので，どの時点で発生したのかを特定するのは結構面倒です．

1.4.2

演算の速度を考える

コンピュータの計算動作は a+b のような加算が基本です．a-b のような減算は b を負数に変換して加算するだけなので加算とそれほど実行時間は変わりませんが，a*b のような乗算は加算の繰り返し動作ですから，加減算よりかなり遅いです．a/b のような除算にいたっては，減算の繰り返しを条件付きで行うので，さらに時間がかかります．この演算速度の比較を書けば次のようになります．
加減算

≫ 乗算

≫≫

除算

このため，割り算ができるだけ少なくなるような計算手順にします．例えば，

x = a/b/cと書くより，

x = a/(b*c)と書く方が速くなります．最近の計算機はかなり高速に計算することができるので，数回の計算だけな
らこのような書き換えはあまり意味がありませんが，大量に繰り返し処理をする時には価値があります．
べき乗算はもっと遅いので，2 乗や 3 乗程度のときは掛け算にする方が速くなります．例えば，

x = a**2 + b**3と書くより，

x = a*a + b*b*bと書く方が速くなります．ただし，指数が大きいときには意味がないし，プログラムもわかりにくくなるので 3 乗程度までで良いと思います．
実数のべき乗 (1.2 乗とか，3.7 乗など) は，対数関数と指数関数を使って計算するので時間がかかりま1
す．このため， 乗に関しては，組み込み関数 sqrt を利用する方が速いです．例えば，2–13–

y = x**0.5
z = y**1.5と書くより，

y = sqrt(x)z = y*sqrt(y)と書く方が速くなります．

1.4.3

桁落ちに気を付ける

実数型数の有効数字は倍精度でも 15 桁程度です．よって，値の接近した 2 個の実数の引き算をするときは気を付けなければなりません．例えば，

2000.06 − 2000.00 = 0.06
ですが，計算結果 0.06 は元の 2000.06 と比べると有効数字が 5 桁も少なくなっています．これを “ 桁落ち ”といいます．桁落ちするような引き算はできるだけ避けねばなりません．
例えば，次のように変数 x1 に小さい正の数 h1 を加えて x2 を計算し，x2 に小さい正の数 h2 を加えて
x3 を計算したとします．

real x1,x2,h1,h2
x1 = 1.0h1 = 1e-7
h2 = 2e-7
x2 = x1 + h1
x3 = x2 + h2
print *,x3-x1,h1+h2
最後の print 文の出力を見ればわかりますが，x3-x1 の値が必要な時には，引き算で直接計算するよりも h1+h2 で計算する方が精度が上がります．
2 次方程式 ax2 + bx + c = 0 の解を求めるときにも注意が必要です．この方程式の解の一つは，√−b + b2 − 4ac
x1 =
2a
√
√
ですが，b > 0 かつ b2  |4ac| の時には，b と b2 − 4ac がほぼ等しくなるので，−b + b2 − 4ac の計算をすると桁落ちする可能性があります．そこでこの解を計算する時は，分子の有理化をした公式を使√います．すなわち，分母分子に −b − b2 − 4ac を掛けると，
)(
)
(
√
√
−b + b2 − 4ac −b − b2 − 4ac
2c
(
)
√
x1 =
=
√
−b − b2 − 4ac
2a −b − b2 − 4acとなりますが，最後の公式を使えば桁落ちする心配がありません．2 解とも計算する時には，2 解の積がc/a であることを利用して，まず桁落ちしない方の解 x1 を計算した後で，もう一方の解を c/(ax1 ) で計算すると良いでしょう．

1.4.4

π の作り方

物理や数学の計算をするときには円周率 π を使うことが多いです．π の値を倍精度計算用に有効数字16 桁で表せば，–14–

real pi
pi = 3.141592653589793となります．これをこのまま使えば良いのですが，計算機によっては有効数字が異なるし，数値を覚えるのも面倒です．そこで逆三角関数を使って計算で求める方法がよく使われています．例えば，

real pi
pi = acos(-1.0)
pi = 2.0*asin(1.0)
pi = 4.0*atan(1.0)などのように書くことができます．関数計算には時間がかかりますが，π の値は変化しないので計算するのは 1 回だけです．問題になるほどではありません．
コメント文の挿入

1.4.5

Fortran では “ ! ”の後に続く文字は全て無視されます．すなわち何を書いても実行とは無関係です．
これをコメント文といいます．コメント文を機会あるごとにプログラム中に入れて，書かれている内容を表示するように心がけましょう．さもなくば，プログラムが長くなるにつれて，自分でも何を書いたのか忘れてしまいます．例えば，!

area of circles
s = pi*r*rのように，１列目に “ ! ”を書けば，その行はコメント行になります．また，

s = pi*r*rv = 3*pi*r*r*r/4

!
!

円の面積
球の体積

のように，実行文の末尾に書き込むこともできるし，日本語を書くこともできます．ただし，日本語環
境によっては正しく認識できずに文字化けすることがあります．可般性を考慮するならローマ字つづりでも良いから半角英数字だけでコメントを書いた方が無難です．

1.4.6

継続行と複文

計算式が非常に長くて，作成に使っているエディタウィンドウの横幅を越えると読みづらくなります．
また，コンパイラによっては 1 行に書ける文字数に制限があるので，そのままではエラーになることもあります．そこで，1 行の文を途中で改行して，複数行に分割して書くことができます．このとき，次の行に継続するという意志を示す印として，行末に “ & ”の文字を書きます．例えば，print *,alpha,beta,gamma,delta,epsilon,zeta,eta,iota,kappa,lambda,muという 1 行は，print *,alpha,beta,gamma,delta,epsilon &,zeta,eta,iota,kappa,lambda,muと分割して書くことができます．継続行は何行にわたってもかまいません．

print *,alpha,beta,gamma &,delta,epsilon &,zeta,eta,iota &,kappa,lambda,muと書いても同じです．ただし，最後の行に “ & ”を付加するとエラーになるので注意して下さい．

–15–

長い文字列を書くときは，文字列の最後に “ & ”を入れて継続させることができます．その際，次の行の開始文字の前にも “ & ”を書いておきます．例えば，print *,’ABCDEFG&&hijklmn’と書けば，ABCDEFGhijklmn と出力されます．
逆に，1 行に複数の文を書くことも可能です．これを “ 複文 ”といいます．2 個以上の文を 1 行で書くには，文と文を分離する記号として “ ; ”の文字を書きます．例えば，

x = 1; y = 2; z = 3のように書くことができます．ただし，複文の使用はこのような短い代入文を書く場合に限定して下さい．プログラムは 1 行で一つの完結した動作を表すのが基本です．1 行に複数の文を書くと，動作の流れが見えにくくなるので，多用しない方が良いと思います．

–16–

演習問題1(1–1)

2 次方程式の解3 個の実変数 a，b，c に適当な値を代入し，それから，
ax2 + bx + c = 0の 2 解を計算して出力するプログラムを作成せよ．さらに，その解を ax2 + bx + c に代入して 0 に近い値になることもプログラムして確かめよ．また，a，b，c の値が不適切だと，エラーが出ることも確認せよ．(例えば，a = b = c = 1 にしてみよ)(1–2)

ヘロンの公式

三角形の 3 辺の長さを a，b，c とすると，その三角形の面積 S は次式 (ヘロンの公式) で表される．

S=
ただし，p =√p (p − a)(p − b)(p − c)

a+b+c
である．
2

a，b，c に適当な数値を与え，この公式を使って三角形の面積を計算するプログラムを作成せよ．さらに，一辺 a の正三角形の面積を別の方法で計算するプログラムを作成し，ヘロンの公式から求めた面
積と一致するかどうか確かめよ．

(1–3)

面積，体積

1 個の実変数 a と整変数 n に適当な数値を与え，これから，半径 a の円の面積，半径 a の球の体積，一辺 a の正 n 角形の面積を計算するプログラムを作成せよ．ただし，π の値はできるだけ正確な値 (有効数字 15 桁程度) を使うこと．

(1–4)

ビオ・サバールの法則

A

右図のように線分導体 PQ に電流 I [A] が流れている時，その線分から距離 r [m] の点 A にできる磁場の磁束密度 B [T]は次の公式で与えられる．

r
B=

µ0 I
(cos α + cos β)
4πr

β

α
P

は真空の透磁率 (4π×10−7 H/m)，α，β はそれぞIQ

ここで，µ0
図 1.4 線分電流
れ点 P，点 Q における三角形 APQ の内角である．
この公式を使って，I ，r，α，β を入力して磁束密度 B を計算するプログラムを作成せよ．ただし，角度は “ 度 ”の単位の数値で与えて，内部でラジアンに換算するようにせよ．
次に，一辺 a [m] の正三角形の導線に電流 I [A] が流れている時，中心にできる磁束密度 B [T] を計算するプログラムを作成せよ．
さらに，一辺 a [m] の正方形の導線に電流 I [A] が流れている時，中心にできる磁束密度 B [T] を計算するプログラムを作成せよ．

–17–

(1–5)

相対論的エネルギー

相対性理論によれば，質量 m [kg] の物質は，真空中の光の速度を c (=2.99792458×108 [m/s]) とすると，
mc2 [J] の静止エネルギーを持っている．この公式を使って電子と陽子の静止エネルギーを計算するプログ
ラムを作成せよ．ここで電子の質量は 9.10938356×10−31 [kg]，陽子の質量は 1.672621898×10−27 [kg] である．なお，エネルギーの単位はエレクトロンボルト (eV) に換算して表示せよ．1eV は 1.6021766208×10−19[J] である．
また，物質が速度 v [m/s] で運動しているときの運動エネルギーは m(γ − 1)c2 である．ここで，
1γ=√である．電子と陽子が光速の 1%で動いているときの運動エネルギーと，90%で動い
1 − v 2 /c2ているときの運動エネルギーをそれぞれ計算するプログラムを追加せよ．こちらも単位はエレクトロン
ボルトとする．

(1–6)

複素インピーダンス

インダクタンス L=0.04 [mH] ，抵抗 RL =10 [Ω] のコイルと，C=100 [µF] のキャパシタンス，および抵抗 R=100 [Ω] を並列に接続し，これに周波数 f =60 [Hz] の電圧 E=100 [V] を加えたとき，流れる
複素電流 I ，力率 cos θ および有効電力 P を計算して出力するプログラムを複素変数を使って作成せよ．
この場合も π の値はできるだけ正確な値を使うこと．ここで，抵抗 R，インダクタンス L，キャパシタ
ンス C ，に対する複素インピーダンスは，それぞれ，

ZR = R,ZL = iωL,

ZC =

1
iωC

である．ただし，ω = 2πf である．
また，それら 3 つのインピーダンスを直列につないだときに流れる複素電流 I ，力率 cos θ および有効
電力 P を計算するプログラムも作成せよ．

(1–7)

回路計算

5 個の抵抗 R1 ，R2 ，R3 ，R4 ，R5 がある時，この 5 個を直列にした時の合成抵抗 Rs ，5 個を並列にした時の合成抵抗 Rp ，および R1 と R2 を並列にしたものと R3 と R4 を並列にしたものと R5 とを直列にした時の合成抵抗 Rps を計算するプログラムを作成せよ．ただし，5 個の抵抗値は，要素数 5 の 1 次元
配列 R(5) で表すとする．

(1–8)

3 次元ベクトルと電磁気学

3 次元ベクトル A = (A1 , A2 , A3 ) を要素数 3 の 1 次元配列 a(3) で表すとする．まず電場ベクトル E ，
磁場ベクトル B を配列で表して適当な数値を代入する．次に荷電粒子の速度ベクトル v を配列で表して適当な数値を代入し，これらの配列から，内積 v • E ，および外積ベクトル v×B を計算するプログラ
ムを作成せよ．外積ベクトルも配列にすること．

(1–9)

2 行 2 列の行列計算()
a11 a122 行 2 列の行列，A =を，2 次元配列 a(2,2) で表すとする．2 個の 2 行 2 列の行列 A
a21 a22と B を表現する配列，a(2,2) と b(2,2) の各要素に適当な数値を代入して，A と B の足し算の行列
C = A + B，掛け算の行列 M = AB，および，それぞれの行列式 DA ，DB を計算するプログラムを作
成せよ．

–18–

第2章

手順の繰り返しと条件分岐

第 1 章で説明した基本的プログラミングは，単純な計算動作を並べたものであり，言ってみれば関数電卓の操作をプログラムという書式で表しただけに過ぎません．コンピュータの能力を使いこなすには，同じような動作を何度も繰り返したり，条件に応じて異なる動作をさせる手法の知識が必要です．本章
ではこれらの書き方について説明します．

2.1

手順の繰り返し — do 文

実行文は基本的に上から下へ順に実行されますが，それだけでは類似した手順を繰り返す時に，必要な回数だけ同じ文を書かねばなりません．そこで，ある範囲の手順を必要な回数だけ繰り返し行わせる手段として do 文があります．do 文を使う時の基本形は，

do 整数型変数 = 初期値, 終了値.......
.......
enddo
です．最初の do の行が do 文で，do 文と最後の enddo 文で範囲を指定した一連の実行文が繰り返し実行されます．この範囲を “ do ブロック ”といいます．また，プログラムの流れが循環するという意味で“ do ループ ”ともいいます．do 文の整数型変数を “ カウンタ変数 ”と呼びます．do ブロックの繰り返し
は，カウンタ変数に “ 初期値 ”を代入することから開始し，do ブロック内の手順を 1 回実行するごとにカウンタ変数を 1 増加します．そして，カウンタ変数が “ 終了値 ”より大きくなった時点で繰り返しは終了し，enddo 文の次の文に実行が移ります．例えば，

do m = 1, 10
a(m) = menddoと書けば，a(1)〜a(10) までの配列要素に，1〜10 までの数値が順に代入されます．do 文における，“ カウンタ変数＞終了値 ”の判定は do ブロックの開始時にも行うため，初期値が終了値より大きい場合にはブロック内部が一度も実行されずに enddo 文の次に実行が移ります．
次の do 文のように，整数値をもう一つ追加することで増加量を指定することもできます．

do 整数型変数 = 初期値, 終了値, 増分値.......
.......
enddo
このときカウンタ変数は初期値から開始して，“ 増分値 ”ずつ増加しながら do ブロック内の手順を繰り返し，“ カウンタ変数＞終了値 ”の時点で終了します．
例えば，m が 10 以下の奇数の時のみ計算をしたい時は，

do m = 1, 10, 2.......
.......
enddoと書きます．この時の終了値は 10 ですが，10 は奇数ではないので計算しません．
増分値は負数を指定することもできます．負数の時にはカウンタ変数が減少していくので，“ カウンタ変数＜終了値 ”になった時点で終了します．例えば，100 から順に下って 1 まで繰り返す時には以下のように書きます．

–19–

do m = 100, 1, -1.......
.......
enddo
増分値が負数の時には，“ 初期値＜終了値 ”ならば do ブロック内部は一度も実行されません．
do 文のカウンタ変数に増分値を加えるタイミングは，enddo 文の実行時です．例えば，

do m = 1, 3
a(m) = m**2
enddoという文は，

m = 1［m > 3 の判定をする．満足しないので，do ブロックを実行］
a(m) = m**2
m = m + 1
［m > 3 の判定をする．満足しないので，do ブロックを実行］
a(m) = m**2
m = m + 1
［m > 3 の判定をする．満足しないので，do ブロックを実行］
a(m) = m**2
m = m + 1
［m > 3 の判定をする．満足するので，do ブロックを終了］という動作になります．この展開からわかるように，do ブロックを終了した時点で，カウンタ変数には終了値より大きい値が代入されています．上例では，do ブロック終了後，m = 4 です．do ブロック終了
時の m の値を利用する時は，このことを考慮しなければなりません．
次のように，do ブロックの中に別の do ブロックを入れて多重にすることもできます．ただし，カウ
ンタ変数は異なるものを使わなければなりません．これは，do ブロック内でカウンタ変数を変更することが禁止されているからです．

do k = 1, 100a(k) = k**2
do m = 1, 10b(m,k) = m*a(k)**3
c(m,k) = b(m,k) + m*k
enddo
d(k) = a(k) + c(10,k)
enddo
よく使うので覚えておくと便利なのが，合計を計算する do 文です．例えば，n 要素の 1 次元配列，a(1),a(2), ..., a(n) の中に数値データが入っている場合，これらの合計 sum を求めるには do 文を使って以下のように書きます．

sum = 0do m = 1, n
sum = sum + a(m)enddo
この文が合計を計算していることを理解するには，やはり以下のように手動展開してみると良いでしょう．

–20–

sum = 0m = 1
sum = sum + a(m)m = m + 1
sum = sum + a(m)m = m + 1
sum = sum + a(m)m = m + 1......
ここで判定文は省略しました．このプログラムで重要なことは，do 文の前で変数 sum に 0 を代入していることです．これがないと正しい結果が得られないことがあります．このようなプログラムならではの書き方はパターンとして覚えておくと良いと思います．

2.2

条件分岐 — if 文

条件に応じて異なる手順を行わせることを “ 条件分岐 ”といい，if 文を使って指定します．最も単純に，一つの条件に応じて一つの文を実行するかしないかを決めるだけの時は単純 if 文を使います．単純if 文は以下の形式です．

if (条件) 実行文
単純 if 文はかっこ内の “ 条件 ”が満足されれば，その右の “ 実行文 ”を実行し，条件が満足されなければ何もしないで次の文に実行が移ります．例えば，

a = 5
if (i < 0) a = 10b = a**2と書くと，i < 0 の場合には a = 10 となり，それ以外は a = 5 のままなので，それに応じて b に代入される値が異なります．
しかし単純 if 文には実行文が一つしか書けないので，実行したい文が複数あるときには使えません．
また，条件に合った時の動作指定しかできないので，合わなかった時の動作を別に指定したい時には不便です．そこで，通常は単純 if 文ではなく，ブロック if 文を使います．ブロック if 文とは，if 文の実行文のところを then にした文のことで，以下のようにブロック if 文と endif 文で一連の実行文の範囲を指定します．

if (条件) then.......
.......
endif
この指定された範囲を “ if ブロック ”といい，ブロック if 文に書かれた条件を満足した時のみ，if ブ
ロック内の実行文が実行されます．例えば，

a = 5
b = 2
if (i < 0) thena = 10b = 6
endif
c = a*bと書くと，i < 0 の場合には a=10，b=6 の代入文を実行してから c=a*b を計算しますが，それ以外，すなわち i = 0 の場合には if ブロック内を実行しないので，a も b も変化せず，a=5，b=2 のままで c=a*b–21–

を計算します．
さて，この例では，i < 0 という条件を満足しないときには，あらかじめ a=5，b=2 という代入をする必要がありません．このように “ 条件を満足しない場合 ”に別の動作をさせたいときには if ブロック
内に else 文を挿入します．else 文を挿入すると，ブロック if 文で指定した条件を満足しない場合に，
else 文から endif 文までの実行文が実行されます．例えば上記のプログラムは，

if (i < 0) thena = 10
b = 6
else
a = 5
b = 2
endif
c = a*bと書くことができます．この if ブロックでは，i < 0 の場合には a=10，b=6 を実行，それ以外の場合には a=5，b=2 を実行します．
また，条件を満足しない場合に，さらに別の条件を指定したいときには else if 文を使います．else
if 文も条件はかっこで指定し，その後に then を書きます．

if (i < 0) thena = 10b = 6else if (i < 5) then
a = 4
b = 7
else
a = 5
b = 2
endif
c = a*b
この場合，i < 0 の場合には a=10，b=6 を実行，0 5 i < 5 の場合には a=4，b=7 を実行，それ以外 (i = 5)の場合は a=5，b=2 を実行，となります．else if 文による新たな条件は if ブロック内にいくつ入れてもかまいません．その場合は，“ その else if 文より以前の条件を全て満足しない場合に，その条件を満足すれば ”という意味になります．これに対し，else 文は最後の一回しか使えません．
数値計算でよく使う代表的な比較条件の書き方を表 2.1 に示します．
表 2.1 比較条件の書き方
比較条件記号

記号の意味

使用例

==

左辺と右辺が等しいとき

x == 10/=

左辺と右辺が等しくないとき

x+10 /= y-5>

左辺が右辺より大きいとき

2*x > 1000>=

左辺が右辺以上のとき

3*x+1 >= a(10)**2<

左辺が右辺より小さいとき

sin(x+10) < 0.5<=

左辺が右辺以下のとき

tan(x)+5 <= log(y)使用例のように，比較条件を指定する場合には両辺どちらにも計算式を書くことが可能です．
さらに表 2.2 の論理演算記号を使えば，これらの条件を論理的につないだ条件や，否定した条件を与えることもできます．

–22–

表 2.2 論理式の書き方
論理演算記号演算の意味

使用例“ 条件 1 ”.and.“ 条件 2 ”“ 条件 1 ”かつ “ 条件 2 ”のとき

x > 10 .and. 2*x <= 50“ 条件 1 ”.or.“ 条件 2 ”“ 条件 1 ”または “ 条件 2 ”のとき

x > 0 .or. y > 0.not.“ 条件 ”

“ 条件 ”を満足しないとき.not.(x < 0 .and. y > 0)

例えば，

if (i > 0 .and. i <= 5) thena = 10.0
else
a = 0.0
endifと書くと，i が 0 より大きく “ かつ ” 5 以下の時，すなわち，0 < i 5 5 のときに a = 10，それ以外は
a = 0 となります．なお，横着してこのブロック if 文を，

if (0 < i <= 5) then!

これはエラーと書くことはできないので注意しましょう．
do 文で繰り返し計算をする場合，“ n 回ごとに出力する ”というように，一定間隔で動作を変更したいことがあります．この場合には，表 1.3 に示した剰余を計算する組み込み関数 mod を利用して条件分岐をします．例えば，10 回に 1 回出力するなら，

do m = 1, 10000......
if (mod(m,10) == 0) print *,m,x,y......
enddoのように書きます．プログラムというのは，基本的に全て計算であり，流れのコントロールも計算結果を使って行わなければなりません．このようなケースで mod を使うのは，パターンの一つとして覚えておくと良いでしょう．

2.3

無条件ジャンプ — goto 文，exit 文，cycle 文

プログラムというのは基本的に上から順に実行していくものです．do 文を使えば，do ブロックで指定した範囲の実行文を所定の回数繰り返すことができますが，繰り返す範囲は固定されているし，繰り返しを終了する条件はカウンタ変数の増加で決まります．
これに対し，より一般的にプログラムの流れを変えたい時，例えば途中で計算を中断してプログラムの最初からやり直す，とか，最後の文に一気に移動して終了する，とかいう時には goto 文を使います．
goto 文を使えば，指定した行へ強制的に移動することができます．計算機的には，これを “ ジャンプする ”といいます．
goto 文とは，以下のように goto の後に “ 文番号 ”と呼ばれる整数を指定した文です．

goto 文番号
これに対し，この goto 文でジャンプしたい先の行には，以下のように実行文の前にスペースを 1 個以上空けて文番号を書きます．
文番号 実行文–23–

goto 文を使ったプログラム例を以下に示します．
cd = 10
goto 11
cd = 50
ab = 20
ij = 111 ab = 1000!

文番号 11 の行へジャンプ!

この行へジャンプ

最後の行で ab=1000 の前に書かれた 11 が文番号です．この例では，最初の cd=10 の実行後，cd=50 から ij=1 までの文は実行されず，直ちに ab=1000 が実行されます．すなわち，cd=50，ab=20, ij=1 の文は書いていないのと等価です．このように有無をいわさずジャンプすることを “ 無条件ジャンプ ”といいます．
goto 文でバックすることも可能です．例えば，次のように書けば，指定した文番号 22 の行と goto 文の間の動作を繰り返し実行します．

cd = 50
22 ab = 200
cd = cd + ab - ef
ef = 10
goto 22ij = 1!

この行へジャンプ

!

文番号 22 の行へジャンプ

もっとも，この例ではいつまでたっても goto 文の次の ij=1 は実行されません．こういうのは “ 無限ループ ”と呼ばれ，プログラムエラーの一つです．計算結果に応じて条件分岐し，goto 文より下の行へ
ジャンプする別の goto 文や，プログラム自体を終了させる stop 文を挿入しなければ，プログラムは永遠に終了しません．
文番号は行の指定に使うだけなので，重複さえしなければどの行にどんな数値を付けても良いのですが，なるべく下に行くほど大きくなるように数値を選びます．また，文番号を特定の実行文に付けると，変更する時に付け替えが面倒だと思う時には continue 文を挿入します．continue 文に動作は無く，文
番号で位置を指定するためだけに用います．例えば，上記のプログラムは，

cd = 50
22 continue
ab = 200
cd = cd + ab - ef
ef = 10
goto 22ij = 1!

この行は動作がないと等価です．
goto 文は，多用するとプログラムの流れがわかりにくくなるし，無限ループに陥る可能性もあるので使用はできるだけ避けるべきです．基本的な繰り返しや，条件に応じたジャンプは do ブロックと if ブ
ロックでほとんどすべて書くことができます．
do ブロックを使って繰り返し計算をする時，条件によって途中で繰り返しを終了したい場合があります．この場合，原理的には goto 文を使わなければなりませんが，goto 文の使用を極力避けるという方
針から，exit 文が用意されています．do ブロック中で exit 文を実行すると，その do ブロックの外に飛び出して enddo 文の直後から実行を継続します．
例えば，要素数 n の配列 a(n) に代入されている値を条件付きで平均するため，–24–sum = 0
do m = 1, n
sum = sum + a(m)if (sum > 100) exit
enddo
ave = sum/nのように書いたプログラムは，次の goto 文を使ったプログラムと等価です9 ．

sum = 0do m = 1, n
sum = sum + a(m)if (sum > 100) goto 10
enddo
10 ave = sum/n
なお，do ブロックの中から外へのジャンプはできますが，外から中に入るジャンプは禁止されています．
do ブロックの途中で実行を中断し，残りの部分をスキップしてカウンタ変数を進める時には cycle 文を使います．例えば，

do m = 1, n
sum = sum + a(m)if (sum > 100) cycle
sum = sum*2
enddoのように書いたプログラムは，次の goto 文を使ったものと同じです．

do m = 1, n
sum = sum + a(m)if (sum > 100) goto 10
sum = sum*2
10 enddo
すなわち，cycle 文の実行は enddo 文にジャンプするのと等価です．enddo 文にジャンプすれば，カウ
ンタ変数 m を増加して，m > n かどうかをチェックした後，条件を満足しなければ再び do ブロックを最初から実行することになります．ただし，cycle 文は do ブロック内部の制御なので次のように if ブロックを使って同じ動作をさせることができます．

do m = 1, n
sum = sum + a(m)if (sum <= 100) thensum = sum*2
endif
enddo
この方が，条件に応じた動作を明示している点で良いと思います．goto 文を多用しない方がよい，という意味合いと同じで，cycle 文を使うとプログラムがわかりにくくなるのであまり使わない方が良いと思います．
なお，do ブロックが多重の場合，exit 文や cycle 文はその文を含む最も内側の do ブロックに対しての動作になります．より外側の do ブロックの外に抜け出たいなどの場合には，do 文にラベルを付けてexit 文や cycle 文のジャンプ先を指定します．
ラベルを付けるには，do 文と enddo 文の 2 箇所にラベル名を付加します．例えば，

9

このプログラムを修正して，合計した要素 a(1)〜a(m) の平均値を計算したい場合には，単に n の代わりに m で割るように書き換えるだけでは不完全です．なぜだか考えてみましょう．

–25–

sum = 0
out: do m = 1, n
do l = 1, n
sum = sum + a(l,m)
if (sum > 100) exit out
enddo
enddo out
ave = sum/nのように書くことができます．“ out ”がラベル名です．do 文に付加するラベルは，ラベル名の最後にコロン (:) を付けて，do の前に書きます．これに対し，enddo 文に付加するラベルは，対応する do 文と同じラベル名を enddo の後ろにスペースを入れて書きます．コロンは不要です．このプログラムは，

sum = 0do m = 1, n
do l = 1, n
sum = sum + a(l,m)
if (sum > 100) goto 10
enddo
enddo
10 ave = sum/nと等価です．なお，複数の do 文にラベルを付けるときは，ラベル名が重複しないようにして下さい．

2.4

プログラミング スマートテクニック (その 2)

本節では do ループを使うときのテクニックや，プログラムを読みやすくするためのヒントをいくつか紹介します．do 文や if 文がマスターできれば，本格的なプログラムが書けるようになります．大量のデータを処理する計算ができるし，色々な計算処理機能を複合して，条件に応じて使い分けることも可能です．それに伴ってプログラムが長くなりますから，「文法的に間違いがなければ良い」という考えで書くのではなく，読みやすいプログラムになるよう心がける必要があります．ここで，“ 読みやすいプ
ログラム ”というのは，チェックがしやすいプログラムのことです．読みやすく書いておけば，書き間違いに気付きやすいし，実行時にエラーが出ても早期に誤りを発見することができます．以下のヒント
は，プログラミングの初心者が読むと「細かいことだから無視してもいいや」と感じるかもしれません
が，慣れればそれほど手間ではありません．面倒がらずに心がけましょう．

2.4.1

do ループのテクニック

do ブロック内部に同じ計算を繰り返す記述があるときには，あらかじめ計算をしておきます．例えば，
do i = 1, 10000
a(i) = b(i)*c*f**2
b(i) = sin(x)*a(i)enddoと書くと，繰り返しごとに c*f**2 や sin(x) を計算することになりますが，これらは do ブロック内部
では変化しないのですから，あらかじめ計算しておくと速くなります．例えば，

cf = c*f**2
sx = sin(x)do i = 1, 10000
a(i) = b(i)*cf
b(i) = sx*a(i)enddoのように書き換えると速くなります．

–26–

また，do ブロック内で何度も同じ割り算をするときには，逆数を掛けるように書き換えると速くなります．これは，割り算が遅いからです．例えば，

do i = 1, 10000
a(i) = b(i)/cx(i) = a(i)/10.0
enddoと書くより，

d = 1.0/c
do i = 1, 10000
a(i) = b(i)*dx(i) = a(i)*0.1
enddoと書く方が速くなります．もっとも，プログラムがわかりにくくなるという欠点もあるので，割り算の箇所が少なく，繰り返し回数がさほど多くない時にはそれほど神経質に変形する必要はないと思います．
配列を使った繰り返し計算をするときは，メモリをできるだけ連続的に読み書きする方が速くなります．このため，多重 do ブロックを使って 2 次元以上の配列計算をするときは，左の要素から先に進める
ようにします．例えば，

real b(10,100)
integer m,n
do n = 1, 100
do m = 1, 10b(m,n) = m*n
enddo
enddo

!

左の要素を先に進めると速いのように，2 次元配列 b(m,n) に計算結果を代入するときは，左側の要素 m に関する do ブロックを右側の要素 n の do ブロックの内側に持ってくる方が高速です．これは，内側の do ブロックのカウンタ変数が先に進むので，b(1,1),b(2,1),b(3,1)…のように，メモリの並んでいる順に格納していくからです．
これを，real b(10,100)
integer m,ndo m = 1, 10
do n = 1, 100b(m,n) = m*n
enddo
enddo

!

右の要素を先に進めると遅いのように書くと，b(1,1),b(1,2),b(1,3)…のように飛び飛びに格納していくので効率が悪くなり，ス
ピードダウンします．
大きな数に小さい数を加えると，小さい数が桁落ちして情報が失われる可能性があります．例えば，1次元配列 a(i) の合計 sum を計算するプログラムは，

sum = 0do i = 1, n
sum = sum + a(i)enddoで良いのですが，a(i) が全て正数で，n が非常に大きい場合には，合計 sum がだんだん大きくなってい
くので，後の方で加えた a(i) の情報が失われる可能性があります．倍精度実数を使うことを推奨している理由の一つがこれです．この桁落ちを防ぐには，例えば，2 個ずつ加えてそれらを別の配列に入れ，その後それらを同様に 2 個ずつ加えていって，... とするのが良いのですが，プログラムが複雑になっ–27–

てしまいます．
ひとつの比較的簡単な解決法は，補助変数を使って，誤差を別に評価しておく方法です [2]．

sum = 0res = 0do i = 1, n
res = res + a(i)tmp = sum
sum = sum + res
tmp = sum - tmp
res = res - tmp
enddo
この方法では，桁落ち分を補助変数 res に保存して別途加えるので，計算精度が上がります．倍精度計
算をしていれば必ずしもこの方法にする必要はありませんが，精度の良い合計計算が必要になった時のために覚えておくと良い方法です．

2.4.2

多項式を計算する手法

多項式を計算するときは，掛け算の回数ができるだけ少なくなるように考えます．一般的に良い計算手法は horner 法です．例えば，

y = a0 + a1 x + a2 x2 + a3 x3 + a4 x4を，乗算を明示してプログラムにすると，

y = a0 + a1*x + a2*x*x + a3*x*x*x + a4*x*x*x*xのようになり，10 回の乗算が必要です．ところが，これを変形して，

y = a0 + (a1 + (a2 + (a3 + a4*x)*x)*x)*xと書けば，4 回の乗算で計算できます．これが horner 法です．
一般的に，n 次の多項式，

y = a0 + a1 x + a2 x2 + · · · + an xn
における係数 a0 , a1 , a2 , ..., an が，下限が 0 の 1 次元配列，a(0),a(1),a(2),...,a(n) にそれぞれ代入されている場合には，次のような do 文を使って計算することができます．

y = a(n)do i = n-1, 0, -1
y = a(i) + x*y
enddo
なお，x8 + 1 は ((x2 )2 )2 + 1 のように変形すれば 3 回の乗算で計算できます．すなわち，多項式によっては horner 法より速く計算できる手順が存在することもあります．

2.4.3

do while 文と無条件 do 文

do 文には，2.1 節で述べた基本形の他に，条件でループの動作を続けるか終了するかを決める形式も用意されています．これが do while 文です．do while 文は以下のような書式です．
do while (条件).......
.......
enddo

–28–

この場合，do while 文の条件を満足しなくなるまで，その do ブロック内部を繰り返し実行します．もし条件を満足しなければ，do ブロックは終了して enddo 文の次に実行が移ります．例えば，

integer nn = 100
do while (n > 0)n = n/2
print *,nenddoと書けば，n を 2 で割っていって，0 になった時点でループが終了します．ここで，n を整数型にしているところがポイントです．実数型だとループがいつ終了するかわかりません．
また，“ do のみ ”の do 文もあります．この場合，do ループを終了させる条件がないので，do 文と enddo
文で指定した範囲をいつまでも繰り返します．例えば，

dosum = sum + x**2
if (sum > 100) exit
x = 1.2*x + 0.5
enddoと書くと，sum が 100 を超えるまで計算を続けます．この無条件 do 文を使うときは，ブロック内部に適切な条件分岐で外に出る記述を入れておかないと，無限ループになって永遠に終了しないので注意して
下さい．

2.4.4

0.1 を 10 回足しても 1 に等しくならない

実数型を使って条件分岐をするときに注意しなければならないことがあります．次のプログラムを考えてみましょう．

real xinteger m
x = 0.0
do m = 1, 20
x = x + 0.1
if (x == 1.0) exit
enddo
print *,’x = ’,x!

0.1 を繰り返し加える

この do ループは，実数型変数 x に 0.1 を繰り返し加えていきますが，ループの 10 回目で if 文の条件「xが 1.0 に等しい」を満足し，exit 文によりループの外に出て，print 文の出力は 1.0 になると予想されます．しかし，実際にやってみるとわかりますが，print 文の出力は 2.0 です．つまり，if 文の条件は満足しない，すなわち，x が 1.0 に等しくなることはないのです．なぜでしょうか．
これは，コンピュータが 2 進数で計算しているためです．1.4.1 節で述べたように，10 進数で 123 と表現される数を 2 の多項式で表せば，

123 = 1 × 26 + 1 × 25 + 1 × 24 + 1 × 23 + 0 × 22 + 1 × 21 + 1 × 20となり，これが 2 進数で表したときに 1111011 となる理由でした．コンピュータの数値は全て 2 進数なのですから，小数点以下の数値も 2 進数で表さねばなりません．例えば，10 進数の 0.123 は

0.123 = 1 × 10−1 + 2 × 10−2 + 3 × 10−2のように，10 の負べき乗を基本として表された数のことですが，これと同様に，2 進数で小数点以下の数 x を表すには，–29–

x = b1 × 2−1 + b2 × 2−2 + b3 × 2−2 + · · ·となるような 0 または 1 の係数 b1 , b2 , b3 , · · · を選んで，0. b1 b2 b3 · · ·と並べます．コンピュータはこの係数 b1 , b2 , b3 , · · · で小数点以下を表現しています．
さて，コンピュータのメモリで表現できる 2 進数の桁 (bit 数) には限りがあるので，小数はどこかで打ち切る必要があります．ところが，2 進数の場合，有限小数で表せるのは，2−n の和だけです．例えば，0.5 (=2−1 ) や 0.125 (=2−3 ) やその和である 0.625 は有限の 2 進小数で表すことができますが，2−nの和で表せない数値は無限小数になってしまいます．例えば，10 進数の 0.1 は，

0.1 = 0×2−1 + 0×2−2 + 0×2−3 + 1×2−4 + 1×2−5 + 0×2−6 + 0×2−7 + 1×2−8 + 1×2−9 · · ·となり，2 進数で表せば，0.0001100110011... という循環小数になります．よって，コンピュータにおける 0.1 は近似値でしかなく，10 回加えても 1 に等しくなりません．
このように，実数計算をするときは 10 進数と 2 進数の違いを考慮してプログラムを書かないと，予想外の結果になることがあります10 ．また，同じ少数点以下の数を繰り返し加えるときには，回数を掛け算した方が精度が上がります．例えば，

real xinteger m
x = 0.0
do m = 1, 100
x = x + 0.1.......
enddoと書くよりも，

real xinteger m
do m = 1, 100
x = 0.1*m.......
enddoと書く方が，x の精度は上がります．

2.4.5

ブロックを明確にするために字下げする

これまでのプログラム例でも示していますが，do や if などのブロック中では字下げ (インデント) をしましょう．これは，ブロックの範囲が一目でわかるからです．
例えば，if ブロック，if (n < 0) thenx = 10.0
else if (n < 10) thenx = 1.0
else
x = 0.0
endif

10

ちなみに，この理屈で言えば，0.1×10 という掛け算も 1.0 と等しくならないはずですが，手元のパソコンでやってみるとif 文を満足しました．これは，四捨五入のように計算結果を丸めるためです．しかし，丸め方はハードウェアやコンパイラの仕様に依存するので，それを期待してプログラムを書くのは避けた方が無難だと思います．

–30–

や do ブロック，

do i = 1, nb(i) = a(i)c(i) = a(i)*sin(b(x))
enddoのように，ブロック内部の文をスペースを入れてずらせておくとブロックの範囲が一目で判断できます．
通常，2〜4 個のスペース程度で良いと思います．
最近のエディタには，オートインデントといって，改行するとその前の行と先頭がそろうようにカーソルが移動する機能があるので，インデントをするのはそれほどの手間ではありません．

2.4.6

文字間や行間は適当に空ける

文中の文字間は適当に空けたほうが読みやすくなります．筆者は “ = ”と “ + ”の両側に必ずスペースを入れることにしています．また，代入文が何行も続くときには “ = ”を上下にそろえると読みやすくなります．特に，同じパターンで少しずつ内容が違う文を並べるときには，パターンが並ぶようにスペースを入れることをお勧めします．以下は，筆者のシミュレーションプログラムの一部です．

wm( 1,m1) = (1-dx)*(1-dy)*(1-dz)
wm( 2,m1) =dx *(1-dy)*(1-dz)
wm( 3,m1) = (1-dx)*
dy *(1-dz)
wm( 4,m1) =dx *dy *(1-dz)
wm(11,m1) = (1-dx)*(1-dy)*dz
wm(12,m1) =dx *(1-dy)*dz
wm(13,m1) = (1-dx)*
dy *dz
wm(14,m1) =
dx *
dy *
dz
これをスペース抜きで書くと，以下のようになります．

wm(1,m1)=(1-dx)*(1-dy)*(1-dz)
wm(2,m1)=dx*(1-dy)*(1-dz)
wm(3,m1)=(1-dx)*dy*(1-dz)
wm(4,m1)=dx*dy*(1-dz)
wm(11,m1)=(1-dx)*(1-dy)*dz
wm(12,m1)=dx*(1-dy)*dz
wm(13,m1)=(1-dx)*dy*dz
wm(14,m1)=dx*dy*dz
この二つは全く同じことが書いてあるのですから全く同じ結果を出します．しかし，パターンをそろえた前者は単なる美的趣味でスペースを入れたのではありません．この例では，どこか１カ所，例えば
dx を dy に書き間違えただけでも正しい結果が得られません．しかも，dx と dy を書き間違えても文法的なミスにはならず，出力結果を見ても間違いに気づかない可能性があります．よって，できるだけプ
ログラムを書いている段階でミスを取り除いておかねばなりません．
この時，前者のようにパターンをそろえておけば，横方向に一行一行チェックするだけでなく縦方向にも比較しながらチェックすることができます．色々な角度からチェックすることで，ミスのないプログラムにすることができるのです．
この他，文と文の間に，適当なコメント文や何も書いていない行を挿入すれば，プログラムの流れに区切りができて読みやすくなります．これは文章を段落に分けるように，プログラムを区分けすると考えればいいでしょう．

2.4.7

定数は意味のある名前をつけた変数に代入して使う

数学的に決まっている単純な定数 (2 倍するとか，1 を加えるとか，3 乗するとか) の場合以外は，できるだけ定数の使用量を減らすほうがいいと思います．プログラムを書いている時には理解していても時–31–

間が経ってから読んだ時に意味がわからなくなる可能性があるからです．
例えば，電子の質量 me (= 9.10938356×10−31 kg) と光の速度 c (= 2.99792458×108 m/s) を使って計算すれば me c2 = 8.1871056497×10−14 J ですが，これを単位とするエネルギー，energy/me c2 を計算するプログラムを，

ene = energy/8.1871056497e-14と書くと，後で 8.1871056497×10−14 という数字がどこから来たのかわからなくなる可能性があります．
こういう時には多少面倒でも，

me = 9.10938356e-31
cl = 2.99792458e8
mc2 = me*cl**2
ene = energy/mc2

!
!

電子の質量
真空中の光速としておけば，わかりやすいしプログラム内容の記録にもなります．
また，do ブロックを 100 回繰り返す，とか，10 回ごとに出力する，とかいう制御数も，変数にしておけば数値の意味が明示されるし，変更もしやすくなります．例えば，

do i = 1, 100a(i) = b(i)**2
enddo
sum = 0do i = 1, 100
sum = sum + a(i)enddo
ave = sum/100!

100 が 1 個!

100 が 1 個!

100 が 1 個というプログラムにおいて，100 という数は配列要素数に依存する共通の数値ですから，以下のように変数にします．

imax = 100
do i = 1, imax
a(i) = b(i)**2
enddo
sum = 0do i = 1, imax
sum = sum + a(i)enddo
ave = sum/imax!

100 を変更するときはここだけで OK

こうしておけば意味がはっきりするし，100 を 200 に変更したい時には変更点が１カ所ですみます．このような変数化はプログラムが長くなるほど価値が増します．

–32–

演習問題2(2–1)

繰り返し出力

(2–2)

統計計算

√
i=1,2,3,...,n の整数に対し，i，i2 ，1/i， i の値を並べて出力するプログラムを作成せよ．なお，整数と実数の変換に注意すること．

1 次元配列，a(n) に，1,2,3,... のデータを順に n 個代入し，
1∑
Ai
n
i=1
v
u n
u1 ∑
標準偏差 σ = t(Ai − Ā)2
n
n

平

均 Ā=

i=1

を計算するプログラムを作成せよ．
次に，a(n) に 1,3,5,... と奇数を順に n 個入れて，同様に平均と標準偏差を計算するプログラムを追加
せよ．

(2–3)

定積分

等間隔 h ごとに並んだ座標点 x1 (= a)，x2 ，· · · ，xn (= b) に対して，関数値，f (x1 )，f (x2 )，· · · ，f (xn )が与えられているとする．このとき f (x) の定積分を(∫ b
f (x)dx ＝ ha)1
1
f (x1 ) + f (x2 ) + · · · + f (xn−1 ) + f (xn )22と近似的に計算する方法を台形公式という．以下に与えた関数と積分範囲の定積分値を台形公式を使って計算せよ．その際，分割数 n が大きくなるほど正確な値に近づくことも確かめよ．

(1) f (x) = sin(x)，a = 0，b = π(2) f (x) = (x − 2)3 ，a = 1，b = 5

(2–4)

漸化式

次の漸化式で計算される数値を，それぞれ，配列 a(n)，b(n) に代入し，それぞれの平均と標準偏差を計算せよ．

(1) ai+1 = 3ai + 2，
2(2) bi+1 = bi − 4，3–33–

a1 = −1b1 = 3(2–5)

テーラー展開テーラー展開の公式から指数関数や三角関数を計算するプログラムを作成せよ．ただし，第 0 項から
第 n 項までの指数関数と三角関数のテーラー展開の係数は以下の通りである．

ex

= 1+

cos x = 1 −sin x = x −

x
x2 x3
xn
+
+
··· +
1!
2!
3!
n!

=

x2n
x2 x4
+
· · · + (−1)n
2!
4!
(2n)!

=

x3
3!

+

x5
5!

· · · + (−1)nx2n+1(2n + 1)!

n
∑
xi
i=0
n
∑

i!

(−1)i

i=0

x2i
(2i)!

n
∑
x2i+1
=
(−1)i
(2i + 1)!
i=0

次数 n と変数値 x は複数個選んで計算し，組み込み関数で計算した値と比較して，n が大きくなるほ
ど正確な関数値に近づくこと，x が大きくなるほど近似が悪くなることなどを確かめよ．

(2–6)

2 次方程式の解 (解の判別付き)

3 個の実変数 a，b，c に適当な値を代入し，それから，
ax2 + bx + c = 0の解を計算して出力するプログラムを作成せよ．まず，解の判別式，D = b2 − 4ac，を計算して，2 実
解になった時，重解になった時，虚解になった時でそれぞれ正しい結果を出力するようにせよ．さらに，その解を ax2 + bx + c に代入して 0 に近い値になることを，判別式の値と数値型に応じて計算手順を変えて確かめよ．

(2–7)

非線形方程式の解法：逐次代入法

x0 = 0 として，次のように次々に代入していくと，xn は徐々に cos x = x の解に近づくことがわかっている．
x1 = cos x0
x2 = cos x1
x3 = cos x2.
.
.
xn+1 = cos xn
最初に，この代入を 100 回繰り返し，その後で 101 回目の値 x101 と 100 回目の値 x100 の差を計算するプログラムを作成せよ．
それができたら，収束条件を |xn+1 − xn | < ε とし，ε を適当に小さい値に定めて (例えば，10−7 )，収束したら xn を出力して終了するプログラムにせよ．このとき，収束するまでの回数も出力せよ．
なお，この問題では配列を使わないこと．

–34–

(2–8)

非線形方程式の解法：Newton 法

次の公式を繰り返し用いて方程式 f (x) = 0 の解を近似的に求めるアルゴリズムを Newton 法という．

xn+1 = xn −f (xn )
f 0 (xn )以下の関数 f (x) に対し，適当な初期値 x0 を与えて Newton 法で解を求めるプログラムを作成せよ．
また収束条件を |xn+1 − xn | < ε とし，ε は適当に定めよ．このとき，収束するまでの回数も出力せよ．

(1) f (x) = x − cos(x)(2) f (x) = x3 − 2
それぞれの問題に対し，得られた結果を f (x) に代入して，答えがどの程度 0 に近いかを確認せよ．

(2–9)

常微分方程式 (初期値問題) の解法：サイクロトロン運動

一様な磁場中での荷電粒子の速度 v(t) = (u(t), v(t)) は次の運動方程式を満足する．この運動方程式をオイラー法で解け．ただし，サイクロトロン周波数 ωc は一定とする．

du= ωc vdt
dv= −ωc udt
ここで 1 回の時間ステップを ∆t として fn = f (n∆t) とした時に，オイラー法とは n ステップ目の値
df
fn+1 − fn
fn と n + 1 ステップ目の値 fn+1 を使って'という近似で時間微分を評価する方法であdt∆tる．例えば，x 方向は
un+1 − un= ωc vn∆tと近似できるから，これを変形して，un+1 = un + ωc vn ∆t となる．vn+1 も同様に変形すれば，オイラー法とは次の連立の漸化式を使って (un , vn ) から (un+1 , vn+1 ) を計算することである．

un+1 = un + ωc vn ∆t
vn+1 = vn − ωc un ∆t2πを適当な回数 N で分割して ∆t を決定し，初期条件 u0 = 1，v0 = 0 から出発して，オイラー
ωc法で N 回計算するようなプログラムを作成せよ．そして，その結果得られる 1 周期後の速度，uN ，vNと u0 ，v0 を比較せよ．また，10 周期後の速度，u10N ，v10N とも比較せよ．
次に，オイラー法を少し修正したシンプレクティック法，(vn+1 の式に注意！ )1 周期

un+1 = un + ωc vn ∆t
vn+1 = vn − ωc un+1 ∆tのプログラムを作成し，オイラー法の結果と比較せよ．
なお，以上のプログラムは 配列を使わないで作成すること．

–35–

(2–10)常微分方程式 (境界値問題) の解法：1 次元ポワソン方程式

電荷密度 ρ(x) が与えられているときに電位が満足する 1 次元ポワソン方程式

d2 V (x)= −ρ(x)dx2を解くには，以下のようにする．
等間隔 h ごとに並んだ x 座標点 xi = hi, (i = 0〜N ) に対して，Vi = V (xi )，ρi = ρ(xi ) として，上式の左辺を差分で近似すれば，

Vi+1 − 2Vi + Vi−1
= −ρih2となる．これを座標点に関して書き下せば，

V0 − 2V1 + V2 = −ρ1 h2
V1 − 2V2 + V3 = −ρ2 h2
V2 − 2V3 + V4 = −ρ3 h2.
.
.
VN −2 − 2VN −1 + VN = −ρN −1 h2になるが，両端の電位 V0 = V (x0 )，VN = V (xN ) が与えられていれば，これらは V1 ，V2 ，· · · ，VN −1 に対する連立 1 次方程式になる．
一般に，連立 1 次方程式，（i = 1, 2, . . . , N − 1）ai Vi−1 + bi Vi + ci Vi+1 = diを V0 と VN を与えて解くときには，まず，G0 = 0，H0 = V0 から出発して，

Gi = −

ci,bi + ai Gi−1

Hi =di − ai Hi−1
bi + ai Gi−1

（i = 1, 2, . . . , N − 1）を計算し，次に，Vi を以下の式で計算する (計算の方向に注意！ )．
（i = N − 1, N − 2, . . . , 1）

Vi = Gi Vi+1 + Hi

以上の方法を用いて，次の 2 種類の電荷密度と境界条件における電位を計算するプログラムを作成
せよ．

(1) ρ(x) = 0(2) ρ(x) = sin

(

2πx
Nh

)

境界条件は，V0 = 0，VN = 1
境界条件は，V0 = 0，VN = 0

–36–

第3章

サブルーチン

ここまで，Fortran の基本的な文法と高速化のテクニック，エラーの出にくいプログラムの書き方などを説明しました．ここまでの知識を使うだけで，原理的にはどんなプログラムを作ることも可能です．
プログラムとは計算機に仕事をさせるための手順ですから，それほどバラエティはありません．動作の繰り返しを書くための do 文や，条件分岐の if 文が使いこなせれば，計算機の能力のほとんどを引き出すことができます．
しかし長いプログラムを書くときは，メンテナンスのしやすさを考慮して書かなければなりません．
プログラムが短ければ全体を見ながらチェックや修正ができますが，長くなるとチェックに時間がかかり，見落としによる修正ミスが起こる可能性も高くなります．見落としを防ぐには何度も見直す必要があり，チェック時間はさらに増大します．
このメンテナンスを容易にする手法の一つが “ サブルーチン ”です．サブルーチンとはメインプログ
ラムと同じレベルの閉じたプログラムのことで，必要に応じて他のプログラムから呼び出してその機能を使います．長いプログラムをサブルーチンに分割し，それらをビルディングブロックとして全体を構成すれば，プログラム作成や修正の作業が楽になります．本章ではこのサブルーチンの作り方と使い方を説明します．

3.1

サブルーチンの利用目的“ ルーチン ”とは，動作開始点と終了点が定義されている閉じたプログラム手順を示す用語です．プロ
グラムを起動したときに最初に動作するのはメインプログラムですが，これを “ メインルーチン ”ともいいます．“ サブルーチン ”は，メインプログラムと同様に動作開始点と終了点を持っていますが，メインプログラムと異なり，単独で動作することはできません．必ず，他のルーチンに動作開始命令を記述して，必要に応じて実行させる必要があります．一つのプログラムにメインプログラムは一つですが，サブルーチンは名前が異なれば複数存在してもかまいません．また，いくつかのルーチンごとにファイルを作成して別々にコンパイルし，必要に応じて結合 (リンク) させることも可能です．
サブルーチンを利用する目的は主として３つあります．
(1) 複数の場所で同じ計算手順を使用するため(2) 方程式の解法や行列式の計算などのような定型処理をするため(3) 長いプログラムを分割してメンテナンスを容易にするため(1) がサブルーチン本来の使い方です．ある一連の手順を複数の場所で使うとき，それぞれの場所に同じプログラムを書くと，プログラムが長くなるし，修正の際に何カ所も同じ修正をしなければなりません．このとき，その手順をサブルーチンに置き換えれば，プログラムは短くなるし，チェック作業も短縮されます．
(2) は (1) を発展させたものです．複雑な数学公式や汎用性のある数値計算アルゴリズムをプログラム
中に直接記述するときは，プログラム中で宣言された変数や配列を使って書きます．このため，同じ計算手順を別のプログラムで使いたくてもそのまま使えるとは限りません．そこで計算手順をサブルーチ
ンにして，計算に必要な数値を与える部分と計算結果の数値を受け取る部分だけが外部から見えるようにしておきます．そうすれば，受け渡し部を書き換えるだけで，複雑な計算手順を色々なプログラムから利用することができます．このようにブラックボックス化したサブルーチンは，他の人に提供したり，他の人からもらって利用することも可能で，そのような汎用性のあるサブルーチンを集めたものが，“ ライブラリ ”です．
さて，計算機シミュレーションのように多数の解析手順を複合したプログラムを書く場合には，(3) の目的が重要になります．様々な物理過程の計算や，入出力に関する作業など，ある程度まとまった内容
ごとにサブルーチンにするのです．文章でいえば，章や節に分割するようなものです．このため，メイ–37–

ンプログラムには，それぞれのサブルーチンを呼び出す文と，必要ならそれらを繰り返すための do 文だ
けを書いておきます．シミュレーションプログラムは，サブルーチンという部品を使って組み立てるものだと考えればいいでしょう．
サブルーチンに分割しておけば，プログラムのメンテナンスが楽になります．これは，それぞれのルーチンが独立しているので，プログラムを修正したときの影響や，エラーが発生する原因がルーチン内に限定されるからです．

3.2

サブルーチンの宣言と呼び出し

サブルーチンは subroutine 文で開始を宣言し，end subroutine 文で終了します．すなわち，次のような構造にします．

subroutine subr1
implicit none
real a,b
integer i.......
.......
end subroutine subr1
先頭の subroutine 文で，subroutine の後に指定した文字の並び (この例では subr1) を “ サブルーチ
ン名 ”といいます．また，最後の end subroutine 文には subroutine 文と同じサブルーチン名を指定します．見てわかるように，メインプログラムと同じ構造です．サブルーチン内部のプログラムの書き方も基本的にメインプログラムと同じで，subroutine 文の次に implicit none を書き，非実行文を上方に集約して，その後に実行文を書きます．サブルーチンはそれ自体で閉じているので，実行文中で使う変数や配列は，基本的にその内部で宣言しなければなりません．ただし，異なるルーチン間で共用可能な変数を別途用意することは可能です．これについては，3.7 節で説明します．
上の例では，subroutine 文にサブルーチン名しかありませんが，これを “ 引数なしサブルーチン ”といいます．これに対して，サブルーチン名の後に，かっこで囲んだ変数リストを付加することができ，これを “ 引数ありサブルーチン ”といいます．以下に引数ありサブルーチンの一例を示します．

subroutine subr2(x,m,y,n)
implicit none
real x,y,a,b,z(10)integer m,n,i,k.......
.......
end subroutine subr2
リスト中の変数を “ 引数 ”といいます．この例では，x,m,y,n が引数です．引数は，サブルーチンとそのサブルーチンを使うルーチンの間で数値を受け渡すために使います．引数もサブルーチン内部の変数なので，必要な型に応じた宣言をしなければなりません．
サブルーチンを動作させてその機能を使うときは，call 文を使ってそのサブルーチンを指名します．
このため，サブルーチンの動作を指定することを，“ サブルーチンを呼び出す ”とか “ コールする ”といいます．call 文は以下のような形式です．

call サブルーチン名
call サブルーチン名 (数値または変数のリスト)! 引数なしサブルーチン用! 引数ありサブルーチン用

例えば，先ほど出てきた，引数なしと引数ありの二つのサブルーチンを使うときは，それぞれ，次の (1)と (2) のようにコールします．

–38–

real zinteger mcall subr1!........................ (1)m = 21
call subr2(10.0,100,z,m*5+1)!..... (2)1.2.1 節で説明したように，計算式は計算結果の数値を動作命令に与えるので，call 文の引数には，(2)の一番右のように計算式を与えることもできます．
サブルーチンは単独では動作できないので，メインプログラムが別途必要です．例えば，次のようなセットを構成して初めて一つのプログラムが完成します．
program stest1
implicit none
real x,yx = 5.0
y = 100.0
call subr(x,y,10)
print *,x,y
end program stest1!

サブルーチンの呼び出し

subroutine subr(x,y,n)
implicit none
real x,y
integer nx = ny = y*x
end subroutine subr
ここでは，メインプログラムを先に，サブルーチンを後に書きましたが，逆でもかまいません．サブ
ルーチンが複数存在する場合も，ルーチンを記述する順番は実行結果とは無関係です．サブルーチンの中から別のサブルーチンをコールすることも可能です．
上記のプログラム実行の流れを図 3.1 に示します．

メインプログラム

サブルーチンプログラム領域

実行の流れ

program stest1
implicit none
real x,yx = 5.0
y = 100.0
call subr(x,y,10)
print *,x,y
end program stest1

プログラム領域
subroutine subr(x,y,n)
implicit none
real x,y
integer nx = ny = y*x
end subroutine subr

図 3.1 サブルーチンの呼び出しと実行の流れ
図のように，メインプログラムの call 文でサブルーチンを指名すると，サブルーチンの一番最初の実行文に動作が移り，サブルーチン内部の動作が完了すると，コールしたメインプログラムに戻って，その call 文の次の文から実行を継続します．
条件に応じて，途中でサブルーチンの処理を打ち切って戻るときには return 文を用います．

–39–

subroutine subr(x,y,m,n)
implicit none
real x,y
integer m,n.......
if (m < 0) return.......
end subroutine subr
この例では，m < 0 のときにサブルーチンの処理が終了し，コールしたルーチンに戻ります．ここで return
文の代わりに stop 文を用いれば，プログラム自体が終了します．

3.3

ローカル変数と引数

サブルーチン内部で宣言した変数や配列は，メインプログラムや他のサブルーチンから独立しています．すなわち，同じ名前を使っても全く別の変数です．例えば，

program stest1
implicit none
real x,yx = 10.0
y = 30.0
call subr1
end program stest1
subroutine subr1
implicit none
real x,y
print *,x,y
end subroutine subr1と書いても，サブルーチン subr1 中の print 文によって出力される x と y はメインプログラムで代入した 10.0 と 30.0 ではなく，全く無関係な数字です．逆に言えば，他のルーチンでの宣言を気にせずに変数や配列の名前を決めることができます．このルーチン内部でのみ有効な変数を “ ローカル変数 ”といいます．
上記のプログラムを期待通り働かせるために，コール側ルーチンの数値をサブルーチンに伝えるのが引数です．例えば，上記のプログラムを次の subr2 のように書き直せば，サブルーチン中の print 文で出力される x と y は，メインプログラムと同じ 10.0 と 30.0 になります．

program stest2
implicit none
real x,yx = 10.0
y = 30.0
call subr2(x,y)
end program stest2
subroutine subr2(x,y)
implicit none
real x,y
print *,x,y
end subroutine subr2
引数は，数値の受け渡しをするための窓口に過ぎないので，コール側の引数とサブルーチン側の引数の変数名を同じにする必要はありません．次のサブルーチンに置きかえても全く同じ動作をします．

–40–

subroutine subr2(a,b)
implicit none
real a,b
print *,a,b
end subroutine subr2
外部からの影響を受けたり，外部に影響を与える，という性質を持つことを除けば，引数もローカル変数です．すなわち，コールしたルーチンからその詳細は見えません．見えるのは，引数という窓口の並びだけです．このため，引数ありサブルーチンを使うときに重要なポイントは，(1) 引数の数(2) 対応する引数の型
が call 文と subroutine 文とで一致していなければならないことです．例えば，

program stest3
implicit none
real zinteger nz = 200.0
n = 21
call subr3(10.0,z**2,100,n*5+1)
end program stest3
subroutine subr3(x,y,m,n)
implicit none
real x,y
integer m,nprint *,x,y,m,n
end subroutine subr3というプログラムでは，表 3.1 のような対応になっています．
表 3.1 サブルーチンの引数対応

call 文subroutine 文

数値型

10.0

x

実数

z**2

y

実数

100

m

整数

n*5+1

n

整数

ここで注意すべきなのは，第 1 引数の x は実数型なので実定数 10.0 を与え，第 3 引数の m は整数型なので整定数 100 を与えていることです．もし，第 1 引数に同じ意味だろうと思って 10 という整定数を与えると，実行時エラーになります．
サブルーチン内部の実行文で，引数に数値を代入すると，call 文の対応する引数に与えた変数にその数値が代入されます．例えば，

program stest4
implicit none
real x,y,px = 10.0
y = 30.0
call subr4(x+y,20.0,p)print *,x,y,p
end program stest4–41–

subroutine subr4(x,y,z)
implicit none
real x,y,zz = x*yend subroutine subr4と書くと，サブルーチン subr4 中の x はコール側の x+y，すなわち 40.0 であり，サブルーチン中の y はコール側の 20.0 なので，サブルーチン中の z には x*y の計算結果である 800.0 が代入されます．このとき，z が引数なので，call 文の対応する位置にある変数 p に 800.0 が代入され，call 文の次の print 文
では x，y，p として，10.0，30.0，800.0 が出力されます．
このようにサブルーチンの引数に数値を代入することで，call 文の引数変数に代入される数値を “ 戻り値 ”といいます．戻り値を使えば，サブルーチンの動作で得られた結果をコール側で受け取ることができます．ただし，call 文の引数には定数を与えたり計算式を書いてもよい，と述べましたが，戻り値を指定する引数は別で，必ず変数か配列にしなければなりません．理由を次節で説明します．

3.4

間接アドレスを用いたルーチン間におけるデータの受け渡し

ルーチン間のつながりをもう少し詳しく考えてみましょう．各ルーチンは基本的にプログラム領域とデータ領域から構成されています．プログラム領域とは文字通りプログラム命令が記録されている領域のことであり，データ領域とは変数や配列のために用意されたメモリ領域のことです．プログラム的には，変数や配列の宣言文がデータ領域の指定を意味しています．

メインプログラム

サブルーチンプログラム領域

参照

データ領域

参照できない参照

program stest1
implicit none
real x,yx = 5.0
y = 100.0
call subr1
print *,x,y
end program stest1

プログラム領域
subroutine subr1
implicit none
real x,yx = 10.0
y = 25.0
end subroutine subr1

データ領域

x

5.0

x

10.0

y

100.0

y

25.0

図 3.2 プログラム領域とデータ領域
変数や配列が各ルーチンごとに宣言されなければならないのは，データ領域が各ルーチンそれぞれに付属しているからです．このため，図 3.2 のように異なるルーチンで同じ名前の変数を宣言しても，それらは別のデータ領域に所属しています．これがローカル変数です．ローカル変数は，そのルーチン内部からしか参照することができません．
このため，あるルーチンで計算した数値を別のルーチンで使うには特別な手続きが必要になります．
これが引数です．引数を使えば，コール側のルーチンとサブルーチンの間でデータをやりとりすることができます．では，具体的にどうやってデータの受け渡しをしているのでしょう．
データをサブルーチンに渡す手段として，最も単純に考えられるのは，引数の数値を直接サブルーチ
ンの変数に代入することです．図 3.3 を見て下さい．図のように，コール側の引数 x と y の内容 (この例–42–

では 5.0 と 100.0) が，サブルーチンの引数として宣言された変数，a と b に代入されています．この方式
は，引数の値を直接渡して呼び出す，という意味で “ call by value ”と呼ばれています．“ call by value ”
は，コール側からサブルーチン側への値の引渡しについては問題ありません．C 言語はこの方式を採用
しています．

メインプログラム

サブルーチンプログラム領域
program stest2
implicit none
real x,yx = 5.0
call by value では
y = 100.0
数値を直接代入する
call subr2(x,y)
print *,x,y
end program stest2

5.0

y

100.0

こちらへ代入x

送り返せないデータ領域

プログラム領域
subroutine subr2(a,b)
implicit none
real a,b
print *,a,bb = a+25.0
end subroutine subr2

データ領域
a

5.0

b

100.0

図 3.3 C 言語の “ call by value ”を使ったデータ渡しでは値を送り返せない
しかし，この方式では，サブルーチン側で作成したデータをコール側に戻すことはできません．サブ
ルーチンは，コール側から送られてきた “ 値 ”はわかるのですが，それ以上の情報がないので，コール側のどこにデータを代入すればいいかわからないからです．図 3.3 のように，サブルーチン中の代入文，
b=a+25.0，でサブルーチンの変数 b に 30.0 という値を代入しても，サブルーチンのデータ領域の b に代入されるだけで，メインプログラムのデータ領域には影響がありません．
この問題を解決するために，Fortran は “ call by value ”ではなく，“ call by reference ”という方式を採用しています．“ call by reference ”とは，変数の内容ではなく，変数の存在場所 (メモリアドレス) を
サブルーチンに伝えて呼び出す方式です．
コンピュータのメモリには，“ 番地 ”と呼ばれる通し番号がついています．メモリアドレス (あるいは単にアドレス) とはこの番地のことです．プログラムの実行中に，あるメモリのデータを読み書きする
ときは，そのメモリのアドレスを指定して行います．例えば，簡単な代入文，

a = 1500.0b = aを考えてみましょう．この結果，b のメモリに 1500.0 という値が書き込まれますが，代入文 b=a において，a(アドレスを [103] とする) という変数からデータを取って来て b に代入するという流れは，

a のアドレス指定→→[103] 番地のメモリ内のデータ (1500.0) の呼び出し
b に代入となります．流れを図に描けば図 3.4 のようになります．このような指定したアドレスのメモリに入っているデータを読み書きする方式を “ 直接アドレス ”といいます．
これに対し，あるアドレス (AD1 ) のメモリに入っているのが別のメモリのアドレス (AD2 ) で，アドレス AD1 を指定して，アドレス AD2 のメモリに入っているデータを読み書きする方式を “ 間接アドレ
ス ”といいます．Fortran では，“ call by reference ”でサブルーチンを呼び出すので，引数にはコール側
ルーチンのメモリアドレスが入っています．このため，サブルーチン内で引数の値を読み書きするとき–43–

データ領域

a:103

101:
102:
103:
104:
105:
....

1500.0b

図 3.4 直接アドレスによるメモリ参照
は間接アドレスを使います11 ．例えば，

program stest3
implicit none
real aa = 1500.0
call subr(a)end program stest3
subroutine subr(s)implicit none
real b,s
b = s
end subroutine subrというプログラムを考えてみましょう．サブルーチン subr の中の代入文 b=s によって，変数 b のメモ
リの値は 1500.0 になりますが，引数変数 s には a の内容である 1500.0 ではなく，メインプログラムの変数 a のアドレス [103] が入っています．このため， b=s という代入文で，変数 s (メモリアドレスを[106] とする) からデータを取ってきて変数 b に代入する流れは，

s のアドレス指定→→→[106] 番地にあるメモリアドレスデータ (103) の呼び出し[103] 番地にあるデータ (1500.0) の呼び出し
b に代入となります．図示すれば図 3.5 のようになります．
データ領域

a:103

s:106

101:
102:
103:
104:
105:
106:
107:
....

1500.0b103

図 3.5 間接アドレスによるメモリ参照
間接アドレスによる読み書きは直接アドレスよりも時間がかかります．よって，b=s の代入文において，代入する値を保持している右辺の変数 s が間接アドレス指定の場合にはメリットがありません．しかし，代入される左辺の変数 b が間接アドレス指定の場合には，この仕組みを利用することで，コール側ルーチンの変数にサブルーチン側のデータを代入することができます．
11

配列を実現するのにも間接アドレスが使われています．例えば，a(10) は a(1) から数えて 10 番目のメモリです．よって，配列の先頭要素 a(1) のアドレスをメモリに記録し，それに 9 (=10 − 1) を加えて間接アドレスを用いれば，a(10) のメ
モリを読み書きすることになります．

–44–

メインプログラム

サブルーチンプログラム領域
program stest2
implicit none
real x,ycall by reference では
x = 5.0
変数 x,y のアドレスを送る
call subr2(x,y)
print *,x,y
end program stest2

x
y

5.0
30.0

データ領域

参照

データ領域

プログラム領域
subroutine subr2(a,b)
implicit none
real a,b
print *,a,bb = a+25.0
end subroutine subr2

axのアドレス

間接アドレスで送るbyのアドレス

図 3.6 Fortran では “ call by reference ”によりデータを送り返すことができる
例えば，図 3.6 のようなプログラムを考えます．サブルーチンの引数変数 b に a+25.0 の結果である
30.0 を代入すると，b にはメインプログラムの変数 y のアドレスが入っているので，間接アドレス指定
により y に 30.0 が代入されます．
戻り値を利用するときは，対応する引数にコール側変数のアドレスを与えなければなりません．これが変数または配列を指定しなければならない理由です．戻り値指定の引数に定数や計算式を与えると実行時エラーになります．

3.5

配列を引数にする場合

配列を call 文の引数にするときは，配列名を引数にすることも，配列要素を引数にすることも可能
です．1.3.2 節で述べたように，配列名は配列の先頭要素アドレスを示すので，配列名を引数にすることと，その配列の第 1 要素を引数にすることは同じ意味になります．例えば，real a(10) と宣言した 1 次
元配列に対して，

call sub(a)とcall sub(a(1))

は同じ動作をします．
これを受けるサブルーチンでの宣言は，サブルーチン内部でそのデータをどう使うかで決めます．一
例を示します．

subroutine sub(x)implicit none
real xx = 10.0
end subroutine sub!

単一変数宣言この例では引数 x が単一変数として扱われています．このため，call 文で指定した a(1) だけがサブルーチン内部で利用でき，他の要素は使えません．これは，call sub(a) のように，配列名を与えた場合でも同じです．
これに対し，–45–

subroutine sub(x)implicit none
real x(10)integer i
do i = 1, 10x(i) = i
enddo
end subroutine sub

!

配列宣言

のように引数 x を配列宣言すれば，あたかもコール側ルーチンの a という配列がサブルーチン内部の配列 x になったかのように取り扱うことができます．ここで “ あたかも ”という言葉を使ったのは，サブルーチンでの宣言文の書き方によってはそうならないことがあるからです．例えば，サブルーチンでの配列宣言 x(10) の要素数 10 はコール側と同じ数にする必要はありません．x(100) のように大きくても，
x(1) のように小さくてもかまわないのです．これは，引数 x が配列の先頭要素アドレスを保持している
1 個の変数にすぎないからです．サブルーチンでの引数配列の宣言は，配列の形状 (次元や下限値) を明示するためのダミーにすぎません．
このため，コール側ルーチンで宣言した要素数とサブルーチンで宣言した要素数を一致させる必要はありません12 ．与えられた配列をどう宣言するかは，サブルーチン内部の計算の都合に合わせて，サブルーチン側で決めることができます．よって，汎用性のあるサブルーチンにするには，配列のアドレス
以外に，配列の要素数も引数にしてサブルーチンに伝える必要があります．
配列の形状さえわかればいいのですから，サブルーチンで引数配列を宣言するときは，数字の代わりに “ * ”を書くことができます．例として，要素数 n の 1 次元配列 a のデータを，同じ長さの 1 次元配列
b にコピーするプログラムを考えてみましょう．最も単純な答えは，以下のようなものです．

subroutine copy(a,b,n)
implicit none
real a(*),b(*)
integer n,i
do i = 1, nb(i) = a(i)enddo
end subroutine copy
このように，サブルーチンの引数配列 a や b の宣言を “ * ”にすることで，要素数が不定の 1 次元配列であることを明示しています13 ．
“ * ”による宣言は 2 次元以上の配列でも使うことができますが，制限があります．例えば，a(*,*) という形の宣言はできません．なぜなら，2 番目の要素を進めるのは 1 番目の要素が最大値，すなわち宣言した上限数に達したときなので，1 番目の要素が不定では情報不足で進められないからです．このため，“ * ”が使えるのは，一番右側の要素数のみです14 ．例えば，real a(3,*) と宣言すると，第 1 要素
数が 3 の 2 次元配列として計算されます．
しかし，これではどんな 2 次元配列でも使えるサブルーチンを作ることはできません．そこで，“ 整合配列 ”と呼ばれる機能が用意されています．整合配列とは subroutine 文の引数の中にある整数型変数を利用して宣言した形の引数配列のことです．例えば，以下のように宣言することができます．

12

要素数だけではなく，次元さえ一致させる必要はありません．コール側が 2 次元配列で，サブルーチンでの宣言が 1 次元
配列でも動作は可能です．例えば，上記のサブルーチン copy は，2 次元配列でも使用できます．これは，1.3.2 節で述べたよ
うに 2 次元配列もメモリ上では 1 次元的に並んでいるからです．ただし，要素数を与える引数 n には全要素数を指定する必要があります．例えば，a(10,10) と宣言された配列ならば，n に 100 (=10×10) を与えます．
13
なお，“ * ”だけ書くと配列の下限は 1 です．もし下限を変更したいときには下限を別途指定します．例えば，配列 a の下限を 0 にする場合は，real a(0:*) と宣言します．
14
1.3.2 節の配列の順番を与える公式が一番右側の要素数に依存しないことを思い出して下さい．

–46–subroutine copy2d(a,b,m,n)
implicit none
real a(m,n),b(m,n)
integer m,n,i,j
do j = 1, n
do i = 1, mb(i,j) = a(i,j)
enddo
enddo
end subroutine copy2d
この例では，m と n が引数の中にあるので，これらを使って引数の配列 a と b を宣言することができるのです．a(m,n) のような単純な宣言だけではなく，a(0:2*m,n-1) のような，下限指定や計算式を使った宣言も可能です．
このサブルーチンの使用例を次に示します．サブルーチンの引数 a，b にどんな要素数の 2 次元配列を与えても，コール側ルーチンにおける配列宣言と同じ要素数を m，n に与えれば，正しく動作します．

program stest1
implicit none
real a(10,20),b(10,20),c(100,200),d(100,200).......
call copy2d(a,b,10,20)
call copy2d(c,d,100,200)
end program stest1
なお，配列宣言の際には，コロンを付加して下限を指定することができますが，これをサブルーチンに引き継ぐにはサブルーチン側でも同じ下限指定をする必要があります．例えば，

program stest2
implicit none
real a(-1:100)
call sub(a,a,100)
end program stest2
subroutine sub(x,y,n)
implicit none
real x(-1:n),y(*)
integer nx(10) = 10.0y(10) = 10.0
end subroutine subと書いた場合，メインプログラムと同じ下限指定をした配列 x では x(10) がメインプログラムの a(10)に対応するので，a(10) に 10.0 が代入されます．しかし，下限指定をしていない配列 y では下限が 1 ですから，a(-1) から数えて 10 番目の a(8) に 10.0 が代入されます．任意の下限を持つ配列に対して動作するプログラムにするには，下限の数値も引数変数にした整合配列を使います．

3.6

関数副プログラムsin(x) のように，引数を使って内部で計算した結果を計算式中で使うことができる “ 関数 ”を自作することもできます．これを “ 関数副プログラム ”といいます．関数副プログラムは，サブルーチンとほとんど同じ構造をしていますが，以下のような違いがあります．
(1) subroutine の代わりに function を書く(2) 関数名を変数として宣言し，それに計算結果 (関数値) を代入しなければならない–47–

これ以外は，引数ありサブルーチンと同じです．引数に関する注意もサブルーチンと同じで，戻り値を与える引数を含めることもできます．関数副プログラムとは，引数以外に戻り値を 1 個持つサブルーチンの変種だといえます．この戻り値が関数値になります．
関数副プログラムの一例を示します．

function square(x)implicit none
real square,xsquare = x*x
end function square!
!

関数名の型宣言
関数名に値を代入する

このように，function 文で開始し，end function 文で終了します．また，関数名 square を実数型宣言し，引数 x の 2 乗を代入して終了しています．すなわち，この例は引数 x に実数型の数値を与えると，x2 を関数値として与える関数になります．
関数副プログラムを使うことは，“ 関数名 ”という変数を使うことであると考えます．このため，作成した関数を使用するルーチンでも関数名を型宣言する必要があります．例えば，上例の square を使うには，

program ftest1
implicit none
real x,y,squarex = 5.2
y = 3.0*square(x+1.0) + 50.5
print *,x,y
end program ftest1!

使用する関数名を型宣言するのように，square という関数名を関数副プログラムでの宣言と同じ型で宣言しておかなければなりません．関数副プログラム中で宣言した関数名の型と，その関数を使用するルーチンで宣言した関数名の型が異なる場合には実行時エラーになります．

3.7

モジュールを使ったグローバル変数の利用

ローカル変数のおかげで各ルーチンの独立性は保たれますが，引数でしかルーチン間のデータ受け渡
しができないのは不便です．引数は，かっこを使った並びで指定するので，受け渡す変数が多いと書くのが大変です．しかも並びが重要なので，順番を１カ所間違えただけでもエラーが発生します．そもそも引数による受け渡しはアドレス情報を経由したものなので，コール側とサブルーチン側で完全に同じ変数であるという保証はありません．
3.1 節で，計算機シミュレーションでは計算内容に応じてサブルーチンを作成すると述べましたが，この用途においては，ルーチン間で共用する変数が多数必要です．しかし，共用変数を全て引数にするのは効率が悪く，エラーも発生しやすくなります．
そこで，ルーチン内部でのみ意味を持つ “ ローカル変数 ”に対して，“ グローバル変数 ”が用意されています．グローバル変数とは，どのルーチンから参照しても共通した値を保持している変数のことで，Fortran では，モジュールと use 文の組み合わせで利用可能です15 ．
モジュールとは，変数やサブルーチンなどを集めて一つのパッケージにしたもので，module 文で開始
して end module 文で終了します．サブルーチンと同じ構造をしていることからわかるように，モジュールの記述は，メインプログラムやサブルーチンと同レベルです．例えば，

15

モジュールや use 文は Fortran90 から採用された比較的新しい仕様です．それ以前では common 文でグローバル変数を実現していました．しかし，common 文には不便な点が多いので本書では説明を省略します．

–48–

module data1
integer nmin,nmax
real tinitial,amatrix(20,30)
end module data1のように書きます．先頭の module 文で，module の後に指定した文字の並び (この例では data1) を “ モジュール名 ”といいます．また，最後の end module 文には module 文と同じモジュール名を指定します．
モジュールはサブルーチンや関数副プログラムと異なり，プログラムに記述しただけではその内容を利用することができません．利用するルーチンの先頭に，use 文を使ってモジュール名を指定してその利用を宣言する必要があります．use 文は以下のような形式です．

use モジュール名use 文は implicit 文よりも前に書かなければなりません．モジュールを使ったプログラムの一例を以下に示します．
module global
real xaxis,yaxis
end module global
program stest4
use global
implicit none
xaxis = 5.0
yaxis = 100.0
call subr4
print *,xaxis,yaxis
end program stest4
subroutine subr4
use global
implicit none
print *, xaxis,yaxis
yaxis = 25.0
end subroutine subr4
モジュールの中で宣言された変数や配列は，メインプログラムやサブルーチンとは独立して存在したデー
タ領域にあり，use 文で利用を宣言すれば，どのルーチンからでも参照することができます．このプログラムのメモリイメージを図示すれば，図 3.7 のようになります．
モジュールは，名前が異なれば，一つのプログラムに複数作成することも可能であり，一つのルーチンが複数のモジュールを利用することも可能です．また，モジュールの中に use 文を書いて別のモジュー
ルの変数を利用することもできます16 ．ただし，モジュールは use 文で利用を宣言するより前で (プログラムの上方で) 定義されている必要があります．このため，通常はこの例のように全てのルーチンより前に記述しておきます．
モジュールで宣言されている変数は，use 文を書くだけで利用できるという利便性がありますが，ルーチン内で明示的に宣言されていないので，不用意に使ってしまう可能性があります．そこで，次のような only 句を使って，ルーチン内で必要な変数だけに宣言を限定することができます．

use モジュール名, only : 変数 1，変数 2，...
配列の場合には配列名だけを変数の位置に記述します．
例えば，前の例で，

16一つの応用例として parameter 変数の利用があります．3.8.2 節を参照して下さい．

–49–

module global
データ領域
xaxis

5.0

yaxis

25.0

参照

プログラム領域参照

メインプログラム
program stest4
use global
implicit none
xaxis = 5.0
yaxis = 100.0
call subr4
print *,xaxis,yaxis
end program stest4

サブルーチンプログラム領域
subroutine subr4
use global
implicit none
print *,xaxis,yaxis
yaxis = 25.0
end subroutine subr4

図 3.7 モジュールで宣言されているグローバル変数の参照

use global, only : yaxsisのように書くと，yaxsis 以外の変数 (xaxsis) は，このルーチンでは宣言されていないのと同等です．
宣言されていない変数は，ローカル変数として別途宣言することも可能です．
グローバル変数は，多用するとルーチンの独立性が失われてしまいます．基本的にはローカル変数でプログラムを作り，ルーチン間で共用する必要がある変数のみグローバルにしてください．また，グロー
バル変数は広い範囲で存在する可能性があるので，意味のある長めの名前を付けます．これは，1.2.3 節
で述べた “ 大域的に有効な変数名の付け方 ”です．

3.8

プログラミング スマートテクニック (その 3)

サブルーチンを利用するときは，変数の使い分けが一つのポイントです．これまでローカル変数とグ
ローバル変数の使い分けについて説明しましたが，ローカル変数にも 2 種類あり，これを使い分ければサブルーチンの動作をより細かく制御することができます．ここでは，ローカル変数の使い分け方と，プログラムのメンテナンスをさらに容易にしたり汎用性を持たせるための文法などを紹介します．

3.8.1

拡張宣言文とそれを用いたローカル変数の使い分け

これまで変数や配列の宣言に使っていた宣言文は，
型指定 変数 1, 変数 2，...
という形式でした．ここで，“ 型指定 ”には “ integer ”とか，“ real ”のような数値型を記述し，“ 変数 ”には変数名か，配列名とその要素数を記述します．この宣言文は，データ領域におけるメモリの確保という意味もあります．
さて，Fortran90 から宣言文の記述形式が拡張されました17 ．拡張宣言文を使うと，メモリを確保すると同時に初期値を代入したり，メモリの特性を指定することができます．拡張宣言文は以下の形式です．
17

本書では，拡張された宣言文のことを “ 拡張宣言文 ”と呼んで，旧来の型指定だけの宣言文と区別します．

–50–

型指定［, 属性 1，属性 2，...］:: 変数 1［=数値 1］, 変数 2［=数値 2］，...
ここで，角かっこ，“ ［ ”と “ ］ ”は，この中が省略可能であるという意味で使っているだけなので，角かっこ自体は書かないで下さい．拡張宣言文を使用するときは，型指定部と宣言する変数や配列の間にコロン 2 個 “ :: ”を書く必要があります．また，“ 属性 ”には宣言する変数の特性を指定するための予約語を記述します．属性も数値も省略して，単に型指定と変数の間に “ :: ”を書いただけの宣言文は，書かずに宣言した旧来の書式と同じ意味になります．
属性を書かずに，単に数値を代入した形で宣言すると，その変数に指定した数値を代入して，プログ
ラムの動作が開始することを意味します．例えば，

integer :: imax=10, jmax=100
real :: xx=1.0, yy=2.0のように宣言すると，それぞれの変数に指定された値を代入した状態で動作が開始します．ただし，この宣言文中での数値代入は一度だけです．サブルーチン中で数値代入した変数を宣言しても，コールするたびに数値が代入されるのではありません．このため，その変数を実行文で変更すると，その変更した結果が残ります．例えば，

program stest1
implicit none
call subr1
call subr1
call subr1
end program stest1
subroutine subr1
implicit none
integer :: n=1
print *,nn = n + 1
end subroutine subr1! コールするたびに n は増加するというプログラムでは，メインプログラムでサブルーチン subr1 が 3 回コールされていますが，サブルー
チン中の print 文の出力は，1 回目が 1，2 回目が 2，3 回目が 3，となります．宣言文における代入は，プログラム開始時の初期値だと考えて下さい．
さて，上記のサブルーチンの動作を考えるとき，一つ注意しなければならないことがあります．3.4 節
で，ローカル変数は各ルーチンのデータ領域に所属しているという説明をしましたが，もう少し詳しく言うと，サブルーチンのデータ領域には 2 種類あります．一つは，サブルーチンがコールされた時点で一時的に生成されるメモリ領域で，もう一つは，サブルーチンの呼び出しに関係なく常に確保されたメモリ領域です．本書では，前者を “ 一時メモリ領域 ”と呼び，後者を “ 固定メモリ領域 ”と呼ぶことにします．旧来の宣言文で宣言したローカル変数は，一時メモリ領域に所属します18 ．一時メモリ領域は，サブルーチンを呼び出すたびに場所や内容が変わる可能性があるので，同じサブルーチンを 2 回コールした場合，1 回目のコールでローカル変数に代入した値が，2 回目にコールした時点でそのまま残っているとは限りません．
例えば，

18

これに対し，メインプログラムの変数とモジュール内のグローバル変数は，宣言文の記述にかかわらず，全て固定メモリ
領域に所属します．

–51–

program stest2
implicit none
call subr2(1)call subr2(2)end program stest2
subroutine subr2(n)implicit none
integer nreal x,yif (n == 2) print *,x,yx = 10.0
y = 100.0
end subroutine subr2! この出力値は不定のようなプログラムを書いたとします．1 回目の call 文，call subr2(1) で，ローカル変数 x と y に，それぞれ 10.0 と 100.0 という値が代入されますが，2 回目の call 文，call subr2(2) を実行したときに，print 文で出力した x と y が 10.0 と 100.0 になる保証はないのです19 ．ローカル変数に代入した値を保証するには，固定メモリ領域に所属させなければなりません．拡張宣言文を使って初期値を代入したローカル変数は，一時メモリ領域ではなく，固定メモリ領域に所属します．最初のサブルーチン例，
subr1 の変数 n が，コールするごとに 1 ずつ増加した値を出力するのは，初期値 1 を代入して宣言する
ことで固定メモリ領域に所属させたためです．
数値を代入せずに，ローカル変数を固定メモリ領域に所属させるには，変数に save 属性を指定します．例えば，上記のサブルーチン subr2 を以下のように書き換えれば，2 回目のコールで 10.0 と 100.0が出力されます．

subroutine subr2(n)implicit none
integer nreal, save :: x,yif (n == 2) print *,x,yx = 10.0
y = 100.0
end subroutine subr2! save 属性を指定

変数の初期値が未定のときや，ローカル配列を固定メモリ領域に所属させたいときには save 属性を使って下さい．また，初期値を代入する場合でも，固定メモリ領域に所属させることを積極的に利用するのであれば，次のように save 属性を付加して，固定メモリ領域にあることを明示した方が良いと思います．

integer, save :: n=1
拡張宣言文の属性には save の他にも色々ありますが，ここでは配列を宣言するときに便利な dimension
属性を紹介しましょう．例えば，10×10 の 2 次元実数型配列を 5 個用意するとき，通常の宣言では，

real a(10,10), b(10,10), c(10,10), d(10,10), e(10,10)のように書きますが，dimension 属性を使えば，これを次のように書くことができます．

real, dimension(10,10) :: a, b, c, d, e
すなわち，dimension 属性に配列の形状 (次元や要素数) を書いておけば，宣言する変数の位置には，配列名を記述するだけになります．属性は複数付加することができるので，dimension 属性に save 属性を加えて宣言することも可能です．
19

コンパイラによっては，全てのローカル変数を固定メモリ領域に所属させるものがあり，このプログラムでもうまくいく
場合があります．しかし，文法的には保証されていないのですから，当てにするべきではありません．

–52–

3.8.2parameter 変数の利用

配列を宣言するときに便利なのが，parameter 属性を指定した変数，parameter 変数です．parameter
変数には必ず値を代入しなければなりません．例えば，

integer, parameter :: imax=10, jmax=200のように書くと，imax と jmax が parameter 変数になります．
さて，配列を宣言するとき，その要素数は整数定数で指定しなければなりません．このため，配列の長さを変更するときには，宣言した要素数に関連した数値を全て変更する必要があり，手間がかかるだ
けでなく，見落としたり，書き間違える可能性があります．例えば，

real a(100),b(100)integer i
do i = 1, 100a(i) = i*ib(i) = a(i)**2
enddo! 100 が 2 カ所
! 100 が 1 カ所というプログラムにおいて，配列要素数の 100 は，宣言文だけでなく，do 文の終了値にも入っています．
このため，配列要素数を変更するときは 3 カ所変更しなければなりません．このとき，配列宣言の要素
数を parameter 変数に代入する形で用意しておくと，配列要素数をその parameter 変数で置きかえる
ことができます．例えば，上のプログラムは次のように書き換えることができます．

integer, parameter :: imax=100
real a(imax),b(imax)
integer i
do i = 1, imax
a(i) = i*ib(i) = a(i)**2
enddo
このプログラムならば，imax に代入する数値を変更するだけで，配列要素数の変更は完了です．
parameter 変数を含んだ計算式を別の parameter 変数への代入値にしたり，配列宣言の要素数に使うこともできます．これらは，その計算式の結果で宣言したことに相当します．例えば，

integer, parameter :: imax=100, imax2=imax**2
real a(imax-1),b(0:imax*2),c(-imax2:imax2)という宣言は，以下の宣言文と同等です．

integer, parameter :: imax=100, imax2=10000
real a(99),b(0:200),c(-10000:10000)
ただし，他の parameter 変数に代入するときは，代入される変数 (この例では imax2) が，代入する計算式に使う変数 (この例では imax) より後で宣言されなければなりません．
実は，parameter 属性を指定した変数は，“ 変数＝数値 ”の形式で変数名と数値の対応関係を示しているだけで，メモリとしての実体はありません．この対応関係を使った “ 変数 ”から “ 数値 ”への置き換えは，
コンパイルの段階で行われるので，非実行文である宣言文でも使えるのです．逆に言えば，parameter
変数に実行文を使って代入することはできません．例えば，

integer, parameter :: imax=100
real a(imax),b(imax)
imax = 5! これはエラーと書いた場合，“ imax=5 ”はコンパイルエラーです．これは，プログラムに “ 100=5 ”と書いたことに等しいのですから当然だと言えます．

–53–

このように，parameter 変数を使えば配列要素数の変更が楽になりますが，それでもルーチンごとのローカルな宣言では，変更が必要になったときに使用している全てのルーチンで parameter 変数の設定
値を変更しなければなりません．そこで，

module global_param
integer, parameter :: imax=300, jmax=200
end module global_paramのように，parameter 変数を記述したモジュールを用意して，共有するルーチンで use 宣言をするのが良いと思います．use 宣言はモジュールの中でも使うことができるので，以下のように記述することが可能です．

module global_param
integer, parameter :: imax=300, jmax=200
end module global_param
module mod_arrayuse global_param
real abc(imax,jmax),cd(jmax*2-1)
end module mod_array! モジュール内でも use 宣言可能
! グローバル配列宣言

program mtest1
use mod_array
implicit none
integer km(imax).......

! use global_param は不要! ローカル配列宣言

ここで，あるモジュールの中で別のモジュールを use 宣言した場合，前者のモジュールを use 宣言したルーチンでは，後者のモジュールも合わせて use 宣言したことになります．上記のメインプログラム
mtest1 ではモジュール mod_array しか use 宣言をしていませんが，mod_array の中で use 宣言をしているモジュール global_param も同時に宣言したことになり，その中にある変数 imax もメインプログ
ラムで利用可能になります．
なお，次のようにメインプログラムに global_param の use 宣言を加えてその使用を明示してもエラーではありません．

program mtest1
use global_paramuse mod_array
implicit none
integer km(imax).......

! 書いてもエラーではない

これは，同じモジュールの use 宣言を重複して書いてもエラーにはならないからです．
parameter 変数は，数学定数や物理定数を用意するのにも便利です．筆者は次のような定数の入ったモジュールを作成して，必要なサブルーチンから利用するようにしています．

module constantsreal, parameter :: pi=3.141592653589793, pi2=pi*2
real, parameter :: clight=2.99792458e8, hplanck=6.626070040e-34
real, parameter :: emass=9.10938356e-31, pmass=1.672621898e-27
real, parameter :: echarge=1.6021766208e-19, emc2ev=emass*clight**2/echarge
end module constants
parameter 変数は不用意に書き換えられることがないので，このような定数の定義にはうってつけです．また，コンパイル時に数値の置き換えをするのですから，代入という実行動作が不要になり，わずかですが計算時間の短縮になります．

–54–

3.8.3include 文

プログラムが完成して，後は問題に応じて parameter 変数を変更するだけになると，parameter 変数の変更のためだけにプログラムファイルを修正するのは煩わしいし，変更するときに誤ってプログラムの内容を書き換えてしまうリスクもあります．プログラムを変更すると，プログラムファイルの日付が変更されるので，いつの時点で完成したプログラムかもわからなくなります．これらは，特に他人にプ
ログラムを提供するときに問題になります．
そこで，parameter 変数の部分だけをプログラム本体から分離して保存し，必要に応じて結合すると便利です．結合する一つの手段に include 文の利用があります．include 文とは，以下のように includeの後に，ファイル名を文字列で記述した文です．

include ’ ファイル名’include 文を書くと，コンパイラはその位置に “ ファイル名 ”で指定したファイルの内容を挿入したプログラムを生成して，それをコンパイルします．例えば，3.8.2 節のモジュール global_param を“ global.inc ”というファイルに書き込んで保存しておけば，次のように記述することができます．
! ここに global.inc の内容が挿入される

include ’global.inc’
module mod_arrayuse global_param
real abc(imax,jmax),cd(jmax*2-1)
end module mod_array
program mtest1
use mod_array
implicit none
integer km(imax).......

include 文が指定するファイルの内容は，それを include 文の位置に挿入したときに，プログラム全体が正しく動作すればいいので，モジュールやサブルーチンのような完結したプログラムである必要はありません．また，同じファイルを一つのプログラムの複数の場所で include 指定することもできます．
例えば，
integer, parameter :: imax=300, jmax=200
だけをファイルに書いて，サブルーチンごとに include 指定することも可能です．

3.8.4

サブルーチンや関数副プログラムを引数にする方法

本章で説明したサブルーチンや関数副プログラムは，変数や配列などの数値を引数に持つものでした．
これに対し，サブルーチンや関数副プログラムの名前を引数に持つサブルーチンや関数副プログラムを作ることも可能です20 ．例えば，方程式 f (x) = 0 を解くサブルーチンにおいて，関数 f (x) を計算する
関数副プログラムの名前も引数に加えておけば，コールするときにユーザーが関数を指定することができる，より汎用的なサブルーチンになります．
サブルーチン名を引数にしたサブルーチンを作るのは簡単で，引数並びの中にサブルーチン名を入れるだけです．例えば，

20

ここではサブルーチンと関数副プログラムを合わせて “ 外部副プログラム ”と呼びます．

–55–

subroutine subrout(subr,xmin,xmax,n)implicit none
real xmin,xmax,dx,yinteger n,idx = (xmax-xmin)/ndo i = 0, ncall subr(dx*i+xmin,y)print *,i,y
enddo
end subroutine subrout

引数 subr を使った call 文!

のように書くことができます．この例では，subr が引数としてのサブルーチン名で，これをコールする
文を書くことができます．関数副プログラムを引数にする場合も同様ですが，関数名の型宣言は必要です．例えば，次のように書きます．

subroutine funcout(func,xmin,xmax,n)implicit none
real func,xmin,xmax,x,dx,yinteger n,idx = (xmax-xmin)/ndo i = 0, nx = dx*i + xmin
y = func(x)**3
print *,x,y
enddo
end subroutine funcout!

引数 func が関数なので型宣言をする!

引数 func を関数として使う

このように，外部副プログラムを引数に持つサブルーチンを作るのは簡単ですが，このサブルーチンを使用するときは，「引数が変数ではなく，外部副プログラムである」という宣言が必要です．この宣言
は external 文で行います．例えば，

subroutine sub(x,y)
implicit none
real y,xy = 2*sin(x) + cos(x**2)
end subroutine subfunction fun(x)implicit none
real fun,x
fun = sin(x)**3
end function funというサブルーチンや関数副プログラムを引数にして，上記のサブルーチン (subrout や funcout) をコールするときは，

program test_func
implicit none
external fun,subcall subrout(sub,0.0,3.0,10)
call funcout(fun,0.0,3.0,10)
end program test_func!

external 文を使って宣言するのように書きます．external 文による宣言がないと，sub や fun という単語が “ 変数 ”と見なされて，型宣言されていないというエラーになります21 ．external 文は非実行文なので，変数の型宣言と同様に，全ての実行文より前に書く必要があります．
21

ちなみに，サブルーチン funcout に与えている関数名 fun は型宣言をしていませんが，これはエラーになりません．ただし，このプログラム内で fun を関数として計算に使う場合には型宣言をする必要があります．

–56–

さて，なぜこの程度で外部副プログラムを引数にできるのか，しくみを簡単に説明しましょう．3.4 節
で述べたように，Fortran では引数に変数を与えるとき，変数の内容を与えるのではなく，そのアドレスを与えます．変数にアドレスがあるのと同様に，プログラムにもアドレスが付いています．これは，プログラムが保存されているメモリ番地のことです．goto 文での無条件ジャンプや if 文での分岐，サブルーチンコールなど，必要に応じて実行の流れを変えるときには，プログラムのアドレスを指定してジャンプします．プログラムも変数も，場所は違いますが，コンピュータのメモリ上にあるという意味
では同じです．よって，引数に変数を与えるのも，サブルーチン名を与えるのも，メモリアドレスを与えるという意味では同じであり，特に書式を変更する必要はありません．
しかし，プログラム名が指定するアドレスと変数や配列名が指定するアドレスはメモリ領域が異なるので区別しなければなりません．外部副プログラムを引数として持つサブルーチンの内部では，その副プログラムを使用している記述があるはずなので，それを判定材料として引数がプログラムアドレスか
変数アドレスかを区別しています．一方，このサブルーチンを使う call 文側では，外部副プログラムの名前しか引数に書けないので，それだけで変数か外部副プログラム名かを判定することはできません．
この区別のために用意されているのが external 文です．external 文を使って宣言された名前は，サブ
ルーチン名または関数副プログラム名と判定されてコンパイルされます．なお，external 文による宣言を忘れてコンパイルエラーになったとき，エラーを防ぐために sub や fun を real や integer などで型宣言すると，エラーは出ず，コンパイルもリンクも成功します．しかし，実行しても正常な動作はしないので注意が必要です．
なお，関数を引数に持つサブルーチンに sin や exp のような組み込み関数名を与えてコールするとき
は，external 文の代わりに intrinsic 文で宣言します．例えば，

program test_sin
implicit none
intrinsic sin
call funcout(sin,0.0,3.0,10)
end program test_sinのように書きます．これは，Fortran における組み込み関数が宣言をしなくても使える特別なものだからです．しかし，それなら宣言せずとも使えるようにしてくれればいいと思うのですが，intrinsic 宣言をしておかないと「sin という変数が宣言されていない」というエラーになります．このあたりは Fortran
コンパイラの仕様の問題だと思います．

3.8.5

interface 文

Fortran は古くからある言語なので，文法的にゆるい記述がいくつか残っています22 ．implicit none
を付けなければ暗黙の変数宣言と見なされ，宣言しなくても変数が自由に使えるというのはその一つです．これ以外に，サブルーチンを呼び出すための call 文の記述において引数のチェックをしない，という問題があります．このため，call 文で引数の数を間違えたり引数の数値型を間違えたりしてもコンパイルエラーにはならず，実行時に正常な動作をしないという形で不具合が現れます．
この欠点を補うため，最近の Fortran では，interface 文を使ってプログラム中に外部副プログラ
ムの引数の形状を宣言しておき，外部副プログラムを使用する際の引数チェックをコンパイラにさせることができます．interface 文は，interface と end interface ではさんだブロックで，その中にsubroutine 文または function 文，その引数宣言 (関数副プログラムの場合は関数値も)，および最後のend 文だけを取り出して入れておきます．例えば，3.8.4 節のサブルーチン subrout や関数 fun を使用する場合，以下のように書くことができます．
22

キーボードやモニターがなかった時代，プログラムを書くのは時間がかかる作業でした．このため，記述量を減らすために暗黙の宣言などがあったのだと思います．C 言語は比較的新しい言語なので，変数宣言は必ず行わなければならないし，関数の引数チェック機能も含まれています．

–57–

!
!

program test_interface
implicit none
external subinterfacesubroutine subrout(subr,xmin,xmax,n)external subr
! 外部副プログラムは external 文で宣言する
real xmin,xmax
integer n
end subroutine subrout
function fun(x)real fun,x! 関数の場合は関数値も宣言する
end function fun
end interface
call subrout(sub,0.0,3.0,10)
call subrout(0.0,3.0,10)! これを入れるとエラーになる
print *,fun(10.0)
print *,fun(10)! これを入れるとエラーになる
end program test_interface

この例のように，interface 文中には複数のサブルーチンや関数副プログラムの宣言を書くことができます．また，interface 文中に関数副プログラムの宣言を入れておくと，関数名の型宣言が入っているので，その関数名の型宣言を別途する必要はなくなります．なお，外部副プログラムを引数にする場合には，この例のように external 文で宣言しておきます．
このプログラム例で，二つ目の subrout の call 文を含めてコンパイルするとエラーになります．な
ぜなら，二つ目の call 文は引数の数が足らず，一番左の引数が外部副プログラムではなく実数になっているからです．また，二つ目の関数 fun を使用した print 文を含めてもエラーです．これは，x が実数指定なのに整定数 10 を与えているからです．
interface 文で引数の型を宣言しておくと，引数変数に値を代入した形でサブルーチンをコールすることができます．この場合，引数を記述する順番は自由です．例えば，

program test_interface
implicit none
external sub
integer minterfacesubroutine subrout(subr,xmin,xmax,n)external subr
real xmin,xmax
integer n
end subroutine subrout
end interfacem = 5call subrout(n=m**2,subr=sub,xmax=3.0,xmin=0.0)
end program test_interfaceと書くことができます．
ただし，3.5 節において，「配列名を引数にすることと，その配列の第 1 要素を引数にすることは同じ意
味になる」と言いましたが，interface 文を使う場合は区別する必要があります．なぜなら，interface
文は引数の型だけでなく形状のチェックも行うからです．このため，interface 文中の宣言が 1 変数であれば 1 変数か定数を，1 次元配列で宣言したならば 1 次元配列名を，というように引数の形状と一致した変数や配列を call 文の引数に与えなければなりません．さもなくば，コンパイルエラーになります．
interface 文を使うと，より安全なプログラムになります．大きなプログラムを作る時や，引数が多い
サブルーチンを利用するときは，interface 文の利用をお勧めします．必要な部分だけをコピー・ペー
ストするだけなので，それほど手間はかかりません．

–58–

演習問題3(3–1)

2 次方程式の解 (サブルーチン利用)

3 個の実変数 a，b，c を引数とし，それから，
ax2 + bx + c = 0√の 2 解 x1 ，x2 ，および判別式 D = b2 − 4ac を計算して戻り値にするサブルーチンを作成せよ．ただし，2 実解になる場合は，x1 ，x2 をそれぞれ戻り値変数 x1 と x2 に代入し，2 虚解になる場合は，実部を x1 に，虚部を x2 に代入するようにせよ．
次にそれを使って問題 (2–6) の解答をサブルーチンを使う形に修正せよ．

(3–2)

ヘロンの公式 (関数副プログラム利用)

三角形の三辺の長さを a，b，c とすると，その三角形の面積 S は次式（ヘロンの公式）で表される．

S=
ただし，p =√p (p − a)(p − b)(p − c)

a+b+c
である．
2

a，b，c の数値を引数とし，この公式を使って三角形の面積を計算して関数値にする関数副プログラ
ムを作成せよ．
次にそれを使って問題 (1–2) の解答を関数副プログラムを使う形に修正せよ．

(3–3)

回路計算 (サブルーチン利用)

N 個の抵抗 R1 , R2 , R3 , · · · , RN に対し，この N 個を直列にした時の合成抵抗 Rs と N 個を並列にした時の合成抵抗 Rp を同時に計算して戻り値として返すサブルーチンを作成せよ．ただし，N 個の抵抗値は，要素数 n の 1 次元配列 R(n) で表すとする．
次に，それを使って問題 (1–7) の解答をサブルーチンを使う形に修正せよ．

(3–4)

3 次元ベクトルと電磁気学 (サブルーチン利用)

3 次元ベクトル A = (A1 , A2 , A3 ) を要素数 3 の 1 次元配列 a(3) で表すとする．電場ベクトル E ，磁場ベクトル B および荷電粒子の速度ベクトル v を配列で表して，これらの配列を引数として与えると内積 v • E ，および外積ベクトル v × B を計算して戻り値とするサブルーチンを作成せよ．なお戻り値の外積ベクトルも配列とする．これを使って問題 (1–8) の解答をサブルーチンを使う形に修正せよ．

(3–5)

統計計算 (サブルーチン利用)

要素数 n の 1 次元配列，a(n) を引数とし，

1∑
平 均 Ā=
Ai
n
i=1
v
u n
u1 ∑
標準偏差 σ = t(Ai − Ā)2
n
n

i=1

を計算して戻り値とするサブルーチンを作成し，問題 (2–2) の解答をサブルーチンを使う形に修正せよ．

–59–

(3–6)

非線形方程式の解法：Newton 法 (サブルーチン利用)問題 (2–8) の Newton 法を用いて方程式の解を計算するプログラムをサブルーチンを使う形に修正せよ．まず，変数値 x を与えると関数値 f (x) とその微分値 f 0 (x) を返すようなサブルーチンを作成する．
それを使って Newton 法で解を求めるプログラムにすればよい．

(3–7)

行列計算

n 行 n 列の行列 aij を 2 次元配列 a(n,n) の要素 a(i,j) で表すとする．2 個の行列 aij と bij から行列の和，cij ，および行列の積，dij を計算するサブルーチンを作成せよ．この時，整合配列を用いて与える
配列の次元が自由に変えられるようにすること．
ここで，行列の和と積の定義は以下の通りである．
cij = aij + bij
n
∑
dij =
aik bkj
k=1

(3–8)

行列式

u(3)，v(3)，w(3) という 3 つの 1 次元配列データから行列式

Det =u(1) v(1) w(1)u(2) v(2) w(2)u(3) v(3) w(3)を計算する関数副プログラムを作成せよ．

(3–9)

3 元連立方程式の解法

3 元 1 次の連立方程式，
a11 x1 + a12 x2 + a13 x3 = b1
a21 x1 + a22 x2 + a23 x3 = b2
a31 x1 + a32 x2 + a33 x3 = b3を解くプログラムのサブルーチンを作成せよ．
クラメールの公式によれば，答えは以下のようになる．

x1 =b1 a12 a13
b2 a22 a23
b3 a32 a33
D

,

x2 =

a11 b1 a13
a21 b2 a23
a31 b3 a33
D

,

x3 =

a11 a12 b1
a21 a22 b2
a31 a32 b3
D

ただし，

D=

a11 a12 a13
a21 a22 a23
a31 a32 a33

である．
プログラムは，3 行 3 列の行列 aij を 2 次元配列 a(3,3) の要素 a(i,j) で表し，bi を b(i) という 1 次
元配列で表し，xi を x(i) という 1 次元配列で表して，サブルーチンの引数は，a と b と x とする．行列式の計算には，問題 (3–8) で作成した関数副プログラムを利用すればよい．

–60–

(3–10)

モンテカルロ法

世の中の動きは，運動方程式のような微分方程式を用いて確実に予測できるとは限らない．例えば，
さいころを投げて次にどの数字が出るかで進み方を決めるすごろくのように，次の瞬間に何が起こるかわからない事象を元にして未来の様子を計算する方法をモンテカルロ法という．
計算機でさいころの代わりをするものは “ 乱数 ”と呼ばれている．Fortran には，サブルーチン
random_number が用意されているので，これを用いれば乱数を使った計算ができる．例えば，1 個の乱数を使うときには

call random_number(x)と書けば，変数 x に 0 5 x < 1 の範囲の実数が代入される．このサブルーチンの戻り値 x は予測がつかないので，同じ呼び出しを繰り返しても、それ以前に代入された値と等しい数値が代入される確率は非常に小さい．
乱数を 1 回で複数用意したいときには配列を使う．例えば，配列 a(10) に 10 個の乱数を代入すると
きは次のように書けばよい．

call random_number(a(1:10))
モンテカルロ法を使って円周率 π を計算してみよう．2 個の乱数 x と y を発生させて 2 次元座標点(x, y) を作る．この乱数の座標点を N 個作り，その中で原点から半径 1 の円より内側にある点の数 N1
4N1を数えて p =を計算する．座標点数 N が増えると，この p が π に近づくことを確かめよ．
N

–61–

第4章

データ出力の詳細とデータ入力

プログラムは計算をさせるだけでは意味がありません．結果を出力して初めて完結します．これまで
は，最も単純な print 文でとりあえず画面に表示する方法を使ってきましたが，本章では好みに応じて数値の出力形式を変える方法や，ファイルに保存する方法について説明します．さらにデータを入力することでプログラムを変更せずに動作を変える方法についても説明します．

4.1

データ出力先の指定

これまでもたびたび登場しましたが，最も単純な出力命令は，print 文です．

print form，データ 1，データ 2,...

print 文で出力すると，画面 (正確には標準出力) にデータが表示されます．form は出力形式を指定するためのものですが，とりあえず “ * ”を書いておけば，データの数値型に応じた標準形式で表示します．
例えば，print *，x, y(i), x**2+5, ’

abc = ’, 10のように，データの位置には，変数や配列を与えても良いし，計算式や定数を与えることも可能です．
また，文字列を適当に入れて，データの意味を並記することもできます．
画面ではなく，ファイルに出力するときは write 文を用います．print 文との違いは，出力先を指定する整数値 nd と出力形式指定の form をかっこで記述することです．

write(nd, form) データ 1，データ 2,...

nd を装置番号といいます．装置番号は，出力ファイルを識別する数字で，任意に選ぶことができます．
また，変数や整数値を結果とする計算式を与えることもできるので，条件に応じて出力先を変更することも可能です．nd に適当な整数を与えて write 文を実行すると，“ fort.nd ”という名のファイルに出力されます23 ．例えば，
write(20,*) x,y,zと書けば，x,y,z の値が “ fort.20 ”という名前のファイルに出力されます．この例のように，form に “ * ”
を与えれば，print 文と同じく，データの数値型に応じた標準形式で出力します．
なお，原則として nd = 10 にして下さい．これは，Fortran コンパイラの仕様によって，1 桁の数値は予約されている可能性があるからです．例えば，nd = 6 にすれば print 文と同じ標準出力の指定になる
ので，write(6,*) と書けば，ファイルへの出力はなく，画面に表示されます．

4.2

配列の出力，do 型出力

出力文において，データの位置に配列名を書けば，全要素が並んで出力されます．例えば，

real a(4)do i = 1, 4
a(i) = i
enddo
print *,a23

“ fort ”の部分はコンパイラに依存しますが，多くは fort のようです．ファイル名は 4.6 節で説明する open 文を使えば変更することができます．また，コンパイラによっては，open 文を使わなくても装置番号に対応する環境変数の指定で，任意の名前を持つファイルに変更することが可能です．

–62–

というプログラムを実行すると，1.00000000000000

2.00000000000000

3.00000000000000

4.00000000000000のように，配列要素が先頭から順に並んで出力されます．このとき，配列要素が多いと適当に改行を入れて出力されます．よって，この単純な出力は配列要素が少ないとき以外はあまりお勧めできません．
例えば，2 次元配列を，

real a(3,3)
do j = 1, 3
do i = 1, 3a(i,j) = i*j
enddo
enddo
print *,aのように出力すると，a(1,1),a(2,1),a(3,1),a(1,2),...,a(3,3) という並びで 9 個の要素が出力されます．そこで，次のように do 文を使って出力する方がいいでしょう．

do j = 1, 3
do i = 1, 3
print *,a(i,j)
enddo
enddo
しかし，print 文や write 文は，1 文ごとに改行をするので，複数の print 文を使って，横に続けて書くことはできません24 ．よって，この例の出力では全部で 9 行必要です．行数を減らすために，1 行に行列の 1 行を出力するには，次のように書かなければなりません．

do i = 1, 3
print *,a(i,1),a(i,2),a(i,3)
enddo
しかし，この例のように列の数がわかっているときは良いのですが，列数が多いときや変数で指定したいときには不便です．そこで do 型出力が用意されています．do 型出力とは，(データ 1, データ 2,..., 整数型変数 = 初期値, 終了値)のような，かっこで囲んだ形式です．これをデータの位置に記述すれば，do 文のように，整数型変数が初期値から終了値まで 1 ずつ増えていき，その変数で指定されるデータが横に並んで出力されます．do
型出力を複数並べたり，通常のデータと並べて書くこともできます．例えば，print *,(a(i,j),j=1,3)
は，さきほどの “ print *,a(i,1),a(i,2),a(i,3) ”と書くことと同等です．また，print *,5*x,(i,a(i),b(i),i=1,3)
は，“ print *,5*x,1,a(1),b(1),2,a(2),b(2),3,a(3),b(3) ”と書くことと同等です．
do 文と同様に，3 番目の数として増分値を付加することもできます．

(データ 1, データ 2,..., 整数型変数 = 初期値, 終了値, 増分値)
例えば，

24

format を利用すれば続けて書くことは可能です．4.3 節を参照して下さい．

–63–print *,(a(i),i=10,1,-2)
は，“ print *,a(10),a(8),a(6),a(4),a(2) ”と書くことと同等です．
do 型出力は多重にすることもできます．例えば，print *,((a(i,j),j=1,3),i=1,3)
は，“ print *,a(1,1),a(1,2),a(1,3),a(2,1),a(2,2),a(2,3),a(3,1),a(3,2),a(3,3) ”と書くことと同等です．この例のように，多重のときには内側の整数型変数 (この例では j) が先に進みます．
なお，do 型出力の整数型変数は，do 文のカウンタ変数に相当します．このため，do 型出力の入っている出力文を do ブロックの中に入れるときには，do 文のカウンタ変数とも重複しないようにしなければなりません．

4.3

format による出力形式の指定

標準出力形式 (“ * ”指定) で実数を画面に出力すると，有効数字 15 桁の数字を使って表示されます．このため，あまり多くのデータを横に並べることはできないし，結果の確認だけなら，それほど有効数字は必要ありません．また，標準形式の出力には 1 行の出力文字数に制限があるため，出力数が制限を超えると自動的に改行されてしまいます．このため，同じ形式の出力を繰り返しても，行ごとに小数点の位置が違うこともあり，大量に出力するのには向きません．
これらの問題は，出力形式 (format) を指定することで解決することができます．これまで “ * ”を書いていた form の位置に format を指定すれば，小数点以下の桁数を小さくしたり，必要に応じて数字と数
字の間にスペースを空けたり，改行を入れたりすることができます．また，自動改行されることがないので，幅広く出力することも可能です．
format の指定方法は 2 通りあります．まず，format 文による指定です．一例を示します．

real x,y
integer n
x = 1.5
y = 0.03
n = 100
print 600,x,y,n
600 format(’ x = ’,f10.5,’! 600 は format 文の文番号
y = ’,es12.5,’
n = ’,i10)

最後の文が format 文です．format 文は，サブルーチンの引数のように，出力形式の指定をリストにしてかっこで囲み，先頭に文番号を付けます．この文番号を print 文や write 文の form に指定すれば，
その format にしたがってデータが整形されて出力されます．この例では，600 が form 指定です．文番
号は重複できないので，ルーチン内では format 文ごとに異なる数字をつけなければなりません25 ．
複数の print 文や write 文が同じ format 文を指定するのは可能です．例えば，次のように共用することができます．

real x,y,u,v
integer n,k.......
print 600,x,y,n
write(20,600) u,v,k
600 format(’ x = ’,f10.5,’

y = ’,es12.5,’

n = ’,i10)

format 文は，書式を示すだけで，コンピュータの動作はありません．このため，記述の位置には無関係
で，非実行文より後でさえあれば，指定する print 文や write 文より前に書くことも可能です．
25

文番号の付け方に決まったルールはありませんが，“ format 用である ”という意味をどこかに入れておいた方が良いでしょう．この例で 600 を使っているのは，“ 6 ”が昔の出力装置番号だったころの慣習です．

–64–format を指定するもう一つの方法は，文字列を使って form の位置に直接 format の内容を記述することです．例えば，上記の format を print 文や write 文に埋め込んで，
print "(’ x = ’,f10.5,’
y = ’,es12.5,’
n = ’,i10)",x,y,n
write(20,"(’ x = ’,f10.5,’
y = ’,es12.5,’
n = ’,i10)") u,v,kのように書くことができます．このとき，“ format ”の文字は不要ですが，両端のかっこは必要です．な
お，Fortran での文字列は「’」で囲むのが基本ですが，「"」も使えるので，format 内部に「’」が入っているときには「"」で囲みます．
format を出力文中に書き込む方法は，文番号を必要としない点は良いのですが，出力文が長くなるし，
同じ format を何度も使うときには不便です．そこで，文字列変数を利用して書く方法があります．文字列変数の利用方法については 5.3 節で説明します．
出力形式の指定方法を上記の format を例にして説明しましょう．まず，format 中の文字列はそのま
ま出力されるので，必要に応じて適宜挿入します．この例では，’ x = ’ や，’ y = ’ は，スペースも含めてそのまま出力されます．
次に，出力文中のデータ値の並びに対し，それぞれの出力形式を指定する “ 編集記述子 ”を選んで，前から順に記述します．この例では，f10.5，es12.5，i10，が編集記述子で，print 文の並びに対し，

print 600,
600 format(’x↓
x = ’,f10.5,’,y↓y = ’,es12.5,’,n↓n = ’,i10)という対応で出力形式を指定しています．文字列と編集記述子で指定したデータ値は，その並び順に出力されます．よって，この print 文を実行したときの出力は以下のようになります．

x =1.50000y =3.00000e-02

n =

100

出力形式を指定する編集記述子の主要なものを表 4.1 に示します．データの数値型に応じた編集記述
子を使用しないと正しい値が出力されないので注意して下さい．なお，表 4.1 で斜体文字 (w, m, d) は整定数で指定します．また，編集指定の文字 (F や ES など) を指定数 (w など) と区別するために大文字で書きましたが，小文字でも同じ意味です．例えば，i10 は整数型値を幅 10 文字で出力することを意味し，
f10.5 は実数型値を幅 10 文字，小数点以下 5 桁で出力することを意味しています．このため，real x,y
integer m,nx = 1.5
y = 0.03
m = 100
n = 10
print "(f10.5,f10.5,i10,i10.5)",x,y,m,nというプログラムの出力は，1.50000
0.03000
100
00010+----+----+----+----+----+----+----+----+となります．2 行目の目盛りは位置を確認するために書いたものですが，10 文字の中に右寄りで出力されているのがわかります．なお，出力文字数が指定の幅 w を越えると，“ ***** ”のように “ * ”が w 個出力されます．

–65–

表 4.1 主要な編集記述子
編集指定

数値の型

Iw

整数

幅 w で整数を出力する

Iw.m

整数

幅 w で整数を出力する
出力整数の桁が m より小さい時には，先頭に 0 を補う (w = m)

Fw.d

実数

幅 w で実数を固定小数点形式で出力する
d は小数点以下の桁数 (w = d + 3)

Ew.d

実数

幅 w で実数を浮動小数点形式で出力する
d は小数点以下の桁数 (w = d + 8)
仮数部の 1 桁目は 0 になる

Gw.d

実数

幅 w で実数を固定小数点形式または浮動小数点形式で出力する
どちらになるかは，実数の指数部の大きさで決まる
d は小数点以下の桁数

ESw.d

実数

幅 w で実数を浮動小数点形式で出力する (d は E 編集と同じ)
0 以外の数値を出力すると，仮数部の 1 桁目は 1 から 9 になる

ENw.d

実数

幅 w で実数を浮動小数点形式で出力する (d は E 編集と同じ)
0 以外の数値を出力すると，仮数部の整数は 1 以上 1000 未満となり，指数部は 3 で割り切れる数になるA

文字列

文字列をそれ自身の長さの幅で出力する

Aw

文字列

幅 w で文字列を出力する

編集の意味

E 編集を使って実数を浮動小数点形式で出力すると，小数点の前が 0 になります．例えば，
real x,yx = 1.5
y = 3.14e10
print "(e15.5,e15.5)",x,yの出力結果は，0.15000e+01

0.31400e+11となります．これでは感覚的にわかりにくいし，表示字数が 1 個無駄になります．そこで，ES 編集や
EN 編集を使う方が良いでしょう．例えば，

real xx = 3.14e10
print "(es15.5,en15.5)",x,xの出力結果は，3.14000e+1031.40000e+09となります．
各編集記述子と出力の数値は 1 対 1 対応にしなければならないので，配列を出力するときには出力要素数と同数の編集記述子を書かなければなりません．このとき，同じ編集記述子を繰り返すならば，
編集記述子の前に整数 r を付加して，“ r 回反復する ”という指定ができます．例えば，“ 3f10.5 ”は“ f10.5,f10.5,f10.5 ”と書くことと同等です．
さらに，実数，整数，実数，整数のような繰り返しのときには，かっこで囲んで反復指定をすること–66–

ができます．例えば，次のように書くことができます．

real x,y
integer m,nx = 1.5
y = 0.03
m = 5
n = 100
print "(2(f10.5,’’,i7))",x,m,y,n

この print 文の format は，“ f10.5,’ ’,i7,f10.5,’ ’,i7 ”と書くことと同等です．
複素数は，“ 実部，虚部 ”という実数のペアであり，計算機内部的には要素数 2 の 1 次元配列と同型です．このため，複素数を出力するときは，複素数 1 個あたり，実数の編集記述子を 2 個並べる必要があります．例えば，以下のように書きます．

complex cc = (1.0,-2.0)
print "(4f8.3)",c,c**2
この出力結果は，

3.000-2.0005.000 -12.000となります．しかし，これでは複素数という感じが出ないので，少し工夫して，

complex cc = (1.0,-2.0)
print "(2(f8.3,’ + (’,f8.3,’)i’))",c,c**2などとしてみれば良いでしょう．この出力結果は，3.000 + (-2.000)i

5.000 + ( -12.000)iとなります．
なお，format 中の編集記述子の数よりも出力文のデータ値の方が多い場合には，編集記述子の数だけ出力した後で改行し，同じ format を再度使って残りのデータ値を出力します．文字列が入っていれば，文字列も再度出力されます．
逆に，format 中の編集記述子の数よりも出力文のデータ値の方が少ない場合には，指定したデータ値を出力した段階で終了し，残りの編集記述子は無視されます．無視された記述子以降は文字列等が入っていても全て無視されます．そこで，配列を出力するときなどは，反復指定に大きめの数値を与えておくことができます．例えば，

real a(4)integer ma(1) = 2.25
a(2) = 30.2
a(3) = 400.7
a(4) = 5000.6
print "(10(f10.2,’cm’))",(a(m),m=1,4)!

反復指定は 10のように，反復指定を 10 回にしておいても，出力結果は，

2.25cm30.20cm

400.70cm

5000.60cmとなります．
文字列のように出力文中のデータ値との対応がない編集記述子もあります．代表的なものを表 4.2 に示します．ここで，r は整定数で指定します．例えば，2 次元配列 a(3,3) の配列要素を 3 行 3 列の行列–67–のように 1 行あたり 3 個ずつ出力するときは，スラッシュ (/) 編集を使って，real a(3,3).......
print "(3(3f12.5/))",((a(i,j),j=1,3),i=1,3)と書くことができます．
表 4.2 出力文中のデータ値との対応がない編集記述子
編集指定

編集の意味

/

改行する

r/

r 回改行する

rX

r 個スペースを挿入する$

print 文や write 文終了時の改行を抑制する:

出力文中の数値の出力が終わった時点で format 中の以後の出力を打ち切る

X 編集は出力中に適当な数のスペースを入れるときに使います．これは「’’」のように，スペースの文字列を与えるのと同等です．
ドル ($) 編集は，改行コードを出力しない指定です．通常，print 文や write 文で出力すると，出力後に改行をするため，複数の print 文や write 文を使って 1 行に出力することはできません．これは，指定した出力文字に加えて改行コードを出力しているためです．ドル ($) 編集を使えば改行コードを出力しないので，複数の print 文や write 文を使って 1 行に続けて文字を出力することができます．例えば，do ループ中に入れた print 文で，計算結果を横に並べて出力することもできます．
最後のコロン (:) 編集はわかりにくいので，例を使って説明します．先ほど反復指定に大きめの数値を与えておくことができる例を示しましたが，このとき数字の前に文字列を付けようとすると問題が起こります．例えば数値の前に＄記号を付けたくて，
real a(4)integer ma(1) = 2.25
a(2) = 30.2
a(3) = 400.7
a(4) = 5000.6
print "(10(’$’,f10.2))",(a(m),m=1,4)! 反復指定は 10$$と書くと，出力結果は，

$

2.25

30.20

$

400.705000.60$となります．すなわち，最後に余分な 5 個目の “ $ ”が出力されるのです．これは，数値と編集記述子が対応しなくなった時点で出力が終了するのですが，5 個目の “ $ ”の時点ではまだ終了するかどうか未定だからです．これを防ぐために使うのがコロン (:) 編集です．上記の format を修正して，print "(10(’$’,f10.2:))",(a(m),m=1,4)! f10.2 の後にコロンを挿入のように f10.2 の後に “ : ”を入れておけば，対応しなくなった時点からさかのぼって，“ : ”の場所で出力が打ち切られます．これならば，

$

2.25

$

30.20

$

400.70のように，“ $ ”は 4 個しか出力されません．

–68–

$

5000.60

4.4

データの入力方法

プログラムが実行しているとき，そのプログラム中の指定した変数に外部からデータを代入することを “ 入力する ”といいます．計算条件を設定するための変数にデータを入力できるようにしておけば，プ
ログラムの実行を開始してから条件を設定して，それに応じた計算をさせることができます．これにより，プログラムはその動作だけを利用する “ ブラックボックス ”になり，コンパイルしたプログラムを“ アプリケーション ”として他の人に提供することも可能です．

4.4.1

入力文の一般型

データ入力には read 文を用います．

read(nd,*) 変数 1，変数 2,...

nd は装置番号で，nd に適当な整数を与えると “ fort.nd ”という名のファイルから入力します26 ．装置
番号に関する条件や注意事項は出力の場合と同じで，原則として nd = 10 にして下さい．出力ファイルと違うのは fort.nd という名のファイルが存在していなければエラーになるので，あらかじめ用意しておかなければならないことです．なお，“ * ”の位置には，write 文のように format による書式指定ができ
ますが，あまり使うことがないので説明は省略します．
例えば，fort.30 という名前のファイルに，
5.2

1.5

3

と書いて保存しておき，プログラム中に，

read(30,*) x,y,zと書けば，この read 文実行後，x = 5.2，y = 1.5，z = 3.0 となって実行が継続します．入力ファイルに改行が入っていても，read 文の変数入力が完了するまで読み込みを続けるので，fort.30 の入力数値は次のように 3 行に分けて書くこともできます．

5.2
1.5
3
read 文実行時に，ファイルが存在しなかったり，データが足らない場合には，エラーになってプログラムが強制終了します．これに対し，read 文が要求する数値よりもファイルに書かれている数値の方が多い場合は，read 文に記述されている全ての変数に数値が代入された時点で入力が終了します．この後，別の read 文で再び入力を実行すると，最後に読み込んだ行の次の行から入力を再開します．例えば，fort.20 という名前のファイルに，
5.2
10

1.5
20

と書いて保存しておき，プログラム中に，

read(20,*) x,yread(20,*) m,nと書けば，この 2 回の read 文実行後，x = 5.2，y = 1.5，m = 10，n = 20 となります．read 文の処理は行単位で行われるので，最後に読み込んだ行に余分な数値が書かれている場合は無視されます．例えば，
上記の fort.20 を書き換えて，
26

出力ファイルと同様，“ fort ”の部分はコンパイラに依存します．ファイル名は 4.6 節で説明する open 文を使えば変更することができます．また，コンパイラによっては，open 文を使わなくても装置番号に対応する環境変数の指定で，任意の名前を持つファイルに変更することが可能です．

–69–

5.2
10

1.5
20

30

40

のように 1 行目に数字を余分に書いても，2 回目の read 文の結果は変わりません．
read 文の変数の位置には，配列名や，do 型出力と同型の do 型入力を書くこともできます．これらは，出力と入力という方向が異なりますが，入力要素数や繰り返しの意味は同じです．
ファイルではなく，キーボード (正確には標準入力) を使って入力したいときには，以下のように書きます27 ．

read *，変数 1，変数 2,...

この文を実行すると，プログラムの実行が一時停止し，キーボードからの数値入力を待つ状態になります．そこで，適切な数値をキーボードから入力すると，その数値を所定の変数に代入した後，実行が再開します．このため，read 文のタイミングを考慮して数値を入力しなければ，いつまでたっても停止したままです．そこで，read 文の前に入力を促すような文字を出力する print 文を入れることをお勧めします．例えば，print *,’Input X and Y :’read *,x,yと書いておけば，入力のタイミングもわかるし，どの変数へ入力するための数値を要求されているかもわかります．

4.4.2

入力時のエラー処理

ファイルからデータを入力するとき，要求したファイルが存在しなかったり，書き込まれたデータ数
より多くのデータを入力しようとすれば，実行時エラーになってプログラムは強制終了します．これを防ぐため，read 文中にエラー処理指定を入れることができます．

read(nd,*,err=num) 変数 1，変数 2,...

ここで，num には文番号を与えます．この read 文を実行したとき，入力エラーが起こると num で指定した文番号の行へジャンプします．例えば，

do k = 1, 100read(10,*,err=999) x,y,z.......
enddo
999 x = 100と書けば，エラーが起こると文番号 999 の行にジャンプして，その行から実行を継続します．
もし “ ファイルの終了 ”，すなわち，データを入力するときに，それ以上入っていなかった，という場合を検知するだけなら，err=num の代わりに end=num と書くこともできます．両方入れてもかまいません．入力データ数が不明のときには，err か end 指定を入れておき，データ終了時点で次の処理に進むようなプログラムにしておくと良いでしょう．

4.4.3

ネームリストを用いた入力

便利なデータ入力手段として，“ ネームリスト ”を用いる方法があります．例えば，read(10,*) x,y,nという入力文では，入力ファイル fort.10 を，
27

標準入力の装置番号は 5 です．よって，“ read *, ”と書く代わりに，“ read(5,*) ”と書くこともできます．

–70–

10.0

1.e10

100

のように作成しますが，作成するためには入力変数の対応を常に覚えておかなければなりません．必要なデータを全部書き込まなければならないし，順番を間違えることもできません．
これに対し，ネームリスト入力では，入力データを “ 変数＝データ値 ”という代入形で記述するので，どの変数に代入するかを入力ファイルの中で明示することができます．
ネームリスト入力を使うときは，まず入力する可能性のある変数や配列名を namelist 文で登録します．namelist 文は次のような形式です．

namelist /ネームリスト名/ 変数 1，変数 2,...

namelist 文は非実行文なので，全ての実行文より前に書かなければなりません．また，変数や配列名の登録だけなので，型宣言は別途必要です．例えば，
real x,y,a(10)integer nnamelist /option/ x,y,n,aと書きます．ローカル変数だけではなく，use 文で指定されたモジュール中で宣言されているグローバ
ル変数も登録可能です．
namelist 文を使ってネームリストに登録された変数に対し，入力文は，read(nd, ネームリスト名)だけです．これをネームリスト入力文といいます．ネームリスト入力文は変数を指定しません．必要ならば，read(nd, ネームリスト名,err=num)のように，文番号 num を使った err=num を追加してエラー発生時の処理をすることも可能です．例えば，ネームリスト名が option ならば，read(15,option,err=999)などのように書きます．
ネームリスト入力文に対する入力ファイルは次の形式で用意します．変数の順番は namelist 文の登
録順とは無関係なので，自由に並べることができます．

&ネームリスト名
変数 1 = データ 1, 変数 2 = データ 2, ...
/“ &ネームリスト名 ”から “ / ”までがネームリスト入力文 1 回で入力されるデータです．例えば上例のよ
うにネームリスト名が option のときには，&optionx=10.0, y=1.e10, n=100/のようにファイルに書いておきます．入力を開始すると，ネームリスト入力終了の記号 “ / ”を読み込むまで入力を続けるので，次のように 1 行ずつ書くこともできます．

–71–

&option
x=10.0y=1.e10
n=100/
ネームリスト入力にはもう一つ利点があります．それは，必ずしも登録された変数全部を入力ファイルに記述する必要がないことです28 ．記述しなかった変数には，ネームリスト入力文の実行前までに代入されていた値がそのまま残ります．このため，あらかじめ全ての登録変数にデフォルト値を代入しておけば，変更したい変数だけ入力ファイルに記述することができます．例えば，

real x,y,a(10)integer n,inamelist /option/ x,y,n,ax = 100.0
y = 100.e10
n = 0
do i = 1, 10a(i) = i
enddo
read(10,option)のようにプログラムを書いたとします．入力ファイルとして fort.10 という名のファイルに，&optionx=10.0, a(3)=5.0 /と書き込んでおけば，read 文実行後，x は変更されますが，y や n はそのままです．配列 a の場合には，代入された要素 a(3) のみが変更されます．
なお，ネームリストに登録された変数の内容は，次のネームリスト出力文で出力することもできます．

write(nd, ネームリスト名)
この場合，全登録変数が “ 変数＝データ値 ”という形で出力されます．もっとも，ネームリスト出力文を実行すると，登録された全変数のデータが標準形式で出力されるので，変数が多いと煩雑です．取りあえず値を確認したいとき以外は，あまり使わない方が良いと思います．

4.5

書式なし入出力文によるバイナリ形式の利用

これまで，print 文・write 文による出力や read 文による入力には，文字を使って表現した数値を用いていました．これは我々人間の都合によるものです．計算機内部の数値は 2 進数で表現されていて，“ 10 ”とか，“ 1.000e20 ”とかの文字ではありません．しかし，2 進数の並びでは我々が理解できないた
め，出力するときは “ 2 進数→ 10 進数文字表現 ”というデータ変換を行って画面に表示したりファイルに保存し，入力するときは，“ 10 進数文字表現→ 2 進数 ”というデータ変換を行って所定の変数に数値を代入するのです．この文字で表現した形式を “ テキスト形式 ”といいます．
しかし，2 進→ 10 進変換には時間がかかる上に，文字に変換することでデータ量が増えます．これは，文字データが 1 文字あたり 1byte 必要だからです．例えば，倍精度実数の 2 進数表現は 8byte ですが，実数を有効数字 15 桁で出力するには 15 文字 (15byte) 以上必要です．そこで，大量のデータを精度を落とさずに保存するときは，内部表現のままで保存するのが有効です．この内部表現を “ バイナリ形式 ”といいます．Fortran でバイナリ形式の入出力を行うときは，write 文や read 文において form を省略した書式を用います．これを “ 書式なし入出力文 ”といいます．これに対し，これまで説明してきた formを指定する write 文や read 文は “ 書式付き入出力文 ”です．
28

逆に，入力ファイルに同じ変数を複数回記述することもできます．この場合は最後に代入した値が有効になります．

–72–

書式なし write 文は，次のように装置番号だけをかっこ内に指定した write 文です．

write(nd) データ 1，データ 2,...

また，書式なし read 文は，装置番号だけをかっこ内に指定した read 文です．

read(nd) 変数 1，変数 2,...

書式なし read 文は，書式付き read 文と同様に，文番号 num を使って，read(nd,err=num) 変数 1，変数 2,...

のように，err=num や end=num を追加したエラー発生や終了時の処理をすることもできます．
書式なし write 文で作成したバイナリ形式ファイルから，書式なし read 文を使ってデータを読み込
むときにはいくつか注意が必要です．まず，write 文で出力したときのデータと同じ数値型の変数を同じ順番で read 文に並べる必要があります．例えば，

real x,y
integer n
x = 10.0
y = 100.0
n = 10
write(20) x,n,yというプログラムで作成された fort.20 というファイルから数値を入力するには，

real x,y
integer nread(20) x,n,yのように書かなければなりません．この場合，x も n も同じ 10 だからと思って，

read(20) n,x,yと入力すると，出力と数値型の異なる n と x には，正しい値が代入されません．
また，テキスト出力のような “ 改行 ”はありませんが，write 文 1 回ごとに印 (ヘッダ) が付くので，
write 文 1 回の出力に対し，read 文 1 回で入力しなければなりません29 ．ただし，write 文 1 回で書き込まれたデータ数よりも read 文 1 回で入力するデータが少ないのは問題ありません．このとき入力しなかったデータは読み飛ばしたことに相当します．例えば，上記の fort.20 のデータを，read(20) x,nread(20) yのように 2 行の read 文に分けて入力しようとすると，1 行目の read 文実行時における x と n には正常な値が代入されますが，2 行目の read 文実行時に「入力データがない」というエラーで強制終了します．
逆に，上記の write 文を修正して，

write(20) x,n
write(20) yという 2 行で出力したファイルから，

29
このように，書式なし write 文を使って保存したバイナリ形式ファイルには，データだけでなく Fortran 独自のヘッダが付加されています．このため，C 言語など，他のプログラミング言語で作成したプログラムから読み込む場合や，データ解析
ソフトを使って解析するときにはうまく入力できない場合があります．そのような利用が目的でデータを保存するときは，テキスト形式で保存した方が良いでしょう．

–73–read(20) x,n,yのように，read 文 1 回で読み込むこともできません．
書式なし write 文は，1 回で出力できるデータ数に特に制限はありません．このため，大きな配列を
1 回で出力することも可能です．例えば，

real p(10000),q(10000),r(10000)
write(30) p,q,rのように，1 回の write 文で複数の配列の全要素を出力することができます．
もっとも，出力用のプログラムと入力用のプログラムのメンテナンスを考えれば，次のように出力する配列要素数をあらかじめ出力しておいた方が良いと思います．

real p(10000),q(10000),r(10000)
write(30) 10000
write(30) p,q,r
これを入力するときは，出力数を考慮してreal p(10000),q(10000),r(10000)
integer i,imax
read(30) imax
read(30) (p(i),i=1,imax),(q(i),i=1,imax),(r(i),i=1,imax)のように書きます．こうしておけば，出力用のプログラムを修正して要素数を減らしても，入力用のプ
ログラムの変更は不要です．

4.6

ファイルのオープンとクローズ

write 文や read 文を使ってファイルから入出力をする場合，何も指定がなければ，装置番号 nd を付
加した “ fort.nd ”という名のファイルを使用します．これに対し，任意の名前を持つファイルを使いた
いときには，open 文を使って入出力文の実行前にファイル名を指定しておきます．これを “ ファイルをオープンする ”といいます．open 文は以下の形式です．
open(nd,file=name［, form=format］［, status=stat］［, err=num］)［ ］は，その内容が省略可能という意味です．それぞれの記述 (制御指定子) の意味を表 4.3 に示します．
例えば，装置番号 10 のテキスト形式ファイルを “ text.out ”という名にするときは，

open(10,file=’text.out’)と書きます．また，装置番号 30 のバイナリ形式ファイルを “ binary.dat ”という名にするときは，

open(30,file=’binary.dat’,form=’unformatted’)と書きます．ただし，既存のファイルを指定して write 文で書き込むと，それまで書き込まれていたデー
タが上書きされて消えるので注意が必要です．上書きを防ぎたいときには，

open(30,file=’binary.dat’,form=’unformatted’,status=’new’,err=999)のように，status=’new’ と err を指定します．status に’new’ を指定すると，ファイルが存在しなけ
れば新しく作成し，存在すればエラーになります．そこで，エラーの処理を err で指定した文番号 999の行に用意しておけば上書きを防ぐことができます．

–74–

表 4.3 open 文の制御指定子の意味
指定子

指定情報

指定子の意味と注意

nd

装置番号

整数を与える (整数型変数や整数式を与えることも可能)
オープンした後，read 文や write 文の装置番号として使う

name

ファイル名

文字列で指定する (文字変数も可能)
ファイル名は大文字・小文字を正しく指定する必要がある

ファイル形式

文字列で指定する
省略するとテキスト形式の入出力が仮定される
バイナリ形式の入出力を使うときは「’unformatted’」を指定する

stat

ファイル情報文字列で指定する
既存のファイルを使うときは「’old’」を，存在しないファイルを使うときは「’new’」を指定する
条件に合わないとエラーが発生する

num

文番号

エラーのときにジャンプする行の文番号を指定する
省略すると，エラーが起きたときにはプログラムが強制終了する

formatstatus の指定を省略して open 文を実行したとき，指定したファイルが存在しなければ，その名前のファイルが新たに作成されます．このとき，そのファイルが read 文の入力用であれば，データが入っていないので read 文実行時にエラーになりますが，プログラム終了後も作成された空のファイルが残ってしまいます．そこで，ファイルが入力用のときは，status=’old’ を指定して，その存在をチェックした方が良いでしょう．例えば，バイナリ形式ファイル “ binary.inp ”を入力ファイルとして装置番号 20に指定するには，open(20,file=’binary.inp’,form=’unformatted’,status=’old’,err=999)のように書きます．この open 文では，オープンした時点でファイルが存在しなければ，err=999 で指定した文番号 999 の行へジャンプします．
ファイルへ出力する場合，write 文実行時の出力命令のタイミングと実際にディスクに書き込まれるタイミングは必ずしも一致していません．これは入出力ハードウェアを効率よく運用するために，一時記憶領域への読み書きが介在するためです．このため，確実に書き込みを完了させたいときにはファイルをクローズします．クローズは，次の close 文で行います．

close(nd)nd はクローズするファイルの装置番号です．例えば，装置番号 30 のファイルをクローズするときは，
close(30)のように書きます．close 文を実行すると，その時点までに装置番号 nd に出力した全てのデータがディスクに書き込まれます．もっとも，プログラムが正常に終了すれば，全てのファイルが自動的にクローズされるので，通常は close 文を書かなくても問題ありません．
ファイルをクローズすると，装置番号 nd と open 文で指定したファイル名の関係は途切れます．このため，同じ装置番号に新たに別のファイルを指定してオープンすることも可能です．また，同じ名前のファイルを再度オープンすることもできます．ただし，再オープンしてもそれ以前の読み書きの継続にはならず，ファイルの先頭に戻って読み書きをします．すなわち，“ 巻き戻し ”をすることになります．
ファイルを巻き戻すと，read 文による入力は一からやり直すことになり，write 文による出力はファイルの先頭から書き直します．このため，巻き戻してから write 文で出力すると，それ以前に書き込んだ–75–

データは消去されます．
なお，巻き戻すのが目的であれば，rewind 文を使うことで，クローズせずともファイルを巻き戻すことができます．rewind 文とは，次のような文です．

rewind(nd)nd は再度最初から読み書きするファイルの装置番号です．巻き戻しを利用すれば，まず write 文を使ってファイルにデータを出力しておき，次にそれを巻き戻して，read 文を使ってそのデータを入力して使うことも可能です．

–76–

演習問題4(4–1)

連立常微分方程式：2 次の Runge-Kutta 法

N + 1 個の質量 m のおもりが一直線に並んでいて，隣り合ったおもりはバネ定数 k のバネでつながれているとする．このおもりの位置を左側から，z0 ，z1 ，· · · ，zN とすると，i 番目のおもりの運動方程式
はその速度を vi として，
dzi
= vi
dt
dvi
m
= −k(zi − zi−1 ) − k(zi − zi+1 )dtである．このおもりの運動を 2 次の Runge-Kutta 法で解析せよ．
ここで，2 次の Runge-Kutta 法とは変数ベクトル x に対する連立常微分方程式
時刻 tn の値 xn から出発して時刻 tn+1 = tn + ∆t の値 xn+1 をdx= f (t, x) に対し，
dt

k1 = f (tn , xn )k2 = f (tn + ∆t, xn + ∆t k1 )∆t
(k1 + k2 )xn+1 = xn +2で計算する方法である．∆t は適当に決める．プログラムは(1) 時間を進めるメインプログラム(2) Runge-Kutta 法の 1 ステップを計算するサブルーチン(3) 運動方程式の右辺を計算するサブルーチンの 3 個から構成するものとする．さらに，zi や vi は引数で与え，m や k はグローバル変数としてモジュー
ルと use 文を使って共有するようにせよ．なお，初期条件は以下の通りとする．

zi = hi + g sin(kp i)(i = 0 · · · N )vi = 02πpで与える．また，端にあるおもり（z0 と zN ）は動かNないとする．
（つまり，計算しないで初期条件のままとする）
ここで，kp は適当な整数 p を使って，kp =(4–2)

連立常微分方程式：4 次の Runge-Kutta 法問題 (4–1) を修正して 4 次の Runge-Kutta 法で解析せよ．ここで，4 次の Runge-Kutta 法とは微分方dx
程式= f (t, x) に対し，時刻 tn の値 xn から出発して時刻 tn+1 = tn + ∆t の値 xn+1 を
dt

k1 = f (tn , xn )∆t∆t
k2 = f (tn +, xn +
k1 )
2
2
∆t
∆t
k3 = f (tn +, xn +k2 )22
k4 = f (tn + ∆t, xn + ∆t k3 )∆txn+1 = xn +(k1 + 2(k2 + k3 ) + k4 )6で計算する方法である．初期条件や，境界条件は問題 (4–1) と同じにし，問題 (4–1) の結果と比較せよ．

–77–

(4–3)

楕円型偏微分方程式

電荷密度 ρ(x, y) が与えられているときに電位の満足する 2 次元ポワソン方程式∂ 2 V (x, y) ∂ 2 V (x, y)+= −ρ(x, y)∂x2∂y 2を解くには次のようにする．
等間隔 h ごとに並んだ x 座標点 xi = hi, (i = 0〜M ) と y 座標点 yj = hj, (j = 0〜N ) に対して，
Vi,j = V (xi , yj )，ρi,j = ρ(xi , yj ) として，上の偏微分方程式を差分化すれば次式になる．

Vi−1,j − 2Vi,j + Vi+1,jVi,j−1 − 2Vi,j + Vi,j+1+= −ρi,j2hh2
これは Vi,j に関する連立 1 次方程式である．これを解くには，以下のような漸化式に変形して反復法を用いる．
)
1 ( (k+1)(k+1)0
(k+1)
(k)
(k)
Vi,j
=
Vi−1,j + Vi,j−1 + Vi+1,j + Vi,j+1 + ρi,j h2
4
(k+1)

Vi,j

(k+1)0(k)= Vi,j + ω(Vi,j(k)− Vi,j )

(0)

(k)

(k+1)

これを適当な初期条件 Vi,j から出発して，k 回目の反復値 Vi,j と k + 1 回目の反復値 Vi,jの差が十分小さくなれば，元の連立方程式の近似解になると考えられる．
(k+1)0(k+1)
なお，第 1 式の Vi,j
をそのまま次の反復値 Vi,jとして用いる手法を，ガウス・ザイデル法という．
しかし，ガウス・ザイデル法は収束が遅いので，第 2 式を使って解を改良する．これを，SOR(Successive
Over Relaxation，逐次過緩和) という．ω は加速係数であり，ω = 1 のときがガウス・ザイデル法，ω > 1
が SOR である．ただし，ω = 2 では発散するので，1 < ω < 2 の範囲で最も収束が速くなる数値を選ぶ．
この反復法を使って，次の電荷密度における電位を計算するプログラムを作成せよ．

(
ρ(x, y) = sin

2πx
Mh

)

(
sin

4πy
Nh

)

(0)

ここで，初期条件は Vi,j = 0，境界条件は V0,j = Vi,0 = VM,j = Vi,N = 0 (i = 0〜M, j = 0〜N ) でよい．また，収束の判定は
(k+1)
(k)
max |Vi,j− Vi,j | < εi,jで行うこと．ただし，ε は適当な小さい値とする (例えば，10−12 )．
プログラムは，(1) 反復を行い，収束条件を確認するメインプログラム(2) 初期値を代入するサブルーチン(3) ガウス・ザイデル法 +SOR を 1 ステップ行うサブルーチンの 3 個から構成するものとする．

–78–

(4–4)

放物型偏微分方程式：陽解差分法

次の温度 T (x, t) に関する熱伝導方程式を，陽解差分法 (Explicit 法) を用いて解析せよ．

∂T
∂2T
=κ 2
∂t
∂x
このような時間発展の偏微分方程式を解くには，まず等間隔 h ごとに並んだ x 座標点 xi = hi, (i = 0〜L) に対して初期の温度分布を与え，時間間隔 ∆t ごとに時間を進めた温度分布を計算する．陽解差分法とは，n ステップ目の温度分布を Tin = T (xi , ∆t n) と表したときに，熱伝導方程式を，n
T n − 2Tin + Ti−1
Tin+1 − Tin= κ i+1∆th2と近似する方法である．この方程式を Tin+1 に関して解けば，

Tin+1 = Tin +)κ∆t ( nn
Ti+1 − 2Tin + Ti−12h（i = 1, 2, . . . , L − 1）となるので，これを使って Tin から Tin+1 を繰り返し計算していけばよい．
ただし，境界条件として，T0n = 0，TLn = 0 とする．また，初期条件は，

 Ti0 = i(i < L/2)

 T 0 = L − i (i > L/2)iとする．プログラムは(1) 時間を進めるメインプログラム(2) 初期条件を計算するサブルーチン(3) 陽解法で 1 ステップ進めるサブルーチンの 3 個から構成するものとする．温度 Tin と，h，∆t，κ などのパラメータはグローバル変数にしてモジュールと use 文で共有する．また，メモリの節約のため，Tin を配列 T1(i) で表し，Tin+1 を配列 T2(i)で表して，T1 と T2 のデータをうまく交換するように考える．
κ∆tκ∆t
完成したプログラムを使って， 2 = 0.2 にすると安定に計算ができるのに， 2 > 0.5 にすると，hh
不安定になることなども確かめよ．

(4–5)

放物型偏微分方程式：陰解差分法

温度 T (x, t) に関する熱伝導方程式を，陰解差分法 (Implicit 法) を用いて解析せよ．
ただし，陰解差分法とは，問題 (4–4) の偏微分方程式を
[
]
n+1
n+1
n − 2T n + T n
Ti+1− 2Tin+1 + Ti−1
Ti+1
Tin+1 − Tin
1
i
i−1
=
κ
+κ
∆t
2
h2
h2
と近似する方法である．この方程式を変形すれば，
n+1
n+1
ai Ti−1+ bi Tin+1 + ci Ti+1
= di（i = 1, 2, . . . , L − 1）の形になるので，問題 (2–10) で示した連立 1 次方程式の解法を使って Tin+1 が計算できる．
ここで，境界条件や初期条件は陽解法と同じでよい．プログラムは–79–

(1) 時間を進めるメインプログラム(2) 初期条件を計算するサブルーチン(3) 陰解法で 1 ステップ進めるサブルーチンの 3 個から構成するものとする．温度 Tin と，h，∆t，κ などのパラメータはグローバル変数にしてモジュールと use 文で共有する．また，メモリの節約のため，Tin を配列 T1(i) で表し，Tin+1 を配列 T2(i)で表して，T1 と T2 のデータをうまく交換するように考える．
κ∆t
完成したプログラムでは， 2 > 0.5 にしても不安定にならないことなどを確かめよ．
h

(4–6)

分子動力学

2 個の距離 r 離れた分子間の位置エネルギーを表す近似式の一つに次式のようなレナード・ジョーン
ズポテンシャルがある [3]．
{( )}σ 12 ( σ )6
U (r) = 4ε−rr
この式は，分子が近づくと斥力（反発力）が働き，遠ざかると引力が働くことを示している．レナー
ド・ジョーンズポテンシャルの勾配を計算することで分子間に働く力が計算できる．すなわち，2 個の分子 i と j の位置ベクトルを r i ，r j とすると，分子 j が分子 i に及ぼす力は，{ ( )( )7 }
ri − rj
4εσ 13σF ij = −∇i U (|r i − r j |) =
12
−6
σ
rij
rij
rij
となる．ここで,rij = |r i − r j | である．
今，分子が N 個あるとすると，分子 i に加わる力は i 以外の分子から受ける力の合力なので，{ ( )( )7 }
NN∑∑
ri − rj
4ε
σ 13
σ
Fi =
F ij =
12
−6
σ
rij
rij
rij
j=1
i6=j

j=1
i6=j

となる．これを用いて N 個の分子の運動方程式∑ 4εd2 r imi 2 = F i =
dt
σ
N

j=1
i6=j

{

(
12

σ
rij

)13

(
−6

σ
rij

)7 }

ri − rjrij(i = 1...N )を解くプログラムを作成せよ．ここで，分子数が増えると時間がかかるので，効率よく時間積分をする
ためにベルレ法を用いる [3]．ベルレ法とは次のような 2 段階の計算で位置ベクトルと速度ベクトルを更新する方法である．
まず，現時刻 (n ステップ後) の位置ベクトル r ni を用いて計算した各分子に加わる力 F ni と現時刻の速度ベクトル v ni を使って次式のように位置ベクトルを更新する．

r n+1= r ni + ∆tv ni +
i

∆t2 n
F
2mi i

ここで，∆t は 1 ステップの時間間隔である．
次に，この更新された位置ベクトル r n+1
を用いて新しい力 F n+1を計算し，次式のように速度ベクトii
ルを更新する．
+ F ni∆t F n+1
n
i
v n+1
=
v
+
i
i
mi
2

–80–

このとき，新しい力 F n+1
は次ステップの位置ベクトルや速度ベクトルの更新に利用できることに注意
i
すること．
−2k
なお，力の計算に rijが入っているため，2 分子の距離がかなり接近すると，力が大きくなりすぎて，−2
安定に計算することができなくなる．そこで，rijを次式のように修正するとよい．

1
1
→
2
2
(xi − xj ) + (yi − yj )2 + (zi − zj )2 + ε2rij
ここで，ε は最も接近する可能性のある距離で，σ に比べて十分小さい数にする．
プログラムは，(1) 時間を進めるメインプログラム(2) 初期条件を計算するサブルーチン(3) ベルレ法第 1 段階で位置ベクトルを更新するサブルーチン(4) ベルレ法第 2 段階で速度ベクトルを更新するサブルーチンの 4 個から構成するものとする．
初期条件としては，まず適当な間隔離れた 2 個の分子でテストする．これにより正常に動作することが確認されたら，正三角形の頂点に配置した 3 個の分子や正四面体の頂点に配置した 4 個の分子などの動きを計算せよ．

(4–7)

1 次元移流方程式

次の関数 f (x, t) に関する 1 次元移流方程式を，CIP 法を用いて解析せよ [4]．

∂f
∂f
+u
=0
∂t
∂x
ここで，CIP 法とは，間隔 h の x 座標点 xi = hi, (i = 0〜L) で定義された，n ステップ目の関数値∂fの値 gin = g(xi , n∆t) が与えられているとき，時間間
fin = f (xi , n∆t) と，その x 方向微分 g(x, t) =∂x
隔 ∆t 後の関数値と微分値を，

fin+1 = ai X 3 + bi X 2 + gin X + fin
gin+1 = 3ai X 2 + 2bi X + ginで近似する方法である．ここで，X = −u∆t である．また，ai ，bi は次式で与えられる．
nn )gin + gi+1
2(fin − fi+1
+
h2
h3
n
n
n
3(fi+1 − fi ) 2gin + gi+1
−
bi =
h2
h

ai =

初期条件は，グリッド数 L と，その中間の値，i1 ，i2 を適当に決めて，
 f 0 = 1 (i1 < i < i2 )i

 f 0 = 0 (それ以外)
iとせよ．なお，h = 1，u = −1 とする．
まず，n ステップ目の座標点データ fin と gin を 1 次元配列 f1(i) と g1(i) で表し，これらと適当な値の u，h，∆t を用いて，n + 1 ステップ目の座標点データ fin+1 と gin+1 を表す 1 次元配列 f2(i) と g2(i)を計算するサブルーチンを作成する．そして，これらを適宜交換しながら繰り返すことで，fin や gin が–81–

時間発展するプログラムを作成すればよい．なお，i の最大値 L では ai ，bi を計算することができない
n = 0 で良い．
ので，常に fLn = 0，gL
プログラムは，(1) 時間を進めるメインプログラム(2) 初期条件を計算するサブルーチン(3) CIP 法で関数値と微分値を更新するサブルーチンの 3 個から構成するものとする．

(4–8)

粒子密度 – 分布関数

2 次元領域，0 5 x 5 Xm ，0 5 y 5 Ym ，の内部に N 個の粒子があるとき，粒子の密度分布は以下のような手順で計算することができる．
まず，適当な整数 L と M を使って，2 次元領域を hx = Xm /L ごとに並んだ x 座標点 x0 ，x1 ，· · · ，xL (= Xm ) と，hy = Ym /M ごとに並んだ y 座標点 y0 ，y1 ，· · · ，yM (= Ym ) で指定したグリッドを導入す
る．次に密度配列 Rho(0:L,0:M) に初期値として 0 を代入しておいて，k 番目の粒子座標 (x(k),y(k))
から以下のようにして各グリッドに所属する粒子数をカウントする．
i = x(k)/hx! hx = hx
j = y(k)/hy! hy = hy
Rho(i,j) = Rho(i,j) + 1
ただし，i と j は整数型変数である．すなわち，x(k)/hx と y(k)/hy を切り捨てることで粒子が所属するグリッド番号を計算する．
問題 (3–10) で紹介した乱数発生用のサブルーチンを使って，一様乱数を 2 個ずつ発生させ，これらにXm と Ym を掛けることで 2 次元領域中にランダムで一様に分布した粒子の座標点を N 個作成し，その密度の平均と標準偏差を計算せよ．そして，N が大きくなると，標準偏差が小さくなることを確かめよ．

(4–9)

ブラウン運動 – 拡散

ある点から粒子を速度 v で出発させたところ，時刻 ∆t ごとに周りの粒子に衝突して方向を変えるとする．この時の粒子の進む様子を計算してみよう．
X Y
問題 (4–8) と同じ 2 次元領域で，粒子の初期位置は，全て ( m , m )，すなわち，2 次元領域の中央と22する．計算は(1) 1 ステップごとに乱数 R を発生させ，θ = 2πR で，方向角 θ を計算する(2) 1 ステップ後の位置を (xs+1 , ys+1 ) = (xs + v∆t cos θ, ys + v∆t sin θ) で計算する(3) 粒子が 0 5 x 5 Xm ，0 5 y 5 Ym の領域から外に出たら計算をストップするのように進めればよい．
この過程によって N 個の粒子の NT ステップ後の位置を計算し，その密度を計算せよ．また，ステッ
プ NT を増やすと，密度がどの様に変化するかを調べよ．
プログラムは，(1) 時間を進めるメインプログラム(2) 初期条件を計算するサブルーチン(3) 粒子の座標を更新するサブルーチン(4) 粒子の位置から密度を計算するサブルーチンの 4 個から構成するものとする．

–82–

第5章

文字列の活用

これまで print 文や format 文に記述して，数値の意味などを表示するのに使ってきた文字列ですが，
この他にも様々な用途があります．また，固定した文字の並びだけではなく，文字列変数を使って条件に応じてその内容を変更したり，文字列と文字列を連結したり，文字列の一部を取り出したりするなどの “ 文字列演算 ”をすることもできます．本章では文字列をより積極的に活用する手法を紹介します．

5.1

文字列定数と文字列変数

Fortran における文字列とは 2 個の「’」または「"」で囲んだ文字の並びのことです．例えば，’abc’’TaguchitT.’"(123.5678+X^2)""漢字も書けます"

等が文字列です．文字列にはスペースや記号を入れることもできます30 ．「’」と「"」は同等なので，どちらを使うかは自由です．例えば，通常は「’」で囲み，文字列の中に「’」を使いたいときは，「"Teacher’s"」のように全体を「"」で囲む，というように決めておけば良いでしょう．
コンピュータの “ 文字 ”は文字コードという整数値と対応していて，文字列は文字コードを表す整数の配列で実現されています．このため，整数定数の「1」と文字列の「’1’」は全く異なるものです．文
字コードは半角英数字なら 1 文字あたり 1byte の整数，全角の漢字やひらがななら 1 文字あたり 2byteの整数です．半角英数字のコードは，現在ほとんど全てのコンピュータで ASCII コードが使われています31 ．このため，半角英数字だけでプログラムを書けば移植性の問題はありません．しかし，全角文字
は OS や利用環境によって文字コードが違う可能性があるので，プログラム中に日本語を記述すると，別のコンピュータに移したときに文字化けすることがあります32 ．Fortran において日本語が使えるのは
コメント文とテキスト表示くらいなので，それほど重要ではありません．以下，文字列中の “ 文字 ”は1byte の ASCII コードであると仮定して説明をします．
「’」または「"」で囲んだ文字列は，文字列 “ 定数 ”ですが，文字列を代入して保存する文字列 “ 変数 ”を作ることもできます．文字列変数を作るには character 宣言を使います．character 宣言は，以下のような書式です．

character 文字列変数 1*文字数 1，文字列変数 2*文字数 2，...
文字数とは，文字列変数に代入可能な最大の文字数です．指定できる最小の文字数は 1 です．また，拡張宣言文にして属性などを付加することも可能です．例えば，

character c1*10,c2*20,cc*1
character chr(20)*30,chs(100,200)*50と宣言すると，文字列変数 c1 には 10 個まで，c2 には 20 個までの文字を代入することができます．これに対し cc には 1 文字しか入りません33 ．また chr や chs のように文字列の配列を宣言することも可能です．chr は 30 文字まで入る 1 次元配列で，chs は 50 文字まで入る 2 次元配列です．
同じ文字数の文字列変数を複数個宣言するときは，以下の 2 種類の書式で宣言することもできます．

character(文字数) 文字列変数 1，文字列変数 2，...
character(len=文字数) 文字列変数 1，文字列変数 2，...

30

本章では半角スペース記号を明記するときに “ t ”を使います．
ASCII コード表は付録 F にあります．
32
パソコンで使われているのは Shift JIS コードが多く，Linux などの UNIX 系 OS で使われているのは EUC コードが多いようです．最近は，コード体系をより統一化した Unicode を使う OS が増えてきました．
33
文法的には “ *文字数 ”を省略して変数名だけで宣言すると，文字数が 1 の文字列になります．しかし，プログラムがわかりにくくなるので，常に “ *1 ”を付加して文字数 1 を陽に指定した方が良いでしょう．
31

–83–

ここで，“ 文字列変数 ”には，変数名か，配列名とその要素数を記述します．例えば，文字数 10 の文
字列変数や文字列配列を宣言するときは，

character(10) cs1,ds1,cas1(100)character(len=10) cs2,ds2,cas2(100)などと書きます．2 行目の書式は，入力に手間がかかりますが「文字数」という意味を明示しているところが利点です．文字数は，次のように parameter 変数 (3.8.2 節) で指定することもできます．

integer, parameter :: kp = 10
character(kp) ch2
character(len=kp) ch3
文字列変数に文字列を代入するには，数値の代入と同じで，イコール「=」を使います．例えば，上記の 10 文字の文字列変数 c1 に文字列定数を代入するには，

c1 = ’abc’のように書きます．このとき，代入される文字 ’abc’ は 3 文字なので，10 文字の変数 c1 の先頭から順に 1 文字ずつ代入され，残りの領域は半角スペースが代入されます．スペースも文字ですから，c1 の文字数は，代入した文字列の文字数にかかわらず，10 のままです．図に描けば，以下のようなイメージ
です．

c1

a

b

c

t

t

t

t

t

t

t

逆に，代入する文字列の文字数の方が多い場合には，その文字列の先頭から代入できる最大文字数までが代入され，残りは切り捨てられます．拡張宣言文を使えば，次のようにあらかじめ文字列定数を代入した文字列変数を用意することも可能です．

character :: chr*10=’abcde’
この場合，文字列変数の文字数が 10 文字なのに代入しているのは 5 文字ですから，後の 5 文字はスペー
スが代入されています．

5.2

部分文字列と文字列演算

文字列変数に代入された文字列は部分的に取り出すことができます．これを “ 部分文字列 ”といいます．部分文字列は，文字列変数の先頭から数えて何番目から何番目という範囲を「:」を使って指定します．例えば，c1 という文字列変数の n1 番目から n2 番目の文字を取り出すには，

c1(n1:n2)と指定します．この文字列は，n2-n1+1 文字の文字列として扱われます．例えば，c1=’abcdefg’ ならば，c1(3:5) は，’cde’ です．n1 と n2 を等しくすることで 1 文字を取り出すこともできます．例えば，

c1 = ’abcdefg’
do i = 1, 7
print *,c1(i:i)
enddoとすれば，1 文字ずつ縦に出力されます．
文字列配列の部分文字列を取り出す場合には，要素指定を先に，部分文字列指定を後に書きます．例
えば，1 次元の文字列配列 chr に対し，k 番目の要素の部分文字列は，

chr(k)(n1:n2)–84–

のように指定します．かっこが連続するので，順番に気を付けて下さい．
文字列は連結することもできます．文字列の連結には演算子「//」を用います．例えば，

c1 = ’abc’//’xyz’と書くと，c1 には’abcxyz’ という文字列が代入されます．文字列の連結は，文字列定数と文字列変数，
文字列変数と文字列変数という組み合わせでも可能です．ただし，文字列変数に代入された文字列を連結するときには注意が必要です．例えば，

character c1*10,c2*20
c1 = ’abc’
c2 = c1//’xyz’と書いた場合，c2 に’abcxyz’ という文字列が代入されると思ったら間違いです．正しくは’abctttttttxyz’が代入されます．これは，上記のように 10 文字の文字変数 c1 に 3 文字の’abc’ を代入しても，c1 の文
字数は変わらないからです．末尾の不要なスペースを削除するには，部分文字列を使う必要があります．

character c1*10,c2*20
c1 = ’abc’
c2 = c1(1:3)//’xyz’
このプログラムならば，c2 に’abcxyz’ が代入されます．
しかし，この方法は変数に代入されている文字数が不明のときには使えません．そこで，関数 trim が用意されています．trim は末尾のスペースを除去した文字列を返す組み込み関数です．例えば，上記の例は，

character c1*10,c2*20
c1 = ’abc’
c2 = trim(c1)//’xyz’と書くことができます．この結果も c2 には’abcxyz’ が代入されます．
文字列をサブルーチンの引数にするときは，「(*)」を指定して宣言します．例えば，

subroutine csubr1(chr)implicit none
character(*) chr.......

! 文字数は不要の chr のように宣言します．Fortran の文字列には，文字コードの並びだけではなく，文字数の情報も含まれています．このため，(*) 指定のように文字数が明記されていなくても，コール側で指定した文字数の文字列として使用することができます．例えば，

program ctest1
implicit none
call csubr1(’abcde’)
end program ctest1
subroutine csubr1(chr)implicit none
character(*) chr
print *,chr,len(chr)end subroutine csubr1! 文字列 ’abced’ と文字数 5 が出力されるのようなプログラムにおいて，サブルーチン csubr1 中の print 文の出力は，文字列 ’abcde’ と文字数5 になります．ここで，関数 len は文字列の文字数を取得する関数です．文字列に関する組み込み関数–85–

は，5.5 節で説明します．
文字列には大小関係があり，これを利用して if 文で条件分岐をすることもできます．2 個の文字列を比較するときは，以下の手順で行います．

(1) 文字数の長さが異なるときは，短い方の文字列の末尾にスペースを追加して文字数を等しくする(2) 2 個の文字列を先頭から 1 文字ずつ比較していって，全て同じならば，“ 等しい (==) ”(3) 異なる文字があれば，最初に異なる文字の ASCII コードを比較して，コード値の大小が文字列の “ 大 (>) ”または “ 小 (<) ”
付録 F の表からわかるように，ASCII コードは，“ スペース ”＜ “ 数字 ”＜ “ 英大文字 ”＜ “ 英小文字 ”の順で大きくなり，個々の文字は次のような順序になっています．
t< ’0’ < ’1’ <...< ’9’ < ’A’ < ’B’ <...< ’Z’ < ’a’ < ’b’ <...< ’z’

例えば，文字列の比較を使って次のようなプログラムを書くことができます．

character c1*10,c2*20
c1 = ’abcde’
c2 = ’abdce’if (c1 < c2) print *,’c1 < c2’
if (c1 == c2) print *,’c1 == c2’
if (c1 > c2) print *,’c1 > c2’! ３番目が ’c’! ３番目が ’d’

この結果は，“ c1 < c2 ”です．なぜなら，3 番目の文字が初めて異なり，c1 は ’c’，c2 は ’d’ ですが，’c’ < ’d’ だからです．なお，c1 は 10 文字，c2 は 20 文字ですが，後ろにスペースを補うので，この例の結果には無関係です．

5.3

出力における文字列の利用

最もよく文字列を使う場面は，print 文や write 文の中に入れて表示の補助に使うことでしょう．例
えば，

real spd,pres
spd = 10.0
pres = 960.0
print *,’ Wind Speed = ’,spd,’

Pressure = ’,presと書けば，出力がWind Speed =10.0000000000000

Pressure =960.000000000000のようになって，どの数値がどの変数の値なのかが一目でわかります．
ここで，文字列はその長さに合わせて出力されています．これは，print 文が文字列に入っている文
字数の情報に合わせて出力するからです．この機能は，format で文字列の出力形式を指定するときにも使うことができます．文字列の出力指定には，A 編集 (表 4.1) を用いますが，A 編集は，「a」だけ書くと，文字列の文字数が出力幅になります．例えば上記の print 文を，

print 600,’ Wind Speed = ’,spd,’ m/s’print 600,’ Pressure = ’,pres,’ hPa’
600 format(a,f8.2,a)と書けば，次のような文字幅に合わせた出力結果が得られます．

Wind Speed =10.00 m/s
Pressure =960.00 hPa–86–

4.3 節の format の説明で紹介しましたが，出力形式指定を print 文や write 文の中に埋め込む書式
も，文字列の利用方法の一つです．例えば，print 600,x
write(10,600) x
600 format(’ x = ’,es12.5)というプログラムは次のように書き換えることができます．

print "(’ x = ’,es12.5)",x
write(10,"(’ x = ’,es12.5)") x
すなわち，format 文のかっこ以下を，両端のかっこを含めて文字列にして print 文や write 文の書式
指定の位置 (form) に書き込みます．このとき，文字列変数を使えば，複数の場所で同じ format を使う
ときに便利です．

character :: form*20="(’ x = ’,es12.5)"
print form,xwrite(10,form) x
文字列変数を利用すれば，出力内容に応じて実行時に format を変更することも可能です．例えば，

real xcharacter form*20
if (abs(x) >= 1.e5) thenform = "(’x = ’,es12.5)"
else
form = "(’x = ’,f10.5)"
endif
print form,xとすれば，x の絶対値が 105 以上のときには es12.5 編集で，さもなくば f10.5 編集で出力されます．
また，部分文字列を利用して変更することも考えられます．例えば，

real xcharacter form*20
form = "(’x = ’,f10.5)"
if (x >= 100.0) form(10:13)=’12.3’
print form,x! 10.5 から 12.3 に変更のように書けば，x が 100.0 以上のときは f12.3 編集で，さもなくば f10.5 編集で出力されます．

5.4

数値・文字列変換

ここまでは write 文や read 文の書式指定に文字列を使用していましたが，装置番号の位置に文字列を記述することもできます．これは “ 文字列 ”から “ 数値 ”への変換，またはその逆変換を行うときに使用します．5.1 節で述べたように，「123」という数値と「’123’」という文字列は計算機内部の表現が異なりますが，処理の過程で 123 という数値からそれに相当する文字を作ったり，逆に’123’ という文字列を数値として計算に利用したい場合があります．そもそも，書式付き write 文は “ 計算機内部の 2 進
数 ”を “ 文字で表現された 10 進数 ”に変換して出力する動作であり，書式付き read 文はファイルなどから “ 文字で表現された 10 進数 ”を入力して “ 計算機内部の 2 進数 ”に変換する動作です．装置番号の位
置に文字列を利用すると，その変換機能だけを使うことができるのです．
“ 数値 ”→ “ 文字列 ”変換をするには write 文を用います．例えば，–87–

real xcharacter ch*20
x = 123.5
write(ch,"(f10.5)") xと書けば，文字列変数 ch に’ 123.50000’ という文字列が代入されます．ただし，文字列に変換するときは，出力文字数以上の長さを持つ文字列変数を用意しておく必要があります．
open 文 (4.6 節) を使ってファイルをオープンするとき，ファイル名は文字列で指定する必要があります．そこで，ﬁle01.dat，ﬁle02.dat，...，ﬁle10.dat という通し番号の付いた 10 個のファイルが存在して，それぞれを装置番号 11〜20 としてオープンするときは，次のように書きます．

character name*20
integer m
do m = 1, 10
write(name,"(’file’,i2.2,’.dat’)") m
open(10+i,file=name)enddo
ここで，整数 m の出力編集を i2.2 にしているのは，スペースを ’0’ で埋めて，整数の出力を 01，02，...
のようにするためです．
逆に，“ 文字 ”→ “ 数値 ”変換をするには read 文を用います．例えば，

real xcharacter ch*20
ch = ’12345.0’
read(ch,*) xと書けば，実数型変数 x に 12345.0 という “ 数値 ”が代入されます．

5.5

文字列に関する組み込み関数

文字列に関する組み込み関数は，trim や len の他にも色々あります．代表的なものを表 5.1 に示します．本節ではこれらの関数の中で比較的良く使うものの使用方法について説明します．
表 5.1 文字列に関する組み込み関数
文字列関数

引数の型

関数値の型

trim(c)

文字列

文字列

末尾の空白を削除

len(c)

文字列

整数

文字列の文字数

len_trim(c)

文字列

整数

末尾の空白を削除した文字列の文字数

adjustl(c)

文字列

文字列

文字列を左にそろえた文字列

adjustr(c)

文字列

文字列

文字列を右にそろえた文字列

index(c,cp)

2 個の文字列

整数

文字列 c 中で文字列 cp が含まれていれば，その開始位置を返す 無ければ 0 を返す

repeat(c,n)

文字列と整数

文字列

文字列 c を n 個連結した文字列

char(n)整数

1 文字の文字列

ASCII コード値を与えると，それに対応する半角英数文字を返す

ichar(c)1 文字の文字列

整数

半角英数 1 文字を与えると，それに対応する ASCII コード値を返す

関数の意味

まず，5.2 節にも出てきた関数 len は，文字列の文字数を取得するための関数ですが，使用の際は注–88–意が必要です．例えば，

character c1*10
integer m,nm = len(’abc’)
c1 = ’abc’
n = len(c1)! m = 3! n = 10とすると，m の値は 3 ですが，n の値は 10 になります．これは，文字列変数の文字数が宣言時の文字数だからです．末尾のスペースを除去した文字列の長さを取得するには，関数 trim を使って除去してから
関数 len で調べるか，関数 len_trim を使います．例えば，上のプログラムで，最後の n への代入文を

n=len(trim(c1))

またはn=len_trim(c1)で置き換えれば，n = 3 になります．
最後の char と ichar の使用例を示します．この二つの関数を組み合わせれば，read 文や write 文を使わなくても，文字と数値の変換をすることができます．例えば，2 桁の整数を 3 桁の 8 進数で表示するプログラムは以下のようになります．

integer zero,num
character c1*10
num = 12c1 = ’000’
zero = ichar(’0’)! ’0’ の文字コードを整数値に変換
c1(3:3) = char(zero+mod(num,8))! num の 1 の位の文字
c1(2:2) = char(zero+mod(num/8,8))! num の 8 の位の文字
c1(1:1) = char(zero+mod(num/64,8))! num の 64 の位の文字
print *,’decimal(’,num,’) = octal( ’,trim(c1),’ )’ASCII コードでは，’0’,’1’,’2’,...,’8’,’9’ の順で値が 1 ずつ増加しています．そこで，先頭の’0’のコード値に 1 桁の数字を加えれば，その数字のコード値が得られます．同様に，大文字の英数字や，小文字の英数字も 1 ずつ増加して並んでいるので，先頭の文字である’A’ や’a’ のコード値に，その文字の順番の差の数字を加えて逆変換すれば，対応する文字を得ることができます．整数の 16 進数表示をするプログラムを考えてみて下さい．

–89–

第6章

配列計算式

第 5 章で説明した文字列の処理は，それ以前に説明した数値の計算と少し毛色が違います．数値計算が 1 個の数値と 1 個の数値の間の演算を基本としているのに対し，文字列の処理では，“ 文字列 ”という文字コードの集合をひとまとめにして取り扱い，文字列と文字列の連結や文字列変数への代入を一つの式で実行することができます．文字列とは文字コードの配列なのですから，これを数値計算的に処理するならば，本来は 1 文字ずつ処理しなければなりません．文字列の演算が可能なのは，Fortran コンパ
イラが，“ 文字列 ”という数値集合の処理を，内部で 1 文字ずつ処理するプログラムに変換してくれるからです．
Fortran では，この概念を一般の配列に拡張した “ 配列演算 ”が可能です．配列演算とは，数値の集合を配列名で代表させ，配列要素と配列要素の演算を，配列名と配列名の演算の形で記述するものです．配列演算を使えば，do 文を使わずに配列を使った計算を記述することができます．これを “ 配列計算式 ”と呼びます．配列計算式を使う利点は，単にプログラムが短くなるだけではありません．計算が最適になるように，繰り返しの順序やメモリ配置をコンパイラが決めてくれるので，場合によっては，do 文を使って書くより高速に計算させることができます．
本章では，配列計算式の使い方について説明します．また，プログラム実行中に任意の要素数を持つ配列を用意する “ 動的割り付け ”についても説明します．

6.1

基本的な配列計算式

配列演算は，配列の全要素に対して，全て同じパターンの演算をするのが基本です．このため，1 行の配列計算式で用いる配列は，次元と各次元の要素数が全て等しい “ 同型の配列 ”でなければなりません．その点に注意すれば，配列の全ての要素に同じ定数を代入するときや，2 個の配列の対応する要素
間で全て同じ四則演算をするときに，あたかも配列名が一つの変数であるかのような記述をすることができます．例えば，次のような記述が可能です．

real x(10,10),y(10,10),z(10,10)
x = 1.0
y = 2.0z = x + 3.5*x*y**2
このプログラムを実行すると，配列 x の全ての要素は 1.0 になり，配列 y の全ての要素は 2.0 になり，配列 z の全ての要素は 15.0 (=1.0 + 3.5×1.0×2.02 ) になります．このプログラムは do 文を使った以下のプログラムと同じ結果になります34 ．

real x(10,10),y(10,10),z(10,10)integer i,j
do j = 1, 10
do i = 1, 10x(i,j) = 1.0y(i,j) = 2.0z(i,j) = x(i,j) + 3.5*x(i,j)*y(i,j)**2
enddo
enddo
配列計算式中の定数は，全要素に対して共通の値として計算します．
次のような，組み込み関数を使った配列計算式も可能です．

34

ただし，ループの処理はコンパイラが自動的に生成するので，実際にこの通りの順序で計算するかどうかはわかりません．
あくまでも，このプログラムと同じ結果になるという意味だと考えてください．

–90–real a(10,10),b(10,10),c(10,10).......
a = sqrt(b*sin(c)/(3.2*c + 1.5e-3))
この配列計算式を do 文で表すと，次のようになります．

do j = 1, 10
do i = 1, 10a(i,j) = sqrt(b(i,j)*sin(c(i,j))/(3.2*c(i,j) + 1.5e-3))
enddo
enddo
配列計算式においては，式中に含まれる全ての配列が同型でなければならないので，異なる次元や要素数の配列が混じっているとエラーになります．ただし，下限は異なってもかまいません．例えば，

real a(3,3),r(-1:1,0:2).......
a = 3.14*r**2のように計算することができます．ただし，この配列計算式を do 文で表せば，

do j = 1, 3
do i = 1, 3a(i,j) = 3.14*r(i-2,j-1)**2
enddo
enddo
のように，対応する要素の位置がずれるので注意して下さい．
このように，配列計算式を使うとプログラムがシンプルになります．逆に，単一変数の計算式と配列
計算式との区別がなくなるので，両者が入り交じるとプログラムがわかりにくくなり，エラーが見つけにくくなるという欠点もあります．
なお，サブルーチンの引数配列を使って配列計算をするときには注意が必要です．例えば，

subroutine subr(a,b)
implicit none
real a(*),b(*)
a = b**2! これはエラーになるのようなプログラムでは，配列計算式はエラーになります．なぜなら，“ * ”を入れて配列宣言をした場
合は，要素数が不定だからです．これに対し，

subroutine subr(a,b,n)
implicit none
real a(n),b(n)integer n
a = b**2! この場合は OKのように，整合配列を使うと，配列計算が可能になります．

6.2

部分配列

配列名だけを使った配列計算式では全ての要素について計算をしますが，常に全要素の計算が必要とは限りません．そこで，配列の一部を取り出した配列，“ 部分配列 ”を指定することができます．部分配
列は “ : ” (コロン) を使って要素番号の範囲を指定します．例えば，1 次元配列 a に対して，a(n1:n2)–91–と書けば，a(n1)〜a(n2) という n2-n1+1 個の要素から構成された 1 次元配列として配列計算式に使うことができます．また，2 次元配列 b に対して，b(n11:n12,n21:n22)と書けば，b(n11,n21)〜b(n12,n21)〜b(n11,n22)〜b(n12,n22) という (n12-n11+1)×(n22-n21+1) の2 次元配列として配列計算式に使うことができます．また，ある次元の要素番号を固定して，b(n,n21:n22)と書けば，b(n,n21)〜b(n,n22) という n22-n21+1 個の要素から構成された 1 次元配列として配列計算
式に使うことができます．
逆に，要素番号に “ : ”だけを記述すると，「その次元の全要素」という意味になります．例えば，b(:,n21:n22)と書けば，第 1 次元は全要素で，第 2 次元が n21〜n22 の範囲の要素から構成された 2 次元配列として
配列計算式に使うことができます．このため，全ての要素番号を “ : ”にすると，配列全体を代表することになります．そこで，全配列要素を使った配列計算式を書くときにも “ : ”を使って配列であることを明示することができます．例えば，6.1 節の 2 次元配列計算式，

a = sqrt(b*sin(c)/(3.2*c + 1.5e-3))は，次のように書くことができます．

a(:,:) = sqrt(b(:,:)*sin(c(:,:))/(3.2*c(:,:) + 1.5e-3))
この方が，単一変数の計算式と区別できるので良いと思います．本書でもこれ以降はこの書式を使って全要素の配列計算式を記述します．
要素範囲の指定に “ :整数値 ”を追加して，do 文のような増分値を指定することもできます．例えば，
1 次元配列 a に対して，a(n1:n2:n3)と書けば，a(n1)，a(n1+n3)，a(n1+2*n3)，... という要素からなる 1 次元配列として配列計算式に使うことができます．この場合，終了要素は n2 とは限らないので注意して下さい．例えば，次のように書くことができます．

real a(10),b(5).......
b(1:5) = a(1:10:2)
この結果は，b(1)=a(1)，b(2)=a(3)，b(3)=a(5)，b(4)=a(7)，b(5)=a(9) という 5 個の代入文と等価になります．増分値は負数を与えることも可能なので，次のように逆向きに代入させることも可能です．

real a(10),c(10).......
c(1:10) = a(10:1:-1)
この結果は，c(1)=a(10)，c(2)=a(9)，...，c(10)=a(1) という 10 個の代入文と等価になります．
配列計算式で部分配列を使うときは，その部分配列がその他の配列と同型であれば良いので，宣言文での次元や要素数が一致している必要はありません．例えば 1 次元配列なら，–92–real a(10),b(5).......
a(3:5) = b(1:3)**2のように書くことができます．また，2 次元配列の部分配列を使って，real a(10,10),b(5,4),c(10).......
a(3:5,6:8) = b(1:3,1:3)**2などと書くことができます．この配列計算式を do 文で表せば，

do j = 6, 8
do i = 3, 5a(i,j) = b(i-2,j-5)**2
enddo
enddo
となります．ある次元の要素番号を固定した 2 次元配列は 1 次元配列として扱えるので，2 次元配列と1 次元配列が混在した計算も可能です．例えば，

real a(10,10),c(10).......
c(3:8) = a(3,3:8)**2と書くことができます．この配列計算式を do 文で表せば，

do j = 3, 8
c(j) = a(3,j)**2
enddoとなります．
なお，部分配列を使った配列計算式で，左辺と右辺に同じ配列を使う場合には，単純に do 文で置き換えた動作と結果が異なる場合があるので注意が必要です．例えば，

real a(10)do i = 1, 10a(i) = ienddoa(2:10) = a(1:9)
print *,(a(i),i=2,10)! この配列計算式は単純な do 文で置き換えられないというプログラムを考えます．この中の配列計算式 a(2:10)=a(1:9) を do 文にすると，

do i = 1, 9a(i+1) = a(i)enddoと置き換えられそうですが，実際にやってみると print 文の出力結果は異なります．配列計算式の場合
は 1 から 9 までの異なる数字が出力されるのに対し，この do ループで置き換えると全て 1 が出力されます．
これは，配列計算式が do ループのように 1 要素ずつ計算と代入を繰り返すのではなく，まず右辺の配列要素計算を全て行って結果を補助配列に保存しておき，その後で保存した補助配列から左辺の配列への代入を行うからです．このため，配列代入機能を利用すると，次のように配列要素の順番を逆転させるのも簡単です．

a(1:10) = a(10:1:-1)–93–

これと同じ動作をするプログラムを 1 回の do ループで書くのは難しいです．この代入機能は，配列計算式を使う利点の一つです35 ．
部分配列は要素が等間隔に並んでいますが，整数の 1 次元配列を使って要素指定をすれば，任意の順
番で指定した配列を作ることができます．例えば，次のような指定ができます．

real a(10)integer m(3),ido i = 1, 10a(i) = i
enddom(1) = 7; m(2) = 2;
print *,a(m)m(3) = 5最後の出力結果は，7.0 2.0 5.0 となります．すなわち，a(m) とは，(a(m(1)), a(m(2)) a(m(3)))という要素数 3 の配列のことです．すなわち，整数配列で要素指定をすると，要素指定配列の要素数を持つ配列になります．a(m(2:3)) のように部分配列を使って要素指定をしたり，6.4 節の配列構成子を使って要素指定をすることもできます．

6.3

where 文による条件分岐

配列演算は便利ですが，全ての要素について同じ形の計算をするので，要素の条件に応じて異なる処理をさせることができません．そこで，配列要素の条件に応じて動作を分岐させるための where 文が用意されています．where 文は，以下のような形式です．

where (配列条件) 配列計算式
これは，“ 配列条件 ”に合った要素に対してのみ，“ 配列計算式 ”を実行するという意味です．例えば，

real a(10,10),b(10,10).......
where (a(:,:) > 0) b(:,:) = a(:,:)**2のように書きます．この where 文の部分を do 文で表せば，次のようになります．

do j = 1, 10
do i = 1, 10
if (a(i,j) > 0) b(i,j) = a(i,j)**2
enddo
enddo
where 文はブロック構文にすることもできます．ブロック where 文では，次のように else where 文を付加して，条件に一致しない場合の記述をすることもできます．
where (配列条件 1)
配列計算式 1.......
else where (配列条件 2)
配列計算式 2.......
else where
配列計算式 0.......
endwhere
この場合，配列条件 1 を満足する要素は配列計算式 1 のブロックを実行し，配列条件 1 を満足せず，配列
35

ただし，配列要素数が非常に大きくて，コンピュータのメモリ利用可能限界に近くなると，補助配列の生成のおかげでメ
モリオーバーになる可能性もあります．

–94–

条件 2 を満足する要素は配列計算式 2 のブロックを実行し，．
．
．という具合に続いて，全ての条件を満足しない要素は配列計算式 0 のブロックを実行するという動作になります．中間の else where に関するブロックは省略可能です．if 文と違って，“ then ”が不要なこと，“ 全ての条件以外 ”を表す文が “ else
where ”であること，ブロックの最後に “ endwhere ”文を付加すること，などに注意して下さい．例えば，

real a(10,10),b(10,10).......
where (3.0*b(:,:) > 0)a(:,:) = b(:,:)**2
else wherea(:,:) = b(:,:)**3
endwhereのように書くことができます．このブロック where 文を do 文で表せば，次のようになります．

do j = 1, 10
do i = 1, 10
if (3.0*b(i,j) > 0) thena(i,j) = b(i,j)**2
else
a(i,j) = b(i,j)**3
endif
enddo
enddo
where ブロック中で使用する配列は，全て同型でなければなりません．このため，where ブロックの中に，単一変数の計算式や，次元や要素数の異なる配列計算式を入れることはできません．

6.4

配列構成子

配列演算を使えば，do 文を使わなくても配列要素の計算ができますが，これまでの書式では配列要素ごとに異なる定数を代入することはできません．そこで，1 次元配列だけですが，定数や変数などを並べて明示的に配列要素を与える配列構成子が用意されています．n 個の要素からなる 1 次元の配列構成
子は以下の形式です．

(/数値 1, 数値 2,..., 数値 n/)
この時，n 個の数値は全て同じ型の数値型でなければなりません．例えば，

real a(5)a(:) = (/1.0,2.0,3.0,4.0,5.0/)と書けば，右辺は実数型の 1 次元配列構成子であり，この配列計算式は，a(1)=1.0，a(2)=2.0，a(3)=3.0，
a(4)=4.0，a(5)=5.0 という 5 個の代入文を実行したことに相当します．
数値の位置には変数や計算式を書くこともできます．例えば，

real a(5),bb= 2.5a(:) = (/b,2*b,3*b,4*b,5*b/)と書けば，この配列計算式は，a(1)=b，a(2)=2*b，a(3)=3*b，a(4)=4*b，a(5)=5*b という 5 個の代入文を実行したことに相当します．
部分配列で指定することも可能です．例えば，–95–

real a(5),c(5)a(:) = (/1.0,2.0,3.0,4.0,5.0/)c(:) = (/a(3:5),a(1:2)/)と書けば，この配列計算式は，c(1)=a(3)，c(2)=a(4)，c(3)=a(5)，c(4)=a(1)，c(5)=a(2) という 5個の代入文を実行したことに相当します．
この配列構成子は，数値が全て定数であれば，次のように拡張宣言文の初期値代入に使うこともできます．

real :: a(5)=(/1.0,2.0,3.0,4.0,5.0/)
しかし，配列要素が多いと，数値を並べて配列構成子を記述するのに手間がかかります．そこで，4.2 節
で説明した do 型並びを使って数値の設定をすることができます．do 型並びには，増分値なしと増分値付きの 2 種類があります．増分値を省略した時の増分値は 1 です．

(データ 1, データ 2,..., 整数型変数=初期値, 終了値)
(データ 1, データ 2,..., 整数型変数=初期値, 終了値, 増分値)

! 増分値なし! 増分値付き

この形式を配列構成子中に記述すると，まず整数型変数 (カウンタ変数) を初期値にして，データ 1，デー
タ 2，... と並べ，次に，カウンタ変数に増分値を加えて，再度，データ 1，データ 2，... と並べ，カウンタ変数が終了値より大きくなるまでくり返して得られる数値を並べたことに相当します．
例えば，(/(n, n=1,5)/)という do 型並びを使った配列構成子は，整数型の配列構成子，(/1,2,3,4,5/)と同じです．また，(/(n, n**2, n=1,5)/)という do 型並びを使った配列構成子は，整数型の配列構成子，(/1,1,2,4,3,9,4,16,5,25/)と同じです．増分値を指定して，(/(n, n**3, n=1,8,2)/)という do 型並びを使った配列構成子は，整数型の配列構成子，(/1,1,3,27,5,125,7,343/)と同じです．
複数の do 型並びを並べたり，通常の数値と混在させることも可能です．例えば，(/(real(n), n=0,2),1.5,1.8,(real(n), n=3,5)/)という実数型の配列構成子は，(/0.0,1.0,2.0,1.5,1.8,3.0,4.0,5.0/)と同じです．この時，型変換関数の real(n) を単に n と書くとエラーになるので注意して下さい．これは，n が整数型なので，n だけを書くと一つの配列構成子の中に実数型と整数型が混在するからです．

–96–

do 型並びは多重にすることも可能です．例えば，(/((i+j,i=1,3),j=1,4)/)という do 型並びを使った整数型の配列構成子は，(/2,3,4,3,4,5,4,5,6,5,6,7/)と同じです．多重にした場合，カウンタ変数は内側が先に進みます．また，do 型並びを do ブロックの中に入れる時には，カウンタ変数が do 文のカウンタ変数とも重複しないようにしなければなりません．
本節最初の例は，次のように do 型並びを使って書くことができます．

real a(5)a(:) = (/(n, n=1,5)/)
ここで，右辺は整数型の配列で，左辺は実数型の配列ですが，この場合は全要素に対して整数型から実数型への変換が行われて代入されるのでエラーにはなりません．なお，do 型並びは拡張宣言文での初期値代入に使うこともできますが，カウンタ変数はその宣言文より前に宣言されている必要があります．
配列構成子は 1 次元配列しか用意されていません．このため，2 次元以上の配列計算で使う時は，1 次元ごとの部分配列に代入するか，配列の形状を変換する組み込み関数 reshape を使います．reshape については 6.5 節で説明します．

6.5

配列に関する組み込み関数

配列を引数にする組み込み関数も色々用意されています．まず，配列要素を利用した計算に関する関数を表 6.1 に示します．
表 6.1 配列要素の計算に関する組み込み関数
配列関数

引数の型

関数値の型

関数の意味

sum(a)

配列*

配列要素の型

全ての配列要素の和

product(a)配列*

配列要素の型

全ての配列要素の積

minval(a)配列*

配列要素の型

全ての配列要素の最小値

maxval(a)配列*

配列要素の型

全ての配列要素の最大値

dot_product(a,b)

2 個の 1 次元配列36

配列要素の型

2 個の 1 次元配列の内積

matmul(a,b)

2 個の 2 次元配列37

2 次元配列2 個の 2 次元配列の行列積

例えば，

real a(5)a(:) = (/(i, i=1,5)/)print *,sum(a)! 配列 a の全要素の合計と書けば，配列 a の全要素の合計 (15.0) が出力されます．部分配列を利用すれば，指定した範囲の配列
要素だけを使った計算も可能です．例えば，

36

a の要素数と b の要素数は等しくなければなりません．
行列積の計算上，a の第 2 要素数と b の第 1 要素数は等しくなければなりません．なお，a か b のどちらかは 1 次元配列でも計算できます．この場合，結果は 1 次元配列になります．
37

–97–

real a(10)integer na(:) = (/(i, i=1,10)/)n = 5
print *,product(a(1:n))! 部分配列の要素 a(1)〜a(n) の積と書けば，a(1) から a(n) までの積 (120.0) が出力されます．
表 6.1 で引数の型に “ * ”の付いた関数を使う場合，引数配列の後に整数型の引数を追加すると，その整数値が指定する次元に関してのみ計算をすることができます．例えば，

real b(3,4),x,y(4),z(3)integer i,j
do j = 1, 4b(:,j) = (/(sin(0.5*(i+j)), i=1,3)/)enddo
x = maxval(b)! 配列 b の全要素の最大値
y(:) = maxval(b,1)! 配列 b の第 1 次元方向の要素の最大値z(:) = maxval(b,2)! 配列 b の第 2 次元方向の要素の最大値と書けば，x には 2 次元配列 b の全要素の最大値が代入されますが，1 次元配列 y には，b の第 2 次元を固定して第 1 次元方向に要素を比較したときの最大値がそれぞれ代入されます．また，1 次元配列 z には，b の第 1 次元を固定して第 2 次元方向に要素を比較したときの最大値がそれぞれ代入されます．すなわち，次元を指定すると，その次元を抜いた要素数の配列が結果になります．
次に，配列情報に関する関数を表 6.2 に示します．
表 6.2 配列情報に関する組み込み関数
配列関数

引数の型

関数値の型

minloc(a)

配列

整数型配列

全ての配列要素の最小値の位置

maxloc(a)

配列

整数型配列

全ての配列要素の最大値の位置

lbound(a)

配列*

整数型配列

配列の各次元の最小要素番号リスト

ubound(a)

配列*

整数型配列

配列の各次元の最大要素番号リスト

shape(a)

配列

整数型配列

配列の各次元の要素数リスト

size(a)配列*

整数

reshape(a,s)

配列と整数型配列

a の型の配列

配列 a を配列 s で指定された型の配列に変換する

allocated(a)配列

論理配列 a が割り付けられていれば真，さもなくば偽関数の意味

配列の全要素数表 6.2 で，引数の型に “ * ”の付いた関数は，引数配列の後に次元を示す整数型の引数を追加して，その次元に関する値を取り出すこともできます．例えば，

real array(3,4)
integer m,n1,n2m = size(array)n1 = size(array,1)n2 = size(array,2)! 3 × 4 の配列! 全要素数 3 × 4=12
! 第 1 次元要素数 3! 第 2 次元要素数 4と書けば，m には，array の全要素数である 12 が代入され，n1 には array の第 1 次元の要素数である 3が，n2 には array の第 2 次元の要素数である 4 が代入されます．
また，表 6.2 で関数値の型が “ 整数型配列 ”になっている関数は，引数に与えた配列の次元を要素数に–98–

持つ 1 次元整数型配列が戻り値です．その際，その 1 次元配列の各要素には，引数配列の各次元の情報が代入されています．例えば，下限と上限を取得するための関数，lbound と ubound は以下のように使います．

real bb(-10:10,4)
integer blow(2),bupp(2)blow = lbound(bb)bupp = ubound(bb)print *,blow,bupp! 2 次元配列! 2 次元なので要素数 2 の配列

ここで，2 次元配列 bb は，第 1 次元の下限が −10，上限が 10，第 2 次元の下限が 1，上限が 4 ですから，
配列構成子で書けば，blow は (/-10,1/)，bupp は (/10,4/) になります．このとき，ubound(bb,2) のように，次元に関する引数を加えると，その結果は 1 個の整数 (この例では 4) になります．
reshape は，配列の形状を変換する関数です．そもそも，どんな次元の配列もメモリ上では 1 次元的に並んでいるので，2 次元配列 a(3,4) と１次元配列 b(12) のように，全要素数が等しい配列は同じように取り扱えるはずです．しかし，配列演算は次元および各次元の要素数が等しい同型の配列間でしか許可されていません．そこで，a(3,4) と b(12) の間で演算をするには，形式上，同型になるような変換が必要です．これを実行するのが関数 reshape です．reshape には，最初の引数に変換したい配列を与え，2 番目の引数に変換後の形状を表す 1 次元配列を与えます．ここで形状を表す 1 次元配列とは，変換後の配列が，k1×k2×...×kn の n 次元配列であれば，(/k1,k2,...,kn/)で与えられる要素数 n の 1 次元整数型配列のことです．例えば，6.4 節最後の例文は，real a(3,4)
integer i,ja(:,:) = reshape((/((sin(0.5*(i+j)), i=1,3), j=1,4)/), (/3,4/))と書くことができます．reshape の第 1 引数は do 型定数なので 1 次元配列ですが，これを第 2 引数の(/3,4/) で 3×4 の 2 次元配列に変換するよう指定しているわけです．
この配列の形状を表す 1 次元配列は，関数 shape を使って取得することができます．例えば，上記のa(3,4) という宣言をした配列に対し，shape(a) は，1 次元整数型配列，(/3,4/) になります．そこで，
上記の配列計算式は次のように書くことができます．

a(:,:) = reshape((/((sin(0.5*(i+j)),i=1,3),j=1,4)/),shape(a))
しかし，これではまだ do 型変数における i や j の範囲指定が定数のままです．そこで，ここは先ほど説明した関数 size で書き直すと良いでしょう．

a(:,:) = reshape((/((sin(0.5*(i+j)),i=1,size(a,1)),j=1,size(a,2))/),shape(a))
これなら，宣言文の要素数を変更するときに，この配列計算式を変更する必要はありません．

6.6

配列の動的割り付け

配列を宣言するときには，整数定数を与えて要素数を明示しなければなりません．これは，その情報に基づいて，プログラムの動作開始時に計算で使用するメモリ量を確定するためです．しかし，最近のコンピュータではプログラムの実行中に必要になったメモリを確保したり，不要になったメモリを解放するという動作が頻繁に行われています．このような，プログラムの実行中に必要に応じてメモリを確保することを “ 動的割り付け ”といいます．Fortran も Fortran90 から動的割り付けが可能になり，プログ
ラムの動作に必要な要素数を持つ配列を実行中に確保できるようになりました．動的割り付けを使うと，–99–

メモリ効率の良い汎用性のあるプログラムを作成することができます．ここでその方法を紹介します．
まず，サブルーチンの中で必要に応じた要素数の配列を確保する簡単な方法として，サブルーチンの引数を使った配列宣言があります．例えば，次のサブルーチンで real 宣言されている 2 次元配列 b がこれに相当します．

subroutine memory1(a,m,n)
implicit none
real a(m,n),b(m,n),x! 引数 m と n を使って宣言する
integer m,n,i,j
x = 10.0b(:,:) = x*reshape((/((i*j,i=1,m),j=1,n)/),shape(b))
a(:,:) = b(:,:)**3
end subroutine memory1
配列 b は，このサブルーチンがコールされた時点で，引数 m と n の値を使って確保されます．このとき，b(m,n) のような単純な宣言だけではなく，b(0:2*m,n-1) のような，下限指定や計算式を使った宣言も可能です．ここで，配列 a も引数を使って宣言されていますが，a は引数に含まれているので 3.5 節で説明した整合配列です．整合配列は，引数配列の取り扱いを決める仕組みにすぎず，配列自体はサブルー
チン側にありません．
これに対し，引数に含まれていない配列 b はローカル配列であり，宣言されたサブルーチンの一時メ
モリ領域に所属します．3.8.1 節で説明したように，一時メモリ領域に所属するローカル変数は，サブルーチンを呼び出した時点で生成されます．引数の値はサブルーチン開始時に確定しているので，これを使って配列に必要なメモリを確保することが可能なのです．ただし，これはあくまでもサブルーチンで宣言する配列についてのみ使える機能であり，メインプログラムの配列やモジュール中のグローバル
配列としては使えません．
そこで，メモリの動的割り付けを明示的に行う仕組みが用意されています．Fortran で動的割り付けを行うには，二つの手続きが必要です．一つは，割り付けたメモリを配列として使用するための配列名の宣言です．これは，割り付けたメモリの先頭アドレスを保持するためのメモリを用意することだと考えられます．もう一つは，その配列名に実際のメモリを割り付ける動作です．前者は宣言文なので非実行文，後者はプログラム実行中に割り付けるので実行文です．
メモリを割り付ける予定の配列名は，allocatable 属性を付けて型宣言をします38 ．このとき，配列の次元情報をコロン “ : ”を使って示す必要があります．配列の次元はコロンの数で決まり，実行時に変更することはできません．例えば，

real, allocatable :: ab(:),z2(:,:)
integer, allocatable, dimension(:,:) :: km1, km2のように宣言します．1 行目のように，名前の後ろに次元情報を付加しても良いし，2 行目のように，
dimension 属性を使うことも可能です38 ．この例の場合，ab は 1 次元実数型配列，z2 は 2 次元実数型配列，km1 と km2 は 2 次元整数型配列として割り付けることができます．
配列の割り付けは allocate 文で行います．allocate 文は，次のように配列の要素指定をサブルーチ
ンのようにかっこで囲んで記述します．

allocate ( ab(100), z2(0:m,-m:m), km1(k-1,2*k) )かっこ内は，配列宣言と同じ形式です．ab や km1 のように，要素数に整数だけを与えると，その次元の下限は 1 になるし，z2 のように “ : ”を使って下限指定をすることも可能です．配列の数値型は型宣言の際に確定しているので，この例のように，一つの allocate 文で異なる数値型の配列を同時に割り付けることも可能です．allocate 文は実行文なので，z2 や km1 のように整数型変数や整数式の計算結果を38

配列に属性を付加する方法と dimension 属性については 3.8.1 節参照．

–100–

使って割り付けることも可能です．一旦割り付けられた配列は，通常の宣言文で宣言した配列と同様に使用することができます．
ただし，むやみに割り付けを繰り返すと，コンピュータで利用できる容量を超える “ メモリオーバー ”になる可能性があります．そこで，不用になった配列のメモリ領域は deallocate 文で解放することができます．deallocate 文は，次のように配列名だけをかっこで囲んで指定します．

deallocate ( ab, km1 )
deallocate 文も異なる数値型の配列を同時に解放することが可能です．例えば，先ほどのサブルーチ
ン memory1 は，以下のように書き換えることができます．
subroutine memory1(a,m,n)
implicit none
real a(m,n),x
real, allocatable :: b(:,:)! 割り付け用 2 次元実数型配列
integer m,n,i,j
allocate (b(m,n))! m×n の 2 次元配列を割り付け
x = 10.0b(:,:) = x*reshape((/((i*j,i=1,m),j=1,n)/),shape(b))
a(:,:) = b(:,:)**3
deallocate (b)! メモリの解放
end subroutine memory1
なお，引数変数を使って宣言したローカル配列は一時メモリ領域に所属しますが，allocate 文で割り付けた配列は固定メモリ領域に所属します39 ．サブルーチンにおける一時メモリ領域は固定メモリ領域
より使用可能容量が少ない可能性があるので，要素数の大きな配列を割り付けるときは allocate 文を使う方が良いでしょう．
allocate 文を使った動的割り付けは，メインプログラムでも利用できるし，モジュールの中で配列名宣言をして，グローバル配列として使用することも可能です．ただし，allocate 文で割り付けられた配列を，解放しないで再度 allocate 文で割り付けようとすると実行時エラーになります．また，割り付ける前にその配列を使用しようとしても実行時エラーになります．そこで，配列が割り付けられているか否かを確認する関数が用意されています．これが表 6.2 の最後にある関数 allocated です．allocatedは論理型の値を返す関数で，allocatable 属性を持つ配列名を引数に与えると，その配列がすでに割り付けられていれば “ 真 ”，割り付けられていなければ “ 偽 ”を返します．論理型の関数は，そのまま if
文の条件として使うことができるので，例えば次のように利用することができます．

real, allocatable :: a(:)
integer i,n.......
if (allocated(a)) thena(:) = (/(100*i,i=1,n)/)else
allocate ( a(n) )a(:) = (/(200*i,i=1,n)/)
endif

! 代入１
! 代入２

この場合，配列 a がすでに割り付けられていれば “ 代入 1”を実行し，割り付けられていなければ，allocate
文で割り付けてから “ 代入 2 ”を実行します．
メモリの動的割り付けや解放は，それほど時間がかかる処理ではありません．計算の途中で一時的に利用する配列は，必要なときに割り付けて，不要になったら解放するようにしておけば，メモリの利用効率が高くて汎用性のあるプログラムになります．
39

ただし，サブルーチン終了後も数値を保持するために配列を固定メモリ領域に所属させる場合には，配列名の宣言に save
属性を加えて，配列名も固定メモリ領域に所属させなければなりません．

–101–

付録 A

gfortran を用いたコンパイルから実行までの手順

gfortran は Fortran95 の文法で書いたプログラムをコンパイルできる代表的なフリーの Fortran です．
多くの Linux ディストリビューションに付属しているし，Windows 版や Mac OS 版も配布されているので，お手持ちのパソコンにインストールすれば，手軽に Fortran を利用することができます．ここでは gfortran を使用したコンパイルから実行までの手順について述べます．
まず，Fortran プログラムを作るときには，ファイル名の最後に “ .f90 ”を付けます．つまり，文字列.f90という名前にします．このファイル名の最後に付加した “ ドット (.)+文字 ”の部分を拡張子と呼びます．
作成したプログラムファイルを計算機で実行させるには “ コンパイル ”と “ リンク ”という二つの過程が必要です．
コンパイルというのは，Fortran や C 言語など，人間が理解できる言語で書かれたプログラムをコン
ピュータが理解できる機械語に翻訳することです．コンパイルするアプリケーションを “ コンパイラ ”といいます．フリー Fortran コンパイラの代表が gfortran です．
gfortran でプログラムをコンパイルをするときは，gfortran コマンドを使って，

gfortran プログラムファイル名と入力します．例えば，test1.f90 というファイル名のプログラムをコンパイルするときはgfortran test1.f90と入力します．コンパイル時に文法エラーなどが見つかると，エラーメッセージを出力して終了します．
gfortran コマンドは，コンパイルが成功すると，引き続きリンクを行います．プログラムはコンパイルしただけでは実行できません．コンパイラはプログラミング言語を機械語に翻訳するだけであり，複数のルーチンを結合して OS 上で起動可能な形式にする作業までは行わないからです．この結合処理がリンクです．単にプログラム中のルーチンのリンクだけではありません．入出力文の read や write，組
み込み関数の sin や log 等は，標準ライブラリルーチンとして用意されているので，必要に応じてこれらのリンクも行います40 ．
リンクにも成功すると，最後に “ a.out ”という名前のファイルが作成されます．これが OS 上で直接実行させることができる機械語で書かれたファイルで，これを実行形式ファイルといいます．もしリンクに失敗した場合は，エラーメッセージを出力して終了します．この時 a.out は作成されません．
実行形式ファイルは，一般のコマンドのようにファイル名を入力することでプログラムを実行することができます．ただし，次のように頭に “ ./ ”を付ける必要があります41 ．

./a.out
プログラムが正常に動作すれば，それに書かれた一連の計算を行って終了します．計算の途中に print
文の記述があれば，結果を画面に出力するし，write 文の記述があれば，指定したファイルに書き出します．また，標準入力の read 文の記述があれば，その時点でプログラムが一時停止して入力待ちの状態になります．この状態で必要な数値をキーボードから入力すれば計算は再開します．
以上が gfortran を用いた，最も単純なコンパイルからプログラム実行までの手順ですが，gfortran コ
マンドにファイル名を与えただけの命令では，どんなプログラムをコンパイルしても a.out という同じ名前の実行形式ファイルになってしまうので不便です．また，Fortran プログラムは計算速度が重要な
40

コンパイラである gfortran 自体はリンクする機能を持っていませんが，gfortran 内部から OS に付属しているリンク用ア
プリケーション (リンカ) を呼び出すことができるので，リンクも実行することが可能なのです．
41“ ./ ”は “ 現在のディレクトリにあるファイル ”という意味です．このあたりの詳細は，Linux などの解説書を見て下さい．

–102–

ので，最適化をしてできるだけ高速に処理する方が良いでしょう．さらに 1.2.2 節で述べたように数値計算をするときは倍精度実数を使うべきなので，自動倍精度化オプションも必要です．
このため，gfortran でプログラムをコンパイル・リンクする時は，以下のようなオプションを付ける
ことをお勧めします．

gfortran -O -fdefault-real-8 test1.f90 -o xtest1-O が最適化のオプション，-fdefault-real-8 が自動倍精度化のオプションです．また，-o のオプションの次の文字列 (ここでは xtest1) は実行形式ファイル名指定です．大文字の-O と小文字の-o を間違わないようにして下さい．
この場合，コンパイルとリンクが正常に終了すると，-o オプションで指定した “ xtest1 ”という名の実行形式ファイルが作成されます．このため，プログラムを実行するには，./xtest1と入力することになります．
また，付録 G で紹介している数値計算ライブラリやグラフィックライブラリを使用したプログラムをコンパイル・リンクする場合は，それらのライブラリファイルをオプションとして付加する必要があります．例えば，FFTW を含んだプログラムの場合は，gfortran -O -fdefault-real-8 test1.f90 -o xtest1 -L/usr/local/lib -lfftw3のように入力します．ここで，-L オプションが指定している “ /usr/local/lib ”は，FFTW ライブラ
リ (libﬀtw3.a) の入ったディレクトリを示すオプションなので，使っている環境に応じて書き換える必要があります．

–103–

付録 B

エラー・バグへの対処法

プログラムを開発する際の最大の問題は “ エラー (Error) ”の発生です．コンパイル・リンク・実行という一連の過程の中でそれぞれエラーが発生する可能性があります．エラーはプログラム開発にとって付き物であり，避けては通れません．エラーの出ないように慎重にプログラムを書くことはもちろんですが，出たら出たでそれらに如何に素早く対処できるかが腕の見せ所です．ここではエラーをまとめて，それぞれの対処法を示します．なお，具体的なエラーメッセージは gfortran の出力を利用していますが，他のコンパイラでも形式が違うだけで出力情報の内容はあまり変わらないと思います．

(1) コンパイルエラー
コンパイルとは，作成したプログラムを文法に従って機械語に翻訳することです．このため，“ コンパイルエラー ”とは文法的な間違いのことです．プログラムに文法的間違いがあれば，コンパイラがエラーメッセージを出力して終了します42 ．コンパイラのエラーメッセージ形式はコンパイラによって違いますが，gfortran では次のような形式で出力されます．この例は，test1.f90 というプログラムファイ
ルをコンパイルしたときのエラー出力です．

test1.f90:15.7:
do i = 1, 100
1Error: Symbol ’i’ at (1) has no IMPLICIT type
以下に，この出力の読み方を示します．

(1) 1 行目はエラーのあるプログラムファイル名 (この例では，test1.f90) とエラーの位置
この例では，エラーの位置が 15.7 となっていますが，15 はプログラムの行番号，7 は左から数えた文字の位置を示す数値です．
(2) 2 行目はエラーのあるプログラム文のコピー(3) 3 行目は “ 1 ”を上向き矢印のように使って，2 行目の文のエラーが起きている位置を指定(4) 4 行目は 3 行目が示した部分の具体的なエラーの説明
このメッセージを頼りにエラーを見つけてプログラムを修正します．
この例の 4 行目のメッセージは「3 行目の 1 が示している変数 i は，暗黙の型がない」という意味です．
これは，変数 i が宣言されていないことが原因です．
コンパイルエラーは，エラーメッセージに従って修正すればいいので，それほどの手間ではありません．ただし，ある文に文法エラーがあると，その文が存在しない状態で引き続きコンパイルを行うため，その波及効果で下方のプログラムがエラーになることがあります．例えば宣言文に誤りがあると，その宣言文で宣言している変数がコンパイラにとっては宣言されていないことになり，その変数を使っている文が全てエラーになります．エラーメッセージが多い時は，一度に全部チェックしないで，ある程度修正したら再度コンパイルして，エラーが出るかどうかを確認した方が良いと思います．

42
コンパイラが出すメッセージには “ Warning ”(警告) と “ Error ”(エラー) があります．Warning は「このままでも実行できるけど，ひょっとすると予期しない結果が起こる可能性があります」という意味なので，必ずしも修正する必要はありません．このため，メッセージが Warning だけのときは強制終了せずにリンクの作業に移ります．しかし，文法的には間違いがなくても，作成者の意図とは違ったプログラムになっている可能性があるので，念のためにプログラムを確認した方が良いで
しょう．

–104–

(2) リンクエラー
リンクとは，別々に翻訳されたルーチンを結合して実行形式ファイルにする作業のことです．よって，リンクエラーは用意されていないサブルーチンや関数を使ったときに起こります．例えば，

program test1
implicit none
real x,yx = 5
y = 100
call subr(x,y)
print *,x,y
end program test1! subr が用意されていないとリンクエラーになるのようなプログラムを作って，これだけを単独でコンパイル・リンクすると/tmp/ccy3lcdo.o: In function ‘MAIN__’:
test1.f90:(.text+0x6d): undefined reference to ‘subr_’
collect2: ld returned 1 exit statusのようなメッセージが出力されます．以下に，この出力の読み方を示します．

(1) 1 行目はエラーが起こっているルーチンの表示
この例では “ MAIN ”，すなわちメインプログラム中で起こっていることが示されています．
(2) 2 行目はエラーの原因
このメッセージを頼りにエラーを見つけてプログラムを修正します．
この例の 2 行目のメッセージには「subr という名への参照が定義されていない」とあります．これは，メインプログラム中でコールしている subr という名のサブルーチンが用意されていないのが原因です43 ．
標準の組み込み関数が用意されていないことはまずないので，リンクエラーのほとんどはプログラム
中で呼び出したサブルーチン名や関数名の書き間違いが原因です．リンクエラーのメッセージにはコンパイルエラーのようなエラー行の表示はありませんが，エラーメッセージの中に見つからなかったサブ
ルーチンや関数の名前が表示されているので，エディタの検索機能を使えば，見つけるのはさほど困難
ではありません．

(3) 実行時エラー
一番厄介なのが実行時のエラーです (こういうプログラムは “ バグ (虫) ”があるといいます)．なぜなら，コンパイルエラーやリンクエラーのようなエラーの場所を特定する情報が出力されないので，どこでエラーが起こっているのかを探す作業が大変だからです．実行時エラーを探すには，プログラムを詳細にチェックするしかありません (この作業を「バグを取る」という意味で “ デバッグする ”といいます)．
それでも，答えが合っているか否かは別として，プログラムがなんとか終了すれば良いのですが，バグによっては実行した後でうんともすんともいわなくなってしまう場合があります．これは無限ループに入ってしまったか，暴走したかのどちらかだと考えられます．通常，このような状態で実行を強制的に終了させるには，コントロールキーを押しながらＣキーを押します．まず間違いなく止まります．
もう一つ，以下のようなメッセージを出して強制的に終了する場合があります．

Segmentation fault
これはプログラムではなく OS が出力しているメッセージで，主として実行中のプログラムがそれ以外の実行中のプログラムのメモリ領域を破壊しようとした時に起こります．例えば，次のように配列宣43

メッセージ中では MAIN__とか，subr_のように名前の後ろにアンダースコアが付いていますが，これはコンパイラが自動的に付加するものなので無視して下さい．リンクは gfortran がするのではなく，ld というリンカがするのですが，リンカはOS によって異なるので，gfortran を使っていてもこの形式でエラーメッセージが出るとは限りません．

–105–

言の範囲外の要素に値を代入しようとすると起こることがあります44 ．

real a1(10)integer i
do i = 1, 100000
a1(i) = ienddo
この例では，10 個しか用意されていない配列に，100000 番目まで値を代入しようとしているのですか
ら，どこのメモリに値を代入しようとしているのか不明なのが問題なのです．
また，サブルーチンの引数に型の合っていない数値を与えたり，戻り値を与える引数に定数を与える，などの不注意なサブルーチンコールでも Segmentation fault が起こる可能性があります．Segmentation
fault は，実行時に問題が出た段階で起こるので，適当に print 文を入れて，どこまでが出力されて，どこからが出力されないかを確認することでエラーの起こっている場所を特定することができます．
しかし，このような実行時エラーはコンピュータの動作が正常でないという形で表面化するので，まだましです．原因を特定するのに時間がかかるかもしれませんが，修正しなければ動かないのだから実害はありません．実を言うと，一番やっかいなエラーとは，ちゃんと実行してはいるのだけど，計算結果が何となくおかしい，というものです．
筆者は何年も Fortran のプログラムを書いてきましたが，実行時のエラーほど見つけにくいものはあ
りません．それでも見つかれば良い方で，場合によってはバグの存在を知らずに結果を出し，学会直前に気がついた，なんてこともありました．大規模なシミュレーションプログラムを作るとき，長いプログラムを書くのに時間がかかるのはもちろんですが，取りあえず動いたプログラムの計算結果が正しいかどうかを確認する作業にもかなりの時間が必要です．本書で紹介した “ エラーの出にくいプログラムの書き方 ”は，この確認作業にかかる時間を少しでも減らすためのものです．しかし，最後に必要なのは “ 地道な努力と忍耐 ”なのです．

44

実際にはこの程度の簡単なプログラムでは起こるとは限らないのですが，だからといってこんなプログラムを書いてはい
けません．

–106–

付録 C

自動倍精度化オプション

コンピュータシミュレーションでは大量の数値を使って複雑な計算を繰り返し，必要に応じてそれらを集積する作業を行います．このとき問題となるのが，1.4.3 節で述べた “ 桁落ち ”です．桁落ちを減らすための工夫をいくつか紹介しましたが，究極的には演算精度を上げるしかありません．
Fortran で取り扱える実数には，単精度実数型と倍精度実数型がありますが，数値計算をするには倍精度実数型を使うべきです．倍精度実数計算は単精度実数計算と比べてそれほど実行時間はかかりません．これは最近の CPU が倍精度実数計算用のハードウェアを装備しているからです．
Fortran の仕様では，デフォルトの実数型が単精度なので，real 宣言をした実数は単精度実数型です．
このため，基本仕様のままで倍精度実数計算をするには変数宣言をする時に real*8 や real(8) などの
8byte 指定が必要です45 ．
例えば，デフォルト仕様のままでも，

real*8 x,a1(10)と宣言すれば，変数 x や配列 a1 は倍精度になります．しかし，宣言文を変更するだけでは不完全です．
1.0 や 1.23e5 などの実定数もデフォルト仕様では単精度なので，倍精度実定数に書き換える必要があります．
そもそも倍精度で計算するのを基本にするのに，常に倍精度を意識した書式を利用しなければならな
いのは，面倒なだけでなく間違いに気がつかないまま精度の悪い計算をしている可能性もあります．そこで最近の Fortran コンパイラのほとんどが自動倍精度化オプションを装備していることを幸いに，本書では単精度実数型と倍精度実数型を使い分ける文法の説明は省略しました45 ．自動倍精度化オプショ
ンを付けてコンパイルすれば，real だけの宣言文で倍精度実数変数を宣言できるし，1.0 や 1.23e5 のような定数はそのままで倍精度実定数を意味します．
表 C.1 に筆者が使っている Fortran コンパイラの自動倍精度化オプションを示します．この他のコン
パイラについてはそれぞれのマニュアルをチェックして下さい．大抵は用意されていると思います．
表 C.1 コンパイラに応じた自動倍精度化オプション
コンピュータ

コンパイラ

ベンダー

自動倍精度化オプション

パソコン

gfortranGNU-fdefault-real-8

パソコン

ifort

Intel

-r8

パソコン

f95

Absoft

-N113

スパコン

sxf90

NEC

-Wf,-A dbl4

自動倍精度化は，コンパイルする時にオプションを加えれば良いだけなので，プログラムを変更することから考えれば楽なものです．ぜひ利用して下さい．

45

精度指定の詳細は付録 D を参照．

–107–

付録 D

数値型の精度指定

1.2.2 節で，基本的な数値型には整数型と実数型があり，実数型には単精度実数型と倍精度実数型があるという話をしました．Fortran のデフォルト実数型は単精度ですが，コンパイラの自動倍精度化機能(付録 C) を使えばデフォルトを倍精度実数型に変更できるので，本書では 2 種類の実数型を区別せず，
単に “ 実数型 ”と表現しています．しかし，大量の実数型データをバイナリ形式で保存するときには，保存容量を圧縮するために精度を落とすことが考えられますし，“ 4 倍精度実数 ”という倍精度よりも有効桁数の多い実数型を使って，より高精度の計算をすることも可能です46 ．ここでは，定数や変数の精度を変更する書式について説明します．
変数の精度を指定するには，以下の 3 種類の方法があります．ここでは，基本的な宣言文だけを紹介しますが，3.8.1 節で述べた属性や数値代入を含む拡張宣言も可能です．
型指定*精度数 変数 1，変数 2，...
型指定 (精度数) 変数 1，変数 2，...
型指定 (kind=精度数) 変数 1，変数 2，...

ここで，“ 精度数 ”のところには，数値型の byte 数を整定数で指定します．実数型の場合，単精度なら4，倍精度なら 8，4 倍精度なら 16 です．例えば，単精度実数型変数を宣言するには，

real*4 xs1,ys1,as1(100)real(4) xs2,ys2,as2(100)real(kind=4) xs3,ys3,ds3(100,100)などと書きます．また，通常の整数型は 4byte ですが，最近は “ 倍精度整数 ”という 8byte の整数型 (使用可能な範囲は −263 〜263 − 1) を使うことができるので，これを利用するときには，

integer*8 n81,m81,k81(100)integer(8) n82,m82,k82(100)integer(kind=8) n83,m83,ka83(100,100)などと書きます．
3 種類の書式の中でどれが良いかは一概には言えません．一番目の “ * ”を使った書式は，古い Fortranから使われているので，コンパイラが古い場合や，昔のプログラムを継承する可能性がある場合には覚えておいた方が良いと思います．しかし，これからプログラムを書き始める場合には，二番目か，精度数の意味を明記した三番目の方が良いと思います．これらは，次のように parameter 変数 (3.8.2 節) を使って精度数を指定することができます．

integer, parameter :: kp=16
real(kp) xq2,yq2,aq2(100)real(kind=kp) xq3,yq3,dq3(100,100)
これに対し，“ * ”を使った書式では必ず数字を使って指定しなければなりません．parameter 変数で精度指定をしておけば，計算機環境に応じて精度を変更する必要があるときに便利です．
ただし，高精度の計算をする場合は，定数も高精度にしなければなりません．例えば，“ 1.23 ”と書けばデフォルトの実数型になるので，本書の暗黙指定では倍精度実数型です．よって，このまま 4 倍精度の計算に使うと精度が落ちてしまいます．A×10B で表される実数を 4 倍精度で表現するときは “ AqB ”と書きます．このため，“ 1.23 ”は “ 1.23q0 ”と書かなければなりません47 ．
しかし，parameter 変数で変数の精度を指定しているときに，e や q のような文字を使って定数の精度
46
ただし，4 倍精度実数型は，必ず実装しなければならない規格ではないようで，コンパイラによっては使えない場合があります．gfortran でも，バージョン 4.8 では使えますが，4.2 では使えませんでした．
47
ちなみに，デフォルト実数が単精度の時，倍精度実定数は “ AdB ”と書きます．例えば，“ 1.2 ”は “ 1.2d0 ”です．また，実数化の組み込み関数 real の結果が単精度実数型になるので，倍精度実数化が必要なときには関数 dble を使います．

–108–

を指定していると，精度変更の時に定数の変更が別途必要になります．そこで，数値の後にアンダースコ
ア “ _ ”と精度数を付けて定数の精度を指定することができます．例えば，倍精度の “ 1.23 ”は “ 1.23_8 ”と書け，4 倍精度の “ 1.23q0 ”は，“ 1.23_16 ”と書くことができます．この精度指定には parameter 変数を使うことができるので，次のように書くことができます．

integer, parameter :: kp=16
real(kp) xx,yy
xx = 1.23_kp
yy = 1.2345e-15_kp*xx**3
この例の yy に代入している実数の指数指定は e を使っていますが，精度数が 16 なので，4 倍精度定数になります．

–109–

付録 E

Big Endian と Little Endian

大量のデータを精度を落とさずにファイルに保存するときは，4.5 節で説明した書式なし write 文を使ってバイナリ形式で保存する方が良いと思います．これは計算機のメモリに保存された内部形式そのままでファイルに保存するため，書式付き write 文を使ったテキスト形式出力よりも出力データ量が小さくなるからです．
しかし，バイナリ形式で保存するときは注意が必要です．テキスト形式で保存したファイルは，我々でも直接読むことができるのですから，どんなコンピュータでも同じように読むことができます．このため，大型計算機で計算した結果をテキスト形式で出力しておけば，そのままパソコンのプログラムから読み込んで処理をすることができます．しかしバイナリ形式で出力すると必ずしもうまくいきません．バ
イナリ形式は計算機が直接計算を実行するためのものですから，計算機のアーキテクチャによって違っている可能性があるからです．しかし，現在はバイナリ形式も標準化されていて，ほとんどの計算機で整数型も実数型も統一した形式が採用されています．このため，バイナリ形式を使って大型計算機が出力したデータをパソコンのプログラムで処理することができます．
ただやはりいくつかの制約は残っています．その一つが Endian 問題です．コンピュータが扱う数値の内部形式は整数型で 4byte，倍精度実数型で 8byte ですが，この byte の並びが上位の桁からのコンピュー
タと，下位の桁からのコンピュータがあるのです．前者を Big Endian，後者を Little Endian といいます．イメージ的に表現すれば，1234 という数字を保存すると，Big Endian では 01234 の順番で保存するのに対し，Little Endian では 43210 の順番で保存するようなものです．これらの違いは CPU のアー
キテクチャによるものなのでユーザーが変更することはできません．
最近のほとんどのパソコンは，CPU に Intel かその互換チップを使っていますが，これらは Little
Endian です．これに対し，以前の Macintosh で使われていた Motorola の CPU や NEC のスパコンは
Big Endian です．このため，スパコンの Fortran で計算して書式なし write 文で出力すると，そのまま
ではパソコンの Fortran で読むことができません．
しかし，要はデータ入出力時の形式の問題だけなので，最近の Fortran コンパイラの多くはコンパイ
ラオプションや環境変数などで Big から Little へ，あるいはその逆への変換をしてから入力または出力をすることができるようになっています．例えば，NEC SX の場合にはプログラム実行前に環境変数
F_UFMTENDIAN を指定することで変換できます．

setenv F_UFMTENDIAN 10,20# C シェル系

環境変数で指定するのは書式なし write 文の装置番号です．この例の場合，write(10) と write(20)が Little Endian に変換して出力されます．この変換を使うと，メモリ上で Big な形式を Little にして出力するのですから若干計算時間にロスが出ます．しかし，byte 並びを逆にするだけですからテキスト変換よりは楽です．
これに対し，入力側で変換するやり方もあります．例えば，gfortran の場合には -fconvert=big-endianというオプションを加えれば，書式なし read 文で入力するときに Big Endian から Little Endian に変換してくれます．最近の Fortran コンパイラならば大抵変換機能が付いているようなので，マニュアル
で確認すれば良いでしょう．
筆者はどちらかといえばスパコン側で変換する方が良いと思います．スパコンで行う計算は元々時間がかかるものであり，それに比べれば出力時のデータ変換による時間増加はわずかです．これに対して
パソコン側で変換するのは時間もかかるし，変換するかどうかを問題に応じて使い分けるのも面倒です．
ただし，スパコンでの計算には時間制限があるので，データ変換のために CPU 時間を削るのはもったいないとも考えられます．スパコンはデータ変換に時間がかかるという話もありますので，どちらが良いかはスパコン管理者に確認した方が良いでしょう．

–110–

付録 F

ASCII コード

文字列の比較などに使われる半角英数字の文字コード (ASCII コード) を表 F.1 に示します．
表 F.1 ASCII コード表

0 1 2 3 4 5 6 7 8 9 A B C D E F
2! " # $ % & ’ ( )

*

+

,

-

.

/

3 0 1 2 3 4 5 6 7 8 9

:

;

<

=

>

?

4 @ A B C D E F G H I

J

K

L

M

N

O

5 P Q R S T U V W X Y

Z

[

\

]

^

_

6 ‘ a b c d e f g h i

j

k

l

m

n

o

7 p q r s t u v w x y

z

{

|

}

~

t

半角英文字は 1byte(8bit) 文字であり，左端の数字が上位 4bit，上端の数字 (16 進数) が下位 4bit です．
例えば，“ T ”の文字は 16 進数の 54，“ < ”は 3C，スペース “ t ”は 20 です．1F 以下と 7F は制御コードに割り当てられていて文字としては定義されていません．
なお，5C のバックスラッシュ “\”は，日本語フォントでは “ Y ”に割り当てられています．

–111–

付録 G

数値計算を補助するフリーのサブルーチンライブラリ

複雑な計算アルゴリズムを使ったプログラムを一から全て書くのは結構大変です．汎用性のあるアルゴリズムを使ったプログラムは，インターネット上にサブルーチンライブラリとして公開されているものがあるので，これらを利用してプログラムを作るのもスマートな方法です．ここでは筆者が使ったことのあるライブラリの中からお勧めをいくつか紹介します．

G.1

高速フーリエ変換

偏微分方程式の解法やデータ解析で良く使う高速フーリエ変換 (Fast Fourier Transform, FFT) は，ア
ルゴリズムが複雑で，効率の良いプログラムを自作するのは大変です．筆者は最も簡単なレベルのプロ
グラムを作ったことはありますが，最近はネットで公開されているものを使っています．お勧めなのは，
FFTW(Fastest Fourier Transform in the West) です．

http://www.ﬀtw.org/
このライブラリには，Fortran から使用できるサブルーチンが入っています．

G.2

多倍長計算

Fortran での倍精度実数は 8byte で，有効数字は 15 桁程度です．4 倍精度実数は 16byte で，有効数字
が 33 桁程度に増加しますが，それ以上は無理だし，コンパイラによっては 4 倍精度実数が使えないこともあります．筆者は多項式の解を計算するときに高精度計算が必要になったことがあります．数十次の多項式を計算するときは，最大次数の項と最小次数の項との数値の差が非常に大きくて，桁落ちが深刻な問題になるからです．
このときに便利なのが多倍長計算ライブラリです．これは，任意の精度で実数計算をすることができるものです．通常の計算より処理に時間がかかりますが，精度優先のときにはやむを得ません．ネット
上には何種類か公開されていますが，筆者が使って便利だったのは，FMLIB です．
http://myweb.lmu.edu/dmsmith/FMLIB.html
これは Fortran のモジュールになっていて，四則演算は「+ - * /」の記号を使った数式で書けるし，sin
や cos などの関数も充実しています．本書では説明していない構造体の知識が少しだけ必要ですが，変数宣言程度なのでそれほど難しくはありません．筆者は，倍精度計算用に作った多項式の解を計算するプログラムを，それほど大きな変更をすることなく多倍長で動作させることができました．

G.3

長周期乱数発生

計算機シミュレーションには，時間発展の方程式を解くことで未来を予測する決定論的手法と，サイコロを振って確率的に将来の可能性を探る確率論的手法があります．後者の確率論的手法で，サイコロに相当する働きをするのが乱数です．Fortran には，乱数発生用の組み込みサブルーチン random_numberが用意されているので，

call random_number(x)のように書けば，乱数 x を得ることができます (問題 (3–10) 参照)．しかし，乱数は周期長が問題で，周期の短い乱数を使うと良いシミュレーション結果が得られません．random_number では周期長が不足するときにお勧めなのは，周期が非常に長い乱数として有名な，Mersenne Twister です．これを考案した
松本眞さんが以下のサイトでプログラムを公開されています．

–112–

http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/mt.html
松本さんが公開されているのはＣ言語で書かれたものですが，リンク集の中に Fortran 用の公開先が入っ
ています．

G.4

数値計算ライブラリ

連立方程式の解法や数値積分など，汎用性のある数値計算ライブラリがあれば，数値計算のプログラ
ムを作るのが楽になります．ただ，残念ながら筆者はフリーの良いライブラリを知りません．ネットで公開されていて使えそうなものに，GSL（GNU Scientiﬁc Library）があります．

http://www.gnu.org/software/gsl/
ただし，基本的にＣ言語用なので，Fortran で使うには若干テクニックがいるようです．また，ちょっと使ってみましたが，必ずしも速くありません．ベッセル関数などの特殊関数は，その高速バージョンを公開しているサイトからダウンロードした方が良いと思います．筆者は，数値計算の教科書を読んで原理から自作するか，参考文献 [5,6] などに掲載されているプログラムをコピーして使うことが多いです．
なお，これから数値計算を勉強しようという場合には，筆者が書いた「Fortran ハンドブック」もお勧
めです [7]．

G.5

グラフィックライブラリ

計算機シミュレーションは物理的に起こっている現象を模擬するものですが，出力される数値だけで現象を読み取るのは容易ではありません．そこで必要不可欠なのが可視化ソフトです．フリーの可視化
ソフトとして有名なものに gnuplot があります．

http://www.gnuplot.info/
プログラムの結果をファイルに保存しておけば，gnuplot からそれを読み込んで，様々なグラフに加工して表示することができます．
最近のパソコンは基本操作が全てビジュアルであり，グラフィック出力機能は OS に組み込まれています．Fortran にはグラフィック出力に関する文法はありませんが，他の言語で書かれたグラフィック
ライブラリとリンクすれば，Fortran プログラムからサブルーチンをコールする形式で図を描くことが可能です．その一つに，筆者が作った Frames があります．

http://www.pp.teen.setsunan.ac.jp/frames/
Frames は，Fortran で使うためのグラフィックツールとして開発してきたもので，本書で説明した知識だけで簡単に 2 次元や 3 次元のグラフを描くことができます．また，描画した図形をイメージやアニメー
ション形式で出力してプレゼンテーションに使うことも可能です．良かったら試してみて下さい．

–113–

参考文献
[ 1 ] “ 入門 Fortran90 実践プログラミング ”，東田幸樹・山本芳人・熊沢友信，ソフトバンク，1994.
[ 2 ] “ 数値計算の常識 ”，伊理正夫・藤野和建，共立出版, 1985．
[ 3 ] “ コンピュータシミュレーションの基礎 ”，岡崎 進，化学同人, 2000．
[ 4 ] “ CIP 法 ”，矢部 孝・内海隆行・尾形陽一，森北出版, 2003．
[ 5 ] “ Numerical Recipes in Fortran 77, Second Edition ”, W. H. Press, S. A. Teukolsky,
W. T. Vetterling, B. P. Flannery, Cambridge University Press, 1996.
[ 6 ] “ Numerical Recipes in Fortran 90 ”, W. H. Press, S. A. Teukolsky, W. T. Vetterling,
B. P. Flannery, Cambridge University Press, 1996.
[ 7 ] “ Fortran ハンドブック ”，田口俊弘，技術評論社，2015.

–114–