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.
138 * Read the flag that directs stopping on any failure.
140 * Read the flag that indicates whether error exits are to be tested.
142 * Read the flag that indicates whether row-major data layout to be tested.
161 10 CONTINUE
174 20 CONTINUE
187 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 CMVCH( 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.
541 $ M = MAX( N - ND, 0 )
553 KL = MAX( KU - 1, 0 )
555 KU = N - 1
556 KL = M - 1
605 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
608 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
625 $ YY, ABS( INCY ), 0, ML - 1,
641 10 CONTINUE
645 20 CONTINUE
650 30 CONTINUE
677 * Check if error-exit was taken incorrectly.
733 40 CONTINUE
759 50 CONTINUE
761 60 CONTINUE
763 70 CONTINUE
765 80 CONTINUE
767 90 CONTINUE
769 100 CONTINUE
771 110 CONTINUE
773 120 CONTINUE
784 130 CONTINUE
794 140 CONTINUE
799 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
803 $ ' - SUSPECT *******' )
804 9996 FORMAT( ' ******* ',A12, ' FAILED ON CALL NUMBER:' )
811 9993 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
826 * -- Written on 10-August-1987.
904 K = N - 1
946 $ ABS( INCX ), 0, N - 1, RESET, TRANSL )
949 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
966 $ ABS( INCY ), 0, N - 1, RESET,
980 10 CONTINUE
984 20 CONTINUE
989 30 CONTINUE
1023 * Check if error-exit was taken incorrectly.
1087 40 CONTINUE
1111 50 CONTINUE
1113 60 CONTINUE
1115 70 CONTINUE
1117 80 CONTINUE
1119 90 CONTINUE
1121 100 CONTINUE
1123 110 CONTINUE
1134 120 CONTINUE
1147 130 CONTINUE
1152 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1156 $ ' - SUSPECT *******' )
1157 9996 FORMAT( ' ******* ',A12, ' FAILED ON CALL NUMBER:' )
1167 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1181 * -- Written on 10-August-1987.
1249 10 CONTINUE
1263 K = N - 1
1323 $ ABS( INCX ), 0, N - 1, RESET,
1327 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1341 20 CONTINUE
1345 30 CONTINUE
1404 * Check if error-exit was taken incorrectly.
1458 40 CONTINUE
1478 Z( I ) = XX( 1 + ( I - 1 )*
1480 XX( 1 + ( I - 1 )*ABS( INCX ) )
1482 50 CONTINUE
1497 60 CONTINUE
1499 70 CONTINUE
1501 80 CONTINUE
1503 90 CONTINUE
1505 100 CONTINUE
1507 110 CONTINUE
1518 120 CONTINUE
1531 130 CONTINUE
1536 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1540 $ ' - SUSPECT *******' )
1541 9996 FORMAT( ' ******* ',A12, ' FAILED ON CALL NUMBER:' )
1548 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1563 * -- Written on 10-August-1987.
1624 $ M = MAX( N - ND, 0 )
1646 $ 0, M - 1, RESET, TRANSL )
1649 XX( 1 + ABS( INCX )*( M/2 - 1 ) ) = ZERO
1660 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
1663 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
1673 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1684 10 CONTINUE
1688 20 CONTINUE
1692 30 CONTINUE
1712 * Check if error-exit was taken incorrectly.
1744 40 CONTINUE
1757 50 CONTINUE
1760 Z( I ) = X( M - I + 1 )
1761 60 CONTINUE
1767 W( 1 ) = Y( N - J + 1 )
1773 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1779 70 CONTINUE
1785 80 CONTINUE
1787 90 CONTINUE
1789 100 CONTINUE
1791 110 CONTINUE
1793 120 CONTINUE
1804 130 CONTINUE
1807 140 CONTINUE
1811 150 CONTINUE
1816 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1820 $ ' - SUSPECT *******' )
1821 9996 FORMAT( ' ******* ',A12, ' FAILED ON CALL NUMBER:' )
1825 9993 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1840 * -- Written on 10-August-1987.
1936 $ 0, N - 1, RESET, TRANSL )
1939 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1951 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1962 10 CONTINUE
1966 20 CONTINUE
1989 * Check if error-exit was taken incorrectly.
2021 30 CONTINUE
2034 40 CONTINUE
2037 Z( I ) = X( N - I + 1 )
2038 50 CONTINUE
2048 LJ = N - J + 1
2067 60 CONTINUE
2074 70 CONTINUE
2076 80 CONTINUE
2078 90 CONTINUE
2080 100 CONTINUE
2091 110 CONTINUE
2094 120 CONTINUE
2102 130 CONTINUE
2107 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2111 $ ' - SUSPECT *******' )
2112 9996 FORMAT( ' ******* ',A12, ' FAILED ON CALL NUMBER:' )
2118 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2133 * -- Written on 10-August-1987.
2230 $ 0, N - 1, RESET, TRANSL )
2233 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
2244 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
2247 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
2258 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2270 10 CONTINUE
2274 20 CONTINUE
2278 30 CONTINUE
2301 * Check if error-exit was taken incorrectly.
2335 40 CONTINUE
2348 50 CONTINUE
2351 Z( I, 1 ) = X( N - I + 1 )
2352 60 CONTINUE
2357 70 CONTINUE
2360 Z( I, 2 ) = Y( N - I + 1 )
2361 80 CONTINUE
2372 LJ = N - J + 1
2391 90 CONTINUE
2398 100 CONTINUE
2400 110 CONTINUE
2402 120 CONTINUE
2404 130 CONTINUE
2406 140 CONTINUE
2417 150 CONTINUE
2420 160 CONTINUE
2429 170 CONTINUE
2434 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2438 $ ' - SUSPECT *******' )
2439 9996 FORMAT( ' ******* ',A12, ' FAILED ON CALL NUMBER:' )
2445 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2458 * -- Written on 10-August-1987.
2499 INCXL = -1
2506 INCYL = -1
2525 10 CONTINUE
2531 20 CONTINUE
2537 30 CONTINUE
2542 40 CONTINUE
2544 * Compute the error ratio for this result.
2548 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2554 50 CONTINUE
2558 * Report fatal error.
2565 $ YY( 1 + ( I - 1 )*ABS( INCY ) )
2568 $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT( I )
2570 70 CONTINUE
2572 80 CONTINUE
2575 9999 FORMAT(' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
2589 * -- Written on 10-August-1987.
2603 10 CONTINUE
2606 20 CONTINUE
2621 * -- Written on 10-August-1987.
2641 10 CONTINUE
2642 20 CONTINUE
2652 DO 30 I = 1, IBEG - 1
2655 30 CONTINUE
2659 40 CONTINUE
2660 50 CONTINUE
2663 60 CONTINUE
2666 70 CONTINUE
2676 * distributed between -0.5 and 0.5.
2680 * -- Written on 10-August-1987.
2713 I = I - 1000*( I/1000 )
2714 J = J - 1000*( J/1000 )
2719 CBEG = CMPLX( ( I - 500 )/1001.0, ( J - 500 )/1001.0 )
2729 * -- Written on 10-August-1987.
2735 SDIFF = X - Y
2753 * -- Written on 10-August-1987.
2761 PARAMETER ( ROGUE = ( -1.0E10, 1.0E10 ) )
2765 PARAMETER ( RROGUE = -1.0E10 )
2796 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2797 $ ( I.GE.J.AND.I - J.LE.KL ) )THEN
2810 10 CONTINUE
2817 20 CONTINUE
2824 AA( I + ( J - 1 )*LDA ) = A( I, J )
2825 30 CONTINUE
2827 AA( I + ( J - 1 )*LDA ) = ROGUE
2828 40 CONTINUE
2829 50 CONTINUE
2832 DO 60 I1 = 1, KU + 1 - J
2833 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2834 60 CONTINUE
2835 DO 70 I2 = I1, MIN( KL + KU + 1, KU + 1 + M - J )
2836 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2837 70 CONTINUE
2839 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2840 80 CONTINUE
2841 90 CONTINUE
2847 IEND = J - 1
2859 DO 100 I = 1, IBEG - 1
2860 AA( I + ( J - 1 )*LDA ) = ROGUE
2861 100 CONTINUE
2863 AA( I + ( J - 1 )*LDA ) = A( I, J )
2864 110 CONTINUE
2866 AA( I + ( J - 1 )*LDA ) = ROGUE
2867 120 CONTINUE
2869 JJ = J + ( J - 1 )*LDA
2872 130 CONTINUE
2877 IBEG = MAX( 1, KL + 2 - J )
2890 IEND = MIN( KL + 1, 1 + M - J )
2892 DO 140 I = 1, IBEG - 1
2893 AA( I + ( J - 1 )*LDA ) = ROGUE
2894 140 CONTINUE
2896 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2897 150 CONTINUE
2899 AA( I + ( J - 1 )*LDA ) = ROGUE
2900 160 CONTINUE
2902 JJ = KK + ( J - 1 )*LDA
2905 170 CONTINUE
2925 180 CONTINUE
2926 190 CONTINUE