*$ 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: * * * * BDHDR3 * * 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) SAVE / ADDHP /, / ADDHN /