void F77_drot(const int *N, double *X, const int *incX, double *Y, const int *incY, const double *c, const double *s)
void cblas_drot(const CBLAS_INT N, double *X, const CBLAS_INT incX, double *Y, const CBLAS_INT incY, const double c, const double s)