- 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
