Lines Matching refs:kx
29 integer kx, ky; in drotm_() local
153 kx = 1; in drotm_()
156 kx = (1 - *n) * *incx + 1; in drotm_()
174 w = dx[kx]; in drotm_()
176 dx[kx] = w + z__ * dh12; in drotm_()
178 kx += *incx; in drotm_()
188 w = dx[kx]; in drotm_()
190 dx[kx] = w * dh11 + z__; in drotm_()
192 kx += *incx; in drotm_()
204 w = dx[kx]; in drotm_()
206 dx[kx] = w * dh11 + z__ * dh12; in drotm_()
208 kx += *incx; in drotm_()