← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

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

merged with 2.3 rev286

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/NLO/SubProcesses/genps_fks.f
93
93
      common/counterevnts/p1_cnt,wgt_cnt,pswgt_cnt,jac_cnt
94
94
      double precision p_born(0:3,nexternal-1)
95
95
      common/pborn/p_born
 
96
      double precision p_ev(0:3,nexternal)
 
97
      common/pev/p_ev
96
98
      double precision xi_i_fks_ev,y_ij_fks_ev
97
99
      double precision p_i_fks_ev(0:3),p_i_fks_cnt(0:3,-2:2)
98
100
      common/fksvariables/xi_i_fks_ev,y_ij_fks_ev,p_i_fks_ev,p_i_fks_cnt
267
269
      else
268
270
c No PDFs (also use fixed energy when performing tests)
269
271
         call compute_tau_y_epem(j_fks,one_body,fksmass,stot,
270
 
     &                          tau_born,ycm_born,ycmhat)
 
272
     &        tau_born,ycm_born,ycmhat)
 
273
         if (j_fks.le.nincoming .and. .not.(softtest.or.colltest)) then
 
274
            write (*,*) 'Process has incoming j_fks, but fixed shat: '/
 
275
     &           /'not allowed for processes generated at NLO.'
 
276
            stop 1
 
277
         endif
271
278
      endif
272
279
c Compute Bjorken x's from tau and y
273
280
      xbjrk_born(1)=sqrt(tau_born)*exp(ycm_born)
523
530
         do i=1,nexternal
524
531
            do j=0,3
525
532
               p(j,i)=xp(j,i)
 
533
               p_ev(j,i)=xp(j,i)
526
534
            enddo
527
535
         enddo
528
536
         jac=xjac