#
      echo 'directory' $cwd > $cwd.lis
      cp /******/liblst  liblst
      cp /******/my_lib  my_lib
      @ ncycles=0
      echo 'kill -9 '$$ >> /******/killer
labl:
      date >> $cwd.lis
      time >> $cwd.lis
      echo $cwd ' cycle number ' $ncycles >> $cwd.lis
      cp /******/testa.f prog1.f
      sleep 10
      fort prog1.f >>& $cwd.lis
      sleep 5
      ed - prog1.f << EOF >& /dev/null
1,4p
s/1000/750/
/999/
s/999/749/
+4
s/999/749/
+1
s/999/749/
/1000/
s/1000/750/
w
q
EOF
      fort prog1.f >>& $cwd.lis
      sleep 5
      cp /******/testb.c prog2.c
      cc prog2.c -lm >>& $cwd.lis
      a.out >>& $cwd.lis
      sleep 5
      rm prog2.*
      ed - prog1.f << EOF  >& /dev/null
3p
s/act/charact/
/25:25/
s/25:25/24:24/
w
q
EOF
      sleep 5
      fort prog1.f >>& $cwd.lis
      a.out >>& $cwd.lis
      sleep 5
      rm prog1.*
      cp /******/testc.ada prog3.ada
      ada -r prog3.ada >>& $cwd.lis
      alink rats >>& $cwd.lis
      rats >>& $cwd.lis
      rm prog3.* rats.*
      cp /******/testd.f prog4.f
      sleep 5
      ed - prog4.f << EOF  >>& $cwd.lis
/sop/
s/op/top/
2p
s/10/25/
+1
s/i\*i/i*i,srt(real(i)),i**(1.0\/3.0)/
+2
s/i6)/i6,5x,f10.6,5x,f10.7)/
w
q
EOF
      fort prog.f >>& $cwd.lis
      sleep 5
      ed - prog4.f << EOF  >& /dev/null
/sqt/
s/sqt/sqrt/
w
q
EOF
      fort prog4.f >>& $cwd.lis
      a.out >>& $cwd.lis
      rm prog4.*
      go to labl