MAINT: Explicitly replace instead of unknown

Author: HaoZeke

test/cblat3_3m.f

@@ -104,7 +104,7 @@ PROGRAM CBLAT3
 *
       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 @@ PROGRAM CBLAT3
       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

test/zblat3_3m.f

@@ -105,7 +105,7 @@ PROGRAM ZBLAT3
 *
       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 @@ PROGRAM ZBLAT3
       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