d_kepe Function

private pure function d_kepe(e, ecc)

Derivative of kepe w.r.t. e

Arguments

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

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

eccentricity

Return Value real(kind=wp)


Source Code

    pure function d_kepe(e, ecc)

    implicit none

    real(wp),intent(in) :: e   !! eccentric anomaly
    real(wp),intent(in) :: ecc !! eccentricity
    real(wp) :: d_kepe

    d_kepe = one - ecc * cos(e)

    end function d_kepe