5 * Revision 1.1.1.1 1995/10/24 10:20:01 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.44 by S.Giani
15 *=== lortra ===========================================================*
17 SUBROUTINE LORTRA(N,NAUX,GAM,BGX,BGY,BGZ)
19 #include "geant321/dblprc.inc"
20 #include "geant321/dimpar.inc"
21 #include "geant321/iounit.inc"
23 C LORENTZ TRANSFORMATION OF N PARTICLES IN FINPAR TO BE
24 C STORED IN AUXPAR STARTING AT NAUX
26 C********************************************************************
28 #include "geant321/finpar.inc"
29 #include "geant321/auxpar.inc"
37 CALL ALTRA(GAM,BGX,BGY,BGZ,PXF(I),PYF(I),PZF(I),HEP(I),
38 & PPA,PXA(J),PYA(J),PZA(J),HEPA(J))