read_ini_file_mpi

[dkolom]

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.

[tommy-engels]

you're completely right, changes commited.

[dkolom]

Thanks!