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

Timestamp:

01/22/07 08:55:49 (17 years ago)

Author:

smasson

Message:

improve the use of high frequency calendar

File:

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

trunk/SRC/Calendar/jul2date.pro

@@ -30 +30 @@
   compile_opt idl2, strictarrsubs
 ;
-
-  caldat, jday, month, day, year
-
+  caldat, jday, month, day, year, hour, min, sec
+;
   res = (10000L*year + 100L*month + day)*(year GE 0) $
         +( 10000L*year - 100L*month - day)*(year LT 0)
+;
+  IF total([hour NE 12, min NE 0, sec NE 0]) EQ 0 THEN return, long(res) $
+  ELSE return, double(res) + (hour / 24.0d0) + (min/1440.0d0) + (sec / 86400.0d0)
 
-  return, long(res)
 end