← Back to branch summary

~maddevelopers/mg5amcnlo/new_clustering

« back to all changes in this revision

Viewing changes to Template/NLO/FixedOrderAnalysis/rbook_fe8.f

  • Committer: Rikkert Frederix
  • Date: 2021-09-09 15:51:40 UTC
  • mfrom: (78.75.502 3.2.1)
  • Revision ID: frederix@physik.uzh.ch-20210909155140-rg6umfq68h6h47cf
merge with 3.2.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/NLO/FixedOrderAnalysis/rbook_fe8.f
95
95
       integer id,nbin
96
96
       double precision xbin,xlo,xhi
97
97
 
98
 
c      APPLgrid commons
99
 
       include "reweight_appl.inc"
100
 
       include "appl_common.inc"
101
 
       integer iappl
102
 
       common /for_applgrid/ iappl
 
98
c      PineAPPL commons
 
99
       include "reweight_pineappl.inc"
 
100
       include "pineappl_common.inc"
 
101
       logical pineappl
 
102
       common /for_pineappl/ pineappl
103
103
 
104
104
       nbin = int((xhi-xlo)/(xbin*0.9999d0))
105
105
 
106
 
c      Initialize the grids only if the switch "iappl" is different from zero
 
106
c      Initialize the grids only if the switch "pineappl" is different from zero
107
107
c      and if the title string containes the word "central" and does not contain
108
108
c      the word "Born".
109
 
       if(iappl.ne.0.and.index(name,"central").ne.0.and.
 
109
       if(pineappl.and.index(name,"central").ne.0.and.
110
110
     1                   index(name,"Born").eq.0)then
111
111
c      Observable parameters
112
112
          appl_obs_nbins = nbin
113
113
          appl_obs_min   = xlo
114
114
          appl_obs_max   = xhi
115
 
c      Initialize APPLgrid routines
 
115
c      Initialize PineAPPL routines
116
116
          call APPL_init
117
117
c      Keep track of the position of this histogram
118
118
          nh_obs = nh_obs + 1
150
150
       integer ihisto
151
151
       double precision xval,wgt
152
152
 
153
 
c      APPLgrid commons
154
 
       include "reweight_appl.inc"
155
 
       include "appl_common.inc"
156
 
       integer iappl
157
 
       common /for_applgrid/ iappl
 
153
c      PineAPPL commons
 
154
       include "reweight_pineappl.inc"
 
155
       include "pineappl_common.inc"
 
156
       logical pineappl
 
157
       common /for_pineappl/ pineappl
158
158
       integer j
159
159
c
160
 
       if(iappl.ne.0)then
 
160
       if(pineappl)then
161
161
          do j=1,nh_obs
162
162
             if(ihisto.eq.ih_obs(j))then
163
163
                appl_obs_num   = j
164
164
                appl_obs_histo = xval
165
 
c      Fill the reference APPLgrid histograms
166
 
                call APPL_fill_ref
167
 
c      Fill the APPLgrid files
 
165
c      Fill the reference PineAPPL histograms
 
166
c      Fill the PineAPPL files
168
167
                call APPL_fill
169
168
             endif
170
169
          enddo
198
197
      character*(*) oper
199
198
      double precision x,y
200
199
 
201
 
c     APPLgrid commons
202
 
      include "reweight_appl.inc"
203
 
      include "appl_common.inc"
204
 
      integer iappl
205
 
      common /for_applgrid/ iappl
 
200
c     PineAPPL commons
 
201
      include "reweight_pineappl.inc"
 
202
      include "pineappl_common.inc"
 
203
      logical pineappl
 
204
      common /for_pineappl/ pineappl
206
205
      integer j
207
 
      if(iappl.ne.0)then
 
206
      if(pineappl)then
208
207
         do j=1,nh_obs
209
208
            if(ih1.eq.ih_obs(j))then
210
209
               appl_obs_num = j
211
 
               call APPL_fill_ref_out
212
210
               call APPL_term
213
211
            endif
214
212
         enddo