Lines Matching refs:i__1
20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;
243 i__1 = *n;
244 for (j = 1; j <= i__1; ++j) {
279 i__1 = *n;
280 for (j = 1; j <= i__1; ++j) {
323 i__1 = j;
324 if (x[i__1].r != 0.f || x[i__1].i != 0.f) {
325 i__1 = j;
326 temp.r = x[i__1].r, temp.i = x[i__1].i;
329 i__1 = *n, i__3 = j + *k;
331 for (i__ = min(i__1,i__3); i__ >= i__4; --i__) {
332 i__1 = i__;
340 x[i__1].r = q__1.r, x[i__1].i = q__1.i;
345 i__1 = j;
347 q__1.r = x[i__1].r * a[i__3].r - x[i__1].i * a[
348 i__3].i, q__1.i = x[i__1].r * a[i__3].i +
349 x[i__1].i * a[i__3].r;
366 i__4 = *n, i__1 = j + *k;
368 for (i__ = min(i__4,i__1); i__ >= i__3; --i__) {
370 i__1 = ix;
375 q__1.r = x[i__1].r + q__2.r, q__1.i = x[i__1].i +
384 i__1 = j * a_dim1 + 1;
385 q__1.r = x[i__4].r * a[i__1].r - x[i__4].i * a[
386 i__1].i, q__1.i = x[i__4].r * a[i__1].i +
387 x[i__4].i * a[i__1].r;
419 i__4 = 1, i__1 = j - *k;
420 i__3 = max(i__4,i__1);
423 i__1 = i__;
424 q__2.r = a[i__4].r * x[i__1].r - a[i__4].i * x[
425 i__1].i, q__2.i = a[i__4].r * x[i__1].i +
426 a[i__4].i * x[i__1].r;
441 i__4 = 1, i__1 = j - *k;
442 i__3 = max(i__4,i__1);
477 i__4 = 1, i__1 = j - *k;
478 i__3 = max(i__4,i__1);
481 i__1 = ix;
482 q__2.r = a[i__4].r * x[i__1].r - a[i__4].i * x[
483 i__1].i, q__2.i = a[i__4].r * x[i__1].i +
484 a[i__4].i * x[i__1].r;
500 i__4 = 1, i__1 = j - *k;
501 i__3 = max(i__4,i__1);
537 i__1 = *n, i__2 = j + *k;
538 i__4 = min(i__1,i__2);
540 i__1 = l + i__ + j * a_dim1;
542 q__2.r = a[i__1].r * x[i__2].r - a[i__1].i * x[
543 i__2].i, q__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);
563 i__1 = i__;
564 q__2.r = q__3.r * x[i__1].r - q__3.i * x[i__1].i,
565 q__2.i = q__3.r * x[i__1].i + q__3.i * x[
566 i__1].r;
595 i__1 = *n, i__2 = j + *k;
596 i__4 = min(i__1,i__2);
598 i__1 = l + i__ + j * a_dim1;
600 q__2.r = a[i__1].r * x[i__2].r - a[i__1].i * x[
601 i__2].i, q__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);
622 i__1 = ix;
623 q__2.r = q__3.r * x[i__1].r - q__3.i * x[i__1].i,
624 q__2.i = q__3.r * x[i__1].i + q__3.i * x[
625 i__1].r;
