Index: /trunk/Ohana/src/imregister/base/parse_time.c
===================================================================
--- /trunk/Ohana/src/imregister/base/parse_time.c	(revision 2769)
+++ /trunk/Ohana/src/imregister/base/parse_time.c	(revision 2770)
@@ -14,6 +14,6 @@
   if (strcasecmp (JDKeyword, "NONE")) {
     uppercase (JDKeyword);
-    fits_scan (header, JDKeyword, "%lf", 1, &jd);
-    Nsec = (jd - 2440587.5)*86400;
+    warn_scan (header, JDKeyword, "%lf", 1, &jd);
+    Nsec = jd_to_sec (jd);
     return (Nsec);
   }
@@ -22,6 +22,6 @@
   if (strcasecmp (MJDKeyword, "NONE")) {
     uppercase (MJDKeyword);
-    fits_scan (header, MJDKeyword, "%lf", 1, &jd);
-    Nsec = (jd - 40587.0)*86400;
+    warn_scan (header, MJDKeyword, "%lf", 1, &jd);
+    Nsec = mjd_to_sec (jd);
     return (Nsec);
   }
@@ -29,5 +29,5 @@
   /* get UT and DATE */
   uppercase (UTKeyword);
-  fits_scan (header, UTKeyword, "%s", 1, line);
+  warn_scan (header, UTKeyword, "%s", 1, line);
   /* remove ':' characters */
   for (c = strchr (line, 0x3a); c != (char *) NULL; c = strchr (line, 0x3a)) { *c = ' '; }
@@ -68,5 +68,5 @@
   /* parse date entry */
   uppercase (DateKeyword);
-  fits_scan (header, DateKeyword, "%s",  1, line);
+  warn_scan (header, DateKeyword, "%s",  1, line);
   /* remove possible separators: ':', '/' '.', '-' */
   for (c = strchr (line, 0x3a); c != (char *) NULL; c = strchr (line, 0x3a)) { *c = ' '; }