← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to madgraph/iolibs/template_files/loop_optimized/loop_num.inc

  • Committer: olivier Mattelaer
  • Date: 2015-03-05 00:14:16 UTC
  • mfrom: (258.1.9 2.3)
  • mto: (258.8.1 2.3)
  • mto: This revision was merged to the branch mainline in revision 259.
  • Revision ID: olivier.mattelaer@uclouvain.be-20150305001416-y9mzeykfzwnl9t0j
partial merge

Show diffs side-by-side

added added

removed removed

Lines of Context:
madgraph/iolibs/template_files/loop_optimized/loop_num.inc
19
19
C
20
20
C GLOBAL VARIABLES
21
21
C
 
22
## if(not AmplitudeReduction) {
22
23
      INTEGER ID,SQSOINDEX,RANK
23
 
      common/%(proc_prefix)sLOOP/ID,SQSOINDEX,RANK
 
24
          common/%(proc_prefix)sLOOP/ID,SQSOINDEX,RANK
 
25
## }else{
 
26
      INTEGER ID,RANK
 
27
          common/%(proc_prefix)sLOOP/ID,RANK
 
28
## }
24
29
 
 
30
## if(not AmplitudeReduction) {
25
31
          %(complex_dp_format)s LOOPCOEFS(0:LOOPMAXCOEFS-1,NSQUAREDSO,NLOOPGROUPS)
 
32
## }else{
 
33
          %(complex_dp_format)s LOOPCOEFS(0:LOOPMAXCOEFS-1,NLOOPGROUPS)
 
34
## }      
26
35
          common/%(proc_prefix)sLCOEFS/LOOPCOEFS
27
36
 
28
37
          RES=(0.0d0,0.0d0)
29
38
 
 
39
## if(not AmplitudeReduction) {
30
40
          CALL %(proc_prefix)sEVAL_POLY(LOOPCOEFS(0,SQSOINDEX,ID),RANK,-Q,RES)
31
 
 
 
41
## }else{
 
42
          CALL %(proc_prefix)sEVAL_POLY(LOOPCOEFS(0,ID),RANK,-Q,RES)
 
43
## }
32
44
          END
33
45
 
34
46
      SUBROUTINE %(proc_prefix)sMPLOOPNUM(Q,RES)
67
79
          LOGICAL MP_DONE
68
80
          common/%(proc_prefix)sMP_DONE/MP_DONE
69
81
 
 
82
## if(not AmplitudeReduction) {
70
83
      INTEGER ID,SQSOINDEX,RANK
71
84
          common/%(proc_prefix)sLOOP/ID,SQSOINDEX,RANK
 
85
## }else{
 
86
      INTEGER ID,RANK
 
87
          common/%(proc_prefix)sLOOP/ID,RANK
 
88
## }
72
89
 
 
90
## if(not AmplitudeReduction) {
73
91
          %(complex_mp_format)s LOOPCOEFS(0:LOOPMAXCOEFS-1,NSQUAREDSO,NLOOPGROUPS)
 
92
## }else{
 
93
          %(complex_mp_format)s LOOPCOEFS(0:LOOPMAXCOEFS-1,NLOOPGROUPS)
 
94
## }
74
95
          common/%(proc_prefix)sMP_LCOEFS/LOOPCOEFS
75
96
 
76
97
C     MP_PS IS THE FIXED (POSSIBLY IMPROVED) MP PS POINT AND MP_P IS THE ONE WHICH CAN BE MODIFIED (I.E. ROTATED ETC.) FOR STABILITY PURPOSE
85
106
      ENDDO
86
107
          QRES=(0.0e0_16,0.0e0_16)
87
108
 
 
109
## if(not AmplitudeReduction) {
88
110
      IF (.NOT.MP_DONE) THEN
89
111
            CALL %(proc_prefix)sMP_COMPUTE_LOOP_COEFS(MP_P,DUMMY)
90
112
            MP_DONE=.TRUE.
91
113
          ENDIF
92
114
 
93
115
          CALL MP_%(proc_prefix)sEVAL_POLY(LOOPCOEFS(0,SQSOINDEX,ID),RANK,-QQ,QRES)
94
 
 
 
116
## }else{
 
117
          CALL MP_%(proc_prefix)sEVAL_POLY(LOOPCOEFS(0,ID),RANK,-QQ,QRES)
 
118
## }
95
119
          RES=QRES
96
120
 
97
121
          END