d_kepde Function

private pure function d_kepde(de, sigma0, sqrta, a, r)

Derivative of kepde w.r.t de.

Arguments

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

eccentric anomaly difference
real(kind=wp), intent(in) :: sigma0
real(kind=wp), intent(in) :: sqrta
real(kind=wp), intent(in) :: a
real(kind=wp), intent(in) :: r

Return Value real(kind=wp)


Source Code

    pure function d_kepde(de, sigma0, sqrta, a, r)

    implicit none

    real(wp),intent(in) :: de      !! eccentric anomaly difference
    real(wp),intent(in) :: sigma0
    real(wp),intent(in) :: sqrta
    real(wp),intent(in) :: a
    real(wp),intent(in) :: r
    real(wp) :: d_kepde

    d_kepde = one + sigma0 / sqrta * sin(de) - (one - r / a) * cos(de)

    end function d_kepde