5 * Revision 1.1.1.1 1995/10/24 10:20:54 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.30 by S.Giani
12 SUBROUTINE GROT(X,RMAT,XNEW)
14 C. ******************************************************************
16 C * ROUTINE TO ROTATE POINT X BY MATRIX RMAT TO *
17 C * FORM POINT XNEW. *
19 C. * ==>Called by : GNEXT, GTNEXT *
20 C. * Author A.McPherson ********* *
22 C. ******************************************************************
24 DIMENSION X(3),XNEW(3),RMAT(10)
26 IF(RMAT(10).NE.0.0) THEN
27 XNEW(1) = X(1)*RMAT(1) + X(2)*RMAT(2) + X(3)*RMAT(3)
28 XNEW(2) = X(1)*RMAT(4) + X(2)*RMAT(5) + X(3)*RMAT(6)
29 XNEW(3) = X(1)*RMAT(7) + X(2)*RMAT(8) + X(3)*RMAT(9)