~maddevelopers/mg5amcnlo/2.6.3_rwgt

« back to all changes in this revision

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

  • Committer: olivier-mattelaer
  • Date: 2017-05-26 07:48:55 UTC
  • mfrom: (271.1.33 2.5.5)
  • Revision ID: olivier-mattelaer-20170526074855-r463wfxlom110fiu
passĀ theĀ 2.5.5

Show diffs side-by-side

added added

removed removed

Lines of Context:
649
649
     &                         fkssymmetryfactorDeg,ngluons,nquarks
650
650
      integer            mapconfig(0:lmaxconfigs), iconfig
651
651
      common/to_mconfigs/mapconfig,                iconfig
652
 
      Double Precision amp2(maxamps), jamp2(0:maxamps)
 
652
      Double Precision amp2(ngraphs), jamp2(0:ncolor)
653
653
      common/to_amps/  amp2,          jamp2
654
654
      double precision   diagramsymmetryfactor
655
655
      common /dsymfactor/diagramsymmetryfactor
797
797
     &                         fkssymmetryfactorDeg,ngluons,nquarks
798
798
      integer            mapconfig(0:lmaxconfigs), iconfig
799
799
      common/to_mconfigs/mapconfig,                iconfig
800
 
      Double Precision amp2(maxamps), jamp2(0:maxamps)
 
800
      Double Precision amp2(ngraphs), jamp2(0:ncolor)
801
801
      common/to_amps/  amp2,          jamp2
802
802
      double precision   diagramsymmetryfactor
803
803
      common /dsymfactor/diagramsymmetryfactor
1612
1612
      include 'fks_info.inc'
1613
1613
      include 'genps.inc'
1614
1614
      integer k,ict,iFKS
1615
 
      integer    maxflow
1616
 
      parameter (maxflow=999)
1617
1615
      integer idup(nexternal,maxproc),mothup(2,nexternal,maxproc),
1618
1616
     $     icolup(2,nexternal,maxflow),niprocs
1619
1617
      common /c_leshouche_inc/idup,mothup,icolup,niprocs