set_cmyk Subroutine

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

Type Bound

color

Arguments

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

Called by

proc~~set_cmyk~~CalledByGraph proc~set_cmyk color%set_cmyk proc~set color%set proc~set->proc~set_cmyk program~demo_color demo_color program~demo_color->proc~set program~example26 example26 program~example26->proc~set program~example27 example27 program~example27->proc~set program~example28 example28 program~example28->proc~set

Source Code

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

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