factorial Function

public 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~test_003 test_003 proc~test_003->proc~factorial proc~test_004 test_004 proc~test_004->proc~factorial proc~test_005 test_005 proc~test_005->proc~factorial proc~test_006 test_006 proc~test_006->proc~factorial proc~test_007 test_007 proc~test_007->proc~factorial proc~test_008 test_008 proc~test_008->proc~factorial proc~create_bezier Colormap%create_bezier proc~create_bezier->proc~bezier proc~test_027 test_027 proc~test_027->proc~bezier proc~test_028 test_028 proc~test_028->proc~bezier proc~test_029 test_029 proc~test_029->proc~bezier proc~test_030 test_030 proc~test_030->proc~bezier proc~test_031 test_031 proc~test_031->proc~bezier proc~test_032 test_032 proc~test_032->proc~bezier proc~test_033 test_033 proc~test_033->proc~bezier program~check check program~check->proc~test_003 program~check->proc~test_004 program~check->proc~test_005 program~check->proc~test_006 program~check->proc~test_007 program~check->proc~test_008 program~check->proc~test_027 program~check->proc~test_028 program~check->proc~test_029 program~check->proc~test_030 program~check->proc~test_031 program~check->proc~test_032 program~check->proc~test_033 proc~test_047 test_047 program~check->proc~test_047 proc~test_072 test_072 program~check->proc~test_072 proc~test_084 test_084 program~check->proc~test_084 proc~test_047->proc~create_bezier proc~test_072->proc~create_bezier proc~test_084->proc~create_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 i = 2, n
            result = result * i
        end do
    end function factorial