Lines Matching +full:continue +full:- +full:on +full:- +full:error
6 * of the file are read using list-directed input, the last 17 records
11 * -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
13 * F LOGICAL FLAG, T TO STOP ON FAILURES.
14 * T LOGICAL FLAG, T TO TEST ERROR EXITS.
15 * 2 0 TO TEST COLUMN-MAJOR, 1 TO TEST ROW-MAJOR, 2 TO TEST BOTH
22 * 1 2 -1 -2 VALUES OF INCX AND INCY
24 * (0.0,0.0) (1.0,0.0) (0.7,-0.9) VALUES OF ALPHA
26 * (0.0,0.0) (1.0,0.0) (1.3,-1.1) VALUES OF BETA
59 * Street, Suite 100, Downers Grove, Illinois 60515-1263, USA.
62 * -- Written on 10-August-1987.
139 * Read the flag that directs stopping on any failure.
141 * Read the flag that indicates whether error exits are to be tested.
143 * Read the flag that indicates whether row-major data layout to be tested.
162 10 CONTINUE
175 20 CONTINUE
188 30 CONTINUE
239 40 CONTINUE
244 60 CONTINUE
250 80 CONTINUE
256 90 CONTINUE
261 100 CONTINUE
270 A( I, J ) = MAX( I - J + 1, 0 )
271 110 CONTINUE
274 120 CONTINUE
276 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
277 130 CONTINUE
278 * YY holds the exact result. On exit from CMVCH YT holds
289 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
306 * Test error exits.
406 210 CONTINUE
410 220 CONTINUE
414 230 CONTINUE
417 240 CONTINUE
423 10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )
424 10001 FORMAT( ' ROW-MAJOR DATA LAYOUT IS TESTED' )
425 10000 FORMAT( ' COLUMN-MAJOR DATA LAYOUT IS TESTED' )
448 9985 FORMAT(' ERROR IN CMVCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
456 9981 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
457 9980 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
471 * -- Written on 10-August-1987.
542 $ M = MAX( N - ND, 0 )
554 KL = MAX( KU - 1, 0 )
556 KU = N - 1
557 KL = M - 1
606 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
609 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
626 $ YY, ABS( INCY ), 0, ML - 1,
642 10 CONTINUE
646 20 CONTINUE
651 30 CONTINUE
678 * Check if error-exit was taken incorrectly.
734 40 CONTINUE
760 50 CONTINUE
762 60 CONTINUE
764 70 CONTINUE
766 80 CONTINUE
768 90 CONTINUE
770 100 CONTINUE
772 110 CONTINUE
774 120 CONTINUE
785 130 CONTINUE
795 140 CONTINUE
800 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
804 $ ' - SUSPECT *******' )
805 9996 FORMAT( ' ******* ',A12, ' FAILED ON CALL NUMBER:' )
812 9993 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
827 * -- Written on 10-August-1987.
906 K = N - 1
948 $ ABS( INCX ), 0, N - 1, RESET, TRANSL )
951 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
968 $ ABS( INCY ), 0, N - 1, RESET,
982 10 CONTINUE
986 20 CONTINUE
991 30 CONTINUE
1025 * Check if error-exit was taken incorrectly.
1089 40 CONTINUE
1113 50 CONTINUE
1115 60 CONTINUE
1117 70 CONTINUE
1119 80 CONTINUE
1121 90 CONTINUE
1123 100 CONTINUE
1125 110 CONTINUE
1136 120 CONTINUE
1149 130 CONTINUE
1154 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1158 $ ' - SUSPECT *******' )
1159 9996 FORMAT( ' ******* ',A12, ' FAILED ON CALL NUMBER:' )
1169 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1183 * -- Written on 10-August-1987.
1252 10 CONTINUE
1266 K = N - 1
1326 $ ABS( INCX ), 0, N - 1, RESET,
1330 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1344 20 CONTINUE
1348 30 CONTINUE
1407 * Check if error-exit was taken incorrectly.
1461 40 CONTINUE
1481 Z( I ) = XX( 1 + ( I - 1 )*
1483 XX( 1 + ( I - 1 )*ABS( INCX ) )
1485 50 CONTINUE
1500 60 CONTINUE
1502 70 CONTINUE
1504 80 CONTINUE
1506 90 CONTINUE
1508 100 CONTINUE
1510 110 CONTINUE
1521 120 CONTINUE
1534 130 CONTINUE
1539 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1543 $ ' - SUSPECT *******' )
1544 9996 FORMAT( ' ******* ',A12, ' FAILED ON CALL NUMBER:' )
1551 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1566 * -- Written on 10-August-1987.
1628 $ M = MAX( N - ND, 0 )
1650 $ 0, M - 1, RESET, TRANSL )
1653 XX( 1 + ABS( INCX )*( M/2 - 1 ) ) = ZERO
1664 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
1667 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
1677 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1688 10 CONTINUE
1692 20 CONTINUE
1696 30 CONTINUE
1716 * Check if error-exit was taken incorrectly.
1748 40 CONTINUE
1761 50 CONTINUE
1764 Z( I ) = X( M - I + 1 )
1765 60 CONTINUE
1771 W( 1 ) = Y( N - J + 1 )
1777 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1783 70 CONTINUE
1789 80 CONTINUE
1791 90 CONTINUE
1793 100 CONTINUE
1795 110 CONTINUE
1797 120 CONTINUE
1808 130 CONTINUE
1811 140 CONTINUE
1815 150 CONTINUE
1820 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1824 $ ' - SUSPECT *******' )
1825 9996 FORMAT( ' ******* ',A12, ' FAILED ON CALL NUMBER:' )
1829 9993 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1844 * -- Written on 10-August-1987.
1941 $ 0, N - 1, RESET, TRANSL )
1944 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1956 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1967 10 CONTINUE
1971 20 CONTINUE
1994 * Check if error-exit was taken incorrectly.
2026 30 CONTINUE
2039 40 CONTINUE
2042 Z( I ) = X( N - I + 1 )
2043 50 CONTINUE
2053 LJ = N - J + 1
2072 60 CONTINUE
2079 70 CONTINUE
2081 80 CONTINUE
2083 90 CONTINUE
2085 100 CONTINUE
2096 110 CONTINUE
2099 120 CONTINUE
2107 130 CONTINUE
2112 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2116 $ ' - SUSPECT *******' )
2117 9996 FORMAT( ' ******* ',A12, ' FAILED ON CALL NUMBER:' )
2123 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2138 * -- Written on 10-August-1987.
2236 $ 0, N - 1, RESET, TRANSL )
2239 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
2250 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
2253 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
2264 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2276 10 CONTINUE
2280 20 CONTINUE
2284 30 CONTINUE
2307 * Check if error-exit was taken incorrectly.
2341 40 CONTINUE
2354 50 CONTINUE
2357 Z( I, 1 ) = X( N - I + 1 )
2358 60 CONTINUE
2363 70 CONTINUE
2366 Z( I, 2 ) = Y( N - I + 1 )
2367 80 CONTINUE
2378 LJ = N - J + 1
2397 90 CONTINUE
2404 100 CONTINUE
2406 110 CONTINUE
2408 120 CONTINUE
2410 130 CONTINUE
2412 140 CONTINUE
2423 150 CONTINUE
2426 160 CONTINUE
2435 170 CONTINUE
2440 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2444 $ ' - SUSPECT *******' )
2445 9996 FORMAT( ' ******* ',A12, ' FAILED ON CALL NUMBER:' )
2451 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2464 * -- Written on 10-August-1987.
2505 INCXL = -1
2512 INCYL = -1
2531 10 CONTINUE
2537 20 CONTINUE
2543 30 CONTINUE
2548 40 CONTINUE
2550 * Compute the error ratio for this result.
2554 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2560 50 CONTINUE
2564 * Report fatal error.
2571 $ YY( 1 + ( I - 1 )*ABS( INCY ) )
2574 $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT( I )
2576 70 CONTINUE
2578 80 CONTINUE
2581 9999 FORMAT(' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
2595 * -- Written on 10-August-1987.
2609 10 CONTINUE
2612 20 CONTINUE
2627 * -- Written on 10-August-1987.
2647 10 CONTINUE
2648 20 CONTINUE
2658 DO 30 I = 1, IBEG - 1
2661 30 CONTINUE
2665 40 CONTINUE
2666 50 CONTINUE
2669 60 CONTINUE
2672 70 CONTINUE
2682 * distributed between -0.5 and 0.5.
2686 * -- Written on 10-August-1987.
2719 I = I - 1000*( I/1000 )
2720 J = J - 1000*( J/1000 )
2725 ZBEG = DCMPLX( ( I - 500 )/1001.0, ( J - 500 )/1001.0 )
2735 * -- Written on 10-August-1987.
2741 DDIFF = X - Y
2759 * -- Written on 10-August-1987.
2768 PARAMETER ( ROGUE = ( -1.0D10, 1.0D10 ) )
2772 PARAMETER ( RROGUE = -1.0D10 )
2803 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2804 $ ( I.GE.J.AND.I - J.LE.KL ) )THEN
2817 10 CONTINUE
2824 20 CONTINUE
2831 AA( I + ( J - 1 )*LDA ) = A( I, J )
2832 30 CONTINUE
2834 AA( I + ( J - 1 )*LDA ) = ROGUE
2835 40 CONTINUE
2836 50 CONTINUE
2839 DO 60 I1 = 1, KU + 1 - J
2840 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2841 60 CONTINUE
2842 DO 70 I2 = I1, MIN( KL + KU + 1, KU + 1 + M - J )
2843 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2844 70 CONTINUE
2846 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2847 80 CONTINUE
2848 90 CONTINUE
2854 IEND = J - 1
2866 DO 100 I = 1, IBEG - 1
2867 AA( I + ( J - 1 )*LDA ) = ROGUE
2868 100 CONTINUE
2870 AA( I + ( J - 1 )*LDA ) = A( I, J )
2871 110 CONTINUE
2873 AA( I + ( J - 1 )*LDA ) = ROGUE
2874 120 CONTINUE
2876 JJ = J + ( J - 1 )*LDA
2879 130 CONTINUE
2884 IBEG = MAX( 1, KL + 2 - J )
2897 IEND = MIN( KL + 1, 1 + M - J )
2899 DO 140 I = 1, IBEG - 1
2900 AA( I + ( J - 1 )*LDA ) = ROGUE
2901 140 CONTINUE
2903 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2904 150 CONTINUE
2906 AA( I + ( J - 1 )*LDA ) = ROGUE
2907 160 CONTINUE
2909 JJ = KK + ( J - 1 )*LDA
2912 170 CONTINUE
2932 180 CONTINUE
2933 190 CONTINUE