subroutine ReadArray_HDF5_int32_r1_serial(fileId,arrayName,hfArray)
implicit none
integer(HID_T),intent(in) :: fileId
character(*),intent(in) :: arrayName
integer(int32),dimension(:),intent(inout) :: hfArray
! Local
integer(HID_T) :: dsetId
integer(HID_T) :: dims(1)
integer :: error
dims = shape(hfArray)
call h5dopen_f(fileId,arrayName,dsetId,error)
call h5dread_f(dsetId,h5kind_to_type(int32,H5_INTEGER_KIND),hfArray,dims,error)
call h5dclose_f(dsetId,error)
endsubroutine ReadArray_HDF5_int32_r1_serial