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.
192 lines
6.4 KiB
192 lines
6.4 KiB
call test
|
|
end
|
|
|
|
|
|
subroutine test
|
|
! ********************************************************************
|
|
! ********************************************************************
|
|
use avh_olo
|
|
implicit none
|
|
integer :: nn
|
|
character(4) :: next
|
|
real(kind(1d0)) :: mu
|
|
!
|
|
call ltini !|LTVSNge26=yesyes
|
|
!# call ffini !|LTVSNge26=yesno
|
|
call defcoli !|COLI=yes
|
|
! call olo_onshell( 1d-6 )
|
|
! call olo_unit( 6 ,'printall' )
|
|
!
|
|
next = 'next'
|
|
do while (next.eq.'next')
|
|
read(5,*) nn ,mu
|
|
call olo_scale( mu )
|
|
call setmudim( mu*mu ) !|LT=yes
|
|
call setmudim2( mu*mu ) !|COLI=yes
|
|
call setmphoton2( mu*mu ) !|COLI=yes
|
|
if (nn.eq.2) then
|
|
call test_2
|
|
elseif (nn.eq.3) then
|
|
call test_3
|
|
else!if(nn.eq.4) then
|
|
call test_4
|
|
endif
|
|
read(5,*) next
|
|
enddo
|
|
end
|
|
|
|
|
|
subroutine test_4
|
|
! ********************************************************************
|
|
! ********************************************************************
|
|
use avh_olo
|
|
implicit none
|
|
complex(kind(1d0)) :: p1,p2,p3,p4,p12,p23,m1,m2,m3,m4
|
|
complex(kind(1d0)) :: zolo(0:2),zLT,D0C,zCOLI,cD0f
|
|
!
|
|
read(5,*) p1
|
|
read(5,*) p2
|
|
read(5,*) p3
|
|
read(5,*) p4
|
|
read(5,*) p12
|
|
read(5,*) p23
|
|
read(5,*) m1
|
|
read(5,*) m2
|
|
read(5,*) m3
|
|
read(5,*) m4
|
|
write(6,101) 'p1 : (',real(p1),',',aimag(p1),')'
|
|
write(6,101) 'p2 : (',real(p2),',',aimag(p2),')'
|
|
write(6,101) 'p3 : (',real(p3),',',aimag(p3),')'
|
|
write(6,101) 'p4 : (',real(p4),',',aimag(p4),')'
|
|
write(6,101) 'p12: (',real(p12),',',aimag(p12),')'
|
|
write(6,101) 'p23: (',real(p23),',',aimag(p23),')'
|
|
write(6,101) 'm1 : (',real(m1),',',aimag(m1),')'
|
|
write(6,101) 'm2 : (',real(m2),',',aimag(m2),')'
|
|
write(6,101) 'm3 : (',real(m3),',',aimag(m3),')'
|
|
write(6,101) 'm4 : (',real(m4),',',aimag(m4),')'
|
|
101 format(a6,d31.24,a1,d31.24,a1)
|
|
!
|
|
call olo( zolo ,p1,p2,p3,p4,p12,p23 ,m1,m2,m3,m4 )
|
|
!
|
|
zLT = 0
|
|
zCOLI = 0
|
|
if (zolo(1).eq.0) then
|
|
zLT = D0C( p1,p2,p3,p4,p12,p23 ,m1,m2,m3,m4 ) !|LT=yes
|
|
zCOLI = cD0f( p1,p2,p3,p4,p12,p23 ,m1,m2,m3,m4 ) !|COLI=yes
|
|
endif
|
|
!
|
|
write(6,'(a10)') ' eps^( 0):'
|
|
if (zLT.ne.0)
|
|
&write(6,'(a8,2d24.16)') ' LT:',zLT
|
|
if (zCOLI.ne.0)
|
|
&write(6,'(a8,2d24.16)') ' COLI:',zCOLI
|
|
write(6,'(a8,2d24.16)') ' olo:',zolo(0)
|
|
write(6,'(a10)') ' eps^(-1):'
|
|
write(6,'(a8,2d24.16)') ' olo:',zolo(1)
|
|
write(6,'(a10)') ' eps^(-2):'
|
|
write(6,'(a8,2d24.16)') ' olo:',zolo(2)
|
|
write(6,*)
|
|
!
|
|
end
|
|
|
|
subroutine test_3
|
|
! ********************************************************************
|
|
! ********************************************************************
|
|
use avh_olo
|
|
implicit none
|
|
complex(kind(1d0)) :: p1,p2,p3,m1,m2,m3 ,zolo(0:2),zLT,C0C
|
|
complex(kind(1d0)) :: zCOLI,cC0f
|
|
!
|
|
read(5,*) p1
|
|
read(5,*) p2
|
|
read(5,*) p3
|
|
read(5,*) m1
|
|
read(5,*) m2
|
|
read(5,*) m3
|
|
write(6,101) 'p1 : (',real(p1),',',aimag(p1),')'
|
|
write(6,101) 'p2 : (',real(p2),',',aimag(p2),')'
|
|
write(6,101) 'p3 : (',real(p3),',',aimag(p3),')'
|
|
write(6,101) 'm1 : (',real(m1),',',aimag(m1),')'
|
|
write(6,101) 'm2 : (',real(m2),',',aimag(m2),')'
|
|
write(6,101) 'm3 : (',real(m3),',',aimag(m3),')'
|
|
101 format(a6,d31.24,a1,d31.24,a1)
|
|
!
|
|
call olo( zolo ,p1,p2,p3 ,m1,m2,m3 )
|
|
!
|
|
zLT = 0
|
|
zCOLI = 0
|
|
if (zolo(1).eq.0) then
|
|
zLT = C0C( p1,p2,p3 ,m1,m2,m3 ) !|LT=yes
|
|
zCOLI = cC0f( p1,p2,p3 ,m1,m2,m3 ) !|COLI=yes
|
|
endif
|
|
!
|
|
write(6,'(a10)') ' eps^( 0):'
|
|
if (zLT.ne.0)
|
|
&write(6,'(a8,2d24.16)') ' LT:',zLT
|
|
if (zCOLI.ne.0)
|
|
&write(6,'(a8,2d24.16)') ' COLI:',zCOLI
|
|
write(6,'(a8,2d24.16)') ' olo:',zolo(0)
|
|
write(6,'(a10)') ' eps^(-1):'
|
|
write(6,'(a8,2d24.16)') ' olo:',zolo(1)
|
|
write(6,'(a10)') ' eps^(-2):'
|
|
write(6,'(a8,2d24.16)') ' olo:',zolo(2)
|
|
write(6,*)
|
|
!
|
|
end
|
|
|
|
subroutine test_2
|
|
! ********************************************************************
|
|
! ********************************************************************
|
|
use avh_olo
|
|
implicit none
|
|
complex(kind(1d0)) :: p1,m1,m2 ,b0(0:2),b1(0:2),b00(0:2),b11(0:2)
|
|
complex(kind(1d0)) :: rslt(0:2),cB0f,db0(0:2)
|
|
complex(kind(1d0)) :: b0LT,b1LT,b00LT,b11LT,b0C,b1C,b00C,b11C
|
|
complex(kind(1d0)) :: COLI0,COLI1,COLI2(0:1,0:1),cDB0f
|
|
complex(kind(1d0)) :: COLI3(0:1,0:1,0:1),COLI4(0:1,0:1,0:1,0:1)
|
|
complex(kind(1d0)) :: COLI5(0:1,0:1,0:1,0:1,0:1)
|
|
complex(kind(1d0)) :: COLI6(0:1,0:1,0:1,0:1,0:1,0:1)
|
|
|
|
!
|
|
read(5,*) p1
|
|
read(5,*) m1
|
|
read(5,*) m2
|
|
write(6,101) 'p1 : (',real(p1),',',aimag(p1),')'
|
|
write(6,101) 'm1 : (',real(m1),',',aimag(m1),')'
|
|
write(6,101) 'm2 : (',real(m2),',',aimag(m2),')'
|
|
101 format(a6,d31.24,a1,d31.24,a1)
|
|
!
|
|
call olo_db0( db0 ,p1 ,m1,m2 )
|
|
call olo( rslt ,p1 ,m1,m2 )
|
|
call olo( b11,b00,b1,b0 ,p1 ,m1,m2 )
|
|
b0LT = B0C( p1 ,m1,m2 ) !|LT=yes
|
|
b1LT = B1C( p1 ,m1,m2 ) !|LT=yes
|
|
b00LT = B00C( p1 ,m1,m2 ) !|LT=yes
|
|
b11LT = B11C( p1 ,m1,m2 ) !|LT=yes
|
|
call cBp12345( p1,m1,m2 !|COLI=yes
|
|
& ,COLI0,COLI1,COLI2,COLI3,COLI4,COLI5,COLI6 !|COLI=yes
|
|
& ,2,0 ) !|COLI=yes
|
|
!
|
|
write(6,'(a10)') ' eps^( 0):'
|
|
write(6,'(a8,2d24.16)') 'db0 olo:',db0(0)
|
|
write(6,'(a8,2d24.16)') ' COLI:',cDB0f(p1,m1,m2) !|COLI=yes
|
|
! write(6,'(a8,2d24.16)') 'b0 olo:',rslt(0)
|
|
! write(6,'(a8,2d24.16)') ' olo:',b0(0)
|
|
! write(6,'(a8,2d24.16)') ' LT:',b0LT !|LT=yes
|
|
! write(6,'(a8,2d24.16)') ' COLI:',COLI0 !|COLI=yes
|
|
! write(6,'(a8,2d24.16)') 'b1 olo:',b1(0)
|
|
! write(6,'(a8,2d24.16)') ' LT:',b1LT !|LT=yes
|
|
! write(6,'(a8,2d24.16)') ' COLI:',COLI1 !|COLI=yes
|
|
! write(6,'(a8,2d24.16)') 'b00 olo:',b00(0)
|
|
! write(6,'(a8,2d24.16)') ' LT:',b00LT !|LT=yes
|
|
! write(6,'(a8,2d24.16)') ' COLI:',COLI2(0,0) !|COLI=yes
|
|
! write(6,'(a8,2d24.16)') 'b11 olo:',b11(0)
|
|
! write(6,'(a8,2d24.16)') ' LT:',b11LT !|LT=yes
|
|
! write(6,'(a8,2d24.16)') ' COLI:',COLI2(1,1) !|COLI=yes
|
|
! write(6,'(a10)') ' eps^(-1):'
|
|
! write(6,'(a8,2d24.16)') ' olo:',b0(1)
|
|
! write(6,'(a10)') ' eps^(-2):'
|
|
! write(6,'(a8,2d24.16)') ' olo:',b0(2)
|
|
write(6,*)
|
|
!
|
|
end
|