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.
145 * Read the flag that indicates whether error exits are to be tested.
156 GO TO 230
162 GO TO 230
169 GO TO 230
175 GO TO 230
182 GO TO 230
188 GO TO 230
195 GO TO 230
202 GO TO 230
223 * whether they are to be tested.
231 $ GO TO 70
236 GO TO 50
246 $ GO TO 100
248 GO TO 90
290 * Subprogram is not to be tested.
303 GO TO ( 140, 140, 150, 150, 150, 160, 160,
311 GO TO 200
317 GO TO 200
323 GO TO 200
329 GO TO 200
335 GO TO 200
343 $ GO TO 220
347 GO TO 240
351 GO TO 240
364 9998 FORMAT( ' RELATIVE MACHINE PRECISION IS TAKEN TO BE', 1P, E9.1 )
387 $ ' THIS MAY BE DUE TO FAULTS IN THE ARITHMETIC OR THE COMPILER.'
493 * Set LDA to 1 more than minimum value if room.
503 $ GO TO 100
610 GO TO 130
663 GO TO 130
678 $ GO TO 130
682 GO TO 110
708 GO TO 140
831 * Set LDA to 1 more than minimum value if room.
841 $ GO TO 100
946 GO TO 120
1008 GO TO 120
1023 $ GO TO 120
1026 GO TO 110
1050 GO TO 130
1181 * Set LDA to 1 more than minimum value if room.
1191 $ GO TO 100
1308 GO TO 120
1360 GO TO 120
1374 * Compute approximation to original vector.
1390 $ GO TO 120
1393 GO TO 110
1415 GO TO 130
1525 * Set LDA to 1 more than minimum value if room.
1531 $ GO TO 110
1614 GO TO 140
1644 GO TO 140
1675 $ GO TO 130
1679 GO TO 110
1699 GO TO 150
1802 * Set LDA to 1 more than minimum value if room.
1808 $ GO TO 100
1883 GO TO 120
1913 GO TO 120
1955 $ GO TO 110
1960 $ GO TO 100
1978 GO TO 130
2087 * Set LDA to 1 more than minimum value if room.
2093 $ GO TO 140
2188 GO TO 160
2220 GO TO 160
2272 $ GO TO 150
2277 $ GO TO 140
2297 GO TO 170
2339 * ALPHA, RALPHA, BETA, A, X and Y should not need to be defined.
2365 * OK is set to .FALSE. by the special version of XERBLA or by CHKXER
2368 * LERR is set to .TRUE. by the special version of XERBLA each time
2371 GO TO ( 10, 20, 30, 40, 50, 60, 70, 80,
2392 GO TO 180
2417 GO TO 180
2433 GO TO 180
2452 GO TO 180
2465 GO TO 180
2484 GO TO 180
2506 GO TO 180
2522 GO TO 180
2541 GO TO 180
2563 GO TO 180
2579 GO TO 180
2595 GO TO 180
2611 GO TO 180
2624 GO TO 180
2634 GO TO 180
2650 GO TO 180
2684 * by the routine, with unwanted elements set to rogue value.
2972 $ GO TO 60
2975 GO TO 80
3021 $ GO TO 20
3024 GO TO 30
3059 $ GO TO 70
3073 $ GO TO 70
3077 $ GO TO 70
3084 GO TO 80
3126 * IC is used to break up the period by skipping 1 value of I or J
3136 GO TO 10
3190 * This is a special version of XERBLA to be used only as part of
