条件分岐

if $(a)$ then $b$ else $c$ end if

[説明] もし $a$ が正しければ実行文 $b$ を行う。それ以外のときは $c$ を行う。

例:

        if (d .LT. 0.0) then
          write(*,*) "d negative"
        else
          write(*,*) sqrt(d),-sqrt(d)
        end if



Kiyohide Nomura 平成16年6月9日