curve_points Function

private function curve_points(self) result(n)

Number of points to draw (1 if all sources are zero: a point at the origin).

Type Bound

CurveArtist

Arguments

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

Return Value integer


Calls

proc~~curve_points~~CallsGraph proc~curve_points CurveArtist%curve_points num_times num_times proc~curve_points->num_times proc~source_points source_points proc~curve_points->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

Source Code

    integer function curve_points(self) result(n)
        class(CurveArtist), intent(in) :: self
        n = source_points(self%traj, self%sources_)
        if (all(self%sources_%src == SOURCE_ZERO) .and. n > 0) n = min(1, self%traj%num_times())
    end function curve_points