判断（if文）

if(条件式)条件式が成立した場合に実行するプログラム
if(条件式)then
条件式が成立した場合に実行するプログラム（複数行書ける）
end if
if(条件式)then
条件式が成立した場合に実行するプログラム（複数行書ける）
else
条件式が不成立の場合に実行するプログラム（複数行書ける）
end if
if(条件式1)then
条件式1が成立した場合に実行するプログラム（複数行書ける）
else if(条件式2)then
条件式1が不成立で条件式2が成立した場合に実行するプログラム（複数行書ける）
else if(条件式3)then
条件式1と条件式2が不成立で条件式3が成立した場合に実行するプログラム（複数行書ける）
end if
条件式が成立した場合に実行するプログラム（条件式が不成立の場合に実行するプログラム）の中にもif文を書ける

下の例の「x.lt.20」は「x<20」の意味

      write(*,*)'ｘ＝'
      read(*,*)x
      if(x.lt.20)then
      	write(*,*)'x<20'
      else
      	write(*,*)'x≧20'
      end if
      stop
      end

比較演算子と論理演算子

.lt.	＜（less than）
.le.	≦（less or equal）
.eq.	＝（equal）
.ge.	≧（greater or equal）
.gt.	＞（greater than）
.ne.	≠（not equal）
.and.	論理積（かつ）
.or.	論理和（または）
.not.	論理否定（ではない）

      write(*,*)'X＝'
      read(*,*)x
      if((x.gt.10).and.(x.lt.20))then
      	write(*,*)'10＜X＜20'
      else if(x.le.10)then
      	write(*,*)'X≦10'
      else
      	write(*,*)'X≧20'
      end if
      stop
      end