add_colors Function

public elemental function add_colors(c1, c2) result(c)

Arguments

Type IntentOptional Attributes Name
type(rgb_color), intent(in) :: c1
type(rgb_color), intent(in) :: c2

Return Value type(rgb_color)


Called by

proc~~add_colors~~CalledByGraph proc~add_colors add_colors interface~operator(+) operator(+) interface~operator(+)->proc~add_colors

Source Code

  elemental function add_colors(c1,c2) result(c)
    type(rgb_color),intent(in) :: c1,c2
    type(rgb_color)            :: c
    c%r = c1%r + c2%r
    c%g = c1%g + c2%g
    c%b = c1%b + c2%b
  end function add_colors