Lines Matching +full:continue +full:- +full:on +full:- +full:error
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)
31 *> F LOGICAL FLAG, T TO STOP ON FAILURES.
32 *> T LOGICAL FLAG, T TO TEST ERROR EXITS.
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..--
190 * Read the flag that directs stopping on any failure.
192 * Read the flag that indicates whether error exits are to be tested.
211 10 CONTINUE
224 20 CONTINUE
237 30 CONTINUE
274 40 CONTINUE
279 60 CONTINUE
285 80 CONTINUE
298 A( I, J ) = MAX( I - J + 1, 0 )
299 110 CONTINUE
302 120 CONTINUE
304 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
305 130 CONTINUE
306 * YY holds the exact result. On exit from ZMVCH YT holds
317 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
334 * Test error exits.
385 210 CONTINUE
389 220 CONTINUE
393 230 CONTINUE
396 240 CONTINUE
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' )
447 * -- Written on 10-August-1987.
517 $ M = MAX( N - ND, 0 )
529 KL = MAX( KU - 1, 0 )
531 KU = N - 1
532 KL = M - 1
574 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
577 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
594 $ YY, ABS( INCY ), 0, ML - 1,
610 10 CONTINUE
614 20 CONTINUE
619 30 CONTINUE
646 * Check if error-exit was taken incorrectly.
701 40 CONTINUE
726 50 CONTINUE
728 60 CONTINUE
730 70 CONTINUE
732 80 CONTINUE
734 90 CONTINUE
736 100 CONTINUE
738 110 CONTINUE
740 120 CONTINUE
751 130 CONTINUE
761 140 CONTINUE
766 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
770 $ ' - SUSPECT *******' )
771 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
778 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
793 * -- Written on 10-August-1987.
871 K = N - 1
908 $ ABS( INCX ), 0, N - 1, RESET, TRANSL )
911 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
928 $ ABS( INCY ), 0, N - 1, RESET,
942 10 CONTINUE
946 20 CONTINUE
951 30 CONTINUE
983 * Check if error-exit was taken incorrectly.
1047 40 CONTINUE
1071 50 CONTINUE
1073 60 CONTINUE
1075 70 CONTINUE
1077 80 CONTINUE
1079 90 CONTINUE
1081 100 CONTINUE
1083 110 CONTINUE
1094 120 CONTINUE
1107 130 CONTINUE
1112 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1116 $ ' - SUSPECT *******' )
1117 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1127 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1141 * -- Written on 10-August-1987.
1208 10 CONTINUE
1222 K = N - 1
1265 $ ABS( INCX ), 0, N - 1, RESET,
1269 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1283 20 CONTINUE
1287 30 CONTINUE
1346 * Check if error-exit was taken incorrectly.
1400 40 CONTINUE
1420 Z( I ) = XX( 1 + ( I - 1 )*
1422 XX( 1 + ( I - 1 )*ABS( INCX ) )
1424 50 CONTINUE
1439 60 CONTINUE
1441 70 CONTINUE
1443 80 CONTINUE
1445 90 CONTINUE
1447 100 CONTINUE
1449 110 CONTINUE
1460 120 CONTINUE
1472 130 CONTINUE
1477 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1481 $ ' - SUSPECT *******' )
1482 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1489 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1504 * -- Written on 10-August-1987.
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 )
1625 10 CONTINUE
1629 20 CONTINUE
1633 30 CONTINUE
1653 * Check if error-exit was taken incorrectly.
1685 40 CONTINUE
1698 50 CONTINUE
1701 Z( I ) = X( M - I + 1 )
1702 60 CONTINUE
1708 W( 1 ) = Y( N - J + 1 )
1714 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1720 70 CONTINUE
1726 80 CONTINUE
1728 90 CONTINUE
1730 100 CONTINUE
1732 110 CONTINUE
1734 120 CONTINUE
1745 130 CONTINUE
1748 140 CONTINUE
1752 150 CONTINUE
1757 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1761 $ ' - SUSPECT *******' )
1762 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1767 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1782 * -- Written on 10-August-1987.
1872 $ 0, N - 1, RESET, TRANSL )
1875 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1887 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1898 10 CONTINUE
1902 20 CONTINUE
1923 * Check if error-exit was taken incorrectly.
1955 30 CONTINUE
1968 40 CONTINUE
1971 Z( I ) = X( N - I + 1 )
1972 50 CONTINUE
1982 LJ = N - J + 1
2001 60 CONTINUE
2008 70 CONTINUE
2010 80 CONTINUE
2012 90 CONTINUE
2014 100 CONTINUE
2025 110 CONTINUE
2028 120 CONTINUE
2036 130 CONTINUE
2041 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2045 $ ' - SUSPECT *******' )
2046 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
2052 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2067 * -- Written on 10-August-1987.
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,
2198 10 CONTINUE
2202 20 CONTINUE
2206 30 CONTINUE
2229 * Check if error-exit was taken incorrectly.
2263 40 CONTINUE
2276 50 CONTINUE
2279 Z( I, 1 ) = X( N - I + 1 )
2280 60 CONTINUE
2285 70 CONTINUE
2288 Z( I, 2 ) = Y( N - I + 1 )
2289 80 CONTINUE
2300 LJ = N - J + 1
2319 90 CONTINUE
2326 100 CONTINUE
2328 110 CONTINUE
2330 120 CONTINUE
2332 130 CONTINUE
2334 140 CONTINUE
2345 150 CONTINUE
2348 160 CONTINUE
2357 170 CONTINUE
2362 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2366 $ ' - SUSPECT *******' )
2367 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
2375 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2383 * Tests the error exits from the Level 2 Blas.
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 *****',
2736 * -- Written on 10-August-1987.
2745 PARAMETER ( ROGUE = ( -1.0D10, 1.0D10 ) )
2749 PARAMETER ( RROGUE = -1.0D10 )
2780 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2781 $ ( I.GE.J.AND.I - J.LE.KL ) )THEN
2794 10 CONTINUE
2801 20 CONTINUE
2808 AA( I + ( J - 1 )*LDA ) = A( I, J )
2809 30 CONTINUE
2811 AA( I + ( J - 1 )*LDA ) = ROGUE
2812 40 CONTINUE
2813 50 CONTINUE
2816 DO 60 I1 = 1, KU + 1 - J
2817 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2818 60 CONTINUE
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 )
2821 70 CONTINUE
2823 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2824 80 CONTINUE
2825 90 CONTINUE
2831 IEND = J - 1
2843 DO 100 I = 1, IBEG - 1
2844 AA( I + ( J - 1 )*LDA ) = ROGUE
2845 100 CONTINUE
2847 AA( I + ( J - 1 )*LDA ) = A( I, J )
2848 110 CONTINUE
2850 AA( I + ( J - 1 )*LDA ) = ROGUE
2851 120 CONTINUE
2853 JJ = J + ( J - 1 )*LDA
2856 130 CONTINUE
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
2878 140 CONTINUE
2880 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2881 150 CONTINUE
2883 AA( I + ( J - 1 )*LDA ) = ROGUE
2884 160 CONTINUE
2886 JJ = KK + ( J - 1 )*LDA
2889 170 CONTINUE
2909 180 CONTINUE
2910 190 CONTINUE
2924 * -- Written on 10-August-1987.
2965 INCXL = -1
2972 INCYL = -1
2991 10 CONTINUE
2997 20 CONTINUE
3003 30 CONTINUE
3008 40 CONTINUE
3010 * Compute the error ratio for this result.
3014 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
3020 50 CONTINUE
3024 * Report fatal error.
3031 $ YY( 1 + ( I - 1 )*ABS( INCY ) )
3034 $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT( I )
3036 70 CONTINUE
3038 80 CONTINUE
3041 9999 FORMAT( ' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
3055 * -- Written on 10-August-1987.
3069 10 CONTINUE
3072 20 CONTINUE
3087 * -- Written on 10-August-1987.
3107 10 CONTINUE
3108 20 CONTINUE
3118 DO 30 I = 1, IBEG - 1
3121 30 CONTINUE
3125 40 CONTINUE
3126 50 CONTINUE
3131 70 CONTINUE
3141 * distributed between -0.5 and 0.5.
3145 * -- Written on 10-August-1987.
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
3208 * Tests whether XERBLA has detected an error when it should.
3212 * -- Written on 10-August-1987.
3237 * the test program for testing error exits from the Level 2 BLAS
3240 * XERBLA is an error handler for the Level 2 BLAS routines.
3247 * -- Written on 10-August-1987.