|
|
Using \n in csh
11-16-2010
set ierr = 0
set iarg = 0
set opt_tpath = 0
set opt_fbase = 0
set opt_fdata = 0
set opt_fstmod = 0
set opt_frestore = 0
set opt_ftag = 0
set opt_tee = 0
set opt_nxz = 0
set opt_npop = 0
set opt_varp = 0
set opt_sigma = 0
set opt_maxiter = 0
set opt_dtau = 0
set opt_mdacc = 0
set opt_mindist = 0
set opt_maxitertp = 0
set opt_vrb = 0
set opt_usage = 0
set opt_example = 0
set opt_help = 0
set opt_redirect = 0
set nlay = 1
set param = "P"
set intp = "LIN"
set std = "on"
set frestore = ""
set ftag = ""
set Avrb = ""
set tol = 0.0
set Version = "V03"
alias MATH 'set \!:1 = `echo "\!:3-$" | bc -l`'
set narg = $#argv
while ($iarg < $narg)
MATH iarg = $iarg + 1
set arg = $argv[$iarg]
set opt = `echo $arg | awk 'BEGIN {FS="="} {print $1}'`
set par = `echo $arg | awk 'BEGIN {FS="="} {print $2}'`
switch ($opt)
case "-tpath":
set Atpath = $par
set tpath = $Atpath
set opt_tpath = 1
breaksw
case "-fbase":
set Afbase = $par
set fbase = `echo $Afbase | awk 'BEGIN {FS=".base"} {print $1}'`
set opt_fbase = 1
breaksw
case "-fdata":
set Adata = $par
set fdata = `echo $Afdata | awk 'BEGIN {FS=".dat"} {print $1}'`
set opt_fdata = 1
breaksw
case "-fstmod":
set Afstmod = $par
set fstmod = `echo $Afstmod | awk 'BEGIN {FS=".cmod"} {print $1}'`
set opt_fstmod = 1
breaksw
case "-frestore":
set Afrestore = $par
set frestore = $Afrestore
set opt_frestore = 1
breaksw
case "-ftag":
set Aftag = $par
set ftag = $Aftag
set opt_ftag = 1
breaksw
case "-nxz":
set Anxz = $par
set nxz = $Anxz
set nxp = `echo $Anxz | awk 'BEGIN {FS="x"} {print $1}'`
set nzp = `echo $Anxz | awk 'BEGIN {FS="x"} {print $2}'`
set opt_nxz = 1
breaksw
case "-npop":
set Anpop = $par
set npop = $Anpop
set opt_npop = 1
breaksw
case "-varp":
set Avarp = $par
set varp = $Avarp
set varpint = `echo $Avarp | awk 'BEGIN {FS="."} {print $1}'`
set varpfrc = `echo $Avarp | awk 'BEGIN {FS="."} {print $2}'`
set opt_varp = 1
breaksw
case "-sigma":
set Asigma = $par
set sigma0 = $Asigma
set opt_sigma = 1
breaksw
case "-maxiter":
set Amaxiter = $par
set maxiter = $Amaxiter
set opt_maxiter = 1
breaksw
case "-dtau":
set Adtau = $par
set dtau = $Adtau
set opt_dtau = 1
breaksw
case "-mdacc":
set Amdacc = $par
set mdacc = $Amdacc
set opt_mdacc = 1
breaksw
case "-mindist":
set Amindist = $par
set mindist = $Amindist
set opt_mindist = 1
breaksw
case "-maxitertp":
set Amaxitertp = $par
set maxitertp = $Amaxitertp
set opt_maxitertp = 1
breaksw
case "-vrb":
set Avrb = $par
set vrb = $Avrb
set opt_vrb = 1
breaksw
case "-redirect":
set Aredirect = $par
set opt_redirect = 1
breaksw
default:
set Aerr = $arg
set ierr = 1
breaksw
endsw
end # while
set arg1 = "../Scripts/tdarwin.csh"
set arg2 = "[-tpath=] [-fbase=fbase.base] [-fdata=fdata.dat]"
set arg3 = "[-fstmod=fstmod.cmod] [-frestore=restore.back] [-ftag=]"
set arg4 = "-nxz= -npop= -varp= [-sigma=] [-maxiter=]"
set arg5 = "[-dtau=] [-mdacc=] [-mindist=] [-maxitertp=]"
set usage1 = "$arg1 $arg2 $arg3 $arg4 $arg5"
set eg1 = "-fdata=npt06-z30-sr65.dat -fstmod=npt06-z30-sr65-4x3smp.cmod"
set eg2 = "-nxz=8x6 -npop=480 -varp=0.25"
set eg1 = "$arg1 $eg1 $eg2"
if ($opt_tpath == 0) then
set tpath = "/nethome/chrisd/GStat/Trunk/TommyCD/bin"
endif
if ($opt_fbase == 0) then
set NF = `ls -lrt *.base \
| awk ' BEGIN{ORS=" "}; {print $NF} ' \
| awk '{print NF}'`
if ($NF > 1) then
set msg = "ABORT: Multiple base files exist in directory"
echo ""
echo "ERROR: "$NF" base files exist"
echo " "$msg
echo ""
echo " Set the base file using the -Base option"
echo ""
echo "End"
echo ""
exit 1
endif
set fbase = `ls -lrt *.base \
| awk ' BEGIN{ORS=" "}; {print $NF} ' \
| awk '{print $1}'`
set fbase = `echo $fbase | awk 'BEGIN { FS=".base" } { print $1 }'`
endif
if ($opt_fdata == 0) then
set NF = `ls -lrt *.dat \
| awk ' BEGIN{ORS=" "}; {print $NF} ' \
| awk '{print NF}'`
if ($NF > 1) then
set msg = "ABORT: Multiple data files exist in directory"
echo ""
echo "ERROR: "$NF" data files exist"
echo " "$msg
echo ""
echo " Set the data file using the -Data option"
echo ""
exit 1
endif
set fdata = `ls -lrt *.dat \
| awk ' BEGIN{ORS=" "}; {print $NF} ' \
| awk '{print $1}'`
set fdata = `echo $fdata | awk 'BEGIN { FS=".dat" } { print $1 }'`
endif
if ($opt_tpath == 1) echo " -tpath = $tpath\n"
if ($opt_fbase == 1) echo " -fbase = fbase.base = $fbase\n"
if ($opt_fdata == 1) echo " -fdata = fdata.dat = $fdata\n"
if ($opt_fstmod == 1) echo " -fstmod = fstmod.cmod = $fstmod\n"
if ($opt_frestore == 1) echo " -frestore = frestore.back = $frestore\n"
if ($opt_ftag == 1) echo " -ftag = $ftag\n"
if ($opt_nxz == 1) echo " -nxz = $Anxz\n"
if ($opt_npop == 1) echo " -npop = $npop\n"
if ($opt_varp == 1) echo " -varp = $varp\n"
if ($opt_sigma == 1) echo " -sigma = $sigma\n"
if ($opt_maxiter == 1) echo " -maxiter = $maxiter\n"
if ($opt_dtau == 1) echo " -dtau = $dtau\n"
if ($opt_mdacc == 1) echo " -mdacc = $mdacc\n"
if ($opt_mindist == 1) echo " -mindist = $mindist\n"
if ($opt_maxitertp == 1) echo " -maxitertp = $maxitertp\n"
if ($opt_vrb == 1) echo " -vrb = $vrb\n"
if ($opt_redirect == 1) echo " -redirect\n"-fstmod = fstmod.cmod = npt10-z30-sr65-rgdt0p25-dc0p25-4x3smp\n -nxz = 8x6\n -npop = 480\n -varp = 0.20\n
|
|
|
|