Lines Matching refs:JY
107 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local
156 JY = KY
186 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN
187 TEMP1 = ALPHA*CONJG(Y(JY))
197 + REAL(X(JX)*TEMP1+Y(JY)*TEMP2)
202 JY = JY + INCY
229 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN
230 TEMP1 = ALPHA*CONJG(Y(JY))
233 + REAL(X(JX)*TEMP1+Y(JY)*TEMP2)
235 IY = JY
245 JY = JY + INCY