check_loop_method Function

public function check_loop_method(loop_method) result(loop_method_used)

Arguments

Type IntentOptional Attributes Name
type(LoopMethod), intent(in) :: loop_method

Return Value type(LoopMethod)


Calls

proc~~check_loop_method~~CallsGraph proc~check_loop_method check_loop_method proc~count_true_methods count_true_methods proc~check_loop_method->proc~count_true_methods

Source Code

    function check_loop_method(loop_method) result(loop_method_used)
        type(LoopMethod), intent(in) :: loop_method
        type(LoopMethod) :: loop_method_used
        integer :: nb_of_true

        nb_of_true = count_true_methods(loop_method)
        if (nb_of_true == 0) then
            loop_method_used = default_loop_method
        else if (nb_of_true == 1) then
            loop_method_used = loop_method
        else
            loop_method_used = default_loop_method
        end if
    end function check_loop_method