Lines Matching +full:reset +full:- +full:trace
6 * http://www.netlib.org/lapack/explore-html/
22 *> of the file are read using list-directed input, the last 17 records
29 *> -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
39 *> 1 2 -1 -2 VALUES OF INCX AND INCY
41 *> (0.0,0.0) (1.0,0.0) (0.7,-0.9) VALUES OF ALPHA
43 *> (0.0,0.0) (1.0,0.0) (1.3,-1.1) VALUES OF BETA
79 *> Street, Suite 100, Downers Grove, Illinois 60515-1263, USA.
82 *> -- Written on 10-August-1987.
86 *> 10-9-00: Change STATUS='NEW' to 'UNKNOWN' so that the testers
106 * -- Reference BLAS test routine (version 3.4.1) --
107 * -- Reference BLAS is a software package provided by Univ. of Tennessee, --
108 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
132 LOGICAL FATAL, LTESTT, REWI, SAME, SFATAL, TRACE, variable
183 TRACE = NTRA.GE.0
184 IF( TRACE )THEN
189 REWI = REWI.AND.TRACE
298 A( I, J ) = MAX( I - J + 1, 0 )
304 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
317 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
347 140 CALL ZCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
353 150 CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
360 160 CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
365 170 CALL ZCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
371 180 CALL ZCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
377 190 CALL ZCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
397 IF( TRACE )
424 9985 FORMAT( ' ERROR IN ZMVCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
432 9981 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
433 9980 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
438 SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
447 * -- Written on 10-August-1987.
461 LOGICAL FATAL, REWI, TRACE local
478 LOGICAL BANDED, FULL, NULL, RESET, SAME, TRAN local
508 RESET = .TRUE.
517 $ M = MAX( N - ND, 0 )
529 KL = MAX( KU - 1, 0 )
531 KU = N - 1
532 KL = M - 1
552 $ LDA, KL, KU, RESET, TRANSL )
574 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
577 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
594 $ YY, ABS( INCY ), 0, ML - 1,
595 $ RESET, TRANSL )
625 IF( TRACE )
635 IF( TRACE )
646 * Check if error-exit was taken incorrectly.
766 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
770 $ ' - SUSPECT *******' )
778 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
784 SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
793 * -- Written on 10-August-1987.
807 LOGICAL FATAL, REWI, TRACE local
823 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME local
856 RESET = .TRUE.
871 K = N - 1
898 $ LDA, K, K, RESET, TRANSL )
908 $ ABS( INCX ), 0, N - 1, RESET, TRANSL )
911 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
928 $ ABS( INCY ), 0, N - 1, RESET,
957 IF( TRACE )
965 IF( TRACE )
974 IF( TRACE )
983 * Check if error-exit was taken incorrectly.
1112 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1116 $ ' - SUSPECT *******' )
1127 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1133 SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1141 * -- Written on 10-August-1987.
1155 LOGICAL FATAL, REWI, TRACE local
1168 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME local
1203 RESET = .TRUE.
1222 K = N - 1
1255 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1265 $ ABS( INCX ), 0, N - 1, RESET,
1269 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1294 IF( TRACE )
1302 IF( TRACE )
1310 IF( TRACE )
1320 IF( TRACE )
1328 IF( TRACE )
1336 IF( TRACE )
1346 * Check if error-exit was taken incorrectly.
1420 Z( I ) = XX( 1 + ( I - 1 )*
1422 XX( 1 + ( I - 1 )*ABS( INCX ) )
1477 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1481 $ ' - SUSPECT *******' )
1489 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1495 SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1504 * -- Written on 10-August-1987.
1518 LOGICAL FATAL, REWI, TRACE local
1534 LOGICAL CONJ, NULL, RESET, SAME local
1556 RESET = .TRUE.
1565 $ M = MAX( N - ND, 0 )
1587 $ 0, M - 1, RESET, TRANSL )
1590 XX( 1 + ABS( INCX )*( M/2 - 1 ) ) = ZERO
1601 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
1604 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
1614 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1638 IF( TRACE )
1653 * Check if error-exit was taken incorrectly.
1701 Z( I ) = X( M - I + 1 )
1708 W( 1 ) = Y( N - J + 1 )
1714 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1757 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1761 $ ' - SUSPECT *******' )
1767 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1773 SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1782 * -- Written on 10-August-1987.
1796 LOGICAL FATAL, REWI, TRACE local
1811 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER local
1842 RESET = .TRUE.
1872 $ 0, N - 1, RESET, TRANSL )
1875 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1887 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1908 IF( TRACE )
1915 IF( TRACE )
1923 * Check if error-exit was taken incorrectly.
1971 Z( I ) = X( N - I + 1 )
1982 LJ = N - J + 1
2041 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2045 $ ' - SUSPECT *******' )
2052 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2058 SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
2067 * -- Written on 10-August-1987.
2081 LOGICAL FATAL, REWI, TRACE local
2097 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER local
2128 RESET = .TRUE.
2158 $ 0, N - 1, RESET, TRANSL )
2161 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
2172 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
2175 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
2186 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2212 IF( TRACE )
2220 IF( TRACE )
2229 * Check if error-exit was taken incorrectly.
2279 Z( I, 1 ) = X( N - I + 1 )
2288 Z( I, 2 ) = Y( N - I + 1 )
2300 LJ = N - J + 1
2362 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2366 $ ' - SUSPECT *******' )
2375 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2384 * Requires a special version of the error-handling routine XERBLA.
2389 * -- Written on 10-August-1987.
2415 * it is called, and is then tested and re-set by CHKXER.
2424 CALL ZGEMV( 'N', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2427 CALL ZGEMV( 'N', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2443 CALL ZGBMV( 'N', -1, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2446 CALL ZGBMV( 'N', 0, -1, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2449 CALL ZGBMV( 'N', 0, 0, -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2452 CALL ZGBMV( 'N', 2, 0, 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2468 CALL ZHEMV( 'U', -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2484 CALL ZHBMV( 'U', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2487 CALL ZHBMV( 'U', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2503 CALL ZHPMV( 'U', -1, ALPHA, A, X, 1, BETA, Y, 1 )
2522 CALL ZTRMV( 'U', 'N', 'N', -1, A, 1, X, 1 )
2541 CALL ZTBMV( 'U', 'N', 'N', -1, 0, A, 1, X, 1 )
2544 CALL ZTBMV( 'U', 'N', 'N', 0, -1, A, 1, X, 1 )
2563 CALL ZTPMV( 'U', 'N', 'N', -1, A, X, 1 )
2579 CALL ZTRSV( 'U', 'N', 'N', -1, A, 1, X, 1 )
2598 CALL ZTBSV( 'U', 'N', 'N', -1, 0, A, 1, X, 1 )
2601 CALL ZTBSV( 'U', 'N', 'N', 0, -1, A, 1, X, 1 )
2620 CALL ZTPSV( 'U', 'N', 'N', -1, A, X, 1 )
2627 CALL ZGERC( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2630 CALL ZGERC( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2643 CALL ZGERU( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2646 CALL ZGERU( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2662 CALL ZHER( 'U', -1, RALPHA, X, 1, A, 1 )
2675 CALL ZHPR( 'U', -1, RALPHA, X, 1, A )
2685 CALL ZHER2( 'U', -1, ALPHA, X, 1, Y, 1, A, 1 )
2701 CALL ZHPR2( 'U', -1, ALPHA, X, 1, Y, 1, A )
2717 9999 FORMAT( ' ', A6, ' PASSED THE TESTS OF ERROR-EXITS' )
2718 9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
2725 $ KU, RESET, TRANSL ) argument
2736 * -- Written on 10-August-1987.
2745 PARAMETER ( ROGUE = ( -1.0D10, 1.0D10 ) )
2749 PARAMETER ( RROGUE = -1.0D10 )
2753 LOGICAL RESET local
2780 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2781 $ ( I.GE.J.AND.I - J.LE.KL ) )THEN
2782 A( I, J ) = ZBEG( RESET ) + TRANSL
2808 AA( I + ( J - 1 )*LDA ) = A( I, J )
2811 AA( I + ( J - 1 )*LDA ) = ROGUE
2816 DO 60 I1 = 1, KU + 1 - J
2817 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2819 DO 70 I2 = I1, MIN( KL + KU + 1, KU + 1 + M - J )
2820 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2823 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2831 IEND = J - 1
2843 DO 100 I = 1, IBEG - 1
2844 AA( I + ( J - 1 )*LDA ) = ROGUE
2847 AA( I + ( J - 1 )*LDA ) = A( I, J )
2850 AA( I + ( J - 1 )*LDA ) = ROGUE
2853 JJ = J + ( J - 1 )*LDA
2861 IBEG = MAX( 1, KL + 2 - J )
2874 IEND = MIN( KL + 1, 1 + M - J )
2876 DO 140 I = 1, IBEG - 1
2877 AA( I + ( J - 1 )*LDA ) = ROGUE
2880 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2883 AA( I + ( J - 1 )*LDA ) = ROGUE
2886 JJ = KK + ( J - 1 )*LDA
2924 * -- Written on 10-August-1987.
2965 INCXL = -1
2972 INCYL = -1
3014 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
3031 $ YY( 1 + ( I - 1 )*ABS( INCY ) )
3034 $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT( I )
3041 9999 FORMAT( ' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
3055 * -- Written on 10-August-1987.
3087 * -- Written on 10-August-1987.
3118 DO 30 I = 1, IBEG - 1
3138 COMPLEX*16 FUNCTION ZBEG( RESET )
3141 * distributed between -0.5 and 0.5.
3145 * -- Written on 10-August-1987.
3150 LOGICAL RESET local
3158 IF( RESET )THEN
3165 RESET = .FALSE.
3178 I = I - 1000*( I/1000 )
3179 J = J - 1000*( J/1000 )
3184 ZBEG = DCMPLX( ( I - 500 )/1001.0D0, ( J - 500 )/1001.0D0 )
3194 * -- Written on 10-August-1987.
3200 DDIFF = X - Y
3212 * -- Written on 10-August-1987.
3247 * -- Written on 10-August-1987.