Lines Matching defs:KX
57 INTEGER I,KX,KY,NSTEPS
102 KX = 1
104 IF (INCX.LT.0) KX = 1 + (1-N)*INCX
112 W = DX(KX)
114 DX(KX) = W + Z*DH12
116 KX = KX + INCX
124 W = DX(KX)
126 DX(KX) = W*DH11 + Z
128 KX = KX + INCX
138 W = DX(KX)
140 DX(KX) = W*DH11 + Z*DH12
142 KX = KX + INCX
