Lines Matching +full:continue +full:- +full:on +full:- +full:error
6 * of the file are read using list-directed input, the last 16 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
58 * Street, Suite 100, Downers Grove, Illinois 60515-1263, USA.
61 * -- Written on 10-August-1987.
134 * Read the flag that directs stopping on any failure.
136 * Read the flag that indicates whether error exits are to be tested.
138 * Read the flag that indicates whether row-major data layout to be tested.
157 10 CONTINUE
170 20 CONTINUE
183 30 CONTINUE
235 40 CONTINUE
240 60 CONTINUE
246 80 CONTINUE
252 90 CONTINUE
257 100 CONTINUE
266 A( I, J ) = MAX( I - J + 1, 0 )
267 110 CONTINUE
270 120 CONTINUE
272 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
273 130 CONTINUE
274 * YY holds the exact result. On exit from DMVCH YT holds
285 CALL DMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
302 * Test error exits.
402 210 CONTINUE
406 220 CONTINUE
410 230 CONTINUE
413 240 CONTINUE
419 10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )
420 10001 FORMAT( ' ROW-MAJOR DATA LAYOUT IS TESTED' )
421 10000 FORMAT( ' COLUMN-MAJOR DATA LAYOUT IS TESTED' )
442 9985 FORMAT( ' ERROR IN DMVCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
450 9981 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
451 9980 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
465 * -- Written on 10-August-1987.
532 $ M = MAX( N - ND, 0 )
544 KL = MAX( KU - 1, 0 )
546 KU = N - 1
547 KL = M - 1
596 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
599 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
616 $ YY, ABS( INCY ), 0, ML - 1,
632 10 CONTINUE
636 20 CONTINUE
641 30 CONTINUE
668 * Check if error-exit was taken incorrectly.
723 40 CONTINUE
748 50 CONTINUE
750 60 CONTINUE
752 70 CONTINUE
754 80 CONTINUE
756 90 CONTINUE
758 100 CONTINUE
760 110 CONTINUE
762 120 CONTINUE
775 130 CONTINUE
785 140 CONTINUE
788 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
790 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
791 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
793 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
794 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
796 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
798 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
802 $ ' - SUSPECT *******' )
803 9996 FORMAT( ' ******* ',A12, ' FAILED ON CALL NUMBER:' )
810 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
825 * -- Written on 10-August-1987.
900 K = N - 1
942 $ ABS( INCX ), 0, N - 1, RESET, TRANSL )
945 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
962 $ ABS( INCY ), 0, N - 1, RESET,
976 10 CONTINUE
980 20 CONTINUE
985 30 CONTINUE
1018 * Check if error-exit was taken incorrectly.
1082 40 CONTINUE
1106 50 CONTINUE
1108 60 CONTINUE
1110 70 CONTINUE
1112 80 CONTINUE
1114 90 CONTINUE
1116 100 CONTINUE
1118 110 CONTINUE
1131 120 CONTINUE
1144 130 CONTINUE
1147 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1149 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1150 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1152 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1153 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1155 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1157 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1161 $ ' - SUSPECT *******' )
1162 9996 FORMAT( ' ******* ',A12, ' FAILED ON CALL NUMBER:' )
1170 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1184 * -- Written on 10-August-1987.
1248 10 CONTINUE
1262 K = N - 1
1322 $ ABS( INCX ), 0, N - 1, RESET,
1326 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1340 20 CONTINUE
1344 30 CONTINUE
1403 * Check if error-exit was taken incorrectly.
1457 40 CONTINUE
1477 Z( I ) = XX( 1 + ( I - 1 )*
1479 XX( 1 + ( I - 1 )*ABS( INCX ) )
1481 50 CONTINUE
1496 60 CONTINUE
1498 70 CONTINUE
1500 80 CONTINUE
1502 90 CONTINUE
1504 100 CONTINUE
1506 110 CONTINUE
1519 120 CONTINUE
1532 130 CONTINUE
1535 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1537 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1538 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1540 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1541 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1543 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1545 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1549 $ ' - SUSPECT *******' )
1550 9996 FORMAT( ' ******* ',A12, ' FAILED ON CALL NUMBER:' )
1557 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1572 * -- Written on 10-August-1987.
1627 $ M = MAX( N - ND, 0 )
1649 $ 0, M - 1, RESET, TRANSL )
1652 XX( 1 + ABS( INCX )*( M/2 - 1 ) ) = ZERO
1663 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
1666 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
1676 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1687 10 CONTINUE
1691 20 CONTINUE
1695 30 CONTINUE
1708 * Check if error-exit was taken incorrectly.
1740 40 CONTINUE
1753 50 CONTINUE
1756 Z( I ) = X( M - I + 1 )
1757 60 CONTINUE
1763 W( 1 ) = Y( N - J + 1 )
1767 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1773 70 CONTINUE
1779 80 CONTINUE
1781 90 CONTINUE
1783 100 CONTINUE
1785 110 CONTINUE
1787 120 CONTINUE
1800 130 CONTINUE
1803 140 CONTINUE
1807 150 CONTINUE
1810 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1812 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1813 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1815 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1816 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1818 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
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.
1935 $ 0, N - 1, RESET, TRANSL )
1938 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1949 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1960 10 CONTINUE
1964 20 CONTINUE
1986 * Check if error-exit was taken incorrectly.
2018 30 CONTINUE
2031 40 CONTINUE
2034 Z( I ) = X( N - I + 1 )
2035 50 CONTINUE
2045 LJ = N - J + 1
2064 60 CONTINUE
2071 70 CONTINUE
2073 80 CONTINUE
2075 90 CONTINUE
2077 100 CONTINUE
2090 110 CONTINUE
2093 120 CONTINUE
2101 130 CONTINUE
2104 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
2106 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2107 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
2109 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2110 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
2112 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
2114 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2118 $ ' - SUSPECT *******' )
2119 9996 FORMAT( ' ******* ',A12, ' FAILED ON CALL NUMBER:' )
2125 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2140 * -- Written on 10-August-1987.
2232 $ 0, N - 1, RESET, TRANSL )
2235 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
2246 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
2249 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
2260 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2272 10 CONTINUE
2276 20 CONTINUE
2280 30 CONTINUE
2303 * Check if error-exit was taken incorrectly.
2337 40 CONTINUE
2350 50 CONTINUE
2353 Z( I, 1 ) = X( N - I + 1 )
2354 60 CONTINUE
2359 70 CONTINUE
2362 Z( I, 2 ) = Y( N - I + 1 )
2363 80 CONTINUE
2374 LJ = N - J + 1
2393 90 CONTINUE
2400 100 CONTINUE
2402 110 CONTINUE
2404 120 CONTINUE
2406 130 CONTINUE
2408 140 CONTINUE
2421 150 CONTINUE
2424 160 CONTINUE
2433 170 CONTINUE
2436 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
2438 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2439 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
2441 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2442 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
2444 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
2446 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2450 $ ' - SUSPECT *******' )
2451 9996 FORMAT( ' ******* ',A12, ' FAILED ON CALL NUMBER:' )
2457 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2475 * -- Written on 10-August-1987.
2483 PARAMETER ( ROGUE = -1.0D10 )
2514 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2515 $ ( I.GE.J.AND.I - J.LE.KL ) )THEN
2528 10 CONTINUE
2533 20 CONTINUE
2540 AA( I + ( J - 1 )*LDA ) = A( I, J )
2541 30 CONTINUE
2543 AA( I + ( J - 1 )*LDA ) = ROGUE
2544 40 CONTINUE
2545 50 CONTINUE
2548 DO 60 I1 = 1, KU + 1 - J
2549 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2550 60 CONTINUE
2551 DO 70 I2 = I1, MIN( KL + KU + 1, KU + 1 + M - J )
2552 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2553 70 CONTINUE
2555 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2556 80 CONTINUE
2557 90 CONTINUE
2563 IEND = J - 1
2575 DO 100 I = 1, IBEG - 1
2576 AA( I + ( J - 1 )*LDA ) = ROGUE
2577 100 CONTINUE
2579 AA( I + ( J - 1 )*LDA ) = A( I, J )
2580 110 CONTINUE
2582 AA( I + ( J - 1 )*LDA ) = ROGUE
2583 120 CONTINUE
2584 130 CONTINUE
2589 IBEG = MAX( 1, KL + 2 - J )
2602 IEND = MIN( KL + 1, 1 + M - J )
2604 DO 140 I = 1, IBEG - 1
2605 AA( I + ( J - 1 )*LDA ) = ROGUE
2606 140 CONTINUE
2608 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2609 150 CONTINUE
2611 AA( I + ( J - 1 )*LDA ) = ROGUE
2612 160 CONTINUE
2613 170 CONTINUE
2631 180 CONTINUE
2632 190 CONTINUE
2646 * -- Written on 10-August-1987.
2678 INCXL = -1
2685 INCYL = -1
2704 10 CONTINUE
2710 20 CONTINUE
2715 30 CONTINUE
2717 * Compute the error ratio for this result.
2721 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2727 40 CONTINUE
2731 * Report fatal error.
2738 $ YY( 1 + ( I - 1 )*ABS( INCY ) )
2741 $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT(I)
2743 60 CONTINUE
2745 70 CONTINUE
2748 9999 FORMAT( ' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
2762 * -- Written on 10-August-1987.
2776 10 CONTINUE
2779 20 CONTINUE
2794 * -- Written on 10-August-1987.
2814 10 CONTINUE
2815 20 CONTINUE
2825 DO 30 I = 1, IBEG - 1
2828 30 CONTINUE
2832 40 CONTINUE
2833 50 CONTINUE
2836 60 CONTINUE
2839 70 CONTINUE
2848 * Generates random numbers uniformly distributed between -0.5 and 0.5.
2852 * -- Written on 10-August-1987.
2881 I = I - 1000*( I/1000 )
2886 DBEG = DBLE( I - 500 )/1001.0D0
2896 * -- Written on 10-August-1987.
2902 DDIFF = X - Y