count_true_methods Function

public pure function count_true_methods(loop_method) result(count_true)

Arguments

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

Return Value integer


Called by

proc~~count_true_methods~~CalledByGraph proc~count_true_methods count_true_methods proc~check_loop_method check_loop_method proc~check_loop_method->proc~count_true_methods

Source Code

    pure function count_true_methods(loop_method) result(count_true)
        type(LoopMethod), intent(in) :: loop_method
        integer :: count_true

        count_true = 0
        if (loop_method%use_do_classic) count_true = count_true + 1
        if (loop_method%use_vectorized) count_true = count_true + 1
        if (loop_method%use_do_concurrent) count_true = count_true + 1
        if (loop_method%parallel%use_openmp) count_true = count_true + 1
        if (loop_method%parallel%use_mpi) count_true = count_true + 1
    end function count_true_methods