drawn_pair Subroutine

private subroutine drawn_pair(self, i, a, b)

The pair at trajectory point i (1 to num_drawn) as drawn, its start a and end b: read back from the buffers.

Type Bound

RibbonArtist

Arguments

Type IntentOptional Attributes Name
class(RibbonArtist), intent(in) :: self
integer, intent(in) :: i

the trajectory point (1 to num_drawn)
real(kind=wp), intent(out) :: a(3)

the pair's start and end (frame coordinates)
real(kind=wp), intent(out) :: b(3)

the pair's start and end (frame coordinates)

Calls

proc~~drawn_pair~~CallsGraph proc~drawn_pair RibbonArtist%drawn_pair point point proc~drawn_pair->point

Source Code

    subroutine drawn_pair(self, i, a, b)
        class(RibbonArtist), intent(in) :: self
        integer, intent(in) :: i                    !! the trajectory point (1 to num_drawn)
        real(wp), intent(out) :: a(3), b(3)         !! the pair's start and end (frame coordinates)
        a = self%chain%point(2 * i - 1)
        b = self%chain%point(2 * i)
    end subroutine drawn_pair