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