Lines Matching refs:temp2
24 doublereal temp1, temp2;
266 temp2 = 0.;
273 temp2 += a[l + i__ + j * a_dim1] * x[i__];
276 y[j] = y[j] + temp1 * a[kplus1 + j * a_dim1] + *alpha * temp2;
285 temp2 = 0.;
294 temp2 += a[l + i__ + j * a_dim1] * x[ix];
300 temp2;
318 temp2 = 0.;
326 temp2 += a[l + i__ + j * a_dim1] * x[i__];
329 y[j] += *alpha * temp2;
338 temp2 = 0.;
350 temp2 += a[l + i__ + j * a_dim1] * x[ix];
353 y[jy] += *alpha * temp2;