Context Navigation

Calendar

Timestamp:

12/06/07 11:04:53 (17 years ago)

Author:

pinsard

Message:

modification of some headers (+some corrections) to prepare usage of the new idldoc

Location:

trunk/SRC/Calendar

Files:

r318	r325
64	64	;
65	65	;-
66		;
67	66	PRO caldat, julian, month, day, year, hour, minute, second, NDAYSPM = ndayspm
68	67	;

-                      r318
+                      r325
+;
 ;-
+;
 function date2jul, date, GRADS = grads, MONTH = month, DAY = day, YEAR = year $
                    , HOUR = hour, MINUTE = minute, SECOND = second
 …
   compile_opt idl2, strictarrsubs
+;
+  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

r318	r325
33	33	;
34	34	;-
35		;
36	35	FUNCTION date2string, yyyymmdd, _EXTRA = ex
37	36	;

-                      r318
+                      r325
+;
 ;-
+;
 function daysinmonth, month, year
+;
 …
 @updatenew
 ENDIF
+;------------------------------------------------------------
   IF n_elements(key_caltype) EQ 0 THEN key_caltype = 'greg'
   CASE key_caltype OF

r318	r325
69	69	;
70	70	;-
71		;
72	71	function jul2date, jday, MONTH = month, DAY = day, YEAR = year $
73	72	, HOUR = hour, MINUTE = minute, SECOND = second

r318	r325
81	81	; $Id$
82	82	;-
83		;
84	83	FUNCTION julday, month, day, yearin, hour, minute, second, NDAYSPM = ndayspm
85	84	;

r318	r325
32	32	;
33	33	;-
34		;
35	34	FUNCTION monthname, month, _EXTRA = ex
36	35	;

Note: See TracChangeset for help on using the changeset viewer.