Lines Matching refs:KX
57 INTEGER I,KX,KY,NSTEPS local102 KX = 1104 IF (INCX.LT.0) KX = 1 + (1-N)*INCX112 W = DX(KX)114 DX(KX) = W + Z*DH12116 KX = KX + INCX124 W = DX(KX)126 DX(KX) = W*DH11 + Z128 KX = KX + INCX138 W = DX(KX)140 DX(KX) = W*DH11 + Z*DH12142 KX = KX + INCX