Lines Matching defs:temp2
24 doublereal temp1, temp2;
225 temp2 = 0.;
230 temp2 += ap[k] * x[i__];
234 y[j] = y[j] + temp1 * ap[kk + j - 1] + *alpha * temp2;
244 temp2 = 0.;
250 temp2 += ap[k] * x[ix];
255 y[jy] = y[jy] + temp1 * ap[kk + j - 1] + *alpha * temp2;
270 temp2 = 0.;
276 temp2 += ap[k] * x[i__];
280 y[j] += *alpha * temp2;
290 temp2 = 0.;
299 temp2 += ap[k] * x[ix];
302 y[jy] += *alpha * temp2;
