Home | History | Annotate | Download | only in blas

Lines Matching defs:TEMP

106       DOUBLE PRECISION TEMP
165 TEMP = X(J)
168 X(I) = X(I) + TEMP*AP(K)
179 TEMP = X(JX)
182 X(IX) = X(IX) + TEMP*AP(K)
196 TEMP = X(J)
199 X(I) = X(I) + TEMP*AP(K)
211 TEMP = X(JX)
214 X(IX) = X(IX) + TEMP*AP(K)
232 TEMP = X(J)
233 IF (NOUNIT) TEMP = TEMP*AP(KK)
236 TEMP = TEMP + AP(K)*X(I)
239 X(J) = TEMP
245 TEMP = X(JX)
247 IF (NOUNIT) TEMP = TEMP*AP(KK)
250 TEMP = TEMP + AP(K)*X(IX)
252 X(JX) = TEMP
261 TEMP = X(J)
262 IF (NOUNIT) TEMP = TEMP*AP(KK)
265 TEMP = TEMP + AP(K)*X(I)
268 X(J) = TEMP
274 TEMP = X(JX)
276 IF (NOUNIT) TEMP = TEMP*AP(KK)
279 TEMP = TEMP + AP(K)*X(IX)
281 X(JX) = TEMP