segment_data Derived Type

type, public :: segment_data

data for a segment


Inherited by

type~~segment_data~~InheritedByGraph type~segment_data segment_data type~segment segment type~segment->type~segment_data data, cached_data type~mission_type mission_type type~mission_type->type~segment segs type~my_solver_type my_solver_type type~my_solver_type->type~mission_type mission

Components

Type Visibility Attributes Name Initial
real(kind=wp), public :: et_ref = zero

ephemeris time reference epoch (all times relative to this)
real(kind=wp), public :: t0 = zero

initial time [days]
real(kind=wp), public :: t0_scale = one

opt var scale for t0
real(kind=wp), public :: t0_dpert = 1.0e-5_wp

opt var dpert for t0 [scaled]
real(kind=wp), public, dimension(6) :: x0_rotating = zero

initial state [km, km/s], rotating frame
real(kind=wp), public, dimension(6) :: x0_rotating_scale = one

opt var scale for x0_rotating
real(kind=wp), public, dimension(6) :: x0_rotating_dpert = [1.0e-2_wp, 1.0e-2_wp, 1.0e-2_wp, 1.0e-5_wp, 1.0e-5_wp, 1.0e-5_wp]

opt var dperts for x0_rotating [scaled]
real(kind=wp), public, dimension(6) :: x0 = zero

initial state [km, km/s], inertial frame
real(kind=wp), public :: tf = zero

final time [days]
real(kind=wp), public, dimension(6) :: xf = zero

final state [km, km/s], inertial frame
real(kind=wp), public, dimension(6) :: xf_rotating = zero

final state [km, km/s], rotating frame
real(kind=wp), public, dimension(6) :: xf_rotating_scale = one

func scale for xf_rotating

Source Code

    type segment_data

        !! data for a segment

        real(wp) :: et_ref = zero  !! ephemeris time reference epoch
                                   !! (all times relative to this)

        real(wp)              :: t0 = zero              !! initial time [days]
        real(wp)              :: t0_scale = one         !! opt var scale for `t0`
        real(wp)              :: t0_dpert = 1.0e-5_wp   !! opt var dpert for `t0` [scaled]

        real(wp),dimension(6) :: x0_rotating = zero !! initial state [km, km/s], rotating frame
        real(wp),dimension(6) :: x0_rotating_scale = one !! opt var scale for `x0_rotating`
        real(wp),dimension(6) :: x0_rotating_dpert = [1.0e-2_wp,&
                                                      1.0e-2_wp,&
                                                      1.0e-2_wp,&
                                                      1.0e-5_wp,&
                                                      1.0e-5_wp,&
                                                      1.0e-5_wp]  !! opt var dperts for `x0_rotating` [scaled]

        real(wp),dimension(6) :: x0 = zero          !! initial state [km, km/s], inertial frame
        real(wp)              :: tf = zero          !! final time [days]
        real(wp),dimension(6) :: xf = zero          !! final state [km, km/s], inertial frame

        real(wp),dimension(6) :: xf_rotating = zero      !! final state [km, km/s], rotating frame
        real(wp),dimension(6) :: xf_rotating_scale = one !! func scale for `xf_rotating`

    end type segment_data