From 0e62bc5f9e94e5f8d4d32f593e7a4d27d421a68c Mon Sep 17 00:00:00 2001 From: Kuoi Date: Wed, 12 Apr 2023 19:29:24 +0800 Subject: [PATCH] fix: open function --- src/staden/seeme-dec.f | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/staden/seeme-dec.f b/src/staden/seeme-dec.f index 0196c51..b4bf09a 100644 --- 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