Commit a7d63b22 authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfixes in MPI version

parent 51662c9d
......@@ -969,8 +969,8 @@ MODULE m_cdn_io
#ifdef CPP_MPI
CALL mpi_bcast(l_same,1,MPI_LOGICAL,0,ierr)
CALL mpi_bcast(l_structure_by_shift,1,MPI_LOGICAL,0,ierr)
CALL mpi_bcast(l_same,1,MPI_LOGICAL,0,mpi%mpi_comm,ierr)
CALL mpi_bcast(l_structure_by_shift,1,MPI_LOGICAL,0,mpi%mpi_comm,ierr)
IF (l_same.OR..NOT.l_structure_by_shift) RETURN ! nothing to do
......@@ -372,7 +372,7 @@ MODULE m_types_setup
REAL :: epsdisp !< minimal displacement. If all displacements are < epsdisp stop
REAL :: epsforce !< minimal force. If all forces <epsforce stop
REAL :: force_converged=0.00001
REAL :: forcemix=3
INTEGER :: forcemix=3
REAL :: delgau
REAL :: alpha
REAL :: preconditioning_param
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