get_rgb Subroutine

private pure elemental subroutine get_rgb(this, r, g, b)

Type Bound

color

Arguments

Type IntentOptional Attributes Name
class(color), intent(in) :: this
integer(kind=ik), intent(out) :: r
integer(kind=ik), intent(out) :: g
integer(kind=ik), intent(out) :: b

Called by

proc~~get_rgb~~CalledByGraph proc~get_rgb color%get_rgb proc~find_nearest color%find_nearest proc~find_nearest->proc~get_rgb proc~get color%get proc~get->proc~get_rgb program~demo_color demo_color program~demo_color->proc~find_nearest program~demo_color->proc~get program~example26 example26 program~example26->proc~get program~example27 example27 program~example27->proc~find_nearest

Source Code

   elemental pure subroutine get_rgb(this, r, g, b)
      class(color), intent(in)  :: this
      integer(ik),  intent(out) :: r, g, b

      r = this%r
      g = this%g
      b = this%b
   end subroutine get_rgb