Changeset 226 for trunk/SRC/Calendar/julday.pro

Timestamp:

03/16/07 10:22:26 (17 years ago)

Author:

pinsard

Message:

corrections of some misspellings in some *.pro

File:

• trunk/SRC/Calendar/julday.pro (modified) (8 diffs)

trunk/SRC/Calendar/julday.pro

@@ -4 +4 @@
 ; Calculate the Julian Day Number for a given month, day, and year.
 ; This is the inverse of the library function CALDAT.
-; 3 calendars are available according to the value of key_caltype 
+; 3 calendars are available according to the value of key_caltype
 ; (variable of the common file cm_4cal): 'greg', '360d', 'noleap'
 ;
 ; @categories Calendar
 ;
-; @param MONTH {in}{required} 
-; Number of the desired month (1 = January, ..., 12 = December). 
+; @param MONTH {in}{required}
+; Number of the desired month (1 = January, ..., 12 = December).
 ; Can be scalar or array
 ;
-; @param DAY {in}{required} 
+; @param DAY {in}{required}
 ; Number of day of the month.Can be scalar or array
 ;
-; @param YEARin {in}{required}  
+; @param YEARin {in}{required}
 ; Number of the desired year.Year parameters must be valid
 ; values from the civil calendar.  Years B.C.E. are represented
@@ -22 +22 @@
 ; as positive integers. In particular, note that there is no
 ; year 0 in the civil calendar.  1 B.C.E. (-1) is followed by
-; 1 C.E. (1). 
-; Change: However for climatological year, we do accept the year 
+; 1 C.E. (1).
+; Change: However for climatological year, we do accept the year
 ; O but we change it for year 654321L (the same trick is done in
 ; caldat so caldat, julday(1,1,0) gives you back Jan 1st of year 0)
 ; Can be scalar or array
 ;
-; @param HOUR {in}{optional}{default=12} 
+; @param HOUR {in}{optional}{default=12}
 ; Number of the hour of the day. Can be scalar or array
 ;
@@ -37 +37 @@
 ; Number of the second of the minute. Can be scalar or array
 ;
-; @restrictions 
+; @restrictions
 ; The Result will have the same dimensions as the smallest array, or
 ; will be a scalar if all arguments are scalars.
-; 
-; @keyword NDAYSPM {default=30} 
+;
+; @keyword NDAYSPM {default=30}
 ; To use a calendar with fixed number of days per months.
 ; see also the use of key_caltype (variable of the common file cm_4cal)
 ;
-; @returns 
+; @returns
 ; the Julian Day Number (which begins at noon) of the specified calendar date.
-; If Hour, Minute, and Second are not specified, then the result will be a 
-; long integer, otherwise the result is a double precision floating point 
+; If Hour, Minute, and Second are not specified, then the result will be a
+; long integer, otherwise the result is a double precision floating point
 ; number.
 ;
 ; @uses cm_4cal
 ;
-; @restrictions 
+; @restrictions
 ; Accuracy using IEEE double precision numbers is approximately
 ; 1/10000th of a second, with higher accuracy for smaller (earlier)
 ; Julian dates.
 ;
-; @history 
+; @history
 ; Translated from "Numerical Recipies in C", by William H. Press,
 ; Brian P. Flannery, Saul A. Teukolsky, and William T. Vetterling.
@@ -75 +75 @@
 ; eg. julday(349,1,1970)
 ;
-; Sebastien Masson, May 2006, add diferent calendat with key_caltype 
+; Sebastien Masson, May 2006, add different calendat with key_caltype
 ; (variable of the common file cm_4cal)
 ;
-; @version $Id$
+; @version
+; $Id$
 ;-
 ;
@@ -224 +225 @@
       RETURN, jul
 
-    END 
+    END
     '360d':BEGIN
 ;
@@ -240 +241 @@
       IF neg[0] NE -1 THEN L_YEAR[neg] =  L_YEAR[neg]+1
 
-      JUL = ((L_YEAR-1)*12 + (L_MONTH-1))* ndayspm + L_DAY 
+      JUL = ((L_YEAR-1)*12 + (L_MONTH-1))* ndayspm + L_DAY
       if n_elements(Hour) + n_elements(Minute) + n_elements(Second) eq 0 then $
         return, JUL
@@ -246 +247 @@
       if n_elements(Minute) eq 0 then Minute = 0
       if n_elements(Second) eq 0 then Second = 0
-      
+
       IF total([hour NE 12, minute NE 0, second NE 0]) EQ 0 THEN return, JUL ELSE $
         return, JUL + (Hour / 24.0d0 - 0.5d) + (Minute/1440.0d0) + (Second / 86400.0d0)
 
-    END 
+    END
     'noleap':BEGIN
 
@@ -279 +280 @@
       if n_elements(Minute) eq 0 then Minute = 0
       if n_elements(Second) eq 0 then Second = 0
-      
+
         IF total([hour NE 12, minute NE 0, second NE 0]) EQ 0 THEN return, JUL ELSE $
         return, JUL + (Hour / 24.0d0 - 0.5d) + (Minute/1440.0d0) + (Second / 86400.0d0)
 
-    END 
+    END
     ELSE:return, report('only 3 types of calendar are accepted: greg, 360d and noleap')
   ENDCASE