kepe Function

private pure function kepe(e, m, ecc)

Elliptic Kepler's equation

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: e

eccentric anomaly
real(kind=wp), intent(in) :: m

mean anomaly
real(kind=wp), intent(in) :: ecc

eccentricity

Return Value real(kind=wp)


Source Code

    pure function kepe(e, m, ecc)

    implicit none

    real(wp),intent(in) :: e   !! eccentric anomaly
    real(wp),intent(in) :: m   !! mean anomaly
    real(wp),intent(in) :: ecc !! eccentricity
    real(wp) :: kepe

    kepe = e - ecc * sin(e) - m

    end function kepe