Home | History | Annotate | Download | only in f2c

Lines Matching refs:i__

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