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.
1670 lines
60 KiB
1670 lines
60 KiB
double complex function HPL4else(n1, n2, n3, n4, x)
|
|
implicit none
|
|
double precision pi, zeta2, zeta3, zeta4, xre
|
|
double complex x, ris, myi
|
|
c double complex ccli2,cli3
|
|
double complex cli4
|
|
double complex basis1,basis2,basis3,basis4,basis5,basis6,basis7
|
|
double complex basis8,basis9,basis10,basis11,basis12,basis13
|
|
double complex basis14,basis15,basis16,basis17,basis18
|
|
double complex basis3_1,basis3_2,basis3_3,basis3_4,basis3_5
|
|
double complex basis3_6,basis3_7,basis3_8
|
|
double complex basis2_1,basis2_2,basis2_3
|
|
integer n1,n2,n3,n4,j,bcflag,bcflag_save
|
|
double complex ll2,cli4pt5,ll1px,ll1mx,llx,b16,b17,b18
|
|
|
|
c #####################################################
|
|
c basis1(x) = cli4(x)
|
|
c basis2(x) = cli4(-x)
|
|
c basis3(x) = cli4(1-x)
|
|
c basis4(x) = cli4(1/(1+x))
|
|
c basis5(x) = cli4(x/(x-1))
|
|
c basis6(x) = cli4(x/(x+1))
|
|
c basis7(x) = cli4((1+x)/2)
|
|
c basis8(x) = cli4((1-x)/2)
|
|
c basis9(x) = cli4((1-x)/(1+x))
|
|
c basis10(x) = cli4((x-1)/(x+1))
|
|
c basis11(x) = cli4(2x/(1+x))
|
|
c basis12(x) = cli4(2x/(x-1))
|
|
c basis13(x) = cli4(1-x^2) = cli4_sbc
|
|
c basis14(x) = cli4(x^2/(x^2-1))
|
|
c basis15(x) = cli4(4x/(1+x)^2) = cli4_sbc_2
|
|
c basis16(x) = ch2m2(x)
|
|
c basis17(x) = ch21m1(x)
|
|
c basis18(x) = ch21m1(-x)
|
|
c #####################################################
|
|
c basis3_1(z) = cli3(z)
|
|
c basis3_2(z) = cli3(-z)
|
|
c basis3_3(z) = cli3(1-z)
|
|
c basis3_4(z) = cli3(1/(1+z))
|
|
c basis3_5(z) = cli3((1+z)/2)
|
|
c basis3_6(z) = cli3((1-z)/2)
|
|
c basis3_7(z) = cli3((1-z)/(1+z))
|
|
c basis3_8(z) = cli3(2z/(z-1))
|
|
c basis2_1(z) = ccli2(z)
|
|
c basis2_2(z) = ccli2(-z))
|
|
c basis2_3(z) = ccli2((1-z)/2)
|
|
c #####################################################
|
|
c #####################################################
|
|
|
|
pi=3.1415926535897932385d0
|
|
zeta3=1.20205690315959428539973816151d0
|
|
zeta2=pi**2/6d0
|
|
zeta4=pi**4/90d0
|
|
myi = dcmplx(0d0,1d0)
|
|
|
|
ll2 = dlog(2d0)
|
|
cli4pt5 = cli4(dcmplx(0.5d0,0d0))
|
|
|
|
j=1+(n4+1)*1+(n3+1)*3+(n2+1)*9+(n1+1)*27
|
|
|
|
ris=dcmplx(0d0,0d0)
|
|
bcflag = 0
|
|
|
|
c--- +i*epsilon to get branch cuts right ---
|
|
if (dimag(x).eq.0d0) then
|
|
x = x + dcmplx(0d0,1d-60)
|
|
bcflag = 1
|
|
endif
|
|
c---
|
|
ll1px = log(1d0+x)
|
|
ll1mx = log(1d0-x)
|
|
llx = log(x)
|
|
|
|
select case (j)
|
|
|
|
case(1) !-1-1-1-1
|
|
|
|
ris = ll1px**4/24d0
|
|
|
|
case(2) !-1-1-10
|
|
|
|
ris = -pi**4/90d0 + basis4(x) - (pi**2*ll1px**2)
|
|
&/12d0 + ll1px**4/24d0 + ll1px*zeta3
|
|
|
|
case(3) !-1-1-11
|
|
|
|
ris = -cli4pt5 + basis7(x)
|
|
&+ (pi**2*ll2
|
|
&*ll1px)/12d0 - (ll2**3*ll1px)/6d0 - (pi**2
|
|
&*ll1px**2)/24d0 + (ll2**2*ll1px**2)/4d0
|
|
&- (ll2*ll1px**3)/6d0 - (7*ll1px*zeta3)/8d0
|
|
|
|
case(4) !-1-10-1
|
|
|
|
ris = pi**4/30d0 - 3*basis4(x) - basis3_4(x)
|
|
&*ll1px + (pi**2*ll1px**2)/12d0 + ll1px**4/24d0
|
|
&- 2*ll1px*zeta3
|
|
|
|
case(5) !-1-100
|
|
|
|
ris = pi**4/90d0 - basis2(x) - basis4(x)
|
|
&- basis6(x) - basis3_4(x)*llx - (pi**2*llx
|
|
&*ll1px)/6d0 + (pi**2*ll1px**2)/12d0 - (llx**2
|
|
&*ll1px**2)/4d0 + (llx*ll1px**3)/3d0
|
|
&- ll1px**4/12d0 + llx*zeta3 - ll1px*zeta3
|
|
|
|
case(6) !-1-101
|
|
|
|
ris = pi**4/480d0 + basis3(x) - basis9(x)/2d0
|
|
&+ basis10(x)/2d0 - basis13(x)/4d0
|
|
&+ basis3_4(x)*ll1mx + (pi**2*ll1mx*ll1px)
|
|
&/12d0 + (pi**2*ll1px**2)/12d0 - (ll1mx*ll1px**3)
|
|
&/6d0 - (7d0*ll1mx*zeta3)/8d0 - (5d0*ll1px*zeta3)/8d0
|
|
|
|
case(7) !-1-11-1
|
|
|
|
ris = 3d0*cli4pt5
|
|
&- 3d0*basis7(x)
|
|
&+ basis3_5(x)*ll1px
|
|
&- (pi**2*ll2*ll1px)/6d0
|
|
&+ (ll2**3*ll1px)/3d0 + (pi**2*ll1px**2)/24d0
|
|
&- (ll2**2*ll1px**2)/4d0 + (7*ll1px*zeta3)/4d0
|
|
|
|
case(8) !-1-110
|
|
|
|
ris = pi**4/90d0 + 3*cli4pt5 + basis2(x)/2d0
|
|
&- basis1(x)/2d0 - basis15(x)/4d0 - basis4(x)
|
|
&+ basis11(x) - 3*basis7(x)
|
|
&+ basis3_5(x)*llx + (pi**2*ll2*llx)/12d0
|
|
&- (ll2**3*llx)/6d0 - (pi**2*ll2*ll1px)/4d0
|
|
&+ (ll2**3*ll1px)/2d0 - (pi**2*llx*ll1px)/12d0
|
|
&+ (ll2**2*llx*ll1px)/2d0 + (5*pi**2*ll1px**2)
|
|
&/24d0 - (3*ll2**2*ll1px**2)/4d0 - (ll2*llx
|
|
&*ll1px**2)/2d0 + (ll2*ll1px**3)/2d0 + (llx
|
|
&*ll1px**3)/6d0 - ll1px**4/6d0 - (7*llx*zeta3)/8d0
|
|
&+ (13*ll1px*zeta3)/8d0
|
|
|
|
case(9) !-1-111
|
|
|
|
ris = (-7*pi**4)/720d0 - basis8(x)
|
|
&- basis10(x) + basis7(x)
|
|
&- basis3_5(x)*ll1mx - (pi**2*ll2*ll1mx)/6d0
|
|
&+ (ll2**3*ll1mx)/3d0 - (ll2**2*ll1mx**2)/4d0
|
|
&+ (pi**2*ll2*ll1px)/12d0 -(ll2**3*ll1px)/6d0
|
|
&+ (pi**2*ll1mx*ll1px)/6d0 - (ll2**2*ll1mx
|
|
&*ll1px)/2d0 + (ll2*ll1mx**2*ll1px)/2d0
|
|
&- (pi**2*ll1px**2)/12d0 + (ll2**2*ll1px**2)/4d0
|
|
&- (ll1mx**2*ll1px**2)/4d0 + (ll1mx
|
|
&*ll1px**3)/6d0 - ll1px**4/24d0 + ll1mx*zeta3
|
|
&- (ll1px*zeta3)/8d0
|
|
|
|
case(10) !-10-1-1
|
|
|
|
ris = -pi**4/30d0 + 3*basis4(x) + 2*basis3_4(x)
|
|
&*ll1px + (pi**2*ll1px**2)/12d0 + (basis2_2(x)
|
|
&*ll1px**2)/2d0 + (llx*ll1px**3)/2d0
|
|
&- (5*ll1px**4)/24d0 + ll1px*zeta3
|
|
|
|
case(11) !-10-10
|
|
|
|
ris = -pi**4/45d0 + basis2_2(x)**2/2d0 + 2*basis2(x)
|
|
&+ 2*basis4(x) + 2*basis6(x) + 2*basis3_4(x)
|
|
&*llx + (pi**2*llx*ll1px)/3d0 + basis2_2(x)*llx
|
|
&*ll1px - (pi**2*ll1px**2)/6d0 + llx**2
|
|
&*ll1px**2 - (2*llx*ll1px**3)/3d0 + ll1px**4
|
|
&/6d0 - 2*llx*zeta3 + 2*ll1px*zeta3
|
|
|
|
case(12) !-10-11
|
|
|
|
bcflag_save=bcflag
|
|
b18 = basis18(x)
|
|
bcflag = bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = (-11*pi**4)/720d0 + (pi**2*basis2_2(x))/12d0
|
|
&- basis2_3(x)*basis2_2(x) + basis2_2(x)**2/2d0
|
|
&+ b18
|
|
&- 2*basis3(x) - (3*basis2(x))/2d0
|
|
&- basis1(x)/2d0 - basis15(x)/4d0 + basis4(x)
|
|
&+ basis9(x) - basis10(x) + basis3(x)
|
|
&+ basis11(x) + basis13(x)/2d0
|
|
&+ basis2(x) + basis1(x) + basis15(x)/2d0
|
|
&- basis9(x)/2d0 + basis10(x)/2d0
|
|
&- 2*basis11(x)
|
|
&+ 3*basis7(x) - basis13(x)/4d0
|
|
&+ pi**4/480d0 - (pi**2*basis2_2(x))/12d0
|
|
&+ basis2_3(x)*basis2_2(x) - basis2_2(x)**2/2d0
|
|
&- 3*cli4pt5
|
|
&+ (basis2_2(x)*ll2**2)/2d0
|
|
&+ basis3_4(x)*ll1mx - basis2_2(x)
|
|
&*ll2*ll1mx - 2*basis3_1(x)*ll1px
|
|
&- 2*basis3_8(x)*ll1px - 2*basis3_7(x)
|
|
&*ll1px + (pi**2*ll2*ll1px)/4d0 - (ll2**3
|
|
&*ll1px)/2d0 + (5*pi**2*ll1mx*ll1px)/12d0
|
|
&+ basis2_2(x)*ll1mx*ll1px - ll2*ll1mx**2
|
|
&*ll1px + (ll1mx**3*ll1px)/3d0 - ll1mx**2
|
|
&*llx*ll1px - (5*pi**2*ll1px**2)/12d0
|
|
&+ (basis2_3(x)*ll1px**2)/2d0 - (basis2_2(x)
|
|
&*ll1px**2)/2d0 + (basis2_1(x)*ll1px**2)/2d0
|
|
&+ ll2**2*ll1px**2 + (3*ll2*ll1mx
|
|
&*ll1px**2)/2d0 + 2*ll1mx*llx*ll1px**2
|
|
&- (3*ll2*ll1px**3)/2d0 - (2*ll1mx
|
|
&*ll1px**3)/3d0 - llx*ll1px**3
|
|
&+ (5*ll1px**4)/8d0 - (7*ll1mx*zeta3)/8d0
|
|
&- (5*ll1px*zeta3)/4d0
|
|
&- (basis2_2(x)*ll2**2)/2d0 - 2*basis3_4(x)*ll1mx
|
|
&+ basis2_2(x)*ll2*ll1mx + 2*basis3_1(x)*ll1px
|
|
&+ 2*basis3_8(x)*ll1px + 2*basis3_7(x)
|
|
&*ll1px - (pi**2*ll1mx*ll1px)/2d0 - basis2_2(x)
|
|
&*ll1mx*ll1px + ll2*ll1mx**2*ll1px
|
|
&- (ll1mx**3*ll1px)/3d0 + ll1mx**2*llx
|
|
&*ll1px + (pi**2*ll1px**2)/8d0 - (basis2_3(x)
|
|
&*ll1px**2)/2d0 + (basis2_2(x)*ll1px**2)/2d0
|
|
&-(basis2_1(x)
|
|
&*ll1px**2)/2d0 - (ll2**2*ll1px**2)/4d0
|
|
&- (3*ll2*ll1mx*ll1px**2)/2d0 - 2*ll1mx
|
|
&*llx*ll1px**2 + ll2*ll1px**3 + (5*ll1mx
|
|
&*ll1px**3)/6d0 + (5*llx*ll1px**3)/6d0
|
|
&- (11*ll1px**4)/24d0 + (7*ll1mx*zeta3)/4d0
|
|
&+ (ll1px*zeta3)/4d0
|
|
|
|
case(13) !-100-1
|
|
|
|
ris = -basis2_2(x)**2/2d0 - basis3_2(x)*ll1px
|
|
|
|
case(14) !-1000
|
|
|
|
ris = basis2(x) - basis3_2(x)*llx + (basis2_2(x)
|
|
&*llx**2)/2d0 + (llx**3*ll1px)/6d0
|
|
|
|
case(15) !-1001
|
|
|
|
bcflag_save=bcflag
|
|
b16 = basis16(x)
|
|
bcflag = bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = -pi**4/360d0 + basis2_2(x)*basis2_1(x) + b16
|
|
&- basis3(x) - basis2(x) - basis1(x) + basis5(x)
|
|
&+ basis4(x) + basis6(x) + basis13(x)/4d0
|
|
&- basis14(x)/4d0 + basis3_2(x)*ll1mx
|
|
&+ (pi**2*ll1mx**2)/16d0 + ll1mx**4/32d0
|
|
&- (ll1mx**3*llx)/12d0 + 2*basis3_1(x)*ll1px
|
|
&- (pi**2*ll1mx*ll1px)/24d0 - (ll1mx**3
|
|
&*ll1px)/24d0 + (ll1mx**2*llx*ll1px)/4d0
|
|
&- (5*pi**2*ll1px**2)/48d0 - (ll1mx**2*ll1px**2)
|
|
&/16d0 + (ll1mx*llx*ll1px**2)/4d0 - (ll1mx
|
|
&*ll1px**3)/24d0 - (llx*ll1px**3)/12d0
|
|
&+ (7*ll1px**4)/96d0 + (3*ll1mx*zeta3)/4d0
|
|
&+ (3*ll1px*zeta3)/4d0
|
|
|
|
case(16) !-101-1
|
|
|
|
bcflag_save=bcflag
|
|
b18 = basis18(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = pi**4/90d0 - (pi**2*basis2_2(x))/12d0 + basis2_3(x)
|
|
&*basis2_2(x) - basis2_2(x)**2/2d0
|
|
&- b18
|
|
&- (pi**4/480d0 - (pi**2*basis2_2(x))/12d0
|
|
&+ basis2_3(x)*basis2_2(x) - basis2_2(x)**2/2d0
|
|
&- 3*cli4pt5 + basis3(x)
|
|
&+ basis2(x) + basis1(x) + basis15(x)/2d0
|
|
&- basis9(x)/2d0 + basis10(x)/2d0
|
|
&+ 2*basis6(x) - 2*basis11(x)
|
|
&+ 3*basis7(x) - basis13(x)/4d0 + (basis2_2(x)
|
|
&*ll2**2)/2d0 + basis3_4(x)*ll1mx - basis2_2(x)
|
|
&*ll2*ll1mx - 2*basis3_1(x)*ll1px
|
|
&- 2*basis3_8(x)*ll1px - 2*basis3_7(x)
|
|
&*ll1px + (pi**2*ll2*ll1px)/4d0 - (ll2**3
|
|
&*ll1px)/2d0 + (5*pi**2*ll1mx*ll1px)/12d0
|
|
&+ basis2_2(x)*ll1mx*ll1px - ll2*ll1mx**2
|
|
&*ll1px + (ll1mx**3*ll1px)/3d0 - ll1mx**2
|
|
&*llx*ll1px - (5*pi**2*ll1px**2)/12d0
|
|
&+ (basis2_3(x)*ll1px**2)/2d0 - (basis2_2(x)
|
|
&*ll1px**2)/2d0 + (basis2_1(x)*ll1px**2)/2d0
|
|
&+ ll2**2*ll1px**2 + (3*ll2*ll1mx
|
|
&*ll1px**2)/2d0 + 2*ll1mx*llx*ll1px**2
|
|
&- (3*ll2*ll1px**3)/2d0 - (2*ll1mx
|
|
&*ll1px**3)/3d0 - llx*ll1px**3
|
|
&+ (5*ll1px**4)/8d0 - (7*ll1mx*zeta3)/8d0
|
|
&- (5*ll1px*zeta3)/4d0)
|
|
&+ (3*basis2(x))/2d0 + basis1(x)/2d0
|
|
&+ basis15(x)/4d0 - basis4(x)
|
|
&+ 2*basis6(x) - basis11(x) + (basis2_2(x)
|
|
&*ll2**2)/2d0 - basis2_2(x)*ll2*ll1mx
|
|
&+ basis3_6(x)*ll1px - basis3_3(x)*ll1px
|
|
&- 2*basis3_1(x)*ll1px - 2*basis3_8(x)*ll1px
|
|
&- basis3_4(x)*ll1px - basis3_7(x)
|
|
&*ll1px + basis3_5(x)*ll1px + (pi**2*ll2
|
|
&*ll1px)/6d0 - (ll2**3*ll1px)/3d0
|
|
&+ (pi**2*ll1mx*ll1px)/4d0 + (ll2**2*ll1mx
|
|
&*ll1px)/2d0 - ll2*ll1mx**2*ll1px
|
|
&+ (ll1mx**3*ll1px)/3d0 - ll1mx**2*llx
|
|
&*ll1px - (3*pi**2*ll1px**2)/8d0 + (basis2_3(x)
|
|
&*ll1px**2)/2d0 - (basis2_2(x)*ll1px**2)/2d0
|
|
&+(basis2_1(x)
|
|
&*ll1px**2)/2d0 + (3*ll2**2*ll1px**2)/4d0
|
|
&+ (ll2*ll1mx*ll1px**2)/2d0 + ll1mx*llx
|
|
&*ll1px**2 - ll2*ll1px**3 - (5*llx
|
|
&*ll1px**3)/6d0 + (11*ll1px**4)/24d0
|
|
&+ (ll1px*zeta3)/4d0
|
|
|
|
case(17) !-1010
|
|
|
|
bcflag_save=bcflag
|
|
b16 = basis16(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = -(basis2_2(x)*basis2_1(x)) - b16
|
|
&+ basis3_6(x)
|
|
&*llx - basis3_3(x)*llx - basis3_4(x)*llx
|
|
&+ basis3_7(x)*llx + basis3_5(x)*llx
|
|
&+ (pi**2*ll2*llx)/6d0 - (ll2**3*llx)/3d0
|
|
&- (pi**2*ll1mx*llx)/12d0 - basis2_2(x)*ll1mx
|
|
&*llx + (ll2**2*ll1mx*llx)/2d0 - 2*basis3_1(x)
|
|
&*ll1px - (pi**2*llx*ll1px)/12d0
|
|
&+ (ll2**2*llx*ll1px)/2d0 - ll2*ll1mx
|
|
&*llx*ll1px - ll1mx*llx**2*ll1px
|
|
&+ (ll1mx*llx*ll1px**2)/2d0 - (3*llx*zeta3)/4d0
|
|
|
|
case(18) !-1011
|
|
|
|
ris = pi**4/288d0 - basis4(x) + basis9(x)
|
|
&/2d0 - basis10(x)/2d0 - basis13(x)/4d0
|
|
&- basis3_6(x)*ll1mx + basis3_3(x)*ll1mx
|
|
&+ basis3_4(x)*ll1mx - basis3_7(x)
|
|
&*ll1mx - basis3_5(x)*ll1mx - (pi**2*ll2
|
|
&*ll1mx)/6d0 + (ll2**3*ll1mx)/3d0 + (pi**2
|
|
&*ll1mx**2)/24d0 + (basis2_2(x)*ll1mx**2)/2d0
|
|
&- (ll2**2*ll1mx**2)/2d0 + (pi**2*ll1mx
|
|
&*ll1px)/4d0 - (ll2**2*ll1mx*ll1px)/2d0
|
|
&+ ll2*ll1mx**2*ll1px + (ll1mx**2*llx
|
|
&*ll1px)/2d0 + (pi**2*ll1px**2)/24d0
|
|
&- (ll1mx**2*ll1px**2)/2d0 - ll1px**4/24d0
|
|
&+ (ll1mx*zeta3)/8d0 + (ll1px*zeta3)/8d0
|
|
|
|
case(19) !-11-1-1
|
|
|
|
ris = -3*cli4pt5 + 3*basis7(x)
|
|
&- 2*basis3_5(x)*ll1px + (pi**2*ll2*ll1px)
|
|
&/12d0 - (ll2**3*ll1px)/6d0 + (pi**2*ll1px**2)/12d0
|
|
&- (basis2_3(x)*ll1px**2)/2d0 - (ll2**2
|
|
&*ll1px**2)/2d0 + (ll2*ll1mx*ll1px**2)/2d0
|
|
&+ (ll2*ll1px**3)/2d0 - (ll1mx*ll1px**3)/2d0
|
|
&- (7*ll1px*zeta3)/8d0
|
|
|
|
case(20) !-11-10
|
|
|
|
bcflag_save=bcflag
|
|
b18 = basis18(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = -pi**4/90d0 - basis2_2(x)**2/2d0
|
|
&- b18
|
|
&- (pi**4/480d0 - (pi**2*basis2_2(x))/12d0
|
|
&+ basis2_3(x)*basis2_2(x) - basis2_2(x)**2/2d0
|
|
&- 3*cli4pt5 + basis3(x)
|
|
&+ basis2(x) + basis1(x) + basis15(x)/2d0
|
|
&- basis9(x)/2d0 + basis10(x)/2d0
|
|
&+ 2*basis6(x) - 2*basis11(x)
|
|
&+ 3*basis7(x) - basis13(x)/4d0 + (basis2_2(x)
|
|
&*ll2**2)/2d0 + basis3_4(x)*ll1mx - basis2_2(x)
|
|
&*ll2*ll1mx - 2*basis3_1(x)*ll1px
|
|
&- 2*basis3_8(x)*ll1px - 2*basis3_7(x)
|
|
&*ll1px + (pi**2*ll2*ll1px)/4d0 - (ll2**3
|
|
&*ll1px)/2d0 + (5*pi**2*ll1mx*ll1px)/12d0
|
|
&+ basis2_2(x)*ll1mx*ll1px - ll2*ll1mx**2
|
|
&*ll1px + (ll1mx**3*ll1px)/3d0 - ll1mx**2
|
|
&*llx*ll1px - (5*pi**2*ll1px**2)/12d0
|
|
&+ (basis2_3(x)*ll1px**2)/2d0 - (basis2_2(x)
|
|
&*ll1px**2)/2d0 + (basis2_1(x)*ll1px**2)/2d0
|
|
&+ ll2**2*ll1px**2 + (3*ll2*ll1mx
|
|
&*ll1px**2)/2d0 + 2*ll1mx*llx*ll1px**2
|
|
&- (3*ll2*ll1px**3)/2d0 - (2*ll1mx
|
|
&*ll1px**3)/3d0 - llx*ll1px**3
|
|
&+ (5*ll1px**4)/8d0 - (7*ll1mx*zeta3)/8d0
|
|
&- (5*ll1px*zeta3)/4d0)
|
|
&- 6*cli4pt5 + basis2(x)/2d0
|
|
&+ (3*basis1(x))/2d0 + (3*basis15(x))/4d0
|
|
&+ basis4(x) + 2*basis6(x) - 3*basis11(x)
|
|
&+ 6*basis7(x) - 2*basis3_5(x)*llx
|
|
&- (pi**2*ll2*llx)/6d0 + (ll2**3*llx)/3d0
|
|
&- 2*basis3_1(x)*ll1px - 2*basis3_8(x)*ll1px
|
|
&- 2*basis3_7(x)*ll1px + (pi**2*ll2
|
|
&*ll1px)/2d0 - ll2**3*ll1px
|
|
&+ (pi**2*ll1mx*ll1px)/3d0 - ll2*ll1mx**2
|
|
&*ll1px + (ll1mx**3*ll1px)/3d0 + (pi**2*llx
|
|
&*ll1px)/4d0 - basis2_3(x)*llx*ll1px
|
|
&- (3*ll2**2*llx*ll1px)/2d0 + ll2*ll1mx
|
|
&*llx*ll1px - ll1mx**2*llx*ll1px
|
|
&- (17*pi**2*ll1px**2)/24d0 + (basis2_3(x)
|
|
&*ll1px**2)/2d0 - (basis2_2(x)*ll1px**2)/2d0
|
|
&+ (basis2_1(x)*ll1px**2)/2d0
|
|
&+ (7*ll2**2*ll1px**2)
|
|
&/4d0 + (3*ll2*ll1mx*ll1px**2)/2d0 + ll2
|
|
&*llx*ll1px**2 + ll1mx*llx*ll1px**2
|
|
&- 2*ll2*ll1px**3 - (ll1mx*ll1px**3)/2d0
|
|
&- (7*llx*ll1px**3)/6d0 + (19*ll1px**4)/24d0
|
|
&+ (7*llx*zeta3)/4d0 - (9*ll1px*zeta3)/4d0
|
|
|
|
case(21) !-11-11
|
|
|
|
ris = (11*pi**4)/480d0 - (pi**2*basis2_3(x))/12d0
|
|
&+ basis2_3(x)**2/2d0 + 2*basis8(x) + 2
|
|
&*basis10(x) - 2*basis7(x)
|
|
&- (pi**2*ll2**2)/24d0 + (basis2_3(x)*ll2**2)/2d0
|
|
&+ ll2**4/8d0 + 2*basis3_5(x)*ll1mx + (5*pi**2
|
|
&*ll2*ll1mx)/12d0 - basis2_3(x)*ll2
|
|
&*ll1mx - (7*ll2**3*ll1mx)/6d0 + ll2**2
|
|
&*ll1mx**2 - (pi**2*ll2*ll1px)/6d0 + (ll2**3
|
|
&*ll1px)/3d0 - (5*pi**2*ll1mx*ll1px)/12d0
|
|
&+ basis2_3(x)*ll1mx*ll1px + (3*ll2**2
|
|
&*ll1mx*ll1px)/2d0 - 2*ll2*ll1mx**2
|
|
&*ll1px + (pi**2*ll1px**2)/6d0 - (ll2**2
|
|
&*ll1px**2)/2d0 + ll1mx**2*ll1px**2
|
|
&- (ll1mx*ll1px**3)/3d0 + ll1px**4/12d0
|
|
&- 2*ll1mx*zeta3 + (ll1px*zeta3)/4d0
|
|
|
|
case(22) !-110-1
|
|
|
|
bcflag_save=bcflag
|
|
b18 = basis18(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = -pi**4/90d0 + basis2_2(x)**2/2d0
|
|
&+ b18
|
|
&+ pi**4/480d0 - (pi**2*basis2_2(x))/12d0
|
|
&+ basis2_3(x)*basis2_2(x) - basis2_2(x)**2/2d0
|
|
&- 3*cli4pt5 + basis3(x)
|
|
&+ basis2(x) + basis1(x) + basis15(x)/2d0
|
|
&- basis9(x)/2d0 + basis10(x)/2d0
|
|
&+ 2*basis6(x) - 2*basis11(x)
|
|
&+ 3*basis7(x) - basis13(x)/4d0 + (basis2_2(x)
|
|
&*ll2**2)/2d0 + basis3_4(x)*ll1mx - basis2_2(x)
|
|
&*ll2*ll1mx - 2*basis3_1(x)*ll1px
|
|
&- 2*basis3_8(x)*ll1px - 2*basis3_7(x)
|
|
&*ll1px + (pi**2*ll2*ll1px)/4d0 - (ll2**3
|
|
&*ll1px)/2d0 + (5*pi**2*ll1mx*ll1px)/12d0
|
|
&+ basis2_2(x)*ll1mx*ll1px - ll2*ll1mx**2
|
|
&*ll1px + (ll1mx**3*ll1px)/3d0 - ll1mx**2
|
|
&*llx*ll1px - (5*pi**2*ll1px**2)/12d0
|
|
&+ (basis2_3(x)*ll1px**2)/2d0 - (basis2_2(x)
|
|
&*ll1px**2)/2d0 + (basis2_1(x)*ll1px**2)/2d0
|
|
&+ ll2**2*ll1px**2 + (3*ll2*ll1mx
|
|
&*ll1px**2)/2d0 + 2*ll1mx*llx*ll1px**2
|
|
&- (3*ll2*ll1px**3)/2d0 - (2*ll1mx
|
|
&*ll1px**3)/3d0 - llx*ll1px**3
|
|
&+ (5*ll1px**4)/8d0 - (7*ll1mx*zeta3)/8d0
|
|
&- (5*ll1px*zeta3)/4d0
|
|
&- (3*basis2(x))/2d0 - basis1(x)/2d0
|
|
&- basis15(x)/4d0 + basis4(x)
|
|
&- 2*basis6(x) + basis11(x) + basis3_2(x)
|
|
&*ll1px + basis3_1(x)*ll1px + basis3_8(x)
|
|
&*ll1px + basis3_4(x)*ll1px
|
|
&+ basis3_7(x)*ll1px - basis3_5(x)
|
|
&*ll1px - (pi**2*ll2*ll1px)/12d0 + (ll2**3
|
|
&*ll1px)/6d0 - (pi**2*ll1mx*ll1px)/6d0
|
|
&+ (ll2*ll1mx**2*ll1px)/2d0 - (ll1mx**3
|
|
&*ll1px)/6d0 + (ll1mx**2*llx*ll1px)/2d0
|
|
&+ (3*pi**2*ll1px**2)/8d0 - (basis2_3(x)
|
|
&*ll1px**2)/2d0 + (basis2_2(x)*ll1px**2)/2d0
|
|
&- (basis2_1(x)*ll1px**2)/2d0
|
|
&- (3*ll2**2*ll1px**2)
|
|
&/4d0 - (ll2*ll1mx*ll1px**2)/2d0 - ll1mx
|
|
&*llx*ll1px**2 + ll2*ll1px**3 + (5*llx
|
|
&*ll1px**3)/6d0 - (11*ll1px**4)/24d0
|
|
&- (ll1px*zeta3)/8d0
|
|
|
|
case(23) !-1100
|
|
|
|
ris = -pi**4/90d0 - 2*cli4pt5 - basis2(x)/2d0
|
|
&+ (3*basis1(x))/2d0 + basis15(x)/4d0
|
|
&+ basis4(x) + basis6(x) - 2*basis11(x)
|
|
&+ 2*basis7(x) + basis3_2(x)*llx - basis3_1(x)*llx
|
|
&- basis3_8(x)*llx + basis3_4(x)*llx
|
|
&- basis3_7(x)*llx - basis3_5(x)*llx
|
|
&- (pi**2*ll2*llx)/12d0 + (ll2**3*llx)/6d0
|
|
&+ (pi**2*ll1mx*llx)/6d0 - (ll2*ll1mx**2
|
|
&*llx)/2d0 + (ll1mx**3*llx)/6d0 + (pi**2*llx**2)
|
|
&/24d0 - (basis2_3(x)*llx**2)/2d0 - (ll2**2
|
|
&*llx**2)/4d0 + (ll2*ll1mx*llx**2)/2d0
|
|
&- (ll1mx**2*llx**2)/2d0 + (pi**2*ll2*ll1px)
|
|
&/6d0 - (ll2**3*ll1px)/3d0 + (pi**2*llx*ll1px)
|
|
&/12d0 - (ll2**2*llx*ll1px)/2d0 +ll2*ll1mx
|
|
&*llx*ll1px + (ll1mx*llx**2*ll1px)/2d0
|
|
&- (pi**2*ll1px**2)/6d0 + (ll2**2*ll1px**2)/2d0
|
|
&- (ll1mx*llx*ll1px**2)/2d0 - (ll2
|
|
&*ll1px**3)/3d0 - (llx*ll1px**3)/6d0
|
|
&+ ll1px**4/6d0 + (7*llx*zeta3)/8d0
|
|
& - (3*ll1px*zeta3)/4d0
|
|
|
|
case(24) !-1101
|
|
|
|
bcflag_save=bcflag
|
|
b17= basis17(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = pi**4/144d0 - basis2_2(x)*basis2_1(x)
|
|
&+ basis2_1(x)**2/2d0
|
|
&+ b17-( -pi**4/288d0
|
|
&- (pi**2*basis2_1(x))/12d0 + basis2_3(x)
|
|
&*basis2_1(x) - basis2_2(x)*basis2_1(x)
|
|
&+ basis2_1(x)**2/2d0
|
|
&- 5*cli4pt5
|
|
&+ basis8(x) - 2*basis3(x) + basis2(x) + basis1(x)
|
|
&- 2*basis12(x) + basis15(x)/2d0
|
|
&+ 3*basis4(x) - basis9(x)/2d0
|
|
&+ basis10(x)/2d0 + 2*basis6(x)
|
|
&- 4*basis11(x) + 4*basis7(x)
|
|
&+ basis13(x)/4d0 + (basis2_1(x)*ll2**2)/2d0
|
|
&- 2*basis3_8(x)*ll1mx + (pi**2*ll2
|
|
&*ll1mx)/12d0 - basis2_1(x)*ll2*ll1mx
|
|
&- (ll2**3*ll1mx)/6d0 + (pi**2*ll1mx**2)/8d0
|
|
&+ (basis2_3(x)*ll1mx**2)/2d0 - (basis2_2(x)
|
|
&*ll1mx**2)/2d0 + (basis2_1(x)*ll1mx**2)/2d0
|
|
&+ (ll2**2*ll1mx**2)/2d0-(2*ll2*ll1mx**3)/3d0
|
|
&+ (7*ll1mx**4)/24d0 - (ll1mx**3*llx)/3d0
|
|
&- basis3_3(x)*ll1px - 2*basis3_1(x)*ll1px
|
|
&+ (pi**2*ll2*ll1px)/3d0-(2*ll2**3*ll1px)/3d0
|
|
&- (3*pi**2*ll1px**2)/8d0 + ll2**2*ll1px**2
|
|
&- (2*ll2*ll1px**3)/3d0 - (llx*ll1px**3)/3d0
|
|
&+ (3*ll1px**4)/8d0 + (7*ll1mx*zeta3)/4d0
|
|
&- (5*ll1px*zeta3)/8d0)
|
|
&- 4*cli4pt5 + 2*basis8(x) - basis3(x)
|
|
&+ (3*basis2(x))/2d0 + basis1(x)/2d0 - 2*basis5(x)
|
|
&- basis12(x) + basis15(x)/4d0
|
|
&+ 2*basis4(x) - basis9(x)
|
|
&+ basis10(x) - 2*basis11(x)
|
|
&+ 2*basis7(x) + basis13(x)/4d0
|
|
&+ basis14(x)/4d0 - basis3_2(x)
|
|
&*ll1mx + basis3_1(x)*ll1mx - basis3_8(x)
|
|
&*ll1mx - basis3_4(x)*ll1mx
|
|
&+ basis3_7(x)*ll1mx + basis3_5(x)
|
|
&*ll1mx + (pi**2*ll2*ll1mx)/4d0 - (ll2**3
|
|
&*ll1mx)/2d0 - (5*pi**2*ll1mx**2)/48d0
|
|
&+ (basis2_3(x)*ll1mx**2)/2d0 - (basis2_2(x)
|
|
&*ll1mx**2)/2d0 + (basis2_1(x)*ll1mx**2)/2d0
|
|
&+ (3*ll2**2*ll1mx**2)/4d0-(ll2*ll1mx**3)/3d0
|
|
&+ (3*ll1mx**4)/32d0 + (ll1mx**3*llx)/4d0
|
|
&- 2*basis3_1(x)*ll1px + (pi**2*ll2*ll1px)/6d0
|
|
&- (ll2**3*ll1px)/3d0 - (3*pi**2*ll1mx*ll1px)
|
|
&/8d0 + (ll2**2*ll1mx*ll1px)/2d0 - ll2
|
|
&*ll1mx**2*ll1px + (ll1mx**3*ll1px)/24d0
|
|
&- (ll1mx**2*llx*ll1px)/4d0
|
|
&- (7*pi**2*ll1px**2)/48d0 + (ll2**2*ll1px**2)/2d0
|
|
&+ (9*ll1mx**2*ll1px**2)/16d0 - (ll1mx*llx
|
|
&*ll1px**2)/4d0 - (ll2*ll1px**3)/3d0
|
|
&+ (ll1mx*ll1px**3)/24d0 - (llx*ll1px**3)
|
|
&/12d0 + (17*ll1px**4)/96d0 - (ll1mx*zeta3)/8d0
|
|
&- (7*ll1px*zeta3)/4d0
|
|
|
|
case(25) !-111-1
|
|
|
|
ris = -pi**4/288d0 + (pi**2*basis2_3(x))/12d0
|
|
&- basis2_3(x)**2/2d0 + (pi**2*ll2**2)/24d0
|
|
&- (basis2_3(x)*ll2**2)/2d0 - ll2**4/8d0
|
|
&- (pi**2*ll2*ll1mx)/12d0 + basis2_3(x)*ll2
|
|
&*ll1mx + (ll2**3*ll1mx)/2d0 - (ll2**2
|
|
&*ll1mx**2)/2d0 - basis3_6(x)*ll1px - (pi**2
|
|
&*ll2*ll1px)/12d0 + (ll2**3*ll1px)/6d0
|
|
&+ (pi**2*ll1mx*ll1px)/12d0 - (ll2**2*ll1mx
|
|
&*ll1px)/2d0 + (ll2*ll1mx**2*ll1px)/2d0
|
|
&+ (7*ll1px*zeta3)/8d0
|
|
|
|
case(26) !-1110
|
|
|
|
bcflag_save=bcflag
|
|
b17= basis17(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = pi**4/288d0 + basis2_2(x)*basis2_1(x)
|
|
&- basis2_1(x)**2/2d0
|
|
&- (b17-( -pi**4/288d0
|
|
&- (pi**2*basis2_1(x))/12d0 + basis2_3(x)
|
|
&*basis2_1(x) - basis2_2(x)*basis2_1(x)
|
|
&+ basis2_1(x)**2/2d0
|
|
&- 5*cli4pt5
|
|
&+ basis8(x) - 2*basis3(x) + basis2(x) + basis1(x)
|
|
&- 2*basis12(x) + basis15(x)/2d0
|
|
&+ 3*basis4(x) - basis9(x)/2d0
|
|
&+ basis10(x)/2d0 + 2*basis6(x)
|
|
&- 4*basis11(x) + 4*basis7(x)
|
|
&+ basis13(x)/4d0 + (basis2_1(x)*ll2**2)/2d0
|
|
&- 2*basis3_8(x)*ll1mx + (pi**2*ll2
|
|
&*ll1mx)/12d0 - basis2_1(x)*ll2*ll1mx
|
|
&- (ll2**3*ll1mx)/6d0 + (pi**2*ll1mx**2)/8d0
|
|
&+ (basis2_3(x)*ll1mx**2)/2d0 - (basis2_2(x)
|
|
&*ll1mx**2)/2d0 + (basis2_1(x)*ll1mx**2)/2d0
|
|
&+ (ll2**2*ll1mx**2)/2d0-(2*ll2*ll1mx**3)/3d0
|
|
&+ (7*ll1mx**4)/24d0 - (ll1mx**3*llx)/3d0
|
|
&- basis3_3(x)*ll1px - 2*basis3_1(x)*ll1px
|
|
&+ (pi**2*ll2*ll1px)/3d0-(2*ll2**3*ll1px)/3d0
|
|
&- (3*pi**2*ll1px**2)/8d0 + ll2**2*ll1px**2
|
|
&- (2*ll2*ll1px**3)/3d0 - (llx*ll1px**3)/3d0
|
|
&+ (3*ll1px**4)/8d0 + (7*ll1mx*zeta3)/4d0
|
|
&- (5*ll1px*zeta3)/8d0))
|
|
&+ 5*cli4pt5
|
|
&- basis8(x) + 2*basis3(x) - basis2(x) - basis1(x)
|
|
&+ 2*basis12(x) - basis15(x)/2d0
|
|
&- 3*basis4(x) + basis9(x)/2d0
|
|
&- basis10(x)/2d0 - 2*basis6(x)
|
|
&+ 4*basis11(x) - 4*basis7(x)
|
|
&- basis13(x)/4d0 + 2*basis3_8(x)*ll1mx
|
|
&- (pi**2*ll2*ll1mx)/12d0 +(ll2**3*ll1mx)/6d0
|
|
&- (pi**2*ll1mx**2)/8d0 - (basis2_3(x)
|
|
&*ll1mx**2)/2d0 + (basis2_2(x)*ll1mx**2)/2d0
|
|
&- (basis2_1(x)*ll1mx**2)/2d0
|
|
&-(ll2**2*ll1mx**2)/2d0
|
|
&+ (2*ll2*ll1mx**3)/3d0 - (7*ll1mx**4)/24d0
|
|
&- basis3_6(x)*llx - (pi**2*ll2*llx)/12d0
|
|
&+ (ll2**3*llx)/6d0 + basis2_3(x)*ll1mx
|
|
&*llx - (ll2*ll1mx**2*llx)/2d0 + (ll1mx**3
|
|
&*llx)/3d0 + 2*basis3_1(x)*ll1px - (pi**2*ll2
|
|
&*ll1px)/3d0 + (2*ll2**3*ll1px)/3d0 + (pi**2
|
|
&*ll1mx*ll1px)/6d0 + (3*pi**2*ll1px**2)/8d0
|
|
&- ll2**2*ll1px**2 + (2*ll2*ll1px**3)/3d0
|
|
&+ (llx*ll1px**3)/3d0 - (3*ll1px**4)/8d0
|
|
&- (7*ll1mx*zeta3)/4d0 + (7*llx*zeta3)/8d0
|
|
&+ (13*ll1px*zeta3)/8d0
|
|
|
|
case(27) !-1111
|
|
|
|
ris = cli4pt5 - basis8(x)
|
|
&+ basis3_6(x)
|
|
&*ll1mx - (basis2_3(x)*ll1mx**2)/2d0 + (ll2
|
|
&*ll1mx**3)/6d0 - (ll1mx**3*ll1px)/6d0
|
|
|
|
case(28) !0-1-1-1
|
|
|
|
ris = pi**4/90d0 - basis4(x) - basis3_4(x)
|
|
&*ll1px - (pi**2*ll1px**2)/12d0 - (basis2_2(x)
|
|
&*ll1px**2)/2d0 - (llx*ll1px**3)/3d0
|
|
&+ ll1px**4/8d0
|
|
|
|
case(29) !0-1-10
|
|
|
|
ris = -basis2_2(x)**2/2d0 - basis3_4(x)*llx
|
|
&- (pi**2*llx*ll1px)/6d0 - basis2_2(x)*llx*ll1px
|
|
&- (llx**2*ll1px**2)/2d0 + (llx*ll1px**3)/6d0
|
|
&+ llx*zeta3
|
|
|
|
case(30) !0-1-11
|
|
|
|
bcflag_save=bcflag
|
|
ris = -basis18(x)
|
|
bcflag=bcflag_save
|
|
|
|
case(31) !0-10-1
|
|
|
|
ris = pi**4/45d0 + basis2_2(x)**2/2d0 - 2*basis2(x)
|
|
&- 2*basis4(x) - 2*basis6(x) + 2*basis3_2(x)
|
|
&*ll1px + (pi**2*ll1px**2)/6d0 + (llx
|
|
&*ll1px**3)/3d0 - ll1px**4/6d0 - 2*ll1px*zeta3
|
|
|
|
case(32) !0-100
|
|
|
|
ris = -3*basis2(x) + 2*basis3_2(x)*llx
|
|
&- (basis2_2(x)*llx**2)/2d0
|
|
|
|
case(33) !0-101
|
|
|
|
bcflag_save=bcflag
|
|
b16 = basis16(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = pi**4/180d0 - basis2_2(x)*basis2_1(x) - b16
|
|
&+ 2*basis3(x) + 2*basis2(x) + 2*basis1(x) - 2*basis5(x)
|
|
&- 2*basis4(x) - 2*basis6(x) - basis13(x)/2d0
|
|
&+ basis14(x)/2d0 - 2*basis3_2(x)*ll1mx
|
|
&- (pi**2*ll1mx**2)/8d0 - ll1mx**4/16d0
|
|
&+ (ll1mx**3*llx)/6d0 - 2*basis3_1(x)*ll1px
|
|
&+ (pi**2*ll1mx*ll1px)/12d0 + (ll1mx**3
|
|
&*ll1px)/12d0 - (ll1mx**2*llx*ll1px)/2d0
|
|
&+ (5*pi**2*ll1px**2)/24d0 + (ll1mx**2*ll1px**2)
|
|
&/8d0 - (ll1mx*llx*ll1px**2)/2d0 + (ll1mx
|
|
&*ll1px**3)/12d0 + (llx*ll1px**3)/6d0
|
|
&- (7*ll1px**4)/48d0 - (3*ll1mx*zeta3)/2d0
|
|
&- (3*ll1px*zeta3)/2d0
|
|
|
|
case(34) !0-11-1
|
|
|
|
bcflag_save=bcflag
|
|
b18 = basis18(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = pi**4/90d0 + (pi**2*basis2_2(x))/12d0 - basis2_3(x)
|
|
&*basis2_2(x) + basis2_2(x)**2/2d0
|
|
&+ b18
|
|
&+ pi**4/480d0 - (pi**2*basis2_2(x))/12d0
|
|
&+ basis2_3(x)*basis2_2(x) - basis2_2(x)**2/2d0
|
|
&- 3*cli4pt5 + basis3(x)
|
|
&+ basis2(x) + basis1(x) + basis15(x)/2d0
|
|
&- basis9(x)/2d0 + basis10(x)/2d0
|
|
&+ 2*basis6(x) - 2*basis11(x)
|
|
&+ 3*basis7(x) - basis13(x)/4d0 + (basis2_2(x)
|
|
&*ll2**2)/2d0 + basis3_4(x)*ll1mx - basis2_2(x)
|
|
&*ll2*ll1mx - 2*basis3_1(x)*ll1px
|
|
&- 2*basis3_8(x)*ll1px - 2*basis3_7(x)
|
|
&*ll1px + (pi**2*ll2*ll1px)/4d0 - (ll2**3
|
|
&*ll1px)/2d0 + (5*pi**2*ll1mx*ll1px)/12d0
|
|
&+ basis2_2(x)*ll1mx*ll1px - ll2*ll1mx**2
|
|
&*ll1px + (ll1mx**3*ll1px)/3d0 - ll1mx**2
|
|
&*llx*ll1px - (5*pi**2*ll1px**2)/12d0
|
|
&+ (basis2_3(x)*ll1px**2)/2d0 - (basis2_2(x)
|
|
&*ll1px**2)/2d0 + (basis2_1(x)*ll1px**2)/2d0
|
|
&+ ll2**2*ll1px**2 + (3*ll2*ll1mx
|
|
&*ll1px**2)/2d0 + 2*ll1mx*llx*ll1px**2
|
|
&- (3*ll2*ll1px**3)/2d0 - (2*ll1mx
|
|
&*ll1px**3)/3d0 - llx*ll1px**3
|
|
&+ (5*ll1px**4)/8d0 - (7*ll1mx*zeta3)/8d0
|
|
&- (5*ll1px*zeta3)/4d0
|
|
&+ 6*cli4pt5 - basis2(x)/2d0
|
|
&- (3*basis1(x))/2d0 - (3*basis15(x))/4d0
|
|
&- basis4(x) - 2*basis6(x) + 3*basis11(x)
|
|
&- 6*basis7(x) - (basis2_2(x)*ll2**2)/2d0 + basis2_2(x)
|
|
&*ll2*ll1mx - basis3_6(x)*ll1px
|
|
&+ basis3_3(x)*ll1px - basis3_2(x)*ll1px
|
|
&+ 3*basis3_1(x)
|
|
&*ll1px + 3*basis3_8(x)*ll1px
|
|
&+ 2*basis3_7(x)*ll1px - (7*pi**2*ll2
|
|
&*ll1px)/12d0 + (7*ll2**3*ll1px)/6d0
|
|
&- (5*pi**2*ll1mx*ll1px)/12d0 - (ll2**2*ll1mx
|
|
&*ll1px)/2d0 + (3*ll2*ll1mx**2*ll1px)/2d0
|
|
&- (ll1mx**3*ll1px)/2d0 + (3*ll1mx**2*llx
|
|
&*ll1px)/2d0 + (17*pi**2*ll1px**2)/24d0
|
|
&- (basis2_3(x)*ll1px**2)/2d0 + (basis2_2(x)
|
|
&*ll1px**2)/2d0 - (basis2_1(x)*ll1px**2)/2d0
|
|
&- (7*ll2**2*ll1px**2)/4d0 - (3*ll2*ll1mx
|
|
&*ll1px**2)/2d0 - 2*ll1mx*llx*ll1px**2
|
|
&+ 2*ll2*ll1px**3 + (ll1mx*ll1px**3)/2d0
|
|
&+ (7*llx*ll1px**3)/6d0 - (19*ll1px**4)/24d0
|
|
&+ (17*ll1px*zeta3)/8d0
|
|
|
|
case(35) !0-110
|
|
|
|
bcflag_save=bcflag
|
|
b16 = basis16(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = pi**4/45d0 + basis2_2(x)*basis2_1(x) + b16
|
|
&+ 4*cli4pt5 + basis2(x) - 3*basis1(x)
|
|
&- basis15(x)/2d0 - 2*basis4(x)
|
|
&- 2*basis6(x) + 4*basis11(x)
|
|
&- 4*basis7(x) - basis3_6(x)*llx
|
|
&+ basis3_3(x)*llx - basis3_2(x)*llx
|
|
&+ basis3_1(x)*llx
|
|
&+ basis3_8(x)*llx - (pi**2*ll2*llx)/12d0
|
|
&+ (ll2**3*llx)/6d0 - (pi**2*ll1mx*llx)/12d0
|
|
&+ basis2_2(x)*ll1mx*llx
|
|
&- (ll2**2*ll1mx*llx)
|
|
&/2d0 + (ll2*ll1mx**2*llx)/2d0 - (ll1mx**3
|
|
&*llx)/6d0 + (ll1mx**2*llx**2)/2d0 + 2*basis3_1(x)
|
|
&*ll1px - (pi**2*ll2*ll1px)/3d0 + (2*ll2**3
|
|
&*ll1px)/3d0 + (pi**2*ll1px**2)/3d0 - ll2**2
|
|
&*ll1px**2 + (2*ll2*ll1px**3)/3d0 + (llx
|
|
&*ll1px**3)/3d0 - ll1px**4/3d0 - (llx*zeta3)/8d0
|
|
&+ (3*ll1px*zeta3)/2d0
|
|
|
|
case(36) !0-111
|
|
|
|
ris = -pi**4/72d0 - cli4pt5 - basis8(x)
|
|
&- basis3(x) - basis2(x)/2d0 + basis1(x)/2d0
|
|
&+ 2*basis5(x) - basis12(x)
|
|
&+ basis15(x)/4d0 + 2*basis4(x)
|
|
&+ 2*basis6(x) - 2*basis11(x)
|
|
&+ 2*basis7(x) + basis13(x)/4d0
|
|
&- basis14(x)/4d0 + basis3_6(x)*ll1mx
|
|
&- basis3_3(x)*ll1mx + basis3_2(x)*ll1mx
|
|
&- basis3_1(x)*ll1mx - basis3_8(x)*ll1mx
|
|
&+ (3*pi**2*ll1mx**2)/16d0 - (basis2_2(x)*ll1mx**2)/2d0
|
|
&+ (ll2**2*ll1mx**2)/4d0 - (ll2*ll1mx**3)/3d0
|
|
&+ (19*ll1mx**4)/96d0 - (7*ll1mx**3*llx)/12d0
|
|
&+ (pi**2*ll2*ll1px)/6d0 - (ll2**3*ll1px)/3d0
|
|
&- (pi**2*ll1mx*ll1px)/24d0 - (ll1mx**3
|
|
&*ll1px)/24d0 + (ll1mx**2*llx*ll1px)/4d0
|
|
&- (13*pi**2*ll1px**2)/48d0 + (ll2**2*ll1px**2)/2d0
|
|
&- (ll1mx**2*ll1px**2)/16d0 + (ll1mx*llx
|
|
&*ll1px**2)/4d0 - (ll2*ll1px**3)/3d0 - (ll1mx
|
|
&*ll1px**3)/24d0 - (llx*ll1px**3)/4d0
|
|
&+ (23*ll1px**4)/96d0 + (7*ll1mx*zeta3)/4d0
|
|
|
|
case(37) !00-1-1
|
|
|
|
ris = -pi**4/90d0 + basis2(x) + basis4(x)
|
|
&+ basis6(x) - basis3_2(x)*ll1px
|
|
&- (pi**2*ll1px**2)/12d0 - (llx*ll1px**3)/6d0
|
|
&+ ll1px**4/12d0 + ll1px*zeta3
|
|
|
|
case(38) !00-10
|
|
|
|
ris = 3*basis2(x) - basis3_2(x)*llx
|
|
|
|
case(39) !00-11
|
|
|
|
ris = -pi**4/72d0 - 2*cli4pt5 - basis3(x)
|
|
&- (3*basis2(x))/2d0 + basis1(x)/2d0 + basis5(x)
|
|
&+ basis15(x)/4d0 + 2*basis4(x)
|
|
&+ 2*basis6(x) - 2*basis11(x)
|
|
&+ 2*basis7(x) + basis13(x)/4d0
|
|
&- basis14(x)/4d0 + basis3_2(x)*ll1mx
|
|
&+ (pi**2*ll1mx**2)/16d0 + ll1mx**4/32d0
|
|
&- (ll1mx**3*llx)/12d0 + (pi**2*ll2*ll1px)/6d0
|
|
&- (ll2**3*ll1px)/3d0 - (pi**2*ll1mx
|
|
&*ll1px)/24d0 - (ll1mx**3*ll1px)/24d0
|
|
&+ (ll1mx**2*llx*ll1px)/4d0 - (13*pi**2
|
|
&*ll1px**2)/48d0 + (ll2**2*ll1px**2)/2d0
|
|
&- (ll1mx**2*ll1px**2)/16d0 + (ll1mx*llx
|
|
&*ll1px**2)/4d0 - (ll2*ll1px**3)/3d0
|
|
&- (ll1mx*ll1px**3)/24d0 - (llx*ll1px**3)/4d0
|
|
&+ (23*ll1px**4)/96d0 + (3*ll1mx*zeta3)/4d0
|
|
|
|
case(40) !000-1
|
|
|
|
ris = -basis2(x)
|
|
|
|
case(41) !0000
|
|
|
|
ris = llx**4/24d0
|
|
|
|
case(42) !0001
|
|
|
|
ris = basis1(x)
|
|
|
|
case(43) !001-1
|
|
|
|
ris = pi**4/90d0 + 2*cli4pt5 + basis2(x)/2d0
|
|
&- (3*basis1(x))/2d0 - basis15(x)/4d0
|
|
&- basis4(x) - basis6(x) + 2*basis11(x)
|
|
&- 2*basis7(x) + basis3_1(x)*ll1px - (pi**2*ll2
|
|
&*ll1px)/6d0 + (ll2**3*ll1px)/3d0
|
|
&+ (pi**2*ll1px**2)/6d0 - (ll2**2*ll1px**2)/2d0
|
|
&+ (ll2*ll1px**3)/3d0 + (llx*ll1px**3)/6d0
|
|
&- ll1px**4/6d0 + (3*ll1px*zeta3)/4d0
|
|
|
|
case(44) !0010
|
|
|
|
ris = -3*basis1(x) + basis3_1(x)*llx
|
|
|
|
case(45) !0011
|
|
|
|
ris = pi**4/90d0 - basis3(x) + basis1(x) + basis5(x)
|
|
&- basis3_1(x)*ll1mx + (pi**2*ll1mx**2)/12d0
|
|
&+ ll1mx**4/24d0 - (ll1mx**3*llx)/6d0
|
|
&+ ll1mx*zeta3
|
|
|
|
case(46) !01-1-1
|
|
ris = -pi**4/90d0 - 3*cli4pt5 - basis2(x)/2d0
|
|
&+ basis1(x)/2d0 + basis15(x)/4d0 + basis4(x)
|
|
&- basis11(x) + 3*basis7(x) + basis3_2(x)
|
|
&*ll1px - basis3_1(x)*ll1px - basis3_8(x)
|
|
&*ll1px + basis3_4(x)*ll1px
|
|
&- basis3_7(x)*ll1px - basis3_5(x)
|
|
&*ll1px + (pi**2*ll2*ll1px)/6d0 - (ll2**3
|
|
&*ll1px)/3d0 + (pi**2*ll1mx*ll1px)/6d0
|
|
&- (ll2*ll1mx**2*ll1px)/2d0 + (ll1mx**3
|
|
&*ll1px)/6d0 - (ll1mx**2*llx*ll1px)/2d0
|
|
&- (pi**2*ll1px**2)/8d0 + (basis2_1(x)*ll1px**2)/2d0
|
|
&+ (ll2**2*ll1px**2)/4d0 + ll2*ll1mx
|
|
&*ll1px**2 + ll1mx*llx*ll1px**2
|
|
&- (ll2*ll1px**3)/2d0 - (ll1mx*ll1px**3)/2d0
|
|
&- (llx*ll1px**3)/6d0 + ll1px**4/6d0
|
|
&- (3*ll1px*zeta3)/4d0
|
|
|
|
case(47) !01-10
|
|
|
|
bcflag_save=bcflag
|
|
b16 = basis16(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = -pi**4/45d0 - b16 - 4*cli4pt5
|
|
&- basis2(x)
|
|
&+ 3*basis1(x) + basis15(x)/2d0 + 2*basis4(x)
|
|
&+ 2*basis6(x) - 4*basis11(x)
|
|
&+ 4*basis7(x) + basis3_2(x)*llx - basis3_1(x)*llx
|
|
&- basis3_8(x)*llx + basis3_4(x)*llx
|
|
&- basis3_7(x)*llx - basis3_5(x)*llx
|
|
&- (pi**2*ll2*llx)/12d0 + (ll2**3*llx)/6d0
|
|
&+ (pi**2*ll1mx*llx)/6d0 - (ll2*ll1mx**2
|
|
&*llx)/2d0 + (ll1mx**3*llx)/6d0 - (ll1mx**2
|
|
&*llx**2)/2d0 - 2*basis3_1(x)*ll1px + (pi**2*ll2
|
|
&*ll1px)/3d0 - (2*ll2**3*ll1px)/3d0 + (pi**2
|
|
&*llx*ll1px)/12d0 + basis2_1(x)*llx*ll1px
|
|
&- (ll2**2*llx*ll1px)/2d0 + ll2*ll1mx
|
|
&*llx*ll1px + ll1mx*llx**2*ll1px
|
|
&- (pi**2*ll1px**2)/3d0 + ll2**2*ll1px**2
|
|
&- (ll1mx*llx*ll1px**2)/2d0 - (2*ll2
|
|
&*ll1px**3)/3d0 - (llx*ll1px**3)/3d0
|
|
&+ ll1px**4/3d0 + (7*llx*zeta3)/8d0
|
|
&- (3*ll1px*zeta3)/2d0
|
|
|
|
case(48) !01-11
|
|
|
|
bcflag_save=bcflag
|
|
b17= basis17(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
|
|
ris = pi**4/72d0 + (pi**2*basis2_1(x))/12d0 - basis2_3(x)
|
|
&*basis2_1(x) + basis2_2(x)*basis2_1(x) -basis2_1(x)**2/2d0
|
|
&- (b17-( -pi**4/288d0
|
|
&- (pi**2*basis2_1(x))/12d0 + basis2_3(x)
|
|
&*basis2_1(x) - basis2_2(x)*basis2_1(x) +basis2_1(x)**2/2d0
|
|
&- 5*cli4pt5
|
|
&+ basis8(x) - 2*basis3(x) + basis2(x) + basis1(x)
|
|
&- 2*basis12(x) + basis15(x)/2d0
|
|
&+ 3*basis4(x) - basis9(x)/2d0
|
|
&+ basis10(x)/2d0 + 2*basis6(x)
|
|
&- 4*basis11(x) + 4*basis7(x)
|
|
&+ basis13(x)/4d0 + (basis2_1(x)*ll2**2)/2d0
|
|
&- 2*basis3_8(x)*ll1mx + (pi**2*ll2
|
|
&*ll1mx)/12d0 - basis2_1(x)*ll2*ll1mx
|
|
&- (ll2**3*ll1mx)/6d0 + (pi**2*ll1mx**2)/8d0
|
|
&+ (basis2_3(x)*ll1mx**2)/2d0 - (basis2_2(x)
|
|
&*ll1mx**2)/2d0 + (basis2_1(x)*ll1mx**2)/2d0
|
|
&+ (ll2**2*ll1mx**2)/2d0-(2*ll2*ll1mx**3)/3d0
|
|
&+ (7*ll1mx**4)/24d0 - (ll1mx**3*llx)/3d0
|
|
&- basis3_3(x)*ll1px - 2*basis3_1(x)*ll1px
|
|
&+ (pi**2*ll2*ll1px)/3d0-(2*ll2**3*ll1px)/3d0
|
|
&- (3*pi**2*ll1px**2)/8d0 + ll2**2*ll1px**2
|
|
&- (2*ll2*ll1px**3)/3d0 - (llx*ll1px**3)/3d0
|
|
&+ (3*ll1px**4)/8d0 + (7*ll1mx*zeta3)/4d0
|
|
&- (5*ll1px*zeta3)/8d0))
|
|
&+ 6*cli4pt5 + 3*basis3(x)
|
|
&- basis2(x)/2d0 - (3*basis1(x))/2d0 - 2*basis5(x)
|
|
&+ 3*basis12(x) - (3*basis15(x))/4d0
|
|
&- 4*basis4(x) - 4*basis6(x) + 6*basis11(x)
|
|
&- 6*basis7(x) - basis13(x)/4d0
|
|
&+ basis14(x)/4d0 - (basis2_1(x)*ll2**2)/2d0
|
|
&- basis3_2(x)*ll1mx + basis3_1(x)*ll1mx
|
|
&+ 3*basis3_8(x)*ll1mx - basis3_4(x)
|
|
&*ll1mx + basis3_7(x)*ll1mx
|
|
&+ basis3_5(x)*ll1mx + (pi**2*ll2
|
|
&*ll1mx)/12d0 + basis2_1(x)*ll2*ll1mx
|
|
&-(ll2**3
|
|
&*ll1mx)/6d0 - (17*pi**2*ll1mx**2)/48d0
|
|
&- (basis2_3(x)*ll1mx**2)/2d0
|
|
&+ (basis2_2(x)*ll1mx**2)/2d0
|
|
&-(basis2_1(x)*ll1mx**2)/2d0
|
|
&- (ll2**2*ll1mx**2)/4d0 + ll2*ll1mx**3
|
|
&- (47*ll1mx**4)/96d0 + (11*ll1mx**3*llx)/12d0
|
|
&+ 2*basis3_1(x)*ll1px - (pi**2*ll2*ll1px)/2d0
|
|
&+ ll2**3*ll1px - (pi**2*ll1mx*ll1px)/24d0
|
|
&- basis2_1(x)*ll1mx*ll1px + (ll2**2*ll1mx
|
|
&*ll1px)/2d0 - ll2*ll1mx**2*ll1px
|
|
&+ (ll1mx**3*ll1px)/24d0 - (5*ll1mx**2*llx
|
|
&*ll1px)/4d0 + (29*pi**2*ll1px**2)/48d0
|
|
&- (3*ll2**2*ll1px**2)/2d0 + (9*ll1mx**2
|
|
&*ll1px**2)/16d0 - (ll1mx*llx*ll1px**2)/4d0
|
|
&+ ll2*ll1px**3 + (ll1mx*ll1px**3)/24d0
|
|
&+ (7*llx*ll1px**3)/12d0 - (55*ll1px**4)/96d0
|
|
&- (29*ll1mx*zeta3)/8d0 + (3*ll1px*zeta3)/2d0
|
|
|
|
case(49) !010-1
|
|
|
|
bcflag_save=bcflag
|
|
ris = basis16(x)
|
|
bcflag=bcflag_save
|
|
|
|
case(50) !0100
|
|
|
|
ris = 3*basis1(x) - 2*basis3_1(x)*llx
|
|
&+ (basis2_1(x)*llx**2)/2d0
|
|
|
|
case(51) !0101
|
|
|
|
ris = -pi**4/45d0 + basis2_1(x)**2/2d0 + 2*basis3(x)
|
|
&- 2*basis1(x) - 2*basis5(x) + 2*basis3_1(x)*ll1mx
|
|
&- (pi**2*ll1mx**2)/6d0 - ll1mx**4/12d0
|
|
&+ (ll1mx**3*llx)/3d0 - 2*ll1mx*zeta3
|
|
|
|
case(52) !011-1
|
|
|
|
bcflag_save=bcflag
|
|
ris = basis17(x)
|
|
bcflag=bcflag_save
|
|
|
|
case(53) !0110
|
|
|
|
ris = -basis2_1(x)**2/2d0 - basis3_3(x)*llx
|
|
&+ (pi**2*ll1mx*llx)/6d0 - basis2_1(x)*ll1mx*llx
|
|
&- (ll1mx**2*llx**2)/2d0 + llx*zeta3
|
|
|
|
case(54) !0111
|
|
|
|
ris = pi**4/90d0 - basis3(x) + basis3_3(x)*ll1mx
|
|
&- (pi**2*ll1mx**2)/12d0 + (basis2_1(x)*ll1mx**2)/2d0
|
|
&+ (ll1mx**3*llx)/3d0
|
|
|
|
case(55) !1-1-1-1
|
|
|
|
ris = cli4pt5 - basis7(x)
|
|
&+ basis3_5(x)
|
|
&*ll1px - (pi**2*ll1px**2)/12d0 + (basis2_3(x)
|
|
&*ll1px**2)/2d0 +(ll2**2*ll1px**2)/2d0 - (ll2
|
|
&*ll1mx*ll1px**2)/2d0 - (ll2*ll1px**3)/3d0
|
|
&+ (ll1mx*ll1px**3)/3d0
|
|
|
|
case(56) !1-1-10
|
|
|
|
bcflag_save=bcflag
|
|
b18 = basis18(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = -pi**4/480d0 + basis2_2(x)**2/2d0
|
|
&+ b18
|
|
&+ pi**4/480d0 - (pi**2*basis2_2(x))/12d0
|
|
&+ basis2_3(x)*basis2_2(x) - basis2_2(x)**2/2d0
|
|
&- 3*cli4pt5 + basis3(x)
|
|
&+ basis2(x) + basis1(x) + basis15(x)/2d0
|
|
&- basis9(x)/2d0 + basis10(x)/2d0
|
|
&+ 2*basis6(x) - 2*basis11(x)
|
|
&+ 3*basis7(x) - basis13(x)/4d0 + (basis2_2(x)
|
|
&*ll2**2)/2d0 + basis3_4(x)*ll1mx - basis2_2(x)
|
|
&*ll2*ll1mx - 2*basis3_1(x)*ll1px
|
|
&- 2*basis3_8(x)*ll1px - 2*basis3_7(x)
|
|
&*ll1px + (pi**2*ll2*ll1px)/4d0 - (ll2**3
|
|
&*ll1px)/2d0 + (5*pi**2*ll1mx*ll1px)/12d0
|
|
&+ basis2_2(x)*ll1mx*ll1px - ll2*ll1mx**2
|
|
&*ll1px + (ll1mx**3*ll1px)/3d0 - ll1mx**2
|
|
&*llx*ll1px - (5*pi**2*ll1px**2)/12d0
|
|
&+ (basis2_3(x)*ll1px**2)/2d0 - (basis2_2(x)
|
|
&*ll1px**2)/2d0 + (basis2_1(x)*ll1px**2)/2d0
|
|
&+ ll2**2*ll1px**2 + (3*ll2*ll1mx
|
|
&*ll1px**2)/2d0 + 2*ll1mx*llx*ll1px**2
|
|
&- (3*ll2*ll1px**3)/2d0 - (2*ll1mx
|
|
&*ll1px**3)/3d0 - llx*ll1px**3
|
|
&+ (5*ll1px**4)/8d0 - (7*ll1mx*zeta3)/8d0
|
|
&- (5*ll1px*zeta3)/4d0
|
|
&+ 3*cli4pt5 - basis3(x)
|
|
&- basis2(x) - basis1(x) - basis15(x)/2d0
|
|
&+ basis9(x)/2d0 - basis10(x)/2d0
|
|
&- 2*basis6(x) + 2*basis11(x)
|
|
&- 3*basis7(x) + basis13(x)/4d0
|
|
&+ basis3_5(x)*llx + (pi**2*ll2*llx)/12d0
|
|
&- (ll2**3*llx)/6d0 + 2*basis3_1(x)*ll1px
|
|
&+ 2*basis3_8(x)*ll1px + 2*basis3_7(x)
|
|
&*ll1px - (pi**2*ll2*ll1px)/4d0 + (ll2**3
|
|
&*ll1px)/2d0 - (pi**2*ll1mx*ll1px)/4d0
|
|
&+ ll2*ll1mx**2*ll1px - (ll1mx**3
|
|
&*ll1px)/3d0 - (pi**2*llx*ll1px)/6d0
|
|
&+ basis2_3(x)*llx*ll1px + ll2**2*llx
|
|
&*ll1px - ll2*ll1mx*llx*ll1px
|
|
&+ ll1mx**2*llx*ll1px + (5*pi**2*ll1px**2)
|
|
&/12d0 - (basis2_3(x)*ll1px**2)/2d0 + (basis2_2(x)
|
|
&*ll1px**2)/2d0 - (basis2_1(x)*ll1px**2)/2d0
|
|
&-ll2**2
|
|
&*ll1px**2 - (3*ll2*ll1mx*ll1px**2)/2d0
|
|
&- (ll2*llx*ll1px**2)/2d0 - ll1mx*llx
|
|
&*ll1px**2 + (3*ll2*ll1px**3)/2d0 + (ll1mx
|
|
&*ll1px**3)/2d0 + llx*ll1px**3 - (5*ll1px**4)
|
|
&/8d0 - (ll1mx*zeta3)/8d0 - (7*llx*zeta3)/8d0
|
|
&+ (5*ll1px*zeta3)/4d0
|
|
|
|
case(57) !1-1-11
|
|
|
|
ris = -pi**4/288d0 + (pi**2*basis2_3(x))/12d0
|
|
&- basis2_3(x)**2/2d0 + (pi**2*ll2**2)/24d0
|
|
&- (basis2_3(x)*ll2**2)/2d0 - ll2**4/8d0
|
|
&- basis3_5(x)*ll1mx - (pi**2*ll2*ll1mx)/6d0
|
|
&+ basis2_3(x)*ll2*ll1mx + (2*ll2**3
|
|
&*ll1mx)/3d0 - (ll2**2*ll1mx**2)/2d0
|
|
&+ (pi**2*ll1mx*ll1px)/6d0 - basis2_3(x)
|
|
&*ll1mx*ll1px - ll2**2*ll1mx*ll1px
|
|
&+ ll2*ll1mx**2*ll1px + (ll2*ll1mx
|
|
&*ll1px**2)/2d0 - (ll1mx**2*ll1px**2)/2d0
|
|
&+ (7*ll1mx*zeta3)/8d0
|
|
|
|
case(58) !1-10-1
|
|
|
|
bcflag_save=bcflag
|
|
b18 = basis18(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = (11*pi**4)/720d0 - basis2_2(x)**2/2d0
|
|
&- b18
|
|
&- (pi**4/480d0 - (pi**2*basis2_2(x))/12d0
|
|
&+ basis2_3(x)*basis2_2(x) - basis2_2(x)**2/2d0
|
|
&- 3*cli4pt5 + basis3(x)
|
|
&+ basis2(x) + basis1(x) + basis15(x)/2d0
|
|
&- basis9(x)/2d0 + basis10(x)/2d0
|
|
&+ 2*basis6(x) - 2*basis11(x)
|
|
&+ 3*basis7(x) - basis13(x)/4d0 + (basis2_2(x)
|
|
&*ll2**2)/2d0 + basis3_4(x)*ll1mx - basis2_2(x)
|
|
&*ll2*ll1mx - 2*basis3_1(x)*ll1px
|
|
&- 2*basis3_8(x)*ll1px - 2*basis3_7(x)
|
|
&*ll1px + (pi**2*ll2*ll1px)/4d0 - (ll2**3
|
|
&*ll1px)/2d0 + (5*pi**2*ll1mx*ll1px)/12d0
|
|
&+ basis2_2(x)*ll1mx*ll1px - ll2*ll1mx**2
|
|
&*ll1px + (ll1mx**3*ll1px)/3d0 - ll1mx**2
|
|
&*llx*ll1px - (5*pi**2*ll1px**2)/12d0
|
|
&+ (basis2_3(x)*ll1px**2)/2d0 - (basis2_2(x)
|
|
&*ll1px**2)/2d0 + (basis2_1(x)*ll1px**2)/2d0
|
|
&+ ll2**2*ll1px**2 + (3*ll2*ll1mx
|
|
&*ll1px**2)/2d0 + 2*ll1mx*llx*ll1px**2
|
|
&- (3*ll2*ll1px**3)/2d0 - (2*ll1mx
|
|
&*ll1px**3)/3d0 - llx*ll1px**3
|
|
&+ (5*ll1px**4)/8d0 - (7*ll1mx*zeta3)/8d0
|
|
&- (5*ll1px*zeta3)/4d0)
|
|
&+ 2*basis3(x) + (3*basis2(x))/2d0
|
|
&+ basis1(x)/2d0 + basis15(x)/4d0 - basis4(x)
|
|
&- basis9(x) + basis10(x)
|
|
&+ 2*basis6(x) - basis11(x) - basis13(x)/2d0
|
|
&- basis3_6(x)*ll1px + basis3_3(x)*ll1px
|
|
&- basis3_2(x)*ll1px - basis3_1(x)*ll1px
|
|
&- basis3_8(x)*ll1px - 2*basis3_7(x)
|
|
&*ll1px - (pi**2*ll2*ll1px)/12d0 + (ll2**3
|
|
&*ll1px)/6d0 + (pi**2*ll1mx*ll1px)/12d0
|
|
&- (ll2**2*ll1mx*ll1px)/2d0 - (ll2
|
|
&*ll1mx**2*ll1px)/2d0 + (ll1mx**3*ll1px)
|
|
&/6d0 - (ll1mx**2*llx*ll1px)/2d0 - (pi**2
|
|
&*ll1px**2)/8d0 + (basis2_3(x)*ll1px**2)/2d0
|
|
&- (basis2_2(x)*ll1px**2)/2d0
|
|
&+(basis2_1(x)*ll1px**2)/2d0
|
|
&+ (ll2**2*ll1px**2)/4d0 + (3*ll2*ll1mx
|
|
&*ll1px**2)/2d0 + ll1mx*llx*ll1px**2
|
|
&- ll2*ll1px**3 - (ll1mx*ll1px**3)/2d0
|
|
&- (5*llx*ll1px**3)/6d0 + (11*ll1px**4)/24d0
|
|
&+ (ll1mx*zeta3)/4d0 - (3*ll1px*zeta3)/8d0
|
|
|
|
case(59) !1-100
|
|
|
|
ris = pi**4/72d0 + 2*cli4pt5 + basis3(x)
|
|
&+ (3*basis2(x))/2d0 - basis1(x)/2d0 - basis5(x)
|
|
&- basis15(x)/4d0 - 2*basis4(x)
|
|
&- 2*basis6(x) + 2*basis11(x)
|
|
&- 2*basis7(x) - basis13(x)/4d0
|
|
&+ basis14(x)/4d0 - (pi**2*ll1mx**2)/16d0
|
|
&- ll1mx**4/32d0 - basis3_6(x)*llx + basis3_3(x)
|
|
&*llx - basis3_2(x)*llx + basis3_1(x)*llx
|
|
&+ basis3_8(x)*llx - (pi**2*ll2*llx)/12d0
|
|
&+ (ll2**3*llx)/6d0 - (pi**2*ll1mx*llx)/12d0
|
|
&- (ll2**2*ll1mx*llx)/2d0 + (ll2*ll1mx**2
|
|
&*llx)/2d0 - (ll1mx**3*llx)/12d0 - (pi**2*llx**2)
|
|
&/24d0 + (basis2_3(x)*llx**2)/2d0 + (ll2**2
|
|
&*llx**2)/4d0 - (ll2*ll1mx*llx**2)/2d0
|
|
&+ (ll1mx**2*llx**2)/2d0 - (pi**2*ll2*ll1px)
|
|
&/6d0 + (ll2**3*ll1px)/3d0 + (pi**2*ll1mx
|
|
&*ll1px)/24d0 + (ll1mx**3*ll1px)/24d0
|
|
&- (ll1mx**2*llx*ll1px)/4d0 + (13*pi**2
|
|
&*ll1px**2)/48d0 - (ll2**2*ll1px**2)/2d0
|
|
&+ (ll1mx**2*ll1px**2)/16d0 - (ll1mx*llx
|
|
&*ll1px**2)/4d0 + (ll2*ll1px**3)/3d0 + (ll1mx
|
|
&*ll1px**3)/24d0 + (llx*ll1px**3)/4d0
|
|
&- (23*ll1px**4)/96d0 - (3*ll1mx*zeta3)/4d0
|
|
&- (llx*zeta3)/8d0
|
|
|
|
case(60) !1-101
|
|
|
|
bcflag_save=bcflag
|
|
b17= basis17(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
|
|
ris = -pi**4/72d0 + basis2_2(x)*basis2_1(x)
|
|
&- basis2_1(x)**2/2d0
|
|
&-(b17-( -pi**4/288d0
|
|
&- (pi**2*basis2_1(x))/12d0 + basis2_3(x)
|
|
&*basis2_1(x) - basis2_2(x)*basis2_1(x)
|
|
&+ basis2_1(x)**2/2d0
|
|
&- 5*cli4pt5
|
|
&+ basis8(x) - 2*basis3(x) + basis2(x) + basis1(x)
|
|
&- 2*basis12(x) + basis15(x)/2d0
|
|
&+ 3*basis4(x) - basis9(x)/2d0
|
|
&+ basis10(x)/2d0 + 2*basis6(x)
|
|
&- 4*basis11(x) + 4*basis7(x)
|
|
&+ basis13(x)/4d0 + (basis2_1(x)*ll2**2)/2d0
|
|
&- 2*basis3_8(x)*ll1mx + (pi**2*ll2
|
|
&*ll1mx)/12d0 - basis2_1(x)*ll2*ll1mx
|
|
&- (ll2**3*ll1mx)/6d0 + (pi**2*ll1mx**2)/8d0
|
|
&+ (basis2_3(x)*ll1mx**2)/2d0 - (basis2_2(x)
|
|
&*ll1mx**2)/2d0 + (basis2_1(x)*ll1mx**2)/2d0
|
|
&+ (ll2**2*ll1mx**2)/2d0-(2*ll2*ll1mx**3)/3d0
|
|
&+ (7*ll1mx**4)/24d0 - (ll1mx**3*llx)/3d0
|
|
&- basis3_3(x)*ll1px - 2*basis3_1(x)*ll1px
|
|
&+ (pi**2*ll2*ll1px)/3d0-(2*ll2**3*ll1px)/3d0
|
|
&- (3*pi**2*ll1px**2)/8d0 + ll2**2*ll1px**2
|
|
&- (2*ll2*ll1px**3)/3d0 - (llx*ll1px**3)/3d0
|
|
&+ (3*ll1px**4)/8d0 + (7*ll1mx*zeta3)/4d0
|
|
&- (5*ll1px*zeta3)/8d0))
|
|
&+ 4*cli4pt5
|
|
&- 2*basis8(x) + basis3(x) - (3*basis2(x))/2d0
|
|
&- basis1(x)/2d0 + 2*basis5(x) + basis12(x)
|
|
&- basis15(x)/4d0 + 2*basis11(x)
|
|
&- 2*basis7(x) + basis13(x)/4d0
|
|
&- basis14(x)/4d0 + basis3_6(x)*ll1mx
|
|
&- basis3_3(x)*ll1mx + basis3_2(x)*ll1mx
|
|
&- basis3_1(x)
|
|
&*ll1mx + basis3_8(x)*ll1mx - (pi**2*ll2
|
|
&*ll1mx)/12d0 + (ll2**3*ll1mx)/6d0 + (5*pi**2
|
|
&*ll1mx**2)/48d0 - (basis2_3(x)*ll1mx**2)/2d0
|
|
&+ (basis2_2(x)*ll1mx**2)/2d0
|
|
&-(basis2_1(x)*ll1mx**2)/2d0
|
|
&- (ll2**2*ll1mx**2)/4d0 + (ll2*ll1mx**3)/3d0
|
|
&- (3*ll1mx**4)/32d0 - (ll1mx**3*llx)/4d0
|
|
&+ 2*basis3_1(x)*ll1px - (pi**2*ll2*ll1px)/6d0
|
|
&+ (ll2**3*ll1px)/3d0 - (pi**2*ll1mx*ll1px)
|
|
&/24d0 - (ll1mx**3*ll1px)/24d0 + (ll1mx**2
|
|
&*llx*ll1px)/4d0 + (pi**2*ll1px**2)/16d0
|
|
&- (ll2**2*ll1px**2)/2d0 - (ll1mx**2
|
|
&*ll1px**2)/16d0 + (ll1mx*llx*ll1px**2)/4d0
|
|
&+ (ll2*ll1px**3)/3d0 - (ll1mx*ll1px**3)/24d0
|
|
&+ (llx*ll1px**3)/12d0 - (3*ll1px**4)/32d0
|
|
&+ (5*ll1mx*zeta3)/8d0 + (3*ll1px*zeta3)/2d0
|
|
|
|
case(61) !1-11-1
|
|
|
|
ris = (-23*pi**4)/1440d0 - (pi**2*basis2_3(x))/12d0
|
|
&+ basis2_3(x)**2/2d0 - 2*basis8(x)
|
|
&- 2*basis10(x) + 2*basis7(x)
|
|
&- (pi**2*ll2**2)/24d0 + (basis2_3(x)*ll2**2)/2d0
|
|
&+ ll2**4/8d0 - (pi**2*ll2*ll1mx)/12d0
|
|
&- basis2_3(x)*ll2*ll1mx - (ll2**3
|
|
&*ll1mx)/6d0 + 2*basis3_6(x)*ll1px
|
|
&+ (pi**2*ll2*ll1px)/3d0-(2*ll2**3*ll1px)/3d0
|
|
&+ ll2**2*ll1mx*ll1px - (pi**2*ll1px**2)/6d0
|
|
&+ (ll2**2*ll1px**2)/2d0 - ll2*ll1mx
|
|
&*ll1px**2 + (ll1mx*ll1px**3)/3d0
|
|
&- ll1px**4/12d0 + (ll1mx*zeta3)/4d0
|
|
&- 2*ll1px*zeta3
|
|
|
|
case(62) !1-110
|
|
|
|
bcflag_save=bcflag
|
|
b17= basis17(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = -pi**4/72d0 - basis2_2(x)*basis2_1(x)
|
|
&+ basis2_1(x)**2/2d0
|
|
&+ b17-( -pi**4/288d0
|
|
&- (pi**2*basis2_1(x))/12d0 + basis2_3(x)
|
|
&*basis2_1(x) - basis2_2(x)*basis2_1(x) +basis2_1(x)**2/2d0
|
|
&- 5*cli4pt5
|
|
&+ basis8(x) - 2*basis3(x) + basis2(x) + basis1(x)
|
|
&- 2*basis12(x) + basis15(x)/2d0
|
|
&+ 3*basis4(x) - basis9(x)/2d0
|
|
&+ basis10(x)/2d0 + 2*basis6(x)
|
|
&- 4*basis11(x) + 4*basis7(x)
|
|
&+ basis13(x)/4d0 + (basis2_1(x)*ll2**2)/2d0
|
|
&- 2*basis3_8(x)*ll1mx + (pi**2*ll2
|
|
&*ll1mx)/12d0 - basis2_1(x)*ll2*ll1mx
|
|
&- (ll2**3*ll1mx)/6d0 + (pi**2*ll1mx**2)/8d0
|
|
&+ (basis2_3(x)*ll1mx**2)/2d0 - (basis2_2(x)
|
|
&*ll1mx**2)/2d0 + (basis2_1(x)*ll1mx**2)/2d0
|
|
&+ (ll2**2*ll1mx**2)/2d0-(2*ll2*ll1mx**3)/3d0
|
|
&+ (7*ll1mx**4)/24d0 - (ll1mx**3*llx)/3d0
|
|
&- basis3_3(x)*ll1px - 2*basis3_1(x)*ll1px
|
|
&+ (pi**2*ll2*ll1px)/3d0-(2*ll2**3*ll1px)/3d0
|
|
&- (3*pi**2*ll1px**2)/8d0 + ll2**2*ll1px**2
|
|
&- (2*ll2*ll1px**3)/3d0 - (llx*ll1px**3)/3d0
|
|
&+ (3*ll1px**4)/8d0 + (7*ll1mx*zeta3)/4d0
|
|
&- (5*ll1px*zeta3)/8d0) - 6*cli4pt5
|
|
&- 3*basis3(x) + basis2(x)/2d0 + (3*basis1(x))/2d0
|
|
&+ 2*basis5(x) - 3*basis12(x)
|
|
&+ (3*basis15(x))/4d0 + 4*basis4(x)
|
|
&+ 4*basis6(x) - 6*basis11(x)
|
|
&+ 6*basis7(x) + basis13(x)/4d0
|
|
&- basis14(x)/4d0 - 2*basis3_8(x)
|
|
&*ll1mx + (3*pi**2*ll1mx**2)/16d0
|
|
&+ (basis2_3(x)*ll1mx**2)/2d0 - (basis2_2(x)
|
|
&*ll1mx**2)/2d0 + (basis2_1(x)*ll1mx**2)/2d0
|
|
&+ (ll2**2*ll1mx**2)/4d0 - (ll2*ll1mx**3)/2d0
|
|
&+ (31*ll1mx**4)/96d0 + 2*basis3_6(x)*llx
|
|
&+ (pi**2*ll2*llx)/6d0 - (ll2**3*llx)/3d0
|
|
&- (pi**2*ll1mx*llx)/12d0 - basis2_3(x)
|
|
&*ll1mx*llx + (ll2**2*ll1mx*llx)/2d0
|
|
&- (5*ll1mx**3*llx)/12d0 - 2*basis3_1(x)*ll1px
|
|
&+ (pi**2*ll2*ll1px)/2d0 - ll2**3*ll1px
|
|
&- (pi**2*ll1mx*ll1px)/24d0 - (ll1mx**3
|
|
&*ll1px)/24d0 + (ll1mx**2*llx*ll1px)/4d0
|
|
&- (29*pi**2*ll1px**2)/48d0 + (3*ll2**2
|
|
&*ll1px**2)/2d0 - (ll1mx**2*ll1px**2)/16d0
|
|
&+ (ll1mx*llx*ll1px**2)/4d0 - ll2
|
|
&*ll1px**3 - (ll1mx*ll1px**3)/24d0
|
|
&- (7*llx*ll1px**3)/12d0 + (55*ll1px**4)/96d0
|
|
&+ (11*ll1mx*zeta3)/4d0 - (7*llx*zeta3)/4d0
|
|
&- (3*ll1px*zeta3)/2d0
|
|
|
|
case(63) !1-111
|
|
|
|
ris = -3*cli4pt5 + 3*basis8(x)
|
|
&- 2*basis3_6(x)*ll1mx + (pi**2*ll2
|
|
&*ll1mx)/12d0 - (ll2**3*ll1mx)/6d0
|
|
&+ (basis2_3(x)*ll1mx**2)/2d0
|
|
&- (7*ll1mx*zeta3)/8d0
|
|
|
|
case(64) !10-1-1
|
|
|
|
ris = -pi**4/480d0 - basis3(x) + basis9(x)/2d0
|
|
&- basis10(x)/2d0 + basis13(x)/4d0
|
|
&+ basis3_6(x)*ll1px - basis3_3(x)*ll1px
|
|
&- basis3_4(x)*ll1px + basis3_7(x)
|
|
&*ll1px + basis3_5(x)*ll1px + (pi**2*ll2
|
|
&*ll1px)/6d0 - (ll2**3*ll1px)/3d0 + (ll2**2
|
|
&*ll1mx*ll1px)/2d0 - (pi**2*ll1px**2)/6d0
|
|
&- (basis2_1(x)*ll1px**2)/2d0
|
|
&+(ll2**2*ll1px**2)/2d0
|
|
&- ll2*ll1mx*ll1px**2 - (ll1mx*llx
|
|
&*ll1px**2)/2d0 + (ll1mx*ll1px**3)/2d0
|
|
&- (ll1mx*zeta3)/8d0 - (ll1px*zeta3)/8d0
|
|
|
|
case(65) !10-10
|
|
|
|
bcflag_save=bcflag
|
|
b16 = basis16(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = -pi**4/180d0 + b16 - 2*basis3(x)
|
|
&- 2*basis2(x) - 2*basis1(x) + 2*basis5(x)
|
|
&+ 2*basis4(x) + 2*basis6(x) + basis13(x)/2d0
|
|
&- basis14(x)/2d0 + (pi**2*ll1mx**2)/8d0
|
|
&+ ll1mx**4/16d0 + basis3_6(x)*llx - basis3_3(x)
|
|
&*llx - basis3_4(x)*llx + basis3_7(x)
|
|
&*llx + basis3_5(x)*llx + (pi**2*ll2*llx)
|
|
&/6d0 - (ll2**3*llx)/3d0 - (pi**2*ll1mx*llx)/12d0
|
|
&+ (ll2**2*ll1mx*llx)/2d0 - (ll1mx**3
|
|
&*llx)/6d0 + 2*basis3_1(x)*ll1px - (pi**2*ll1mx
|
|
&*ll1px)/12d0 - (ll1mx**3*ll1px)/12d0
|
|
&- (pi**2*llx*ll1px)/12d0 - basis2_1(x)*llx*ll1px
|
|
&+ (ll2**2*llx*ll1px)/2d0 - ll2*ll1mx
|
|
&*llx*ll1px + (ll1mx**2*llx*ll1px)/2d0
|
|
&- ll1mx*llx**2*ll1px - (5*pi**2*ll1px**2)
|
|
&/24d0 - (ll1mx**2*ll1px**2)/8d0 + ll1mx*llx
|
|
&*ll1px**2 - (ll1mx*ll1px**3)/12d0 - (llx
|
|
&*ll1px**3)/6d0 + (7*ll1px**4)/48d0 + (3*ll1mx
|
|
&*zeta3)/2d0 - (3*llx*zeta3)/4d0 + (3*ll1px*zeta3)/2d0
|
|
|
|
case(66) !10-11
|
|
|
|
bcflag_save=bcflag
|
|
b17= basis17(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = pi**4/72d0 - (pi**2*basis2_1(x))/12d0 + basis2_3(x)
|
|
&*basis2_1(x) - basis2_2(x)*basis2_1(x) +basis2_1(x)**2/2d0
|
|
&+ b17-( -pi**4/288d0
|
|
&- (pi**2*basis2_1(x))/12d0 + basis2_3(x)
|
|
&*basis2_1(x) - basis2_2(x)*basis2_1(x) +basis2_1(x)**2/2d0
|
|
&- 5*cli4pt5
|
|
&+ basis8(x) - 2*basis3(x) + basis2(x) + basis1(x)
|
|
&- 2*basis12(x) + basis15(x)/2d0
|
|
&+ 3*basis4(x) - basis9(x)/2d0
|
|
&+ basis10(x)/2d0 + 2*basis6(x)
|
|
&- 4*basis11(x) + 4*basis7(x)
|
|
&+ basis13(x)/4d0 + (basis2_1(x)*ll2**2)/2d0
|
|
&- 2*basis3_8(x)*ll1mx + (pi**2*ll2
|
|
&*ll1mx)/12d0 - basis2_1(x)*ll2*ll1mx
|
|
&- (ll2**3*ll1mx)/6d0 + (pi**2*ll1mx**2)/8d0
|
|
&+ (basis2_3(x)*ll1mx**2)/2d0 - (basis2_2(x)
|
|
&*ll1mx**2)/2d0 + (basis2_1(x)*ll1mx**2)/2d0
|
|
&+ (ll2**2*ll1mx**2)/2d0-(2*ll2*ll1mx**3)/3d0
|
|
&+ (7*ll1mx**4)/24d0 - (ll1mx**3*llx)/3d0
|
|
&- basis3_3(x)*ll1px - 2*basis3_1(x)*ll1px
|
|
&+ (pi**2*ll2*ll1px)/3d0-(2*ll2**3*ll1px)/3d0
|
|
&- (3*pi**2*ll1px**2)/8d0 + ll2**2*ll1px**2
|
|
&- (2*ll2*ll1px**3)/3d0 - (llx*ll1px**3)/3d0
|
|
&+ (3*ll1px**4)/8d0 + (7*ll1mx*zeta3)/4d0
|
|
&- (5*ll1px*zeta3)/8d0)
|
|
&- 4*cli4pt5 + 2*basis8(x)
|
|
& - basis3(x) + (3*basis2(x))/2d0 + basis1(x)/2d0
|
|
&- 2*basis5(x) - basis12(x)
|
|
&+ basis15(x)/4d0 - 2*basis11(x)
|
|
&+ 2*basis7(x) - basis13(x)/4d0
|
|
&+ basis14(x)/4d0 + (basis2_1(x)*ll2**2)/2d0
|
|
&- basis3_6(x)*ll1mx + basis3_3(x)*ll1mx
|
|
&- 2*basis3_8(x)*ll1mx + basis3_4(x)
|
|
&*ll1mx - basis3_7(x)*ll1mx
|
|
&- basis3_5(x)*ll1mx - basis2_1(x)*ll2*ll1mx
|
|
&+ (pi**2*ll1mx**2)/16d0 + (basis2_3(x)
|
|
&*ll1mx**2)/2d0 - (basis2_2(x)*ll1mx**2)/2d0
|
|
&+ (basis2_1(x)*ll1mx**2)/2d0
|
|
&+(ll2**2*ll1mx**2)/4d0
|
|
&- (5*ll2*ll1mx**3)/6d0 + (25*ll1mx**4)/96d0
|
|
&- (ll1mx**3*llx)/4d0 - 2*basis3_1(x)*ll1px
|
|
&+ (pi**2*ll2*ll1px)/6d0 - (ll2**3*ll1px)/3d0
|
|
&+ (pi**2*ll1mx*ll1px)/8d0 + basis2_1(x)*ll1mx
|
|
&*ll1px - (ll2**2*ll1mx*ll1px)/2d0
|
|
&+ ll2*ll1mx**2*ll1px + (ll1mx**3
|
|
&*ll1px)/24d0 + (3*ll1mx**2*llx*ll1px)/4d0
|
|
&- (pi**2*ll1px**2)/16d0 + (ll2**2*ll1px**2)/2d0
|
|
&- (7*ll1mx**2*ll1px**2)/16d0 - (ll1mx*llx
|
|
&*ll1px**2)/4d0 - (ll2*ll1px**3)/3d0
|
|
&+ (ll1mx*ll1px**3)/24d0 - (llx*ll1px**3)
|
|
&/12d0 + (3*ll1px**4)/32d0 + (ll1mx*zeta3)/4d0
|
|
&- (3*ll1px*zeta3)/2d0
|
|
|
|
case(67) !100-1
|
|
|
|
bcflag_save=bcflag
|
|
b16 = basis16(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = pi**4/360d0 - b16 + basis3(x) + basis2(x)
|
|
&+ basis1(x) - basis5(x) - basis4(x)
|
|
&- basis6(x) - basis13(x)/4d0 + basis14(x)
|
|
&/4d0 - (pi**2*ll1mx**2)/16d0 - ll1mx**4/32d0
|
|
&+ (ll1mx**3*llx)/12d0 - basis3_1(x)*ll1px
|
|
&+ (pi**2*ll1mx*ll1px)/24d0 + (ll1mx**3
|
|
&*ll1px)/24d0 - (ll1mx**2*llx*ll1px)/4d0
|
|
&+ (5*pi**2*ll1px**2)/48d0 + (ll1mx**2*ll1px**2)
|
|
&/16d0 - (ll1mx*llx*ll1px**2)/4d0 + (ll1mx
|
|
&*ll1px**3)/24d0 + (llx*ll1px**3)/12d0
|
|
&- (7*ll1px**4)/96d0 - (3*ll1mx*zeta3)/4d0
|
|
&- (3*ll1px*zeta3)/4d0
|
|
|
|
case(68) !1000
|
|
|
|
ris = -basis1(x)+basis3_1(x)*llx
|
|
&-(basis2_1(x)*llx**2)/2d0
|
|
&- (ll1mx*llx**3)/6d0
|
|
|
|
case(69) !1001
|
|
|
|
ris = -basis2_1(x)**2/2d0 - basis3_1(x)*ll1mx
|
|
|
|
case(70) !101-1
|
|
|
|
bcflag_save=bcflag
|
|
b17= basis17(x)
|
|
bcflag=bcflag_save
|
|
|
|
llx = log(x)
|
|
ll1mx = log(1d0-x)
|
|
ll1px = log(1d0+x)
|
|
|
|
ris = -pi**4/144d0 + (pi**2*basis2_1(x))/12d0 - basis2_3(x)
|
|
&*basis2_1(x) + basis2_2(x)*basis2_1(x) -basis2_1(x)**2/2d0
|
|
&+ 4*cli4pt5
|
|
&- (b17-( -pi**4/288d0
|
|
&- (pi**2*basis2_1(x))/12d0 + basis2_3(x)
|
|
&*basis2_1(x) - basis2_2(x)*basis2_1(x) +basis2_1(x)**2/2d0
|
|
&- 5*cli4pt5
|
|
&+ basis8(x) - 2*basis3(x) + basis2(x) + basis1(x)
|
|
&- 2*basis12(x) + basis15(x)/2d0
|
|
&+ 3*basis4(x) - basis9(x)/2d0
|
|
&+ basis10(x)/2d0 + 2*basis6(x)
|
|
&- 4*basis11(x) + 4*basis7(x)
|
|
&+ basis13(x)/4d0 + (basis2_1(x)*ll2**2)/2d0
|
|
&- 2*basis3_8(x)*ll1mx + (pi**2*ll2
|
|
&*ll1mx)/12d0 - basis2_1(x)*ll2*ll1mx
|
|
&- (ll2**3*ll1mx)/6d0 + (pi**2*ll1mx**2)/8d0
|
|
&+ (basis2_3(x)*ll1mx**2)/2d0 - (basis2_2(x)
|
|
&*ll1mx**2)/2d0 + (basis2_1(x)*ll1mx**2)/2d0
|
|
&+ (ll2**2*ll1mx**2)/2d0-(2*ll2*ll1mx**3)/3d0
|
|
&+ (7*ll1mx**4)/24d0 - (ll1mx**3*llx)/3d0
|
|
&- basis3_3(x)*ll1px - 2*basis3_1(x)*ll1px
|
|
&+ (pi**2*ll2*ll1px)/3d0-(2*ll2**3*ll1px)/3d0
|
|
&- (3*pi**2*ll1px**2)/8d0 + ll2**2*ll1px**2
|
|
&- (2*ll2*ll1px**3)/3d0 - (llx*ll1px**3)/3d0
|
|
&+ (3*ll1px**4)/8d0 + (7*ll1mx*zeta3)/4d0
|
|
&- (5*ll1px*zeta3)/8d0))
|
|
&- 2*basis8(x) + basis3(x) - (3*basis2(x))/2d0
|
|
&- basis1(x)/2d0 + 2*basis5(x) + basis12(x)
|
|
&- basis15(x)/4d0 - 2*basis4(x)
|
|
&+ basis9(x) - basis10(x)
|
|
&+ 2*basis11(x) - 2*basis7(x)
|
|
&- basis13(x)/4d0 - basis14(x)/4d0
|
|
&- (basis2_1(x)*ll2**2)/2d0 + 2*basis3_8(x)*ll1mx
|
|
&-(pi**2*ll2*ll1mx)/6d0
|
|
&+basis2_1(x)*ll2*ll1mx
|
|
&+ (ll2**3*ll1mx)/3d0 - (pi**2*ll1mx**2)/16d0
|
|
&- (basis2_3(x)*ll1mx**2)/2d0 + (basis2_2(x)
|
|
&*ll1mx**2)/2d0 - (basis2_1(x)*ll1mx**2)/2d0
|
|
&- (3*ll2**2*ll1mx**2)/4d0 + (5*ll2*ll1mx**3)
|
|
&/6d0 - (25*ll1mx**4)/96d0 + (ll1mx**3*llx)/4d0
|
|
&+ 2*basis3_3(x)*ll1px + 2*basis3_1(x)*ll1px - (pi**2
|
|
&*ll2*ll1px)/6d0 + (ll2**3*ll1px)/3d0
|
|
&- (pi**2*ll1mx*ll1px)/24d0 - (ll1mx**3
|
|
&*ll1px)/24d0 + (ll1mx**2*llx*ll1px)/4d0
|
|
&+ (7*pi**2*ll1px**2)/48d0 - (ll2**2*ll1px**2)/2d0
|
|
&- (ll1mx**2*ll1px**2)/16d0 + (ll1mx*llx
|
|
&*ll1px**2)/4d0 + (ll2*ll1px**3)/3d0 - (ll1mx
|
|
&*ll1px**3)/24d0 + (llx*ll1px**3)/12d0
|
|
&- (17*ll1px**4)/96d0 - (3*ll1mx*zeta3)/4d0
|
|
&- (ll1px*zeta3)/4d0
|
|
|
|
case(71) !1010
|
|
|
|
ris = pi**4/45d0 + basis2_1(x)**2/2d0 - 2*basis3(x)
|
|
&+ 2*basis1(x) + 2*basis5(x) + (pi**2*ll1mx**2)/6d0
|
|
&+ ll1mx**4/12d0 + 2*basis3_3(x)*llx - (pi**2
|
|
&*ll1mx*llx)/3d0 + basis2_1(x)*ll1mx*llx
|
|
&- (ll1mx**3*llx)/3d0 + ll1mx**2*llx**2
|
|
&+ 2*ll1mx*zeta3 - 2*llx*zeta3
|
|
|
|
case(72) !1011
|
|
|
|
ris = -pi**4/30d0 + 3*basis3(x) - 2*basis3_3(x)*ll1mx
|
|
&+ (pi**2*ll1mx**2)/12d0 - (basis2_1(x)*ll1mx**2)/2d0
|
|
&- (ll1mx**3*llx)/2d0 - ll1mx*zeta3
|
|
|
|
case(73) !11-1-1
|
|
|
|
ris = (7*pi**4)/720d0 + basis8(x)
|
|
&+ basis10(x) - basis7(x) + (pi**2*ll2
|
|
&*ll1mx)/12d0 - (ll2**3*ll1mx)/6d0 + (ll2**2
|
|
&*ll1mx**2)/4d0 - basis3_6(x)*ll1px
|
|
&- (pi**2*ll2*ll1px)/6d0 + (ll2**3*ll1px)/3d0
|
|
&- (ll2**2*ll1mx*ll1px)/2d0 + (pi**2
|
|
&*ll1px**2)/12d0 - (ll2**2*ll1px**2)/4d0
|
|
&+ (ll2*ll1mx*ll1px**2)/2d0 - (ll1mx
|
|
&*ll1px**3)/6d0 + ll1px**4/24d0 - (ll1mx*zeta3)
|
|
&/8d0 + ll1px*zeta3
|
|
|
|
case(74) !11-10
|
|
|
|
ris = pi**4/72d0 + cli4pt5 + basis8(x)
|
|
&+ basis3(x) + basis2(x)/2d0 - basis1(x)/2d0
|
|
&- 2*basis5(x) + basis12(x)
|
|
&- basis15(x)/4d0 - 2*basis4(x)
|
|
&- 2*basis6(x) + 2*basis11(x)
|
|
&- 2*basis7(x) - basis13(x)/4d0
|
|
&+ basis14(x)/4d0 + (pi**2*ll2*ll1mx)/12d0
|
|
&- (ll2**3*ll1mx)/6d0 - (5*pi**2*ll1mx**2)/48d0
|
|
&+ (ll2**2*ll1mx**2)/4d0 - (ll2*ll1mx**3)/6d0
|
|
&- ll1mx**4/32d0 - basis3_6(x)*llx - (pi**2
|
|
&*ll2*llx)/12d0 + (ll2**3*llx)/6d0 + (pi**2
|
|
&*ll1mx*llx)/12d0 - (ll2**2*ll1mx*llx)/2d0
|
|
&+ (ll2*ll1mx**2*llx)/2d0 + (ll1mx**3*llx)
|
|
&/12d0 - (pi**2*ll2*ll1px)/6d0+(ll2**3*ll1px)
|
|
&/3d0 + (pi**2*ll1mx*ll1px)/24d0 + (ll1mx**3
|
|
&*ll1px)/24d0 - (ll1mx**2*llx*ll1px)/4d0
|
|
&+ (13*pi**2*ll1px**2)/48d0 - (ll2**2*ll1px**2)/2d0
|
|
&+ (ll1mx**2*ll1px**2)/16d0 - (ll1mx*llx
|
|
&*ll1px**2)/4d0 + (ll2*ll1px**3)/3d0 + (ll1mx
|
|
&*ll1px**3)/24d0 + (llx*ll1px**3)/4d0
|
|
&- (23*ll1px**4)/96d0 - (13*ll1mx*zeta3)/8d0
|
|
&+ (7*llx*zeta3)/8d0
|
|
|
|
case(75) !11-11
|
|
|
|
ris = 3*cli4pt5 - 3*basis8(x)
|
|
&+ basis3_6(x)*ll1mx - (pi**2*ll2*ll1mx)/6d0
|
|
&+ (ll2**3*ll1mx)/3d0 + (pi**2*ll1mx**2)/24d0
|
|
&- (ll2**2*ll1mx**2)/4d0 + (7*ll1mx*zeta3)/4d0
|
|
|
|
case(76) !110-1
|
|
|
|
ris = -pi**4/288d0 + basis4(x)
|
|
&- basis9(x)/2d0 + basis10(x)/2d0
|
|
&+ basis13(x)/4d0 + (pi**2*ll1mx**2)/24d0
|
|
&- basis3_3(x)*ll1px - (pi**2*ll1px**2)/24d0
|
|
&+ ll1px**4/24d0 + (5*ll1mx*zeta3)/8d0
|
|
&+ (7*ll1px*zeta3)/8d0
|
|
|
|
case(77) !1100
|
|
|
|
ris = -pi**4/90d0 + basis3(x) - basis1(x) - basis5(x)
|
|
&- (pi**2*ll1mx**2)/12d0 - ll1mx**4/24d0 - basis3_3(x)
|
|
&*llx + (pi**2*ll1mx*llx)/6d0 + (ll1mx**3
|
|
&*llx)/6d0 - (ll1mx**2*llx**2)/4d0
|
|
&- ll1mx*zeta3 + llx*zeta3
|
|
|
|
case(78) !1101
|
|
|
|
ris = pi**4/30d0 - 3*basis3(x) + basis3_3(x)*ll1mx
|
|
&+ (pi**2*ll1mx**2)/12d0 + 2*ll1mx*zeta3
|
|
|
|
case(79) !111-1
|
|
|
|
ris = -cli4pt5 + basis8(x)
|
|
&+ (pi**2*ll2*ll1mx)/12d0 -(ll2**3*ll1mx)/6d0
|
|
&- (pi**2*ll1mx**2)/24d0 + (ll2**2*ll1mx**2)/4d0
|
|
&- (ll2*ll1mx**3)/6d0 - (7*ll1mx*zeta3)/8d0
|
|
|
|
case(80) !1110
|
|
|
|
ris = -pi**4/90d0 + basis3(x) - (pi**2*ll1mx**2)/12d0
|
|
&- ll1mx*zeta3
|
|
|
|
case(81) !1111
|
|
|
|
ris = ll1mx**4/24d0
|
|
|
|
end select
|
|
|
|
c --- set the imaginary part back to zero if it has been modified to
|
|
c --- get the branch cuts right (and should be zero). Also, set imaginary
|
|
c --- part of result to zero if x is between 0 and 1.
|
|
|
|
if (bcflag.eq.1) then
|
|
x = x - dcmplx(0d0,1d-60)
|
|
xre = dreal(x)
|
|
if (xre.ge.0d0.and.xre.le.1d0) then
|
|
ris = dcmplx(dreal(ris),0d0)
|
|
endif
|
|
endif
|
|
|
|
HPL4else=ris
|
|
return
|
|
end function
|