Rohit Goswami
1 year ago
No known key found for this signature in database
GPG Key ID: 9CCCE36402CB49A6
2 changed files with 4 additions and 4 deletions
Unified View
Diff Options
-
+2 -2test/cblat3_3m.f
-
+2 -2test/zblat3_3m.f
+ 2
- 2
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 | ||||
+ 2
- 2
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 | ||||