Some common blocks are provided to the disphase and discontr routines. They contain the steering card values for the predefined bank and the event kinematics.
Here are the definitions2 :
INTEGER MOCAVERS, NEV, ITYPE, IALELM, NPDFL, NPDFH
INTEGER NFL, ALOOP, LEPTON
DOUBLE PRECISION Q2MIN, Q2MAX, XMIN, XMAX, YMIN, YMAX, S
DOUBLE PRECISION ELMIN, ELMAX, TLMIN, TLMAX, W2MIN, W2MAX
DOUBLE PRECISION SRQ2, SFQ2, SRPT, SFPT, SRKT, SFKT, SRCO
DOUBLE PRECISION SFCO, DEFAEM, XIMIN, XIMAX, EP
DOUBLE PRECISION LAMBDA3, LAMBDA4, LAMBDA5, LAMBDA6
DOUBLE PRECISION MASSS, MASSC, MASSB, MASST, LEPTON
COMMON /STERMOCA/MOCAVERS, NEV, ITYPE, IALELM, DEFAEM,
+ Q2MIN, Q2MAX, XMIN, XMAX,YMIN,YMAX, S, EP, NPDFL,
+ NPDFH, ELMIN, ELMAX, TLMIN, TLMAX, W2MIN, W2MAX,
+ SRQ2, SFQ2, SRPT, SFPT, SRKT, SFKT, SRCO, SFCO,
+ XIMIN, XIMAX, NFL, ALOOP,
+ LAMBDA3, LAMBDA4, LAMBDA5, LAMBDA6,
+ MASSS, MASSC, MASSB, MASST
and
INTEGER DISEVERS, ISEEDL, ISEEDH, NSCHEME
INTEGER NPO1, NPO2
COMMON /STERDISE/DISEVERS, ISEEDL, ISEEDH, NSCHEME,
+ NPO1, NPO2
INTEGER DISAVERS, IPROC, IBORN
DOUBLE PRECISION FPRE, FFIN
COMMON /STERDISA/DISAVERS, IPROC, FPRE, FFIN, IBORN
INTEGER MEPJVERS, IMBOSO, IMPROC, IMMASS, IMPDF,
+ IMBORN, IMEPROC, IMITER
DOUBLE PRECISION RMSMIN, PTMIN_DEF, YMIN_DEF, YMAX_DEF
COMMON /STERMEPJ/MEPJVERS, IMBOSO,
+ IMBORN, IMEPROC, IMITER, IMPDF,
+ RMSMIN, IMPROC, IMMASS,
+ PTMIN_DEF, YMIN_DEF, YMAX_DEF
where the values correspond to the steering card parameters.
The additional KINE common block defines the event kinematics with some invariants and some energies in the laboratory frame of reference.
DOUBLE PRECISION Q2, XB, YB, W2,
+ ESCELE, THSCELE, EE, XI
+ ALPHA, SUMKT2, SUMPT2
COMMON /KINE/EE, XI, Q2, XB, YB, W2, ESCELE, THSCELE,
+ ALPHA, SUMKT2, SUMPT2