Lines Matching refs:KX
58 INTEGER I,KX,KY,NSTEPS local103 KX = 1105 IF (INCX.LT.0) KX = 1 + (1-N)*INCX113 W = SX(KX)115 SX(KX) = W + Z*SH12117 KX = KX + INCX125 W = SX(KX)127 SX(KX) = W*SH11 + Z129 KX = KX + INCX139 W = SX(KX)141 SX(KX) = W*SH11 + Z*SH12143 KX = KX + INCX