source_points Function

private function source_points(traj, sources) result(n)

Number of points the data sources give: 0 for invalid sources or no trajectory, huge() if all are zero.

Arguments

Type IntentOptional Attributes Name
type(Trajectory), intent(in), pointer :: traj

the trajectory (null: none)
type(DataSource), intent(in) :: sources(3)

x, y, z data sources

Return Value integer


Calls

proc~~source_points~~CallsGraph proc~source_points 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~~source_points~~CalledByGraph proc~source_points source_points proc~curve_points CurveArtist%curve_points proc~curve_points->proc~source_points proc~marker_pick marker_pick proc~marker_pick->proc~source_points proc~marker_update MarkerArtist%marker_update proc~marker_update->proc~source_points proc~ribbon_points RibbonArtist%ribbon_points proc~ribbon_points->proc~source_points proc~segment_count segment_count proc~segment_count->proc~source_points proc~drawable_pick DrawableTrajectory%drawable_pick proc~drawable_pick->proc~marker_pick 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 source_points(traj, sources) result(n)
        type(Trajectory), pointer, intent(in) :: traj       !! the trajectory (null: none)
        type(DataSource), intent(in) :: sources(3)          !! x, y, z data sources
        n = 0
        if (.not. associated(traj)) return
        if (.not. traj%verify_data(sources)) return
        n = traj%num_points(sources)
    end function source_points