jiri/LA_library
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

compatibility changes

Browse Source
This commit is contained in:
Jiri Pittner 2021-06-25 16:42:26 +02:00
parent 38a3272805
commit e74bf5986a
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
noncblas.cc
View File

@ -470,6 +470,7 @@ int clapack_dgesv(const CBLAS_ORDER Order, const int N, const int NRHS,
#endif #endif
#ifdef NONCBLAS
extern "C" void FORNAME(dswap)(const FINT *N, double *X, const FINT *incX, double *Y, const FINT *incY); extern "C" void FORNAME(dswap)(const FINT *N, double *X, const FINT *incX, double *Y, const FINT *incY);
void cblas_dswap(const int N, double *X, const int incX, double *Y, const int incY){ void cblas_dswap(const int N, double *X, const int incX, double *Y, const int incY){
@ -494,3 +495,5 @@ void cblas_zswap(const int N, void *X, const int incX, void *Y, const int incY){
FORNAME(zswap)(&N, X, &incX, Y, &incY); FORNAME(zswap)(&N, X, &incX, Y, &incY);
#endif #endif
} }
#endif