yuuho.wiki

この文書は読取専用です。文書のソースを閲覧することは可能ですが、変更はできません。もし変更したい場合は管理者に連絡してください。

====== 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>