条件分岐（case）

複数の選択肢から一つ、あるいは、ある範囲を選択する場合に便利な構文がcase文です。
if文よりも簡潔な表現が可能で、プログラムの可読性が上がるので、ぜひマスターして下さい。
記事の最後にサンプルプログラムを掲載しています。

case文の記述ルール

case文の基本形は以下のとおりです。変数=値１の場合に処理１が実行され、変数＝値２の場合に処理２が実行されます。使用できる変数の型は、整数型（integer）、文字型（character）、または論理型（logical）です。

select case (変数)
__case (値１)
____処理１
__case (値２)
____処理２
end select

以下のように範囲を指定することもできます。値１≦変数≦値２の場合に、処理１が実行されます。

select case (変数)
__case (値１:値２)
____処理１
end select

応用として、以下のような記述もできます。変数=値１、または値２≦変数≦値３の場合に、処理１が実行されます。

select case (変数)
__case (値１, 値２:値３)
____処理１
end select

以下のように case default を使った場合には、変数=値１のときに処理１が実行され、それ以外は処理２が実行されます。

select case (変数)
__case (値１)
____処理１
__case default
____処理２
end select

サンプルプログラム

サンプルプログラムを下記します。4-5行目は変数の型宣言、7-8行目は変数に初期値を代入、13-20行目は整数型変数と整数の比較、22-29行目は文字型変数と文字列の比較です。

以下のFortranプログラムをコピペし、****.f90の名前で保存して下さい(****の部分は適当でいいです)。コピペが面倒な場合は、こちらからダウンロードして下さい(右クリックメニューから保存)。→ sample06.f90

program sample06
  implicit none
!--------------------------------------------------------------------
  integer :: i
  character(len=80) :: o
!--------------------------------------------------------------------
  i = 2
  o = 'dog'
 
  write(*,'(a,i3)') 'i = ', i
  write(*,'(a,a10)') 'o = ', o
 
  select case (i)
    case (1)
      write(*,'(a)') 'i = 1'
    case (2:3)
      write(*,'(a)') 'i = 2-3'
    case default
      write(*,'(a)') 'i = other'
  end select
 
  select case (o)
    case ('dog')
      write(*,'(a)') 'o = dog'
    case ('cat')
      write(*,'(a)') 'o = cat'
    case default
      write(*,'(a)') 'o = other'
  end select
 
!--------------------------------------------------------------------
end program sample06