scalar_left_color Function

public elemental function scalar_left_color(k, cin) result(cout)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(in) :: k
type(rgb_color), intent(in) :: cin

Return Value type(rgb_color)


Called by

proc~~scalar_left_color~~CalledByGraph proc~scalar_left_color scalar_left_color interface~operator(ASTERISK)~2 operator(*) interface~operator(ASTERISK)~2->proc~scalar_left_color

Source Code

  elemental function scalar_left_color(k,cin) result(cout)
    real(8),intent(in)         :: k
    type(rgb_color),intent(in) :: cin
    type(rgb_color)            :: cout
    cout%r = k*cin%r
    cout%g = k*cin%g
    cout%b = k*cin%b
  end function scalar_left_color