vector_triple_product Subroutine

public subroutine vector_triple_product(a, b, c, d)

Returns the vector triple product d = a x (b x c)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rp),	intent(in),		dimension(3)	::	a
real(kind=rp),	intent(in),		dimension(3)	::	b
real(kind=rp),	intent(in),		dimension(3)	::	c
real(kind=rp),	intent(out),		dimension(3)	::	d	Vector triple product