*** empty log message ***

[h316.git] / programs / fortran / build_frtn.sh

diff --git a/programs/fortran/build_frtn.sh b/programs/fortran/build_frtn.sh
index 6767e19731147ba2e227abe00235a8c69570db30..f9c9a324252153cc96e301df76853fbba50604a1 100755 (executable)
--- a/programs/fortran/build_frtn.sh
+++ b/programs/fortran/build_frtn.sh
@@ -21,11 +21,12 @@ at ptp frtn.slst
 run 37000
 d a 100
 go
-d p 27777
+d a 27777
 go
 q
-
 EOF
+
+rm -f frtn.sys frtn.slst
 h316 build.do
 rm -f build.do