Commit 0fc5ac33 authored by Andreas Marek's avatar Andreas Marek

Fix single-precision case

parent 7d2f7fe2
......@@ -602,9 +602,11 @@ end function elpa_get_communicators
!> \result success
#define REALCASE 1
#define SINGLE_PRECISION 1
#include "precision_macros.h"
#include "elpa1_template.X90"
#undef REALCASE
#undef SINGLE_PRECISION
#endif /* WANT_SINGLE_PRECISION_REAL */
!> \brief elpa_solve_evp_complex_1stage_double: Fortran function to solve the complex double-precision eigenvalue problem with 1-stage solver
......@@ -689,10 +691,11 @@ end function elpa_get_communicators
!> \result success
#define COMPLEXCASE 1
#define SINGLE_PRECISION
#include "precision_macros.h"
#include "elpa1_template.X90"
#undef COMPLEXCASE
#undef SINGLE_PRECISION
#endif /* WANT_SINGLE_PRECISION_COMPLEX */
end module ELPA1
......@@ -20,7 +20,7 @@ function elpa_solve_evp_&
integer(kind=c_int), intent(in) :: na, nev, lda, ldq, nblk, matrixCols, mpi_comm_rows, &
mpi_comm_cols, mpi_comm_all
real(kind=C_DATATYPE_KIND), intent(out) :: ev(na)
real(kind=REAL_DATATYPE), intent(out) :: ev(na)
#if REALCASE == 1
#ifdef USE_ASSUMED_SIZE
real(kind=C_DATATYPE_KIND), intent(inout) :: a(lda,*)
......
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