5 * Revision 1.1.1.1 1996/03/06 15:37:36 mclareni
6 * Add geane321 source directories
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.50 by S.Giani
12 SUBROUTINE DCROSS(X,Y,Z)
13 * ========================
15 * Double Precision Vector Product
17 * Author: V.Innocente (Naples)
19 #if !defined(CERNLIB_SINGLE)
20 IMPLICIT DOUBLE PRECISION ( A-H, O-Z )
22 DIMENSION X(3),Y(3),Z(3)
24 Z(1) = X(2)*Y(3)-X(3)*Y(2)
25 Z(2) = X(3)*Y(1)-X(1)*Y(3)
26 Z(3) = X(1)*Y(2)-X(2)*Y(1)