#!/usr/local/bin/tcsh
mv ./tloss/45degLBeam.plt ./tloss/45degLBeam.plt.old
#mv ./tloss/45degLBeam.plp ./tloss/45degLBeam.plp.old
#./bin/make_plug ./run/45degLBeam ./tloss/stubs/45degLBeam ./tloss/45degLBeam
cat ./refs/BEM/45degLB.bem.par1.for.rx1.dat ./run/45degLBeam.rdo.par1.for.rx1.dat> f1
cat ./refs/BEM/45degLB.bem.par1.for.rx2.dat ./run/45degLBeam.rdo.par1.for.rx2.dat> f2
cat ./refs/BEM/45degLB.bem.par1.bac.rx1.dat ./run/45degLBeam.rdo.par1.bac.rx1.dat> b1
cat ./refs/BEM/45degLB.bem.par1.bac.rx2.dat ./run/45degLBeam.rdo.par1.bac.rx2.dat> b2
cat f1 ./refs/CORE/45degLBeam.gem.par1.for.rx1.dat > ss1
cat f2 ./refs/CORE/45degLBeam.gem.par1.for.rx2.dat > ss2
cat b1 ./refs/CORE/45degLBeam.gem.par1.bac.rx1.dat > ss3
cat b2 ./refs/CORE/45degLBeam.gem.par1.bac.rx2.dat > ss4
cat ss1 ss2 ss3 ss4 > ./tloss/45degLBeam.plt
rm -f f? s? ss? b?
if ( $#argv == 1 ) then
  if ($argv[1] == "S") then
# Silent mode selected if argument is S
  else
# Plotting mode otherwise
mplot ./tloss/45degLBeam
  endif 
else
# Plotting mode as default with no arguments
mplot ./tloss/45degLBeam
endif