remove_trail Subroutine

private subroutine remove_trail(self)

No trail: the whole curve (or trace mode, if set) again.

Type Bound

CurveArtist

Arguments

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

Calls

proc~~remove_trail~~CallsGraph proc~remove_trail CurveArtist%remove_trail set_trail set_trail proc~remove_trail->set_trail

Source Code

    subroutine remove_trail(self)
        class(CurveArtist), intent(inout) :: self
        real(c_float) :: none(20)
        none = 0.0_c_float                                  ! (direction 0: no trail)
        self%trail_%on = .false.
        call self%chain%set_trail(none)
        self%tail_time = huge(1.0_wp)
    end subroutine remove_trail