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

scnrm2 in noncblas.cc

Browse Source
This commit is contained in:
Jiri Pittner 2023-04-28 16:47:12 +02:00
parent 696fb5ff1d
commit e1757c6d30
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
noncblas.cc
View File

@ -231,14 +231,14 @@ double cblas_dznrm2(const int N, const void *X, const int incX){
#endif
}
extern "C" float FORNAME(sznrm2) (const FINT *n, const void *x, const FINT *incx);
float cblas_sznrm2(const int N, const void *X, const int incX){
extern "C" float FORNAME(scnrm2) (const FINT *n, const void *x, const FINT *incx);
float cblas_scnrm2(const int N, const void *X, const int incX){
#ifdef FORINT
const FINT ntmp=N;
const FINT incxtmp=incX;
return FORNAME(sznrm2) (&ntmp,X,&incxtmp);
return FORNAME(scnrm2) (&ntmp,X,&incxtmp);
#else
return FORNAME(sznrm2) (&N,X,&incX);
return FORNAME(scnrm2) (&N,X,&incX);
#endif
}