input_keys1d Function

private function input_keys1d(me) result(keys)

Type Bound

input_t

Arguments

Type IntentOptional Attributes Name
class(input_t), intent(in) :: me

Return Value type(str_ptr), allocatable, (:)


Calls

proc~~input_keys1d~~CallsGraph proc~input_keys1d input_t%input_keys1d proc~select_dict select_dict proc~input_keys1d->proc~select_dict

Called by

proc~~input_keys1d~~CalledByGraph proc~input_keys1d input_t%input_keys1d proc~set_friction_correlation set_friction_correlation proc~set_friction_correlation->proc~input_keys1d proc~set_material set_material proc~set_material->proc~input_keys1d proc~set_nusselt_correlation set_nusselt_correlation proc~set_nusselt_correlation->proc~input_keys1d proc~signal_init signal_t%signal_init proc~signal_init->proc~input_keys1d proc~boundary_init_part1 boundary_init_part1 proc~boundary_init_part1->proc~signal_init proc~channel_init_part1 channel_init_part1 proc~channel_init_part1->proc~signal_init proc~load_frictions load_frictions proc~load_frictions->proc~set_friction_correlation proc~load_materials load_materials proc~load_materials->proc~set_material proc~load_nusselts load_nusselts proc~load_nusselts->proc~set_nusselt_correlation proc~mesh2d_init_part1 mesh2D_init_part1 proc~mesh2d_init_part1->proc~signal_init proc~sim_init simulation_t%sim_init proc~sim_init->proc~signal_init proc~solid_init_part1 solid_init_part1 proc~solid_init_part1->proc~signal_init proc~strand_init_part1 strand_init_part1 proc~strand_init_part1->proc~signal_init program~reims_p reims_p program~reims_p->proc~boundary_init_part1 program~reims_p->proc~channel_init_part1 program~reims_p->proc~load_frictions program~reims_p->proc~load_materials program~reims_p->proc~load_nusselts program~reims_p->proc~mesh2d_init_part1 program~reims_p->proc~sim_init program~reims_p->proc~solid_init_part1 program~reims_p->proc~strand_init_part1

Source Code

function input_keys1d(me) result(keys)
    class(input_t), intent(in) :: me
    type(str_ptr), allocatable :: keys(:)

    class(type_dictionary),     pointer :: dict
    class(type_key_value_pair), pointer :: kvp
    integer :: i
    
    dict => select_dict(me%root)
    kvp => dict%first
    allocate(keys(dict%size()))
    do i = 1, size(keys)
        keys(i)%p => kvp%key
        kvp => kvp%next
    enddo
end function input_keys1d