← Back to branch summary

~maddevelopers/mg5amcnlo/3.0.2

« back to all changes in this revision

Viewing changes to vendor/IREGI/src/qcdloop/ql/qltri5.f

  • Committer: Marco Zaro
  • Date: 2014-01-27 16:54:10 UTC
  • mfrom: (78.124.55 MG5_aMC_2.1)
  • Revision ID: marco.zaro@gmail.com-20140127165410-5lma8c2hzbzm426j
merged with lp:~maddevelopers/madgraph5/MG5_aMC_2.1 r 267

Show diffs side-by-side

added added

removed removed

Lines of Context:
vendor/IREGI/src/qcdloop/ql/qltri5.f
 
1
      subroutine qltri5(msq,musq,Ival)
 
2
      implicit none
 
3
      include 'qlconstants.f'
 
4
      double precision msq,musq
 
5
      double complex fac,qllnrat,Ival(-2:0),wlogm
 
6
      fac=dcmplx(1d0/msq)
 
7
      wlogm=qllnrat(musq,msq)
 
8
      Ival(-2)=czip
 
9
      Ival(-1)=-0.5d0*fac
 
10
      Ival(0)=Ival(-1)*wlogm+fac
 
11
      return
 
12
      end