Commit eb75bb82 authored by Andreas Marek's avatar Andreas Marek

Implement tunable option eigenvalues_only

parent ef008dd3
......@@ -108,6 +108,7 @@ function elpa_solve_evp_&
character(200) :: errorMessage
integer(kind=ik) :: na, nev, lda, ldq, nblk, matrixCols, &
mpi_comm_rows, mpi_comm_cols, mpi_comm_all
integer(kind=ik) :: eigenvalues_only
call obj%timer%start("elpa_solve_evp_&
&MATH_DATATYPE&
......@@ -238,6 +239,12 @@ function elpa_solve_evp_&
call obj%timer%stop("solve")
if (.not.(success)) return
call obj%get("eigenvalues_only",eigenvalues_only)
if (eigenvalues_only .eq. 1) then
q(obj%local_nrows,obj%local_ncols) = 0.0
return
endif
#if COMPLEXCASE == 1
q(1:l_rows,1:l_cols_nev) = q_real(1:l_rows,1:l_cols_nev)
#endif
......
......@@ -107,6 +107,7 @@
&MATH_DATATYPE
integer(kind=ik) :: na, nev, lda, ldq, nblk, matrixCols, &
mpi_comm_rows, mpi_comm_cols, mpi_comm_all
integer(kind=ik) :: eigenvalues_only
call obj%timer%start("elpa_solve_evp_&
&MATH_DATATYPE&
......@@ -372,6 +373,12 @@
stop 1
endif
call obj%get("eigenvalues_only",eigenvalues_only)
if (eigenvalues_only .eq. 1) then
q(obj%local_nrows,obj%local_ncols) = 0.0
return
endif
#if COMPLEXCASE == 1
q(1:l_rows,1:l_cols_nev) = q_real(1:l_rows,1:l_cols_nev)
......
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