Changeset 495 for trunk/SRC/Calendar/jul2date.pro

Timestamp:

04/17/14 10:49:43 (10 years ago)

Author:

pinsard

Message:

fix thanks to coding rules; typo; dupe empty lines; trailing blanks

File:

• trunk/SRC/Calendar/jul2date.pro (modified) (4 diffs)

trunk/SRC/Calendar/jul2date.pro

@@ -14 +14 @@
 ; Set this keyword equal to a named variable that will receive a
 ; longword integer or longword integer array representing the number of
-; the desired month (1 = January, ..., 12 = December). 
+; the desired month (1 = January, ..., 12 = December).
 ;
 ; @keyword DAY
 ; Set this keyword equal to a named variable that will receive a
 ; longword integer or longword integer array representing the number of
-; the day of the month (1-31).  
+; the day of the month (1-31).
 ;
 ; @keyword YEAR
 ; Set this keyword equal to a named variable that will receive a
 ; longword integer or longword integer array representing the number of
-; the desired year (e.g., 1994).  
+; the desired year (e.g., 1994).
 ;
 ; @keyword HOUR
 ; Set this keyword equal to a named variable that will receive a
 ; longword integer or longword integer array representing the number of
-; the hour of the day (0-23).  
-; 
+; the hour of the day (0-23).
+;
 ; @keyword MINUTE
 ; Set this keyword equal to a named variable that will receive a
 ; longword integer or longword integer array representing the number of
-; the minute of the hour (0-59).  
-;  
+; the minute of the hour (0-59).
+;
 ; @keyword SECOND
 ; Set this keyword equal to a named variable that will receive a
@@ -45 +45 @@
 ; the date: longword integer with yyyymmdd format or double-precision
 ; floating-point with yyyymmdd.xx where xx is the fraction of the day
-; (xx=0 at 0am and 5 at 12am) 
+; (xx=0 at 0am and 5 at 12am)
 ;
 ; @restrictions
 ; Input param must be longword integer or double-precision floating-point
-; 
+;
 ; @examples
 ;
@@ -76 +76 @@
   sztype = size(jday, /type)
   IF sztype NE 3 AND sztype NE 5 AND sztype LT 13 THEN BEGIN
-    dummy = report('Beware of input type, julian date must be long or double')
+    dummy = report('Beware of input type, Julian date must be long or double')
     stop
   ENDIF
@@ -82 +82 @@
   caldat, jday, month, day, year, hour, minute, second
 ;
-  res = (10000L*year + 100L*month + day)*(year GE 0) $
-        +( 10000L*year - 100L*month - day)*(year LT 0)
+  res =  (10000L * year + 100L * month + day) * (year GE 0) $
+       + (10000L * year - 100L * month - day) * (year LT 0)
 ;
   IF sztype NE 5 THEN return, long(res) $
-  ELSE return, double(res) + (hour / 24.0d0) + (minute/1440.0d0) + (second / 86400.0d0)
+  ELSE return, double(res) + (hour / 24.0d0) + (minute / 1440.0d0) + (second / 86400.0d0)
 
 end