DPMJET/flukapro/(ICATHR)

   1 *$ CREATE ICATHR.ADD
   2 *COPY ICATHR
   3 *
   4 *=== Icathr ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     ICArus THResholds and miscellaneous:                             *
   9 *                                                                      *
  10 *     Created on 1 february 1996   by    Alfredo Ferrari & Paola Sala  *
  11 *                                                   Infn - Milan       *
  12 *                                                                      *
  13 *     Last change on  13-apr-01    by    Alfredo Ferrari               *
  14 *                                                                      *
  15 *          Dvicwp(i) = drift velocity for the i_th wire plane          *
  16 *          Mricwp(i) = region into which the i_th wire plane must be   *
  17 *                      "confined"                                      *
  18 *          Kficwp(i) = extra flag for the i_th wire plane              *
  19 *                                                                      *
  20 *----------------------------------------------------------------------*
  21 *
  22 *  Drift velocity: 1.5 mm / us
  23       PARAMETER ( VDRIFT = 0.15 D+06 )
  24 *  Drift axis = +y (drift is along +y)
  25       PARAMETER ( KDRIFT = 2 )
  26 *  Maximum number of Icarus wire planes:
  27       PARAMETER ( MXICWP = 24 )
  28 *
  29       COMMON / ICATHR / DELTTH, BREMTH, ENTRTH, DVICWP (MXICWP),
  30      &                  NUSICA, MTWIRE, LUNZBI, LUNZBO, LICPRN, LICMEM,
  31      &                  LZBROU, LJTINP, LNOECL, MNOEFA, MNOEFB, MNOEFM,
  32      &                  MRICWP (MXICWP), KFICWP (MXICWP)
  33       LOGICAL LICPRN, LICMEM, LZBROU, LJTINP, LNOECL
  34