Lines Matching refs:KY
57 INTEGER I,KX,KY,NSTEPS
103 KY = 1
105 IF (INCY.LT.0) KY = 1 + (1-N)*INCY
113 Z = DY(KY)
115 DY(KY) = W*DH21 + Z
117 KY = KY + INCY
125 Z = DY(KY)
127 DY(KY) = -W + DH22*Z
129 KY = KY + INCY
139 Z = DY(KY)
141 DY(KY) = W*DH21 + Z*DH22
143 KY = KY + INCY
