Lines Matching +full:reset +full:- +full:trace
6 * of the file are read using list-directed input, the last 6 records
11 * -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
15 * 2 0 TO TEST COLUMN-MAJOR, 1 TO TEST ROW-MAJOR, 2 TO TEST BOTH
39 * -- Written on 8-February-1989.
60 LOGICAL FATAL, LTESTT, REWI, SAME, SFATAL, TRACE, variable
102 TRACE = NTRA.GE.0
103 IF( TRACE )THEN
109 REWI = REWI.AND.TRACE
114 * Read the flag that indicates whether row-major data layout to be tested.
215 AB( I, J ) = MAX( I - J + 1, 0 )
222 CC( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
246 AB( J, NMAX + 1 ) = N - J + 1
247 AB( 1, NMAX + J ) = N - J + 1
250 CC( N - J + 1 ) = J*( ( J + 1 )*J )/2 -
251 $ ( ( J + 1 )*J*( J - 1 ) )/3
294 CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
300 CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
308 CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
314 CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
322 CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
328 CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
336 CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
342 CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
350 CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
356 CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
378 IF( TRACE )
383 10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )
384 10001 FORMAT( ' ROW-MAJOR DATA LAYOUT IS TESTED' )
385 10000 FORMAT( ' COLUMN-MAJOR DATA LAYOUT IS TESTED' )
401 9989 FORMAT( ' ERROR IN SMMCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
410 9985 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
411 9984 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
416 SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
425 * -- Written on 8-February-1989.
437 LOGICAL FATAL, REWI, TRACE local
451 LOGICAL NULL, RESET, SAME, TRANA, TRANB local
474 RESET = .TRUE.
518 $ RESET, ZERO )
543 $ LDB, RESET, ZERO )
554 $ CC, LDC, RESET, ZERO )
583 IF( TRACE )
593 * Check if error-exit was taken incorrectly.
684 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
686 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
687 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
689 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
690 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
692 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
694 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
700 9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
744 SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
753 * -- Written on 8-February-1989.
765 LOGICAL FATAL, REWI, TRACE local
779 LOGICAL LEFT, NULL, RESET, SAME local
802 RESET = .TRUE.
831 CALL SMAKE( 'GE', ' ', ' ', M, N, B, NMAX, BB, LDB, RESET,
858 $ RESET, ZERO )
869 $ LDC, RESET, ZERO )
897 IF( TRACE )
906 * Check if error-exit was taken incorrectly.
1001 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1003 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1004 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1006 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1007 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1009 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1011 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1017 9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1055 SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1063 * -- Written on 8-February-1989.
1075 LOGICAL FATAL, REWI, TRACE local
1088 LOGICAL LEFT, NULL, RESET, SAME local
1113 RESET = .TRUE.
1169 $ NMAX, AA, LDA, RESET, ZERO )
1174 $ BB, LDB, RESET, ZERO )
1200 IF( TRACE )
1210 IF( TRACE )
1221 * Check if error-exit was taken incorrectly.
1287 C( I, J ) = BB( I + ( J - 1 )*
1289 BB( I + ( J - 1 )*LDB ) = ALPHA*
1348 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1350 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1351 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1353 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1354 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1356 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1358 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1363 9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1413 SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1422 * -- Written on 8-February-1989.
1434 LOGICAL FATAL, REWI, TRACE local
1448 LOGICAL NULL, RESET, SAME, TRAN, UPPER local
1472 RESET = .TRUE.
1512 $ RESET, ZERO )
1527 $ LDC, RESET, ZERO )
1550 IF( TRACE )
1558 * Check if error-exit was taken incorrectly.
1609 LJ = N - J + 1
1674 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1676 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1677 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1679 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1680 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1682 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1684 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1690 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1730 SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1739 * -- Written on 8-February-1989.
1751 LOGICAL FATAL, REWI, TRACE local
1765 LOGICAL NULL, RESET, SAME, TRAN, UPPER local
1789 RESET = .TRUE.
1830 $ LDA, RESET, ZERO )
1833 $ RESET, ZERO )
1842 $ 2*NMAX, BB, LDB, RESET, ZERO )
1845 $ NMAX, BB, LDB, RESET, ZERO )
1861 $ LDC, RESET, ZERO )
1888 IF( TRACE )
1896 * Check if error-exit was taken incorrectly.
1950 LJ = N - J + 1
1954 W( I ) = AB( ( J - 1 )*2*NMAX + K +
1956 W( K + I ) = AB( ( J - 1 )*2*NMAX +
1967 W( I ) = AB( ( K + I - 1 )*NMAX +
1969 W( K + I ) = AB( ( I - 1 )*NMAX +
2029 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
2031 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2032 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
2034 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2035 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
2037 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
2039 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2046 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2086 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, argument
2097 * -- Written on 8-February-1989.
2107 PARAMETER ( ROGUE = -1.0E10 )
2111 LOGICAL RESET local
2136 A( I, J ) = SBEG( RESET ) + TRANSL
2160 AA( I + ( J - 1 )*LDA ) = A( I, J )
2163 AA( I + ( J - 1 )*LDA ) = ROGUE
2171 IEND = J - 1
2183 DO 60 I = 1, IBEG - 1
2184 AA( I + ( J - 1 )*LDA ) = ROGUE
2187 AA( I + ( J - 1 )*LDA ) = A( I, J )
2190 AA( I + ( J - 1 )*LDA ) = ROGUE
2207 * -- Written on 8-February-1989.
2282 ERRI = ABS( CT( I ) - CC( I, J ) )/EPS
2312 9999 FORMAT( ' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
2327 * -- Written on 8-February-1989.
2361 * -- Written on 8-February-1989.
2394 DO 30 I = 1, IBEG - 1
2415 REAL FUNCTION SBEG( RESET )
2417 * Generates random numbers uniformly distributed between -0.5 and 0.5.
2421 * -- Written on 8-February-1989.
2428 LOGICAL RESET local
2434 IF( RESET )THEN
2439 RESET = .FALSE.
2450 I = I - 1000*( I/1000 )
2455 SBEG = ( I - 500 )/1001.0
2465 * -- Written on 8-February-1989.
2474 SDIFF = X - Y