equal_colors Subroutine

public elemental subroutine equal_colors(C1, C2)

Arguments

Type IntentOptional Attributes Name
type(rgb_color), intent(inout) :: C1
type(rgb_color), intent(in) :: C2

Called by

proc~~equal_colors~~CalledByGraph proc~equal_colors equal_colors interface~assignment(=)~2 assignment(=) interface~assignment(=)~2->proc~equal_colors

Source Code

  elemental subroutine equal_colors(C1,C2)
    type(rgb_color),intent(in)    :: C2
    type(rgb_color),intent(inout) :: C1
    C1%r = C2%r
    C1%g = C2%g
    C1%b = C2%b
  end subroutine equal_colors