Lines Matching refs:kplus1
26 integer kplus1; in dtbmv_() local
236 kplus1 = *k + 1; in dtbmv_()
242 l = kplus1 - j; in dtbmv_()
251 x[j] *= a[kplus1 + j * a_dim1]; in dtbmv_()
263 l = kplus1 - j; in dtbmv_()
273 x[jx] *= a[kplus1 + j * a_dim1]; in dtbmv_()
335 kplus1 = *k + 1; in dtbmv_()
339 l = kplus1 - j; in dtbmv_()
341 temp *= a[kplus1 + j * a_dim1]; in dtbmv_()
360 l = kplus1 - j; in dtbmv_()
362 temp *= a[kplus1 + j * a_dim1]; in dtbmv_()