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 DMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
341 140 CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
347 150 CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
354 160 CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
359 170 CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
365 180 CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
371 190 CALL DCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
391 IF( TRACE )
416 9985 FORMAT( ' ERROR IN DMVCH - 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 DCHK1( 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 DCHK2( 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 DCHK3( 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 DCHK4( 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 DCHK5( 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 DCHK6( 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 DGEMV( 'N', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2370 CALL DGEMV( 'N', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2386 CALL DGBMV( 'N', -1, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2389 CALL DGBMV( 'N', 0, -1, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2392 CALL DGBMV( 'N', 0, 0, -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2395 CALL DGBMV( 'N', 2, 0, 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2411 CALL DSYMV( 'U', -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2427 CALL DSBMV( 'U', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2430 CALL DSBMV( 'U', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2446 CALL DSPMV( 'U', -1, ALPHA, A, X, 1, BETA, Y, 1 )
2465 CALL DTRMV( 'U', 'N', 'N', -1, A, 1, X, 1 )
2484 CALL DTBMV( 'U', 'N', 'N', -1, 0, A, 1, X, 1 )
2487 CALL DTBMV( 'U', 'N', 'N', 0, -1, A, 1, X, 1 )
2506 CALL DTPMV( 'U', 'N', 'N', -1, A, X, 1 )
2522 CALL DTRSV( 'U', 'N', 'N', -1, A, 1, X, 1 )
2541 CALL DTBSV( 'U', 'N', 'N', -1, 0, A, 1, X, 1 )
2544 CALL DTBSV( 'U', 'N', 'N', 0, -1, A, 1, X, 1 )
2563 CALL DTPSV( 'U', 'N', 'N', -1, A, X, 1 )
2570 CALL DGER( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2573 CALL DGER( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2589 CALL DSYR( 'U', -1, ALPHA, X, 1, A, 1 )
2602 CALL DSPR( 'U', -1, ALPHA, X, 1, A )
2612 CALL DSYR2( 'U', -1, ALPHA, X, 1, Y, 1, A, 1 )
2628 CALL DSPR2( '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.0D10 )
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 ) = DBEG( 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 DOUBLE PRECISION FUNCTION DBEG( 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 DBEG = DBLE( I - 500 )/1001.0D0
3083 * -- Written on 10-August-1987.
3089 DDIFF = X - Y
3101 * -- Written on 10-August-1987.
3136 * -- Written on 10-August-1987.