Lines Matching refs:i__
23 integer i__, j, l, ix, iy, jx, jy, kx, ky, info; in ssbmv_() local
226 for (i__ = 1; i__ <= i__1; ++i__) { in ssbmv_()
227 y[i__] = 0.f; in ssbmv_()
232 for (i__ = 1; i__ <= i__1; ++i__) { in ssbmv_()
233 y[i__] = *beta * y[i__]; in ssbmv_()
241 for (i__ = 1; i__ <= i__1; ++i__) { in ssbmv_()
248 for (i__ = 1; i__ <= i__1; ++i__) { in ssbmv_()
273 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { in ssbmv_()
274 y[i__] += temp1 * a[l + i__ + j * a_dim1]; in ssbmv_()
275 temp2 += a[l + i__ + j * a_dim1] * x[i__]; in ssbmv_()
294 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) { in ssbmv_()
295 y[iy] += temp1 * a[l + i__ + j * a_dim1]; in ssbmv_()
296 temp2 += a[l + i__ + j * a_dim1] * x[ix]; in ssbmv_()
326 for (i__ = j + 1; i__ <= i__3; ++i__) { in ssbmv_()
327 y[i__] += temp1 * a[l + i__ + j * a_dim1]; in ssbmv_()
328 temp2 += a[l + i__ + j * a_dim1] * x[i__]; in ssbmv_()
348 for (i__ = j + 1; i__ <= i__3; ++i__) { in ssbmv_()
351 y[iy] += temp1 * a[l + i__ + j * a_dim1]; in ssbmv_()
352 temp2 += a[l + i__ + j * a_dim1] * x[ix]; in ssbmv_()