数字→月の名前に変換
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
月の名前→数字に変換
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
数字→月の名前に変換
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
数字→月の名前に変換
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