#!/bin/csh -f
# origen *************************************
source $URO/$BIN/entorno
ln -s $cwd/d/data.d $UROF/fort.8
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
      if(-e $cwd/d/xyz$n.d) then
set m=`expr $n + 50`
ln -s $cwd/d/xyz$n.d  $UROF/fort.$m
      endif
set n=`expr $n + 1`
   end
$URO/$BIN/origen.exe
sed -e 's/[ ]*$//' $UROF/fort.9 > $UROF/XYZ
csh $UROF/XYZ
rm -rf $UROF
exit
