s3_product_c Function

function s3_product_c(a, b, c) result(s3)

Arguments

Type IntentOptional Attributes Name
complex(kind=8), intent(in), dimension(3) :: a
complex(kind=8), intent(in), dimension(3) :: b
complex(kind=8), intent(in), dimension(3) :: c

Return Value real(kind=8)


Calls

proc~~s3_product_c~~CallsGraph proc~s3_product_c s3_product_c cross_product cross_product proc~s3_product_c->cross_product

Source Code

function s3_product_c(a,b,c) result(s3)
  complex(8),dimension(3),intent(in) :: a,b,c
  real(8)                            :: s3
  s3 = dot_product(a,cross_product(b, c))
end function s3_product_c