set_trajectory Subroutine

private subroutine set_trajectory(self, traj)

Draw traj (it must stay alive while drawn).

Type Bound

TrajectoryArtist

Arguments

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

the trajectory to draw (not owned)

Source Code

    subroutine set_trajectory(self, traj)
        class(TrajectoryArtist), intent(inout) :: self
        type(Trajectory), intent(in), target :: traj        !! the trajectory to draw (not owned)
        self%traj => traj
        self%seen_generation = -1                     ! redraw
    end subroutine set_trajectory