Lines Matching +full:continue +full:- +full:on +full:- +full:error
6 * of the file are read using list-directed input, the last 6 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
39 * -- Written on 8-February-1989.
110 * Read the flag that directs stopping on any failure.
112 * Read the flag that indicates whether error exits are to be tested.
114 * Read the flag that indicates whether row-major data layout to be tested.
133 10 CONTINUE
184 20 CONTINUE
189 40 CONTINUE
195 60 CONTINUE
201 70 CONTINUE
206 80 CONTINUE
215 AB( I, J ) = MAX( I - J + 1, 0 )
216 90 CONTINUE
220 100 CONTINUE
222 CC( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
223 110 CONTINUE
224 * CC holds the exact result. On exit from SMMCH CT holds
246 AB( J, NMAX + 1 ) = N - J + 1
247 AB( 1, NMAX + J ) = N - J + 1
248 120 CONTINUE
250 CC( N - J + 1 ) = J*( ( J + 1 )*J )/2 -
251 $ ( ( J + 1 )*J*( J - 1 ) )/3
252 130 CONTINUE
282 * Test error exits.
366 200 CONTINUE
370 210 CONTINUE
374 220 CONTINUE
377 230 CONTINUE
383 10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )
384 10001 FORMAT( ' ROW-MAJOR DATA LAYOUT IS TESTED' )
385 10000 FORMAT( ' COLUMN-MAJOR DATA LAYOUT IS TESTED' )
401 9989 FORMAT( ' ERROR IN SMMCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
410 9985 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
411 9984 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
425 * -- Written on 8-February-1989.
569 10 CONTINUE
573 20 CONTINUE
578 30 CONTINUE
593 * Check if error-exit was taken incorrectly.
630 40 CONTINUE
651 50 CONTINUE
653 60 CONTINUE
655 70 CONTINUE
657 80 CONTINUE
659 90 CONTINUE
661 100 CONTINUE
663 110 CONTINUE
676 120 CONTINUE
681 130 CONTINUE
684 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
686 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
687 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
689 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
690 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
692 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
694 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
696 9996 FORMAT( ' ******* ', A12,' FAILED ON CALL NUMBER:' )
700 9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
753 * -- Written on 8-February-1989.
883 10 CONTINUE
887 20 CONTINUE
892 30 CONTINUE
906 * Check if error-exit was taken incorrectly.
942 40 CONTINUE
970 50 CONTINUE
972 60 CONTINUE
974 70 CONTINUE
976 80 CONTINUE
978 90 CONTINUE
980 100 CONTINUE
993 110 CONTINUE
998 120 CONTINUE
1001 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1003 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1004 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1006 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1007 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1009 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1011 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1013 9996 FORMAT( ' ******* ', A12,' FAILED ON CALL NUMBER:' )
1017 9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1063 * -- Written on 8-February-1989.
1119 10 CONTINUE
1120 20 CONTINUE
1190 30 CONTINUE
1194 40 CONTINUE
1221 * Check if error-exit was taken incorrectly.
1256 50 CONTINUE
1287 C( I, J ) = BB( I + ( J - 1 )*
1289 BB( I + ( J - 1 )*LDB ) = ALPHA*
1291 60 CONTINUE
1292 70 CONTINUE
1315 80 CONTINUE
1317 90 CONTINUE
1319 100 CONTINUE
1321 110 CONTINUE
1323 120 CONTINUE
1325 130 CONTINUE
1327 140 CONTINUE
1340 150 CONTINUE
1345 160 CONTINUE
1348 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1350 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1351 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1353 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1354 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1356 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1358 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1360 9996 FORMAT( ' ******* ', A12,' FAILED ON CALL NUMBER:' )
1363 9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1422 * -- Written on 8-February-1989.
1540 10 CONTINUE
1545 20 CONTINUE
1558 * Check if error-exit was taken incorrectly.
1592 30 CONTINUE
1609 LJ = N - J + 1
1636 40 CONTINUE
1639 50 CONTINUE
1641 60 CONTINUE
1643 70 CONTINUE
1645 80 CONTINUE
1647 90 CONTINUE
1649 100 CONTINUE
1662 110 CONTINUE
1666 120 CONTINUE
1671 130 CONTINUE
1674 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1676 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1677 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1679 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1680 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1682 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1684 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1686 9996 FORMAT( ' ******* ', A12,' FAILED ON CALL NUMBER:' )
1690 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1739 * -- Written on 8-February-1989.
1874 10 CONTINUE
1878 20 CONTINUE
1883 30 CONTINUE
1896 * Check if error-exit was taken incorrectly.
1932 40 CONTINUE
1950 LJ = N - J + 1
1954 W( I ) = AB( ( J - 1 )*2*NMAX + K +
1956 W( K + I ) = AB( ( J - 1 )*2*NMAX +
1958 50 CONTINUE
1967 W( I ) = AB( ( K + I - 1 )*NMAX +
1969 W( K + I ) = AB( ( I - 1 )*NMAX +
1971 60 CONTINUE
1991 70 CONTINUE
1994 80 CONTINUE
1996 90 CONTINUE
1998 100 CONTINUE
2000 110 CONTINUE
2002 120 CONTINUE
2004 130 CONTINUE
2017 140 CONTINUE
2021 150 CONTINUE
2026 160 CONTINUE
2029 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
2031 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2032 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
2034 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2035 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
2037 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
2039 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2041 9996 FORMAT( ' ******* ', A12,' FAILED ON CALL NUMBER:' )
2046 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2097 * -- Written on 8-February-1989.
2107 PARAMETER ( ROGUE = -1.0E10 )
2148 10 CONTINUE
2153 20 CONTINUE
2160 AA( I + ( J - 1 )*LDA ) = A( I, J )
2161 30 CONTINUE
2163 AA( I + ( J - 1 )*LDA ) = ROGUE
2164 40 CONTINUE
2165 50 CONTINUE
2171 IEND = J - 1
2183 DO 60 I = 1, IBEG - 1
2184 AA( I + ( J - 1 )*LDA ) = ROGUE
2185 60 CONTINUE
2187 AA( I + ( J - 1 )*LDA ) = A( I, J )
2188 70 CONTINUE
2190 AA( I + ( J - 1 )*LDA ) = ROGUE
2191 80 CONTINUE
2192 90 CONTINUE
2207 * -- Written on 8-February-1989.
2243 10 CONTINUE
2249 20 CONTINUE
2250 30 CONTINUE
2256 40 CONTINUE
2257 50 CONTINUE
2263 60 CONTINUE
2264 70 CONTINUE
2270 80 CONTINUE
2271 90 CONTINUE
2276 100 CONTINUE
2278 * Compute the error ratio for this result.
2282 ERRI = ABS( CT( I ) - CC( I, J ) )/EPS
2288 110 CONTINUE
2290 120 CONTINUE
2295 * Report fatal error.
2305 140 CONTINUE
2309 150 CONTINUE
2312 9999 FORMAT( ' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
2327 * -- Written on 8-February-1989.
2343 10 CONTINUE
2346 20 CONTINUE
2361 * -- Written on 8-February-1989.
2383 10 CONTINUE
2384 20 CONTINUE
2394 DO 30 I = 1, IBEG - 1
2397 30 CONTINUE
2401 40 CONTINUE
2402 50 CONTINUE
2405 60 CONTINUE
2408 70 CONTINUE
2417 * Generates random numbers uniformly distributed between -0.5 and 0.5.
2421 * -- Written on 8-February-1989.
2450 I = I - 1000*( I/1000 )
2455 SBEG = ( I - 500 )/1001.0
2465 * -- Written on 8-February-1989.
2474 SDIFF = X - Y