*
*=== Ictkcm ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     ICarus TracK CoMmon:                                             *
*                                                                      *
*     Created on  02 February 1996 by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*          Nicitk = number  of currently recorded tracks               *
*       Kicitk(i) = pointer to the i_th track information (0 address)  *
*          Mtictk = possible material for track recording              *
*          Mrictk = possible region for track recording                *
*          Ktkbgn = starting location (I*4) for track informations     *
*                   in blank common                                    *
*                   Each track consists of:                            *
*                        - part id                                     *
*                        - part Z                                      *
*                        - part A                                      *
*                        - region number                               *
*                        - lattice number                              *
*                        - (possible) generating particle id           *
*                        - number of tree branchings                   *
*                        - parent track                                *
*                        - grandparent track                           *
*                        - unused integer                              *
*                        - total energy deposit                        *
*                        - quenched energy deposit                     *
*                        - creation time                               *
*                        - x,y,z of the starting point                 *
*                        - x,y,z of the end point                      *
*                        - (possible) generating particle kinetic en.  *
*                        - Mxictb x,y,z of intermediate branchings     *
*                  for a total of 10 I*4 and 10 + Mxictb * 3 R*8 values*
*          Ktklst = last location (I*4) for track informations         *
*                   in blank common                                    *
*                                                                      *
*----------------------------------------------------------------------*
*
      PARAMETER ( LUNITK = 79   )
      PARAMETER ( MXICTK = 3000 )
      PARAMETER ( MXICTB = 30   )
      PARAMETER ( K4ICTK = 10 + ( 10 + MXICTB * 3 ) * KALGNM )
*
      INTEGER NICITK, KICITK, MTICTK, KTKBGN, KTKLST
      COMMON / ICTKCM / NICITK, KICITK (MXICTK), MTICTK, MRICTK,
     &                  KTKBGN, KTKLST
      SAVE / ICTKCM /