add_time Subroutine

private subroutine add_time(self, t)

Add a time at the end of the time list.

Type Bound

Trajectory

Arguments

Type IntentOptional Attributes Name
class(Trajectory), intent(inout) :: self
real(kind=wp), intent(in) :: t

the time

Calls

proc~~add_time~~CallsGraph proc~add_time Trajectory%add_time proc~grow_times grow_times proc~add_time->proc~grow_times proc~new_capacity new_capacity proc~grow_times->proc~new_capacity

Called by

proc~~add_time~~CalledByGraph proc~add_time Trajectory%add_time proc~add_point Trajectory%add_point proc~add_point->proc~add_time

Source Code

    subroutine add_time(self, t)
        class(Trajectory), intent(inout) :: self
        real(wp), intent(in) :: t                           !! the time
        call grow_times(self, self%n_times + 1)
        self%n_times = self%n_times + 1
        self%t(self%n_times) = t
        self%revision_ = self%revision_ + 1
    end subroutine add_time