collier_coefs::c0_cll Interface Reference

Public Member Functions
subroutine	c0_main_cll (C0, p10, p21, p20, m02, m12, m22)
subroutine	c0_arrays_cll (C0, MomInv, masses2)

Detailed Description

Definition at line 86 of file collier_coefs.F90.

Member Function/Subroutine Documentation

c0_arrays_cll()

subroutine collier_coefs::c0_cll::c0_arrays_cll	(	double complex, intent(out)	C0,
		double complex, dimension(3), intent(in)	MomInv,
		double complex, dimension(0:2), intent(in)	masses2
	)

Definition at line 4756 of file collier_coefs.F90.

      
    double complex, intent(in) :: MomInv(3), masses2(0:2)
    double complex, intent(out) :: C0
    
    call c0_main_cll(c0,mominv(1),mominv(2),mominv(3), &
                      masses2(0),masses2(1),masses2(2))
 

c0_main_cll()

subroutine collier_coefs::c0_cll::c0_main_cll	(	double complex, intent(out)	C0,
		double complex, intent(in)	p10,
		double complex, intent(in)	p21,
		double complex, intent(in)	p20,
		double complex, intent(in)	m02,
		double complex, intent(in)	m12,
		double complex, intent(in)	m22
	)

Definition at line 4665 of file collier_coefs.F90.

  
    double complex, intent(in) :: p10,p21,p20,m02,m12,m22
    double precision :: q10,q21,q20
    double complex :: mm02,mm12,mm22
    double complex, intent(out) :: C0
    double complex :: C(0:0,0:0,0:0),C2(0:0,0:0,0:0),C0_coli,C0dd
    double complex args(6)
    double precision :: Cdiff(0:0)
    double precision :: norm
    integer :: errflag
 
    ! set ID of master call
    args(1) = p10
    args(2) = p21
    args(3) = p20
    args(4) = m02
    args(5) = m12
    args(6) = m22
    call setmasterfname_cll('C0_cll')
    call setmastern_cll(2)
    call setmasterr_cll(0)
    call setmasterargs_cll(6,args)
 
 
    ! write(*,*) 'master call: C_cll'
    select case (mode_cll)
 
      case (1)
        ! calculate loop integral using
        ! COLI implementation by AD/LH
        c0 = c0_coli(p10,p21,p20,m02,m12,m22)
 
 
      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))
        q20 = dreal(getminf2dd_cll(p20))
        mm02 = getminf2dd_cll(m02)
        mm12 = getminf2dd_cll(m12)
        mm22 = getminf2dd_cll(m22)
 
        c0 = c0dd(q10,q21,q20,mm02,mm12,mm22,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
        c0 = c0_coli(p10,p21,p20,m02,m12,m22)
 
 
        ! replace small masses by DD-identifiers    
        q10 = dreal(getminf2dd_cll(p10))
        q21 = dreal(getminf2dd_cll(p21))
        q20 = dreal(getminf2dd_cll(p20))
        mm02 = getminf2dd_cll(m02)
        mm12 = getminf2dd_cll(m12)
        mm22 = getminf2dd_cll(m22)
 
        c2(0,0,0) = c0dd(q10,q21,q20,mm02,mm12,mm22,0)
 
        ! cross-check
        c(0,0,0)=c0
        norm=max(abs(c(0,0,0)),abs(c2(0,0,0)))
        call checkcoefsc_cll(c,c2,p10,p21,p20,m02,m12,m22,0,norm,cdiff)
 
 
    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