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
104 TRACE = NTRA.GE.0
105 IF( TRACE )THEN
110 REWI = REWI.AND.TRACE
115 * Read the flag that indicates whether row-major data layout to be tested.
216 AB( I, J ) = MAX( I - J + 1, 0 )
223 CC( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
247 AB( J, NMAX + 1 ) = N - J + 1
248 AB( 1, NMAX + J ) = N - J + 1
251 CC( N - J + 1 ) = J*( ( J + 1 )*J )/2 -
252 $ ( ( J + 1 )*J*( J - 1 ) )/3
295 CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
301 CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
309 CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
315 CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
323 CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
329 CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
337 CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
343 CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
351 CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
357 CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
379 IF( TRACE )
384 10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )
385 10001 FORMAT( ' ROW-MAJOR DATA LAYOUT IS TESTED' )
386 10000 FORMAT( ' COLUMN-MAJOR DATA LAYOUT IS TESTED' )
402 9989 FORMAT( ' ERROR IN DMMCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
411 9985 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
412 9984 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
417 SUBROUTINE DCHK1( 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 *',
741 SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
749 * -- Written on 8-February-1989.
761 LOGICAL FATAL, REWI, TRACE local
775 LOGICAL LEFT, NULL, RESET, SAME local
798 RESET = .TRUE.
827 CALL DMAKE( 'GE', ' ', ' ', M, N, B, NMAX, BB, LDB, RESET,
854 $ RESET, ZERO )
865 $ LDC, RESET, ZERO )
893 IF( TRACE )
902 * Check if error-exit was taken incorrectly.
997 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
999 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1000 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1002 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1003 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1005 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1007 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1013 9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1051 SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1059 * -- Written on 8-February-1989.
1071 LOGICAL FATAL, REWI, TRACE local
1084 LOGICAL LEFT, NULL, RESET, SAME local
1109 RESET = .TRUE.
1165 $ NMAX, AA, LDA, RESET, ZERO )
1170 $ BB, LDB, RESET, ZERO )
1196 IF( TRACE )
1206 IF( TRACE )
1217 * Check if error-exit was taken incorrectly.
1283 C( I, J ) = BB( I + ( J - 1 )*
1285 BB( I + ( J - 1 )*LDB ) = ALPHA*
1344 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1346 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1347 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1349 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1350 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1352 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1354 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1359 9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1409 SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1417 * -- Written on 8-February-1989.
1429 LOGICAL FATAL, REWI, TRACE local
1443 LOGICAL NULL, RESET, SAME, TRAN, UPPER local
1467 RESET = .TRUE.
1507 $ RESET, ZERO )
1522 $ LDC, RESET, ZERO )
1545 IF( TRACE )
1553 * Check if error-exit was taken incorrectly.
1604 LJ = N - J + 1
1669 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1671 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1672 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1674 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1675 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1677 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1679 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1685 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1725 SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1734 * -- Written on 8-February-1989.
1746 LOGICAL FATAL, REWI, TRACE local
1760 LOGICAL NULL, RESET, SAME, TRAN, UPPER local
1784 RESET = .TRUE.
1825 $ LDA, RESET, ZERO )
1828 $ RESET, ZERO )
1837 $ 2*NMAX, BB, LDB, RESET, ZERO )
1840 $ NMAX, BB, LDB, RESET, ZERO )
1856 $ LDC, RESET, ZERO )
1883 IF( TRACE )
1892 * Check if error-exit was taken incorrectly.
1946 LJ = N - J + 1
1950 W( I ) = AB( ( J - 1 )*2*NMAX + K +
1952 W( K + I ) = AB( ( J - 1 )*2*NMAX +
1963 W( I ) = AB( ( K + I - 1 )*NMAX +
1965 W( K + I ) = AB( ( I - 1 )*NMAX +
2025 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
2027 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2028 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
2030 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2031 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
2033 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
2035 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2042 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2082 SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, argument
2093 * -- Written on 8-February-1989.
2103 PARAMETER ( ROGUE = -1.0D10 )
2107 LOGICAL RESET local
2132 A( I, J ) = DBEG( RESET ) + TRANSL
2156 AA( I + ( J - 1 )*LDA ) = A( I, J )
2159 AA( I + ( J - 1 )*LDA ) = ROGUE
2167 IEND = J - 1
2179 DO 60 I = 1, IBEG - 1
2180 AA( I + ( J - 1 )*LDA ) = ROGUE
2183 AA( I + ( J - 1 )*LDA ) = A( I, J )
2186 AA( I + ( J - 1 )*LDA ) = ROGUE
2203 * -- Written on 8-February-1989.
2278 ERRI = ABS( CT( I ) - CC( I, J ) )/EPS
2308 9999 FORMAT( ' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
2323 * -- Written on 8-February-1989.
2357 * -- Written on 8-February-1989.
2390 DO 30 I = 1, IBEG - 1
2411 DOUBLE PRECISION FUNCTION DBEG( RESET )
2413 * Generates random numbers uniformly distributed between -0.5 and 0.5.
2417 * -- Written on 8-February-1989.
2424 LOGICAL RESET local
2430 IF( RESET )THEN
2435 RESET = .FALSE.
2446 I = I - 1000*( I/1000 )
2451 DBEG = ( I - 500 )/1001.0D0
2461 * -- Written on 8-February-1989.
2470 DDIFF = X - Y