DPMJET/flukapro/(ATNUBM)

   1 *$ CREATE ATNUBM.ADD
   2 *COPY ATNUBM
   3 *
   4 *=== atnubm ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     ATmospheric NeUtrino Buffer for Mirrors neutrinos:               *
   9 *                                                                      *
  10 *     Created on   29 may 1996     by    Alfredo Ferrari & Paola Sala  *
  11 *                                                   Infn - Milan       *
  12 *                                                                      *
  13 *     Last change on 15-dec-99     by    Alfredo Ferrari               *
  14 *                                                                      *
  15 *     Description of variables:                                        *
  16 *                                                                      *
  17 *          Idatnm = neutrino id (Paprop numbering)                     *
  18 *          Lgatnm = neutrino generation                                *
  19 *          Enatnm = neutrino energy (GeV)                              *
  20 *          Diatnm = neutrino production height or distance (cm)        *
  21 *          Thatnm = neutrino direction polar   (theta) angle (rad)     *
  22 *          Phatnm = neutrino direction azimuthal (phi) angle (rad)     *
  23 *          Wtatnm = neutrino weight (such to be automatically norm-    *
  24 *                   alized to fluence per unit time and area)          *
  25 *          Ipatnm = parent cosmic ray id (Z + 100 x A)                 *
  26 *          Ictfnm = i1 + j1 x 3 + i2 x 9 + j2 x 27 + i3 x 81 + j3 x 243*
  27 *                 + i4 x 729 + j4 x 2187 + i5 x 6561 + j5 x 19683      *
  28 *                   ik = cutoff flag for the k_th location, direct nu  *
  29 *                   jk = cutoff flag for the k_th location, mirror nu  *
  30 *                           = 0 <-> not yet checked                    *
  31 *                           = 1 <-> neutrino not cutoffed              *
  32 *                           = 2 <-> neutrino cutoffed                  *
  33 *          Ifatnm = "father" hadron/muon Fluka id                      *
  34 *          Igatnm = "grandfather" hadron Fluka id                      *
  35 *          Pmatnm = parent cosmic ray momentum (GeV/c/amu)             *
  36 *          Pfatnm = "father" hadron/muon momentum (GeV/c)              *
  37 *          Pgatnm = "grandfather" hadron momentum (GeV/c)              *
  38 *          Xpatnm = parent cosmic ray 1st interaction x coord. (cm)    *
  39 *          Ypatnm = parent cosmic ray 1st interaction y coord. (cm)    *
  40 *          Zpatnm = parent cosmic ray 1st interaction z coord. (cm)    *
  41 *          Tpatnm = parent cosmic ray direction polar     angle (rad)  *
  42 *          Ppatnm = parent cosmic ray direction azimuthal angle (rad)  *
  43 *          Ncatnm = current pointer in the buffer                      *
  44 *                                                                      *
  45 *   ALL VARIABLES ARE MEANT IN THE FRAME WHERE THE NEUTRINO POSITION   *
  46 *   IS ALONG (0,0,1), THAT IS Z IS THE LOCAL ZENITH AXIS, X IS POIN-   *
  47 *   TING NORTH, AND Y IS POINTING WEST                                 *
  48 *                                                                      *
  49 *----------------------------------------------------------------------*
  50 *
  51       PARAMETER ( MXATNM = MXATNU )
  52       COMMON / ATNUBM / ENATNM (MXATNM), DIATNM (MXATNM),
  53      &                  THATNM (MXATNM), PHATNM (MXATNM),
  54      &                  WTATNM (MXATNM), PMATNM (MXATNM),
  55      &                  PFATNM (MXATNM), PGATNM (MXATNM),
  56      &                  XPATNM (MXATNM), YPATNM (MXATNM),
  57      &                  ZPATNM (MXATNM), TPATNM (MXATNM),
  58      &                  PPATNM (MXATNM),
  59      &                  IDATNM (MXATNM), LGATNM (MXATNM),
  60      &                  IPATNM (MXATNM), IFATNM (MXATNM),
  61      &                  IGATNM (MXATNM), ICTFNM (MXATNM),
  62      &                  NCATNM
  63