call test end subroutine test ! ******************************************************************** ! ******************************************************************** use ddmodule use avh_olo implicit none integer :: nn character(4) :: next real(kind(1d0)) :: mu ! call ltini !|LTVSNge26=yesyes !# call ffini !|LTVSNge26=yesno call olo_onshell( 1d-6 ) ! call olo_unit( 6 ,'printall' ) call olo_precision(34) write(*,*) 'dp precision:',olo_dp_precision() write(*,*) 'dd precision:',olo_dd_precision() ! next = 'next' do while (next.eq.'next') read(5,*) nn ,mu call olo_scale( mu ) call setmudim( mu*mu ) !|LT=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 ddmodule use avh_olo implicit none complex(kind(1d0)) :: p1,p2,p3,p4,p12,p23,m1,m2,m3,m4 complex(kind(1d0)) :: zLT,D0C,zdp(0:2) type(dd_complex) :: p1_dd,p2_dd,p3_dd,p4_dd,p12_dd,p23_dd type(dd_complex) :: m1_dd,m2_dd,m3_dd,m4_dd,zdd(0:2) ! 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) ! p1_dd =p1 p2_dd =p2 p3_dd =p3 p4_dd =p4 p12_dd=p12 p23_dd=p23 m1_dd =m1 m2_dd =m2 m3_dd =m3 m4_dd =m4 call olo( zdp ,p1,p2,p3,p4,p12,p23 ,m1,m2,m3,m4 ) call olo( zdd ,p1_dd,p2_dd,p3_dd,p4_dd,p12_dd,p23_dd & ,m1_dd,m2_dd,m3_dd,m4_dd ) ! zLT = dcmplx(0d0) if (zdd(1).eq.dcmplx(0d0)) !|LT=yes & zLT = D0C( p1,p2,p3,p4,p12,p23 ,m1,m2,m3,m4 ) !|LT=yes ! write(6,'(a10)') ' eps^( 0):' if (zLT.ne.dcmplx(0d0)) &write(6,'(a8,2d24.16)') ' LT:',zLT write(6,'(a8,2d24.16)') ' olo:',zdp(0) call ddwrite(6,zdd(0)) write(6,'(a10)') ' eps^(-1):' write(6,'(a8,2d24.16)') ' olo:',zdp(1) call ddwrite(6,zdd(1)) write(6,'(a10)') ' eps^(-2):' write(6,'(a8,2d24.16)') ' olo:',zdp(2) call ddwrite(6,zdd(2)) write(6,*) ! end subroutine test_3 ! ******************************************************************** ! ******************************************************************** use ddmodule use avh_olo implicit none complex(kind(1d0)) :: p1,p2,p3,m1,m2,m3 ,zLT,C0C,zdp(0:2) type(dd_complex) :: p1_dd,p2_dd,p3_dd type(dd_complex) :: m1_dd,m2_dd,m3_dd,zdd(0:2) ! 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) ! p1_dd=p1 p2_dd=p2 p3_dd=p3 m1_dd=m1 m2_dd=m2 m3_dd=m3 call olo( zdp ,p1,p2,p3 ,m1,m2,m3 ) call olo( zdd ,p1_dd,p2_dd,p3_dd ,m1_dd,m2_dd,m3_dd ) ! zLT = dcmplx(0d0) if (zdd(1).eq.dcmplx(0d0)) !|LT=yes & zLT = C0C( p1,p2,p3 ,m1,m2,m3 ) !|LT=yes ! write(6,'(a10)') ' eps^( 0):' if (zLT.ne.dcmplx(0d0)) &write(6,'(a8,2d24.16)') ' LT:',zLT write(6,'(a8,2d24.16)') ' olo:',zdp(0) call ddwrite(6,zdd(0)) write(6,'(a10)') ' eps^(-1):' write(6,'(a8,2d24.16)') ' olo:',zdp(1) call ddwrite(6,zdd(1)) write(6,'(a10)') ' eps^(-2):' write(6,'(a8,2d24.16)') ' olo:',zdp(2) call ddwrite(6,zdd(2)) write(6,*) ! end subroutine test_2 ! ******************************************************************** ! ******************************************************************** use ddmodule use avh_olo implicit none complex(kind(1d0)) :: p1,m1,m2 complex(kind(1d0)) :: b0LT,b1LT,b00LT,b11LT,b0C,b1C,b00C,b11C type(dd_complex) :: m1_dd,m2_dd,p1_dd type(dd_complex) :: rslt(0:2),b0(0:2),b1(0:2),b00(0:2),b11(0:2) ! 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) ! p1_dd = p1 m1_dd = m1 m2_dd = m2 call olo_b11( b11,b00,b1,b0 ,p1_dd ,m1_dd,m2_dd ) call olo_b0( rslt ,p1_dd ,m1_dd,m2_dd ) 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 ! write(6,'(a10)') ' eps^( 0):' write(6,'(a8,2d24.16)') 'b0 LT:',b0LT !|LT=yes write(6,'(a8,2d24.16)') ' olo:' call ddwrite(6,rslt(0)) write(6,'(a8,2d24.16)') ' olo:' call ddwrite(6,b0(0)) write(6,'(a8,2d24.16)') 'b1 LT:',b1LT !|LT=yes write(6,'(a8,2d24.16)') ' olo:' call ddwrite(6,b1(0)) write(6,'(a8,2d24.16)') 'b00 LT:',b00LT !|LT=yes write(6,'(a8,2d24.16)') ' olo:' call ddwrite(6,b00(0)) write(6,'(a8,2d24.16)') 'b11 LT:',b11LT !|LT=yes write(6,'(a8,2d24.16)') ' olo:' call ddwrite(6,b11(0)) write(6,'(a10)') ' eps^(-1):' write(6,'(a8,2d24.16)') ' olo:' call ddwrite(6,b0(1)) write(6,'(a10)') ' eps^(-2):' write(6,'(a8,2d24.16)') ' olo:' call ddwrite(6,b0(2)) write(6,*) ! ! end