marked file action as read

6 years ago · bd83bf95d5
1 changed files with 1 additions and 1 deletions
--- a/fortran/rip_cape.f90
+++ b/fortran/rip_cape.f90
@ -176,7 +176,7 @@ SUBROUTINE DLOOKUP_TABLE(psadithte, psadiprs, psaditmk, fname, errstat, errmsg)
				@@ -176,7 +176,7 @@ SUBROUTINE DLOOKUP_TABLE(psadithte, psadiprs, psaditmk, fname, errstat, errmsg)

    !      FNAME = 'psadilookup.dat'
    iustnlist = 33
-    OPEN (UNIT=iustnlist, FILE=fname, FORM='formatted', STATUS='old')
+    OPEN (UNIT=iustnlist, FILE=fname, FORM='formatted', STATUS='old', ACTION='read')

    DO i = 1,14
        READ (iustnlist, FMT=*)