Searched refs:kplus1 (Results 1 – 8 of 8) sorted by relevance
26 integer kplus1; in stbmv_() local236 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_()[all …]
26 integer kplus1; in dtbmv_() local236 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_()[all …]
26 integer kplus1; in ssbmv_() local263 kplus1 = *k + 1; in ssbmv_()269 l = kplus1 - j; in ssbmv_()278 y[j] = y[j] + temp1 * a[kplus1 + j * a_dim1] + *alpha * temp2; in ssbmv_()290 l = kplus1 - j; in ssbmv_()301 y[jy] = y[jy] + temp1 * a[kplus1 + j * a_dim1] + *alpha * in ssbmv_()
26 integer kplus1; in dsbmv_() local261 kplus1 = *k + 1; in dsbmv_()267 l = kplus1 - j; in dsbmv_()276 y[j] = y[j] + temp1 * a[kplus1 + j * a_dim1] + *alpha * temp2; in dsbmv_()288 l = kplus1 - j; in dsbmv_()299 y[jy] = y[jy] + temp1 * a[kplus1 + j * a_dim1] + *alpha * in dsbmv_()
30 integer kplus1; in ztbmv_() local241 kplus1 = *k + 1; in ztbmv_()249 l = kplus1 - j; in ztbmv_()268 i__3 = kplus1 + j * a_dim1; in ztbmv_()286 l = kplus1 - j; in ztbmv_()306 i__2 = kplus1 + j * a_dim1; in ztbmv_()404 kplus1 = *k + 1; in ztbmv_()409 l = kplus1 - j; in ztbmv_()412 i__3 = kplus1 + j * a_dim1; in ztbmv_()434 d_cnjg(&z__2, &a[kplus1 + j * a_dim1]); in ztbmv_()[all …]
30 integer kplus1; in ctbmv_() local241 kplus1 = *k + 1; in ctbmv_()249 l = kplus1 - j; in ctbmv_()268 i__3 = kplus1 + j * a_dim1; in ctbmv_()286 l = kplus1 - j; in ctbmv_()306 i__2 = kplus1 + j * a_dim1; in ctbmv_()404 kplus1 = *k + 1; in ctbmv_()409 l = kplus1 - j; in ctbmv_()412 i__3 = kplus1 + j * a_dim1; in ctbmv_()434 r_cnjg(&q__2, &a[kplus1 + j * a_dim1]); in ctbmv_()[all …]
31 integer kplus1; in chbmv_() local283 kplus1 = *k + 1; in chbmv_()292 l = kplus1 - j; in chbmv_()315 i__3 = kplus1 + j * a_dim1; in chbmv_()337 l = kplus1 - j; in chbmv_()362 i__2 = kplus1 + j * a_dim1; in chbmv_()
32 integer kplus1; in zhbmv_() local284 kplus1 = *k + 1; in zhbmv_()293 l = kplus1 - j; in zhbmv_()316 i__3 = kplus1 + j * a_dim1; in zhbmv_()338 l = kplus1 - j; in zhbmv_()363 i__2 = kplus1 + j * a_dim1; in zhbmv_()