20 INTEGER m_version !
this is the actual version number
22*-----------------------------------------------------------------------------
25* Parameters
m_buf1 and m_buf2 are lenths of buffors/headers in the histogram
26*
m_buf1 is
for 1-dim histogram and m_buf2
for 2-dim histo
27* m_buf2 is still not very consequently implemented
35*-----------------------------------------------------------------------------
42 CHARACTER*80 m_titch !
title of plot, several lines
43 INTEGER m_titlen ! number of lines
45 CHARACTER*1 m_BS ! backslash character
46 INTEGER m_tline ! variable controling style of line or mark
47 CHARACTER*80 m_Color !
string defining color
48 INTEGER m_KeyCol ! control of color use, reset internaly!
49 INTEGER m_KeyTbr ! control of table range, reset after use!
51 INTEGER m_KeyTbl ! Tag
for Table first column label
52 CHARACTER*32 m_TabLab ! label in 1-st column of table
53*-----------------------------------------------------------------------------
55 $
m_b(m_LenmB), ! storage
for all histograms
57 $ m_huni, ! disk
unit number
for histos
58 $ m_length, ! act. length of
m_b (less than m_LenmB )
59 $ m_LenInd, ! act. length of index, UNDER DEVELOPEMENT!
60 $ m_index(m_idmax,3), ! index of histos
61 $ m_titlc(m_idmax), ! titles of histos
63 $ m_lint, ! argument of gplint, sets various styles
65 $ m_titch(m_titlen), !
title of plot, several lines
66 $ m_Color, !
string defining color
67 $ m_KeyTit, ! status
key of plot Title
68 $ m_KeyCol, ! status
key of Color
69 $ m_KeyTbr, ! status
key of Table range
for ploting
70 $ m_TabRan(3), ! Table range
for ploting
71 $ m_KeyTbl, ! status
for Table first column label
72 $ m_TabLab(m_MaxNlab), ! Label in 1-st column of table
73 $ m_BS ! backslash
for LaTex (machine dependent!)
*******DOUBLE PRECISION m_EGridB INTEGER m_out
*******INTEGER m_nBinMax INTEGER m_NdiMax !No of bins in histogram for cell exploration division $ !Last vertex $ !Last active cell $ !Last cell in buffer $ !No of sampling when dividing cell $ !No of function total $ !Flag for random ceel for $ !Flag for type of for WtMax $ !Flag which decides whether vertices are included in the sampling $ entire domain is hyp !Maximum effective eevents per saves r n generator level $ !Flag for chat level in output
*******INTEGER m_nBinMax INTEGER m_NdiMax !No of bins in histogram for cell exploration division $ !Last vertex $ !Last active cell $ !Last cell in buffer $ !No of sampling when dividing cell $ !No of function total $ !Flag for random ceel for $ !Flag for type of for WtMax $ !Flag which decides whether vertices are included in the sampling $ entire domain is hyp !Maximum effective eevents per saves r n generator level $ !Flag for chat level in !Latex Output unit
*******INTEGER m_nBinMax INTEGER m_NdiMax PARAMETER(m_NdiMax=5) ! maximum dimension for siplices INTEGER m_KdiMax PARAMETER(m_KdiMax
*****************INTEGER m_version !this is the actual version number *INTEGER m_idmax !maximum number of bins *Parameters m_buf1 and m_buf2 are lenths of buffors headers in the histogram *m_buf1 is for dim histogram and m_buf2 for dim histo *m_buf2 is still not very consequently implemented *so m_buf1
*********DOUBLE PRECISION m_pi INTEGER m_lenwt !max no of aux weights INTEGER m_phmax !maximum photon multiplicity ISR FSR *DOUBLE COMPLEX m_Pauli4 DOUBLE COMPLEX m_AmpBorn DOUBLE COMPLEX m_AmpBoxy DOUBLE COMPLEX m_AmpBorn1 DOUBLE COMPLEX m_AmpBorn2 DOUBLE COMPLEX m_AmpExpo2p DOUBLE COMPLEX m_Rmat DOUBLE COMPLEX m_BoxGZut !DOUBLE COMPLEX m_F1finPair2 !DOUBLE PRECISION m_Vcut DOUBLE PRECISION m_Alfinv DOUBLE PRECISION m_Lorin1 DOUBLE PRECISION m_Lorin2 DOUBLE PRECISION m_b
************Class m_ypar INTEGER m_KeyWgt INTEGER m_nphot INTEGER m_KeyGPS INTEGER m_IsBeamPolarized INTEGER m_EvtGenInterface DOUBLE PRECISION m_Emin DOUBLE PRECISION m_sphot DOUBLE PRECISION m_Xenph DOUBLE PRECISION m_q2 DOUBLE PRECISION m_PolBeam2 DOUBLE PRECISION m_xErrPb *COMMON c_KK2f $ !CMS energy average $ !Spin Polarization vector first beam $ !Spin Polarization vector second beam $ !Beam energy spread[GeV] $ !minimum hadronization energy[GeV] $ !input READ never touch them !$ !debug facility $ !maximum weight $ !inverse alfaQED $ !minimum real photon IR regulator $ !ficticious photon IR regulator $ !Enhancement factor for Crude photon multiplicity $ !technical cut on E Ebeam for non IR real contributions $ !output cross section available through getter $ !output crossxsection available through getter *EVENT $ !e beam $ !e beam $ !final fermion $ !final anti fermion $ !photon momenta $ !MAIN weight of KK2f $ !crude distr from ISR and FSR $ !complete list of weights $ !complete list of weights $ !crude in nanobarns $ !Crude Born $ for fsr $ !photon for
*************DOUBLE PRECISION m_pi *DOUBLE PRECISION m_HvecTau2 DOUBLE PRECISION m_HvClone2 DOUBLE PRECISION m_gamma1 DOUBLE PRECISION m_gamma2 DOUBLE PRECISION m_thet1 DOUBLE PRECISION m_thet2 INTEGER m_IFPHOT *COMMON c_Taupair $ !Spin Polarimeter vector first Tau $ !Spin Polarimeter vector second Tau $ !Clone Spin Polarimeter vector first Tau $ !Clone Spin Polarimeter vector second Tau $ !Random Euler angle for cloning st tau $ !Random Euler angle for cloning st tau $ !Random Euler angle for cloning st tau $ !Random Euler angle for cloning nd tau $ !Random Euler angle for cloning nd tau $ !Random Euler angle for cloning nd tau $ !phi of HvecTau1 $ !theta of HvecTau1 $ !phi of HvecTau2 $ !theta of HvecTau2 $ !super key
IMPLICIT REAL *A O Z IMPLICIT INTEGER(I-N) C.... COMMONBALOCKS FOR MODE COMMON/MODEXS/ICH common/bornXS/xborn REAL *8 USER_XX(1000)
1.9.6