Lines Matching refs:temp1
24 doublereal temp1, temp2; in dspmv_() local
224 temp1 = *alpha * x[j]; in dspmv_()
229 y[i__] += temp1 * ap[k]; in dspmv_()
234 y[j] = y[j] + temp1 * ap[kk + j - 1] + *alpha * temp2; in dspmv_()
243 temp1 = *alpha * x[jx]; in dspmv_()
249 y[iy] += temp1 * ap[k]; in dspmv_()
255 y[jy] = y[jy] + temp1 * ap[kk + j - 1] + *alpha * temp2; in dspmv_()
269 temp1 = *alpha * x[j]; in dspmv_()
271 y[j] += temp1 * ap[kk]; in dspmv_()
275 y[i__] += temp1 * ap[k]; in dspmv_()
289 temp1 = *alpha * x[jx]; in dspmv_()
291 y[jy] += temp1 * ap[kk]; in dspmv_()
298 y[iy] += temp1 * ap[k]; in dspmv_()