Commit 68d60046 authored by Gregor Michalicek's avatar Gregor Michalicek

Fix typo in force/relaxation.F90

parent 7b60a246
...@@ -91,10 +91,10 @@ CONTAINS ...@@ -91,10 +91,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",mpi%irank) CALL judft_end("Structural relaxation: Done",mpi%irank)
ELSE ELSE
CALL mixing_history_reset(mpi) CALL mixing_history_reset(mpi)
CALL judft_end("Structual relaxation: new displacements generated",mpi%irank) CALL judft_end("Structural 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