#!/bin/csh -f
set file=S1
set qamp=(3.0   3.0   3.0   3.0   3.0   3.0  3.0  3.0  3.0  3.0)
set qsi=( 0.    40.    80.  120.  140.  160. 180. 200. 220.  0.)
set th2o=(-10.  -10.  -10.  -10. -10.  -10.  -10.  -10.  -10.  -10.)
set tev=(-10.  -10.  -10.  -10. -10.  -10.  -10.  -10.  -10.  -10.)
set out=( 1     2     3     4     5     6    7     8     9      0 )
cp t temp
foreach i (1)
sed s@XXXqamp@$qamp[$i]@g  temp > x1
sed s@XXXqsi@$qsi[$i]@g x1 > x2
sed s@XXXh2o@$th2o[$i]@g x2 > x3
sed s@XXXtev@$tev[$i]@g x3 > x4
sed s@XXXout@$out[$i]@g x4 > x5
sed s@XXXfile@${file}@g x5 > x6
rm x1 x2 x3 x4 x5 
echo "start ansys.e51 i=$i"
ansys.e51 < x6 > out
echo "stop ansys.e51 i=$i"
rm x6
echo "start display.e51 i=$i"
display.e51 < rphiL.disp > out1 
echo "stop display.e51 i=$i"
foreach j (00 01 02 03 04 05 06)
mv pscr$j.grph z${file}-$i$j.ps
echo "create z${file}-$i$j.ps"
end
mv z${file}$i.out z${file}-$i.out
end
rm zplot.ps
rm temp