ephemeris_module Module

Abstract class for celestial body ephemerides.


Uses

  • module~~ephemeris_module~~UsesGraph module~ephemeris_module ephemeris_module module~celestial_body_module celestial_body_module module~ephemeris_module->module~celestial_body_module module~kind_module kind_module module~ephemeris_module->module~kind_module module~celestial_body_module->module~kind_module module~base_class_module base_class_module module~celestial_body_module->module~base_class_module module~numbers_module numbers_module module~celestial_body_module->module~numbers_module iso_fortran_env iso_fortran_env module~kind_module->iso_fortran_env module~numbers_module->module~kind_module

Used by

  • module~~ephemeris_module~~UsedByGraph module~ephemeris_module ephemeris_module module~fortran_astrodynamics_toolkit fortran_astrodynamics_toolkit module~fortran_astrodynamics_toolkit->module~ephemeris_module module~jpl_ephemeris_module jpl_ephemeris_module module~fortran_astrodynamics_toolkit->module~jpl_ephemeris_module module~lighting_module lighting_module module~fortran_astrodynamics_toolkit->module~lighting_module module~standish_module standish_module module~fortran_astrodynamics_toolkit->module~standish_module module~transformation_module transformation_module module~fortran_astrodynamics_toolkit->module~transformation_module module~jpl_ephemeris_module->module~ephemeris_module module~lighting_module->module~ephemeris_module module~lighting_module->module~transformation_module module~spice_ephemeris_module spice_ephemeris_module module~spice_ephemeris_module->module~ephemeris_module module~standish_module->module~ephemeris_module module~transformation_module->module~ephemeris_module proc~transformation_module_test transformation_module_test proc~transformation_module_test->module~jpl_ephemeris_module

Abstract Interfaces

abstract interface

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

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

    Arguments

    Type IntentOptional Attributes Name
    class(ephemeris_class), 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
    logical, intent(out) :: status_ok

    true if there were no problems

abstract interface

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

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

    Arguments

    Type IntentOptional Attributes Name
    class(ephemeris_class), 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 vector of targ w.r.t. obs
    logical, intent(out) :: status_ok

    true if there were no problems

Derived Types

type, public, abstract ::  ephemeris_class

abstract class for interfacing with ephemeris systems.

Type-Bound Procedures

procedure(rv_func), public, deferred :: get_rv

get the state of one body w.r.t. another body.
procedure(r_func), public, deferred :: get_r

get the position of one body w.r.t. another body.