crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-26 21:25:36 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove using_mpio_device on Fortran side

Browse source
This commit is contained in:
Paul Romano 2018-04-19 12:26:32 -05:00
parent c50c6f0700
commit cfea8aa324
1 changed files with 0 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

28
src/hdf5_interface.F90
View file

@ -1396,34 +1396,6 @@ contains
ndims = dataset_ndims(obj_id)
end subroutine get_ndims
function using_mpio_device(obj_id) result(mpio)
integer(HID_T), intent(in) :: obj_id
logical :: mpio
integer :: hdf5_err
integer(HID_T) :: driver
integer(HID_T) :: file_id
integer(HID_T) :: fapl_id
! Determine file that this object is part of
call h5iget_file_id_f(obj_id, file_id, hdf5_err)
! Get file access property list
call h5fget_access_plist_f(file_id, fapl_id, hdf5_err)
! Get low-level driver identifier
call h5pget_driver_f(fapl_id, driver, hdf5_err)
! Close file access property list access
call h5pclose_f(fapl_id, hdf5_err)
! Close file access -- note that this only decreases the reference count so
! that the file is not actually closed
call h5fclose_f(file_id, hdf5_err)
mpio = (driver == H5FD_MPIO_F)
end function using_mpio_device
!===============================================================================
! READ_COMPLEX_2D reads double precision complex 2-D array data as output by
! the h5py HDF5 python module.