Skip to content

Commit d3b2036

Browse files
mathomp4mathomp4
committed
Move to use ERROR STOP instead of ABORT
1 parent 35334ed commit d3b2036

14 files changed

+78
-78
lines changed

‎ctest/c_cblat1.f

+3-3
Original file line numberDiff line numberDiff line change
@@ -41,7 +41,7 @@ PROGRAM CCBLAT1
4141
IF (PASS) THEN
4242
WRITE (NOUT,99998)
4343
ELSE
44-
CALL ABORT
44+
ERROR STOP
4545
END IF
4646
20 CONTINUE
4747
*
@@ -231,7 +231,7 @@ SUBROUTINE CHECK1(SFAC)
231231
CALL ITEST1(ICAMAXTEST(N,CX,INCX),ITRUE3(NP1))
232232
ELSE
233233
WRITE (NOUT,*) ' Shouldn''t be here in CHECK1'
234-
CALL ABORT
234+
ERROR STOP
235235
END IF
236236
*
237237
40 CONTINUE
@@ -515,7 +515,7 @@ SUBROUTINE CHECK2(SFAC)
515515
CALL CTEST(LENY,CY,CT10Y(1,KN,KI),CSIZE3,1.0E0)
516516
ELSE
517517
WRITE (NOUT,*) ' Shouldn''t be here in CHECK2'
518-
CALL ABORT
518+
ERROR STOP
519519
END IF
520520
*
521521
40 CONTINUE

‎ctest/c_cblat2.f

+5-5
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@ PROGRAM CBLAT2
1010
* 'CBLAT2.SNAP' NAME OF SNAPSHOT OUTPUT FILE
1111
* -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
1212
* F LOGICAL FLAG, T TO REWIND SNAPSHOT FILE AFTER EACH RECORD.
13-
* F LOGICAL FLAG, T TO CALL ABORT ON FAILURES.
13+
* F LOGICAL FLAG, T TO ERROR STOP ON FAILURES.
1414
* T LOGICAL FLAG, T TO TEST ERROR EXITS.
1515
* 2 0 TO TEST COLUMN-MAJOR, 1 TO TEST ROW-MAJOR, 2 TO TEST BOTH
1616
* 16.0 THRESHOLD VALUE OF TEST RATIO
@@ -243,7 +243,7 @@ PROGRAM CBLAT2
243243
$ GO TO 70
244244
60 CONTINUE
245245
WRITE( NOUT, FMT = 9986 )SNAMET
246-
CALL ABORT
246+
ERROR STOP
247247
70 LTEST( I ) = LTESTT
248248
GO TO 50
249249
*
@@ -283,15 +283,15 @@ PROGRAM CBLAT2
283283
SAME = LCE( YY, YT, N )
284284
IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
285285
WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
286-
CALL ABORT
286+
ERROR STOP
287287
END IF
288288
TRANS = 'T'
289289
CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
290290
$ YY, EPS, ERR, FATAL, NOUT, .TRUE. )
291291
SAME = LCE( YY, YT, N )
292292
IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
293293
WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
294-
CALL ABORT
294+
ERROR STOP
295295
END IF
296296
*
297297
* Test each subroutine in turn.
@@ -419,7 +419,7 @@ PROGRAM CBLAT2
419419
$ CLOSE ( NTRA )
420420
CLOSE ( NOUT )
421421
IF( FATAL ) THEN
422-
CALL ABORT
422+
ERROR STOP
423423
END IF
424424
*
425425
10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )

‎ctest/c_cblat3.f

+7-7
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@ PROGRAM CBLAT3
1010
* 'CBLAT3.SNAP' NAME OF SNAPSHOT OUTPUT FILE
1111
* -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
1212
* F LOGICAL FLAG, T TO REWIND SNAPSHOT FILE AFTER EACH RECORD.
13-
* F LOGICAL FLAG, T TO CALL ABORT ON FAILURES.
13+
* F LOGICAL FLAG, T TO ERROR STOP ON FAILURES.
1414
* T LOGICAL FLAG, T TO TEST ERROR EXITS.
1515
* 2 0 TO TEST COLUMN-MAJOR, 1 TO TEST ROW-MAJOR, 2 TO TEST BOTH
1616
* 16.0 THRESHOLD VALUE OF TEST RATIO
@@ -194,7 +194,7 @@ PROGRAM CBLAT3
194194
$ GO TO 50
195195
40 CONTINUE
196196
WRITE( NOUT, FMT = 9990 )SNAMET
197-
CALL ABORT
197+
ERROR STOP
198198
50 LTEST( I ) = LTESTT
199199
GO TO 30
200200
*
@@ -237,7 +237,7 @@ PROGRAM CBLAT3
237237
SAME = LCE( CC, CT, N )
238238
IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
239239
WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
240-
CALL ABORT
240+
ERROR STOP
241241
END IF
242242
TRANSB = 'C'
243243
CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
@@ -246,7 +246,7 @@ PROGRAM CBLAT3
246246
SAME = LCE( CC, CT, N )
247247
IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
248248
WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
249-
CALL ABORT
249+
ERROR STOP
250250
END IF
251251
DO 120 J = 1, N
252252
AB( J, NMAX + 1 ) = N - J + 1
@@ -264,7 +264,7 @@ PROGRAM CBLAT3
264264
SAME = LCE( CC, CT, N )
265265
IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
266266
WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
267-
CALL ABORT
267+
ERROR STOP
268268
END IF
269269
TRANSB = 'C'
270270
CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
@@ -273,7 +273,7 @@ PROGRAM CBLAT3
273273
SAME = LCE( CC, CT, N )
274274
IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
275275
WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
276-
CALL ABORT
276+
ERROR STOP
277277
END IF
278278
*
279279
* Test each subroutine in turn.
@@ -386,7 +386,7 @@ PROGRAM CBLAT3
386386
$ CLOSE ( NTRA )
387387
CLOSE ( NOUT )
388388
IF( FATAL ) THEN
389-
CALL ABORT
389+
ERROR STOP
390390
END IF
391391
*
392392
10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )

‎ctest/c_cblat3_3m.f

+7-7
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@ PROGRAM CBLAT3
1010
* 'CBLAT3.SNAP' NAME OF SNAPSHOT OUTPUT FILE
1111
* -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
1212
* F LOGICAL FLAG, T TO REWIND SNAPSHOT FILE AFTER EACH RECORD.
13-
* F LOGICAL FLAG, T TO CALL ABORT ON FAILURES.
13+
* F LOGICAL FLAG, T TO ERROR STOP ON FAILURES.
1414
* T LOGICAL FLAG, T TO TEST ERROR EXITS.
1515
* 2 0 TO TEST COLUMN-MAJOR, 1 TO TEST ROW-MAJOR, 2 TO TEST BOTH
1616
* 16.0 THRESHOLD VALUE OF TEST RATIO
@@ -194,7 +194,7 @@ PROGRAM CBLAT3
194194
$ GO TO 50
195195
40 CONTINUE
196196
WRITE( NOUT, FMT = 9990 )SNAMET
197-
CALL ABORT
197+
ERROR STOP
198198
50 LTEST( I ) = LTESTT
199199
GO TO 30
200200
*
@@ -237,7 +237,7 @@ PROGRAM CBLAT3
237237
SAME = LCE( CC, CT, N )
238238
IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
239239
WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
240-
CALL ABORT
240+
ERROR STOP
241241
END IF
242242
TRANSB = 'C'
243243
CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
@@ -246,7 +246,7 @@ PROGRAM CBLAT3
246246
SAME = LCE( CC, CT, N )
247247
IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
248248
WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
249-
CALL ABORT
249+
ERROR STOP
250250
END IF
251251
DO 120 J = 1, N
252252
AB( J, NMAX + 1 ) = N - J + 1
@@ -264,7 +264,7 @@ PROGRAM CBLAT3
264264
SAME = LCE( CC, CT, N )
265265
IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
266266
WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
267-
CALL ABORT
267+
ERROR STOP
268268
END IF
269269
TRANSB = 'C'
270270
CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
@@ -273,7 +273,7 @@ PROGRAM CBLAT3
273273
SAME = LCE( CC, CT, N )
274274
IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
275275
WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
276-
CALL ABORT
276+
ERROR STOP
277277
END IF
278278
*
279279
* Test each subroutine in turn.
@@ -386,7 +386,7 @@ PROGRAM CBLAT3
386386
$ CLOSE ( NTRA )
387387
CLOSE ( NOUT )
388388
IF( FATAL ) THEN
389-
CALL ABORT
389+
ERROR STOP
390390
END IF
391391
*
392392
10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )

‎ctest/c_dblat1.f

+5-5
Original file line numberDiff line numberDiff line change
@@ -47,7 +47,7 @@ PROGRAM DCBLAT1
4747
IF (PASS) THEN
4848
WRITE (NOUT,99998)
4949
ELSE
50-
CALL ABORT
50+
ERROR STOP
5151
END IF
5252
20 CONTINUE
5353
*
@@ -139,7 +139,7 @@ SUBROUTINE CHECK0(SFAC)
139139
CALL STEST1(SS,DS1(K),DS1(K),SFAC)
140140
ELSE
141141
WRITE (NOUT,*) ' Shouldn''t be here in CHECK0'
142-
CALL ABORT
142+
ERROR STOP
143143
END IF
144144
20 CONTINUE
145145
40 RETURN
@@ -232,7 +232,7 @@ SUBROUTINE CHECK1(SFAC)
232232
CALL ITEST1(IDAMAXTEST(N,SX,INCX),ITRUE2(NP1))
233233
ELSE
234234
WRITE (NOUT,*) ' Shouldn''t be here in CHECK1'
235-
CALL ABORT
235+
ERROR STOP
236236
END IF
237237
60 CONTINUE
238238
80 CONTINUE
@@ -387,7 +387,7 @@ SUBROUTINE CHECK2(SFAC)
387387
CALL STEST(LENY,SY,STY,SSIZE2(1,1),1.0D0)
388388
ELSE
389389
WRITE (NOUT,*) ' Shouldn''t be here in CHECK2'
390-
CALL ABORT
390+
ERROR STOP
391391
END IF
392392
100 CONTINUE
393393
120 CONTINUE
@@ -475,7 +475,7 @@ SUBROUTINE CHECK3(SFAC)
475475
70 CONTINUE
476476
ELSE
477477
WRITE (NOUT,*) ' Shouldn''t be here in CHECK3'
478-
CALL ABORT
478+
ERROR STOP
479479
END IF
480480
40 CONTINUE
481481
60 CONTINUE

‎ctest/c_dblat2.f

+5-5
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@ PROGRAM DBLAT2
1010
* 'DBLAT2.SNAP' NAME OF SNAPSHOT OUTPUT FILE
1111
* -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
1212
* F LOGICAL FLAG, T TO REWIND SNAPSHOT FILE AFTER EACH RECORD.
13-
* F LOGICAL FLAG, T TO CALL ABORT ON FAILURES.
13+
* F LOGICAL FLAG, T TO ERROR STOP ON FAILURES.
1414
* T LOGICAL FLAG, T TO TEST ERROR EXITS.
1515
* 2 0 TO TEST COLUMN-MAJOR, 1 TO TEST ROW-MAJOR, 2 TO TEST BOTH
1616
* 16.0 THRESHOLD VALUE OF TEST RATIO
@@ -239,7 +239,7 @@ PROGRAM DBLAT2
239239
$ GO TO 70
240240
60 CONTINUE
241241
WRITE( NOUT, FMT = 9986 )SNAMET
242-
CALL ABORT
242+
ERROR STOP
243243
70 LTEST( I ) = LTESTT
244244
GO TO 50
245245
*
@@ -279,15 +279,15 @@ PROGRAM DBLAT2
279279
SAME = LDE( YY, YT, N )
280280
IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
281281
WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
282-
CALL ABORT
282+
ERROR STOP
283283
END IF
284284
TRANS = 'T'
285285
CALL DMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
286286
$ YY, EPS, ERR, FATAL, NOUT, .TRUE. )
287287
SAME = LDE( YY, YT, N )
288288
IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
289289
WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
290-
CALL ABORT
290+
ERROR STOP
291291
END IF
292292
*
293293
* Test each subroutine in turn.
@@ -415,7 +415,7 @@ PROGRAM DBLAT2
415415
$ CLOSE ( NTRA )
416416
CLOSE ( NOUT )
417417
IF( FATAL ) THEN
418-
CALL ABORT
418+
ERROR STOP
419419
END IF
420420
*
421421
10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )

‎ctest/c_dblat3.f

+7-7
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@ PROGRAM DBLAT3
1010
* 'DBLAT3.SNAP' NAME OF SNAPSHOT OUTPUT FILE
1111
* -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
1212
* F LOGICAL FLAG, T TO REWIND SNAPSHOT FILE AFTER EACH RECORD.
13-
* F LOGICAL FLAG, T TO CALL ABORT ON FAILURES.
13+
* F LOGICAL FLAG, T TO ERROR STOP ON FAILURES.
1414
* T LOGICAL FLAG, T TO TEST ERROR EXITS.
1515
* 2 0 TO TEST COLUMN-MAJOR, 1 TO TEST ROW-MAJOR, 2 TO TEST BOTH
1616
* 16.0 THRESHOLD VALUE OF TEST RATIO
@@ -189,7 +189,7 @@ PROGRAM DBLAT3
189189
$ GO TO 50
190190
40 CONTINUE
191191
WRITE( NOUT, FMT = 9990 )SNAMET
192-
CALL ABORT
192+
ERROR STOP
193193
50 LTEST( I ) = LTESTT
194194
GO TO 30
195195
*
@@ -232,7 +232,7 @@ PROGRAM DBLAT3
232232
SAME = LDE( CC, CT, N )
233233
IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
234234
WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
235-
CALL ABORT
235+
ERROR STOP
236236
END IF
237237
TRANSB = 'T'
238238
CALL DMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
@@ -241,7 +241,7 @@ PROGRAM DBLAT3
241241
SAME = LDE( CC, CT, N )
242242
IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
243243
WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
244-
CALL ABORT
244+
ERROR STOP
245245
END IF
246246
DO 120 J = 1, N
247247
AB( J, NMAX + 1 ) = N - J + 1
@@ -259,7 +259,7 @@ PROGRAM DBLAT3
259259
SAME = LDE( CC, CT, N )
260260
IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
261261
WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
262-
CALL ABORT
262+
ERROR STOP
263263
END IF
264264
TRANSB = 'T'
265265
CALL DMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
@@ -268,7 +268,7 @@ PROGRAM DBLAT3
268268
SAME = LDE( CC, CT, N )
269269
IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
270270
WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
271-
CALL ABORT
271+
ERROR STOP
272272
END IF
273273
*
274274
* Test each subroutine in turn.
@@ -380,7 +380,7 @@ PROGRAM DBLAT3
380380
$ CLOSE ( NTRA )
381381
CLOSE ( NOUT )
382382
IF( FATAL ) THEN
383-
CALL ABORT
383+
ERROR STOP
384384
END IF
385385
*
386386
10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )

‎ctest/c_sblat1.f

+5-5
Original file line numberDiff line numberDiff line change
@@ -47,7 +47,7 @@ PROGRAM SCBLAT1
4747
IF (PASS) THEN
4848
WRITE (NOUT,99998)
4949
ELSE
50-
CALL ABORT
50+
ERROR STOP
5151
END IF
5252
20 CONTINUE
5353
*
@@ -139,7 +139,7 @@ SUBROUTINE CHECK0(SFAC)
139139
CALL STEST1(SS,DS1(K),DS1(K),SFAC)
140140
ELSE
141141
WRITE (NOUT,*) ' Shouldn''t be here in CHECK0'
142-
CALL ABORT
142+
ERROR STOP
143143
END IF
144144
20 CONTINUE
145145
40 RETURN
@@ -232,7 +232,7 @@ SUBROUTINE CHECK1(SFAC)
232232
CALL ITEST1(ISAMAXTEST(N,SX,INCX),ITRUE2(NP1))
233233
ELSE
234234
WRITE (NOUT,*) ' Shouldn''t be here in CHECK1'
235-
CALL ABORT
235+
ERROR STOP
236236
END IF
237237
60 CONTINUE
238238
80 CONTINUE
@@ -387,7 +387,7 @@ SUBROUTINE CHECK2(SFAC)
387387
CALL STEST(LENY,SY,STY,SSIZE2(1,1),1.0E0)
388388
ELSE
389389
WRITE (NOUT,*) ' Shouldn''t be here in CHECK2'
390-
CALL ABORT
390+
ERROR STOP
391391
END IF
392392
100 CONTINUE
393393
120 CONTINUE
@@ -482,7 +482,7 @@ SUBROUTINE CHECK3(SFAC)
482482
70 CONTINUE
483483
ELSE
484484
WRITE (NOUT,*) ' Shouldn''t be here in CHECK3'
485-
CALL ABORT
485+
ERROR STOP
486486
END IF
487487
40 CONTINUE
488488
60 CONTINUE

0 commit comments

Comments
 (0)