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 DMMCH 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 DMMCH - 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 DGEMM( 'N', 'N', -1, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1905 CALL DGEMM( 'N', 'T', -1, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1908 CALL DGEMM( 'T', 'N', -1, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1911 CALL DGEMM( 'T', 'T', -1, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1914 CALL DGEMM( 'N', 'N', 0, -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1917 CALL DGEMM( 'N', 'T', 0, -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1920 CALL DGEMM( 'T', 'N', 0, -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1923 CALL DGEMM( 'T', 'T', 0, -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1926 CALL DGEMM( 'N', 'N', 0, 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
1929 CALL DGEMM( 'N', 'T', 0, 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
1932 CALL DGEMM( 'T', 'N', 0, 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
1935 CALL DGEMM( 'T', 'T', 0, 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
1981 CALL DSYMM( 'L', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1984 CALL DSYMM( 'R', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1987 CALL DSYMM( 'L', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1990 CALL DSYMM( 'R', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
1993 CALL DSYMM( 'L', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
1996 CALL DSYMM( 'R', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
1999 CALL DSYMM( 'L', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
2002 CALL DSYMM( 'R', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
2054 CALL DTRMM( 'L', 'U', 'N', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2057 CALL DTRMM( 'L', 'U', 'T', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2060 CALL DTRMM( 'R', 'U', 'N', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2063 CALL DTRMM( 'R', 'U', 'T', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2066 CALL DTRMM( 'L', 'L', 'N', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2069 CALL DTRMM( 'L', 'L', 'T', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2072 CALL DTRMM( 'R', 'L', 'N', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2075 CALL DTRMM( 'R', 'L', 'T', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2078 CALL DTRMM( 'L', 'U', 'N', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2081 CALL DTRMM( 'L', 'U', 'T', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2084 CALL DTRMM( 'R', 'U', 'N', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2087 CALL DTRMM( 'R', 'U', 'T', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2090 CALL DTRMM( 'L', 'L', 'N', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2093 CALL DTRMM( 'L', 'L', 'T', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2096 CALL DTRMM( 'R', 'L', 'N', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2099 CALL DTRMM( 'R', 'L', 'T', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2163 CALL DTRSM( 'L', 'U', 'N', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2166 CALL DTRSM( 'L', 'U', 'T', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2169 CALL DTRSM( 'R', 'U', 'N', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2172 CALL DTRSM( 'R', 'U', 'T', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2175 CALL DTRSM( 'L', 'L', 'N', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2178 CALL DTRSM( 'L', 'L', 'T', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2181 CALL DTRSM( 'R', 'L', 'N', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2184 CALL DTRSM( 'R', 'L', 'T', 'N', -1, 0, ALPHA, A, 1, B, 1 )
2187 CALL DTRSM( 'L', 'U', 'N', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2190 CALL DTRSM( 'L', 'U', 'T', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2193 CALL DTRSM( 'R', 'U', 'N', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2196 CALL DTRSM( 'R', 'U', 'T', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2199 CALL DTRSM( 'L', 'L', 'N', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2202 CALL DTRSM( 'L', 'L', 'T', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2205 CALL DTRSM( 'R', 'L', 'N', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2208 CALL DTRSM( 'R', 'L', 'T', 'N', 0, -1, ALPHA, A, 1, B, 1 )
2266 CALL DSYRK( 'U', 'N', -1, 0, ALPHA, A, 1, BETA, C, 1 )
2269 CALL DSYRK( 'U', 'T', -1, 0, ALPHA, A, 1, BETA, C, 1 )
2272 CALL DSYRK( 'L', 'N', -1, 0, ALPHA, A, 1, BETA, C, 1 )
2275 CALL DSYRK( 'L', 'T', -1, 0, ALPHA, A, 1, BETA, C, 1 )
2278 CALL DSYRK( 'U', 'N', 0, -1, ALPHA, A, 1, BETA, C, 1 )
2281 CALL DSYRK( 'U', 'T', 0, -1, ALPHA, A, 1, BETA, C, 1 )
2284 CALL DSYRK( 'L', 'N', 0, -1, ALPHA, A, 1, BETA, C, 1 )
2287 CALL DSYRK( 'L', 'T', 0, -1, ALPHA, A, 1, BETA, C, 1 )
2321 CALL DSYR2K( 'U', 'N', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
2324 CALL DSYR2K( 'U', 'T', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
2327 CALL DSYR2K( 'L', 'N', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
2330 CALL DSYR2K( 'L', 'T', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
2333 CALL DSYR2K( 'U', 'N', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
2336 CALL DSYR2K( 'U', 'T', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
2339 CALL DSYR2K( 'L', 'N', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
2342 CALL DSYR2K( '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.0D10 )
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 DBEG = ( I - 500 )/1001.0D0
2773 * -- Written on 8-February-1989.
2782 DDIFF = 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.