Lines Matching refs:ky
29 integer kx, ky; in srotm_() local
155 ky = 1; in srotm_()
160 ky = (1 - *n) * *incy + 1; in srotm_()
176 z__ = sy[ky]; in srotm_()
178 sy[ky] = w * sh21 + z__; in srotm_()
180 ky += *incy; in srotm_()
190 z__ = sy[ky]; in srotm_()
192 sy[ky] = -w + sh22 * z__; in srotm_()
194 ky += *incy; in srotm_()
206 z__ = sy[ky]; in srotm_()
208 sy[ky] = w * sh21 + z__ * sh22; in srotm_()
210 ky += *incy; in srotm_()