d_kepdh Function

private pure function d_kepdh(dh, sigma0, sqrta, a, r)

Derivative of kepdh w.r.t dh.

Arguments

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

hyperbolic 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_kepdh(dh, sigma0, sqrta, a, r)

    implicit none

    real(wp),intent(in) :: dh      !! hyperbolic 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_kepdh

    d_kepdh = -one + sigma0 / sqrta * sinh(dh) + (one - r / a) * cosh(dh)

    end function d_kepdh