5 * Revision 1.1.1.1 1996/02/15 17:49:51 mclareni
9 #include "kerngen/pilot.h"
10 SUBROUTINE CROSS(X,Y,Z)
12 C CERN PROGLIB# F117 CROSS .VERSION KERNFOR 2.02 730125
15 COMMON /SLATE/Z1,Z2,XQX(38)
16 DIMENSION X(3),Y(3),Z(3)
19 Z1=X(2)*Y(3)-X(3)*Y(2)
20 Z2=X(3)*Y(1)-X(1)*Y(3)
21 Z(3)=X(1)*Y(2)-X(2)*Y(1)