Lines Matching +full:continue +full:- +full:on +full:- +full:error
6 * of the file are read using list-directed input, the last 9 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
20 * (0.0,0.0) (1.0,0.0) (0.7,-0.9) VALUES OF ALPHA
22 * (0.0,0.0) (1.0,0.0) (1.3,-1.1) VALUES OF BETA
42 * -- Written on 8-February-1989.
116 * Read the flag that directs stopping on any failure.
118 * Read the flag that indicates whether error exits are to be tested.
120 * Read the flag that indicates whether row-major data layout to be tested.
139 10 CONTINUE
190 20 CONTINUE
195 40 CONTINUE
201 60 CONTINUE
207 70 CONTINUE
212 80 CONTINUE
221 AB( I, J ) = MAX( I - J + 1, 0 )
222 90 CONTINUE
226 100 CONTINUE
228 CC( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
229 110 CONTINUE
230 * CC holds the exact result. On exit from CMMCH CT holds
252 AB( J, NMAX + 1 ) = N - J + 1
253 AB( 1, NMAX + J ) = N - J + 1
254 120 CONTINUE
256 CC( N - J + 1 ) = J*( ( J + 1 )*J )/2 -
257 $ ( ( J + 1 )*J*( J - 1 ) )/3
258 130 CONTINUE
288 * Test error exits.
373 200 CONTINUE
377 210 CONTINUE
381 220 CONTINUE
384 230 CONTINUE
390 10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )
391 10001 FORMAT(' ROW-MAJOR DATA LAYOUT IS TESTED' )
392 10000 FORMAT(' COLUMN-MAJOR DATA LAYOUT IS TESTED' )
410 9989 FORMAT(' ERROR IN CMMCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
419 9985 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
420 9984 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
434 * -- Written on 8-February-1989.
582 10 CONTINUE
586 20 CONTINUE
591 30 CONTINUE
606 * Check if error-exit was taken incorrectly.
643 40 CONTINUE
664 50 CONTINUE
666 60 CONTINUE
668 70 CONTINUE
670 80 CONTINUE
672 90 CONTINUE
674 100 CONTINUE
676 110 CONTINUE
689 120 CONTINUE
694 130 CONTINUE
697 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
699 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
700 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
702 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
703 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
705 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
707 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
709 9996 FORMAT( ' ******* ', A12,' FAILED ON CALL NUMBER:' )
713 9994 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
764 * -- Written on 8-February-1989.
898 10 CONTINUE
902 20 CONTINUE
907 30 CONTINUE
928 * Check if error-exit was taken incorrectly.
964 40 CONTINUE
992 50 CONTINUE
994 60 CONTINUE
996 70 CONTINUE
998 80 CONTINUE
1000 90 CONTINUE
1002 100 CONTINUE
1015 110 CONTINUE
1020 120 CONTINUE
1023 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1025 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1026 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1028 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1029 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1031 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1033 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1035 9996 FORMAT( ' ******* ', A12,' FAILED ON CALL NUMBER:' )
1039 9994 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1085 * -- Written on 8-February-1989.
1145 10 CONTINUE
1146 20 CONTINUE
1216 30 CONTINUE
1220 40 CONTINUE
1247 * Check if error-exit was taken incorrectly.
1282 50 CONTINUE
1313 C( I, J ) = BB( I + ( J - 1 )*
1315 BB( I + ( J - 1 )*LDB ) = ALPHA*
1317 60 CONTINUE
1318 70 CONTINUE
1341 80 CONTINUE
1343 90 CONTINUE
1345 100 CONTINUE
1347 110 CONTINUE
1349 120 CONTINUE
1351 130 CONTINUE
1353 140 CONTINUE
1366 150 CONTINUE
1371 160 CONTINUE
1374 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1376 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1377 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1379 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1380 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1382 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1384 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1386 9996 FORMAT(' ******* ', A12,' FAILED ON CALL NUMBER:' )
1390 9994 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1449 * -- Written on 8-February-1989.
1588 10 CONTINUE
1597 20 CONTINUE
1622 * Check if error-exit was taken incorrectly.
1664 30 CONTINUE
1686 LJ = N - J + 1
1713 40 CONTINUE
1716 50 CONTINUE
1718 60 CONTINUE
1720 70 CONTINUE
1722 80 CONTINUE
1724 90 CONTINUE
1726 100 CONTINUE
1739 110 CONTINUE
1743 120 CONTINUE
1753 130 CONTINUE
1756 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1758 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1759 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1761 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1762 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1764 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1766 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1768 9996 FORMAT( ' ******* ', A12,' FAILED ON CALL NUMBER:' )
1776 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1859 * -- Written on 8-February-1989.
2007 10 CONTINUE
2011 20 CONTINUE
2020 30 CONTINUE
2047 * Check if error-exit was taken incorrectly.
2087 40 CONTINUE
2110 LJ = N - J + 1
2114 W( I ) = ALPHA*AB( ( J - 1 )*2*
2118 $ AB( ( J - 1 )*2*
2122 $ AB( ( J - 1 )*2*
2125 50 CONTINUE
2136 $ I - 1 )*NMAX + J ) )
2138 $ AB( ( I - 1 )*NMAX +
2141 W( I ) = ALPHA*AB( ( K + I - 1 )*
2144 $ AB( ( I - 1 )*NMAX +
2147 60 CONTINUE
2166 70 CONTINUE
2169 80 CONTINUE
2171 90 CONTINUE
2173 100 CONTINUE
2175 110 CONTINUE
2177 120 CONTINUE
2179 130 CONTINUE
2192 140 CONTINUE
2196 150 CONTINUE
2206 160 CONTINUE
2209 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
2211 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2212 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
2214 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2215 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
2217 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
2219 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2221 9996 FORMAT( ' ******* ', A12,' FAILED ON CALL NUMBER:' )
2229 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2315 * -- Written on 8-February-1989.
2325 PARAMETER ( ROGUE = ( -1.0E10, 1.0E10 ) )
2329 PARAMETER ( RROGUE = -1.0E10 )
2375 10 CONTINUE
2382 20 CONTINUE
2389 AA( I + ( J - 1 )*LDA ) = A( I, J )
2390 30 CONTINUE
2392 AA( I + ( J - 1 )*LDA ) = ROGUE
2393 40 CONTINUE
2394 50 CONTINUE
2400 IEND = J - 1
2412 DO 60 I = 1, IBEG - 1
2413 AA( I + ( J - 1 )*LDA ) = ROGUE
2414 60 CONTINUE
2416 AA( I + ( J - 1 )*LDA ) = A( I, J )
2417 70 CONTINUE
2419 AA( I + ( J - 1 )*LDA ) = ROGUE
2420 80 CONTINUE
2422 JJ = J + ( J - 1 )*LDA
2425 90 CONTINUE
2440 * -- Written on 8-February-1989.
2487 10 CONTINUE
2493 20 CONTINUE
2494 30 CONTINUE
2502 40 CONTINUE
2503 50 CONTINUE
2510 60 CONTINUE
2511 70 CONTINUE
2520 80 CONTINUE
2521 90 CONTINUE
2528 100 CONTINUE
2529 110 CONTINUE
2540 120 CONTINUE
2541 130 CONTINUE
2548 140 CONTINUE
2549 150 CONTINUE
2558 160 CONTINUE
2559 170 CONTINUE
2566 180 CONTINUE
2567 190 CONTINUE
2575 200 CONTINUE
2577 * Compute the error ratio for this result.
2581 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
2587 210 CONTINUE
2589 220 CONTINUE
2594 * Report fatal error.
2604 240 CONTINUE
2608 250 CONTINUE
2611 9999 FORMAT(' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
2626 * -- Written on 8-February-1989.
2642 10 CONTINUE
2645 20 CONTINUE
2660 * -- Written on 8-February-1989.
2682 10 CONTINUE
2683 20 CONTINUE
2693 DO 30 I = 1, IBEG - 1
2696 30 CONTINUE
2700 40 CONTINUE
2701 50 CONTINUE
2704 60 CONTINUE
2707 70 CONTINUE
2717 * distributed between -0.5 and 0.5.
2721 * -- Written on 8-February-1989.
2756 I = I - 1000*( I/1000 )
2757 J = J - 1000*( J/1000 )
2762 CBEG = CMPLX( ( I - 500 )/1001.0, ( J - 500 )/1001.0 )
2772 * -- Written on 8-February-1989.
2781 SDIFF = X - Y