* *=== Icvxcm ===========================================================* * *----------------------------------------------------------------------* * * * Copyright (C) 2003-2019: CERN & INFN * * All Rights Reserved. * * * * ICarus VerteX CoMmon: * * * * Created on 02 February 1996 by Alfredo Ferrari & Paola Sala * * Infn - Milan * * * * Nicvtx = number of currently recorded verteces * * Kicvtx(i) = pointer to the i_th vertex information * * Kvxbgn = starting location (I*4) for verteces information * * in blank common * * Kvxlst = last location (I*4) for verteces information * * in blank common * * * *----------------------------------------------------------------------* * PARAMETER ( MXICVX = 1000 ) * INTEGER NICVTX, KICVTX, KVXBGN, KVXLST COMMON / ICVXCM / NICVTX, KICVTX (MXICVX), KVXBGN, KVXLST SAVE / ICVXCM /