Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / gphys / gloren.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1995/10/24 10:21:26 cernlib
6* Geant
7*
8*
9#include "geant321/pilot.h"
10*CMZ : 3.21/02 29/03/94 15.41.22 by S.Giani
11*-- Author :
12 SUBROUTINE GLOREN(BETA,PA,PB)
13C.
14C. ******************************************************************
15C. * *
16C * Routine to transform momentum and energy from the *
17C * Lorentz frame A to the Lorentz frame B *
18C * *
19C * PA(1) *
20C * PA(2) Momentum components in frame A *
21C * PA(3) *
22C * PA(4) Energy *
23C * PB(..) same quantities in frame B *
24C * *
25C * BETA(1) Components of velocity of frame B *
26C * BETA(2) as seen from frame A *
27C * BETA(3) *
28C * BETA(4) 1./SQRT(1.-BETA**2) *
29C. * *
30C. * ==>Called by : GDECAY,GDECA3 *
31C. * Author M.Hansroul ********* *
32C. * *
33C. ******************************************************************
34C.
35 DIMENSION BETA(4),PA(4),PB(4)
36C.
37C. ------------------------------------------------------------------
38C.
39 BETPA = BETA(1)*PA(1) + BETA(2)*PA(2) + BETA(3)*PA(3)
40 BPGAM = (BETPA * BETA(4)/(BETA(4) + 1.) - PA(4)) * BETA(4)
41 PB(1) = PA(1) + BPGAM * BETA(1)
42 PB(2) = PA(2) + BPGAM * BETA(2)
43 PB(3) = PA(3) + BPGAM * BETA(3)
44 PB(4) =(PA(4) - BETPA) * BETA(4)
45 END
46