Changeset 2405 for trunk/tsuite

Timestamp:

10/19/08 07:37:01 (3 months ago)

Author:

peter

Message:

source/assert_results.cpp:

Set wavelength field in output of ASSERT NZONE command to 0.

tsuite/auto/fix_input_scripts.pl:

Fix failure to process H2 column densities for v=1.

Files:

• trunk/tsuite/auto/fix_input_scripts.pl (modified) (3 diffs)

trunk/tsuite/auto/fix_input_scripts.pl

@@ -127 +127 @@
         {
 #             this does a lot of magic to convert the assert output back to an input command
-            &do_field_heuristics( $fields[$j] );
+            &do_field_heuristics( $fields[$j], $line );
             if( $fields[$j] ne "" )
             {
@@ -134 +134 @@
         }
         $oldvaltrim = $oldval;
-        &do_field_heuristics( $oldvaltrim );
+        &do_field_heuristics( $oldvaltrim, $line );
         $regexp .= "${oldvaltrim}[\\.0]*";
         if( $upper_limit )
@@ -280 +280 @@
         $_[0] = "csupra";
     }
+    if( $_[1] =~ /^H2/ && $_[0] =~ /^[1-9]0[1-9]$/ )
+    {
+        $_[0] =~ s/([1-9])0([1-9])/$1 +$2/;
+    }
 }