Lines Matching refs:KX
58 INTEGER I,KX,KY,NSTEPS
103 KX = 1
105 IF (INCX.LT.0) KX = 1 + (1-N)*INCX
113 W = SX(KX)
115 SX(KX) = W + Z*SH12
117 KX = KX + INCX
125 W = SX(KX)
127 SX(KX) = W*SH11 + Z
129 KX = KX + INCX
139 W = SX(KX)
141 SX(KX) = W*SH11 + Z*SH12
143 KX = KX + INCX
