Lines Matching refs:i__
27 integer i__; in drotm_() local
116 for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) { in drotm_()
117 w = dx[i__]; in drotm_()
118 z__ = dy[i__]; in drotm_()
119 dx[i__] = w + z__ * dh12; in drotm_()
120 dy[i__] = w * dh21 + z__; in drotm_()
129 for (i__ = 1; i__1 < 0 ? i__ >= i__2 : i__ <= i__2; i__ += i__1) { in drotm_()
130 w = dx[i__]; in drotm_()
131 z__ = dy[i__]; in drotm_()
132 dx[i__] = w * dh11 + z__; in drotm_()
133 dy[i__] = -w + dh22 * z__; in drotm_()
144 for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) { in drotm_()
145 w = dx[i__]; in drotm_()
146 z__ = dy[i__]; in drotm_()
147 dx[i__] = w * dh11 + z__ * dh12; in drotm_()
148 dy[i__] = w * dh21 + z__ * dh22; in drotm_()
173 for (i__ = 1; i__ <= i__2; ++i__) { in drotm_()
187 for (i__ = 1; i__ <= i__2; ++i__) { in drotm_()
203 for (i__ = 1; i__ <= i__2; ++i__) { in drotm_()