Lines Matching refs:TEMP2
105 DOUBLE PRECISION TEMP1,TEMP2
190 TEMP2 = ZERO
194 TEMP2 = TEMP2 + AP(K)*X(I)
197 Y(J) = Y(J) + TEMP1*AP(KK+J-1) + ALPHA*TEMP2
205 TEMP2 = ZERO
210 TEMP2 = TEMP2 + AP(K)*X(IX)
214 Y(JY) = Y(JY) + TEMP1*AP(KK+J-1) + ALPHA*TEMP2
227 TEMP2 = ZERO
232 TEMP2 = TEMP2 + AP(K)*X(I)
235 Y(J) = Y(J) + ALPHA*TEMP2
243 TEMP2 = ZERO
251 TEMP2 = TEMP2 + AP(K)*X(IX)
253 Y(JY) = Y(JY) + ALPHA*TEMP2
