ReadAttribute_HDF5_int32 Subroutine

private subroutine ReadAttribute_HDF5_int32(fileId, attributeName, attribute)

Arguments

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

Calls

proc~~readattribute_hdf5_int32~~CallsGraph proc~readattribute_hdf5_int32 ReadAttribute_HDF5_int32 h5aopen_f h5aopen_f proc~readattribute_hdf5_int32->h5aopen_f h5aread_f h5aread_f proc~readattribute_hdf5_int32->h5aread_f h5aclose_f h5aclose_f proc~readattribute_hdf5_int32->h5aclose_f h5aget_type_f h5aget_type_f proc~readattribute_hdf5_int32->h5aget_type_f h5tclose_f h5tclose_f proc~readattribute_hdf5_int32->h5tclose_f

Called by

proc~~readattribute_hdf5_int32~~CalledByGraph proc~readattribute_hdf5_int32 ReadAttribute_HDF5_int32 interface~readattribute_hdf5 ReadAttribute_HDF5 interface~readattribute_hdf5->proc~readattribute_hdf5_int32 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

  subroutine ReadAttribute_HDF5_int32(fileId,attributeName,attribute)
    implicit none
    integer(HID_T),intent(in) :: fileId
    character(*),intent(in) :: attributeName
    integer,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_int32