月の名前の変換

Bash script

数字→月の名前に変換

if [ $m -eq 1 ]; then mmm="Jan"; fi

if [ $m -eq 2 ]; then mmm="Feb"; fi

if [ $m -eq 3 ]; then mmm="Mar"; fi

if [ $m -eq 4 ]; then mmm="Apr"; fi

if [ $m -eq 5 ]; then mmm="May"; fi

if [ $m -eq 6 ]; then mmm="Jun"; fi

if [ $m -eq 7 ]; then mmm="Jul"; fi

if [ $m -eq 8 ]; then mmm="Aug"; fi

if [ $m -eq 9 ]; then mmm="Sep"; fi

if [ $m -eq 10 ]; then mmm="Oct"; fi

if [ $m -eq 11 ]; then mmm="Nov"; fi

if [ $m -eq 12 ]; then mmm="Dec"; fi

GrADS script

月の名前→数字に変換

if (mmm = 'JAN')

mm=01

endif

if (mmm = 'FEB')

mm=02

endif

if (mmm = 'MAR')

mm=03

endif

if (mmm = 'APR')

mm=04

endif

if (mmm = 'MAY')

mm=05

endif

if (mmm = 'JUN')

mm=06

endif

if (mmm = 'JUL')

mm=07

endif

if (mmm = 'AUG')

mm=08

endif

if (mmm = 'SEP')

mm=09

endif

if (mmm = 'OCT')

mm=10

endif

if (mmm = 'NOV')

mm=11

endif

if (mmm = 'DEC')

mm=12

endif

Fortran90

数字→月の名前に変換

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

Fortran77

数字→月の名前に変換

integer m

character mmm*3

if ( m .eq. 1 ) then

mmm="Jan"

end if

if ( m .eq. 2 ) then

mmm="Feb"

end if

if ( m .eq. 3 ) then

mmm="Mar"

end if

if ( m .eq. 4 ) then

mmm="Apr"

end if

if ( m .eq. 5 ) then

mmm="May"

end if

if ( m .eq. 6 ) then

mmm="Jun"

end if

if ( m .eq. 7 ) then

mmm="Jul"

end if

if ( m .eq. 8 ) then

mmm="Aug"

end if

if ( m .eq. 9 ) then

mmm="Sep"

end if

if ( m .eq. 10) then

mmm="Oct"

end if

if ( m .eq. 11) then

mmm="Nov"

end if

if ( m .eq. 12) then

mmm="Dec"

end if