You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
44 lines
1.5 KiB
44 lines
1.5 KiB
function trI4(p1,p2,p3,p4,s12,s23,m1,m2,m3,m4,mu2,ep)
|
|
c--- this is a switchyard routine: depending on value of
|
|
c--- integer variable, this routine either:
|
|
c--- TRscalarselect = 1 calls QCDLoop for scalar integral
|
|
c--- TRscalarselect = 2 calls OneLOop for scalar integral
|
|
c--- TRscalarselect = 3 calls both routines and compares results
|
|
c use avh_olo
|
|
use mod_qcdloop_c
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
include 'lib/TensorReduction/Include/TRscalarselect.f'
|
|
real(dp):: p1,p2,p3,p4,s12,s23,m1,m2,m3,m4,mu2
|
|
complex(dp):: trI4,resQCDLoop,resOneLOop,result(0:2)
|
|
integer ep
|
|
|
|
TRscalarselect=1
|
|
|
|
c--- call to QCDLoop if necessary
|
|
if ((TRscalarselect .eq. 1) .or.(TRscalarselect .eq. 3)) then
|
|
resQCDLoop=qlI4(p1,p2,p3,p4,s12,s23,m1,m2,m3,m4,mu2,ep)
|
|
endif
|
|
|
|
if (TRscalarselect .eq. 1) then
|
|
trI4=resQCDLoop
|
|
return
|
|
endif
|
|
|
|
call olo_d0(result,p1,p2,p3,p4,s12,s23,m1,m2,m3,m4,dsqrt(mu2))
|
|
resOneLOop=result(abs(ep))
|
|
trI4=resOneLOop
|
|
|
|
if (TRscalarselect .eq. 3) then
|
|
if ((cdabs(resOneLOop) .gt. 1d-12) .and.
|
|
& (abs(resQCDLoop/resOneLOop-1d0) .gt. 1d-12)) then
|
|
write(6,*) 'trI4: ',p1,p2,p3,p4,s12,s23,m1,m2,m3,m4,mu2,ep
|
|
write(6,*) 'QCDLoop:',resQCDLoop
|
|
write(6,*) 'OneLOop:',resOneLOop
|
|
write(6,*) '->ratio:',resQCDLoop/resOneLOop
|
|
endif
|
|
endif
|
|
|
|
return
|
|
end
|
|
|