← Back to branch summary

~maddevelopers/mg5amcnlo/2.9.4

« back to all changes in this revision

Viewing changes to vendor/CutTools/src/qcdloop/qlconstants.f

pass to v2.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
vendor/CutTools/src/qcdloop/qlconstants.f
 
1
      double precision pi,pisq,pisqo6
 
2
      parameter(pi=3.14159265358979d0,pisq=pi*pi,pisqo6=pisq/6d0)
 
3
 
 
4
      double precision zip,half,one,two,three,four,eight
 
5
      parameter(zip=0d0,half=0.5d0,one=1d0,two=2d0)
 
6
      parameter(three=3d0,four=4d0,eight=8d0)
 
7
 
 
8
      double complex im,impi,czip,chalf,cone,ctwo,c2ipi
 
9
      parameter(im=(0d0,1d0),impi=(0d0,3.14159265358979d0),
 
10
     . czip=(0d0,0d0),chalf=(0.5d0,0d0),cone=(1d0,0d0),ctwo=(2d0,0d0),
 
11
     . c2ipi=2d0*impi)
 
12
 
 
13
      DOUBLE COMPLEX nan
 
14
      parameter (nan = (1D123, 1D123))
 
15
 
 
16