segment_count Function

private function segment_count(self) result(m)

Number of segments to draw (none if all sources are zero).

Arguments

Type IntentOptional Attributes Name
type(SegmentArtist), intent(in) :: self

Return Value integer


Calls

proc~~segment_count~~CallsGraph proc~segment_count segment_count proc~source_points source_points proc~segment_count->proc~source_points proc~num_points Trajectory%num_points proc~source_points->proc~num_points proc~verify_data Trajectory%verify_data proc~source_points->proc~verify_data

Called by

proc~~segment_count~~CalledByGraph proc~segment_count segment_count proc~segment_build SegmentArtist%segment_build proc~segment_build->proc~segment_count proc~segment_update SegmentArtist%segment_update proc~segment_update->proc~segment_count

Source Code

    integer function segment_count(self) result(m)
        type(SegmentArtist), intent(in) :: self
        integer :: n
        m = 0
        if (all(self%start_%src == SOURCE_ZERO) .and. all(self%end_%src == SOURCE_ZERO)) return
        n = min(source_points(self%traj, self%start_), source_points(self%traj, self%end_))
        if (n > 0) m = (n - 1) / self%stride_ + 1
    end function segment_count