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