Changeset 120

Timestamp:

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

Author:

eugene

Message:

added 'chipskip' code to allow for bad chips in a data set

File:

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

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

@@ -38 +38 @@
 
 $CCDWORD      = `gconfig CCDNUM-KEYWORD`; chop $CCDWORD;
+$CHIPSKIP     = `gconfig CHIP_SKIP_LIST`; chop $CHIPSKIP;
+@chipskip = ();
+if (-e $CHIPSKIP) { 
+    open (FILE, $CHIPSKIP);
+    @chipskip = <FILE>;
+    close (FILE);
+    foreach $chip (@chipskip) { chop $chip; }
+}
 
 # relevant camera parameters
@@ -132 +140 @@
         foreach $chip (@list2) {
             @words2 = split (" ", $chip);
+            foreach $chipskip (@chipskip) { 
+                if ($words2[3] eq $chipskip) { next CHIP; }
+            }
             
             # test for acceptable counts range