5 * Revision 1.1.1.1 1995/10/24 10:21:24 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.21 by S.Giani
12 SUBROUTINE GDROT(P,COSTH,SINTH,COSPH,SINPH)
14 C. ******************************************************************
16 C. * Rotates vector from one reference system into another. *
17 C. * THETA and PHI are anti-clockwise Eulerian angles between the *
20 C. * ==>Called by : GBREME,GCOMP,GDECAY,GDECA3,GDRAY,GPAIRG *
21 C. * Author M.Hansroul, G.Patrick ********* *
24 C. ******************************************************************
27 #if !defined(CERNLIB_SINGLE)
28 DOUBLE PRECISION P1,P2,P3
31 C. ------------------------------------------------------------------
36 P(1)=P1*COSTH*COSPH - P2*SINPH + P3*SINTH*COSPH
37 P(2)=P1*COSTH*SINPH + P2*COSPH + P3*SINTH*SINPH
38 P(3)=-P1*SINTH + P3*COSTH