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 6 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.
59 *> -- Written on 8-February-1989.
65 *> 10-9-00: Change STATUS='NEW' to 'UNKNOWN' so that the testers
85 * -- Reference BLAS test routine (version 3.4.1) --
86 * -- Reference BLAS is a software package provided by Univ. of Tennessee, --
87 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
159 * Read the flag that directs stopping on any failure.
161 * Read the flag that indicates whether error exits are to be tested.
180 10 CONTINUE
215 20 CONTINUE
220 40 CONTINUE
226 60 CONTINUE
239 AB( I, J ) = MAX( I - J + 1, 0 )
240 90 CONTINUE
244 100 CONTINUE
246 CC( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
247 110 CONTINUE
248 * CC holds the exact result. On exit from SMMCH CT holds
270 AB( J, NMAX + 1 ) = N - J + 1
271 AB( 1, NMAX + J ) = N - J + 1
272 120 CONTINUE
274 CC( N - J + 1 ) = J*( ( J + 1 )*J )/2 -
275 $ ( ( J + 1 )*J*( J - 1 ) )/3
276 130 CONTINUE
306 * Test error exits.
348 200 CONTINUE
352 210 CONTINUE
356 220 CONTINUE
359 230 CONTINUE
380 9989 FORMAT( ' ERROR IN SMMCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
389 9985 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
390 9984 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
403 * -- Written on 8-February-1989.
547 10 CONTINUE
551 20 CONTINUE
556 30 CONTINUE
570 * Check if error-exit was taken incorrectly.
607 40 CONTINUE
628 50 CONTINUE
630 60 CONTINUE
632 70 CONTINUE
634 80 CONTINUE
636 90 CONTINUE
638 100 CONTINUE
640 110 CONTINUE
651 120 CONTINUE
656 130 CONTINUE
661 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
665 $ ' - SUSPECT *******' )
666 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
670 9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
684 * -- Written on 8-February-1989.
814 10 CONTINUE
818 20 CONTINUE
823 30 CONTINUE
836 * Check if error-exit was taken incorrectly.
872 40 CONTINUE
900 50 CONTINUE
902 60 CONTINUE
904 70 CONTINUE
906 80 CONTINUE
908 90 CONTINUE
910 100 CONTINUE
921 110 CONTINUE
926 120 CONTINUE
931 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
935 $ ' - SUSPECT *******' )
936 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
940 9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
954 * -- Written on 8-February-1989.
1010 10 CONTINUE
1011 20 CONTINUE
1081 30 CONTINUE
1085 40 CONTINUE
1110 * Check if error-exit was taken incorrectly.
1145 50 CONTINUE
1176 C( I, J ) = BB( I + ( J - 1 )*
1178 BB( I + ( J - 1 )*LDB ) = ALPHA*
1180 60 CONTINUE
1181 70 CONTINUE
1204 80 CONTINUE
1206 90 CONTINUE
1208 100 CONTINUE
1210 110 CONTINUE
1212 120 CONTINUE
1214 130 CONTINUE
1216 140 CONTINUE
1227 150 CONTINUE
1232 160 CONTINUE
1237 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1241 $ ' - SUSPECT *******' )
1242 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1245 9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1259 * -- Written on 8-February-1989.
1377 10 CONTINUE
1382 20 CONTINUE
1395 * Check if error-exit was taken incorrectly.
1429 30 CONTINUE
1446 LJ = N - J + 1
1473 40 CONTINUE
1476 50 CONTINUE
1478 60 CONTINUE
1480 70 CONTINUE
1482 80 CONTINUE
1484 90 CONTINUE
1486 100 CONTINUE
1497 110 CONTINUE
1501 120 CONTINUE
1506 130 CONTINUE
1511 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1515 $ ' - SUSPECT *******' )
1516 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1520 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1534 * -- Written on 8-February-1989.
1669 10 CONTINUE
1673 20 CONTINUE
1678 30 CONTINUE
1691 * Check if error-exit was taken incorrectly.
1727 40 CONTINUE
1745 LJ = N - J + 1
1749 W( I ) = AB( ( J - 1 )*2*NMAX + K +
1751 W( K + I ) = AB( ( J - 1 )*2*NMAX +
1753 50 CONTINUE
1762 W( I ) = AB( ( K + I - 1 )*NMAX +
1764 W( K + I ) = AB( ( I - 1 )*NMAX +
1766 60 CONTINUE
1786 70 CONTINUE
1789 80 CONTINUE
1791 90 CONTINUE
1793 100 CONTINUE
1795 110 CONTINUE
1797 120 CONTINUE
1799 130 CONTINUE
1810 140 CONTINUE
1814 150 CONTINUE
1819 160 CONTINUE
1824 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1828 $ ' - SUSPECT *******' )
1829 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1834 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1842 * Tests the error exits from the Level 3 Blas.
1843 * Requires a special version of the error-handling routine XERBLA.
1848 * -- Written on 8-February-1989.
1854 * 3-19-92: Initialize ALPHA and BETA (eca)
1855 * 3-19-92: Fix argument 12 in calls to SSYMM with INFOT = 9 (eca)
1880 * it is called, and is then tested and re-set by CHKXER.
1902 CALL SGEMM( 'N', 'N', -1, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1905 CALL SGEMM( 'N', 'T', -1, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1908 CALL SGEMM( 'T', 'N', -1, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1911 CALL SGEMM( 'T', 'T', -1, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1914 CALL SGEMM( 'N', 'N', 0, -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1917 CALL SGEMM( 'N', 'T', 0, -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1920 CALL SGEMM( 'T', 'N', 0, -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1923 CALL SGEMM( 'T', 'T', 0, -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1926 CALL SGEMM( 'N', 'N', 0, 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
1929 CALL SGEMM( 'N', 'T', 0, 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
1932 CALL SGEMM( 'T', 'N', 0, 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
1935 CALL SGEMM( 'T', 'T', 0, 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
1981 CALL SSYMM( 'L', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1984 CALL SSYMM( 'R', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1987 CALL SSYMM( 'L', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1990 CALL SSYMM( 'R', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1993 CALL SSYMM( 'L', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
1996 CALL SSYMM( 'R', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
1999 CALL SSYMM( 'L', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
2002 CALL SSYMM( 'R', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
2054 CALL STRMM( 'L', 'U', 'N', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2057 CALL STRMM( 'L', 'U', 'T', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2060 CALL STRMM( 'R', 'U', 'N', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2063 CALL STRMM( 'R', 'U', 'T', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2066 CALL STRMM( 'L', 'L', 'N', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2069 CALL STRMM( 'L', 'L', 'T', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2072 CALL STRMM( 'R', 'L', 'N', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2075 CALL STRMM( 'R', 'L', 'T', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2078 CALL STRMM( 'L', 'U', 'N', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2081 CALL STRMM( 'L', 'U', 'T', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2084 CALL STRMM( 'R', 'U', 'N', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2087 CALL STRMM( 'R', 'U', 'T', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2090 CALL STRMM( 'L', 'L', 'N', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2093 CALL STRMM( 'L', 'L', 'T', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2096 CALL STRMM( 'R', 'L', 'N', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2099 CALL STRMM( 'R', 'L', 'T', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2163 CALL STRSM( 'L', 'U', 'N', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2166 CALL STRSM( 'L', 'U', 'T', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2169 CALL STRSM( 'R', 'U', 'N', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2172 CALL STRSM( 'R', 'U', 'T', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2175 CALL STRSM( 'L', 'L', 'N', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2178 CALL STRSM( 'L', 'L', 'T', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2181 CALL STRSM( 'R', 'L', 'N', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2184 CALL STRSM( 'R', 'L', 'T', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2187 CALL STRSM( 'L', 'U', 'N', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2190 CALL STRSM( 'L', 'U', 'T', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2193 CALL STRSM( 'R', 'U', 'N', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2196 CALL STRSM( 'R', 'U', 'T', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2199 CALL STRSM( 'L', 'L', 'N', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2202 CALL STRSM( 'L', 'L', 'T', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2205 CALL STRSM( 'R', 'L', 'N', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2208 CALL STRSM( 'R', 'L', 'T', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2266 CALL SSYRK( 'U', 'N', -1, 0, ALPHA, A, 1, BETA, C, 1 )
2269 CALL SSYRK( 'U', 'T', -1, 0, ALPHA, A, 1, BETA, C, 1 )
2272 CALL SSYRK( 'L', 'N', -1, 0, ALPHA, A, 1, BETA, C, 1 )
2275 CALL SSYRK( 'L', 'T', -1, 0, ALPHA, A, 1, BETA, C, 1 )
2278 CALL SSYRK( 'U', 'N', 0, -1, ALPHA, A, 1, BETA, C, 1 )
2281 CALL SSYRK( 'U', 'T', 0, -1, ALPHA, A, 1, BETA, C, 1 )
2284 CALL SSYRK( 'L', 'N', 0, -1, ALPHA, A, 1, BETA, C, 1 )
2287 CALL SSYRK( 'L', 'T', 0, -1, ALPHA, A, 1, BETA, C, 1 )
2321 CALL SSYR2K( 'U', 'N', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
2324 CALL SSYR2K( 'U', 'T', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
2327 CALL SSYR2K( 'L', 'N', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
2330 CALL SSYR2K( 'L', 'T', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
2333 CALL SSYR2K( 'U', 'N', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
2336 CALL SSYR2K( 'U', 'T', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
2339 CALL SSYR2K( 'L', 'N', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
2342 CALL SSYR2K( 'L', 'T', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
2388 9999 FORMAT( ' ', A6, ' PASSED THE TESTS OF ERROR-EXITS' )
2389 9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
2406 * -- Written on 8-February-1989.
2416 PARAMETER ( ROGUE = -1.0E10 )
2457 10 CONTINUE
2462 20 CONTINUE
2469 AA( I + ( J - 1 )*LDA ) = A( I, J )
2470 30 CONTINUE
2472 AA( I + ( J - 1 )*LDA ) = ROGUE
2473 40 CONTINUE
2474 50 CONTINUE
2480 IEND = J - 1
2492 DO 60 I = 1, IBEG - 1
2493 AA( I + ( J - 1 )*LDA ) = ROGUE
2494 60 CONTINUE
2496 AA( I + ( J - 1 )*LDA ) = A( I, J )
2497 70 CONTINUE
2499 AA( I + ( J - 1 )*LDA ) = ROGUE
2500 80 CONTINUE
2501 90 CONTINUE
2516 * -- Written on 8-February-1989.
2552 10 CONTINUE
2558 20 CONTINUE
2559 30 CONTINUE
2565 40 CONTINUE
2566 50 CONTINUE
2572 60 CONTINUE
2573 70 CONTINUE
2579 80 CONTINUE
2580 90 CONTINUE
2585 100 CONTINUE
2587 * Compute the error ratio for this result.
2591 ERRI = ABS( CT( I ) - CC( I, J ) )/EPS
2597 110 CONTINUE
2599 120 CONTINUE
2604 * Report fatal error.
2614 140 CONTINUE
2618 150 CONTINUE
2621 9999 FORMAT( ' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
2636 * -- Written on 8-February-1989.
2652 10 CONTINUE
2655 20 CONTINUE
2670 * -- Written on 8-February-1989.
2692 10 CONTINUE
2693 20 CONTINUE
2703 DO 30 I = 1, IBEG - 1
2706 30 CONTINUE
2710 40 CONTINUE
2711 50 CONTINUE
2716 70 CONTINUE
2725 * Generates random numbers uniformly distributed between -0.5 and 0.5.
2729 * -- Written on 8-February-1989.
2758 I = I - 1000*( I/1000 )
2763 SBEG = ( I - 500 )/1001.0
2773 * -- Written on 8-February-1989.
2782 SDIFF = X - Y
2790 * Tests whether XERBLA has detected an error when it should.
2794 * -- Written on 8-February-1989.
2821 * the test program for testing error exits from the Level 3 BLAS
2824 * XERBLA is an error handler for the Level 3 BLAS routines.
2831 * -- Written on 8-February-1989.