*
*=== Emftrn ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     EMF TRaNsport related variables:                                 *
*                                                                      *
*        Lemagn = flag for magnetic field (set by Emfgeo)              *
*                                                                      *
*        Lrflbx = flag for reflection at boundary (set by Electr)      *
*                                                                      *
*        Xemfld = x-coordinate of the end point in the electro/magnetic*
*                 field                                                *
*        Yemfld = y-coordinate of the end point in the electro/magnetic*
*                 field                                                *
*        Zemfld = z-coordinate of the end point in the electro/magnetic*
*                 field                                                *
*                                                                      *
*        Uemfld = u-cosine of the end point in the electro/magnetic    *
*                 field                                                *
*        Vemfld = v-cosine of the end point in the electro/magnetic    *
*                 field                                                *
*        Wemfld = w-cosine of the end point in the electro/magnetic    *
*                 field                                                *
*                                                                      *
*        Dedxem = current de/dx for electrons/positrons                *
*        Demelf = energy loss/gain in EM fields                        *
*        Rndrfl = boundary reflection random number                    *
*                                                                      *
*        Irold  = old region                                           *
*                                                                      *
*        Irnew  = new region                                           *
*                                                                      *
*        Idisc  = geometry discard flag                                *
*                                                                      *
*        Intrck = flag for tracking initialization: it must be set to  *
*                 zero every time the trajectory direction has changed *
*                 from the previous call to Emfgeo                     *
*                                                                      *
*----------------------------------------------------------------------*
*
      LOGICAL LEMAGN, LRFLBX
      COMMON / EMFTRN / XEMFLD, YEMFLD, ZEMFLD, UEMFLD, VEMFLD, WEMFLD,
     &                  DEDXEM, DEMELF, EDEP  , RNDRFL, LEMAGN, LRFLBX,
     &                  IROLD , IRNEW , IDISC , INTRCK
      SAVE / EMFTRN /