Lines Matching refs:TEMP1
105 REAL TEMP1,TEMP2 local
189 TEMP1 = ALPHA*X(J)
193 Y(I) = Y(I) + TEMP1*AP(K)
197 Y(J) = Y(J) + TEMP1*AP(KK+J-1) + ALPHA*TEMP2
204 TEMP1 = ALPHA*X(JX)
209 Y(IY) = Y(IY) + TEMP1*AP(K)
214 Y(JY) = Y(JY) + TEMP1*AP(KK+J-1) + ALPHA*TEMP2
226 TEMP1 = ALPHA*X(J)
228 Y(J) = Y(J) + TEMP1*AP(KK)
231 Y(I) = Y(I) + TEMP1*AP(K)
242 TEMP1 = ALPHA*X(JX)
244 Y(JY) = Y(JY) + TEMP1*AP(KK)
250 Y(IY) = Y(IY) + TEMP1*AP(K)