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