Lines Matching refs:i__
23 integer i__, j, l, ix, jx, kx, info; in stbmv_() local
246 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { in stbmv_()
247 x[i__] += temp * a[l + i__ + j * a_dim1]; in stbmv_()
267 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) { in stbmv_()
268 x[ix] += temp * a[l + i__ + j * a_dim1]; in stbmv_()
292 for (i__ = min(i__1,i__3); i__ >= i__4; --i__) { in stbmv_()
293 x[i__] += temp * a[l + i__ + j * a_dim1]; in stbmv_()
313 for (i__ = min(i__4,i__1); i__ >= i__3; --i__) { in stbmv_()
314 x[ix] += temp * a[l + i__ + j * a_dim1]; in stbmv_()
346 for (i__ = j - 1; i__ >= i__3; --i__) { in stbmv_()
347 temp += a[l + i__ + j * a_dim1] * x[i__]; in stbmv_()
367 for (i__ = j - 1; i__ >= i__3; --i__) { in stbmv_()
368 temp += a[l + i__ + j * a_dim1] * x[ix]; in stbmv_()
389 for (i__ = j + 1; i__ <= i__4; ++i__) { in stbmv_()
390 temp += a[l + i__ + j * a_dim1] * x[i__]; in stbmv_()
410 for (i__ = j + 1; i__ <= i__4; ++i__) { in stbmv_()
411 temp += a[l + i__ + j * a_dim1] * x[ix]; in stbmv_()