cross_product Function

public pure function cross_product(u, v) result(c)

Cross product in R3

$$\vec{c} = \vec{u} \times \vec{v} = \begin{pmatrix} u_2 v_3 - u_3 v_2 \\ u_3 v_1 - u_1 v_3 \\ u_1 v_2 - u_2 v_1 \end{pmatrix}$$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rkind),	intent(in)			::	u(3)
real(kind=rkind),	intent(in)			::	v(3)

Return Value real(kind=rkind), (3)