collier_coefs::b0_cll Interface Reference

Public Member Functions
subroutine	b0_main_cll (B0, p10, m02, m12)
subroutine	b0_arrays_cll (B0, MomInv, masses2)

Detailed Description

Definition at line 81 of file collier_coefs.F90.

Member Function/Subroutine Documentation

b0_arrays_cll()

subroutine collier_coefs::b0_cll::b0_arrays_cll	(	double complex, intent(out)	B0,
		double complex, dimension(1), intent(in)	MomInv,
		double complex, dimension(0:1), intent(in)	masses2
	)

Definition at line 4647 of file collier_coefs.F90.

  
    double complex, intent(in) :: MomInv(1), masses2(0:1)
    double complex, intent(out) :: B0
    
    call b0_main_cll(b0,mominv(1),masses2(0),masses2(1))
 

b0_main_cll()

subroutine collier_coefs::b0_cll::b0_main_cll	(	double complex, intent(out)	B0,
		double complex, intent(in)	p10,
		double complex, intent(in)	m02,
		double complex, intent(in)	m12
	)

Definition at line 4553 of file collier_coefs.F90.

  
    double complex, intent(in) :: p10,m02,m12
    double precision :: q10
    double complex :: mm02,mm12
    double complex, intent(out) :: B0
    double complex :: B2uv(0:0,0:0),B2(0:0,0:0),Bn_coli
    double complex :: Buv(0:0,0:0),B(0:0,0:0)
    double precision :: Bdiff(0:0)
    double complex :: Bdduv(0:0,0:0) 
    double complex :: Bdd(0:0,0:0)
    double complex :: args(3)
    double precision :: norm
    integer :: errflag
 
    ! set ID of master call
    args(1) = p10
    args(2) = m02
    args(3) = m12
    call setmasterfname_cll('B0_cll')
    call setmastern_cll(2)
    call setmasterr_cll(0)
    call setmasterargs_cll(3,args)
 
 
    select case (mode_cll)
 
      case (1)
        ! calculate loop integral using
        ! COLI implementation by AD/LH
 
!        B0uv = 1d0
        b0 = bn_coli(0,p10,m02,m12)
 
 
      case (2)
        ! calculate loop integral using
        ! DD implementation by SD
 
        ! replace small masses by DD-identifiers    
        q10 = dreal(getminf2dd_cll(p10))
        mm02 = getminf2dd_cll(m02)
        mm12 = getminf2dd_cll(m12)
 
        use_cache_system=.false.
        call b_dd(bdd,bdduv,q10,mm02,mm12,0,0)
        use_cache_system=use_cache_system_save
!        B0uv = Bdduv(0,0)
        b0 = bdd(0,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
!        B0uv = 1d0
        b0 = bn_coli(0,p10,m02,m12)
 
        ! replace small masses by DD-identifiers    
        q10 = dreal(getminf2dd_cll(p10))
        mm02 = getminf2dd_cll(m02)
        mm12 = getminf2dd_cll(m12)
 
        use_cache_system=.false.
        call b_dd(bdd,bdduv,q10,mm02,mm12,0,0)
        use_cache_system=use_cache_system_save
        b2uv(0,0) = bdduv(0,0)
        b2(0,0) = bdd(0,0)
 
        ! cross-check
        b(0,0) = b0
        norm=max(abs(b(0,0)),abs(b2(0,0)))
        call checkcoefsb_cll(b,b2,p10,m02,m12,0,norm,bdiff)
 
 
    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