set_segment_outputs Subroutine

public subroutine set_segment_outputs(me, xf, xf_rotating)

Set the outputs of a segment, assuming it has been propagated elsewhere

Type Bound

segment

Arguments

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

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

inertial frame

Called by

proc~~set_segment_outputs~~CalledByGraph proc~set_segment_outputs segment%set_segment_outputs proc~propagate_segment segment%propagate_segment proc~propagate_segment->proc~set_segment_outputs proc~constraint_violations mission_type%constraint_violations proc~constraint_violations->proc~propagate_segment proc~export_trajectory_json_file mission_type%export_trajectory_json_file proc~export_trajectory_json_file->proc~propagate_segment proc~generate_eclipse_data mission_type%generate_eclipse_data proc~generate_eclipse_data->proc~propagate_segment proc~plot_trajectory mission_type%plot_trajectory proc~plot_trajectory->proc~propagate_segment proc~halo_solver_main halo_solver_main proc~halo_solver_main->proc~constraint_violations proc~halo_solver_main->proc~export_trajectory_json_file proc~halo_solver_main->proc~generate_eclipse_data proc~halo_solver_main->proc~plot_trajectory

Source Code

    subroutine set_segment_outputs(me,xf,xf_rotating)

    implicit none

    class(segment),intent(inout) :: me
    real(wp),dimension(6),intent(in) :: xf  !! inertial frame
    real(wp),dimension(6),intent(in) :: xf_rotating  !! inertial frame

    me%data%xf = xf
    me%data%xf_rotating = xf_rotating

    end subroutine set_segment_outputs