cross_product Function

public function cross_product(a, b) result(c)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	a(:)
real(kind=8),	intent(in)			::	b(:)

Return Value real(kind=8), allocatable, (:)