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