|
|
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.