WriteAttribute_HDF5_int32 Subroutine

  1. SELF_HDF5.f90
  2. SELF_HDF5
  3. WriteAttribute_HDF5_int32

private subroutine WriteAttribute_HDF5_int32(fileId, attributeName, attribute)

Arguments

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

Calls

proc~~writeattribute_hdf5_int32~~CallsGraph proc~writeattribute_hdf5_int32 WriteAttribute_HDF5_int32 h5screate_f h5screate_f proc~writeattribute_hdf5_int32->h5screate_f h5sclose_f h5sclose_f proc~writeattribute_hdf5_int32->h5sclose_f h5aclose_f h5aclose_f proc~writeattribute_hdf5_int32->h5aclose_f h5awrite_f h5awrite_f proc~writeattribute_hdf5_int32->h5awrite_f h5acreate_f h5acreate_f proc~writeattribute_hdf5_int32->h5acreate_f

Called by

proc~~writeattribute_hdf5_int32~~CalledByGraph proc~writeattribute_hdf5_int32 WriteAttribute_HDF5_int32 interface~writeattribute_hdf5 WriteAttribute_HDF5 interface~writeattribute_hdf5->proc~writeattribute_hdf5_int32 proc~write_mesh2d_t Write_Mesh2D_t proc~write_mesh2d_t->interface~writeattribute_hdf5 proc~write_mesh3d_t Write_Mesh3D_t proc~write_mesh3d_t->interface~writeattribute_hdf5 proc~write_mesh1d Write_Mesh1D proc~write_mesh1d->interface~writeattribute_hdf5

Contents

Source Code

WriteAttribute_HDF5_int32

Source Code

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

    dims(1) = 1
    call h5screate_f(H5S_SCALAR_F,aspaceId,error)
    call h5acreate_f(fileId,trim(attributeName),H5T_STD_I32LE, &
                     aspaceId,attrId,error)
    call h5awrite_f(attrId,H5T_STD_I32LE,attribute,dims,error)
    call h5sclose_f(aspaceId,error)
    call h5aclose_f(attrId,error)

  endsubroutine WriteAttribute_HDF5_int32