set_stride Subroutine

private subroutine set_stride(self, stride)

Draw a segment at points 1, 1 + stride, 1 + 2 stride, ... (stride >= 1).

Type Bound

SegmentArtist

Arguments

Type IntentOptional Attributes Name
class(SegmentArtist), intent(inout) :: self
integer, intent(in) :: stride

a segment at every stride-th point (>= 1)

Called by

proc~~set_stride~~CalledByGraph proc~set_stride SegmentArtist%set_stride proc~new_segment_artist new_segment_artist proc~new_segment_artist->proc~set_stride interface~segmentartist SegmentArtist interface~segmentartist->proc~new_segment_artist

Source Code

    subroutine set_stride(self, stride)
        class(SegmentArtist), intent(inout) :: self
        integer, intent(in) :: stride                       !! a segment at every stride-th point (>= 1)
        if (max(1, stride) == self%stride_) return
        self%stride_ = max(1, stride)
        self%seen_generation = -1
    end subroutine set_stride