Lines Matching refs:i__
27 integer i__; in srotm_() local
117 for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) { in srotm_()
118 w = sx[i__]; in srotm_()
119 z__ = sy[i__]; in srotm_()
120 sx[i__] = w + z__ * sh12; in srotm_()
121 sy[i__] = w * sh21 + z__; in srotm_()
130 for (i__ = 1; i__1 < 0 ? i__ >= i__2 : i__ <= i__2; i__ += i__1) { in srotm_()
131 w = sx[i__]; in srotm_()
132 z__ = sy[i__]; in srotm_()
133 sx[i__] = w * sh11 + z__; in srotm_()
134 sy[i__] = -w + sh22 * z__; in srotm_()
145 for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) { in srotm_()
146 w = sx[i__]; in srotm_()
147 z__ = sy[i__]; in srotm_()
148 sx[i__] = w * sh11 + z__ * sh12; in srotm_()
149 sy[i__] = w * sh21 + z__ * sh22; in srotm_()
174 for (i__ = 1; i__ <= i__2; ++i__) { in srotm_()
188 for (i__ = 1; i__ <= i__2; ++i__) { in srotm_()
204 for (i__ = 1; i__ <= i__2; ++i__) { in srotm_()