SSfluxLink_init_part1 Subroutine

public subroutine SSfluxLink_init_part1(me, krn, cfg)

Arguments

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

Calls

proc~~ssfluxlink_init_part1~~CallsGraph proc~ssfluxlink_init_part1 SSfluxLink_init_part1 proc~krn_add krn_t%krn_add proc~ssfluxlink_init_part1->proc~krn_add proc~port_list_add port_list_t%port_list_add proc~krn_add->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~~ssfluxlink_init_part1~~CalledByGraph proc~ssfluxlink_init_part1 SSfluxLink_init_part1 program~reims_p reims_p program~reims_p->proc~ssfluxlink_init_part1

Source Code

subroutine SSfluxLink_init_part1(me,krn,cfg)
    type(SSfluxLink_t), intent(out) :: me
    type(krn_t), intent(inout) :: krn
    class(input_t), pointer, intent(in) :: cfg

    integer :: nb_non_zeros_exp, nb_non_zeros_imp

    nb_non_zeros_exp = 0
    nb_non_zeros_imp = 2

    call krn%add('',0,nb_non_zeros_exp,nb_non_zeros_imp,0,0,0,0,0)
end subroutine SSfluxLink_init_part1