input_nb_cmp Function

private function input_nb_cmp(me) result(nb_cmp)

Type Bound

input_t

Arguments

Type IntentOptional Attributes Name
class(input_t), intent(in) :: me

Return Value integer


Called by

proc~~input_nb_cmp~~CalledByGraph proc~input_nb_cmp input_t%input_nb_cmp program~reims_p reims_p program~reims_p->proc~input_nb_cmp

Source Code

function input_nb_cmp(me) result(nb_cmp)
    class(input_t), intent(in) :: me
    integer :: nb_cmp
    type(type_key_value_pair), pointer :: cmp

    nb_cmp = 0
    cmp => me%cmp_by_type%first
    do while(associated(cmp))
        select type(cmp_array => cmp%value); class is(input_t)
            nb_cmp = nb_cmp + size(cmp_array%cmp_arr)
        end select
        cmp => cmp%next
    enddo
end function input_nb_cmp