FFsrcLink_init_part1 Subroutine

public subroutine FFsrcLink_init_part1(me, krn, cfg)

Arguments

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

Calls

proc~~ffsrclink_init_part1~~CallsGraph proc~ffsrclink_init_part1 FFsrcLink_init_part1 proc~input_dict1d input_t%input_dict1d proc~ffsrclink_init_part1->proc~input_dict1d proc~input_int1d input_t%input_int1d proc~ffsrclink_init_part1->proc~input_int1d proc~krn_add krn_t%krn_add proc~ffsrclink_init_part1->proc~krn_add get_string get_string proc~input_dict1d->get_string proc~input_has_key input_t%input_has_key proc~input_dict1d->proc~input_has_key proc~input_node input_t%input_node proc~input_dict1d->proc~input_node proc~select_dict select_dict proc~input_dict1d->proc~select_dict proc~select_list select_list proc~input_dict1d->proc~select_list interface~to_str to_str proc~input_int1d->interface~to_str proc~continue_if continue_if proc~input_int1d->proc~continue_if proc~get1d_range get1d_range proc~input_int1d->proc~get1d_range proc~input_int1d->proc~input_has_key proc~input_int1d->proc~input_node proc~select_scalar select_scalar proc~input_int1d->proc~select_scalar to_integer to_integer proc~input_int1d->to_integer proc~port_list_add port_list_t%port_list_add proc~krn_add->proc~port_list_add 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 proc~get1d_range->proc~input_has_key proc~input_has_key->proc~select_dict get get proc~input_has_key->get proc~input_node->proc~select_dict proc~input_node->get proc~dictionary_traverse dictionary_traverse proc~input_node->proc~dictionary_traverse proc~port_list_add->interface~to_str 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~~ffsrclink_init_part1~~CalledByGraph proc~ffsrclink_init_part1 FFsrcLink_init_part1 program~reims_p reims_p program~reims_p->proc~ffsrclink_init_part1

Source Code

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

    type(input_t), allocatable :: links(:)
    integer :: nb_non_zeros_exp, nb_non_zeros_imp

    links = cfg%dict1d('link')
    me%sizeNodes=size(links(1)%int1d('node'))

    nb_non_zeros_exp = 2*(2*Nb_VarC)*me%sizeNodes ! Only thermal exchanges between pipes inside the matrix - Only remains pressure relaxation after Pardiso call
    nb_non_zeros_imp = 2*(2*Nb_VarC)*me%sizeNodes ! Only thermal exchanges between pipes inside the matrix - Only remains pressure relaxation after Pardiso call

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