yuuho.wiki

カオスの欠片を集めて知恵の泉を作る

ユーザ用ツール

サイト用ツール

現在位置: start » tips » fortran
トレース:
tips:fortran:start

差分

このページの2つのバージョン間の差分を表示します。

この比較画面へのリンク

次のリビジョン		前のリビジョン
tips:fortran:start [2021/05/27 19:18] – 作成 yuuhotips:fortran:start [2021/06/27 22:26] (現在) – yuuho
行 1: 行 1:
 ====== Fortran ====== ====== Fortran ======
 +
 +=== コンパイル ===
 +''gfortran hello.f90''
 +
 +=== おまじない ===
 +<code fortran>
 +program hello
 +    implicit none
 +end program hello
 +</code>
 +
 +  * ''implicit none'' は変数を宣言しないと使えない安全モードにfortranを変更する．
 +
 +=== コメントアウト ===
 +<code fortran>! ここに一行コメント</code>
 +
 +=== 標準入出力 ===
 +  * 出力 <code fortran>
 +write(*,*)'hello'
 +</code>
 +  * 入力(整数) <code fortran>
 +integer::num
 +read(*,*)num
 +</code>
 +  * 入力(実数) <code fortran>
 +real(8)::x
 +read(*,*)x
 +</code>
 +
 +=== 書式設定 ===
 +書式に名前を付けて使える
 +<code fortran>
 +100 format('y=',f5.2)
 +write(*,100)y
 +</code>
 +
 +=== if文 ===
 +<code fortran>
 +if((m>2).and.(m<6))then
 +    write(*,*)"Spring"
 +else if((m>5).and.(m<9))then
 +    write(*,*)"Summer"
 +else
 +    write(*,*)"Winter"
 +end if
 +</code>
 +
 +=== while ===
 +
 +<code fortran>
 +do while (abs(xnew-xold) > epsilon)
 +    xold=xnew
 +    xnew=xold-f(xold)/df(xold)
 +    write(*,1000) "result=",xnew
 +end do
 +</code>
 +
 +=== for ===
 +<code>
 +do 変数=初期値,最終値[,刻み幅]
 +    繰り返したい処理
 +end do
 +</code>
  
tips/fortran/start.1622143110.txt.gz · 最終更新: 2021/05/27 19:18 by yuuho