get_segment_outputs Subroutine

public subroutine get_segment_outputs(me, xf, xf_rotating, x0_rotating)

After propagating a segment, this gets the outputs.

Type Bound

segment

Arguments

Type IntentOptional Attributes Name
class(segment), intent(in) :: me
real(kind=wp), intent(out), optional, dimension(6) :: xf

inertial frame
real(kind=wp), intent(out), optional, dimension(6) :: xf_rotating

rotating frame
real(kind=wp), intent(out), optional, dimension(6) :: x0_rotating

Source Code

    subroutine get_segment_outputs(me,xf,xf_rotating, x0_rotating)

    implicit none

    class(segment),intent(in) :: me
    real(wp),dimension(6),intent(out),optional :: xf             !!  inertial frame
    real(wp),dimension(6),intent(out),optional :: xf_rotating    !!  rotating frame
    real(wp),dimension(6),intent(out),optional :: x0_rotating

    if (present(xf))          xf = me%data%xf
    if (present(xf_rotating)) xf_rotating = me%data%xf_rotating
    if (present(x0_rotating)) x0_rotating = me%data%x0_rotating

    end subroutine get_segment_outputs