Changeset 114 for trunk/SRC/Calendar


Ignore:
Timestamp:
06/19/06 16:14:56 (18 years ago)
Author:
smasson
Message:

new compilation options (compile_opt idl2, strictarrsubs) in each routine

Location:
trunk/SRC/Calendar
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Calendar/date2jul.pro

    r97 r114  
    3232function date2jul, date, GRADS = grads 
    3333;------------------------------------------------------------ 
     34; 
     35  compile_opt idl2, strictarrsubs 
     36; 
    3437   year = long(date) / 10000 
    3538   month = long(abs(date)/100) MOD 100 

  • trunk/SRC/Calendar/date2string.pro

    r97 r114  
    3030FUNCTION date2string, yyyymmdd, _EXTRA = ex 
    3131; 
     32; 
     33  compile_opt idl2, strictarrsubs 
     34; 
    3235   sday = strtrim(long(yyyymmdd) MOD 100, 1) 
    3336   smonth = strtrim((long(yyyymmdd)/100) MOD 100, 2) 

  • trunk/SRC/Calendar/daysinmonth.pro

    r97 r114  
    3131;------------------------------------------------------------ 
    3232; include commons 
     33; 
     34  compile_opt idl2, strictarrsubs 
     35; 
    3336@cm_4cal 
    3437IF NOT keyword_set(key_forgetold) THEN BEGIN 

  • trunk/SRC/Calendar/jul2date.pro

    r97 r114  
    2424;------------------------------------------------------------ 
    2525function jul2date, jday 
     26; 
     27  compile_opt idl2, strictarrsubs 
     28; 
    2629 
    2730  caldat, jday, month, day, year 

  • trunk/SRC/Calendar/leapyr.pro

    r97 r114  
    3939function leapyr, year 
    4040; include commons 
     41; 
     42  compile_opt idl2, strictarrsubs 
     43; 
    4144@cm_4cal 
    4245  yr = long(year) 

  • trunk/SRC/Calendar/monthname.pro

    r97 r114  
    2424;------------------------------------------------------------ 
    2525FUNCTION monthname,  mm1, _extra = ex 
     26; 
     27  compile_opt idl2, strictarrsubs 
     28; 
    2629   return, string(format='(C(CMoA0))',31*(mm1-1), _extra = ex) 
    2730end 
Note: See TracChangeset for help on using the changeset viewer.