standish_ephemeris Derived Type

type, public, extends(ephemeris_class) :: standish_ephemeris

Standish ephemeris class for computing the approximate positions of the major planets.


Inherits

type~~standish_ephemeris~~InheritsGraph type~standish_ephemeris standish_ephemeris type~ephemeris_class ephemeris_class type~standish_ephemeris->type~ephemeris_class

Type-Bound Procedures

procedure, public :: get_rv => standish_rv_func

  • private subroutine standish_rv_func(me, et, targ, obs, rv, status_ok)

    Author
    Jacob Williams
    Date
    3/4/2018

    Return the state of the targ body relative to the obs body, in the inertial frame [ICRF].

    Read more…

    Arguments

    Type IntentOptional Attributes Name
    class(standish_ephemeris), intent(inout) :: me
    real(kind=wp), intent(in) :: et

    ephemeris time [sec]
    type(celestial_body), intent(in) :: targ

    target body
    type(celestial_body), intent(in) :: obs

    observer body
    real(kind=wp), intent(out), dimension(6) :: rv

    state of targ w.r.t. obs [km, km/s]
    logical, intent(out) :: status_ok

    true if there were no problems

procedure, public :: get_r => standish_r_func

  • private subroutine standish_r_func(me, et, targ, obs, r, status_ok)

    Return the position of the targ body relative to the obs body, in the inertial frame [ICRF].

    Read more…

    Arguments

    Type IntentOptional Attributes Name
    class(standish_ephemeris), intent(inout) :: me
    real(kind=wp), intent(in) :: et

    ephemeris time [sec]
    type(celestial_body), intent(in) :: targ

    target body
    type(celestial_body), intent(in) :: obs

    observer body
    real(kind=wp), intent(out), dimension(3) :: r

    position of targ w.r.t. obs [km]
    logical, intent(out) :: status_ok

    true if there were no problems

Source Code

    type,extends(ephemeris_class),public :: standish_ephemeris
        !! Standish ephemeris class for computing the
        !! approximate positions of the major planets.
    contains
        procedure,public :: get_rv => standish_rv_func
        procedure,public :: get_r => standish_r_func
    end type standish_ephemeris