FL Function

private function FL(n)

The FL factorial function from [1].

References

  1. W. M. Lear, "The Programs TRAJ1 and TRAJ2", JSC Mission Planning and Analysis Division, JSC-22512, 87-FM-4, April 1987

SOURCE

Arguments

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

Return Value real(kind=wp)


Called by

proc~~fl~~CalledByGraph proc~fl FL proc~convert convert proc~convert->proc~fl proc~read_geopotential_file geopotential_model%read_geopotential_file proc~read_geopotential_file->proc~fl proc~read_geopotential_file->proc~convert proc~geopotential_module_test geopotential_module_test proc~geopotential_module_test->proc~read_geopotential_file

Source Code

    function FL(n)

    implicit none

    real(wp) :: FL
    integer,intent(in) :: n

    integer :: i

    FL = one
    if (n==0 .or. n==1) return

    do i=2,n
        FL = FL*i
    end do

    end function FL