Lines Matching refs:i__4
20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; in ztbmv_() local
252 i__4 = j - 1; in ztbmv_()
253 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { in ztbmv_()
266 i__4 = j; in ztbmv_()
272 x[i__4].r = z__1.r, x[i__4].i = z__1.i; in ztbmv_()
281 i__4 = jx; in ztbmv_()
282 if (x[i__4].r != 0. || x[i__4].i != 0.) { in ztbmv_()
283 i__4 = jx; in ztbmv_()
284 temp.r = x[i__4].r, temp.i = x[i__4].i; in ztbmv_()
288 i__4 = 1, i__2 = j - *k; in ztbmv_()
290 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) { in ztbmv_()
291 i__4 = ix; in ztbmv_()
299 x[i__4].r = z__1.r, x[i__4].i = z__1.i; in ztbmv_()
305 i__4 = jx; in ztbmv_()
307 z__1.r = x[i__4].r * a[i__2].r - x[i__4].i * a[ in ztbmv_()
308 i__2].i, z__1.i = x[i__4].r * a[i__2].i + in ztbmv_()
309 x[i__4].i * a[i__2].r; in ztbmv_()
330 i__4 = j + 1; in ztbmv_()
331 for (i__ = min(i__1,i__3); i__ >= i__4; --i__) { in ztbmv_()
344 i__4 = j; in ztbmv_()
350 x[i__4].r = z__1.r, x[i__4].i = z__1.i; in ztbmv_()
359 i__4 = jx; in ztbmv_()
360 if (x[i__4].r != 0. || x[i__4].i != 0.) { in ztbmv_()
361 i__4 = jx; in ztbmv_()
362 temp.r = x[i__4].r, temp.i = x[i__4].i; in ztbmv_()
366 i__4 = *n, i__1 = j + *k; in ztbmv_()
368 for (i__ = min(i__4,i__1); i__ >= i__3; --i__) { in ztbmv_()
369 i__4 = ix; in ztbmv_()
377 x[i__4].r = z__1.r, x[i__4].i = z__1.i; in ztbmv_()
383 i__4 = jx; in ztbmv_()
385 z__1.r = x[i__4].r * a[i__1].r - x[i__4].i * a[ in ztbmv_()
386 i__1].i, z__1.i = x[i__4].r * a[i__1].i + in ztbmv_()
387 x[i__4].i * a[i__1].r; in ztbmv_()
419 i__4 = 1, i__1 = j - *k; in ztbmv_()
420 i__3 = max(i__4,i__1); in ztbmv_()
422 i__4 = l + i__ + j * a_dim1; in ztbmv_()
424 z__2.r = a[i__4].r * x[i__1].r - a[i__4].i * x[ in ztbmv_()
425 i__1].i, z__2.i = a[i__4].r * x[i__1].i + in ztbmv_()
426 a[i__4].i * x[i__1].r; in ztbmv_()
441 i__4 = 1, i__1 = j - *k; in ztbmv_()
442 i__3 = max(i__4,i__1); in ztbmv_()
445 i__4 = i__; in ztbmv_()
446 z__2.r = z__3.r * x[i__4].r - z__3.i * x[i__4].i, in ztbmv_()
447 z__2.i = z__3.r * x[i__4].i + z__3.i * x[ in ztbmv_()
448 i__4].r; in ztbmv_()
477 i__4 = 1, i__1 = j - *k; in ztbmv_()
478 i__3 = max(i__4,i__1); in ztbmv_()
480 i__4 = l + i__ + j * a_dim1; in ztbmv_()
482 z__2.r = a[i__4].r * x[i__1].r - a[i__4].i * x[ in ztbmv_()
483 i__1].i, z__2.i = a[i__4].r * x[i__1].i + in ztbmv_()
484 a[i__4].i * x[i__1].r; in ztbmv_()
500 i__4 = 1, i__1 = j - *k; in ztbmv_()
501 i__3 = max(i__4,i__1); in ztbmv_()
504 i__4 = ix; in ztbmv_()
505 z__2.r = z__3.r * x[i__4].r - z__3.i * x[i__4].i, in ztbmv_()
506 z__2.i = z__3.r * x[i__4].i + z__3.i * x[ in ztbmv_()
507 i__4].r; in ztbmv_()
525 i__4 = j; in ztbmv_()
526 temp.r = x[i__4].r, temp.i = x[i__4].i; in ztbmv_()
530 i__4 = j * a_dim1 + 1; in ztbmv_()
531 z__1.r = temp.r * a[i__4].r - temp.i * a[i__4].i, in ztbmv_()
532 z__1.i = temp.r * a[i__4].i + temp.i * a[ in ztbmv_()
533 i__4].r; in ztbmv_()
538 i__4 = min(i__1,i__2); in ztbmv_()
539 for (i__ = j + 1; i__ <= i__4; ++i__) { in ztbmv_()
560 i__4 = min(i__1,i__2); in ztbmv_()
561 for (i__ = j + 1; i__ <= i__4; ++i__) { in ztbmv_()
573 i__4 = j; in ztbmv_()
574 x[i__4].r = temp.r, x[i__4].i = temp.i; in ztbmv_()
581 i__4 = jx; in ztbmv_()
582 temp.r = x[i__4].r, temp.i = x[i__4].i; in ztbmv_()
588 i__4 = j * a_dim1 + 1; in ztbmv_()
589 z__1.r = temp.r * a[i__4].r - temp.i * a[i__4].i, in ztbmv_()
590 z__1.i = temp.r * a[i__4].i + temp.i * a[ in ztbmv_()
591 i__4].r; in ztbmv_()
596 i__4 = min(i__1,i__2); in ztbmv_()
597 for (i__ = j + 1; i__ <= i__4; ++i__) { in ztbmv_()
619 i__4 = min(i__1,i__2); in ztbmv_()
620 for (i__ = j + 1; i__ <= i__4; ++i__) { in ztbmv_()
633 i__4 = jx; in ztbmv_()
634 x[i__4].r = temp.r, x[i__4].i = temp.i; in ztbmv_()