Lines Matching refs:temp
24 real temp;
241 temp = x[j];
247 x[i__] += temp * a[l + i__ + j * a_dim1];
261 temp = x[jx];
268 x[ix] += temp * a[l + i__ + j * a_dim1];
287 temp = x[j];
293 x[i__] += temp * a[l + i__ + j * a_dim1];
307 temp = x[jx];
314 x[ix] += temp * a[l + i__ + j * a_dim1];
338 temp = x[j];
341 temp *= a[kplus1 + j * a_dim1];
347 temp += a[l + i__ + j * a_dim1] * x[i__];
350 x[j] = temp;
357 temp = x[jx];
362 temp *= a[kplus1 + j * a_dim1];
368 temp += a[l + i__ + j * a_dim1] * x[ix];
372 x[jx] = temp;
381 temp = x[j];
384 temp *= a[j * a_dim1 + 1];
390 temp += a[l + i__ + j * a_dim1] * x[i__];
393 x[j] = temp;
400 temp = x[jx];
405 temp *= a[j * a_dim1 + 1];
411 temp += a[l + i__ + j * a_dim1] * x[ix];
415 x[jx] = temp;
