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