Commit 7be91954 authored by Gregor Michalicek's avatar Gregor Michalicek

Fixed missing closing of xml.out file in force/geo.f90

The problem was due to a wrong mpi irank being passed to juDFT_end.
parent 3e0d0e65
......@@ -140,7 +140,7 @@ CONTAINS
IF (lconv) THEN
WRITE (6,'(a)') "Des woars!"
CALL juDFT_end(" GEO Des woars ", 1) ! The 1 is temporarily. Should be mpi%irank.
CALL juDFT_end(" GEO Des woars ", 0) ! The 0 is temporarily. Should be mpi%irank.
ELSE
na = 0
DO itype=1,atoms%ntype
......
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