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