Skip to content
Snippets Groups Projects
Commit 2a92f242 authored by Simon Praetorius's avatar Simon Praetorius Committed by Christoph Grüninger
Browse files

Move definition of LAPACK_MANGLE and FC_FUNC to fmatrixev.cc

parent ff9237b5
Branches
Tags
No related merge requests found
Pipeline #34899 passed
......@@ -173,14 +173,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
*/
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment