From 722e4ae07a8adff3be55c29a5452fb1851c724a8 Mon Sep 17 00:00:00 2001 From: Rohit Goswami Date: Tue, 30 Jul 2024 15:24:23 +0000 Subject: [PATCH] MAINT: Explicitly replace instead of unknown --- test/cblat3_3m.f | 4 ++-- test/zblat3_3m.f | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/test/cblat3_3m.f b/test/cblat3_3m.f index b61fca53c..6c7d7e169 100644 --- a/test/cblat3_3m.f +++ b/test/cblat3_3m.f @@ -104,7 +104,7 @@ * READ( NIN, FMT = * )SUMMRY READ( NIN, FMT = * )NOUT - OPEN( NOUT, FILE = SUMMRY, STATUS = 'UNKNOWN' ) + OPEN( NOUT, FILE = SUMMRY, STATUS = 'REPLACE' ) NOUTC = NOUT * * Read name and unit number for snapshot output file and open file. @@ -113,7 +113,7 @@ READ( NIN, FMT = * )NTRA TRACE = NTRA.GE.0 IF( TRACE )THEN - OPEN( NTRA, FILE = SNAPS, STATUS = 'UNKNOWN' ) + OPEN( NTRA, FILE = SNAPS, STATUS = 'REPLACE' ) END IF * Read the flag that directs rewinding of the snapshot file. READ( NIN, FMT = * )REWI diff --git a/test/zblat3_3m.f b/test/zblat3_3m.f index 86977d674..e65c72b48 100644 --- a/test/zblat3_3m.f +++ b/test/zblat3_3m.f @@ -105,7 +105,7 @@ * READ( NIN, FMT = * )SUMMRY READ( NIN, FMT = * )NOUT - OPEN( NOUT, FILE = SUMMRY, STATUS = 'UNKNOWN' ) + OPEN( NOUT, FILE = SUMMRY, STATUS = 'REPLACE' ) NOUTC = NOUT * * Read name and unit number for snapshot output file and open file. @@ -114,7 +114,7 @@ READ( NIN, FMT = * )NTRA TRACE = NTRA.GE.0 IF( TRACE )THEN - OPEN( NTRA, FILE = SNAPS, STATUS = 'UNKNOWN' ) + OPEN( NTRA, FILE = SNAPS, STATUS = 'REPLACE' ) END IF * Read the flag that directs rewinding of the snapshot file. READ( NIN, FMT = * )REWI