Commit d92f8d06 authored by Daniel Wortmann's avatar Daniel Wortmann

Update symmetrize_matrix.f90 to fix last commit

parent 6d302318
......@@ -22,7 +22,7 @@ CONTAINS
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 (mpi%irank) THEN
IF (mpi%irank==0) THEN
PRINT *,"Complex matrix made real"
WRITE(6,*) "Complex matrix made real"
END IF
......
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