Added broadcast of results%last_distance

db5a543b · Gregor Michalicek · 3da6c31b · db5a543b
Commit db5a543b authored Feb 21, 2017 by Gregor Michalicek
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

main/fleur.F90 main/fleur.F90 +1 -0

No files found.
--- a/main/fleur.F90
+++ b/main/fleur.F90
@@ -806,6 +806,7 @@
       !--- J>

 #ifdef CPP_MPI
+       CALL MPI_BCAST(results%last_distance,1,MPI_DOUBLE_PRECISION,0,mpi%mpi_comm,ierr)
       CALL MPI_BARRIER(mpi%mpi_comm,ierr)
 #endif
       !-t3e