scalar_right_color Function

public elemental function scalar_right_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)


Source Code

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