kepdh Function

private pure function kepdh(dh, dn, sigma0, sqrta, a, r)

Battin, eqn. 4.64.

Arguments

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

hyperbolic anomaly difference
real(kind=wp), intent(in) :: dn
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 kepdh(dh, dn, sigma0, sqrta, a, r)

    implicit none

    real(wp),intent(in) :: dh      !! hyperbolic anomaly difference
    real(wp),intent(in) :: dn
    real(wp),intent(in) :: sigma0
    real(wp),intent(in) :: sqrta
    real(wp),intent(in) :: a
    real(wp),intent(in) :: r
    real(wp) :: kepdh

    kepdh = -dn - dh + sigma0 / sqrta * (cosh(dh) - one) + &
            (one - r / a) * sinh(dh)

    end function kepdh