malacology/staden-lg
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

fix: open function

Browse source
This commit is contained in:
kuoi 2023-04-12 19:29:24 +08:00
parent 161e29f6d3
commit 0e62bc5f9e
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/staden/seeme-dec.f
View file

@ -162,7 +162,8 @@ C so tell the user
JRECL=1 JRECL=1
OPEN(UNIT=IDEV,FILE=FILNAM,STATUS='OLD', OPEN(UNIT=IDEV,FILE=FILNAM,STATUS='OLD',
+ READONLY, + READONLY,
+ RECORDTYPE='STREAM',ERR=100) C + RECORDTYPE='STREAM',
+ ERR=100)
END IF END IF
IOK=0 IOK=0
RETURN RETURN