/*-------------------------------------------------- SPHC_Launch Script - Version 1.00 (c) Stellingwerf Consulting - 2004 Can be used on any system with S-tran installed ----------------------------------------------------*/ /*........................................................... To run as usual in /home/sdat ... 1) set Number_of_runs = 1 (default) 2) input a single blank space for Run_folder[1] (default) 3) input the name of the .inp file for Input_file[1] To use for single or muliple SPHC runs in folders... 1) create folders for each run in "Data_path" location 2) put setup (.inp) files for each run in the folders 3) run the script, supply path and file names Default is to name subsequent folders with appended run numbers e.g. burt_run burt_run2 burt_run3 etc... and to use the same .inp file name in all folders e.g burt.inp burt.inp etc... All paths and names can be changed when script is run ...............................................................*/ #---set default values---modify for your system------------------- # put all strings with backslashes in quotes!!! $Exe_folder = "c:\home\sdat\" // location of executable $Data_path = "c:\home\sdat\" // location of data folders Number_of_runs = 1 //$Run_folder[1] = " " // use this to run in sdat $Run_folder[1] = burt_run // this folder must exist $Input_file[1] = burt.inp // put this file in the folder show_line "-----SPHC Setup and Launch-----" #---prompt for paths and number of runs--- show_nl input $Exe_folder $Data_path Number_of_runs if Number_of_runs=1 Divert = false query "Divert all screen output to screen.txt?" Divert else Divert = true end_if #---input the run folders and files--- for_i = 1 Number_of_runs if i>1 $Run_folder[i] = $Run_folder[1] @i $Input_file[i] = $Input_file[1] end_if show_nl show_field "Data folder for run " @i " (in Data_Path, does NOT end with a \)" input0 $Run_folder[i] show_field "Setup file for run " @i input0 $Input_file[i] end_i show_nl #---build the system call--- for_i = 1 Number_of_runs $str = $Exe_folder "sphc i " $Input_file[i] " " $Data_path $Run_folder[i] "\" if Divert $str = $str " >" $Data_path $Run_folder[i] "\" screen.txt end_if show_nl //show_line $str // for debugging //query pause... //show_nl #---execute the run--- show_field $date " Beginning run " .... $Run_folder[i] show_nl system $str show_line $date " Finished run ...." $Run_folder[i] end_i # system call should look like this... # c:\home\rfs\sph\sphc\code\release\sphc i rccb.inp rcc1\ >rcc1\screen.txt Content-Disposition: form-data; name="doc2type" none