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.
66 LOGICAL FATAL, LTESTT, REWI, SAME, SFATAL, TRACE, variable
110 TRACE = NTRA.GE.0
111 IF( TRACE )THEN
116 REWI = REWI.AND.TRACE
121 * Read the flag that indicates whether row-major data layout to be tested.
222 AB( I, J ) = MAX( I - J + 1, 0 )
229 CC( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
253 AB( J, NMAX + 1 ) = N - J + 1
254 AB( 1, NMAX + J ) = N - J + 1
257 CC( N - J + 1 ) = J*( ( J + 1 )*J )/2 -
258 $ ( ( J + 1 )*J*( J - 1 ) )/3
302 CALL ZCHK1(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
308 CALL ZCHK1(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
316 CALL ZCHK2(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
322 CALL ZCHK2(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
330 CALL ZCHK3(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
336 CALL ZCHK3(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
344 CALL ZCHK4(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
350 CALL ZCHK4(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
358 CALL ZCHK5(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
364 CALL ZCHK5(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
386 IF( TRACE )
391 10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )
392 10001 FORMAT(' ROW-MAJOR DATA LAYOUT IS TESTED' )
393 10000 FORMAT(' COLUMN-MAJOR DATA LAYOUT IS TESTED' )
411 9989 FORMAT(' ERROR IN ZMMCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
420 9985 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
421 9984 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
426 SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
435 * -- Written on 8-February-1989.
449 LOGICAL FATAL, REWI, TRACE local
465 LOGICAL NULL, RESET, SAME, TRANA, TRANB local
488 RESET = .TRUE.
532 $ RESET, ZERO )
557 $ LDB, RESET, ZERO )
568 $ CC, LDC, RESET, ZERO )
597 IF( TRACE )
607 * Check if error-exit was taken incorrectly.
698 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
700 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
701 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
703 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
704 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
706 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
708 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
714 9994 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
756 SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
765 * -- Written on 8-February-1989.
779 LOGICAL FATAL, REWI, TRACE local
795 LOGICAL CONJ, LEFT, NULL, RESET, SAME local
819 RESET = .TRUE.
847 CALL ZMAKE( 'ge', ' ', ' ', M, N, B, NMAX, BB, LDB, RESET,
874 $ AA, LDA, RESET, ZERO )
885 $ LDC, RESET, ZERO )
913 IF( TRACE )
929 * Check if error-exit was taken incorrectly.
1024 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1026 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1027 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1029 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1030 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1032 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1034 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1040 9994 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1078 SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1086 * -- Written on 8-February-1989.
1100 LOGICAL FATAL, REWI, TRACE local
1115 LOGICAL LEFT, NULL, RESET, SAME local
1140 RESET = .TRUE.
1196 $ NMAX, AA, LDA, RESET, ZERO )
1201 $ BB, LDB, RESET, ZERO )
1227 IF( TRACE )
1237 IF( TRACE )
1248 * Check if error-exit was taken incorrectly.
1314 C( I, J ) = BB( I + ( J - 1 )*
1316 BB( I + ( J - 1 )*LDB ) = ALPHA*
1375 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1377 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1378 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1380 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1381 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1383 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1385 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1391 9994 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1441 SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1450 * -- Written on 8-February-1989.
1464 LOGICAL FATAL, REWI, TRACE local
1480 LOGICAL CONJ, NULL, RESET, SAME, TRAN, UPPER local
1504 RESET = .TRUE.
1545 $ RESET, ZERO )
1572 $ NMAX, CC, LDC, RESET, ZERO )
1604 IF( TRACE )
1614 IF( TRACE )
1623 * Check if error-exit was taken incorrectly.
1687 LJ = N - J + 1
1757 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1759 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1760 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1762 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1763 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1765 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1767 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1777 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1851 SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1860 * -- Written on 8-February-1989.
1874 LOGICAL FATAL, REWI, TRACE local
1890 LOGICAL CONJ, NULL, RESET, SAME, TRAN, UPPER local
1914 RESET = .TRUE.
1956 $ LDA, RESET, ZERO )
1959 $ RESET, ZERO )
1968 $ 2*NMAX, BB, LDB, RESET, ZERO )
1971 $ NMAX, BB, LDB, RESET, ZERO )
1995 $ NMAX, CC, LDC, RESET, ZERO )
2027 IF( TRACE )
2037 IF( TRACE )
2048 * Check if error-exit was taken incorrectly.
2111 LJ = N - J + 1
2115 W( I ) = ALPHA*AB( ( J - 1 )*2*
2119 $ AB( ( J - 1 )*2*
2123 $ AB( ( J - 1 )*2*
2137 $ I - 1 )*NMAX + J ) )
2139 $ AB( ( I - 1 )*NMAX +
2142 W( I ) = ALPHA*AB( ( K + I - 1 )*
2145 $ AB( ( I - 1 )*NMAX +
2210 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
2212 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2213 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
2215 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2216 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
2218 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
2220 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2230 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2305 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, argument
2316 * -- Written on 8-February-1989.
2327 PARAMETER ( ROGUE = ( -1.0D10, 1.0D10 ) )
2331 PARAMETER ( RROGUE = -1.0D10 )
2335 LOGICAL RESET local
2363 A( I, J ) = ZBEG( RESET ) + TRANSL
2391 AA( I + ( J - 1 )*LDA ) = A( I, J )
2394 AA( I + ( J - 1 )*LDA ) = ROGUE
2402 IEND = J - 1
2414 DO 60 I = 1, IBEG - 1
2415 AA( I + ( J - 1 )*LDA ) = ROGUE
2418 AA( I + ( J - 1 )*LDA ) = A( I, J )
2421 AA( I + ( J - 1 )*LDA ) = ROGUE
2424 JJ = J + ( J - 1 )*LDA
2442 * -- Written on 8-February-1989.
2585 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
2615 9999 FORMAT( ' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
2630 * -- Written on 8-February-1989.
2664 * -- Written on 8-February-1989.
2697 DO 30 I = 1, IBEG - 1
2718 COMPLEX*16 FUNCTION ZBEG( RESET )
2721 * distributed between -0.5 and 0.5.
2725 * -- Written on 8-February-1989.
2732 LOGICAL RESET local
2740 IF( RESET )THEN
2747 RESET = .FALSE.
2760 I = I - 1000*( I/1000 )
2761 J = J - 1000*( J/1000 )
2766 ZBEG = DCMPLX( ( I - 500 )/1001.0D0, ( J - 500 )/1001.0D0 )
2776 * -- Written on 8-February-1989.
2785 DDIFF = X - Y