Changeset 2057 for trunk/tsuite

Timestamp:

05/14/08 03:18:38 (8 months ago)

Author:

gary

Message:

mostly a merge (with diff, not svn merge) of r2049

Files:

• trunk/tsuite/slow/runall.pl (modified) (3 diffs)

trunk/tsuite/slow/runall.pl

@@ -1 @@
-#!perl -w
-# the above is generic form of #! for perl, with warnings
- 
-# of the cloudy executable on your system
+#perl -w
+#
+# This runs all the *.in input files in a directory.
+# and should be executed from the directory containing the input files.
 
-# various VS execs
-#$exe = "c:/Projects/Cloudy/trunk/debug/trunk.exe";
-#$exe = "c:/projects/Cloudy/trunk/release/trunk.exe";
+# The string "$exe" must be modified to point to your executable version
+# of Cloudy.
 
-# icc 
-#$exe = "c:/projects/cloudy/trunk/icl/release/cloudy_icl.exe";
-$exe = "c:/projects/cloudy/trunk/source/sys_icl/cloudy.exe";
+# This can be done using an argument to runall.pl.  To test the build in source
+#
+# runall.pl
+#
+# To test the build in the sys_XXX subdirectory of source
+#
+# runall.pl sys_XXX
 
+# after all the models are run the "checkall.pl" script can be run
+# to check that everything went ok
+
+# This gives the path to the executable version of the code
+# This will work if the directory structure was not changed from the
+# original download and if the executable was built in source
+# using g++ and the makefiles provided
+$exe = '../../source/'.$ARGV[0].'/cloudy.exe';
+
+# these are the various compiler builds that occur in sys_XXX
+# directories below source.  
+# uncomment the one that you built if you did not use the default
+#
+# sys_gcc
+# $exe = "../../source/sys_gcc/cloudy.exe";
+# $exe = "../../source/sys_gprof/cloudy.exe";
+# $exe = "../../source/sys_IBMxSeries/cloudy.exe";
+# $exe = "../../source/sys_icc/cloudy.exe";
+# $exe = "../../source/sys_pgcc/cloudy.exe";
+# $exe = "../../source/sys_pgccBounds/cloudy.exe";
+
+# if this file does not exist we have problems
+if( ! -e "$exe" )
+{
+        die "The executable file $exe does not exist\n";
+}
+
+# count total number of sims we compute
 $nMod = 0;
+
+# sets number to skip - will start tests after skipping the first
+# nSkip in alphabetical order.  set to 0 to so all sims
 $nSkip = 0;
 
-# this loops over all the *.in files in the current directory
-# and runs the code to produce *.out files
+# total number to do, usually much larger than the total
+# to do them all
+$nLimit = 700;
+
+# loop over the *.in files
+# and runs the test, producinig the *.out files
 while ( defined( $input = glob("*.in") ) )
 {
-        if ( $nMod>=$nSkip )
+        if ( $nMod>=$nSkip  && $nMod < $nLimit )
         {
-                # $output =~ s/.out//gi;
-                # $output =~ s/.out//gi;
                 print( "$input going to " );
                 $output = $input;
@@ -30 +66 @@
                         rename( "$output".".out" , "$output".".bak" );
                 }
-                $out = "$output".".out";
+                $out = "$output".".out";
                 print("$output\n");
-                # actually execute the code
-#               system "nice -n 5 $exe < $input  > $out";
-                system "$exe < $input  > $out";
+                # actually execute the code including nice
+                system "nice -n 5 \"$exe\" < $input  > $out";
         }
         ++$nMod;
@@ -40 +75 @@
 
 print("\n=========================\n");
-printf( "\n %i models were computed, and %i were skipped.\n ",$nMod,$nSkip);
+printf( "\n %i simulations were computed, and %i were skipped.\n ",$nMod,$nSkip);
 print("Now use the checkall.pl script to check results.\n");
 print("=========================\n");