Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment