From e1757c6d30e2deb4731ffa549267f79b991a0344 Mon Sep 17 00:00:00 2001 From: Jiri Pittner Date: Fri, 28 Apr 2023 16:47:12 +0200 Subject: [PATCH] scnrm2 in noncblas.cc --- noncblas.cc | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/noncblas.cc b/noncblas.cc index 1ff90a6..748b3f5 100644 --- a/noncblas.cc +++ b/noncblas.cc @@ -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 }