diff --git a/config.h.cmake b/config.h.cmake index 4f7654652a81a6b89c21553f3905251808944a42..037ced5c4714b119d68680938326604d5b67b2ce 100644 --- a/config.h.cmake +++ b/config.h.cmake @@ -167,14 +167,6 @@ /* Used to call lapack functions */ #cmakedefine LAPACK_NEEDS_UNDERLINE -#ifdef LAPACK_NEEDS_UNDERLINE - #define LAPACK_MANGLE(name,NAME) name##_ -#else - #define LAPACK_MANGLE(name,NAME) name -#endif - -#define FC_FUNC LAPACK_MANGLE - /* end dune-common Everything below here will be overwritten */ diff --git a/dune/common/fmatrixev.cc b/dune/common/fmatrixev.cc index 0a73d6dd316f2f5a1a588dfb357db63f85da7e7a..f8028635235900a63c931d6f4ef48392b7e4d636 100644 --- a/dune/common/fmatrixev.cc +++ b/dune/common/fmatrixev.cc @@ -16,6 +16,14 @@ #if HAVE_LAPACK +#ifdef LAPACK_NEEDS_UNDERLINE + #define LAPACK_MANGLE(name,NAME) name##_ +#else + #define LAPACK_MANGLE(name,NAME) name +#endif + +#define FC_FUNC LAPACK_MANGLE + // symmetric matrices #define DSYEV_FORTRAN FC_FUNC (dsyev, DSYEV) #define SSYEV_FORTRAN FC_FUNC (ssyev, SSYEV)