function run_year, run ;+ ; ; function: run_year ; ; purpose: return the year from a given ASP run string ; ; author: rob@ncar, 2/95 ; ;============================================================================== ; ; Check number of parameters. ; if n_params() lt 1 then begin print print, "usage: year = run_year(run)" print print, " Return the year (integer) from a given ASP run string." print print, " Arguments" print, " run - string representing ASP run" print print, " Keywords" print, " (none)" print print print, " ex1: print, run_year('jun92')" print, " 1992" print print, " ex2: print, run_year('oct02')" print, " 2002" print return, '' endif ;- ; ; Check format. ; if strlen(run) ne 5 then goto, ioerror ; ; Return year. ; on_ioerror, ioerror year = fix( strmid(run, 3, 2) ) if year gt 90 then year = year + 1900 $ else year = year + 2000 return, year ; ; Fail with error message. ; ioerror: message, "incorrect format for ASP run ('mmmyy')" end