Subroutine: VECTOR_OUTPROD
Purpose: Compute Vector Outer Product
File: vector_prod.shl
Class: Math
Author: Albrecht de Jonge
Use: subroutine VECTOR_OUTPROD(
X, Y, I doubleprecision(3)
Z ) O doubleprecision(3)
X, Y two 3-dimensional vectors
Z the outer product ( X cross Y )
Mainly meant as a shorthand for
Z(1) = X(2) * Y(3) - X(3) * Y(2)
Z(2) = X(3) * Y(1) - X(1) * Y(3)
Z(3) = X(1) * Y(2) - X(2) * Y(1)
The arguments may not share storage.
Update 901113 DK, adapted to GIPSY