Lines Matching refs:i__3
20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;
243 i__3 = i__;
244 q__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,
245 q__1.i = beta->r * y[i__3].i + beta->i * y[i__3]
265 i__3 = iy;
266 q__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,
267 q__1.i = beta->r * y[i__3].i + beta->i * y[i__3]
294 i__2 = 1, i__3 = j - *k;
296 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
298 i__3 = i__;
303 q__1.r = y[i__3].r + q__2.r, q__1.i = y[i__3].i + q__2.i;
315 i__3 = kplus1 + j * a_dim1;
316 r__1 = a[i__3].r;
340 i__3 = j - 1;
341 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
360 i__3 = jy;
369 y[i__3].r = q__1.r, y[i__3].i = q__1.i;
386 i__3 = j;
387 q__1.r = alpha->r * x[i__3].r - alpha->i * x[i__3].i, q__1.i =
388 alpha->r * x[i__3].i + alpha->i * x[i__3].r;
391 i__3 = j;
397 y[i__3].r = q__1.r, y[i__3].i = q__1.i;
401 i__3 = min(i__4,i__2);
402 for (i__ = j + 1; i__ <= i__3; ++i__) {
419 i__3 = j;
424 y[i__3].r = q__1.r, y[i__3].i = q__1.i;
432 i__3 = jx;
433 q__1.r = alpha->r * x[i__3].r - alpha->i * x[i__3].i, q__1.i =
434 alpha->r * x[i__3].i + alpha->i * x[i__3].r;
437 i__3 = jy;
443 y[i__3].r = q__1.r, y[i__3].i = q__1.i;
449 i__3 = min(i__4,i__2);
450 for (i__ = j + 1; i__ <= i__3; ++i__) {
469 i__3 = jy;
474 y[i__3].r = q__1.r, y[i__3].i = q__1.i;
