知識の箱

case文で変数の値別に実行内容を仕分けすることができる。

◎整数、実数に関するcase文の使い方（例は整数）
—————————-
integer :: IX

IX=3

select case(IX)
&nbsp&nbsp case (1)
&nbsp&nbsp&nbsp&nbsp IX = 0
&nbsp&nbsp case (2, 3)
&nbsp&nbsp&nbsp&nbsp IX = 10
&nbsp&nbsp case default
&nbsp&nbsp&nbsp&nbsp IX = 100
end select
—————————-
【説明】
IXが1の場合、IX=0
IXが2か3の場合、IX=10
IXがその他の値の場合、IX=100

この場合、IX=10になる。

◎文字列に関するcase文の使い方
—————————-
character(len=100) :: CH_JP
character(len=100) :: CH_EN

CH_JP=’ame’

select case(trim(CH_JP))
&nbsp&nbsp case (‘ame’)
&nbsp&nbsp&nbsp&nbsp CH_EN = ‘rain’
&nbsp&nbsp case (‘kumori’)
&nbsp&nbsp&nbsp&nbsp CH_EN = ‘cloudy’
&nbsp&nbsp case (‘yuki’)
&nbsp&nbsp&nbsp&nbsp CH_EN = ‘snow’
&nbsp&nbsp case default
&nbsp&nbsp&nbsp&nbsp CH_EN = ‘unknown’
end select

—————————-
【説明】
CH_JPがameの場合、CH_ENはrain
CH_JPがkumoriの場合、CH_ENはcloudy
CH_JPがyukiの場合、CH_ENはsnow

この場合、CH_EN=rainとなる。