X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=bin%2Ffrtn;h=f89f7d150e4bb0a88e59f451425509193f0bbbc6;hb=ec6239e900c4637a58f3bb76da5d276bc805a419;hp=42a6ce8a3f87c25f010f2d6860a05d073f726737;hpb=e5cd2df3e3ca464c2e29e94045082d8c30c53940;p=h316.git

diff --git a/bin/frtn b/bin/frtn
index 42a6ce8..f89f7d1 100755
--- a/bin/frtn
+++ b/bin/frtn
@@ -22,6 +22,7 @@ at tty3 $listfile
 set tty3 uascii
 set tty3 start
 d a 311
+;d a 310
 d p 1000
 d ss1 0
 d ss2 1
@@ -32,8 +33,6 @@ quit
 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
@@ -44,6 +43,9 @@ fi
 
 if [ !  $2  ]; then
 	rm $name.lst
+	rm -f $name.go
+	rm -f $name.par
+
 fi
 echo "FORTRAN IV compilation successfull."
 exit 0