*
*=== Icathr ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     ICArus THResholds and miscellaneous:                             *
*                                                                      *
*     Created on 1 February 1996   by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*          Dvicwp(i) = drift velocity for the i_th wire plane          *
*          Mricwp(i) = region into which the i_th wire plane must be   *
*                      "confined"                                      *
*          Kficwp(i) = extra flag for the i_th wire plane              *
*             Licvxp = logical flag for printing verteces in the "old" *
*                      way                                             *
*             Licvxm = logical flag for allocating memory for verteces *
*             Licvxp = logical flag for printing tracks                *
*             Lictkm = logical flag for allocating memory for tracks   *
*             Licpmt = logical flag for PMT's output                   *
*             Nicpmt = number of PMT's regions                         *
*          Mricpm(i) = region corresponding to the i_th PMT            *
*                                                                      *
*----------------------------------------------------------------------*
*
*  Drift velocity: 1.5 mm / us
      PARAMETER ( VDRIFT = 0.15 D+06 )
*  Drift axis = +y (drift is along +y)
      PARAMETER ( KDRIFT = 2 )
*  Maximum number of Icarus wire planes:
      PARAMETER ( MXICWP = 48 )
*  Maximum number of Icarus PMT's:
      PARAMETER ( MXICPM = 80 )
*
      COMMON / ICATHR / DELTTH, BREMTH, ENTRTH, DVICWP (MXICWP),
     &                  NUSICA, MTWIRE, LUNZBI, LUNZBO, LICVXP, LICVXM,
     &                  LICTKP, LICTKM, LZBROU, LJTINP, LICPMT, LNOECL,
     &                  NICPMT, MNOEFA, MNOEFB, MNOEFM, MRICWP (MXICWP),
     &                  KFICWP (MXICWP), MRICPM (MXICPM), ICRRUN
      LOGICAL LICVXP, LICVXM, LICTKP, LICTKM, LZBROU, LJTINP, LICPMT,
     &        LNOECL
      SAVE / ICATHR /