/* [+MEQ MatlabEQuilibrium Toolbox+] Swiss Plasma Center EPFL Lausanne 2022. All rights reserved. */
# include "meqh.h"
# ifdef SINGLE
# define FCT  cblas_scopy
# define COPY scopy
# else
# define FCT  cblas_dcopy
# define COPY dcopy
# endif
void FCT(const int n, const FLT *x, const int incx, FLT *y, const int incy)
{
 ptrdiff_t n_, incx_, incy_;
 n_ = n; incx_ = incx; incy_ = incy;
 COPY(&n_, x, &incx_, y, &incy_);
}
