get_cmyk Subroutine

private pure elemental subroutine get_cmyk(this, c, m, y, k)

Type Bound

color

Arguments

Type IntentOptional Attributes Name
class(color), intent(in) :: this
integer(kind=ik), intent(out) :: c
integer(kind=ik), intent(out) :: m
integer(kind=ik), intent(out) :: y
integer(kind=ik), intent(out) :: k

Called by

proc~~get_cmyk~~CalledByGraph proc~get_cmyk color%get_cmyk proc~get color%get proc~get->proc~get_cmyk program~demo_color demo_color program~demo_color->proc~get program~example26 example26 program~example26->proc~get

Source Code

   elemental pure subroutine get_cmyk(this, c, m, y, k)
      class(color), intent(in)  :: this
      integer(ik),  intent(out) :: c, m, y, k

      c = this%c
      m = this%m
      y = this%y
      k = this%k
   end subroutine get_cmyk