test_HDF5MPI.f90 212 Bytes
Newer Older
1 2 3 4 5 6 7 8 9
      program test
      use hdf5
      integer:: error
      integer(hid_t)   :: access_prp
      CALL h5open_f(error)
      CALL h5pset_fapl_mpio_f(access_prp, 1,1,error)
      CALL h5close_f(error)

      end