set_intermediate_type Subroutine

private subroutine set_intermediate_type(self, type)

Type Bound

MarkerArtist

Arguments

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

INTERMEDIATE_TIME, _DISTANCE or _DATA

Calls

proc~~set_intermediate_type~~CallsGraph proc~set_intermediate_type MarkerArtist%set_intermediate_type proc~redraw_markers redraw_markers proc~set_intermediate_type->proc~redraw_markers

Source Code

    subroutine set_intermediate_type(self, type)
        class(MarkerArtist), intent(inout) :: self
        integer, intent(in) :: type                         !! INTERMEDIATE_TIME, _DISTANCE or _DATA
        if (type == self%intermediate_type_) return
        self%intermediate_type_ = type
        call redraw_markers(self)
    end subroutine set_intermediate_type