Commit 1fb45894 authored by Daniel Wortmann's avatar Daniel Wortmann

Chase only for MPI version

parent edb1e4bb
......@@ -416,10 +416,8 @@ IMPLICIT NONE
DO i = 1, ne
eig(i) = eigenvalues(i)
END DO
#endif
END SUBROUTINE chase_diag_MPI
#ifdef CPP_MPI
SUBROUTINE priv_init_chasempimat(hmat,mat,nev,nex)
USE m_types_mpimat
IMPLICIT NONE
......
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