#!/bin/csh -f
# a2c ****************************************
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/a2c.exe
rm -rf $UROF
exit
