colors Subroutine

private subroutine colors(self, c)

Pointer to the colors (4, num_colors; single precision, as drawn), without copying.

Type Bound

Trajectory

Arguments

Type IntentOptional Attributes Name
class(Trajectory), intent(in), target :: self
real(kind=c_float), intent(out), dimension(:,:), pointer :: c

(4, num_colors): colors [r, g, b, a] (null if none)

Source Code

    subroutine colors(self, c)
        class(Trajectory), intent(in), target :: self
        real(c_float), dimension(:,:), pointer, intent(out) :: c !! (4, num_colors): colors [r, g, b, a] (null if none)
        if (self%n_col == 0) then
            c => null()
        else
            c => self%col(:, 1:self%n_col)
        end if
    end subroutine colors