decreasing_times Function

private function decreasing_times(traj, n)

Whether points 1 .. n have decreasing times (a trajectory propagated backwards).

Arguments

Type IntentOptional Attributes Name
type(Trajectory), intent(in) :: traj

the trajectory
integer, intent(in) :: n

the points considered (1 .. n)

Return Value logical


Called by

proc~~decreasing_times~~CalledByGraph proc~decreasing_times decreasing_times proc~draw_trail draw_trail proc~draw_trail->proc~decreasing_times proc~markers_passed markers_passed proc~markers_passed->proc~decreasing_times proc~tail_ends tail_ends proc~tail_ends->proc~decreasing_times proc~trace_range trace_range proc~trace_range->proc~decreasing_times proc~curve_update CurveArtist%curve_update proc~curve_update->proc~draw_trail proc~draw_written draw_written proc~curve_update->proc~draw_written proc~draw_written->proc~tail_ends proc~draw_written->proc~trace_range proc~marker_update MarkerArtist%marker_update proc~marker_update->proc~markers_passed proc~segment_update SegmentArtist%segment_update proc~segment_update->proc~trace_range proc~chain_update ChainArtist%chain_update proc~chain_update->proc~draw_written

Source Code

    logical function decreasing_times(traj, n)
        type(Trajectory), intent(in) :: traj                !! the trajectory
        integer, intent(in) :: n                            !! the points considered (1 .. n)
        decreasing_times = .false.
        if (n > 1) decreasing_times = traj%time(n) < traj%time(1)
    end function decreasing_times