%open(mpi=.false.) default, error if .true. and HDF5-MPI not linked

Author: scivision

src/interface.f90

@@ -468,7 +468,7 @@ module subroutine h5open(self, filename, action, mpi, comp_lvl, shuffle, fletche
 class(hdf5_file), intent(inout) :: self
 character(*), intent(in) :: filename
 character(*), intent(in), optional :: action !< r, r+, rw, w, a
-logical, intent(in) :: mpi
+logical, intent(in), optional :: mpi
 integer, intent(in), optional :: comp_lvl  !< 0: no compression. 1-9: ZLIB compression, higher is more compressior
 logical, intent(in), optional :: shuffle
 logical, intent(in), optional :: fletcher32

src/mpi.F90

@@ -63,6 +63,10 @@
 call H5Pset_fapl_mpio_f(fapl, MPI_COMM_WORLD, MPI_INFO_NULL, ier)
 if(ier /= 0) error stop "ERROR:h5fortran:opener:h5pset_fapl_mpio could not collective open file for " // filename
 
+#else
+
+error stop "%open(mpi=.true.) requires HDF5-MPI, which is not currently linked to h5fortran." // filename
+
 #endif
 
 end procedure mpi_opener

src/utils.f90

@@ -52,7 +52,7 @@
 
 self%filename = filename
 
-self%use_mpi = mpi
+if(present(mpi)) self%use_mpi = mpi
 
 if(present(debug)) self%debug = debug