Commit 2db73d57 authored by Andreas Marek's avatar Andreas Marek
Browse files

Merge branch 'matrix_redistribute' into 'redistribute'

parents d4ac0329 1041b50c
......@@ -109,9 +109,9 @@ function elpa_solve_evp_&
#else
MATH_DATATYPE(kind=rck), intent(inout), target :: a(obj%local_nrows,obj%local_ncols)
#ifdef HAVE_SKEWSYMMETRIC
MATH_DATATYPE(kind=C_DATATYPE_KIND), optional, target, intent(out) :: q(obj%local_nrows,2*obj%local_ncols)
MATH_DATATYPE(kind=C_DATATYPE_KIND), optional, target, intent(out) :: qExtern(obj%local_nrows,2*obj%local_ncols)
#else
MATH_DATATYPE(kind=C_DATATYPE_KIND), optional, target, intent(out) :: q(obj%local_nrows,obj%local_ncols)
MATH_DATATYPE(kind=C_DATATYPE_KIND), optional, target, intent(out) :: qExtern(obj%local_nrows,obj%local_ncols)
#endif
#endif
#endif /* REDISTRIBUTE_MATRIX */
......@@ -121,7 +121,6 @@ function elpa_solve_evp_&
MATH_DATATYPE(kind=rck), pointer :: q(:,:)
#endif
#if REALCASE == 1
real(kind=C_DATATYPE_KIND), allocatable :: tau(:)
real(kind=C_DATATYPE_KIND), allocatable, target :: q_dummy(:,:)
......
Supports Markdown
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