ReadArray_HDF5_int32_r1_serial Subroutine

private subroutine ReadArray_HDF5_int32_r1_serial(fileId, arrayName, hfArray)

Arguments

TypeIntentOptionalAttributesName
integer(kind=HID_T), intent(in) :: fileId
character, intent(in) :: arrayName
integer(kind=int32), intent(inout), dimension(:):: hfArray

Calls

proc~~readarray_hdf5_int32_r1_serial~~CallsGraph proc~readarray_hdf5_int32_r1_serial ReadArray_HDF5_int32_r1_serial h5dopen_f h5dopen_f proc~readarray_hdf5_int32_r1_serial->h5dopen_f h5dread_f h5dread_f proc~readarray_hdf5_int32_r1_serial->h5dread_f h5dclose_f h5dclose_f proc~readarray_hdf5_int32_r1_serial->h5dclose_f h5kind_to_type h5kind_to_type proc~readarray_hdf5_int32_r1_serial->h5kind_to_type

Called by

proc~~readarray_hdf5_int32_r1_serial~~CalledByGraph proc~readarray_hdf5_int32_r1_serial ReadArray_HDF5_int32_r1_serial interface~readarray_hdf5 ReadArray_HDF5 interface~readarray_hdf5->proc~readarray_hdf5_int32_r1_serial 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

  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