Changeset 15646

Timestamp:

Nov 18, 2007, 6:25:57 PM (18 years ago)

Author:

eugene

Message:

allow CCDKeyword

File:

• trunk/Ohana/src/tools/src/fields.c (modified) (3 diffs)

trunk/Ohana/src/tools/src/fields.c

@@ -22 +22 @@
   FILE *f;
   Header header;
-  char filename[1000], *Extname, extname[80];
+  char filename[1000], *CCDKeyword, *Extname, extname[80];
   int N, Nbytes, Extnum, Nextend, status, GotFile, GotField, GotExtension;
 
@@ -29 +29 @@
   if (get_argument (argc, argv, "-h")) usage();
   if (get_argument (argc, argv, "--help")) usage();
+
+  CCDKeyword = NULL;
+  if ((N = get_argument (argc, argv, "-keyword"))) {
+    remove_argument (N, &argc, argv);
+    CCDKeyword = strcreate (argv[N]);
+    remove_argument (N, &argc, argv);
+  }
+  if (CCDKeyword == NULL) {
+    CCDKeyword = strcreate ("EXTNAME");
+  }
 
   Extnum = FALSE;
@@ -71 +81 @@
       }
       while (gfits_fread_header (f, &header)) {
-        /* extract the EXTNAME for this component (set to PHU for 0th component) */
-        status = gfits_scan (&header, "EXTNAME", "%s", 1, extname);
+        /* extract the EXTNAME (or other CCDKeyword) for this component (set to PHU for 0th component) */
+        status = gfits_scan (&header, CCDKeyword, "%s", 1, extname);
         if (!status) {
           if (Nextend == 0) {