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 16 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
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..--
184 * Read the flag that directs stopping on any failure.
186 * Read the flag that indicates whether error exits are to be tested.
205 10 CONTINUE
218 20 CONTINUE
231 30 CONTINUE
268 40 CONTINUE
273 60 CONTINUE
279 80 CONTINUE
292 A( I, J ) = MAX( I - J + 1, 0 )
293 110 CONTINUE
296 120 CONTINUE
298 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
299 130 CONTINUE
300 * YY holds the exact result. On exit from SMVCH YT holds
311 CALL SMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
328 * Test error exits.
379 210 CONTINUE
383 220 CONTINUE
387 230 CONTINUE
390 240 CONTINUE
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' )
439 * -- Written on 10-August-1987.
505 $ M = MAX( N - ND, 0 )
517 KL = MAX( KU - 1, 0 )
519 KU = N - 1
520 KL = M - 1
562 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
565 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
582 $ YY, ABS( INCY ), 0, ML - 1,
598 10 CONTINUE
602 20 CONTINUE
607 30 CONTINUE
634 * Check if error-exit was taken incorrectly.
689 40 CONTINUE
714 50 CONTINUE
716 60 CONTINUE
718 70 CONTINUE
720 80 CONTINUE
722 90 CONTINUE
724 100 CONTINUE
726 110 CONTINUE
728 120 CONTINUE
739 130 CONTINUE
749 140 CONTINUE
754 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
758 $ ' - SUSPECT *******' )
759 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
765 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
780 * -- Written on 10-August-1987.
854 K = N - 1
891 $ ABS( INCX ), 0, N - 1, RESET, TRANSL )
894 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
911 $ ABS( INCY ), 0, N - 1, RESET,
925 10 CONTINUE
929 20 CONTINUE
934 30 CONTINUE
966 * Check if error-exit was taken incorrectly.
1030 40 CONTINUE
1054 50 CONTINUE
1056 60 CONTINUE
1058 70 CONTINUE
1060 80 CONTINUE
1062 90 CONTINUE
1064 100 CONTINUE
1066 110 CONTINUE
1077 120 CONTINUE
1090 130 CONTINUE
1095 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1099 $ ' - SUSPECT *******' )
1100 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1108 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1122 * -- Written on 10-August-1987.
1184 10 CONTINUE
1198 K = N - 1
1241 $ ABS( INCX ), 0, N - 1, RESET,
1245 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1259 20 CONTINUE
1263 30 CONTINUE
1322 * Check if error-exit was taken incorrectly.
1376 40 CONTINUE
1396 Z( I ) = XX( 1 + ( I - 1 )*
1398 XX( 1 + ( I - 1 )*ABS( INCX ) )
1400 50 CONTINUE
1415 60 CONTINUE
1417 70 CONTINUE
1419 80 CONTINUE
1421 90 CONTINUE
1423 100 CONTINUE
1425 110 CONTINUE
1436 120 CONTINUE
1448 130 CONTINUE
1453 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1457 $ ' - SUSPECT *******' )
1458 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1465 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1480 * -- Written on 10-August-1987.
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 )
1594 10 CONTINUE
1598 20 CONTINUE
1602 30 CONTINUE
1615 * Check if error-exit was taken incorrectly.
1647 40 CONTINUE
1660 50 CONTINUE
1663 Z( I ) = X( M - I + 1 )
1664 60 CONTINUE
1670 W( 1 ) = Y( N - J + 1 )
1674 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1680 70 CONTINUE
1686 80 CONTINUE
1688 90 CONTINUE
1690 100 CONTINUE
1692 110 CONTINUE
1694 120 CONTINUE
1705 130 CONTINUE
1708 140 CONTINUE
1712 150 CONTINUE
1717 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1721 $ ' - SUSPECT *******' )
1722 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1726 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1741 * -- Written on 10-August-1987.
1825 $ 0, N - 1, RESET, TRANSL )
1828 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1839 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1850 10 CONTINUE
1854 20 CONTINUE
1875 * Check if error-exit was taken incorrectly.
1907 30 CONTINUE
1920 40 CONTINUE
1923 Z( I ) = X( N - I + 1 )
1924 50 CONTINUE
1934 LJ = N - J + 1
1953 60 CONTINUE
1960 70 CONTINUE
1962 80 CONTINUE
1964 90 CONTINUE
1966 100 CONTINUE
1977 110 CONTINUE
1980 120 CONTINUE
1988 130 CONTINUE
1993 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1997 $ ' - SUSPECT *******' )
1998 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
2004 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2019 * -- Written on 10-August-1987.
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,
2144 10 CONTINUE
2148 20 CONTINUE
2152 30 CONTINUE
2175 * Check if error-exit was taken incorrectly.
2209 40 CONTINUE
2222 50 CONTINUE
2225 Z( I, 1 ) = X( N - I + 1 )
2226 60 CONTINUE
2231 70 CONTINUE
2234 Z( I, 2 ) = Y( N - I + 1 )
2235 80 CONTINUE
2246 LJ = N - J + 1
2265 90 CONTINUE
2272 100 CONTINUE
2274 110 CONTINUE
2276 120 CONTINUE
2278 130 CONTINUE
2280 140 CONTINUE
2291 150 CONTINUE
2294 160 CONTINUE
2303 170 CONTINUE
2308 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2312 $ ' - SUSPECT *******' )
2313 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
2319 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2327 * Tests the error exits from the Level 2 Blas.
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 *****',
2663 * -- Written on 10-August-1987.
2671 PARAMETER ( ROGUE = -1.0E10 )
2702 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2703 $ ( I.GE.J.AND.I - J.LE.KL ) )THEN
2716 10 CONTINUE
2721 20 CONTINUE
2728 AA( I + ( J - 1 )*LDA ) = A( I, J )
2729 30 CONTINUE
2731 AA( I + ( J - 1 )*LDA ) = ROGUE
2732 40 CONTINUE
2733 50 CONTINUE
2736 DO 60 I1 = 1, KU + 1 - J
2737 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2738 60 CONTINUE
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 )
2741 70 CONTINUE
2743 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2744 80 CONTINUE
2745 90 CONTINUE
2751 IEND = J - 1
2763 DO 100 I = 1, IBEG - 1
2764 AA( I + ( J - 1 )*LDA ) = ROGUE
2765 100 CONTINUE
2767 AA( I + ( J - 1 )*LDA ) = A( I, J )
2768 110 CONTINUE
2770 AA( I + ( J - 1 )*LDA ) = ROGUE
2771 120 CONTINUE
2772 130 CONTINUE
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
2794 140 CONTINUE
2796 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2797 150 CONTINUE
2799 AA( I + ( J - 1 )*LDA ) = ROGUE
2800 160 CONTINUE
2801 170 CONTINUE
2819 180 CONTINUE
2820 190 CONTINUE
2834 * -- Written on 10-August-1987.
2866 INCXL = -1
2873 INCYL = -1
2892 10 CONTINUE
2898 20 CONTINUE
2903 30 CONTINUE
2905 * Compute the error ratio for this result.
2909 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2915 40 CONTINUE
2919 * Report fatal error.
2926 $ YY( 1 + ( I - 1 )*ABS( INCY ) )
2929 $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT(I)
2931 60 CONTINUE
2933 70 CONTINUE
2936 9999 FORMAT( ' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
2950 * -- Written on 10-August-1987.
2964 10 CONTINUE
2967 20 CONTINUE
2982 * -- Written on 10-August-1987.
3002 10 CONTINUE
3003 20 CONTINUE
3013 DO 30 I = 1, IBEG - 1
3016 30 CONTINUE
3020 40 CONTINUE
3021 50 CONTINUE
3026 70 CONTINUE
3035 * Generates random numbers uniformly distributed between -0.5 and 0.5.
3039 * -- Written on 10-August-1987.
3068 I = I - 1000*( I/1000 )
3073 SBEG = REAL( I - 500 )/1001.0
3083 * -- Written on 10-August-1987.
3089 SDIFF = X - Y
3097 * Tests whether XERBLA has detected an error when it should.
3101 * -- Written on 10-August-1987.
3126 * the test program for testing error exits from the Level 2 BLAS
3129 * XERBLA is an error handler for the Level 2 BLAS routines.
3136 * -- Written on 10-August-1987.