cross_product Subroutine

public subroutine cross_product(a, b, res)

computes cross-product a x b = res

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	a(3)
real(kind=rk),	intent(in)			::	b(3)
real(kind=rk),	intent(out)			::	res(3)