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

*$ CREATE ADDHP.ADD
*COPY ADDHP
*
*=== addhp ============================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Include file Addhp: (it is a very old one, recently put into an  *
*                          include file)                               *
*                                                                      *
*     Created on    17 may 1995    by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on 03-aug-99     by    Alfredo Ferrari               *
*                                                                      *
*     Included in the following routines:                              *
*                                                                      *
*              BLKDT5                                                  *
*              HADDEN                                                  *
*                                                                      *
*----------------------------------------------------------------------*
*
*  Till 3-aug-99:
*     PARAMETER ( MXPADD =  16 )
*     PARAMETER ( MXADZK = 153 )
      PARAMETER ( MXPADD =  26 )
      PARAMETER ( MXADZK = 183 )
      CHARACTER*8 ANAMZ,ZKNAMZ
      COMMON / ADDHP / AMZ   (MXPADD), GAZ   (MXPADD), TAUZ  (MXPADD),
     &                 WTZ   (MXADZK), ICHZ  (MXPADD), IBARZ (MXPADD),
     &                 K1Z   (MXPADD), K2Z   (MXPADD), NZKZ (MXADZK,3),
     &                 II22
      COMMON / ADDHN / ANAMZ (MXPADD), ZKNAMZ (MXADZK)
Commit	Line	Data
d30b8254	1	*$ CREATE ADDHP.ADD
	2	*COPY ADDHP
	3	*
	4	=== addhp ============================================================
	5	*
	6	----------------------------------------------------------------------
	7	* *
	8	* Include file Addhp: (it is a very old one, recently put into an *
	9	* include file) *
	10	* *
	11	* Created on 17 may 1995 by Alfredo Ferrari & Paola Sala *
	12	* Infn - Milan *
	13	* *
	14	* Last change on 03-aug-99 by Alfredo Ferrari *
	15	* *
	16	* Included in the following routines: *
	17	* *
	18	* BLKDT5 *
	19	* HADDEN *
	20	* *
	21	----------------------------------------------------------------------
	22	*
	23	* Till 3-aug-99:
	24	* PARAMETER ( MXPADD = 16 )
	25	* PARAMETER ( MXADZK = 153 )
	26	PARAMETER ( MXPADD = 26 )
	27	PARAMETER ( MXADZK = 183 )
	28	CHARACTER*8 ANAMZ,ZKNAMZ
	29	COMMON / ADDHP / AMZ (MXPADD), GAZ (MXPADD), TAUZ (MXPADD),
	30	& WTZ (MXADZK), ICHZ (MXPADD), IBARZ (MXPADD),
	31	& K1Z (MXPADD), K2Z (MXPADD), NZKZ (MXADZK,3),
	32	& II22
	33	COMMON / ADDHN / ANAMZ (MXPADD), ZKNAMZ (MXADZK)
	34