Lines Matching refs:temp1
24 real temp1, temp2; in ssbmv_() local
267 temp1 = *alpha * x[j]; in ssbmv_()
274 y[i__] += temp1 * a[l + i__ + j * a_dim1]; in ssbmv_()
278 y[j] = y[j] + temp1 * a[kplus1 + j * a_dim1] + *alpha * temp2; in ssbmv_()
286 temp1 = *alpha * x[jx]; in ssbmv_()
295 y[iy] += temp1 * a[l + i__ + j * a_dim1]; in ssbmv_()
301 y[jy] = y[jy] + temp1 * a[kplus1 + j * a_dim1] + *alpha * in ssbmv_()
319 temp1 = *alpha * x[j]; in ssbmv_()
321 y[j] += temp1 * a[j * a_dim1 + 1]; in ssbmv_()
327 y[i__] += temp1 * a[l + i__ + j * a_dim1]; in ssbmv_()
339 temp1 = *alpha * x[jx]; in ssbmv_()
341 y[jy] += temp1 * a[j * a_dim1 + 1]; in ssbmv_()
351 y[iy] += temp1 * a[l + i__ + j * a_dim1]; in ssbmv_()