Commit ac54512c authored by Daniel Wortmann's avatar Daniel Wortmann

Update cdnval.F90 to fix MPI deadlock

parent 12fb707b
...@@ -565,7 +565,7 @@ CONTAINS ...@@ -565,7 +565,7 @@ CONTAINS
wk,nbands,eig,zMat) wk,nbands,eig,zMat)
#ifdef CPP_MPI #ifdef CPP_MPI
! Sinchronizes the RMA operations ! Sinchronizes the RMA operations
if (l_evp) CALL MPI_BARRIER(mpi%mpi_comm,ie) CALL MPI_BARRIER(mpi%mpi_comm,ie)
#endif #endif
!IF (l_evp.AND.(isize.GT.1)) THEN !IF (l_evp.AND.(isize.GT.1)) THEN
! eig(1:noccbd) = eig(n_start:n_end) ! eig(1:noccbd) = eig(n_start:n_end)
......
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