collier_coefs::d0_cll Interface Reference

Public Member Functions
subroutine	d0_main_cll (D0, p10, p21, p32, p30, p20, p31, m02, m12, m22, m32)
subroutine	d0_arrays_cll (D0, MomInv, masses2)

Detailed Description

Definition at line 91 of file collier_coefs.F90.

Member Function/Subroutine Documentation

d0_arrays_cll()

subroutine collier_coefs::d0_cll::d0_arrays_cll	(	double complex, intent(out)	D0,
		double complex, dimension(6), intent(in)	MomInv,
		double complex, dimension(0:3), intent(in)	masses2
	)

Definition at line 4882 of file collier_coefs.F90.

  
    double complex, intent(in) :: MomInv(6), masses2(0:3)
    double complex, intent(out) :: D0
    
    call d0_main_cll(d0,mominv(1),mominv(2),mominv(3),mominv(4),mominv(5),mominv(6),  &
                       masses2(0),masses2(1),masses2(2),masses2(3))
 

d0_main_cll()

subroutine collier_coefs::d0_cll::d0_main_cll	(	double complex, intent(out)	D0,
		double complex, intent(in)	p10,
		double complex, intent(in)	p21,
		double complex, intent(in)	p32,
		double complex, intent(in)	p30,
		double complex, intent(in)	p20,
		double complex, intent(in)	p31,
		double complex, intent(in)	m02,
		double complex, intent(in)	m12,
		double complex, intent(in)	m22,
		double complex, intent(in)	m32
	)

Definition at line 4777 of file collier_coefs.F90.

  
    double complex, intent(in) :: p10,p21,p32,p30,p20,p31,m02,m12,m22,m32
    double precision :: q10,q21,q32,q30,q20,q31
    double complex :: mm02,mm12,mm22,mm32
    double complex, intent(out) :: D0
    double complex :: D2(0:0,0:0,0:0,0:0),D0_coli,D0dd
    double complex :: D(0:0,0:0,0:0,0:0)
    double complex :: args(10)
    double precision :: Ddiff(0:0)
    double precision :: norm
    integer :: errflag
 
    ! set ID of master call
    args(1) = p10
    args(2) = p21
    args(3) = p32
    args(4) = p30
    args(5) = p20
    args(6) = p31
    args(7) = m02
    args(8) = m12
    args(9) = m22
    args(10) = m32
    call setmasterfname_cll('D0_cll')
    call setmastern_cll(4)
    call setmasterr_cll(0)
    call setmasterargs_cll(10,args)
 
 
    select case (mode_cll)
 
      case (1)
        ! calculate loop integral using
        ! COLI implementation by AD/LH
        d0 = d0_coli(p10,p21,p32,p30,p20,p31,m02,m12,m22,m32)
        
 
      case (2)
        ! calculate loop integral using
        ! DD implementation by SD
 
        ! replace small masses by DD-identifiers    
        q10 = dreal(getminf2dd_cll(p10))
        q21 = dreal(getminf2dd_cll(p21))
        q32 = dreal(getminf2dd_cll(p32))
        q30 = dreal(getminf2dd_cll(p30))
        q20 = dreal(getminf2dd_cll(p20))
        q31 = dreal(getminf2dd_cll(p31))
        mm02 = getminf2dd_cll(m02)
        mm12 = getminf2dd_cll(m12)
        mm22 = getminf2dd_cll(m22)
        mm32 = getminf2dd_cll(m32)
 
        d0 = d0dd(q10,q21,q32,q30,q20,q31,mm02,mm12,mm22,mm32,0)
 
 
      case (3)
        ! cross-check mode
        ! compare results for loop integral
        ! from COLI implementation by AD/LH and
        ! from DD implementation by SD
 
        ! calculate loop integral using COLI
        d0 = d0_coli(p10,p21,p32,p30,p20,p31,m02,m12,m22,m32)
 
        ! calculate loop integral using DD
 
        ! replace small masses by DD-identifiers    
        q10 = dreal(getminf2dd_cll(p10))
        q21 = dreal(getminf2dd_cll(p21))
        q32 = dreal(getminf2dd_cll(p32))
        q30 = dreal(getminf2dd_cll(p30))
        q20 = dreal(getminf2dd_cll(p20))
        q31 = dreal(getminf2dd_cll(p31))
        mm02 = getminf2dd_cll(m02)
        mm12 = getminf2dd_cll(m12)
        mm22 = getminf2dd_cll(m22)
        mm32 = getminf2dd_cll(m32)
 
        d2(0,0,0,0) = d0dd(q10,q21,q32,q30,q20,q31,mm02,mm12,mm22,mm32,0)
 
        ! cross-check
        d(0,0,0,0)=d0
        norm=max(abs(d(0,0,0,0)),abs(d2(0,0,0,0)))
        call checkcoefsd_cll(d,d2,p10,p21,p32,p30,p20,p31,  &
                    m02,m12,m22,m32,0,norm,ddiff)
 
 
    end select
 
    call propagateerrflag_cll
 
 

---

The documentation for this interface was generated from the following file:

• MELA/COLLIER/colliertmp/COLLIER-1.2/src/collier_coefs.F90