Performs a vector cross product.
interface vectorCross
function vectorCrossSingle(vectorA, vectorB)
real(single), intent(in) :: vectorA(3), vectorB(3)
real(single) :: vectorCrossSingle(3)
end function vectorCrossSingle
function vectorCrossDouble(vectorA, vectorB)
real(double), intent(in) :: vectorA(3), vectorB(3)
real(double) :: vectorCrossDouble(3)
end function vectorCrossDouble
end interface