floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MAINT: Explicitly replace instead of unknown

This commit is contained in:
Rohit Goswami 2024-07-30 15:24:23 +00:00
parent a6b7751881
commit 722e4ae07a
No known key found for this signature in database
GPG Key ID: 9CCCE36402CB49A6
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/cblat3_3m.f
View File

@ -104,7 +104,7 @@
* *
READ( NIN, FMT = * )SUMMRY READ( NIN, FMT = * )SUMMRY
READ( NIN, FMT = * )NOUT READ( NIN, FMT = * )NOUT
OPEN( NOUT, FILE = SUMMRY, STATUS = 'UNKNOWN' ) OPEN( NOUT, FILE = SUMMRY, STATUS = 'REPLACE' )
NOUTC = NOUT NOUTC = NOUT
* *
* Read name and unit number for snapshot output file and open file. * Read name and unit number for snapshot output file and open file.
@ -113,7 +113,7 @@
READ( NIN, FMT = * )NTRA READ( NIN, FMT = * )NTRA
TRACE = NTRA.GE.0 TRACE = NTRA.GE.0
IF( TRACE )THEN IF( TRACE )THEN
OPEN( NTRA, FILE = SNAPS, STATUS = 'UNKNOWN' ) OPEN( NTRA, FILE = SNAPS, STATUS = 'REPLACE' )
END IF END IF
* Read the flag that directs rewinding of the snapshot file. * Read the flag that directs rewinding of the snapshot file.
READ( NIN, FMT = * )REWI READ( NIN, FMT = * )REWI

4
test/zblat3_3m.f
View File

@ -105,7 +105,7 @@
* *
READ( NIN, FMT = * )SUMMRY READ( NIN, FMT = * )SUMMRY
READ( NIN, FMT = * )NOUT READ( NIN, FMT = * )NOUT
OPEN( NOUT, FILE = SUMMRY, STATUS = 'UNKNOWN' ) OPEN( NOUT, FILE = SUMMRY, STATUS = 'REPLACE' )
NOUTC = NOUT NOUTC = NOUT
* *
* Read name and unit number for snapshot output file and open file. * Read name and unit number for snapshot output file and open file.
@ -114,7 +114,7 @@
READ( NIN, FMT = * )NTRA READ( NIN, FMT = * )NTRA
TRACE = NTRA.GE.0 TRACE = NTRA.GE.0
IF( TRACE )THEN IF( TRACE )THEN
OPEN( NTRA, FILE = SNAPS, STATUS = 'UNKNOWN' ) OPEN( NTRA, FILE = SNAPS, STATUS = 'REPLACE' )
END IF END IF
* Read the flag that directs rewinding of the snapshot file. * Read the flag that directs rewinding of the snapshot file.
READ( NIN, FMT = * )REWI READ( NIN, FMT = * )REWI