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.
85 LOGICAL FATAL, LTESTT, REWI, SAME, SFATAL, TRACE, variable
132 TRACE = NTRA.GE.0
133 IF( TRACE )THEN
138 REWI = REWI.AND.TRACE
143 * 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 ZMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
320 CALL ZCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
326 CALL ZCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
334 CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
340 CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
349 CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
355 CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
363 CALL ZCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
369 CALL ZCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
377 CALL ZCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
383 CALL ZCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
391 CALL ZCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
397 CALL ZCHK6( 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 ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
471 * -- Written on 10-August-1987.
485 LOGICAL FATAL, REWI, TRACE local
502 LOGICAL BANDED, FULL, NULL, RESET, SAME, TRAN local
533 RESET = .TRUE.
542 $ M = MAX( N - ND, 0 )
554 KL = MAX( KU - 1, 0 )
556 KU = N - 1
557 KL = M - 1
577 $ LDA, KL, KU, RESET, TRANSL )
606 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
609 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
626 $ YY, ABS( INCY ), 0, ML - 1,
627 $ RESET, TRANSL )
657 IF( TRACE )
667 IF( TRACE )
678 * Check if error-exit was taken incorrectly.
800 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
804 $ ' - SUSPECT *******' )
812 9993 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
818 SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
827 * -- Written on 10-August-1987.
841 LOGICAL FATAL, REWI, TRACE local
857 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME local
891 RESET = .TRUE.
906 K = N - 1
938 $ LDA, K, K, RESET, TRANSL )
948 $ ABS( INCX ), 0, N - 1, RESET, TRANSL )
951 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
968 $ ABS( INCY ), 0, N - 1, RESET,
997 IF( TRACE )
1006 IF( TRACE )
1016 IF( TRACE )
1025 * Check if error-exit was taken incorrectly.
1154 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1158 $ ' - SUSPECT *******' )
1169 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1175 SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1183 * -- Written on 10-August-1987.
1198 LOGICAL FATAL, REWI, TRACE local
1211 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME local
1247 RESET = .TRUE.
1266 K = N - 1
1316 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1326 $ ABS( INCX ), 0, N - 1, RESET,
1330 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1355 IF( TRACE )
1363 IF( TRACE )
1371 IF( TRACE )
1381 IF( TRACE )
1389 IF( TRACE )
1397 IF( TRACE )
1407 * Check if error-exit was taken incorrectly.
1481 Z( I ) = XX( 1 + ( I - 1 )*
1483 XX( 1 + ( I - 1 )*ABS( INCX ) )
1539 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1543 $ ' - SUSPECT *******' )
1551 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1557 SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1566 * -- Written on 10-August-1987.
1581 LOGICAL FATAL, REWI, TRACE local
1597 LOGICAL CONJ, NULL, RESET, SAME local
1619 RESET = .TRUE.
1628 $ M = MAX( N - ND, 0 )
1650 $ 0, M - 1, RESET, TRANSL )
1653 XX( 1 + ABS( INCX )*( M/2 - 1 ) ) = ZERO
1664 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
1667 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
1677 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1701 IF( TRACE )
1716 * Check if error-exit was taken incorrectly.
1764 Z( I ) = X( M - I + 1 )
1771 W( 1 ) = Y( N - J + 1 )
1777 $ AA( 1 + ( J - 1 )*LDA ), EPS,
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 ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1844 * -- Written on 10-August-1987.
1859 LOGICAL FATAL, REWI, TRACE local
1874 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER local
1906 RESET = .TRUE.
1941 $ 0, N - 1, RESET, TRANSL )
1944 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1956 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1977 IF( TRACE )
1985 IF( TRACE )
1994 * Check if error-exit was taken incorrectly.
2042 Z( I ) = X( N - I + 1 )
2053 LJ = N - J + 1
2112 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2116 $ ' - SUSPECT *******' )
2123 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2129 SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
2138 * -- Written on 10-August-1987.
2153 LOGICAL FATAL, REWI, TRACE local
2169 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER local
2201 RESET = .TRUE.
2236 $ 0, N - 1, RESET, TRANSL )
2239 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
2250 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
2253 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
2264 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2290 IF( TRACE )
2298 IF( TRACE )
2307 * Check if error-exit was taken incorrectly.
2357 Z( I, 1 ) = X( N - I + 1 )
2366 Z( I, 2 ) = Y( N - I + 1 )
2378 LJ = N - J + 1
2440 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2444 $ ' - SUSPECT *******' )
2451 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2464 * -- Written on 10-August-1987.
2505 INCXL = -1
2512 INCYL = -1
2554 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2571 $ YY( 1 + ( I - 1 )*ABS( INCY ) )
2574 $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT( I )
2581 9999 FORMAT(' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
2595 * -- Written on 10-August-1987.
2627 * -- Written on 10-August-1987.
2658 DO 30 I = 1, IBEG - 1
2679 COMPLEX*16 FUNCTION ZBEG( RESET )
2682 * distributed between -0.5 and 0.5.
2686 * -- Written on 10-August-1987.
2691 LOGICAL RESET local
2699 IF( RESET )THEN
2706 RESET = .FALSE.
2719 I = I - 1000*( I/1000 )
2720 J = J - 1000*( J/1000 )
2725 ZBEG = DCMPLX( ( I - 500 )/1001.0, ( J - 500 )/1001.0 )
2735 * -- Written on 10-August-1987.
2741 DDIFF = X - Y
2748 $ KU, RESET, TRANSL ) argument
2759 * -- Written on 10-August-1987.
2768 PARAMETER ( ROGUE = ( -1.0D10, 1.0D10 ) )
2772 PARAMETER ( RROGUE = -1.0D10 )
2776 LOGICAL RESET local
2803 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2804 $ ( I.GE.J.AND.I - J.LE.KL ) )THEN
2805 A( I, J ) = ZBEG( RESET ) + TRANSL
2831 AA( I + ( J - 1 )*LDA ) = A( I, J )
2834 AA( I + ( J - 1 )*LDA ) = ROGUE
2839 DO 60 I1 = 1, KU + 1 - J
2840 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2842 DO 70 I2 = I1, MIN( KL + KU + 1, KU + 1 + M - J )
2843 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2846 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2854 IEND = J - 1
2866 DO 100 I = 1, IBEG - 1
2867 AA( I + ( J - 1 )*LDA ) = ROGUE
2870 AA( I + ( J - 1 )*LDA ) = A( I, J )
2873 AA( I + ( J - 1 )*LDA ) = ROGUE
2876 JJ = J + ( J - 1 )*LDA
2884 IBEG = MAX( 1, KL + 2 - J )
2897 IEND = MIN( KL + 1, 1 + M - J )
2899 DO 140 I = 1, IBEG - 1
2900 AA( I + ( J - 1 )*LDA ) = ROGUE
2903 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2906 AA( I + ( J - 1 )*LDA ) = ROGUE
2909 JJ = KK + ( J - 1 )*LDA