Changeset 329 for trunk

Timestamp:

12/20/07 18:12:44 (16 years ago)

Author:

smasson

Message:

bugfix in date2jul indroduced during changeset:325

File:

• trunk/SRC/Calendar/date2jul.pro (modified) (1 diff)

trunk/SRC/Calendar/date2jul.pro

@@ -78 +78 @@
   compile_opt idl2, strictarrsubs
 ;
-  usage="res=date2jul, date, GRADS=grads, MONTH=month, DAY=day, YEAR=year , HOUR=hour, MINUTE=minute, SECOND=second"
+; check parameters
+  if (N_PARAMS() EQ 0) then return, report(['ERROR, No input parameter', 'Usage : ' $
+                                            , 'res = date2jul( date[, GRADS = grads][, MONTH = month][, DAY = day]' $
+                                            + '[, YEAR = year][, HOUR = hour][, MINUTE = minute][, SECOND = second] )'])
 ;
-; check parameters
-  check_param = N_PARAMS()
-  if (check_param EQ 0) then begin
-     dummy = report(['No input parameter', $
-                     'Usage : ' + usage])
-     stop
-  endif
-;
-; check arguments 
-; ++ pas sur
-  if arg_present(date) then begin
-     dummy = report(['No input parameter date', $
-                     'Usage : ' + usage])
-     stop
-  endif
   sztype = size(date, /type)
   IF sztype NE 3 AND sztype NE 5 AND sztype LT 13 THEN BEGIN