#!/bin/csh -f
# propre *************************************
   if($#argv != 2) then
echo "Usage: {propre} o/{fiting_out}.s {rms}" ; exit
   endif
source $URO/$BIN/entorno
ln -s $cwd/d/data.d $UROF/fort.8
ln -s $cwd/o/${1}.s $UROF/fort.1
set n="1"
   while ($n <= 100)
      if(-e $cwd/o/tabl$n.s) then
set m=`expr $n + 10`
ln -s $cwd/o/tabl$n.s $UROF/fort.$m
      endif
set n=`expr $n + 1`
   end
$URO/$BIN/propre.exe <<EOF
${2}
EOF
rm -rf $UROF
exit
