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.
111 * Read the flag that directs stopping on any failure.
113 * Read the flag that indicates whether error exits are to be tested.
115 * Read the flag that indicates whether row-major data layout to be tested.
134 10 CONTINUE
185 20 CONTINUE
190 40 CONTINUE
196 60 CONTINUE
202 70 CONTINUE
207 80 CONTINUE
216 AB( I, J ) = MAX( I - J + 1, 0 )
217 90 CONTINUE
221 100 CONTINUE
223 CC( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
224 110 CONTINUE
225 * CC holds the exact result. On exit from DMMCH CT holds
247 AB( J, NMAX + 1 ) = N - J + 1
248 AB( 1, NMAX + J ) = N - J + 1
249 120 CONTINUE
251 CC( N - J + 1 ) = J*( ( J + 1 )*J )/2 -
252 $ ( ( J + 1 )*J*( J - 1 ) )/3
253 130 CONTINUE
283 * Test error exits.
367 200 CONTINUE
371 210 CONTINUE
375 220 CONTINUE
378 230 CONTINUE
384 10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )
385 10001 FORMAT( ' ROW-MAJOR DATA LAYOUT IS TESTED' )
386 10000 FORMAT( ' COLUMN-MAJOR DATA LAYOUT IS TESTED' )
402 9989 FORMAT( ' ERROR IN DMMCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
411 9985 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
412 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 *',
749 * -- Written on 8-February-1989.
879 10 CONTINUE
883 20 CONTINUE
888 30 CONTINUE
902 * Check if error-exit was taken incorrectly.
938 40 CONTINUE
966 50 CONTINUE
968 60 CONTINUE
970 70 CONTINUE
972 80 CONTINUE
974 90 CONTINUE
976 100 CONTINUE
989 110 CONTINUE
994 120 CONTINUE
997 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
999 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1000 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1002 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1003 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1005 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1007 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1009 9996 FORMAT( ' ******* ', A12,' FAILED ON CALL NUMBER:' )
1013 9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1059 * -- Written on 8-February-1989.
1115 10 CONTINUE
1116 20 CONTINUE
1186 30 CONTINUE
1190 40 CONTINUE
1217 * Check if error-exit was taken incorrectly.
1252 50 CONTINUE
1283 C( I, J ) = BB( I + ( J - 1 )*
1285 BB( I + ( J - 1 )*LDB ) = ALPHA*
1287 60 CONTINUE
1288 70 CONTINUE
1311 80 CONTINUE
1313 90 CONTINUE
1315 100 CONTINUE
1317 110 CONTINUE
1319 120 CONTINUE
1321 130 CONTINUE
1323 140 CONTINUE
1336 150 CONTINUE
1341 160 CONTINUE
1344 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1346 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1347 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1349 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1350 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1352 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1354 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1356 9996 FORMAT( ' ******* ', A12,' FAILED ON CALL NUMBER:' )
1359 9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1417 * -- Written on 8-February-1989.
1535 10 CONTINUE
1540 20 CONTINUE
1553 * Check if error-exit was taken incorrectly.
1587 30 CONTINUE
1604 LJ = N - J + 1
1631 40 CONTINUE
1634 50 CONTINUE
1636 60 CONTINUE
1638 70 CONTINUE
1640 80 CONTINUE
1642 90 CONTINUE
1644 100 CONTINUE
1657 110 CONTINUE
1661 120 CONTINUE
1666 130 CONTINUE
1669 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1671 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1672 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1674 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1675 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1677 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1679 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1681 9996 FORMAT( ' ******* ', A12,' FAILED ON CALL NUMBER:' )
1685 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1734 * -- Written on 8-February-1989.
1869 10 CONTINUE
1873 20 CONTINUE
1878 30 CONTINUE
1892 * Check if error-exit was taken incorrectly.
1928 40 CONTINUE
1946 LJ = N - J + 1
1950 W( I ) = AB( ( J - 1 )*2*NMAX + K +
1952 W( K + I ) = AB( ( J - 1 )*2*NMAX +
1954 50 CONTINUE
1963 W( I ) = AB( ( K + I - 1 )*NMAX +
1965 W( K + I ) = AB( ( I - 1 )*NMAX +
1967 60 CONTINUE
1987 70 CONTINUE
1990 80 CONTINUE
1992 90 CONTINUE
1994 100 CONTINUE
1996 110 CONTINUE
1998 120 CONTINUE
2000 130 CONTINUE
2013 140 CONTINUE
2017 150 CONTINUE
2022 160 CONTINUE
2025 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
2027 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2028 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
2030 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2031 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
2033 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
2035 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2037 9996 FORMAT( ' ******* ', A12,' FAILED ON CALL NUMBER:' )
2042 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2093 * -- Written on 8-February-1989.
2103 PARAMETER ( ROGUE = -1.0D10 )
2144 10 CONTINUE
2149 20 CONTINUE
2156 AA( I + ( J - 1 )*LDA ) = A( I, J )
2157 30 CONTINUE
2159 AA( I + ( J - 1 )*LDA ) = ROGUE
2160 40 CONTINUE
2161 50 CONTINUE
2167 IEND = J - 1
2179 DO 60 I = 1, IBEG - 1
2180 AA( I + ( J - 1 )*LDA ) = ROGUE
2181 60 CONTINUE
2183 AA( I + ( J - 1 )*LDA ) = A( I, J )
2184 70 CONTINUE
2186 AA( I + ( J - 1 )*LDA ) = ROGUE
2187 80 CONTINUE
2188 90 CONTINUE
2203 * -- Written on 8-February-1989.
2239 10 CONTINUE
2245 20 CONTINUE
2246 30 CONTINUE
2252 40 CONTINUE
2253 50 CONTINUE
2259 60 CONTINUE
2260 70 CONTINUE
2266 80 CONTINUE
2267 90 CONTINUE
2272 100 CONTINUE
2274 * Compute the error ratio for this result.
2278 ERRI = ABS( CT( I ) - CC( I, J ) )/EPS
2284 110 CONTINUE
2286 120 CONTINUE
2291 * Report fatal error.
2301 140 CONTINUE
2305 150 CONTINUE
2308 9999 FORMAT( ' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
2323 * -- Written on 8-February-1989.
2339 10 CONTINUE
2342 20 CONTINUE
2357 * -- Written on 8-February-1989.
2379 10 CONTINUE
2380 20 CONTINUE
2390 DO 30 I = 1, IBEG - 1
2393 30 CONTINUE
2397 40 CONTINUE
2398 50 CONTINUE
2401 60 CONTINUE
2404 70 CONTINUE
2413 * Generates random numbers uniformly distributed between -0.5 and 0.5.
2417 * -- Written on 8-February-1989.
2446 I = I - 1000*( I/1000 )
2451 DBEG = ( I - 500 )/1001.0D0
2461 * -- Written on 8-February-1989.
2470 DDIFF = X - Y