← Back to branch summary

~maddevelopers/mg5amcnlo/PY8meetsMG5aMC_release

« back to all changes in this revision

Viewing changes to Template/NLO/Utilities/check_events.f

  • Committer: Rikkert Frederix
  • Date: 2020-09-03 13:50:30 UTC
  • Revision ID: frederix@physik.uzh.ch-20200903135030-46zgoszg230xj0am
small improvement in one of the checker codes.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/NLO/Utilities/check_events.f
10
10
      implicit none
11
11
      integer maxevt,ifile,efile,mfile,jfile,kfile,rfile,i,npart,
12
12
     # iuseres_1,iwhmass,ilepmass,idec,itempsc,itempPDF,isavesc,
13
 
     # isavePDF,itemp,ii
 
13
     # isavePDF,itemp,ii,imcdelta
14
14
      integer numscales,numPDFpairs,numPDFs
15
15
      double precision chtot,xint,xinterr,xinta,xintaerr,qtiny
16
16
      parameter (qtiny=1.d-4)
76
76
     # xmin_wgt_resc_pdf(0:maxPDFs,maxPDFsets)
77
77
      integer istep
78
78
      double precision percentage
 
79
 
 
80
      logical mcatnlo_delta
 
81
      common /cMCatNLO_Delta/ mcatnlo_delta
 
82
 
79
83
      include 'dbook.inc'
80
84
 
81
85
      call setcharges(charges)
119
123
      read (*,*) idec
120
124
      if(idec.eq.0)call setdecmat()
121
125
 
 
126
      write (*,*) 'Enter 0 for MCatNLO-Delta'
 
127
      write (*,*) '      1 otherwise'
 
128
      read (*,*) imcdelta
 
129
      if (imcdelta.eq.0) then
 
130
         mcatnlo_delta=.true.
 
131
      else
 
132
         mcatnlo_delta=.false.
 
133
      endif
 
134
      
122
135
      ifile=34
123
136
      open (unit=ifile,file=event_file,status='old')
124
137
      open (unit=51,file='res_wgt',status='unknown')