krn_add_label Subroutine

public subroutine krn_add_label(me, name_plus_label, nb_nodes_FS, nb_nodes_SS)

Type Bound

krn_t

Arguments

Type IntentOptional Attributes Name
class(krn_t), intent(inout) :: me
character(len=*), intent(in) :: name_plus_label
integer, intent(in), optional :: nb_nodes_FS
integer, intent(in), optional :: nb_nodes_SS

Calls

proc~~krn_add_label~~CallsGraph proc~krn_add_label krn_t%krn_add_label proc~port_list_add port_list_t%port_list_add proc~krn_add_label->proc~port_list_add interface~to_str to_str proc~port_list_add->interface~to_str 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

Called by

proc~~krn_add_label~~CalledByGraph proc~krn_add_label krn_t%krn_add_label proc~mesh2d_init_part1 mesh2D_init_part1 proc~mesh2d_init_part1->proc~krn_add_label program~reims_p reims_p program~reims_p->proc~mesh2d_init_part1

Source Code

subroutine krn_add_label(me, name_plus_label, nb_nodes_FS, nb_nodes_SS)
    class(krn_t), intent(inout) :: me
    character(*), intent(in) :: name_plus_label
    integer, intent(in), optional :: nb_nodes_FS
    integer, intent(in), optional :: nb_nodes_SS

    if(present(nb_nodes_FS)) call me%FS_list%add(me%idx-1,name_plus_label,nb_nodes_FS)
    if(present(nb_nodes_SS)) call me%SS_src_list%add(me%idx-1,name_plus_label,nb_nodes_SS)
end subroutine krn_add_label