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 16 records
29 *> -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
39 *> 1 2 -1 -2 VALUES OF INCX AND INCY
78 *> Street, Suite 100, Downers Grove, Illinois 60515-1263, USA.
81 *> -- Written on 10-August-1987.
85 *> 10-9-00: Change STATUS='NEW' to 'UNKNOWN' so that the testers
105 * -- Reference BLAS test routine (version 3.4.1) --
106 * -- Reference BLAS is a software package provided by Univ. of Tennessee, --
107 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
128 LOGICAL FATAL, LTESTT, REWI, SAME, SFATAL, TRACE, variable
177 TRACE = NTRA.GE.0
178 IF( TRACE )THEN
183 REWI = REWI.AND.TRACE
292 A( I, J ) = MAX( I - J + 1, 0 )
298 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
311 CALL SMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
341 140 CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
347 150 CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
354 160 CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
359 170 CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
365 180 CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
371 190 CALL SCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
391 IF( TRACE )
416 9985 FORMAT( ' ERROR IN SMVCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
424 9981 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
425 9980 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
430 SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
439 * -- Written on 10-August-1987.
450 LOGICAL FATAL, REWI, TRACE local
466 LOGICAL BANDED, FULL, NULL, RESET, SAME, TRAN local
496 RESET = .TRUE.
505 $ M = MAX( N - ND, 0 )
517 KL = MAX( KU - 1, 0 )
519 KU = N - 1
520 KL = M - 1
540 $ LDA, KL, KU, RESET, TRANSL )
562 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
565 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
582 $ YY, ABS( INCY ), 0, ML - 1,
583 $ RESET, TRANSL )
613 IF( TRACE )
623 IF( TRACE )
634 * Check if error-exit was taken incorrectly.
754 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
758 $ ' - SUSPECT *******' )
765 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
771 SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
780 * -- Written on 10-August-1987.
791 LOGICAL FATAL, REWI, TRACE local
806 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME local
839 RESET = .TRUE.
854 K = N - 1
881 $ LDA, K, K, RESET, TRANSL )
891 $ ABS( INCX ), 0, N - 1, RESET, TRANSL )
894 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
911 $ ABS( INCY ), 0, N - 1, RESET,
940 IF( TRACE )
948 IF( TRACE )
957 IF( TRACE )
966 * Check if error-exit was taken incorrectly.
1095 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1099 $ ' - SUSPECT *******' )
1108 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1114 SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1122 * -- Written on 10-August-1987.
1132 LOGICAL FATAL, REWI, TRACE local
1144 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME local
1179 RESET = .TRUE.
1198 K = N - 1
1231 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1241 $ ABS( INCX ), 0, N - 1, RESET,
1245 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1270 IF( TRACE )
1278 IF( TRACE )
1286 IF( TRACE )
1296 IF( TRACE )
1304 IF( TRACE )
1312 IF( TRACE )
1322 * Check if error-exit was taken incorrectly.
1396 Z( I ) = XX( 1 + ( I - 1 )*
1398 XX( 1 + ( I - 1 )*ABS( INCX ) )
1453 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1457 $ ' - SUSPECT *******' )
1465 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1471 SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1480 * -- Written on 10-August-1987.
1490 LOGICAL FATAL, REWI, TRACE local
1504 LOGICAL NULL, RESET, SAME local
1525 RESET = .TRUE.
1534 $ M = MAX( N - ND, 0 )
1556 $ 0, M - 1, RESET, TRANSL )
1559 XX( 1 + ABS( INCX )*( M/2 - 1 ) ) = ZERO
1570 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
1573 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
1583 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1607 IF( TRACE )
1615 * Check if error-exit was taken incorrectly.
1663 Z( I ) = X( M - I + 1 )
1670 W( 1 ) = Y( N - J + 1 )
1674 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1717 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1721 $ ' - SUSPECT *******' )
1726 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1732 SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1741 * -- Written on 10-August-1987.
1751 LOGICAL FATAL, REWI, TRACE local
1764 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER local
1795 RESET = .TRUE.
1825 $ 0, N - 1, RESET, TRANSL )
1828 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1839 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1860 IF( TRACE )
1867 IF( TRACE )
1875 * Check if error-exit was taken incorrectly.
1923 Z( I ) = X( N - I + 1 )
1934 LJ = N - J + 1
1993 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1997 $ ' - SUSPECT *******' )
2004 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2010 SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
2019 * -- Written on 10-August-1987.
2029 LOGICAL FATAL, REWI, TRACE local
2043 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER local
2074 RESET = .TRUE.
2104 $ 0, N - 1, RESET, TRANSL )
2107 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
2118 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
2121 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
2132 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2158 IF( TRACE )
2166 IF( TRACE )
2175 * Check if error-exit was taken incorrectly.
2225 Z( I, 1 ) = X( N - I + 1 )
2234 Z( I, 2 ) = Y( N - I + 1 )
2246 LJ = N - J + 1
2308 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2312 $ ' - SUSPECT *******' )
2319 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2328 * Requires a special version of the error-handling routine XERBLA.
2333 * -- Written on 10-August-1987.
2358 * it is called, and is then tested and re-set by CHKXER.
2367 CALL SGEMV( 'N', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2370 CALL SGEMV( 'N', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2386 CALL SGBMV( 'N', -1, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2389 CALL SGBMV( 'N', 0, -1, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2392 CALL SGBMV( 'N', 0, 0, -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2395 CALL SGBMV( 'N', 2, 0, 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2411 CALL SSYMV( 'U', -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2427 CALL SSBMV( 'U', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2430 CALL SSBMV( 'U', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2446 CALL SSPMV( 'U', -1, ALPHA, A, X, 1, BETA, Y, 1 )
2465 CALL STRMV( 'U', 'N', 'N', -1, A, 1, X, 1 )
2484 CALL STBMV( 'U', 'N', 'N', -1, 0, A, 1, X, 1 )
2487 CALL STBMV( 'U', 'N', 'N', 0, -1, A, 1, X, 1 )
2506 CALL STPMV( 'U', 'N', 'N', -1, A, X, 1 )
2522 CALL STRSV( 'U', 'N', 'N', -1, A, 1, X, 1 )
2541 CALL STBSV( 'U', 'N', 'N', -1, 0, A, 1, X, 1 )
2544 CALL STBSV( 'U', 'N', 'N', 0, -1, A, 1, X, 1 )
2563 CALL STPSV( 'U', 'N', 'N', -1, A, X, 1 )
2570 CALL SGER( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2573 CALL SGER( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2589 CALL SSYR( 'U', -1, ALPHA, X, 1, A, 1 )
2602 CALL SSPR( 'U', -1, ALPHA, X, 1, A )
2612 CALL SSYR2( 'U', -1, ALPHA, X, 1, Y, 1, A, 1 )
2628 CALL SSPR2( 'U', -1, ALPHA, X, 1, Y, 1, A )
2644 9999 FORMAT( ' ', A6, ' PASSED THE TESTS OF ERROR-EXITS' )
2645 9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
2652 $ KU, RESET, TRANSL ) argument
2663 * -- Written on 10-August-1987.
2671 PARAMETER ( ROGUE = -1.0E10 )
2675 LOGICAL RESET local
2702 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2703 $ ( I.GE.J.AND.I - J.LE.KL ) )THEN
2704 A( I, J ) = SBEG( RESET ) + TRANSL
2728 AA( I + ( J - 1 )*LDA ) = A( I, J )
2731 AA( I + ( J - 1 )*LDA ) = ROGUE
2736 DO 60 I1 = 1, KU + 1 - J
2737 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2739 DO 70 I2 = I1, MIN( KL + KU + 1, KU + 1 + M - J )
2740 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2743 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2751 IEND = J - 1
2763 DO 100 I = 1, IBEG - 1
2764 AA( I + ( J - 1 )*LDA ) = ROGUE
2767 AA( I + ( J - 1 )*LDA ) = A( I, J )
2770 AA( I + ( J - 1 )*LDA ) = ROGUE
2777 IBEG = MAX( 1, KL + 2 - J )
2790 IEND = MIN( KL + 1, 1 + M - J )
2792 DO 140 I = 1, IBEG - 1
2793 AA( I + ( J - 1 )*LDA ) = ROGUE
2796 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2799 AA( I + ( J - 1 )*LDA ) = ROGUE
2834 * -- Written on 10-August-1987.
2866 INCXL = -1
2873 INCYL = -1
2909 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2926 $ YY( 1 + ( I - 1 )*ABS( INCY ) )
2929 $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT(I)
2936 9999 FORMAT( ' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
2950 * -- Written on 10-August-1987.
2982 * -- Written on 10-August-1987.
3013 DO 30 I = 1, IBEG - 1
3033 REAL FUNCTION SBEG( RESET )
3035 * Generates random numbers uniformly distributed between -0.5 and 0.5.
3039 * -- Written on 10-August-1987.
3044 LOGICAL RESET local
3052 IF( RESET )THEN
3057 RESET = .FALSE.
3068 I = I - 1000*( I/1000 )
3073 SBEG = REAL( I - 500 )/1001.0
3083 * -- Written on 10-August-1987.
3089 SDIFF = X - Y
3101 * -- Written on 10-August-1987.
3136 * -- Written on 10-August-1987.