Index: /trunk/ippScripts/scripts/detrend_reject_imfile.pl
===================================================================
--- /trunk/ippScripts/scripts/detrend_reject_imfile.pl	(revision 10457)
+++ /trunk/ippScripts/scripts/detrend_reject_imfile.pl	(revision 10458)
@@ -113,7 +113,9 @@
 my $reject_imfile_mean   = rejection_limit( 'IMFILE.MEAN',   $det_type, $filter );
 my $reject_imfile_stdev  = rejection_limit( 'IMFILE.STDEV',  $det_type, $filter );
+my $reject_imfile_sn     = rejection_limit( 'IMFILE.SN',     $det_type, $filter );
 my $reject_exp_mean      = rejection_limit( 'EXP.MEAN',      $det_type, $filter );
 my $reject_exp_stdev     = rejection_limit( 'EXP.STDEV',     $det_type, $filter );
 my $reject_exp_meanstdev = rejection_limit( 'EXP.MEANSTDEV', $det_type, $filter );
+my $reject_exp_sn        = rejection_limit( 'EXP.SN',        $det_type, $filter );
 
 # Reject based on the stats of the imfiles
@@ -145,4 +147,15 @@
 	print "no rejection for imfile stdev\n";
     }
+    if ($reject_imfile_sn) {
+	if ($mean / $stdev < $reject_imfile_sn) {
+	    print "Rejecting exposure based on bad imfile S/N for imfile $i: " .
+		$mean / $stdev . " vs " . $reject_imfile_sn . "\n";
+	    $reject = 1;
+	    last;
+	}
+    } else {
+	print "no rejection for imfile S/N\n";
+    }
+    
 }
 
@@ -171,5 +184,5 @@
     } 
 } else {
-    print "no rejection for imfile mean\n";
+    print "no rejection for exp mean\n";
 }
 # reject if the exposure ensemble stdev is deviant
@@ -181,5 +194,5 @@
     }
 } else {
-    print "no rejection for imfile stdev\n";
+    print "no rejection for exp stdev\n";
 }
 # reject if the exposure ensemble mean stdev is deviant
@@ -191,5 +204,15 @@
     }
 } else {
-    print "no rejection for imfile mean stdev\n";
+    print "no rejection for exp mean stdev\n";
+}
+# reject if the signal-to-noise is insufficient
+if ($reject_exp_sn) {
+    if ($mean / $stdev < $reject_exp_sn) {
+	print "Rejecting exposure based on poor S/N: " . $mean / $stdev . " vs " . 
+	    $reject_exp_sn . "\n";
+	$reject = 1;
+    }
+} else {
+    print "no rejection for exp S/N\n";
 }
 
