fix: open function

2023-04-12 19:29:24 +08:00 · 2023-04-12 19:29:24 +08:00 · 0e62bc5f9e
commit 0e62bc5f9e
parent 161e29f6d3
1 changed files with 2 additions and 1 deletions
--- a/src/staden/seeme-dec.f
+++ b/src/staden/seeme-dec.f
@ -162,7 +162,8 @@ C  so tell the user
                JRECL=1
                OPEN(UNIT=IDEV,FILE=FILNAM,STATUS='OLD',
     +               READONLY,
-     +               RECORDTYPE='STREAM',ERR=100)
+C     +               RECORDTYPE='STREAM',
+     +               ERR=100)
      END IF
      IOK=0
      RETURN