if then else end if
[説明] もし が正しければ実行文 を行う。それ以外のときは を行う。
例:
if (d .LT. 0.0) then write(*,*) "d negative" else write(*,*) sqrt(d),-sqrt(d) end if