[u/mrichter/AliRoot.git] / DPMJET / flukapro / (ICVXCM)

*$ CREATE ICVXCM.ADD
*COPY ICVXCM
*
*=== Icvxcm ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     ICarus VerteX CoMmon:                                            *
*                                                                      *
*     Created on  02 february 1996 by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on  04-jul-99    by    Alfredo Ferrari               *
*                                                                      *
*          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
Commit	Line	Data
d30b8254	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 (I4) for verteces information
	18	* in blank common *
	19	* Kvxlst = last location (I4) 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