Lines Matching refs:TO
14 * F LOGICAL FLAG, T TO REWIND SNAPSHOT FILE AFTER EACH RECORD.
15 * F LOGICAL FLAG, T TO STOP ON FAILURES.
16 * T LOGICAL FLAG, T TO TEST ERROR EXITS.
140 * Read the flag that indicates whether error exits are to be tested.
151 GO TO 230
157 GO TO 230
164 GO TO 230
170 GO TO 230
177 GO TO 230
183 GO TO 230
190 GO TO 230
197 GO TO 230
218 * whether they are to be tested.
226 $ GO TO 70
231 GO TO 50
241 $ GO TO 100
243 GO TO 90
285 * Subprogram is not to be tested.
298 GO TO ( 140, 140, 150, 150, 150, 160, 160,
306 GO TO 200
312 GO TO 200
318 GO TO 200
324 GO TO 200
330 GO TO 200
338 $ GO TO 220
342 GO TO 240
346 GO TO 240
359 9998 FORMAT( ' RELATIVE MACHINE PRECISION IS TAKEN TO BE', 1P, E9.1 )
380 $ ' THIS MAY BE DUE TO FAULTS IN THE ARITHMETIC OR THE COMPILER.'
483 * Set LDA to 1 more than minimum value if room.
493 $ GO TO 100
600 GO TO 130
653 GO TO 130
668 $ GO TO 130
672 GO TO 110
698 GO TO 140
817 * Set LDA to 1 more than minimum value if room.
827 $ GO TO 100
932 GO TO 120
994 GO TO 120
1009 $ GO TO 120
1012 GO TO 110
1036 GO TO 130
1161 * Set LDA to 1 more than minimum value if room.
1171 $ GO TO 100
1288 GO TO 120
1340 GO TO 120
1354 * Compute approximation to original vector.
1370 $ GO TO 120
1373 GO TO 110
1395 GO TO 130
1499 * Set LDA to 1 more than minimum value if room.
1505 $ GO TO 110
1581 GO TO 140
1611 GO TO 140
1640 $ GO TO 130
1644 GO TO 110
1664 GO TO 150
1761 * Set LDA to 1 more than minimum value if room.
1767 $ GO TO 100
1841 GO TO 120
1871 GO TO 120
1913 $ GO TO 110
1918 $ GO TO 100
1936 GO TO 130
2040 * Set LDA to 1 more than minimum value if room.
2046 $ GO TO 140
2141 GO TO 160
2173 GO TO 160
2225 $ GO TO 150
2230 $ GO TO 140
2250 GO TO 170
2290 * ALPHA, BETA, A, X and Y should not need to be defined.
2315 * OK is set to .FALSE. by the special version of XERBLA or by CHKXER
2318 * LERR is set to .TRUE. by the special version of XERBLA each time
2321 GO TO ( 10, 20, 30, 40, 50, 60, 70, 80,
2342 GO TO 170
2367 GO TO 170
2383 GO TO 170
2402 GO TO 170
2415 GO TO 170
2434 GO TO 170
2456 GO TO 170
2472 GO TO 170
2491 GO TO 170
2513 GO TO 170
2529 GO TO 170
2545 GO TO 170
2558 GO TO 170
2568 GO TO 170
2584 GO TO 170
2618 * by the routine, with unwanted elements set to rogue value.
2875 $ GO TO 50
2878 GO TO 70
2924 $ GO TO 20
2927 GO TO 30
2962 $ GO TO 70
2976 $ GO TO 70
2980 $ GO TO 70
2987 GO TO 80
3026 * IC is used to break up the period by skipping 1 value of I in 6.
3033 GO TO 10
3087 * This is a special version of XERBLA to be used only as part of
