Lines Matching refs:IBEG
2712 INTEGER I, I1, I2, I3, IBEG, IEND, IOFF, J, JJ, KK
2782 IBEG = 1
2790 IBEG = J + 1
2792 IBEG = J
2796 DO 100 I = 1, IBEG - 1
2799 DO 110 I = IBEG, IEND
2814 IBEG = MAX( 1, KL + 2 - J )
2823 IBEG = 2
2825 IBEG = 1
2829 DO 140 I = 1, IBEG - 1
2832 DO 150 I = IBEG, IEND
2847 IBEG = 1
2850 IBEG = J
2853 DO 180 I = IBEG, IEND
3051 INTEGER I, IBEG, IEND, J
3065 IBEG = 1
3068 IBEG = J
3071 DO 30 I = 1, IBEG - 1