#! /bin/csh

#---------------------------------------------------------------
# workdir setup 
#---------------------------------------------------------------

set num = `echo $argv[1] | cut -c 11-`

# prevent overload of janus-s service node by allowing load-balancing more 
# of a chance to do its job
#@ delay = ($num % 10) * 20
#sleep $delay

mkdir workdir.$num
cp templatedir/* workdir.$num/.
mv $argv[1] workdir.$num/dakota_vars

foreach i (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18)
  mkdir /pfs_grande/tmp_$i/bartv/workdir.$num
  ln -s /pfs_grande/tmp_$i/bartv/templatedir/* /pfs_grande/tmp_$i/bartv/workdir.$num/.
end

#---------------------------------------------------------------
# input filter
#---------------------------------------------------------------

cd workdir.$num
write_aff6c.app $num > aff6c.app
aprepro  --nowarning aff6c.app aff6c.new
grep -vi aprepro aff6c.new > aff6c.inp

#---------------------------------------------------------------
# run 
#---------------------------------------------------------------
yod -sz 256 ../salinas aff6c.inp >& sal.out

#---------------------------------------------------------------
# output filter
#---------------------------------------------------------------

grep 'Mass of Structure' aff6c_0.rslt  | cut -c 28- >! stress.out

yod -sz 256 ../blk_stats -r 18 -f 4 /pfs_grande/tmp_%d/bartv/workdir.$num/aff6c-out.par.256.%.3d >! blk_stress.out
grep 'Safety Margin' blk_stress.out  | cut -c 18- >> stress.out
yod -sz 256 ../blk_stats -r 18 -f 2 /pfs_grande/tmp_%d/bartv/workdir.$num/aff6c-out.par.256.%.3d >! blk_gs.out
grep 'Safety Margin' blk_gs.out  | cut -c 18- >! gs.out

grep ASV_ dakota_vars | cut -c 57 >! asv.in
../aff_all_fns asv.in stress.out gs.out results.out.$num
mv results.out.$num ../.

cd ../.

#---------------------------------------------------------------
# clean up
#---------------------------------------------------------------

#\rm -r workdir.$num
# foreach i (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18)
#   \rm -r /pfs_grande/tmp_$i/bartv/workdir.$num
# end
