Lines Matching refs:a_dim1
20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4; in stbmv_() local
180 a_dim1 = *lda; in stbmv_()
181 a_offset = 1 + a_dim1; in stbmv_()
247 x[i__] += temp * a[l + i__ + j * a_dim1]; in stbmv_()
251 x[j] *= a[kplus1 + j * a_dim1]; in stbmv_()
268 x[ix] += temp * a[l + i__ + j * a_dim1]; in stbmv_()
273 x[jx] *= a[kplus1 + j * a_dim1]; in stbmv_()
293 x[i__] += temp * a[l + i__ + j * a_dim1]; in stbmv_()
297 x[j] *= a[j * a_dim1 + 1]; in stbmv_()
314 x[ix] += temp * a[l + i__ + j * a_dim1]; in stbmv_()
319 x[jx] *= a[j * a_dim1 + 1]; in stbmv_()
341 temp *= a[kplus1 + j * a_dim1]; in stbmv_()
347 temp += a[l + i__ + j * a_dim1] * x[i__]; in stbmv_()
362 temp *= a[kplus1 + j * a_dim1]; in stbmv_()
368 temp += a[l + i__ + j * a_dim1] * x[ix]; in stbmv_()
384 temp *= a[j * a_dim1 + 1]; in stbmv_()
390 temp += a[l + i__ + j * a_dim1] * x[i__]; in stbmv_()
405 temp *= a[j * a_dim1 + 1]; in stbmv_()
411 temp += a[l + i__ + j * a_dim1] * x[ix]; in stbmv_()