*$ 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 25-Nov-13 by Alfredo Ferrari * * * * Included in the following routines: * * * * BDHDR3 * * HADDEN * * * *----------------------------------------------------------------------* * * Till 3-Aug-99: * PARAMETER ( MXPADD = 16 ) * PARAMETER ( MXADZK = 153 ) * Till 25-Nov-13: * PARAMETER ( MXPADD = 26 ) * PARAMETER ( MXADZK = 183 ) PARAMETER ( MXPADD = 125 ) PARAMETER ( MXADZK = 670 ) 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 /