ReadArray_HDF5_real_r3_parallel Subroutine

  1. SELF_HDF5.f90
  2. SELF_HDF5
  3. ReadArray_HDF5_real_r3_parallel

private subroutine ReadArray_HDF5_real_r3_parallel(fileId, arrayName, hfArray, offset)

Arguments

TypeIntentOptionalAttributesName
integer(kind=HID_T), intent(in) :: fileId
character, intent(in) :: arrayName
real(kind=prec), intent(inout), dimension(:,:,:):: hfArray
integer(kind=HID_T), intent(in) :: offset(1:3)

Calls

proc~~readarray_hdf5_real_r3_parallel~~CallsGraph proc~readarray_hdf5_real_r3_parallel ReadArray_HDF5_real_r3_parallel h5dget_space_f h5dget_space_f proc~readarray_hdf5_real_r3_parallel->h5dget_space_f h5sclose_f h5sclose_f proc~readarray_hdf5_real_r3_parallel->h5sclose_f h5pset_dxpl_mpio_f h5pset_dxpl_mpio_f proc~readarray_hdf5_real_r3_parallel->h5pset_dxpl_mpio_f h5pcreate_f h5pcreate_f proc~readarray_hdf5_real_r3_parallel->h5pcreate_f h5screate_simple_f h5screate_simple_f proc~readarray_hdf5_real_r3_parallel->h5screate_simple_f h5sselect_hyperslab_f h5sselect_hyperslab_f proc~readarray_hdf5_real_r3_parallel->h5sselect_hyperslab_f h5dopen_f h5dopen_f proc~readarray_hdf5_real_r3_parallel->h5dopen_f h5dget_type_f h5dget_type_f proc~readarray_hdf5_real_r3_parallel->h5dget_type_f h5dread_f h5dread_f proc~readarray_hdf5_real_r3_parallel->h5dread_f h5tclose_f h5tclose_f proc~readarray_hdf5_real_r3_parallel->h5tclose_f h5pclose_f h5pclose_f proc~readarray_hdf5_real_r3_parallel->h5pclose_f h5dclose_f h5dclose_f proc~readarray_hdf5_real_r3_parallel->h5dclose_f

Called by

proc~~readarray_hdf5_real_r3_parallel~~CalledByGraph proc~readarray_hdf5_real_r3_parallel ReadArray_HDF5_real_r3_parallel interface~readarray_hdf5 ReadArray_HDF5 interface~readarray_hdf5->proc~readarray_hdf5_real_r3_parallel proc~read_hopr_mesh3d_t Read_HOPr_Mesh3D_t proc~read_hopr_mesh3d_t->interface~readarray_hdf5 proc~read_dgmodel2d_t Read_DGModel2D_t proc~read_dgmodel2d_t->interface~readarray_hdf5 proc~read_hopr_mesh2d_t Read_HOPr_Mesh2D_t proc~read_hopr_mesh2d_t->interface~readarray_hdf5 proc~read_dgmodel3d_t Read_DGModel3D_t proc~read_dgmodel3d_t->interface~readarray_hdf5 proc~read_dgmodel1d_t Read_DGModel1D_t proc~read_dgmodel1d_t->interface~readarray_hdf5

Contents

Source Code

ReadArray_HDF5_real_r3_parallel

Source Code

  subroutine ReadArray_HDF5_real_r3_parallel(fileId,arrayName,hfArray,offset)
    implicit none
    integer(HID_T),intent(in) :: fileId
    character(*),intent(in) :: arrayName
    integer(HID_T),intent(in) :: offset(1:3)
    real(prec),dimension(:,:,:),intent(inout) :: hfArray
    ! Local
    integer(HID_T) :: plistId
    integer(HID_T) :: dsetId
    integer(HID_T) :: dtypeId
    integer(HID_T) :: filespace
    integer(HID_T) :: memspace
    integer(HID_T) :: dims(1:3)
    integer :: error

    dims = shape(hfArray)
    call h5screate_simple_f(3,dims,memspace,error)
    call h5dopen_f(fileId,arrayName,dsetId,error)
    call h5dget_space_f(dsetId,filespace,error)
    call h5sselect_hyperslab_f(filespace,H5S_SELECT_SET_F,offset,dims,error)
    call h5pcreate_f(H5P_DATASET_XFER_F,plistId,error)
    call h5pset_dxpl_mpio_f(plistId,H5FD_MPIO_COLLECTIVE_F,error)
    call h5dget_type_f(dsetId,dtypeId,error)

    call h5dread_f(dsetId,dtypeId,hfArray,dims, &
                   error,memspace,filespace,plistId)

    call h5tclose_f(dtypeId,error)
    call h5pclose_f(plistId,error)
    call h5sclose_f(filespace,error)
    call h5dclose_f(dsetId,error)
    call h5sclose_f(memspace,error)

  endsubroutine ReadArray_HDF5_real_r3_parallel