条件分岐

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