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..--
131 LOGICAL FATAL, LTESTT, REWI, SAME, SFATAL, TRACE, variable
182 TRACE = NTRA.GE.0
183 IF( TRACE )THEN
188 REWI = REWI.AND.TRACE
297 A( I, J ) = MAX( I - J + 1, 0 )
303 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
316 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
346 140 CALL CCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
352 150 CALL CCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
359 160 CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
364 170 CALL CCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
370 180 CALL CCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
376 190 CALL CCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
396 IF( TRACE )
423 9985 FORMAT( ' ERROR IN CMVCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
431 9981 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
432 9980 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
437 SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
446 * -- Written on 10-August-1987.
459 LOGICAL FATAL, REWI, TRACE local
476 LOGICAL BANDED, FULL, NULL, RESET, SAME, TRAN local
506 RESET = .TRUE.
515 $ M = MAX( N - ND, 0 )
527 KL = MAX( KU - 1, 0 )
529 KU = N - 1
530 KL = M - 1
550 $ LDA, KL, KU, RESET, TRANSL )
572 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
575 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
592 $ YY, ABS( INCY ), 0, ML - 1,
593 $ RESET, TRANSL )
623 IF( TRACE )
633 IF( TRACE )
644 * Check if error-exit was taken incorrectly.
764 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
768 $ ' - SUSPECT *******' )
776 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
782 SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
791 * -- Written on 10-August-1987.
804 LOGICAL FATAL, REWI, TRACE local
820 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME local
853 RESET = .TRUE.
868 K = N - 1
895 $ LDA, K, K, RESET, TRANSL )
905 $ ABS( INCX ), 0, N - 1, RESET, TRANSL )
908 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
925 $ ABS( INCY ), 0, N - 1, RESET,
954 IF( TRACE )
962 IF( TRACE )
971 IF( TRACE )
980 * Check if error-exit was taken incorrectly.
1109 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1113 $ ' - SUSPECT *******' )
1124 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1130 SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1138 * -- Written on 10-August-1987.
1151 LOGICAL FATAL, REWI, TRACE local
1164 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME local
1199 RESET = .TRUE.
1218 K = N - 1
1251 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1261 $ ABS( INCX ), 0, N - 1, RESET,
1265 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1290 IF( TRACE )
1298 IF( TRACE )
1306 IF( TRACE )
1316 IF( TRACE )
1324 IF( TRACE )
1332 IF( TRACE )
1342 * Check if error-exit was taken incorrectly.
1416 Z( I ) = XX( 1 + ( I - 1 )*
1418 XX( 1 + ( I - 1 )*ABS( INCX ) )
1473 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1477 $ ' - SUSPECT *******' )
1485 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1491 SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1500 * -- Written on 10-August-1987.
1513 LOGICAL FATAL, REWI, TRACE local
1529 LOGICAL CONJ, NULL, RESET, SAME local
1551 RESET = .TRUE.
1560 $ M = MAX( N - ND, 0 )
1582 $ 0, M - 1, RESET, TRANSL )
1585 XX( 1 + ABS( INCX )*( M/2 - 1 ) ) = ZERO
1596 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
1599 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
1609 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1633 IF( TRACE )
1648 * Check if error-exit was taken incorrectly.
1696 Z( I ) = X( M - I + 1 )
1703 W( 1 ) = Y( N - J + 1 )
1709 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1752 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1756 $ ' - SUSPECT *******' )
1762 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1768 SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1777 * -- Written on 10-August-1987.
1790 LOGICAL FATAL, REWI, TRACE local
1805 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER local
1836 RESET = .TRUE.
1866 $ 0, N - 1, RESET, TRANSL )
1869 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1881 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1902 IF( TRACE )
1909 IF( TRACE )
1917 * Check if error-exit was taken incorrectly.
1965 Z( I ) = X( N - I + 1 )
1976 LJ = N - J + 1
2035 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2039 $ ' - SUSPECT *******' )
2046 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2052 SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
2061 * -- Written on 10-August-1987.
2074 LOGICAL FATAL, REWI, TRACE local
2090 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER local
2121 RESET = .TRUE.
2151 $ 0, N - 1, RESET, TRANSL )
2154 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
2165 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
2168 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
2179 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2205 IF( TRACE )
2213 IF( TRACE )
2222 * Check if error-exit was taken incorrectly.
2272 Z( I, 1 ) = X( N - I + 1 )
2281 Z( I, 2 ) = Y( N - I + 1 )
2293 LJ = N - J + 1
2355 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2359 $ ' - SUSPECT *******' )
2368 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2377 * Requires a special version of the error-handling routine XERBLA.
2382 * -- Written on 10-August-1987.
2408 * it is called, and is then tested and re-set by CHKXER.
2417 CALL CGEMV( 'N', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2420 CALL CGEMV( 'N', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2436 CALL CGBMV( 'N', -1, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2439 CALL CGBMV( 'N', 0, -1, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2442 CALL CGBMV( 'N', 0, 0, -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2445 CALL CGBMV( 'N', 2, 0, 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2461 CALL CHEMV( 'U', -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2477 CALL CHBMV( 'U', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2480 CALL CHBMV( 'U', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2496 CALL CHPMV( 'U', -1, ALPHA, A, X, 1, BETA, Y, 1 )
2515 CALL CTRMV( 'U', 'N', 'N', -1, A, 1, X, 1 )
2534 CALL CTBMV( 'U', 'N', 'N', -1, 0, A, 1, X, 1 )
2537 CALL CTBMV( 'U', 'N', 'N', 0, -1, A, 1, X, 1 )
2556 CALL CTPMV( 'U', 'N', 'N', -1, A, X, 1 )
2572 CALL CTRSV( 'U', 'N', 'N', -1, A, 1, X, 1 )
2591 CALL CTBSV( 'U', 'N', 'N', -1, 0, A, 1, X, 1 )
2594 CALL CTBSV( 'U', 'N', 'N', 0, -1, A, 1, X, 1 )
2613 CALL CTPSV( 'U', 'N', 'N', -1, A, X, 1 )
2620 CALL CGERC( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2623 CALL CGERC( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2636 CALL CGERU( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2639 CALL CGERU( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2655 CALL CHER( 'U', -1, RALPHA, X, 1, A, 1 )
2668 CALL CHPR( 'U', -1, RALPHA, X, 1, A )
2678 CALL CHER2( 'U', -1, ALPHA, X, 1, Y, 1, A, 1 )
2694 CALL CHPR2( 'U', -1, ALPHA, X, 1, Y, 1, A )
2710 9999 FORMAT( ' ', A6, ' PASSED THE TESTS OF ERROR-EXITS' )
2711 9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
2718 $ KU, RESET, TRANSL ) argument
2729 * -- Written on 10-August-1987.
2737 PARAMETER ( ROGUE = ( -1.0E10, 1.0E10 ) )
2741 PARAMETER ( RROGUE = -1.0E10 )
2745 LOGICAL RESET local
2772 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2773 $ ( I.GE.J.AND.I - J.LE.KL ) )THEN
2774 A( I, J ) = CBEG( RESET ) + TRANSL
2800 AA( I + ( J - 1 )*LDA ) = A( I, J )
2803 AA( I + ( J - 1 )*LDA ) = ROGUE
2808 DO 60 I1 = 1, KU + 1 - J
2809 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2811 DO 70 I2 = I1, MIN( KL + KU + 1, KU + 1 + M - J )
2812 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2815 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2823 IEND = J - 1
2835 DO 100 I = 1, IBEG - 1
2836 AA( I + ( J - 1 )*LDA ) = ROGUE
2839 AA( I + ( J - 1 )*LDA ) = A( I, J )
2842 AA( I + ( J - 1 )*LDA ) = ROGUE
2845 JJ = J + ( J - 1 )*LDA
2853 IBEG = MAX( 1, KL + 2 - J )
2866 IEND = MIN( KL + 1, 1 + M - J )
2868 DO 140 I = 1, IBEG - 1
2869 AA( I + ( J - 1 )*LDA ) = ROGUE
2872 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2875 AA( I + ( J - 1 )*LDA ) = ROGUE
2878 JJ = KK + ( J - 1 )*LDA
2916 * -- Written on 10-August-1987.
2957 INCXL = -1
2964 INCYL = -1
3006 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
3023 $ YY( 1 + ( I - 1 )*ABS( INCY ) )
3026 $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT( I )
3033 9999 FORMAT( ' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
3047 * -- Written on 10-August-1987.
3079 * -- Written on 10-August-1987.
3110 DO 30 I = 1, IBEG - 1
3130 COMPLEX FUNCTION CBEG( RESET )
3133 * distributed between -0.5 and 0.5.
3137 * -- Written on 10-August-1987.
3142 LOGICAL RESET local
3150 IF( RESET )THEN
3157 RESET = .FALSE.
3170 I = I - 1000*( I/1000 )
3171 J = J - 1000*( J/1000 )
3176 CBEG = CMPLX( ( I - 500 )/1001.0, ( J - 500 )/1001.0 )
3186 * -- Written on 10-August-1987.
3192 SDIFF = X - Y
3204 * -- Written on 10-August-1987.
3239 * -- Written on 10-August-1987.