ReadAttribute_HDF5_character Subroutine

  1. SELF_HDF5.f90
  2. SELF_HDF5
  3. ReadAttribute_HDF5_character

private subroutine ReadAttribute_HDF5_character(fileId, attributeName, attribute)

Arguments

TypeIntentOptionalAttributesName
integer(kind=HID_T), intent(in) :: fileId
character, intent(in) :: attributeName
character, intent(out) :: attribute

Calls

proc~~readattribute_hdf5_character~~CallsGraph proc~readattribute_hdf5_character ReadAttribute_HDF5_character h5aopen_f h5aopen_f proc~readattribute_hdf5_character->h5aopen_f h5aread_f h5aread_f proc~readattribute_hdf5_character->h5aread_f h5aclose_f h5aclose_f proc~readattribute_hdf5_character->h5aclose_f h5aget_type_f h5aget_type_f proc~readattribute_hdf5_character->h5aget_type_f h5tclose_f h5tclose_f proc~readattribute_hdf5_character->h5tclose_f

Called by

proc~~readattribute_hdf5_character~~CalledByGraph proc~readattribute_hdf5_character ReadAttribute_HDF5_character interface~readattribute_hdf5 ReadAttribute_HDF5 interface~readattribute_hdf5->proc~readattribute_hdf5_character proc~read_hopr_mesh2d_t Read_HOPr_Mesh2D_t proc~read_hopr_mesh2d_t->interface~readattribute_hdf5 proc~read_hopr_mesh3d_t Read_HOPr_Mesh3D_t proc~read_hopr_mesh3d_t->interface~readattribute_hdf5

Contents

Source Code

ReadAttribute_HDF5_character

Source Code

  subroutine ReadAttribute_HDF5_character(fileId,attributeName,attribute)
    implicit none
    integer(HID_T),intent(in) :: fileId
    character(*),intent(in) :: attributeName
    character(*),intent(out) :: attribute
    ! Local
    integer(HID_T) :: attrId
    integer(HID_T) :: typeId
    integer(HSIZE_T) :: dims(1:1)
    integer :: error

    dims(1) = 1
    call h5aopen_f(fileId,trim(attributeName),attrId,error)
    call h5aget_type_f(attrId,typeId,error)

    call h5aread_f(attrId,typeId,attribute,dims,error)

    call h5tclose_f(typeId,error)
    call h5aclose_f(attrId,error)

  endsubroutine ReadAttribute_HDF5_character