Changeset 2770

Timestamp:

Dec 20, 2004, 7:26:56 PM (22 years ago)

Author:

eugene

Message:

added warnings for missing time info

File:

• trunk/Ohana/src/imregister/base/parse_time.c (modified) (4 diffs)

trunk/Ohana/src/imregister/base/parse_time.c

@@ -14 +14 @@
   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 +22 @@
   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 +29 @@
   /* 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 +68 @@
   /* 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 = ' '; }