Lines Matching refs:i__2
21 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;
236 i__2 = i__;
237 y[i__2].r = 0., y[i__2].i = 0.;
243 i__2 = i__;
248 y[i__2].r = z__1.r, y[i__2].i = z__1.i;
257 i__2 = iy;
258 y[i__2].r = 0., y[i__2].i = 0.;
265 i__2 = iy;
270 y[i__2].r = z__1.r, y[i__2].i = z__1.i;
288 i__2 = j;
289 z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i =
290 alpha->r * x[i__2].i + alpha->i * x[i__2].r;
295 i__2 = 1, i__3 = j - *k;
297 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
298 i__2 = i__;
305 y[i__2].r = z__1.r, y[i__2].i = z__1.i;
307 i__2 = i__;
308 z__2.r = z__3.r * x[i__2].r - z__3.i * x[i__2].i, z__2.i =
309 z__3.r * x[i__2].i + z__3.i * x[i__2].r;
315 i__2 = j;
319 z__2.r = y[i__2].r + z__3.r, z__2.i = y[i__2].i + z__3.i;
340 i__4 = 1, i__2 = j - *k;
342 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
344 i__2 = iy;
349 z__1.r = y[i__2].r + z__2.r, z__1.i = y[i__2].i + z__2.i;
363 i__2 = kplus1 + j * a_dim1;
364 d__1 = a[i__2].r;
394 i__2 = j * a_dim1 + 1;
395 d__1 = a[i__2].r;
401 i__4 = *n, i__2 = j + *k;
402 i__3 = min(i__4,i__2);
405 i__2 = i__;
410 z__1.r = y[i__2].r + z__2.r, z__1.i = y[i__2].i + z__2.i;
440 i__2 = j * a_dim1 + 1;
441 d__1 = a[i__2].r;
449 i__4 = *n, i__2 = j + *k;
450 i__3 = min(i__4,i__2);
455 i__2 = iy;
460 z__1.r = y[i__2].r + z__2.r, z__1.i = y[i__2].i + z__2.i;
