00001 c----------------------------------------------------------
00002 c Common blocks for the fixed variables
00003 c
00004 c xm2 = heavy quark mass squared
00005 c xlam = lambda_QCD (5 flavours)
00006 c zg = strong coupling = sqrt(4*pi*alfas)
00007 c ze2 = electric charge of the quark (only used in photoproduction)
00008 c
00009 c sh = (p_had1 + p_had2)^2
00010 real * 8 sh
00011 common/shadr/sh
00012 real * 8 xm2,xlam,zg,ze2
00013 common/fixvar/xm2,xlam,zg,ze2
00014 c factors to rescale the factorization scales for hadron 1 and 2, and the
00015 c renormalization scale
00016 real * 8 xf2h1,xf2h2,xren2
00017 common/scalef/xf2h1,xf2h2,xren2
00018 c factors to rescale the factorization scales for hadron 1 and 2, and the
00019 c renormalization scale (MC terms)
00020 real * 8 xf2h1mc,xf2h2mc,xren2mc
00021 common/scalemcf/xf2h1mc,xf2h2mc,xren2mc
00022 c renormalization scale, factorization scales for hadron 1 and 2
00023 real * 8 xmur2,xmuf2h1,xmuf2h2
00024 common/phosca/xmur2,xmuf2h1,xmuf2h2
00025 c renormalization scale, factorization scales for hadron 1 and 2 (MC terms)
00026 real * 8 xmumcr2,xmumcf2h1,xmumcf2h2
00027 common/phoscamc/xmumcr2,xmumcf2h1,xmumcf2h2
00028 c Number of light flavours (3 for charm, 4 for bottom, 5 for top)
00029 integer nl
00030 common/nl/nl
00031 c----------------------------------------------------------
00032 c Flag to select subprocess: prc = 'gg','qq' or 'qg'
00033 c
00034 character * 2 prc
00035 common/process/prc
00036 c
00037 c
00038 c pq1, pq2 and pp are the transverse momenta of the quark, antiquark and light
00039 c parton, yq1, yq2 and yp are the corresponding rapidities. Some
00040 c events do not have an emitted light parton (the born process and the
00041 c virtual effects), in which case pp is zero.
00042 real * 8 pq1,pq2,pp,yq1,yq2,yp
00043 common/plbvar/pq1(2),pq2(2),pp(2)
00044 common/ylbvar/yq1,yq2,yp
00045 c
00046 c
00047 c scheme = 'DI' for deep inelastic, 'MS' for msbar scheme
00048 character * 2 schhad1,schhad2
00049 common/scheme/schhad1,schhad2
00050 c
00051 c
00052 c use newver='NEW' for vaxes, 'UNKNOWN' in other machines,
00053 character * 7 newver
00054 common/newver/newver
1.5.4