factorial Function

private pure function factorial(n) result(result)

Factorial function used for Bezier interpolation

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n

Return Value integer


Called by

proc~~factorial~~CalledByGraph proc~factorial factorial proc~bezier bezier proc~bezier->proc~factorial proc~create_bezier Colormap%create_bezier proc~create_bezier->proc~bezier program~create create program~create->proc~create_bezier

Source Code

    pure function factorial(n) result(result)
        integer, intent(in) :: n
        integer :: result, i
        result = 1
        do concurrent (i = 2:n)
            result = result * i
        end do
    end function factorial