Lines Matching +full:reset +full:- +full:trace
6 * of the file are read using list-directed input, the last 17 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
24 * (0.0,0.0) (1.0,0.0) (0.7,-0.9) VALUES OF ALPHA
26 * (0.0,0.0) (1.0,0.0) (1.3,-1.1) VALUES OF BETA
59 * Street, Suite 100, Downers Grove, Illinois 60515-1263, USA.
62 * -- Written on 10-August-1987.
84 LOGICAL FATAL, LTESTT, REWI, SAME, SFATAL, TRACE, variable
131 TRACE = NTRA.GE.0
132 IF( TRACE )THEN
137 REWI = REWI.AND.TRACE
142 * Read the flag that indicates whether row-major data layout to be tested.
270 A( I, J ) = MAX( I - J + 1, 0 )
276 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
289 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
320 CALL CCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
326 CALL CCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
334 CALL CCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
340 CALL CCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
349 CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
355 CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
363 CALL CCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
369 CALL CCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
377 CALL CCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
383 CALL CCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
391 CALL CCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
397 CALL CCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
418 IF( TRACE )
423 10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )
424 10001 FORMAT( ' ROW-MAJOR DATA LAYOUT IS TESTED' )
425 10000 FORMAT( ' COLUMN-MAJOR DATA LAYOUT IS TESTED' )
448 9985 FORMAT(' ERROR IN CMVCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
456 9981 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
457 9980 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
462 SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
471 * -- Written on 10-August-1987.
484 LOGICAL FATAL, REWI, TRACE local
501 LOGICAL BANDED, FULL, NULL, RESET, SAME, TRAN local
532 RESET = .TRUE.
541 $ M = MAX( N - ND, 0 )
553 KL = MAX( KU - 1, 0 )
555 KU = N - 1
556 KL = M - 1
576 $ LDA, KL, KU, RESET, TRANSL )
605 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
608 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
625 $ YY, ABS( INCY ), 0, ML - 1,
626 $ RESET, TRANSL )
656 IF( TRACE )
666 IF( TRACE )
677 * Check if error-exit was taken incorrectly.
799 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
803 $ ' - SUSPECT *******' )
811 9993 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
817 SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
826 * -- Written on 10-August-1987.
839 LOGICAL FATAL, REWI, TRACE local
855 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME local
889 RESET = .TRUE.
904 K = N - 1
936 $ LDA, K, K, RESET, TRANSL )
946 $ ABS( INCX ), 0, N - 1, RESET, TRANSL )
949 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
966 $ ABS( INCY ), 0, N - 1, RESET,
995 IF( TRACE )
1004 IF( TRACE )
1014 IF( TRACE )
1023 * Check if error-exit was taken incorrectly.
1152 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1156 $ ' - SUSPECT *******' )
1167 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1173 SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1181 * -- Written on 10-August-1987.
1195 LOGICAL FATAL, REWI, TRACE local
1208 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME local
1244 RESET = .TRUE.
1263 K = N - 1
1313 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1323 $ ABS( INCX ), 0, N - 1, RESET,
1327 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1352 IF( TRACE )
1360 IF( TRACE )
1368 IF( TRACE )
1378 IF( TRACE )
1386 IF( TRACE )
1394 IF( TRACE )
1404 * Check if error-exit was taken incorrectly.
1478 Z( I ) = XX( 1 + ( I - 1 )*
1480 XX( 1 + ( I - 1 )*ABS( INCX ) )
1536 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1540 $ ' - SUSPECT *******' )
1548 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1554 SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1563 * -- Written on 10-August-1987.
1577 LOGICAL FATAL, REWI, TRACE local
1593 LOGICAL CONJ, NULL, RESET, SAME local
1615 RESET = .TRUE.
1624 $ M = MAX( N - ND, 0 )
1646 $ 0, M - 1, RESET, TRANSL )
1649 XX( 1 + ABS( INCX )*( M/2 - 1 ) ) = ZERO
1660 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
1663 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
1673 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1697 IF( TRACE )
1712 * Check if error-exit was taken incorrectly.
1760 Z( I ) = X( M - I + 1 )
1767 W( 1 ) = Y( N - J + 1 )
1773 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1816 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1820 $ ' - SUSPECT *******' )
1825 9993 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1831 SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1840 * -- Written on 10-August-1987.
1854 LOGICAL FATAL, REWI, TRACE local
1869 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER local
1901 RESET = .TRUE.
1936 $ 0, N - 1, RESET, TRANSL )
1939 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1951 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1972 IF( TRACE )
1980 IF( TRACE )
1989 * Check if error-exit was taken incorrectly.
2037 Z( I ) = X( N - I + 1 )
2048 LJ = N - J + 1
2107 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2111 $ ' - SUSPECT *******' )
2118 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2124 SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
2133 * -- Written on 10-August-1987.
2147 LOGICAL FATAL, REWI, TRACE local
2163 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER local
2195 RESET = .TRUE.
2230 $ 0, N - 1, RESET, TRANSL )
2233 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
2244 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
2247 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
2258 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2284 IF( TRACE )
2292 IF( TRACE )
2301 * Check if error-exit was taken incorrectly.
2351 Z( I, 1 ) = X( N - I + 1 )
2360 Z( I, 2 ) = Y( N - I + 1 )
2372 LJ = N - J + 1
2434 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2438 $ ' - SUSPECT *******' )
2445 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2458 * -- Written on 10-August-1987.
2499 INCXL = -1
2506 INCYL = -1
2548 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2565 $ YY( 1 + ( I - 1 )*ABS( INCY ) )
2568 $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT( I )
2575 9999 FORMAT(' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
2589 * -- Written on 10-August-1987.
2621 * -- Written on 10-August-1987.
2652 DO 30 I = 1, IBEG - 1
2673 COMPLEX FUNCTION CBEG( RESET )
2676 * distributed between -0.5 and 0.5.
2680 * -- Written on 10-August-1987.
2685 LOGICAL RESET local
2693 IF( RESET )THEN
2700 RESET = .FALSE.
2713 I = I - 1000*( I/1000 )
2714 J = J - 1000*( J/1000 )
2719 CBEG = CMPLX( ( I - 500 )/1001.0, ( J - 500 )/1001.0 )
2729 * -- Written on 10-August-1987.
2735 SDIFF = X - Y
2742 $ KU, RESET, TRANSL ) argument
2753 * -- Written on 10-August-1987.
2761 PARAMETER ( ROGUE = ( -1.0E10, 1.0E10 ) )
2765 PARAMETER ( RROGUE = -1.0E10 )
2769 LOGICAL RESET local
2796 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2797 $ ( I.GE.J.AND.I - J.LE.KL ) )THEN
2798 A( I, J ) = CBEG( RESET ) + TRANSL
2824 AA( I + ( J - 1 )*LDA ) = A( I, J )
2827 AA( I + ( J - 1 )*LDA ) = ROGUE
2832 DO 60 I1 = 1, KU + 1 - J
2833 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2835 DO 70 I2 = I1, MIN( KL + KU + 1, KU + 1 + M - J )
2836 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2839 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2847 IEND = J - 1
2859 DO 100 I = 1, IBEG - 1
2860 AA( I + ( J - 1 )*LDA ) = ROGUE
2863 AA( I + ( J - 1 )*LDA ) = A( I, J )
2866 AA( I + ( J - 1 )*LDA ) = ROGUE
2869 JJ = J + ( J - 1 )*LDA
2877 IBEG = MAX( 1, KL + 2 - J )
2890 IEND = MIN( KL + 1, 1 + M - J )
2892 DO 140 I = 1, IBEG - 1
2893 AA( I + ( J - 1 )*LDA ) = ROGUE
2896 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2899 AA( I + ( J - 1 )*LDA ) = ROGUE
2902 JJ = KK + ( J - 1 )*LDA