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..--
189 * Read the flag that directs stopping on any failure.
191 * Read the flag that indicates whether error exits are to be tested.
210 10 CONTINUE
223 20 CONTINUE
236 30 CONTINUE
273 40 CONTINUE
278 60 CONTINUE
284 80 CONTINUE
297 A( I, J ) = MAX( I - J + 1, 0 )
298 110 CONTINUE
301 120 CONTINUE
303 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
304 130 CONTINUE
305 * YY holds the exact result. On exit from CMVCH YT holds
316 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
333 * Test error exits.
384 210 CONTINUE
388 220 CONTINUE
392 230 CONTINUE
395 240 CONTINUE
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' )
446 * -- Written on 10-August-1987.
515 $ M = MAX( N - ND, 0 )
527 KL = MAX( KU - 1, 0 )
529 KU = N - 1
530 KL = M - 1
572 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
575 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
592 $ YY, ABS( INCY ), 0, ML - 1,
608 10 CONTINUE
612 20 CONTINUE
617 30 CONTINUE
644 * Check if error-exit was taken incorrectly.
699 40 CONTINUE
724 50 CONTINUE
726 60 CONTINUE
728 70 CONTINUE
730 80 CONTINUE
732 90 CONTINUE
734 100 CONTINUE
736 110 CONTINUE
738 120 CONTINUE
749 130 CONTINUE
759 140 CONTINUE
764 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
768 $ ' - SUSPECT *******' )
769 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
776 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
791 * -- Written on 10-August-1987.
868 K = N - 1
905 $ ABS( INCX ), 0, N - 1, RESET, TRANSL )
908 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
925 $ ABS( INCY ), 0, N - 1, RESET,
939 10 CONTINUE
943 20 CONTINUE
948 30 CONTINUE
980 * Check if error-exit was taken incorrectly.
1044 40 CONTINUE
1068 50 CONTINUE
1070 60 CONTINUE
1072 70 CONTINUE
1074 80 CONTINUE
1076 90 CONTINUE
1078 100 CONTINUE
1080 110 CONTINUE
1091 120 CONTINUE
1104 130 CONTINUE
1109 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1113 $ ' - SUSPECT *******' )
1114 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1124 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1138 * -- Written on 10-August-1987.
1204 10 CONTINUE
1218 K = N - 1
1261 $ ABS( INCX ), 0, N - 1, RESET,
1265 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1279 20 CONTINUE
1283 30 CONTINUE
1342 * Check if error-exit was taken incorrectly.
1396 40 CONTINUE
1416 Z( I ) = XX( 1 + ( I - 1 )*
1418 XX( 1 + ( I - 1 )*ABS( INCX ) )
1420 50 CONTINUE
1435 60 CONTINUE
1437 70 CONTINUE
1439 80 CONTINUE
1441 90 CONTINUE
1443 100 CONTINUE
1445 110 CONTINUE
1456 120 CONTINUE
1468 130 CONTINUE
1473 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1477 $ ' - SUSPECT *******' )
1478 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1485 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1500 * -- Written on 10-August-1987.
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 )
1620 10 CONTINUE
1624 20 CONTINUE
1628 30 CONTINUE
1648 * Check if error-exit was taken incorrectly.
1680 40 CONTINUE
1693 50 CONTINUE
1696 Z( I ) = X( M - I + 1 )
1697 60 CONTINUE
1703 W( 1 ) = Y( N - J + 1 )
1709 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1715 70 CONTINUE
1721 80 CONTINUE
1723 90 CONTINUE
1725 100 CONTINUE
1727 110 CONTINUE
1729 120 CONTINUE
1740 130 CONTINUE
1743 140 CONTINUE
1747 150 CONTINUE
1752 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1756 $ ' - SUSPECT *******' )
1757 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1762 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1777 * -- Written on 10-August-1987.
1866 $ 0, N - 1, RESET, TRANSL )
1869 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1881 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1892 10 CONTINUE
1896 20 CONTINUE
1917 * Check if error-exit was taken incorrectly.
1949 30 CONTINUE
1962 40 CONTINUE
1965 Z( I ) = X( N - I + 1 )
1966 50 CONTINUE
1976 LJ = N - J + 1
1995 60 CONTINUE
2002 70 CONTINUE
2004 80 CONTINUE
2006 90 CONTINUE
2008 100 CONTINUE
2019 110 CONTINUE
2022 120 CONTINUE
2030 130 CONTINUE
2035 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2039 $ ' - SUSPECT *******' )
2040 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
2046 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2061 * -- Written on 10-August-1987.
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,
2191 10 CONTINUE
2195 20 CONTINUE
2199 30 CONTINUE
2222 * Check if error-exit was taken incorrectly.
2256 40 CONTINUE
2269 50 CONTINUE
2272 Z( I, 1 ) = X( N - I + 1 )
2273 60 CONTINUE
2278 70 CONTINUE
2281 Z( I, 2 ) = Y( N - I + 1 )
2282 80 CONTINUE
2293 LJ = N - J + 1
2312 90 CONTINUE
2319 100 CONTINUE
2321 110 CONTINUE
2323 120 CONTINUE
2325 130 CONTINUE
2327 140 CONTINUE
2338 150 CONTINUE
2341 160 CONTINUE
2350 170 CONTINUE
2355 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2359 $ ' - SUSPECT *******' )
2360 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
2368 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2376 * Tests the error exits from the Level 2 Blas.
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 *****',
2729 * -- Written on 10-August-1987.
2737 PARAMETER ( ROGUE = ( -1.0E10, 1.0E10 ) )
2741 PARAMETER ( RROGUE = -1.0E10 )
2772 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2773 $ ( I.GE.J.AND.I - J.LE.KL ) )THEN
2786 10 CONTINUE
2793 20 CONTINUE
2800 AA( I + ( J - 1 )*LDA ) = A( I, J )
2801 30 CONTINUE
2803 AA( I + ( J - 1 )*LDA ) = ROGUE
2804 40 CONTINUE
2805 50 CONTINUE
2808 DO 60 I1 = 1, KU + 1 - J
2809 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2810 60 CONTINUE
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 )
2813 70 CONTINUE
2815 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2816 80 CONTINUE
2817 90 CONTINUE
2823 IEND = J - 1
2835 DO 100 I = 1, IBEG - 1
2836 AA( I + ( J - 1 )*LDA ) = ROGUE
2837 100 CONTINUE
2839 AA( I + ( J - 1 )*LDA ) = A( I, J )
2840 110 CONTINUE
2842 AA( I + ( J - 1 )*LDA ) = ROGUE
2843 120 CONTINUE
2845 JJ = J + ( J - 1 )*LDA
2848 130 CONTINUE
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
2870 140 CONTINUE
2872 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2873 150 CONTINUE
2875 AA( I + ( J - 1 )*LDA ) = ROGUE
2876 160 CONTINUE
2878 JJ = KK + ( J - 1 )*LDA
2881 170 CONTINUE
2901 180 CONTINUE
2902 190 CONTINUE
2916 * -- Written on 10-August-1987.
2957 INCXL = -1
2964 INCYL = -1
2983 10 CONTINUE
2989 20 CONTINUE
2995 30 CONTINUE
3000 40 CONTINUE
3002 * Compute the error ratio for this result.
3006 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
3012 50 CONTINUE
3016 * Report fatal error.
3023 $ YY( 1 + ( I - 1 )*ABS( INCY ) )
3026 $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT( I )
3028 70 CONTINUE
3030 80 CONTINUE
3033 9999 FORMAT( ' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
3047 * -- Written on 10-August-1987.
3061 10 CONTINUE
3064 20 CONTINUE
3079 * -- Written on 10-August-1987.
3099 10 CONTINUE
3100 20 CONTINUE
3110 DO 30 I = 1, IBEG - 1
3113 30 CONTINUE
3117 40 CONTINUE
3118 50 CONTINUE
3123 70 CONTINUE
3133 * distributed between -0.5 and 0.5.
3137 * -- Written on 10-August-1987.
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
3200 * Tests whether XERBLA has detected an error when it should.
3204 * -- Written on 10-August-1987.
3229 * the test program for testing error exits from the Level 2 BLAS
3232 * XERBLA is an error handler for the Level 2 BLAS routines.
3239 * -- Written on 10-August-1987.