Lines Matching refs:kx
29 integer kx, ky; in srotm_() local
154 kx = 1; in srotm_()
157 kx = (1 - *n) * *incx + 1; in srotm_()
175 w = sx[kx]; in srotm_()
177 sx[kx] = w + z__ * sh12; in srotm_()
179 kx += *incx; in srotm_()
189 w = sx[kx]; in srotm_()
191 sx[kx] = w * sh11 + z__; in srotm_()
193 kx += *incx; in srotm_()
205 w = sx[kx]; in srotm_()
207 sx[kx] = w * sh11 + z__ * sh12; in srotm_()
209 kx += *incx; in srotm_()