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.
115 * Read the flag that indicates whether error exits are to be tested.
126 GO TO 220
132 GO TO 220
139 GO TO 220
146 GO TO 220
165 * whether they are to be tested.
173 $ GO TO 50
178 GO TO 30
188 $ GO TO 80
190 GO TO 70
263 * Subprogram is not to be tested.
276 GO TO ( 140, 150, 160, 160, 170, 180 )ISNUM
282 GO TO 190
288 GO TO 190
293 GO TO 190
299 GO TO 190
304 GO TO 190
307 $ GO TO 210
311 GO TO 230
315 GO TO 230
328 9998 FORMAT( ' RELATIVE MACHINE PRECISION IS TAKEN TO BE', 1P, D9.1 )
344 $ 'ERR = ', F12.3, '.', /' THIS MAY BE DUE TO FAULTS IN THE ',
421 * Set LDC to 1 more than minimum value if room.
427 $ GO TO 100
445 * Set LDA to 1 more than minimum value if room.
451 $ GO TO 80
470 * Set LDB to 1 more than minimum value if room.
476 $ GO TO 70
536 GO TO 120
571 GO TO 120
586 $ GO TO 120
610 GO TO 130
702 * Set LDC to 1 more than minimum value if room.
708 $ GO TO 90
712 * Set LDB to 1 more than minimum value if room.
718 $ GO TO 90
735 * Set LDA to 1 more than minimum value if room.
741 $ GO TO 80
802 GO TO 110
836 GO TO 110
858 $ GO TO 110
880 GO TO 120
979 * Set LDB to 1 more than minimum value if room.
985 $ GO TO 130
997 * Set LDA to 1 more than minimum value if room.
1003 $ GO TO 130
1076 GO TO 150
1109 GO TO 150
1132 * Compute approximation to original
1162 $ GO TO 150
1186 GO TO 160
1275 * Set LDC to 1 more than minimum value if room.
1281 $ GO TO 100
1298 * Set LDA to 1 more than minimum value if room.
1304 $ GO TO 80
1361 GO TO 120
1393 GO TO 120
1433 $ GO TO 110
1456 GO TO 130
1550 * Set LDC to 1 more than minimum value if room.
1556 $ GO TO 130
1573 * Set LDA to 1 more than minimum value if room.
1579 $ GO TO 110
1657 GO TO 150
1691 GO TO 150
1746 $ GO TO 140
1769 GO TO 160
1805 * ALPHA, BETA, A, B and C should not need to be defined.
1831 * OK is set to .FALSE. by the special version of XERBLA or by CHKXER
1834 * LERR is set to .TRUE. by the special version of XERBLA each time
1837 GO TO ( 10, 20, 30, 40, 50, 60 )ISNUM
1922 GO TO 70
1989 GO TO 70
2098 GO TO 70
2207 GO TO 70
2262 GO TO 70
2349 * by the routine, with unwanted elements set to rogue value.
2396 * Set some elements to zero
2545 $ GO TO 130
2551 GO TO 150
2600 $ GO TO 20
2603 GO TO 30
2640 $ GO TO 70
2654 $ GO TO 70
2658 $ GO TO 70
2665 GO TO 80
2704 * IC is used to break up the period by skipping 1 value of I in 6.
2711 GO TO 10
2770 * This is a special version of XERBLA to be used only as part of
