Commit 5f99e26a authored by Daniel Wortmann's avatar Daniel Wortmann

Next bugfix

parent e82e8d5a
......@@ -20,7 +20,7 @@ CONTAINS
!Check if we could exploit a real matrix even without inversion symmetry
IF (.NOT.noco%l_noco.AND..NOT.hmat%l_real) THEN
IF (ALL(ABS(kpts%bk(:,nk))<1E-10)) THEN
IF (ANY(ABS(AIMAG(hmat%data_c))>1e-10)) CALL judft_error("Matrix not real at Gamma-point",calledby="symmetrize_matrix")
IF (ANY(ABS(AIMAG(hmat%data_c))>1e-10)) EXIT
IF (mpi%irank==0) THEN
PRINT *,"Complex matrix made 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