print_cmyk Subroutine

private impure elemental subroutine print_cmyk(this)

Type Bound

color

Arguments

Type IntentOptional Attributes Name
class(color), intent(in) :: this

Called by

proc~~print_cmyk~~CalledByGraph proc~print_cmyk color%print_cmyk proc~print color%print proc~print->proc~print_cmyk

Source Code

   elemental impure subroutine print_cmyk(this)
      class(color), intent(in) :: this
      print'(a,g0,a,g0,a,g0,a,g0)', 'cmyk: ', this%c, ', ', this%m, ', ', this%y, ', ', this%k
   end subroutine print_cmyk