Lines Matching defs:TEMP
106 DOUBLE COMPLEX TEMP
169 TEMP = X(J)
172 X(I) = X(I) + TEMP*AP(K)
183 TEMP = X(JX)
186 X(IX) = X(IX) + TEMP*AP(K)
200 TEMP = X(J)
203 X(I) = X(I) + TEMP*AP(K)
215 TEMP = X(JX)
218 X(IX) = X(IX) + TEMP*AP(K)
236 TEMP = X(J)
239 IF (NOUNIT) TEMP = TEMP*AP(KK)
241 TEMP = TEMP + AP(K)*X(I)
245 IF (NOUNIT) TEMP = TEMP*DCONJG(AP(KK))
247 TEMP = TEMP + DCONJG(AP(K))*X(I)
251 X(J) = TEMP
257 TEMP = X(JX)
260 IF (NOUNIT) TEMP = TEMP*AP(KK)
263 TEMP = TEMP + AP(K)*X(IX)
266 IF (NOUNIT) TEMP = TEMP*DCONJG(AP(KK))
269 TEMP = TEMP + DCONJG(AP(K))*X(IX)
272 X(JX) = TEMP
281 TEMP = X(J)
284 IF (NOUNIT) TEMP = TEMP*AP(KK)
286 TEMP = TEMP + AP(K)*X(I)
290 IF (NOUNIT) TEMP = TEMP*DCONJG(AP(KK))
292 TEMP = TEMP + DCONJG(AP(K))*X(I)
296 X(J) = TEMP
302 TEMP = X(JX)
305 IF (NOUNIT) TEMP = TEMP*AP(KK)
308 TEMP = TEMP + AP(K)*X(IX)
311 IF (NOUNIT) TEMP = TEMP*DCONJG(AP(KK))
314 TEMP = TEMP + DCONJG(AP(K))*X(IX)
317 X(JX) = TEMP
