Lines Matching +full:reset +full:- +full:trace
6 * of the file are read using list-directed input, the last 9 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
20 * (0.0,0.0) (1.0,0.0) (0.7,-0.9) VALUES OF ALPHA
22 * (0.0,0.0) (1.0,0.0) (1.3,-1.1) VALUES OF BETA
42 * -- Written on 8-February-1989.
65 LOGICAL FATAL, LTESTT, REWI, SAME, SFATAL, TRACE, variable
109 TRACE = NTRA.GE.0
110 IF( TRACE )THEN
115 REWI = REWI.AND.TRACE
120 * Read the flag that indicates whether row-major data layout to be tested.
221 AB( I, J ) = MAX( I - J + 1, 0 )
228 CC( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
252 AB( J, NMAX + 1 ) = N - J + 1
253 AB( 1, NMAX + J ) = N - J + 1
256 CC( N - J + 1 ) = J*( ( J + 1 )*J )/2 -
257 $ ( ( J + 1 )*J*( J - 1 ) )/3
301 CALL CCHK1(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
307 CALL CCHK1(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
315 CALL CCHK2(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
321 CALL CCHK2(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
329 CALL CCHK3(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
335 CALL CCHK3(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
343 CALL CCHK4(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
349 CALL CCHK4(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
357 CALL CCHK5(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
363 CALL CCHK5(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
385 IF( TRACE )
390 10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )
391 10001 FORMAT(' ROW-MAJOR DATA LAYOUT IS TESTED' )
392 10000 FORMAT(' COLUMN-MAJOR DATA LAYOUT IS TESTED' )
410 9989 FORMAT(' ERROR IN CMMCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
419 9985 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
420 9984 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
425 SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
434 * -- Written on 8-February-1989.
448 LOGICAL FATAL, REWI, TRACE local
464 LOGICAL NULL, RESET, SAME, TRANA, TRANB local
487 RESET = .TRUE.
531 $ RESET, ZERO )
556 $ LDB, RESET, ZERO )
567 $ CC, LDC, RESET, ZERO )
596 IF( TRACE )
606 * Check if error-exit was taken incorrectly.
697 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
699 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
700 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
702 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
703 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
705 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
707 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
713 9994 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
755 SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
764 * -- Written on 8-February-1989.
778 LOGICAL FATAL, REWI, TRACE local
794 LOGICAL CONJ, LEFT, NULL, RESET, SAME local
818 RESET = .TRUE.
846 CALL CMAKE( 'ge', ' ', ' ', M, N, B, NMAX, BB, LDB, RESET,
873 $ AA, LDA, RESET, ZERO )
884 $ LDC, RESET, ZERO )
912 IF( TRACE )
928 * Check if error-exit was taken incorrectly.
1023 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1025 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1026 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1028 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1029 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1031 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1033 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1039 9994 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1077 SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1085 * -- Written on 8-February-1989.
1099 LOGICAL FATAL, REWI, TRACE local
1114 LOGICAL LEFT, NULL, RESET, SAME local
1139 RESET = .TRUE.
1195 $ NMAX, AA, LDA, RESET, ZERO )
1200 $ BB, LDB, RESET, ZERO )
1226 IF( TRACE )
1236 IF( TRACE )
1247 * Check if error-exit was taken incorrectly.
1313 C( I, J ) = BB( I + ( J - 1 )*
1315 BB( I + ( J - 1 )*LDB ) = ALPHA*
1374 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1376 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1377 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1379 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1380 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1382 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1384 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1390 9994 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1440 SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1449 * -- Written on 8-February-1989.
1463 LOGICAL FATAL, REWI, TRACE local
1479 LOGICAL CONJ, NULL, RESET, SAME, TRAN, UPPER local
1503 RESET = .TRUE.
1544 $ RESET, ZERO )
1571 $ NMAX, CC, LDC, RESET, ZERO )
1603 IF( TRACE )
1613 IF( TRACE )
1622 * Check if error-exit was taken incorrectly.
1686 LJ = N - J + 1
1756 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1758 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1759 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1761 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1762 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1764 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1766 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1776 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1850 SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1859 * -- Written on 8-February-1989.
1873 LOGICAL FATAL, REWI, TRACE local
1889 LOGICAL CONJ, NULL, RESET, SAME, TRAN, UPPER local
1913 RESET = .TRUE.
1955 $ LDA, RESET, ZERO )
1958 $ RESET, ZERO )
1967 $ 2*NMAX, BB, LDB, RESET, ZERO )
1970 $ NMAX, BB, LDB, RESET, ZERO )
1994 $ NMAX, CC, LDC, RESET, ZERO )
2026 IF( TRACE )
2036 IF( TRACE )
2047 * Check if error-exit was taken incorrectly.
2110 LJ = N - J + 1
2114 W( I ) = ALPHA*AB( ( J - 1 )*2*
2118 $ AB( ( J - 1 )*2*
2122 $ AB( ( J - 1 )*2*
2136 $ I - 1 )*NMAX + J ) )
2138 $ AB( ( I - 1 )*NMAX +
2141 W( I ) = ALPHA*AB( ( K + I - 1 )*
2144 $ AB( ( I - 1 )*NMAX +
2209 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
2211 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2212 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
2214 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2215 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
2217 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
2219 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2229 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2304 SUBROUTINE CMAKE(TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, argument
2315 * -- Written on 8-February-1989.
2325 PARAMETER ( ROGUE = ( -1.0E10, 1.0E10 ) )
2329 PARAMETER ( RROGUE = -1.0E10 )
2333 LOGICAL RESET local
2361 A( I, J ) = CBEG( RESET ) + TRANSL
2389 AA( I + ( J - 1 )*LDA ) = A( I, J )
2392 AA( I + ( J - 1 )*LDA ) = ROGUE
2400 IEND = J - 1
2412 DO 60 I = 1, IBEG - 1
2413 AA( I + ( J - 1 )*LDA ) = ROGUE
2416 AA( I + ( J - 1 )*LDA ) = A( I, J )
2419 AA( I + ( J - 1 )*LDA ) = ROGUE
2422 JJ = J + ( J - 1 )*LDA
2440 * -- Written on 8-February-1989.
2581 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
2611 9999 FORMAT(' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
2626 * -- Written on 8-February-1989.
2660 * -- Written on 8-February-1989.
2693 DO 30 I = 1, IBEG - 1
2714 COMPLEX FUNCTION CBEG( RESET )
2717 * distributed between -0.5 and 0.5.
2721 * -- Written on 8-February-1989.
2728 LOGICAL RESET local
2736 IF( RESET )THEN
2743 RESET = .FALSE.
2756 I = I - 1000*( I/1000 )
2757 J = J - 1000*( J/1000 )
2762 CBEG = CMPLX( ( I - 500 )/1001.0, ( J - 500 )/1001.0 )
2772 * -- Written on 8-February-1989.
2781 SDIFF = X - Y