Lines Matching refs:JX
107 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY
155 JX = KX
186 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN
188 TEMP2 = CONJG(ALPHA*X(JX))
197 + REAL(X(JX)*TEMP1+Y(JY)*TEMP2)
201 JX = JX + INCX
229 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN
231 TEMP2 = CONJG(ALPHA*X(JX))
233 + REAL(X(JX)*TEMP1+Y(JY)*TEMP2)
234 IX = JX
244 JX = JX + INCX
