Fix lowercase-uppercase mismatch in FORTRAN prototypes

TRIQS · Jul 23, 2024 · accca40 · accca40
1 parent 1db0b8b
commit accca40
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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);