set_trajectory Subroutine

private subroutine set_trajectory(self, traj)

Follow only traj (none if it is not associated).

Type Bound

TrajectoryFollower

Arguments

Type IntentOptional Attributes Name
class(TrajectoryFollower), intent(inout) :: self
type(Trajectory), intent(in), pointer :: traj

the trajectory to follow (not owned; null: none)

Calls

proc~~set_trajectory~2~~CallsGraph proc~set_trajectory~2 TrajectoryFollower%set_trajectory proc~add_trajectory TrajectoryFollower%add_trajectory proc~set_trajectory~2->proc~add_trajectory proc~remove_all TrajectoryFollower%remove_all proc~set_trajectory~2->proc~remove_all proc~next_motion_stamp next_motion_stamp proc~add_trajectory->proc~next_motion_stamp proc~set_default_data TrajectoryFollower%set_default_data proc~add_trajectory->proc~set_default_data proc~remove_all->proc~next_motion_stamp proc~set_default_data->proc~next_motion_stamp proc~dof Trajectory%dof proc~set_default_data->proc~dof proc~position_sources position_sources proc~set_default_data->proc~position_sources

Called by

proc~~set_trajectory~2~~CalledByGraph proc~set_trajectory~2 TrajectoryFollower%set_trajectory proc~follow ReferenceFrame%follow proc~follow->proc~set_trajectory~2

Source Code

    subroutine set_trajectory(self, traj)
        class(TrajectoryFollower), intent(inout) :: self
        type(Trajectory), pointer, intent(in) :: traj       !! the trajectory to follow (not owned; null: none)
        call self%remove_all()
        if (associated(traj)) call self%add_trajectory(traj)
    end subroutine set_trajectory