Lines Matching refs:i__2
20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;
245 i__2 = j;
246 if (x[i__2].r != 0. || x[i__2].i != 0.) {
247 i__2 = j;
248 temp.r = x[i__2].r, temp.i = x[i__2].i;
251 i__2 = 1, i__3 = j - *k;
253 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
254 i__2 = i__;
262 x[i__2].r = z__1.r, x[i__2].i = z__1.i;
267 i__2 = j;
269 z__1.r = x[i__2].r * a[i__3].r - x[i__2].i * a[
270 i__3].i, z__1.i = x[i__2].r * a[i__3].i +
271 x[i__2].i * a[i__3].r;
288 i__4 = 1, i__2 = j - *k;
290 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
292 i__2 = ix;
297 z__1.r = x[i__2].r + z__2.r, z__1.i = x[i__2].i +
306 i__2 = kplus1 + j * a_dim1;
307 z__1.r = x[i__4].r * a[i__2].r - x[i__4].i * a[
308 i__2].i, z__1.i = x[i__4].r * a[i__2].i +
309 x[i__4].i * a[i__2].r;
334 i__2 = l + i__ + j * a_dim1;
335 z__2.r = temp.r * a[i__2].r - temp.i * a[i__2].i,
336 z__2.i = temp.r * a[i__2].i + temp.i * a[
337 i__2].r;
371 i__2 = l + i__ + j * a_dim1;
372 z__2.r = temp.r * a[i__2].r - temp.i * a[i__2].i,
373 z__2.i = temp.r * a[i__2].i + temp.i * a[
374 i__2].r;
537 i__1 = *n, i__2 = j + *k;
538 i__4 = min(i__1,i__2);
541 i__2 = i__;
542 z__2.r = a[i__1].r * x[i__2].r - a[i__1].i * x[
543 i__2].i, z__2.i = a[i__1].r * x[i__2].i +
544 a[i__1].i * x[i__2].r;
559 i__1 = *n, i__2 = j + *k;
560 i__4 = min(i__1,i__2);
595 i__1 = *n, i__2 = j + *k;
596 i__4 = min(i__1,i__2);
599 i__2 = ix;
600 z__2.r = a[i__1].r * x[i__2].r - a[i__1].i * x[
601 i__2].i, z__2.i = a[i__1].r * x[i__2].i +
602 a[i__1].i * x[i__2].r;
618 i__1 = *n, i__2 = j + *k;
619 i__4 = min(i__1,i__2);
