← Back to branch summary

~maddevelopers/mg5amcnlo/2.7.1.3

« back to all changes in this revision

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

  • Committer: olivier-mattelaer
  • Date: 2017-03-08 22:47:41 UTC
  • mfrom: (269.1.40 2.5.3)
  • Revision ID: olivier-mattelaer-20170308224741-vvle7s0u2541viuw
pass to 2.5.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/NLO/SubProcesses/symmetry_fks_test_ME.f
14
14
      include 'fks_info.inc'
15
15
      include 'run.inc'
16
16
      include 'cuts.inc'
 
17
      include 'mint.inc'
17
18
      
18
19
      double precision ZERO,one
19
20
      parameter       (ZERO = 0d0)
59
60
      double precision p(0:3,99), wgt, x(99), fx
60
61
      double complex wgt1(2)
61
62
      double precision p1(0:3,99),xx(maxinvar)
62
 
      integer ninvar, ndim, iconfig, minconfig, maxconfig
 
63
      integer ninvar, ndim,  minconfig, maxconfig
63
64
      common/tosigint/ndim
64
65
      integer ncall,itmax,nconfigs,ntry, ngraphs
65
66
      integer ic(nexternal,maxswitch), jc(12),nswitch
279
280
         bs_max=iconfig_in
280
281
      endif
281
282
 
282
 
      do iconfig=bs_min,bs_max       ! Born configurations
 
283
      do iconfig=bs_min,bs_max  ! Born configurations
 
284
         ichan=1
 
285
         iconfigs(1)=iconfig
283
286
      call setcuts
284
287
      call setfksfactor(iconfig,.false.)
285
288
      wgt=1d0