Changeset 12678 for trunk/ippScripts/scripts/detrend_reject_imfile.pl

Timestamp:

Mar 29, 2007, 11:18:23 AM (19 years ago)

Author:

Paul Price

Message:

Cleaning up.

File:

• trunk/ippScripts/scripts/detrend_reject_imfile.pl (modified) (2 diffs)

trunk/ippScripts/scripts/detrend_reject_imfile.pl

@@ -254 +254 @@
 if ($stdev > 0) { $exp_sn = $mean / $stdev; }
 
-unless ($no_op) {
-    print $logFile "Exposure mean $mean, stdev $stdev, mean stdev $meanStdev, exp s/n: $exp_sn\n";
-}
-
 ## Reject based on the exposure ensemble stats
 # reject if the exposure ensemble mean is deviant
 unless ($no_op) {
+    print $logFile "Exposure mean $mean, stdev $stdev, mean stdev $meanStdev, exp s/n: $exp_sn\n";
+
     if ($reject_exp_mean) {
         if (abs($mean) > $reject_exp_mean * $stdev) {
@@ -308 +306 @@
         print $logFile "No rejection for exp S/N\n";
     }
-}
-
-unless ($no_op) {
+
     close $logFile;
 }