![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
#author("2020-03-19T09:40:58+09:00","default:kouzouken","kouzouken") #author("2020-05-13T09:18:13+09:00","default:kouzouken","kouzouken") *Windows上でgcc-gfortranを走らせる。 [#p5880a6a] -http://tdm-gcc.tdragon.net/download ここのtdm-gcc-4.9.2.exeを適当なフォルダーにダウンロードして、実行すると、 たぶん勝手にインストールしてくれる。 --http://d.hatena.ne.jp/arakik10/20120214/1329167074 ---URL↑とか↓によると、インストール時に"gfortran"を選択しないといけない?(近藤) --http://qiita.com/HirofumiYashima/items/846cd8e51408ab8c88f9 -使い方は、適当なエディター(メモ帳）で、プログラムを作製して保存。 -コマンドプロンプトを立ち上げるには、スタート→すべてのプログラム→アクセサリの中 -コマンドプロンプトからcd c:\Documents\nantoka みたいな感じで、プログラムを保存したフォルダーに移動 -そこで、gfortran hoge.f90 -o hoge みたいにしてコンパイルして、実行。 -注意事項 --USBメモリ上ではコンパイルできない。 *自由形式 [#ud8b524a] (行番号等を書き込むために) 行頭の6カラムを空欄にする「固定形式」ではなく、 好きなところから書き始めていい「自由形式」で書いた場合は、 --( g77 -ffree-form -o hoge hoge.f --) g77 -ffree-form -o hoge hoge.f でコンパイルできる。但し、vi等のエディターは拡張子が.fだとf77と判断するので、 初めての編集の際には、 6カラム内に書き込まれたコマンド文字列をエラーと判断した色付けをしてしまう。 が、自由形式で数行以上書かれたファイルであれば、拡張子が.fであっても、 自由形式として識別して色分けしてくれるようだ。 だから初めてプログラムを書きはじめるときは、 まず、数行だけ書いて一旦 保存してから開き直せばいいのではないかと思う。 geditだと拡張子.fの自由形式でもちゃんと識別して色分けしてくれるようだ。 これなら、.bashrcに --( alias g77f='g77 -ffree-form' --) alias g77f='g77 -ffree-form' と書いておけば、自由形式で書いたhoge.fは、g77f -o hoge hoge.fでコンパイルできる。 **自由形式の継続行 [#ea46c4e0] 自由形式で複数の行にまたいで書く場合は、前の行の行末と次の行の行頭に&を付ける。 --( print*,'x方向の要素数と& &y方向の要素数を入れてください' --) print*,'x方向の要素数と& &y方向の要素数を入れてください' *暗黙の宣言の無効化 [#x52e6302] implicit none が使える。 バグ防止のためには、implicit noneにしてから、個々の変数をいちいち realやintegerで宣言することを推奨(そうすれば、宣言してない変数を使った時点で コンパイルエラーが出てくれる)。 めんどくさがりやの後藤が使うimplicit rea*8(a-h, o-z)は教育的ではない。 *表計算ソフトのcsvデータなどの桁を揃えてTeX書式に出力する例 [#m9f933cf] http://www.str.ce.akita-u.ac.jp/~gotou/programoj/keikan/keta.f *配列に文字を読み込む場合 [#b9c2d131] characterで宣言した変数にn文字のテキストを読み込ませたい場合、 n文字のasciiコードの長さはn+4, n文字の全角日本語は2n+4 例えば、youbi(7)に月や火の1文字を入れたい場合、2*1+4=6なので、 character youbi(7)*6 ということになるのだが、これだと、文字の後ろに半角スペースが入ってしまうので、 実行環境に応じて、試行錯誤でスペースの入らない長さを決めるしかないか... フォーマット文でa6とかでテキストを書かせる場合も同様。漢字1文字は、今の環境のgfortranでは、a3でうまくいっている。 *乱数の使用例 [#m57f4dba] n組の夫婦数をまず入力し、それぞれの夫婦が男児が生まれるまで 子供を生み続けて、男児が生まれた時点で子供を作るのをやめたら、 男女比はどうなるか(この程度の文化を持つ国はいっぱいあるだろうけど)。 --( implicit real*8 (a-h,o-z) call srand(time()) print*,'夫婦組数を入力' read*,n nonna=0 notoko=0 do i=1,n ionna=0 do a=rand() if(a<0.5) then nonna=nonna+1 ionna=ionna+1 else print*,i,ionna+1 notoko=notoko+1 exit end if end do end do print*,'女の人数',nonna print*,'男の人数',notoko end --) つまり、赤ちゃんの&link(男女比がある程度 違う国,http://d.hatena.ne.jp/uneyama/20050615#p6)では、何がなされているのかということを 想像すると、なかなか怖い。 *do文のカウンタからファイル名を自動生成する [#c85dc498] http://rakasaka.fc2web.com/fortran/fortran.html#trim **変数をファイル名にしたい [#pd1bcab2] --( character(10) a character(10) a i=100 write(a,*) i open(7,file=a) write(7,*) 'kakikukeko' close(7) end --) *エラーメッセージを表示させる [#n94b5156] g77 -Wall -o hoge hoge.f でコンパイル *グラフィックなど [#se22dabd] -&link(Frames,http://www.pp.teen.setsunan.ac.jp/frames/) -[[Frames:http://www.pp.teen.setsunan.ac.jp/frames/]] *32bit/64bit [#bb5efa3d] 32bitパソコンまたは64bitパソコンで以下を計算してみて、 どこまでの整数が扱えるかを確認。 --( do i=1,70 print*,i,2**i,2.**i end do end --) do i=1,70 print*,i,2**i,2.**i end do end 32bitでも64bitでも2**31未満しか扱えない。 *Linux上で使えるBASICなど [#oa17d6e8] -[[basicメモ]]参照。以下は古いメモ 今は昔ながらのBASICはほとんど使われていないが、 高校の数学の教科書では、 未だに昔ながらのBASIC(しかも行番号あり)が使われ続け、 大学入試問題などでも出題されている。 昔のBASICのように覚えることが少なくてすぐに使える教育向け言語ということなら、 Fortran90とかでもいいような気がするのだが... そうなってくると、高校の数学の問題の検証環境として、 昔ながらのBASICが走る環境がほしい。 Windowsに関しては、フリーソフトが結構あるようだ。 Linuxに関してもフリーソフトは色々あるようだが、 ものによっては、ライブラリの依存関係とかの問題で インストールが簡単でないかもしれない。 ひとまず、 &link(Chipmunk Basic for Linux,http://www.nicholson.com/rhn/basic/#5)は、 [[Chipmunk Basic for Linux:http://www.nicholson.com/rhn/basic/#5]]は、 インタープリタ本体だけで動作する(たぶん)ので手軽である。 行番号は書いても書かなくてもよくて(たぶん)、 ./basic hoge.bas みたいに実行できる。 対話型の実行もできる。 *g77で動作していたものがgfortranで動作しなくなる例 [#l878c24d] **整合配列 [#x09849ee] g77では、メインプログラムでa(100,100)などと大きめの配列を切っておいて、 サブルーチン内では、引数として受け渡されたnを使って、 a(n,n)などと小さめの配列を切り直しても問題なかったが、 gfortranでは、サブルーチン内でもメインプログラムと同じ大きさの 配列を切らないとうまく引き渡せなくなってしまった。 ただし、サブルーチン内からサブルーチンを呼び出す場合は、 特に問題は起きないので、 整合配列を使いたい場合は、一端サブルーチン内に入ってからサブルーチンを 呼び出すようにすればよいのかもしれない。 -&link(参照,http://www.str.ce.akita-u.ac.jp/~gotou/programoj/#seigou) -[[参照:http://www.str.ce.akita-u.ac.jp/~gotou/programoj/#seigou]] *バグの例 [#ya1b52fe] **空行の読み込み [#ha7fd4ee] 空行（改行のみ）のデータを読み込もうとして、 character変数を使って、 read*,mozi で空行を読もうとしたら、実際には、空行は飛ばされるので、 数値の入った空行の次のデータ文が読まれていた。
