krn_init_part2 Subroutine

public subroutine krn_init_part2(me)

Type Bound

krn_t

Arguments

Type IntentOptional Attributes Name
class(krn_t), intent(inout) :: me

Called by

proc~~krn_init_part2~~CalledByGraph proc~krn_init_part2 krn_t%krn_init_part2 program~reims_p reims_p program~reims_p->proc~krn_init_part2

Source Code

subroutine krn_init_part2(me)
    class(krn_t), intent(inout) :: me
    integer :: imp_size,exp_size,rhs_size
    imp_size = sum(me%nb_non_zeros_imp)
    exp_size = sum(me%nb_non_zeros_exp)
    rhs_size = sum(me%nb_state_vars)
    allocate(me%FF_flux_ports(sum(me%FF_flux_list%nb)))
    allocate(me%FS_ports(sum(me%FS_list%nb)))
    allocate(me%FF_src_ports(sum(me%FF_src_list%nb)))
    allocate(me%SS_flux_ports(sum(me%SS_flux_list%nb)))
    allocate(me%SS_src_ports(sum(me%SS_src_list%nb)))
    allocate(me%rhs_or_solution(rhs_size))
    allocate(me%solution(rhs_size))

    allocate(coo_csr_t(imp_size)::me%imp)
    allocate(coo_csr_t(exp_size)::me%exp)
    me%imp%perm = 0
    me%exp%perm = 0
    me%idx = 0
end subroutine krn_init_part2