DPMJET/flukapro/(ICVXCM)

   1 *$ CREATE ICVXCM.ADD
   2 *COPY ICVXCM
   3 *
   4 *=== Icvxcm ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     ICarus VerteX CoMmon:                                            *
   9 *                                                                      *
  10 *     Created on  02 february 1996 by    Alfredo Ferrari & Paola Sala  *
  11 *                                                   Infn - Milan       *
  12 *                                                                      *
  13 *     Last change on  04-jul-99    by    Alfredo Ferrari               *
  14 *                                                                      *
  15 *          Nicvtx = number  of currently recorded verteces             *
  16 *       Kicvtx(i) = pointer to the i_th vertex information             *
  17 *          Kvxbgn = starting location (I*4) for verteces information   *
  18 *                   in blank common                                    *
  19 *          Kvxlst = last location (I*4) for verteces information       *
  20 *                   in blank common                                    *
  21 *                                                                      *
  22 *----------------------------------------------------------------------*
  23 *
  24       PARAMETER ( MXICVX = 1000 )
  25 *
  26       INTEGER NICVTX, KICVTX, KVXBGN, KVXLST
  27       COMMON / ICVXCM / NICVTX, KICVTX (MXICVX), KVXBGN, KVXLST
  28