reset_markers Subroutine

private subroutine reset_markers(self)

Start the intermediate markers and the bounds again.

Arguments

Type IntentOptional Attributes Name
type(MarkerArtist), intent(inout) :: self

Called by

proc~~reset_markers~~CalledByGraph proc~reset_markers reset_markers proc~marker_update MarkerArtist%marker_update proc~marker_update->proc~reset_markers

Source Code

    subroutine reset_markers(self)
        type(MarkerArtist), intent(inout) :: self
        self%n_seen = 0
        self%n_inter = 0
        self%n_inter_written = 0
        self%next_index = 0                           ! (0: not started)
    end subroutine reset_markers