Home | History | Annotate | Download | only in fortran

Lines Matching refs:TEMP2

143       DOUBLE COMPLEX TEMP1,TEMP2
235 TEMP2 = ZERO
239 TEMP2 = TEMP2 + DCONJG(A(L+I,J))*X(I)
241 Y(J) = Y(J) + TEMP1*DBLE(A(KPLUS1,J)) + ALPHA*TEMP2
248 TEMP2 = ZERO
254 TEMP2 = TEMP2 + DCONJG(A(L+I,J))*X(IX)
258 Y(JY) = Y(JY) + TEMP1*DBLE(A(KPLUS1,J)) + ALPHA*TEMP2
274 TEMP2 = ZERO
279 TEMP2 = TEMP2 + DCONJG(A(L+I,J))*X(I)
281 Y(J) = Y(J) + ALPHA*TEMP2
288 TEMP2 = ZERO
297 TEMP2 = TEMP2 + DCONJG(A(L+I,J))*X(IX)
299 Y(JY) = Y(JY) + ALPHA*TEMP2