hdf5_add_to_table Subroutine

private subroutine hdf5_add_to_table(me, desc, tbl_name)

Type Bound

hdf5_t

Arguments

Type IntentOptional Attributes Name
class(hdf5_t), intent(inout) :: me
type(hdf_desc_t), intent(inout), target :: desc
character(len=*), intent(in) :: tbl_name

Called by

proc~~hdf5_add_to_table~~CalledByGraph proc~hdf5_add_to_table hdf5_t%hdf5_add_to_table proc~channel_init_part1 channel_init_part1 proc~channel_init_part1->proc~hdf5_add_to_table proc~solid_init_part1 solid_init_part1 proc~solid_init_part1->proc~hdf5_add_to_table proc~strand_init_part1 strand_init_part1 proc~strand_init_part1->proc~hdf5_add_to_table program~reims_p reims_p program~reims_p->proc~channel_init_part1 program~reims_p->proc~solid_init_part1 program~reims_p->proc~strand_init_part1

Source Code

subroutine hdf5_add_to_table(me, desc, tbl_name)
    class(hdf5_t),            intent(inout) :: me
    type(hdf_desc_t), target, intent(inout) :: desc
    character(*),             intent(in)    :: tbl_name

    integer :: i
    type(hdf_desc_p_t) :: tmp

    do i = 1, size(me%tbl_dsc)
        if (me%tbl_dsc(i)%name==tbl_name) exit
    enddo
    tmp%p => desc 
    me%tbl_dsc(i)%comps = [me%tbl_dsc(i)%comps, tmp]
end subroutine hdf5_add_to_table