krn_init_part1 Subroutine

public subroutine krn_init_part1(me, size)

Type Bound

krn_t

Arguments

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

Called by

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

Source Code

subroutine krn_init_part1(me,size)
    class(krn_t), intent(inout) :: me
    integer, intent(in) :: size
    allocate(me%nb_state_vars(size))
    allocate(me%nb_non_zeros_exp(size))
    allocate(me%nb_non_zeros_imp(size))

    me%FF_flux_list%list = ''
    me%FF_src_list%list = ''
    me%FS_list%list = ''
    me%SS_flux_list%list = ''
    me%SS_src_list%list = ''
    allocate(me%FF_flux_list%nb(size))
    allocate(me%FF_src_list%nb(size))
    allocate(me%FS_list%nb(size))
    allocate(me%SS_flux_list%nb(size))
    allocate(me%SS_src_list%nb(size))
    me%FF_flux_list%nb = 0
    me%FF_src_list%nb = 0
    me%FS_list%nb = 0
    me%SS_flux_list%nb = 0
    me%SS_src_list%nb = 0
    me%PortIdxForFSLink_List = ''

end subroutine krn_init_part1