Changeset 69 for trunk/Calendar

Timestamp:

05/11/06 12:35:53 (18 years ago)

Author:

smasson

Message:

debug + new xxx

Location:

trunk/Calendar

Files:

• .idlwave_catalog (modified) (1 diff)
• date2jul.pro (modified) (1 diff)
• jul2date.pro (modified) (1 diff)

trunk/Calendar/.idlwave_catalog

@@ -2 +2 @@
 ;; IDLWAVE catalog for library saxo
 ;; Automatically Generated -- do not edit.
-;; Created by idlwave_catalog on Tue Jan 24 17:06:19 2006
+;; Created by idlwave_catalog on Thu May  4 08:42:55 2006
 ;;
 (setq idlwave-library-catalog-libname "saxo")

trunk/Calendar/date2jul.pro

@@ -42 +42 @@
 ;------------------------------------------------------------
    year = long(date) / 10000
-   month = long(date/100) MOD 100
-   day = long(date) MOD 100
+   month = long(abs(date)/100) MOD 100
+   day = long(abs(date)) MOD 100
 ;------------------------------------------------------------
    if keyword_set(grads) then year = year $

trunk/Calendar/jul2date.pro

@@ -35 +35 @@
 ;------------------------------------------------------------
 function jul2date, jday
+
   caldat, jday, month, day, year
-  return, 10000L*year+100L*month+day
+
+  res = (10000L*year + 100L*month + day)*(year GE 0) $
+        +( 10000L*year - 100L*month - day)*(year LT 0)
+
+  return, long(res)
 end