DPMJET/flukapro/(USER)

   1 *$ CREATE USER.ADD
   2 *COPY USER
   3 *
   4 *=== user =============================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     Common User   for EMF                                            *
   9 *                                                                      *
  10 *                                     Last change: A. Ferrari 3-24-94  *
  11 *                                                                      *
  12 *        Lemagn = flag for magnetic field (set by Emfgeo)              *
  13 *                                                                      *
  14 *        Xemf   = x-coordinate of the end point in the magnetic field  *
  15 *        Yemf   = y-coordinate of the end point in the magnetic field  *
  16 *        Zemf   = z-coordinate of the end point in the magnetic field  *
  17 *                                                                      *
  18 *        Uemf   = u-cosine of the end point in the magnetic field      *
  19 *        Vemf   = v-cosine of the end point in the magnetic field      *
  20 *        Wemf   = w-cosine of the end point in the magnetic field      *
  21 *                                                                      *
  22 *        dedxem = current de/dx for electrons/positrons                *
  23 *        demelf = energy loss/gain in EM fields                        *
  24 *                                                                      *
  25 *        Intrck = flag for tracking initialization: it must be set to  *
  26 *                 zero every time the trajectory direction has changed *
  27 *                 from the previous call to Emfgeo                     *
  28 *                                                                      *
  29 *----------------------------------------------------------------------*
  30 *
  31       COMMON / USER / XEMF  , YEMF  , ZEMF  , UEMF  , VEMF  , WEMF  ,
  32      &                DEDXEM, DEMELF, LEMAGN, INTRCK
  33       LOGICAL LEMAGN
  34