#
      echo 'directory' $cwd > $cwd.lis
      cp /******/teste.f prog3.f
      cp /******/symap.f prog2.f
      cp /******/testf.f prog1.f
      @ ncycles=0
      echo 'kill -9 '$$ >> /******/killerb
labl:
      date >> $cwd.lis
      time >> $cwd.lis
      @ ncycles++
      echo $cwd ' cycle number ' $ncycles >> $cwd.lis
      fort -O12 prog1.f >>& $cwd.lis
      a.out >> $cwd.lis
      fort -w prog2.f >>& $cwd.lis
      fort -O12 -V prog3.f >>& $cwd.lis
      a.out >> $cwd.lis
      rm testf.out
      goto labl