Changeset 71

Timestamp:

May 12, 2003, 10:08:42 AM (23 years ago)

Author:

eugene

Message:

added check for imstats to bias & dark

File:

• trunk/Ohana/src/perl/src/dt.select (modified) (3 diffs)

trunk/Ohana/src/perl/src/dt.select

@@ -36 +36 @@
     if ("\U$detype\E" ne "FLAT") { die "ERROR: flat extras are missing\n"; }
 }
+
+$CCDWORD      = `gconfig CCDNUM-KEYWORD`; chop $CCDWORD;
 
 # relevant camera parameters
@@ -80 +82 @@
 FRAME:
 foreach $frame (@list) {
-    @words = split (" ",$frame);
+    @words = split (" ", $frame);
 
     # skip domeflat images
@@ -140 +142 @@
         }
     }
+    # test bias levels for BIAS / DARK
+    if (($type eq "BIAS") || ($type eq "DARK")) {
+       CHIP:  # check for values in bias column
+        foreach $chip (@list2) {
+            @words2 = split (" ", $chip);
+            if ($words2[10] == 0.0) { print STDERR "$words[5] rejected: no imstats\n"; next FRAME; }
+        }
+    }
 
     # add good images to the output lists (use CCD N for output filenames, CCD ID for [extname] in mef files)