← Back to branch summary

~maddevelopers/mg5amcnlo/2.7.1.3

« back to all changes in this revision

Viewing changes to aloha/template_files/aloha_functions_loop.f

  • Committer: olivier Mattelaer
  • Date: 2016-05-12 11:00:18 UTC
  • mfrom: (262.1.150 2.3.4)
  • Revision ID: olivier.mattelaer@uclouvain.be-20160512110018-sevb79f0wm4g8mpp
pass to 2.4.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
aloha/template_files/aloha_functions_loop.f
1205
1205
c      ft(6,1) = dcmplx(p(1),p(2))*nst
1206
1206
 
1207
1207
c     Convention for loop computations
1208
 
      ft(5,1) = cmplx(p(0),0.0e0_16)*nst
1209
 
      ft(6,1) = cmplx(p(1),0.0e0_16)*nst
1210
 
      ft(7,1) = cmplx(p(2),0.0e0_16)*nst
1211
 
      ft(8,1) = cmplx(p(3),0.0e0_16)*nst
 
1208
      ft(5,1) = cmplx(p(0),0.0e0_16,KIND=16)*nst
 
1209
      ft(6,1) = cmplx(p(1),0.0e0_16,KIND=16)*nst
 
1210
      ft(7,1) = cmplx(p(2),0.0e0_16,KIND=16)*nst
 
1211
      ft(8,1) = cmplx(p(3),0.0e0_16,KIND=16)*nst
1212
1212
 
1213
1213
      if ( nhel.ge.0 ) then
1214
1214
c construct eps+