body_eph_interface Derived Type

type, private :: body_eph_interface

the interface to a splined ephemeris for a body used for calls to db1val.


Inherits

type~~body_eph_interface~~InheritsGraph type~body_eph_interface body_eph_interface type~body_eph body_eph type~body_eph_interface->type~body_eph eph

Inherited by

type~~body_eph_interface~~InheritedByGraph type~body_eph_interface body_eph_interface type~jpl_ephemeris_splined jpl_ephemeris_splined type~jpl_ephemeris_splined->type~body_eph_interface earth_eph_interface, sun_eph_interface, ssb_eph_interface, jupiter_eph_interface

Components

Type Visibility Attributes Name Initial
integer, private :: inbvx = 0
real(kind=wp), private, dimension(:), allocatable :: w0

work array - dimension(3_ip*kx)
type(body_eph), private, pointer :: eph => null()

points to the ephemeris

Type-Bound Procedures

procedure, public :: get_r

  • private function get_r(me, et) result(r)

    Arguments

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

    ephemeris time (sec)

    Return Value real(kind=wp), dimension(3)

    position vector

procedure, public :: get_rv

  • private function get_rv(me, et) result(rv)

    Arguments

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

    ephemeris time (sec)

    Return Value real(kind=wp), dimension(6)

    position/velocity vector

procedure, public :: destroy => destroy_body_eph_interface

procedure, public :: initialize => initialize_body_eph_interface

Source Code

        type :: body_eph_interface
            !! the interface to a splined ephemeris for a body
            !! used for calls to `db1val`.
            private
            integer :: inbvx = 0
            real(wp),dimension(:),allocatable :: w0  !! work array - dimension(3_ip*kx)
            type(body_eph),pointer :: eph => null() !! points to the ephemeris
            contains
            procedure,public :: get_r
            procedure,public :: get_rv
            procedure,public :: destroy => destroy_body_eph_interface
            procedure,public :: initialize => initialize_body_eph_interface
        end type body_eph_interface