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