vectorCross

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