| 812 | } |
| 813 | |
| 814 | void zdrot(int N, doublecomplex *cx, int incx, doublecomplex *cy, int incy, double c, double s) |
| 815 | { |
| 816 | zdrot_(&N, cx, &incx, cy, &incy, &c, &s); |
| 817 | } |
| 818 | |
| 819 | void srotm(int N, float *X, int incx, float *Y, int incy, float* PARAM) |
| 820 | { |