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