Lines Matching +full:reset +full:- +full:trace
6 * of the file are read using list-directed input, the last 16 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
22 * 1 2 -1 -2 VALUES OF INCX AND INCY
58 * Street, Suite 100, Downers Grove, Illinois 60515-1263, USA.
61 * -- Written on 10-August-1987.
81 LOGICAL FATAL, LTESTT, REWI, SAME, SFATAL, TRACE, variable
127 TRACE = NTRA.GE.0
128 IF( TRACE )THEN
133 REWI = REWI.AND.TRACE
138 * Read the flag that indicates whether row-major data layout to be tested.
266 A( I, J ) = MAX( I - J + 1, 0 )
272 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
285 CALL DMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
316 CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
322 CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
330 CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
336 CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
345 CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
351 CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
359 CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
365 CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
373 CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
379 CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
387 CALL DCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
393 CALL DCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
414 IF( TRACE )
419 10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )
420 10001 FORMAT( ' ROW-MAJOR DATA LAYOUT IS TESTED' )
421 10000 FORMAT( ' COLUMN-MAJOR DATA LAYOUT IS TESTED' )
442 9985 FORMAT( ' ERROR IN DMVCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
450 9981 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
451 9980 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
456 SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
465 * -- Written on 10-August-1987.
476 LOGICAL FATAL, REWI, TRACE local
492 LOGICAL BANDED, FULL, NULL, RESET, SAME, TRAN local
523 RESET = .TRUE.
532 $ M = MAX( N - ND, 0 )
544 KL = MAX( KU - 1, 0 )
546 KU = N - 1
547 KL = M - 1
567 $ LDA, KL, KU, RESET, TRANSL )
596 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
599 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
616 $ YY, ABS( INCY ), 0, ML - 1,
617 $ RESET, TRANSL )
647 IF( TRACE )
657 IF( TRACE )
668 * Check if error-exit was taken incorrectly.
788 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
790 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
791 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
793 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
794 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
796 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
798 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
802 $ ' - SUSPECT *******' )
810 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
816 SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
825 * -- Written on 10-August-1987.
836 LOGICAL FATAL, REWI, TRACE local
851 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME local
885 RESET = .TRUE.
900 K = N - 1
932 $ LDA, K, K, RESET, TRANSL )
942 $ ABS( INCX ), 0, N - 1, RESET, TRANSL )
945 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
962 $ ABS( INCY ), 0, N - 1, RESET,
991 IF( TRACE )
999 IF( TRACE )
1009 IF( TRACE )
1018 * Check if error-exit was taken incorrectly.
1147 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1149 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1150 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1152 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1153 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1155 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1157 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1161 $ ' - SUSPECT *******' )
1170 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1176 SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1184 * -- Written on 10-August-1987.
1195 LOGICAL FATAL, REWI, TRACE local
1207 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME local
1243 RESET = .TRUE.
1262 K = N - 1
1312 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1322 $ ABS( INCX ), 0, N - 1, RESET,
1326 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1351 IF( TRACE )
1359 IF( TRACE )
1367 IF( TRACE )
1377 IF( TRACE )
1385 IF( TRACE )
1393 IF( TRACE )
1403 * Check if error-exit was taken incorrectly.
1477 Z( I ) = XX( 1 + ( I - 1 )*
1479 XX( 1 + ( I - 1 )*ABS( INCX ) )
1535 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1537 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1538 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1540 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1541 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1543 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1545 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1549 $ ' - SUSPECT *******' )
1557 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1563 SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1572 * -- Written on 10-August-1987.
1583 LOGICAL FATAL, REWI, TRACE local
1597 LOGICAL NULL, RESET, SAME local
1618 RESET = .TRUE.
1627 $ M = MAX( N - ND, 0 )
1649 $ 0, M - 1, RESET, TRANSL )
1652 XX( 1 + ABS( INCX )*( M/2 - 1 ) ) = ZERO
1663 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
1666 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
1676 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1700 IF( TRACE )
1708 * Check if error-exit was taken incorrectly.
1756 Z( I ) = X( M - I + 1 )
1763 W( 1 ) = Y( N - J + 1 )
1767 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1810 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1812 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1813 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1815 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1816 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1818 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1820 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1824 $ ' - SUSPECT *******' )
1829 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1835 SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1844 * -- Written on 10-August-1987.
1855 LOGICAL FATAL, REWI, TRACE local
1868 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER local
1900 RESET = .TRUE.
1935 $ 0, N - 1, RESET, TRANSL )
1938 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1949 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1970 IF( TRACE )
1978 IF( TRACE )
1986 * Check if error-exit was taken incorrectly.
2034 Z( I ) = X( N - I + 1 )
2045 LJ = N - J + 1
2104 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
2106 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2107 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
2109 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2110 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
2112 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
2114 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2118 $ ' - SUSPECT *******' )
2125 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2131 SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
2140 * -- Written on 10-August-1987.
2151 LOGICAL FATAL, REWI, TRACE local
2165 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER local
2197 RESET = .TRUE.
2232 $ 0, N - 1, RESET, TRANSL )
2235 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
2246 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
2249 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
2260 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2286 IF( TRACE )
2294 IF( TRACE )
2303 * Check if error-exit was taken incorrectly.
2353 Z( I, 1 ) = X( N - I + 1 )
2362 Z( I, 2 ) = Y( N - I + 1 )
2374 LJ = N - J + 1
2436 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
2438 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2439 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
2441 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2442 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
2444 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
2446 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2450 $ ' - SUSPECT *******' )
2457 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2464 $ KU, RESET, TRANSL ) argument
2475 * -- Written on 10-August-1987.
2483 PARAMETER ( ROGUE = -1.0D10 )
2487 LOGICAL RESET local
2514 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2515 $ ( I.GE.J.AND.I - J.LE.KL ) )THEN
2516 A( I, J ) = DBEG( RESET ) + TRANSL
2540 AA( I + ( J - 1 )*LDA ) = A( I, J )
2543 AA( I + ( J - 1 )*LDA ) = ROGUE
2548 DO 60 I1 = 1, KU + 1 - J
2549 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2551 DO 70 I2 = I1, MIN( KL + KU + 1, KU + 1 + M - J )
2552 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2555 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2563 IEND = J - 1
2575 DO 100 I = 1, IBEG - 1
2576 AA( I + ( J - 1 )*LDA ) = ROGUE
2579 AA( I + ( J - 1 )*LDA ) = A( I, J )
2582 AA( I + ( J - 1 )*LDA ) = ROGUE
2589 IBEG = MAX( 1, KL + 2 - J )
2602 IEND = MIN( KL + 1, 1 + M - J )
2604 DO 140 I = 1, IBEG - 1
2605 AA( I + ( J - 1 )*LDA ) = ROGUE
2608 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2611 AA( I + ( J - 1 )*LDA ) = ROGUE
2646 * -- Written on 10-August-1987.
2678 INCXL = -1
2685 INCYL = -1
2721 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2738 $ YY( 1 + ( I - 1 )*ABS( INCY ) )
2741 $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT(I)
2748 9999 FORMAT( ' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
2762 * -- Written on 10-August-1987.
2794 * -- Written on 10-August-1987.
2825 DO 30 I = 1, IBEG - 1
2846 DOUBLE PRECISION FUNCTION DBEG( RESET )
2848 * Generates random numbers uniformly distributed between -0.5 and 0.5.
2852 * -- Written on 10-August-1987.
2857 LOGICAL RESET local
2865 IF( RESET )THEN
2870 RESET = .FALSE.
2881 I = I - 1000*( I/1000 )
2886 DBEG = DBLE( I - 500 )/1001.0D0
2896 * -- Written on 10-August-1987.
2902 DDIFF = X - Y