From accca400f98d86fced4693b91cccd29351b0eb8e Mon Sep 17 00:00:00 2001 From: Henri Menke Date: Fri, 7 Jun 2024 16:21:08 +0200 Subject: [PATCH] Fix lowercase-uppercase mismatch in FORTRAN prototypes --- c++/nda/blas/interface/cxx_interface.cpp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/c++/nda/blas/interface/cxx_interface.cpp b/c++/nda/blas/interface/cxx_interface.cpp index 1d2485a84..e6730527a 100644 --- a/c++/nda/blas/interface/cxx_interface.cpp +++ b/c++/nda/blas/interface/cxx_interface.cpp @@ -57,8 +57,8 @@ namespace { // manually define dot routines since cblas_f77.h uses "_sub" to wrap the Fortran routines #define F77_ddot F77_GLOBAL(ddot, DDOT) -#define F77_zdotu F77_GLOBAL(zdotu, DDOT) -#define F77_zdotc F77_GLOBAL(zdotc, DDOT) +#define F77_zdotu F77_GLOBAL(zdotu, ZDOTU) +#define F77_zdotc F77_GLOBAL(zdotc, ZDOTC) extern "C" { double F77_ddot(FINT, const double *, FINT, const double *, FINT); nda_complex_double F77_zdotu(FINT, const double *, FINT, const double *, FINT);