Lines Matching refs:i__
23 integer i__, j, k, kk, ix, iy, jx, jy, kx, ky, info;
183 for (i__ = 1; i__ <= i__1; ++i__) {
184 y[i__] = 0.;
189 for (i__ = 1; i__ <= i__1; ++i__) {
190 y[i__] = *beta * y[i__];
198 for (i__ = 1; i__ <= i__1; ++i__) {
205 for (i__ = 1; i__ <= i__1; ++i__) {
228 for (i__ = 1; i__ <= i__2; ++i__) {
229 y[i__] += temp1 * ap[k];
230 temp2 += ap[k] * x[i__];
274 for (i__ = j + 1; i__ <= i__2; ++i__) {
275 y[i__] += temp1 * ap[k];
276 temp2 += ap[k] * x[i__];
