Lines Matching refs:i__3
21 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;
244 i__3 = i__;
245 z__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,
246 z__1.i = beta->r * y[i__3].i + beta->i * y[i__3]
266 i__3 = iy;
267 z__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,
268 z__1.i = beta->r * y[i__3].i + beta->i * y[i__3]
295 i__2 = 1, i__3 = j - *k;
297 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
299 i__3 = i__;
304 z__1.r = y[i__3].r + z__2.r, z__1.i = y[i__3].i + z__2.i;
316 i__3 = kplus1 + j * a_dim1;
317 d__1 = a[i__3].r;
341 i__3 = j - 1;
342 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
361 i__3 = jy;
370 y[i__3].r = z__1.r, y[i__3].i = z__1.i;
387 i__3 = j;
388 z__1.r = alpha->r * x[i__3].r - alpha->i * x[i__3].i, z__1.i =
389 alpha->r * x[i__3].i + alpha->i * x[i__3].r;
392 i__3 = j;
398 y[i__3].r = z__1.r, y[i__3].i = z__1.i;
402 i__3 = min(i__4,i__2);
403 for (i__ = j + 1; i__ <= i__3; ++i__) {
420 i__3 = j;
425 y[i__3].r = z__1.r, y[i__3].i = z__1.i;
433 i__3 = jx;
434 z__1.r = alpha->r * x[i__3].r - alpha->i * x[i__3].i, z__1.i =
435 alpha->r * x[i__3].i + alpha->i * x[i__3].r;
438 i__3 = jy;
444 y[i__3].r = z__1.r, y[i__3].i = z__1.i;
450 i__3 = min(i__4,i__2);
451 for (i__ = j + 1; i__ <= i__3; ++i__) {
470 i__3 = jy;
475 y[i__3].r = z__1.r, y[i__3].i = z__1.i;
