← Back to branch summary

~maddevelopers/mg5amcnlo/FKS_EW_flattened_dsig_merged2.3.3

« back to all changes in this revision

Viewing changes to Template/NLO/SubProcesses/write_event.f

  • Committer: Marco Zaro
  • Date: 2016-05-24 12:48:05 UTC
  • mfrom: (78.337.150 2.4.1)
  • Revision ID: marco.zaro@gmail.com-20160524124805-d0y3ij808wdroloh
merged with 2.4.1 rev 410

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/NLO/SubProcesses/write_event.f
157
157
      XERRUP(1)=uncer
158
158
      XMAXUP(1)=absint/ievents
159
159
      LPRUP(1)=66
160
 
      if (event_norm(1:5).eq.'unity') then
 
160
      if (event_norm(1:5).eq.'unity'.or.event_norm(1:3).eq.'sum') then
161
161
         IDWTUP=-3
162
162
      else
163
163
         IDWTUP=-4
229
229
      logical firsttime
230
230
      data firsttime/.true./
231
231
c
232
 
      if (firsttime) then
233
 
         call write_header_init
234
 
         firsttime=.false.
235
 
      endif
236
 
      ievent=66
237
 
 
238
232
      if (ickkw.eq.4) then
239
233
         scale = sqrt(muF12_current)
240
234
      elseif (ickkw.eq.-1) then
245
239
 
246
240
      aqcd=g**2/(4d0*pi)
247
241
      aqed=gal(1)**2/(4d0*pi)
248
 
 
 
242
c
 
243
c 'write_header_init' should be called after 'aqcd' has been set,
 
244
c because it includes a call to 'setrun', which resets the value of
 
245
c alpha_s to the one in the param_card.dat (without any running).
 
246
      if (firsttime) then
 
247
         call write_header_init
 
248
         firsttime=.false.
 
249
      endif
 
250
      ievent=66
 
251
c
249
252
      if(AddInfoLHE)then
250
253
        if(.not.doreweight)then
251
254
           write(buff,201)'#aMCatNLO',iSorH_lhe,ifks_lhe(nFKSprocess)