projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[h316.git]
/
bin
/
frtn
diff --git
a/bin/frtn
b/bin/frtn
index 42a6ce8a3f87c25f010f2d6860a05d073f726737..f89f7d150e4bb0a88e59f451425509193f0bbbc6 100755
(executable)
--- a/
bin/frtn
+++ b/
bin/frtn
@@
-22,6
+22,7
@@
at tty3 $listfile
set tty3 uascii
set tty3 start
d a 311
set tty3 uascii
set tty3 start
d a 311
+;d a 310
d p 1000
d ss1 0
d ss2 1
d p 1000
d ss1 0
d ss2 1
@@
-32,8
+33,6
@@
quit
EOF
h316 $name.go > /dev/null
EOF
h316 $name.go > /dev/null
-rm -f $name.par
-rm -f $name.go
if cat $name.lst | egrep "[*]{36,40}">/dev/null 2>&1; then
cat $name.lst
if cat $name.lst | egrep "[*]{36,40}">/dev/null 2>&1; then
cat $name.lst
@@
-44,6
+43,9
@@
fi
if [ ! $2 ]; then
rm $name.lst
if [ ! $2 ]; then
rm $name.lst
+ rm -f $name.go
+ rm -f $name.par
+
fi
echo "FORTRAN IV compilation successfull."
exit 0
fi
echo "FORTRAN IV compilation successfull."
exit 0