Changeset 329 for trunk/SRC/Calendar/date2jul.pro
- Timestamp:
- 12/20/07 18:12:44 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Calendar/date2jul.pro
r327 r329 78 78 compile_opt idl2, strictarrsubs 79 79 ; 80 usage="res=date2jul, date, GRADS=grads, MONTH=month, DAY=day, YEAR=year , HOUR=hour, MINUTE=minute, SECOND=second" 80 ; check parameters 81 if (N_PARAMS() EQ 0) then return, report(['ERROR, No input parameter', 'Usage : ' $ 82 , 'res = date2jul( date[, GRADS = grads][, MONTH = month][, DAY = day]' $ 83 + '[, YEAR = year][, HOUR = hour][, MINUTE = minute][, SECOND = second] )']) 81 84 ; 82 ; check parameters83 check_param = N_PARAMS()84 if (check_param EQ 0) then begin85 dummy = report(['No input parameter', $86 'Usage : ' + usage])87 stop88 endif89 ;90 ; check arguments91 ; ++ pas sur92 if arg_present(date) then begin93 dummy = report(['No input parameter date', $94 'Usage : ' + usage])95 stop96 endif97 85 sztype = size(date, /type) 98 86 IF sztype NE 3 AND sztype NE 5 AND sztype LT 13 THEN BEGIN
Note: See TracChangeset
for help on using the changeset viewer.