boundary_init_part2 Subroutine

public subroutine boundary_init_part2(me, krn, cfg)

Arguments

Type IntentOptional Attributes Name
type(boundary_t), intent(inout) :: me
type(krn_t), intent(inout), target :: krn
class(input_t), intent(in), pointer :: cfg

Calls

proc~~boundary_init_part2~~CallsGraph proc~boundary_init_part2 boundary_init_part2 proc~convert2int_port convert2int_port proc~boundary_init_part2->proc~convert2int_port proc~input_str input_t%input_str proc~boundary_init_part2->proc~input_str proc~port_list_find port_list_t%port_list_find proc~boundary_init_part2->proc~port_list_find proc~input_has_key input_t%input_has_key proc~input_str->proc~input_has_key proc~input_node input_t%input_node proc~input_str->proc~input_node proc~select_scalar select_scalar proc~input_str->proc~select_scalar interface~to_str to_str proc~port_list_find->interface~to_str proc~to_int to_int proc~port_list_find->proc~to_int proc~str_from_int str_from_int interface~to_str->proc~str_from_int proc~str_from_real str_from_real interface~to_str->proc~str_from_real get get proc~input_has_key->get proc~select_dict select_dict proc~input_has_key->proc~select_dict proc~input_node->get proc~dictionary_traverse dictionary_traverse proc~input_node->proc~dictionary_traverse proc~input_node->proc~select_dict proc~dictionary_traverse->proc~dictionary_traverse get_dictionary get_dictionary proc~dictionary_traverse->get_dictionary proc~abort_if abort_if proc~dictionary_traverse->proc~abort_if

Called by

proc~~boundary_init_part2~~CalledByGraph proc~boundary_init_part2 boundary_init_part2 program~reims_p reims_p program~reims_p->proc~boundary_init_part2

Source Code

subroutine boundary_init_part2(me,krn,cfg)
    type(boundary_t), intent(inout) :: me
    type(krn_t), target, intent(inout) :: krn
    class(input_t), pointer, intent(in) :: cfg

    me%port => krn%FF_flux_ports(krn%FF_flux_list%find(cfg%str('link/id'), &
                                                       convert2int_port(cfg%str('link/node'))))

    if(me%port%connected) then
        print*,'Port ',cfg%str('link/node'),' belonging to ',cfg%str('link/id'),' already connected to a link'
        stop
    endif
    me%port%connected=.true.                                                       
end subroutine boundary_init_part2