Changeset 121

Timestamp:

Oct 8, 2003, 9:41:42 AM (23 years ago)

Author:

eugene

Message:

added 'chipskip' code to allow for bad chips in a dataset

File:

• trunk/Ohana/src/perl/src/mosaic.stats (modified) (6 diffs)

trunk/Ohana/src/perl/src/mosaic.stats

@@ -10 +10 @@
 # confusion on a second pass
 
-@ccds = split (" ", `cameraconfig -ccdn`);
+@ccdn = split (" ", `cameraconfig -ccdn`);
+@ccds = split (" ", `cameraconfig -ccds`);
 if ($?) { die "ERROR: configuration problem\n"; }
 
@@ -27 +28 @@
 $type = "\U$ARGV[2]\E";
 
+# load option list of ccds to skip (specific to run/camera)
+$CHIPSKIP     = `gconfig CHIP_SKIP_LIST`; chop $CHIPSKIP;
+@chipskip = ();
+if (-e $CHIPSKIP) { 
+    open (FILE, $CHIPSKIP);
+    @chipskip = <FILE>;
+    close (FILE);
+    foreach $chip (@chipskip) { chop $chip; }
+}
+
+# modify the list of ccds to exclude chipskip entries
+$N = @ccds;
+CCD: for ($i = 0; $i < $N; $i++) {
+    $ccds = shift @ccds;
+    $ccdn = shift @ccdn;
+
+    foreach $skip (@chipskip) { if ($skip eq $ccds) { next CCD; } }
+    push @ccds, $ccds;
+    push @ccdn, $ccdn;
+}
+
 # check for the existence of each input file, exit if non-existent
-foreach $ccd (@ccds) {
+foreach $ccd (@ccdn) {
     $name = $ARGV[0];
     $name =~ s/CCDNUM/$ccd/;
@@ -38 +60 @@
 
 # load in stats from files (Nlist*Nccd entries)
-foreach $ccd (@ccds) {
+# each file contains stats for a single ccd, for all N files
+foreach $ccd (@ccdn) {
     $name = $ARGV[0];
     $name =~ s/CCDNUM/$ccd/;
@@ -46 +69 @@
     close (FILE);
 
-    if ($ccd eq $ccds[0]) {
-        $Nline = @$ccd;
-    } 
+    if ($ccd eq $ccdn[0]) { $Nline = @$ccd; }
     if (@$ccd != $Nline) { die "ERROR mis-matched file lengths\n"; }
 }    
@@ -71 +92 @@
     $mbin2 = 0;
 
-    foreach $ccd (@ccds) {
+    foreach $ccd (@ccdn) {
         $line = $$ccd[$i];
         chop ($line);
@@ -89 +110 @@
         $mbin2 += $words[7]*$words[7];
     }
-    $N = @ccds;
+    $N = @ccdn;
 
     # identify even or morn twilight