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.
117 * Read the flag that directs stopping on any failure.
119 * Read the flag that indicates whether error exits are to be tested.
121 * Read the flag that indicates whether row-major data layout to be tested.
140 10 CONTINUE
191 20 CONTINUE
196 40 CONTINUE
202 60 CONTINUE
208 70 CONTINUE
213 80 CONTINUE
222 AB( I, J ) = MAX( I - J + 1, 0 )
223 90 CONTINUE
227 100 CONTINUE
229 CC( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
230 110 CONTINUE
231 * CC holds the exact result. On exit from ZMMCH CT holds
253 AB( J, NMAX + 1 ) = N - J + 1
254 AB( 1, NMAX + J ) = N - J + 1
255 120 CONTINUE
257 CC( N - J + 1 ) = J*( ( J + 1 )*J )/2 -
258 $ ( ( J + 1 )*J*( J - 1 ) )/3
259 130 CONTINUE
289 * Test error exits.
374 200 CONTINUE
378 210 CONTINUE
382 220 CONTINUE
385 230 CONTINUE
391 10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )
392 10001 FORMAT(' ROW-MAJOR DATA LAYOUT IS TESTED' )
393 10000 FORMAT(' COLUMN-MAJOR DATA LAYOUT IS TESTED' )
411 9989 FORMAT(' ERROR IN ZMMCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
420 9985 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
421 9984 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
435 * -- Written on 8-February-1989.
583 10 CONTINUE
587 20 CONTINUE
592 30 CONTINUE
607 * Check if error-exit was taken incorrectly.
644 40 CONTINUE
665 50 CONTINUE
667 60 CONTINUE
669 70 CONTINUE
671 80 CONTINUE
673 90 CONTINUE
675 100 CONTINUE
677 110 CONTINUE
690 120 CONTINUE
695 130 CONTINUE
698 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
700 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
701 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
703 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
704 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
706 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
708 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
710 9996 FORMAT( ' ******* ', A12,' FAILED ON CALL NUMBER:' )
714 9994 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
765 * -- Written on 8-February-1989.
899 10 CONTINUE
903 20 CONTINUE
908 30 CONTINUE
929 * Check if error-exit was taken incorrectly.
965 40 CONTINUE
993 50 CONTINUE
995 60 CONTINUE
997 70 CONTINUE
999 80 CONTINUE
1001 90 CONTINUE
1003 100 CONTINUE
1016 110 CONTINUE
1021 120 CONTINUE
1024 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1026 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1027 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1029 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1030 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1032 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1034 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1036 9996 FORMAT( ' ******* ', A12,' FAILED ON CALL NUMBER:' )
1040 9994 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1086 * -- Written on 8-February-1989.
1146 10 CONTINUE
1147 20 CONTINUE
1217 30 CONTINUE
1221 40 CONTINUE
1248 * Check if error-exit was taken incorrectly.
1283 50 CONTINUE
1314 C( I, J ) = BB( I + ( J - 1 )*
1316 BB( I + ( J - 1 )*LDB ) = ALPHA*
1318 60 CONTINUE
1319 70 CONTINUE
1342 80 CONTINUE
1344 90 CONTINUE
1346 100 CONTINUE
1348 110 CONTINUE
1350 120 CONTINUE
1352 130 CONTINUE
1354 140 CONTINUE
1367 150 CONTINUE
1372 160 CONTINUE
1375 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1377 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1378 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1380 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1381 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1383 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1385 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1387 9996 FORMAT(' ******* ', A12,' FAILED ON CALL NUMBER:' )
1391 9994 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1450 * -- Written on 8-February-1989.
1589 10 CONTINUE
1598 20 CONTINUE
1623 * Check if error-exit was taken incorrectly.
1665 30 CONTINUE
1687 LJ = N - J + 1
1714 40 CONTINUE
1717 50 CONTINUE
1719 60 CONTINUE
1721 70 CONTINUE
1723 80 CONTINUE
1725 90 CONTINUE
1727 100 CONTINUE
1740 110 CONTINUE
1744 120 CONTINUE
1754 130 CONTINUE
1757 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1759 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1760 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1762 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1763 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1765 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1767 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1769 9996 FORMAT( ' ******* ', A12,' FAILED ON CALL NUMBER:' )
1777 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1860 * -- Written on 8-February-1989.
2008 10 CONTINUE
2012 20 CONTINUE
2021 30 CONTINUE
2048 * Check if error-exit was taken incorrectly.
2088 40 CONTINUE
2111 LJ = N - J + 1
2115 W( I ) = ALPHA*AB( ( J - 1 )*2*
2119 $ AB( ( J - 1 )*2*
2123 $ AB( ( J - 1 )*2*
2126 50 CONTINUE
2137 $ I - 1 )*NMAX + J ) )
2139 $ AB( ( I - 1 )*NMAX +
2142 W( I ) = ALPHA*AB( ( K + I - 1 )*
2145 $ AB( ( I - 1 )*NMAX +
2148 60 CONTINUE
2167 70 CONTINUE
2170 80 CONTINUE
2172 90 CONTINUE
2174 100 CONTINUE
2176 110 CONTINUE
2178 120 CONTINUE
2180 130 CONTINUE
2193 140 CONTINUE
2197 150 CONTINUE
2207 160 CONTINUE
2210 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
2212 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2213 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
2215 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2216 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
2218 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
2220 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2222 9996 FORMAT( ' ******* ', A12,' FAILED ON CALL NUMBER:' )
2230 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2316 * -- Written on 8-February-1989.
2327 PARAMETER ( ROGUE = ( -1.0D10, 1.0D10 ) )
2331 PARAMETER ( RROGUE = -1.0D10 )
2377 10 CONTINUE
2384 20 CONTINUE
2391 AA( I + ( J - 1 )*LDA ) = A( I, J )
2392 30 CONTINUE
2394 AA( I + ( J - 1 )*LDA ) = ROGUE
2395 40 CONTINUE
2396 50 CONTINUE
2402 IEND = J - 1
2414 DO 60 I = 1, IBEG - 1
2415 AA( I + ( J - 1 )*LDA ) = ROGUE
2416 60 CONTINUE
2418 AA( I + ( J - 1 )*LDA ) = A( I, J )
2419 70 CONTINUE
2421 AA( I + ( J - 1 )*LDA ) = ROGUE
2422 80 CONTINUE
2424 JJ = J + ( J - 1 )*LDA
2427 90 CONTINUE
2442 * -- Written on 8-February-1989.
2489 10 CONTINUE
2495 20 CONTINUE
2496 30 CONTINUE
2504 40 CONTINUE
2505 50 CONTINUE
2512 60 CONTINUE
2513 70 CONTINUE
2522 80 CONTINUE
2523 90 CONTINUE
2530 100 CONTINUE
2531 110 CONTINUE
2542 120 CONTINUE
2543 130 CONTINUE
2551 140 CONTINUE
2552 150 CONTINUE
2562 160 CONTINUE
2563 170 CONTINUE
2570 180 CONTINUE
2571 190 CONTINUE
2579 200 CONTINUE
2581 * Compute the error ratio for this result.
2585 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
2591 210 CONTINUE
2593 220 CONTINUE
2598 * Report fatal error.
2608 240 CONTINUE
2612 250 CONTINUE
2615 9999 FORMAT( ' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
2630 * -- Written on 8-February-1989.
2646 10 CONTINUE
2649 20 CONTINUE
2664 * -- Written on 8-February-1989.
2686 10 CONTINUE
2687 20 CONTINUE
2697 DO 30 I = 1, IBEG - 1
2700 30 CONTINUE
2704 40 CONTINUE
2705 50 CONTINUE
2708 60 CONTINUE
2711 70 CONTINUE
2721 * distributed between -0.5 and 0.5.
2725 * -- Written on 8-February-1989.
2760 I = I - 1000*( I/1000 )
2761 J = J - 1000*( J/1000 )
2766 ZBEG = DCMPLX( ( I - 500 )/1001.0D0, ( J - 500 )/1001.0D0 )
2776 * -- Written on 8-February-1989.
2785 DDIFF = X - Y