#!/usr/local/bin/tcsh
mv ./tloss/RSWT2b.plt ./tloss/RSWT2b.plt.old
#mv ./tloss/RSWT2b.plp ./tloss/RSWT2b.plp.old
#./bin/make_plug ./run/RSWT2b ./tloss/stubs/RSWT2b ./tloss/RSWT2b
cat ./refs/COUPLE/RSW2b.ps.for.r45.dat ./run/RSWT2b.rdo.par1.for.rx1.dat > f1
cat ./refs/COUPLE/RSW2b.ps.bac.r45.dat ./run/RSWT2b.rdo.par1.bac.rx1.dat > f2
cat ./refs/COUPLE/RSW2b.ps.tot.r45.dat ./run/RSWT2b.rdo.par1.tot.rx1.dat > f3
cat f1 ./refs/CORE/RSWT2b.gem.par1.for.rx1.dat > ff1
cat f2 ./refs/CORE/RSWT2b.gem.par1.bac.rx1.dat > ff2
cat f3 ./refs/CORE/RSWT2b.gem.par1.tot.rx1.dat > ff3
cat ff1 ff2 ff3 > ./tloss/RSWT2b.plt
rm -f f? ff? 
if ( $#argv == 1 ) then
  if ($argv[1] == "S") then
# Silent mode selected if argument is S
  else
# Plotting mode otherwise
mplot ./tloss/RSWT2b
  endif 
else
# Plotting mode as default with no arguments
mplot ./tloss/RSWT2b
endif