dot_scalar_colors Function

public function dot_scalar_colors(v, cin) result(cout)

Arguments

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

Return Value type(rgb_color)


Called by

proc~~dot_scalar_colors~~CalledByGraph proc~dot_scalar_colors dot_scalar_colors interface~operator(.dot.) operator(.dot.) interface~operator(.dot.)->proc~dot_scalar_colors

Source Code

  function dot_scalar_colors(v,cin) result(cout)
    real(8),dimension(:),intent(in)               :: v
    type(rgb_color),dimension(size(v)),intent(in) :: cin
    type(rgb_color)                               :: cout
    integer :: i
    cout=rgb_color(0,0,0)
    do i=1,size(v)
       cout%r = cout%r + v(i)*cin(i)%r
       cout%g = cout%g + v(i)*cin(i)%g
       cout%b = cout%b + v(i)*cin(i)%b
    enddo
  end function dot_scalar_colors