Lines Matching refs:i__4
21 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;
296 i__4 = j - 1;
297 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
314 i__4 = j;
323 y[i__4].r = z__1.r, y[i__4].i = z__1.i;
331 i__4 = jx;
332 z__1.r = alpha->r * x[i__4].r - alpha->i * x[i__4].i, z__1.i =
333 alpha->r * x[i__4].i + alpha->i * x[i__4].r;
340 i__4 = 1, i__2 = j - *k;
342 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
343 i__4 = iy;
350 y[i__4].r = z__1.r, y[i__4].i = z__1.i;
352 i__4 = ix;
353 z__2.r = z__3.r * x[i__4].r - z__3.i * x[i__4].i, z__2.i =
354 z__3.r * x[i__4].i + z__3.i * x[i__4].r;
362 i__4 = jy;
366 z__2.r = y[i__4].r + z__3.r, z__2.i = y[i__4].i + z__3.i;
393 i__4 = j;
397 z__1.r = y[i__4].r + z__2.r, z__1.i = y[i__4].i + z__2.i;
401 i__4 = *n, i__2 = j + *k;
402 i__3 = min(i__4,i__2);
404 i__4 = i__;
411 y[i__4].r = z__1.r, y[i__4].i = z__1.i;
413 i__4 = i__;
414 z__2.r = z__3.r * x[i__4].r - z__3.i * x[i__4].i, z__2.i =
415 z__3.r * x[i__4].i + z__3.i * x[i__4].r;
421 i__4 = j;
424 z__1.r = y[i__4].r + z__2.r, z__1.i = y[i__4].i + z__2.i;
439 i__4 = jy;
443 z__1.r = y[i__4].r + z__2.r, z__1.i = y[i__4].i + z__2.i;
449 i__4 = *n, i__2 = j + *k;
450 i__3 = min(i__4,i__2);
454 i__4 = iy;
461 y[i__4].r = z__1.r, y[i__4].i = z__1.i;
463 i__4 = ix;
464 z__2.r = z__3.r * x[i__4].r - z__3.i * x[i__4].i, z__2.i =
465 z__3.r * x[i__4].i + z__3.i * x[i__4].r;
471 i__4 = jy;
474 z__1.r = y[i__4].r + z__2.r, z__1.i = y[i__4].i + z__2.i;
