hdf5_add_table Subroutine

private subroutine hdf5_add_table(me, table, variables)

Type Bound

hdf5_t

Arguments

Type IntentOptional Attributes Name
class(hdf5_t), intent(inout) :: me
character(len=*), intent(in) :: table
character(len=*), intent(in) :: variables(:)

Called by

proc~~hdf5_add_table~~CalledByGraph proc~hdf5_add_table hdf5_t%hdf5_add_table program~reims_p reims_p program~reims_p->proc~hdf5_add_table

Source Code

subroutine hdf5_add_table(me, table, variables)
    class(hdf5_t),  intent(inout) :: me
    character(*),   intent(in)    :: table, variables(:)
    type(hdf_desc_p_t) :: tmp(0)
    if (allocated(me%tbl_dsc)) then
        me%tbl_dsc = [me%tbl_dsc, tbl_dsc_t(table,variables,tmp)]
    else
        me%tbl_dsc = [tbl_dsc_t(table,variables,tmp)]
    endif
end subroutine hdf5_add_table