Lines Matching refs:JX
96 INTEGER I,INFO,IX,J,JX,K,KK,KX local
160 JX = KX
162 IF (X(JX).NE.ZERO) THEN
163 TEMP = ALPHA*DCONJG(X(JX))
169 AP(KK+J-1) = DBLE(AP(KK+J-1)) + DBLE(X(JX)*TEMP)
173 JX = JX + INCX
197 JX = KX
199 IF (X(JX).NE.ZERO) THEN
200 TEMP = ALPHA*DCONJG(X(JX))
201 AP(KK) = DBLE(AP(KK)) + DBLE(TEMP*X(JX))
202 IX = JX
210 JX = JX + INCX