C
      logical duejet,trejet,fragm,wei,two,longit,transv
     +       ,user                                      ! not in ZDIS
      logical lightf,thlim,charm,strange,checkout,onlych
      COMMON/LOGICA/duejet,trejet,fragm,wei,two,longit,transv,
     +              user,                               ! not in ZDIS
     +              lightf,thlim,charm,strange,checkout,onlych
      COMMON/EVENTS/nevwei,ievent,jevent,twojets,iqqbar
      COMMON/WEI2/nevent2,itoteve2,itwoev2,iwei2,nmass,fk_2,weimax2,
     +            sig2t,sig2l,weit2,weil2,twint2(7),twinte2(7),
     +            cs2(2),cst2(2),csl2(2),tcs2(2),tcse2(2),
     +            tcst2(2),tcste2(2),tcsl2(2),tcsle2(2),
     +            tcsb2,tcsbe2,tcsi2,tcsie2,tcsa2,tcsae2,tcsf2,tcsfe2
      COMMON/WEI3/nevent3,ITOTEVE3,itwoev3,IWEI3,nskip,fk_3,weimax3,
     +            weit3,weil3,TWINT3(7),TWINTE3(7),
     +            cs3(2),cst3(2),csl3(2),tcs3(2),tcse3(2),
     +            tcst3(2),tcste3(2),tcsl3(2),tcsle3(2),
     +            tcsb3,tcsbe3,tcsi3,tcsie3,tcsa3,tcsae3,tcsf3,tcsfe3
C
      COMMON/MASSES/AMP,AME,AMG,AMPSQ,AMESQ,AMGSQ,CMCBAR,CNBARN,PI,
     +              HBARC,HBARC2,CM2DIM,ALPHA,ALPHA2,ALPSCUT,
     +              effmas(4),cthre,sthre
      COMMON/BEAMS/EBEAM,PBEAM,EB_I(5),PB(5),STOT(5),LFLAG
      COMMON/KCUTS/QSQC(2),TCUTS(2),AMX2C(2),XPOMC(2),
     +             AKT2C(2),VCUTS(12),xbjddc,betamx
      COMMON/DIFFR/BSLOPE,CTH2,CTH
      COMMON/LUND/IPS,idq
      COMMON/GENERA/PP,RR,SS,AA,BB,BBB,CC,CCC,EEE,FF
      COMMON/CHECK/laacheck,nptcms,PT2CMS,
     +             IAKT2,IQSQ,IEXBJ,IAMX2,IZ,IAMF2,ITHJCM,ialps,
     +             akt2lim,xpomlim(2),amx2lim(2),chmin,stmin
      COMMON/CHOICE/akt2cut,ikfact,iwg,fks(2)
      COMMON/GLUON/igluon,gval(2),gsfk02,gpar(4) 
c
      logical radcor,radcor_i,radcor_f,radcor_a
      common/radlog/radcor,radcor_i,radcor_f,radcor_a
      common/radcon/ephmin,thphmn
C
c
c NOT IN ZDIS
c
      COMMON/EVENTI/NEVENT,NEVPRI
      COMMON/SEME/ISEED
C