Commit 85a88b66 authored by Matthias Redies's avatar Matthias Redies

try to fix @rost's relaxiation bug

parent 74ba8a11
...@@ -80,10 +80,10 @@ CONTAINS ...@@ -80,10 +80,10 @@ CONTAINS
CALL MPI_BCAST(l_conv,1,MPI_LOGICAL,0,mpi%mpi_comm,ierr) CALL MPI_BCAST(l_conv,1,MPI_LOGICAL,0,mpi%mpi_comm,ierr)
#endif #endif
IF (l_conv) THEN IF (l_conv) THEN
CALL judft_end("Structual relaxation: Done",0) CALL judft_end("Structual relaxation: Done",mpi%irank)
ELSE ELSE
CALL mixing_history_reset(mpi) CALL mixing_history_reset(mpi)
CALL judft_end("Structual relaxation: new displacements generated",0) CALL judft_end("Structual relaxation: new displacements generated",mpi%irank)
END IF END IF
END SUBROUTINE relaxation END SUBROUTINE relaxation
......
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