GEANT321/fluka/lortra.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:01  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.44  by  S.Giani
  11 *-- Author :
  12 *$ CREATE LORTRA.FOR
  13 *COPY LORTRA
  14 *
  15 *=== lortra ===========================================================*
  16 *
  17       SUBROUTINE LORTRA(N,NAUX,GAM,BGX,BGY,BGZ)
  18
  19 #include "geant321/dblprc.inc"
  20 #include "geant321/dimpar.inc"
  21 #include "geant321/iounit.inc"
  22 C
  23 C     LORENTZ TRANSFORMATION OF  N PARTICLES IN  FINPAR  TO BE
  24 C     STORED IN  AUXPAR  STARTING AT NAUX
  25 C
  26 C********************************************************************
  27 C
  28 #include "geant321/finpar.inc"
  29 #include "geant321/auxpar.inc"
  30       DO 1  I=1,N
  31          J = NAUX + I - 1
  32          AMA(J)  = AMF(I)
  33          ICHA(J) = ICHF(I)
  34          IBARA(J)= IBARF(I)
  35          ANA(J)  = ANF(I)
  36          NREA(J) = NREF(I)
  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))
  39    1  CONTINUE
  40       RETURN
  41       END