Lines Matching refs:KY
58 INTEGER I,KX,KY,NSTEPS
104 KY = 1
106 IF (INCY.LT.0) KY = 1 + (1-N)*INCY
114 Z = SY(KY)
116 SY(KY) = W*SH21 + Z
118 KY = KY + INCY
126 Z = SY(KY)
128 SY(KY) = -W + SH22*Z
130 KY = KY + INCY
140 Z = SY(KY)
142 SY(KY) = W*SH21 + Z*SH22
144 KY = KY + INCY
