Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=8), | intent(in) | :: | k | |||
type(rgb_color), | intent(in) | :: | cin |
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