fix bug against lapack 3.9.1 and above (#413)

ITensor · May 24, 2022 · 45bf861 · 45bf861
1 parent 050aa56
commit 45bf861
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/itensor/tensor/lapack_wrap.h b/itensor/tensor/lapack_wrap.h
@@ -149,8 +149,12 @@ imagRef(LAPACK_COMPLEX & z)
 #ifdef FORTRAN_NO_TRAILING_UNDERSCORE
 #define F77NAME(x) x
 #else
+#if defined(LAPACK_GLOBAL) || defined(LAPACK_NAME)
+#define F77NAME(x) LAPACK_##x
+#else
 #define F77NAME(x) x##_
 #endif
+#endif
 
 namespace itensor {