set_marker_source Function

private function set_marker_source(self, k, src) result(valid)

Set data source k (1: x, 2: y, 3: z), redrawing the markers; returns whether the trajectory has the data.

Arguments

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

the component (1: x, 2: y, 3: z)
type(DataSource), intent(in) :: src

its data source

Return Value logical


Calls

proc~~set_marker_source~~CallsGraph proc~set_marker_source set_marker_source proc~redraw_markers redraw_markers proc~set_marker_source->proc~redraw_markers verify_data verify_data proc~set_marker_source->verify_data

Called by

proc~~set_marker_source~~CalledByGraph proc~set_marker_source set_marker_source proc~marker_set_x_data MarkerArtist%marker_set_x_data proc~marker_set_x_data->proc~set_marker_source proc~marker_set_y_data MarkerArtist%marker_set_y_data proc~marker_set_y_data->proc~set_marker_source proc~marker_set_z_data MarkerArtist%marker_set_z_data proc~marker_set_z_data->proc~set_marker_source

Source Code

    logical function set_marker_source(self, k, src) result(valid)
        class(MarkerArtist), intent(inout) :: self
        integer, intent(in) :: k                            !! the component (1: x, 2: y, 3: z)
        type(DataSource), intent(in) :: src                 !! its data source
        self%sources_(k) = src
        self%default_data = .false.
        call redraw_markers(self)
        valid = .true.
        if (associated(self%traj)) valid = self%traj%verify_data(self%sources_)
    end function set_marker_source