remove_all Subroutine

private subroutine remove_all(self)

Stop following all trajectories.

Type Bound

TrajectoryFollower

Arguments

Type IntentOptional Attributes Name
class(TrajectoryFollower), intent(inout) :: self

Calls

proc~~remove_all~~CallsGraph proc~remove_all TrajectoryFollower%remove_all proc~next_motion_stamp next_motion_stamp proc~remove_all->proc~next_motion_stamp

Called by

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

Source Code

    subroutine remove_all(self)
        class(TrajectoryFollower), intent(inout) :: self
        integer :: k
        do k = 1, self%n
            self%trajs(k)%p => null()
        end do
        self%n = 0
        self%current = 0
        self%stamp_ = next_motion_stamp()
    end subroutine remove_all