数字で表された月をアルファベット3文字で表す

数字→月の名前に変換

integer m

character(len=3) mmm

if ( m == 1 ) then ; mmm="Jan"; end if

if ( m == 2 ) then ; mmm="Feb"; end if

if ( m == 3 ) then ; mmm="Mar"; end if

if ( m == 4 ) then ; mmm="Apr"; end if

if ( m == 5 ) then ; mmm="May"; end if

if ( m == 6 ) then ; mmm="Jun"; end if

if ( m == 7 ) then ; mmm="Jul"; end if

if ( m == 8 ) then ; mmm="Aug"; end if

if ( m == 9 ) then ; mmm="Sep"; end if

if ( m == 10) then ; mmm="Oct"; end if

if ( m == 11) then ; mmm="Nov"; end if

if ( m == 12) then ; mmm="Dec"; end if

月の名前→数字に変換

integer mm

character(len=3) mmm

if ( mmm=="Jan") then ; mm = 1 ; end if

if ( mmm=="Feb") then ; mm = 2 ; end if

if ( mmm=="Mar") then ; mm = 3 ; end if

if ( mmm=="Apr") then ; mm = 4 ; end if

if ( mmm=="May") then ; mm = 5 ; end if

if ( mmm=="Jun") then ; mm = 6 ; end if

if ( mmm=="Jul") then ; mm = 7 ; end if

if ( mmm=="Aug") then ; mm = 8 ; end if

if ( mmm=="Sep") then ; mm = 9 ; end if

if ( mmm=="Oct") then ; mm = 10; end if

if ( mmm=="Nov") then ; mm = 11; end if

if ( mmm=="Dec") then ; mm = 12; end if