|
|
1.1 ! root 1: set -x ! 2: for x ! 3: do ! 4: n=`basename $x .f` ! 5: f77 -S $x; mv $n.s $n.v0 ! 6: f77 -S -O -Tp/bin/cp $x; mv $n.s $n.v1 ! 7: if cmp $n.v[01] ! 8: then ! 9: rm $n.v1 ! 10: fi ! 11: f77 -S -O $x; mv $n.s $n.v2 ! 12: f77 -S -T1../f77pass1 -T2../../fcc/fort $x; mv $n.s $n.t0 ! 13: f77 -S -O -T1../f77pass1 -T2../../fcc/fort -Tp/bin/cp $x; mv $n.s $n.t1 ! 14: f77 -S -O -T1../f77pass1 -T2../../fcc/fort -Tp../../fc2/c2 $x; mv $n.s $n.t2 ! 15: if cmp $n.t[01] ! 16: then ! 17: rm $n.t1 ! 18: fi ! 19: done
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.