In read_ini_file_mpi, the first check
inquire ( file=file, exist=exists )
if ( exists .eqv. .false.) then
write (*,'("ERROR! file: ",A," not found")') trim(adjustl(file))
call MPI_abort(MPI_COMM_WORLD, 86552, mpicode)
endif
is redundant and, in addition, the code fails at startup if the mpi processes don't share the same disk space. Maybe remove these lines.
In read_ini_file_mpi, the first check inquire ( file=file, exist=exists ) if ( exists .eqv. .false.) then write (*,'("ERROR! file: ",A," not found")') trim(adjustl(file)) call MPI_abort(MPI_COMM_WORLD, 86552, mpicode) endif is redundant and, in addition, the code fails at startup if the mpi processes don't share the same disk space. Maybe remove these lines.