*$ CREATE SPLTCM.ADD *COPY SPLTCM * *=== spltcm ===========================================================* * *----------------------------------------------------------------------* * * * Created on 10 december 1991 by Alfredo Ferrari & Paola Sala * * Infn - Milan * * * * Last change on 17-may-95 by Alfredo Ferrari * * * * Actual common name changed from SPLIT to SPLTCM on 22-jan-01 * * to get around a bug in the Linux compiler/linker * * * * This is the original common split of Hadrin * * * * Included in the following routines: * * * * CALUMV * * DATESH * * HADRIV * * RCHANV * * HADDEN * * RCHANW * * * *----------------------------------------------------------------------* * * There should be some safety in this dimension, it was originally * 460 = K2 (94) + 153 = 307 + 153: PARAMETER ( IDMXSP = IDMXDC / 2 + 170 ) COMMON / SPLTCM / WT (-6:IDMXSP), NZK (-6:IDMXSP,3) COMMON / NAMSDC / ANAME (-6:MXPABL), ZKNAME (-6:IDMXSP) CHARACTER*8 ANAME, ZKNAME SAVE / SPLTCM / SAVE / NAMSDC /