Changeset 155 for trunk/SRC/Calendar/daysinmonth.pro

Timestamp:

08/11/06 16:32:05 (18 years ago)

Author:

smasson

Message:

some light header cleaning...

File:

• trunk/SRC/Calendar/daysinmonth.pro (modified) (3 diffs)

trunk/SRC/Calendar/daysinmonth.pro

@@ -9 +9 @@
 ; @categories calendar
 ;
+; @param month {in}{optional}{default=from "time" common variable of cm_4cal}
+; Scalar or array giving the month number for which we want to know the
+; number of days 
+;
 ; @param year {in}{optional}{default=from "time" common variable of cm_4cal}
-; To specify the year of the onth. Used only if the common variable
+; To specify the year of the month. Used only if the common variable
 ; key_caltype = 'greg'. In that case, month and year must have the same
 ; number of elements.
-;
-; @param 
 ;
 ; @returns 
@@ -24 +26 @@
 ; IDL> ndays = daysinmonth(2, 2000)
 ;
-; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
-; 2/7/98
+; @history 
+; 2/7/98 Sebastien Masson (smasson\@lodyc.jussieu.fr) 
 ; update/review/english/new commons: June 2005 Sebastien Masson.
 ;
@@ -47 +49 @@
   IF n_elements(key_caltype) EQ 0 THEN key_caltype = 'greg'
   CASE key_caltype OF
-    '360d': if n_elements(month) GT 1 THEN $
-        return, replicate(30, n_elements(month)) ELSE return, 30
+    '360d':BEGIN
+      if n_elements(month) GT 1 THEN res = replicate(30, n_elements(month)) $
+      ELSE res = replicate(30, n_elements(time))
+      IF n_elements(res) EQ 1 THEN res = res[0]
+      return, res
+    END
     'noleap':BEGIN
       days_in_mth = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]