Commit 35bb96c7 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 1866e6cb
Pipeline #34902 passed with stage
in 9 minutes and 22 seconds
......@@ -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
*/
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment