Index: trunk/ippScripts/scripts/detrend_reject_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_reject_imfile.pl	(revision 10537)
+++ trunk/ippScripts/scripts/detrend_reject_imfile.pl	(revision 10538)
@@ -77,4 +77,5 @@
 my @means;			# Array of means
 my @variances;			# Array of variances
+my @meanStdevs;			# Array of mean stdevs
 open my $list1File, '>' . $list1Name;
 open my $list2File, '>' . $list2Name;
@@ -83,6 +84,8 @@
     print $list2File ($ipprc->convert_filename_absolute( $file->{b2_uri} ) . "\n");
     push @means, $file->{bg};
+    push @meanStdevs, $file->{bg_mean_stdev};
     ## calculate the root-mean-square of the bd_stdevs
     push @variances, $file->{bg_stdev}*$file->{bg_stdev};
+
 }
 close $list1File;
@@ -111,11 +114,12 @@
 my $expected = rejection_limit( 'EXPECTED', $det_type, $filter ); # Expected mean
 # Rejection thresholds
-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 );
+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_meanstdev = rejection_limit( 'IMFILE.MEANSTDEV', $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
@@ -146,4 +150,14 @@
     } else {
 	print "no rejection for imfile stdev\n";
+    }
+    if ($reject_imfile_meanstdev) {
+	if ($meanStdevs[$i] > $reject_imfile_meanstdev) {
+	    print "Rejecting exposure based on bad imfile mean stdev for imfile $i: " .
+		$meanStdevs[$i] . " vs " . $reject_imfile_meanstdev . "\n";
+	    $reject = 1;
+	    last;
+	}
+    } else {
+	print "no rejection for imfile mean stdev\n";
     }
     if ($reject_imfile_sn) {