Commit e34fa742 authored by Andreas Marek's avatar Andreas Marek
Browse files

Fix error in ELPA 1 impl

parent fb3219c6
......@@ -81,8 +81,8 @@ function elpa_solve_evp_&
real(kind=C_DATATYPE_KIND), intent(inout) :: a(obj%local_nrows,*)
real(kind=C_DATATYPE_KIND), intent(out) :: q(obj%local_nrows,*)
#else
real(kind=C_DATATYPE_KIND), intent(inout) :: a(obj%local_nrows,matrixCols)
real(kind=C_DATATYPE_KIND), intent(out) :: q(obj%local_nrows,matrixCols)
real(kind=C_DATATYPE_KIND), intent(inout) :: a(obj%local_nrows,obj%local_ncols)
real(kind=C_DATATYPE_KIND), intent(out) :: q(obj%local_nrows,obj%local_ncols)
#endif
real(kind=C_DATATYPE_KIND), allocatable :: tau(:)
#endif /* REALCASE */
......@@ -92,8 +92,8 @@ function elpa_solve_evp_&
complex(kind=C_DATATYPE_KIND), intent(inout) :: a(obj%local_nrows,*)
complex(kind=C_DATATYPE_KIND), intent(out) :: q(obj%local_nrows,*)
#else
complex(kind=C_DATATYPE_KIND), intent(inout) :: a(obj%local_nrows,matrixCols)
complex(kind=C_DATATYPE_KIND), intent(out) :: q(obj%local_nrows,matrixCols)
complex(kind=C_DATATYPE_KIND), intent(inout) :: a(obj%local_nrows,obj%local_ncols)
complex(kind=C_DATATYPE_KIND), intent(out) :: q(obj%local_nrows,obj%local_ncols)
#endif
real(kind=REAL_DATATYPE), allocatable :: q_real(:,:)
......
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