Changeset 27574

Timestamp:

Apr 1, 2010, 6:23:23 PM (16 years ago)

Author:

Paul Price

Message:

Adding variance renormalisation errors.

File:

• trunk/tools/errors.pl (modified) (3 diffs)

trunk/tools/errors.pl

@@ -90 +90 @@
 my %no_instances_available;
 my %neb_entry;
+my %variance;
 my %unknown;
 my %bad;
@@ -182 +183 @@
             last;
         }
+        if ($line =~ /Variance renormalisation is outside valid range: (\S+)/) {
+            $variance{$name} = $1;
+            $found = 1;
+            last;
+        }
     }
     $unknown{$name} = $log unless $found;
@@ -270 +276 @@
 }
 
+if (scalar keys %variance) {
+    print "'variance renormalisation' errors: " . ( scalar keys %variance ) . "\n";
+    foreach my $name (keys %variance) {
+        print "$name: $variance{$name}\n";
+    }
+    print "\n";
+}
+
 if (scalar keys %unknown) {
     print "Unknown errors: " . ( scalar keys %unknown ) . "\n";