Himalaya
DSZHiggs.f
Go to the documentation of this file.
1 c
2 c Two-loop O(a_t^2 + at ab + ab^2) corrections to the Higgs masses
3 c and to the minimization conditions of the effective potential.
4 c Written by P. Slavich (e-mail: slavich@mppmu.mpg.de).
5 c Based on A. Dedes, G. Degrassi and P. Slavich, hep-ph/0305127.
6 c
7 c Last update: 17/09/2003: error corrected in F1q, F6q and FAq;
8 c optimization: calls to makederiv reduced to 2
9 c 20/07/2003: routines optimized, bug for mu<0 corrected
10 c
11 c I/O PARAMETERS:
12 c t = m_top^2, b = m_bot^2, A0 = m_A^2, T1 = m_stop1^2, T2 =
13 C m_stop2^2,
14 c B1 = m_sbot1^2, B2 = m_sbot2^2, st = sin(theta_stop),
15 c ct = cos(theta_stop), sb = sin(theta_sbot), cb = cos(theta_sbot),
16 c q = Q^2 (ren. scale), mu = Higgs mixing parameter, tanb = tan(beta
17 C ),
18 c vv = v^2,
19 c Sij = 2-loop corrections to the CP-even Higgs mass matrix elements
20 C ,
21 c Si = 1/vi*dVeff/dvi = 2-loop corrections to the Higgs tadpoles,
22 c DMA = 2-loop corrections to the CP-odd Higgs mass.
23 c
24 c Notice: we assume that the 1-loop part is computed in terms of
25 c running (DRbar) parameters, evaluated at the scale Q. The
26 c parameters in the bottom/sbottom sector should be computed
27 c in term of the "resummed" bottom Yukawa coupling.
28 c
29 c
30 
31  subroutine ddshiggs(t,b,A0,T1,T2,B1,B2,st,ct,sb,cb,q,mu,tanb,vv,
32  $ S11,S12,S22,atat)
33  $ bind(c, name="ddshiggs_")
34 
35  implicit none
36 
37  double precision t,b,A0,T1,T2,B1,B2,st,ct,sb,cb,q,mu,tanb,vv,S11
38  $ ,s12,s22
39  double precision c2t,s2t,c2b,s2b,At,Ab,Xt,Xb,mt,mb,cbe,sbe,ht,hb
40  $ ,k
41  double precision F1t,F2t,F3t,F4t,F1b,F2b,F3b,F4b,F5,F6,Ft,Fb,Gt,Gb
42  $ ,fap
43  integer atat
44  double precision, parameter :: eps_st = 1d-5
45  double precision, parameter :: eps_t1 = 1d-5
46  double precision, parameter :: eps_sb = 1d-8
47  double precision, parameter :: eps_b1 = 1d-5
48  double precision, parameter :: eps_b1t1 = 1d-6
49  double precision, parameter :: eps_b1t2 = 1d-7
50  double precision, parameter :: eps_b2t1 = 1d-8
51  double precision, parameter :: eps_b2t2 = 1d-9
52  double precision, parameter :: pi = 3.1415926535897932d0
53 
54  mt = dsqrt(t)
55  mb = dsqrt(b)
56 
57 c ADDED by ALEX: guards against NANs when sin theta is zero!
58  if (dabs(st).lt.eps_st) then
59  if (st.ge.0.0d0) then
60  st = eps_st
61  else
62  st = -eps_st
63  endif
64  endif
65  ct = sqrt(1.d0-st*st)
66 c end of addition by ALEX
67 
68 c ADDED by ALEX: guards against NANs when T1 == T2
69  if (dabs((t1-t2)/t1).lt.eps_t1) then
70  if (t1.gt.t2) then
71  t1 = t2 / (1d0 - eps_t1)
72  else
73  t1 = t2 / (1d0 + eps_t1)
74  endif
75  endif
76 c end of addition by ALEX
77 
78 c ADDED by ALEX: guards against NANs when sin theta is zero!
79  if (dabs(sb).lt.eps_sb) then
80  if (sb.ge.0.0d0) then
81  sb = eps_sb
82  else
83  sb = -eps_sb
84  endif
85  endif
86  cb = sqrt(1.d0-sb*sb)
87 c end of addition by ALEX
88 
89 c ADDED by ALEX: guards against NANs when B1 == B2
90  if (dabs((b1-b2)/b1).lt.eps_b1) then
91  if (b1.gt.b2) then
92  b1 = b2 / (1d0 - eps_b1)
93  else
94  b1 = b2 / (1d0 + eps_b1)
95  endif
96  endif
97 c end of addition by ALEX
98 
99 c ADDED by ALEX: guards against NANs when B1 == T1
100  if (dabs((b1-t1)/b1).lt.eps_b1t1) then
101  if (b1.gt.t1) then
102  b1 = t1 / (1d0 - eps_b1t1)
103  else
104  b1 = t1 / (1d0 + eps_b1t1)
105  endif
106  endif
107 c end of addition by ALEX
108 
109 c ADDED by ALEX: guards against NANs when B1 == T2
110  if (dabs((b1-t2)/b1).lt.eps_b1t2) then
111  if (b1.gt.t2) then
112  b1 = t2 / (1d0 - eps_b1t2)
113  else
114  b1 = t2 / (1d0 + eps_b1t2)
115  endif
116  endif
117 c end of addition by ALEX
118 
119 c ADDED by ALEX: guards against NANs when B2 == T1
120  if (dabs((b2-t1)/b2).lt.eps_b2t1) then
121  if (b2.gt.t1) then
122  b2 = t1 / (1d0 - eps_b2t1)
123  else
124  b2 = t1 / (1d0 + eps_b2t1)
125  endif
126  endif
127 c end of addition by ALEX
128 
129 c ADDED by ALEX: guards against NANs when B2 == T2
130  if (dabs((b2-t2)/b2).lt.eps_b2t2) then
131  if (b2.gt.t2) then
132  b2 = t2 / (1d0 - eps_b2t2)
133  else
134  b2 = t2 / (1d0 + eps_b2t2)
135  endif
136  endif
137 c end of addition by ALEX
138 
139  s2t = 2d0*ct*st
140  s2b = 2d0*cb*sb
141  c2t = ct**2 - st**2
142  c2b = cb**2 - sb**2
143 
144  xt = (t1-t2)*s2t/2d0/mt
145  xb = (b1-b2)*s2b/2d0/mb
146  at = xt - mu/tanb
147  ab = xb - mu*tanb
148 
149  sbe = dsin(datan(tanb))
150  cbe = dcos(datan(tanb))
151 
152  ht = dsqrt(2d0/vv)*mt/sbe
153  if (atat.eq.1) then
154  hb = 0d0
155  else
156  hb = dsqrt(2d0/vv)*mb/cbe
157  endif
158 
159  k = 3d0/(16d0*pi**2)**2
160 
161  call makefuncs(t,b,a0,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
162  $ f1t,f2t,f3t,f4t,f1b,f2b,f3b,f4b,f5,f6,ft,fb,gt,gb,fap,atat)
163 
164  s11 = .5d0*ht**2*mu**2*s2t**2*f3t
165  $ + 2d0*hb**2*mb**2*f1b + 2d0*hb**2*ab*mb*s2b*f2b
166  $ + .5d0*hb**2*ab**2*s2b**2*f3b
167  $ + 2d0*hb*ht*mb*mu*s2t*f4t + ht*hb*mu*ab*s2t*s2b*f5
168 
169  s12 = ht**2*mu*mt*s2t*f2t + .5d0*ht**2*at*mu*s2t**2*f3t
170  $ +hb**2*mu*mb*s2b*f2b + .5d0*hb**2*ab*mu*s2b**2*f3b
171  $ +ht*hb*mb*at*s2t*f4t + hb*ht*mt*ab*s2b*f4b
172  $ +.5d0*ht*hb*s2t*s2b*(at*ab+mu**2)*f5
173  $ +2d0*ht*hb*mt*mb*f6
174 
175  s22 = .5d0*hb**2*mu**2*s2b**2*f3b
176  $ + 2d0*ht**2*mt**2*f1t + 2d0*ht**2*at*mt*s2t*f2t
177  $ + .5d0*ht**2*at**2*s2t**2*f3t
178  $ + 2d0*ht*hb*mt*mu*s2b*f4b + hb*ht*mu*at*s2b*s2t*f5
179 
180  s11 = k*s11
181  s12 = k*s12
182  s22 = k*s22
183  return
184  end
185 
186 
187 *
188 ***********************************************************************
189 *
190 
191  subroutine ddsodd(t,b,A0,T1,T2,B1,B2,st,ct,sb,cb,q,mu,tanb,vv,
192  $ DMA, atat)
193  $ bind(c, name="ddsodd_")
194 
195  implicit none
196 
197  double precision t,b,A0,T1,T2,B1,B2,st,ct,sb,cb,q,mu,tanb,vv,DMA
198  double precision c2t,s2t,c2b,s2b,At,Ab,Xt,Xb,mt,mb,cbe,sbe,ht,hb
199  $ ,k
200  double precision F1t,F2t,F3t,F4t,F1b,F2b,F3b,F4b,F5,F6,Ft,Fb,Gt,Gb
201  $ ,fap
202  integer atat
203  double precision, parameter :: eps_st = 1d-5
204  double precision, parameter :: eps_t1 = 1d-5
205  double precision, parameter :: eps_sb = 1d-8
206  double precision, parameter :: eps_b1 = 1d-5
207  double precision, parameter :: eps_b1t1 = 1d-6
208  double precision, parameter :: eps_b1t2 = 1d-7
209  double precision, parameter :: eps_b2t1 = 1d-8
210  double precision, parameter :: eps_b2t2 = 1d-9
211  double precision, parameter :: pi = 3.1415926535897932d0
212 
213  mt = dsqrt(t)
214  mb = dsqrt(b)
215 
216 c ADDED by ALEX: guards against NANs when sin theta is zero!
217  if (dabs(st).lt.eps_st) then
218  if (st.ge.0.0d0) then
219  st = eps_st
220  else
221  st = -eps_st
222  endif
223  endif
224  ct = sqrt(1.d0-st*st)
225 c end of addition by ALEX
226 
227 c ADDED by ALEX: guards against NANs when T1 == T2
228  if (dabs((t1-t2)/t1).lt.eps_t1) then
229  if (t1.gt.t2) then
230  t1 = t2 / (1d0 - eps_t1)
231  else
232  t1 = t2 / (1d0 + eps_t1)
233  endif
234  endif
235 c end of addition by ALEX
236 
237 c ADDED by ALEX: guards against NANs when sin theta is zero!
238  if (dabs(sb).lt.eps_sb) then
239  if (sb.ge.0.0d0) then
240  sb = eps_sb
241  else
242  sb = -eps_sb
243  endif
244  endif
245  cb = sqrt(1.d0-sb*sb)
246 c end of addition by ALEX
247 
248 c ADDED by ALEX: guards against NANs when B1 == B2
249  if (dabs((b1-b2)/b1).lt.eps_b1) then
250  if (b1.gt.b2) then
251  b1 = b2 / (1d0 - eps_b1)
252  else
253  b1 = b2 / (1d0 + eps_b1)
254  endif
255  endif
256 c end of addition by ALEX
257 
258 c ADDED by ALEX: guards against NANs when B1 == T1
259  if (dabs((b1-t1)/b1).lt.eps_b1t1) then
260  if (b1.gt.t1) then
261  b1 = t1 / (1d0 - eps_b1t1)
262  else
263  b1 = t1 / (1d0 + eps_b1t1)
264  endif
265  endif
266 c end of addition by ALEX
267 
268 c ADDED by ALEX: guards against NANs when B1 == T2
269  if (dabs((b1-t2)/b1).lt.eps_b1t2) then
270  if (b1.gt.t2) then
271  b1 = t2 / (1d0 - eps_b1t2)
272  else
273  b1 = t2 / (1d0 + eps_b1t2)
274  endif
275  endif
276 c end of addition by ALEX
277 
278 c ADDED by ALEX: guards against NANs when B2 == T1
279  if (dabs((b2-t1)/b2).lt.eps_b2t1) then
280  if (b2.gt.t1) then
281  b2 = t1 / (1d0 - eps_b2t1)
282  else
283  b2 = t1 / (1d0 + eps_b2t1)
284  endif
285  endif
286 c end of addition by ALEX
287 
288 c ADDED by ALEX: guards against NANs when B2 == T2
289  if (dabs((b2-t2)/b2).lt.eps_b2t2) then
290  if (b2.gt.t2) then
291  b2 = t2 / (1d0 - eps_b2t2)
292  else
293  b2 = t2 / (1d0 + eps_b2t2)
294  endif
295  endif
296 c end of addition by ALEX
297 
298  s2t = 2d0*ct*st
299  s2b = 2d0*cb*sb
300  c2t = ct**2 - st**2
301  c2b = cb**2 - sb**2
302 
303  xt = (t1-t2)*s2t/2d0/mt
304  xb = (b1-b2)*s2b/2d0/mb
305  at = xt - mu/tanb
306  ab = xb - mu*tanb
307 
308  sbe = dsin(datan(tanb))
309  cbe = dcos(datan(tanb))
310 
311  ht = dsqrt(2d0/vv)*mt/sbe
312  if (atat.eq.1) then
313  hb = 0d0
314  else
315  hb = dsqrt(2d0/vv)*mb/cbe
316  endif
317 
318  k = 3d0/(16d0*pi**2)**2
319 
320  call makefuncs(t,b,a0,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
321  $ f1t,f2t,f3t,f4t,f1b,f2b,f3b,f4b,f5,f6,ft,fb,gt,gb,fap,atat)
322 
323  dma = -(ht**2*mu*at/(t1-t2)*ft + hb**2*mu*ab/(b1-b2)*fb
324  $ + 2d0*ht*hb*fap)/sbe/cbe
325 
326  dma = k*dma
327 
328  return
329  end
330 
331 
332 *
333 ***********************************************************************
334 *
335 
336  subroutine ddstad(t,b,A0,T1,T2,B1,B2,st,ct,sb,cb,q,mu,tanb,vv,
337  $ S1,S2)
338  $ bind(c, name="ddstad_")
339 
340  implicit none
341 
342  double precision t,b,A0,T1,T2,B1,B2,st,ct,sb,cb,q,mu,tanb,vv
343  double precision c2t,s2t,c2b,s2b,At,Ab,Xt,Xb,mt,mb,cbe,sbe,k
344  double precision F1t,F2t,F3t,F4t,F1b,F2b,F3b,F4b,F5,F6,Ft,Fb,Gt,Gb
345  $ ,fap
346  double precision v1,v2,S1,S2
347  double precision, parameter :: eps_st = 1d-10
348  double precision, parameter :: eps_t1 = 1d-8
349  double precision, parameter :: eps_sb = 1d-10
350  double precision, parameter :: eps_b1 = 1d-8
351  double precision, parameter :: eps_b1t1 = 1d-6
352  double precision, parameter :: eps_b1t2 = 1d-7
353  double precision, parameter :: eps_b2t1 = 1d-8
354  double precision, parameter :: eps_b2t2 = 1d-9
355  double precision, parameter :: pi = 3.1415926535897932d0
356 
357  mt = dsqrt(t)
358  mb = dsqrt(b)
359 
360 c ADDED by ALEX: guards against NANs when sin theta is zero!
361  if (dabs(st).lt.eps_st) then
362  if (st.ge.0.0d0) then
363  st = eps_st
364  else
365  st = -eps_st
366  endif
367  endif
368  ct = sqrt(1.d0-st*st)
369 c end of addition by ALEX
370 
371 c ADDED by ALEX: guards against NANs when T1 == T2
372  if (dabs((t1-t2)/t1).lt.eps_t1) then
373  if (t1.gt.t2) then
374  t1 = t2 / (1d0 - eps_t1)
375  else
376  t1 = t2 / (1d0 + eps_t1)
377  endif
378  endif
379 c end of addition by ALEX
380 
381 c ADDED by ALEX: guards against NANs when sin theta is zero!
382  if (dabs(sb).lt.eps_sb) then
383  if (sb.ge.0.0d0) then
384  sb = eps_sb
385  else
386  sb = -eps_sb
387  endif
388  endif
389  cb = sqrt(1.d0-sb*sb)
390 c end of addition by ALEX
391 
392 c ADDED by ALEX: guards against NANs when B1 == B2
393  if (dabs((b1-b2)/b1).lt.eps_b1) then
394  if (b1.gt.b2) then
395  b1 = b2 / (1d0 - eps_b1)
396  else
397  b1 = b2 / (1d0 + eps_b1)
398  endif
399  endif
400 c end of addition by ALEX
401 
402 c ADDED by ALEX: guards against NANs when B1 == T1
403  if (dabs((b1-t1)/b1).lt.eps_b1t1) then
404  if (b1.gt.t1) then
405  b1 = t1 / (1d0 - eps_b1t1)
406  else
407  b1 = t1 / (1d0 + eps_b1t1)
408  endif
409  endif
410 c end of addition by ALEX
411 
412 c ADDED by ALEX: guards against NANs when B1 == T2
413  if (dabs((b1-t2)/b1).lt.eps_b1t2) then
414  if (b1.gt.t2) then
415  b1 = t2 / (1d0 - eps_b1t2)
416  else
417  b1 = t2 / (1d0 + eps_b1t2)
418  endif
419  endif
420 c end of addition by ALEX
421 
422 c ADDED by ALEX: guards against NANs when B2 == T1
423  if (dabs((b2-t1)/b2).lt.eps_b2t1) then
424  if (b2.gt.t1) then
425  b2 = t1 / (1d0 - eps_b2t1)
426  else
427  b2 = t1 / (1d0 + eps_b2t1)
428  endif
429  endif
430 c end of addition by ALEX
431 
432 c ADDED by ALEX: guards against NANs when B2 == T2
433  if (dabs((b2-t2)/b2).lt.eps_b2t2) then
434  if (b2.gt.t2) then
435  b2 = t2 / (1d0 - eps_b2t2)
436  else
437  b2 = t2 / (1d0 + eps_b2t2)
438  endif
439  endif
440 c end of addition by ALEX
441 
442  s2t = 2d0*ct*st
443  s2b = 2d0*cb*sb
444  c2t = ct**2 - st**2
445  c2b = cb**2 - sb**2
446 
447  xt = (t1-t2)*s2t/2d0/mt
448  xb = (b1-b2)*s2b/2d0/mb
449  at = xt - mu/tanb
450  ab = xb - mu*tanb
451 
452  sbe = dsin(datan(tanb))
453  cbe = dcos(datan(tanb))
454 
455  k = 3d0/(16d0*pi**2)**2
456 
457  call makefuncs(t,b,a0,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
458  $ f1t,f2t,f3t,f4t,f1b,f2b,f3b,f4b,f5,f6,ft,fb,gt,gb,fap, 0)
459 
460  v1 = sqrt(vv)*cbe
461  v2 = sqrt(vv)*sbe
462 
463  s1 = mt*mu/tanb*s2t*ft + mb*ab*s2b*fb + 2d0*mb**2*gb
464  s2 = mb*mu*tanb*s2b*fb + mt*at*s2t*ft + 2d0*mt**2*gt
465 
466  s1 = k*s1/v1**2
467  s2 = k*s2/v2**2
468 
469  return
470  end
471 
472 *
473 ***********************************************************************
474 *
475 
476  subroutine makefuncs(t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,
477  $ q,mu,vv,tanb,F1t,F2t,F3t,F4t,F1b,F2b,F3b,F4b,F5,F6,
478  $ Ft,Fb,Gt,Gb,FAp, atat)
479 
480  implicit none
481 
482  double precision t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
483  $ f1t,f2t,f3t,f4t,f1b,f2b,f3b,f4b,f5,f6,ft,fb,gt,gb,fap
484 
485  double precision D1t,DT1,DT2,Dc2t,DT1T1,DT2T2,Dtt,Dc2tc2t,DT1t
486  $ ,dt2t,dt1t2,dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1
487  $ ,dt2b1,dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b
488  $ ,dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb
489  $ ,dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
490  integer atat
491 
492  common/listderiv/d1t,dt1,dt2,dc2t,dt1t1,dt2t2,
493  $ dtt,dc2tc2t,dt1t,dt2t,dt1t2,
494  $ dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1,dt2b1,
495  $ dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b,
496  $ dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb,
497  $ dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
498 
499  double precision D1b,DB1,DB2,Dc2b,DB1B1,DB2B2,Dbb,Dc2bc2b,DB1b
500  $ ,db2b,db1b2,dbc2b,db1c2b,db2c2b,dtc2b
501 
502  double precision Xt,Xb,At,Ab
503 
504  call makederiv(b,t,a0,b1,b2,t1,t2,s2b,c2b,s2t,c2t,
505  $ q,mu,vv,1d0/tanb, atat)
506 
507  d1b = d1t
508  db1 = dt1
509  db2 = dt2
510  dc2b = dc2t
511  db1b1 = dt1t1
512  db2b2 = dt2t2
513  dbb = dtt
514  dc2bc2b = dc2tc2t
515  db1b = dt1t
516  db2b = dt2t
517  db1b2 = dt1t2
518  dbc2b = dtc2t
519  db1c2b = dt1c2t
520  db2c2b = dt2c2t
521  dtc2b = dbc2t
522 
523  call makederiv(t,b,a0,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
524  & atat)
525 
526  f1t = dtt + dt1t1 + dt2t2 + 2d0*(dt1t + dt2t + dt1t2)
527  $ +(dcptpb + dcptmptt + dcptptb - 2d0*dsptmpttsptptb)
528  $ /4d0/t**2
529 
530  f2t = dt1t1 - dt2t2 + dt1t - dt2t
531  $ -4d0*c2t**2/(t1-t2)*(dtc2t + dt1c2t + dt2c2t)
532  $ -(dcptmptt - dsptmpttsptptb)/s2t**2/t/(t1-t2)
533 
534  f3t = dt1t1 + dt2t2 - 2d0*dt1t2
535  $ - 2d0/(t1-t2)*(dt1-dt2)
536  $ + 16d0*c2t**2/(t1-t2)**2*(c2t**2*dc2tc2t + 2d0*dc2t)
537  $ -8d0*c2t**2/(t1-t2)*(dt1c2t-dt2c2t)
538  $ + 4d0/s2t**4.0d0/(t1-t2)**2*(dcptmptt + dcpbptt + dcpttptb)
539 
540  f4t = dt1b + dt1b1 + dt1b2 - dt2b - dt2b1 - dt2b2
541  $ -4d0*c2t**2/(t1-t2)*(db1c2t + db2c2t + dbc2t)
542  $ -(dcpbptt + dsptmpttspbmptb - dspbmptbspbptt)
543  $ /b/s2t**2/(t1-t2)
544 
545  f1b = dbb + db1b1 + db2b2 + 2d0*(db1b + db2b + db1b2)
546  $ +(dcptpb + dcpbmptb + dcpbptt - 2d0*dspbmptbspbptt)
547  $ /4d0/b**2
548 
549  f2b = db1b1 - db2b2 + db1b - db2b
550  $ -4d0*c2b**2/(b1-b2)*(dbc2b + db1c2b + db2c2b)
551  $ -(dcpbmptb - dspbmptbspbptt)/s2b**2/b/(b1-b2)
552 
553  f3b = db1b1 + db2b2 - 2d0*db1b2
554  $ - 2d0/(b1-b2)*(db1-db2)
555  $ + 16d0*c2b**2/(b1-b2)**2*(c2b**2*dc2bc2b + 2d0*dc2b)
556  $ -8d0*c2b**2/(b1-b2)*(db1c2b-db2c2b)
557  $ + 4d0/s2b**4.0d0/(b1-b2)**2*(dcpbmptb + dcptptb + dcpttptb)
558 
559  f4b = db1t + dt1b1 - dt1b2 - db2t + dt2b1 - dt2b2
560  $ -4d0*c2b**2/(b1-b2)*(dt1c2b + dt2c2b + dtc2b)
561  $ -(dcptptb + dsptmpttspbmptb - dsptmpttsptptb)
562  $ /t/s2b**2/(b1-b2)
563 
564  f5 = dt1b1 - dt1b2 - dt2b1 + dt2b2
565  $ + 16d0*c2t**2*c2b**2/(t1-t2)/(b1-b2)*dc2tc2b
566  $ - 4d0*c2t**2/(t1-t2)*(db1c2t-db2c2t)
567  $ - 4d0*c2b**2/(b1-b2)*(dt1c2b-dt2c2b)
568  $ - 4d0/s2b**2/s2t**2/(t1-t2)/(b1-b2)*
569  $ (dcpttptb-dsptmpttspbmptb + dspbmptbspbptt + dsptmpttsptptb)
570 
571  f6 = dtb + dt1b + dt2b + db1t + db2t
572  $ + dt1b1 + dt1b2 + dt2b1 + dt2b2
573  $ -(dcptpb - dsptmpttspbmptb)/4d0/b/t
574 
575  ft = dt1 - dt2 - 4d0*c2t**2/(t1-t2)*dc2t
576 
577  gt = d1t + dt1 + dt2
578 
579  fb = db1 - db2 - 4d0*c2b**2/(b1-b2)*dc2b
580 
581  gb = d1b + db1 + db2
582 
583  xt = (t1-t2)*s2t/2d0/sqrt(t)
584  xb = (b1-b2)*s2b/2d0/sqrt(b)
585 
586  at = xt - mu/tanb
587  ab = xb - mu*tanb
588 
589  fap = dcptpb/4d0/sqrt(b)/sqrt(t)
590  $ +4d0*(at*ab - mu**2)**2*sqrt(t)*sqrt(b)
591  $ /s2t**2/s2b**2/(t1-t2)**2/(b1-b2)**2*dcpttptb
592  $ +sqrt(t)/sqrt(b)/s2t**2/(t1-t2)**2
593  $ *(at**2*dcpbptt + mu**2/tanb**2*dcptmptt)
594  $ +sqrt(b)/sqrt(t)/s2b**2/(b1-b2)**2
595  $ *(ab**2*dcptptb + mu**2*tanb**2*dcpbmptb)
596  $ -2d0*mu/s2t/s2b/(t1-t2)/(b1-b2)
597  $ *(at*tanb*dspbmptbspbptt + ab/tanb*dsptmpttsptptb
598  $ + mu*dsptmpttspbmptb)
599 
600  return
601  end
602 
603 *
604 ***********************************************************************
605 *
606 
607  subroutine makederiv(t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,
608  $ q,mu,vv,tanb,atat)
609 
610  implicit double precision (t)
611  implicit character (a-s,u-z)
612 
613  integer atat
614  double precision t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
615  double precision ht,hb,mt,mb,Xt,Xb,Yt,Yb,sbe,cbe,mu2,Nc
616  double precision Delt,phi,pLi2
617  external delt,phi,pli2
618 
619  double precision D1t,DT1,DT2,Dc2t,DT1T1,DT2T2,Dtt,Dc2tc2t,DT1t
620  $ ,dt2t,dt1t2,dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1
621  $ ,dt2b1,dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b
622  $ ,dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb
623  $ ,dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
624 
625  common/listderiv/d1t,dt1,dt2,dc2t,dt1t1,dt2t2,
626  $ dtt,dc2tc2t,dt1t,dt2t,dt1t2,
627  $ dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1,dt2b1,
628  $ dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b,
629  $ dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb,
630  $ dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
631 
632  double precision Logt,Logb,Logmu2,LogA0,LogT1,LogT2,LogB1,LogB2,
633  $ phimu2tt1,phimu2tt2,phib1tmu2,phib2tmu2,phit1bmu2,phit2bmu2,
634  $ phia0t1t1,phia0t2t2,phia0t1t2,phia0b1b1,phia0b2b2,
635  $ phia0b1t1,phia0b2t1,phia0b1t2,phia0b2t2,phia0tt,phia0bt,
636  $ deltmu2tt1,deltmu2tt2,deltb1tmu2,deltb2tmu2,
637  $ deltt1bmu2,deltt2bmu2,delta0tt,delta0bt,
638  $ delta0t1t1,delta0t2t2,delta0t1t2,delta0b1b1,delta0b2b2,
639  $ delta0b1t1,delta0b2t1,delta0b1t2,delta0b2t2,
640  $ li2t1t2,li2t1b1,li2t1b2,li2t2b1,li2t2b2,li2bt
641 
642  nc = 3d0
643 
644  mt = dsqrt(t)
645  mb = dsqrt(b)
646 
647  sbe = dsin(datan(tanb))
648  cbe = dcos(datan(tanb))
649 
650  ht = dsqrt(2d0/vv)*mt/sbe
651  if (atat.eq.1) then
652  hb = 0d0
653  else
654  hb = dsqrt(2d0/vv)*mb/cbe
655  endif
656 
657  xt = (t1-t2)*s2t/2d0/mt
658  xb = (b1-b2)*s2b/2d0/mb
659  yt = xt - mu/sbe/cbe
660  yb = xb - mu/sbe/cbe
661 
662  mu2 = mu**2
663 
664  logt = log(t/q)
665  logb = log(b/q)
666  logmu2 = log(mu2/q)
667  loga0 = log(a0/q)
668  logt1 = log(t1/q)
669  logt2 = log(t2/q)
670  logb1 = log(b1/q)
671  logb2 = log(b2/q)
672  phimu2tt1 = phi(mu2,t,t1)
673  phimu2tt2 = phi(mu2,t,t2)
674  phib1tmu2 = phi(b1,t,mu2)
675  phib2tmu2 = phi(b2,t,mu2)
676  phit1bmu2 = phi(t1,b,mu2)
677  phit2bmu2 = phi(t2,b,mu2)
678  phia0t1t1 = phi(a0,t1,t1)
679  phia0t1t2 = phi(a0,t1,t2)
680  phia0t2t2 = phi(a0,t2,t2)
681  phia0b1b1 = phi(a0,b1,b1)
682  phia0b2b2 = phi(a0,b2,b2)
683  phia0b1t1 = phi(a0,b1,t1)
684  phia0b1t2 = phi(a0,b1,t2)
685  phia0b2t1 = phi(a0,b2,t1)
686  phia0b2t2 = phi(a0,b2,t2)
687  phia0tt = phi(a0,t,t)
688  phia0bt = phi(a0,b,t)
689  deltmu2tt1 = delt(mu2,t,t1)
690  deltmu2tt2 = delt(mu2,t,t2)
691  deltb1tmu2 = delt(b1,t,mu2)
692  deltb2tmu2 = delt(b2,t,mu2)
693  deltt1bmu2 = delt(t1,b,mu2)
694  deltt2bmu2 = delt(t2,b,mu2)
695  delta0t1t1 = delt(a0,t1,t1)
696  delta0t1t2 = delt(a0,t1,t2)
697  delta0t2t2 = delt(a0,t2,t2)
698  delta0b1b1 = delt(a0,b1,b1)
699  delta0b2b2 = delt(a0,b2,b2)
700  delta0b1t1 = delt(a0,b1,t1)
701  delta0b1t2 = delt(a0,b1,t2)
702  delta0b2t1 = delt(a0,b2,t1)
703  delta0b2t2 = delt(a0,b2,t2)
704  delta0tt = delt(a0,t,t)
705  delta0bt = delt(a0,b,t)
706  li2t1t2 = pli2(1d0-t1/t2)
707  li2t1b1 = pli2(1d0-t1/b1)
708  li2t2b1 = pli2(1d0-t2/b1)
709  li2t1b2 = pli2(1d0-t1/b2)
710  li2t2b2 = pli2(1d0-t2/b2)
711  li2bt = pli2(1d0-b/t)
712 
713  tmp1 = 2 - loga0 - logb + 2*logt
714  tmp2 = 2 - logb1 - logmu2 + 2*logt
715  tmp3 = 2 - logb2 - logmu2 + 2*logt
716  tmp4 = 2 - logb - logmu2 + 2*logt1
717  tmp5 = 2 - logb - logmu2 + 2*logt2
718  tmp6 = 0.25d0*hb**2/c2t - 0.25d0*ht**2/c2t
719  tmp7 = -(0.25d0*hb**2/c2t) + 0.25d0*ht**2/c2t
720  tmp8 = c2t**2 - 0.5d0*((-1 + nc)*s2t**2)
721  tmp9 = cbe**2*ht**2 + hb**2*sbe**2
722  tmp10 = cbe**2*hb**2 + ht**2*sbe**2
723  tmp11 = -(0.5d0*(cbe**2*ht**2*mb*mt*s2b*s2t)) -
724  - 0.5d0*(hb**2*mb*mt*s2b*s2t*sbe**2)
725  tmp12 = 0.5d0*(cbe**2*ht**2*mb*mt*s2b*s2t) +
726  - 0.5d0*(hb**2*mb*mt*s2b*s2t*sbe**2)
727  tmp13 = -(0.5d0*(cbe**2*hb**2*mb*mt*s2b*s2t)) -
728  - 0.5d0*(ht**2*mb*mt*s2b*s2t*sbe**2)
729  tmp14 = 0.5d0*(cbe**2*hb**2*mb*mt*s2b*s2t) +
730  - 0.5d0*(ht**2*mb*mt*s2b*s2t*sbe**2)
731  tmp15 = 2/t**2 - (2*(-1 + logt))/t**2
732  tmp16 = 2/t**2 - (2*logt)/t**2
733  tmp17 = 2/t1**2 - (2*logt1)/t1**2
734  tmp18 = 2/t2**2 - (2*logt2)/t2**2
735  tmp19 = -(0.0625d0*
736  - (b1*(-1 + logb1)*(-1 + logt1)*t1)/(c2b*c2t)) +
737  - 0.0625d0*(b2*(-1 + logb2)*(-1 + logt1)*t1)/(c2b*c2t) +
738  - 0.0625d0*(b1*(-1 + logb1)*(-1 + logt2)*t2)/(c2b*c2t) -
739  - 0.0625d0*(b2*(-1 + logb2)*(-1 + logt2)*t2)/(c2b*c2t)
740  tmp20 = 0.25d0*((1 + c2b)*(1 + c2t)) +
741  - 0.25d0*(mb*s2b*s2t)/mt - 0.25d0*((1 + c2b)*s2t*xb)/mt
742  tmp21 = 0.0625d0*b/(c2b*c2t) + 0.125d0*(mb*mt)/(s2b*s2t) +
743  - 0.0625d0*t/(c2b*c2t) - 0.125d0*(mb*xb)/(c2t*s2b) +
744  - 0.125d0*(mt*xb)/(c2b*s2t) - 0.0625d0*xb**2/(c2b*c2t)
745  tmp22 = -(0.0625d0*b/(c2b*c2t)) -
746  - 0.125d0*(mb*mt)/(s2b*s2t) - 0.0625d0*t/(c2b*c2t) +
747  - 0.125d0*(mb*xb)/(c2t*s2b) - 0.125d0*(mt*xb)/(c2b*s2t) +
748  - 0.0625d0*xb**2/(c2b*c2t)
749  tmp23 = 0.25d0*xb/c2b - 0.25d0*xt/c2b
750  tmp24 = -(0.25d0*xb/c2b) + 0.25d0*xt/c2b
751  tmp25 = 0.125d0*xb/c2t**3.0d0 - 0.125d0*xt/c2t**3.0d0
752  tmp26 = -(0.125d0*xb/c2t**3.0d0) + 0.125d0*xt/c2t**3.0d0
753  tmp27 = 0.25d0*xb/c2t - 0.25d0*xt/c2t
754  tmp28 = -(0.25d0*xb/c2t) + 0.25d0*xt/c2t
755  tmp29 = 0.25d0*((1 + c2b)*(1 + c2t)) +
756  - 0.25d0*(mb*s2b*s2t)/mt + 0.25d0*((1 + c2b)*s2t*xt)/mt
757  tmp30 = (-2*mt*xt)/s2t - xt**2
758  tmp31 = (2*mt*xt)/s2t - xt**2
759  tmp32 = 0.0625d0*b/(c2b*c2t) + 0.125d0*(mb*mt)/(s2b*s2t) +
760  - 0.0625d0*t/(c2b*c2t) + 0.125d0*(mb*xt)/(c2t*s2b) -
761  - 0.125d0*(mt*xt)/(c2b*s2t) - 0.0625d0*xt**2/(c2b*c2t)
762  tmp33 = -(0.0625d0*b/(c2b*c2t)) -
763  - 0.125d0*(mb*mt)/(s2b*s2t) - 0.0625d0*t/(c2b*c2t) -
764  - 0.125d0*(mb*xt)/(c2t*s2b) + 0.125d0*(mt*xt)/(c2b*s2t) +
765  - 0.0625d0*xt**2/(c2b*c2t)
766  tmp34 = 4*t - 4*mt*s2t*xt + s2t**2*xt**2
767  tmp35 = 4*t + 4*mt*s2t*xt + s2t**2*xt**2
768  tmp36 = 0.25d0*((1 + c2b)*(1 + c2t)) +
769  - 0.25d0*(mb*s2b*s2t)/mt - 0.25d0*((1 + c2b)*s2t*yb)/mt
770  tmp37 = 0.0625d0*b/(c2b*c2t) + 0.125d0*(mb*mt)/(s2b*s2t) +
771  - 0.0625d0*t/(c2b*c2t) - 0.125d0*(mb*yb)/(c2t*s2b) +
772  - 0.125d0*(mt*yb)/(c2b*s2t) - 0.0625d0*yb**2/(c2b*c2t)
773  tmp38 = -(0.0625d0*b/(c2b*c2t)) -
774  - 0.125d0*(mb*mt)/(s2b*s2t) - 0.0625d0*t/(c2b*c2t) +
775  - 0.125d0*(mb*yb)/(c2t*s2b) - 0.125d0*(mt*yb)/(c2b*s2t) +
776  - 0.0625d0*yb**2/(c2b*c2t)
777  tmp39 = 0.25d0*yb/c2b - 0.25d0*yt/c2b
778  tmp40 = -(0.25d0*yb/c2b) + 0.25d0*yt/c2b
779  tmp41 = 0.125d0*yb/c2t**3.0d0 - 0.125d0*yt/c2t**3.0d0
780  tmp42 = -(0.125d0*yb/c2t**3.0d0) + 0.125d0*yt/c2t**3.0d0
781  tmp43 = 0.25d0*yb/c2t - 0.25d0*yt/c2t
782  tmp44 = -(0.25d0*yb/c2t) + 0.25d0*yt/c2t
783  tmp45 = 0.25d0*((1 + c2b)*(1 + c2t)) +
784  - 0.25d0*(mb*s2b*s2t)/mt + 0.25d0*((1 + c2b)*s2t*yt)/mt
785  tmp46 = (-2*mt*yt)/s2t - yt**2
786  tmp47 = (2*mt*yt)/s2t - yt**2
787  tmp48 = 0.0625d0*b/(c2b*c2t) + 0.125d0*(mb*mt)/(s2b*s2t) +
788  - 0.0625d0*t/(c2b*c2t) + 0.125d0*(mb*yt)/(c2t*s2b) -
789  - 0.125d0*(mt*yt)/(c2b*s2t) - 0.0625d0*yt**2/(c2b*c2t)
790  tmp49 = -(0.0625d0*b/(c2b*c2t)) -
791  - 0.125d0*(mb*mt)/(s2b*s2t) - 0.0625d0*t/(c2b*c2t) -
792  - 0.125d0*(mb*yt)/(c2t*s2b) + 0.125d0*(mt*yt)/(c2b*s2t) +
793  - 0.0625d0*yt**2/(c2b*c2t)
794  tmp50 = 4*t - 4*mt*s2t*yt + s2t**2*yt**2
795  tmp51 = 4*t + 4*mt*s2t*yt + s2t**2*yt**2
796  tmp52 = 0.0625d0*(1 - c2b)/c2t**3.0d0 - 0.0625d0*(1 + c2b)/c2t**3
797  $ .0d0
798  tmp53 = -(0.0625d0*(1 - c2b)/c2t**3.0d0)
799  $ + 0.0625d0*(1 + c2b)/c2t**3.0d0
800  tmp54 = 0.125d0*(1 - c2b)/c2t - 0.125d0*(1 + c2b)/c2t
801  tmp55 = -(0.125d0*(1 - c2b)/c2t) + 0.125d0*(1 + c2b)/c2t
802  tmp56 = 0.25d0*((1 + c2b)*(1 - c2t))
803  $ + 0.25d0*((1 - c2b)*(1 + c2t))
804  tmp57 = 0.125d0*(1 - c2t)/c2b - 0.125d0*(1 + c2t)/c2b
805  tmp58 = -(0.125d0*(1 - c2t)/c2b) + 0.125d0*(1 + c2t)/c2b
806  tmp59 = 0.25d0*((1 - c2b)*(1 - c2t))
807  $ + 0.25d0*((1 + c2b)*(1 + c2t))
808  tmp60 = 0.5d0*((1 + c2b)*hb**2) + 0.5d0*((1 - c2b)*ht**2)
809  tmp61 = 0.5d0*((1 - c2b)*hb**2) + 0.5d0*((1 + c2b)*ht**2)
810  tmp62 = 0.5d0*((1 + c2t)*hb**2) + 0.5d0*((1 - c2t)*ht**2)
811  tmp63 = 0.5d0*((1 - c2t)*hb**2) + 0.5d0*((1 + c2t)*ht**2)
812  tmp64 = (a0 - b)/b + loga0 - logb - t/b
813  tmp65 = (-loga0 + logt)*(a0 - t) + (-loga0 + logt)*t
814  tmp66 = (a0 - b)*(-loga0 + logb) + (-loga0 - logb + 2*logt)*t
815  tmp67 = (-logb1 + logmu2)*(b1 - mu2) +
816  - (-logb1 - logmu2 + 2*logt)*t
817  tmp68 = (-logb2 + logmu2)*(b2 - mu2) +
818  - (-logb2 - logmu2 + 2*logt)*t
819  tmp69 = b*(-loga0 + 2*logb - logt) + (loga0 - logt)*(-a0 + t)
820  tmp70 = (-loga0 + logt)*t + (loga0 - logt)*(-a0 + t)
821  tmp71 = b1*(2*logb1 - logmu2 - logt) +
822  - (logmu2 - logt)*(-mu2 + t)
823  tmp72 = b2*(2*logb2 - logmu2 - logt) +
824  - (logmu2 - logt)*(-mu2 + t)
825  tmp73 = logmu2 - logt - b1/t - (-mu2 + t)/t
826  tmp74 = logmu2 - logt - b2/t - (-mu2 + t)/t
827  tmp75 = 2*b1*logb1 - 2*b2*logb2 -
828  - 0.5d0*(deltb1tmu2*phib1tmu2)/mu2 +
829  - 0.5d0*(deltb2tmu2*phib2tmu2)/mu2 +
830  - 0.5d0*(logmu2*logt*(b1 - mu2 - t)) -
831  - 0.5d0*(logmu2*logt*(b2 - mu2 - t)) +
832  - 0.5d0*(logb1*logt*(-b1 + mu2 - t)) -
833  - 0.5d0*(logb2*logt*(-b2 + mu2 - t)) +
834  - 0.5d0*(logb1*logmu2*(-b1 - mu2 + t)) -
835  - 0.5d0*(logb2*logmu2*(-b2 - mu2 + t)) - 2.5d0*(b1 + mu2 + t)
836  $ +2.5d0*(b2 + mu2 + t)
837  tmp76 = -5*b + 4*b*logb + logt**2*(b - t) - 5*t -
838  - 2*li2bt*(-b + t) + logt*(-2*b*logb + 4*t)
839  tmp77 = -6 + 4*logt + (2 - 2*logt)*logt + (4*t - 2*logt*t)/t
840  tmp78 = -logb + logmu2 - (b - mu2)/b - t1/b
841  tmp79 = 2*(-1 + logt1)*t1 + 2*(-1 + logt1)**2*t1
842  tmp80 = (-loga0 + logt1)*(a0 - t1) + (-loga0 + logt1)*t1
843  tmp81 = (a0 - b1)*(-loga0 + logb1) +
844  - (-loga0 - logb1 + 2*logt1)*t1
845  tmp82 = (a0 - b2)*(-loga0 + logb2) +
846  - (-loga0 - logb2 + 2*logt1)*t1
847  tmp83 = (-logb + logmu2)*(b - mu2) +
848  - (-logb - logmu2 + 2*logt1)*t1
849  tmp84 = (logmu2 - logt)*(-mu2 + t) +
850  - (-logmu2 - logt + 2*logt1)*t1
851  tmp85 = b1*(-loga0 + 2*logb1 - logt1) +
852  - (loga0 - logt1)*(-a0 + t1)
853  tmp86 = b2*(-loga0 + 2*logb2 - logt1) +
854  - (loga0 - logt1)*(-a0 + t1)
855  tmp87 = (-loga0 + logt1)*t1 + (loga0 - logt1)*(-a0 + t1)
856  tmp88 = 2*a0*loga0 + 2*b1*logb1 + 2*logt1*t1 +
857  - 0.5d0*(logb1*logt1*(a0 - b1 - t1)) +
858  - 0.5d0*(loga0*logt1*(-a0 + b1 - t1)) -
859  - 0.5d0*(delta0b1t1*phia0b1t1)/t1 +
860  - 0.5d0*(loga0*logb1*(-a0 - b1 + t1)) - 2.5d0*(a0 + b1 + t1)
861  tmp89 = 2*a0*loga0 + 2*b2*logb2 + 2*logt1*t1 +
862  - 0.5d0*(logb2*logt1*(a0 - b2 - t1)) +
863  - 0.5d0*(loga0*logt1*(-a0 + b2 - t1)) -
864  - 0.5d0*(delta0b2t1*phia0b2t1)/t1 +
865  - 0.5d0*(loga0*logb2*(-a0 - b2 + t1)) - 2.5d0*(a0 + b2 + t1)
866  tmp90 = b*(2*logb - logmu2 - logt1) +
867  - (logmu2 - logt1)*(-mu2 + t1)
868  tmp91 = (-logmu2 + 2*logt - logt1)*t +
869  - (logmu2 - logt1)*(-mu2 + t1)
870  tmp92 = 2*b*logb + 2*logmu2*mu2 + 2*logt1*t1 -
871  - 0.5d0*(deltt1bmu2*phit1bmu2)/mu2 +
872  - 0.5d0*(logmu2*logt1*(b - mu2 - t1)) +
873  - 0.5d0*(logb*logt1*(-b + mu2 - t1)) +
874  - 0.5d0*(logb*logmu2*(-b - mu2 + t1)) - 2.5d0*(b + mu2 + t1)
875  tmp93 = 2*a0*loga0 - a0*loga0*logt1 + 4*logt1*t1 +
876  - 0.5d0*(logt1**2*(a0 - 2*t1)) -
877  - 0.5d0*(delta0t1t1*phia0t1t1)/t1 - 2.5d0*(a0 + 2*t1)
878  tmp94 = -10*t1 + 4*logt1*t1 + logt1*(4*t1 - 2*logt1*t1)
879  tmp95 = -6 + 4*logt1 + (2 - 2*logt1)*logt1 +
880  - (4*t1 - 2*logt1*t1)/t1
881  tmp96 = (-loga0 + 2*logt1 - logt2)*t1 +
882  - (-loga0 + logt2)*(a0 - t2)
883  tmp97 = -logb + logmu2 - (b - mu2)/b - t2/b
884  tmp98 = 2*(-1 + logt2)*t2 + 2*(-1 + logt2)**2*t2
885  tmp99 = (-loga0 + logt2)*(a0 - t2) + (-loga0 + logt2)*t2
886  tmp100 = (a0 - b1)*(-loga0 + logb1) +
887  - (-loga0 - logb1 + 2*logt2)*t2
888  tmp101 = (a0 - b2)*(-loga0 + logb2) +
889  - (-loga0 - logb2 + 2*logt2)*t2
890  tmp102 = (-logb + logmu2)*(b - mu2) +
891  - (-logb - logmu2 + 2*logt2)*t2
892  tmp103 = (logmu2 - logt)*(-mu2 + t) +
893  - (-logmu2 - logt + 2*logt2)*t2
894  tmp104 = (loga0 - logt1)*(-a0 + t1) +
895  - (-loga0 - logt1 + 2*logt2)*t2
896  tmp105 = b1*(-loga0 + 2*logb1 - logt2) +
897  - (loga0 - logt2)*(-a0 + t2)
898  tmp106 = b2*(-loga0 + 2*logb2 - logt2) +
899  - (loga0 - logt2)*(-a0 + t2)
900  tmp107 = (-loga0 + logt2)*t2 + (loga0 - logt2)*(-a0 + t2)
901  tmp108 = 2*a0*loga0 + 2*b1*logb1 + 2*logt2*t2 +
902  - 0.5d0*(logb1*logt2*(a0 - b1 - t2)) +
903  - 0.5d0*(loga0*logt2*(-a0 + b1 - t2)) -
904  - 0.5d0*(delta0b1t2*phia0b1t2)/t2 +
905  - 0.5d0*(loga0*logb1*(-a0 - b1 + t2)) - 2.5d0*(a0 + b1 + t2)
906  tmp109 = 2*a0*loga0 + 2*b2*logb2 + 2*logt2*t2 +
907  - 0.5d0*(logb2*logt2*(a0 - b2 - t2)) +
908  - 0.5d0*(loga0*logt2*(-a0 + b2 - t2)) -
909  - 0.5d0*(delta0b2t2*phia0b2t2)/t2 +
910  - 0.5d0*(loga0*logb2*(-a0 - b2 + t2)) - 2.5d0*(a0 + b2 + t2)
911  tmp110 = b*(2*logb - logmu2 - logt2) +
912  - (logmu2 - logt2)*(-mu2 + t2)
913  tmp111 = (-logmu2 + 2*logt - logt2)*t +
914  - (logmu2 - logt2)*(-mu2 + t2)
915  tmp112 = 2*b*logb + 2*logmu2*mu2 + 2*logt2*t2 -
916  - 0.5d0*(deltt2bmu2*phit2bmu2)/mu2 +
917  - 0.5d0*(logmu2*logt2*(b - mu2 - t2)) +
918  - 0.5d0*(logb*logt2*(-b + mu2 - t2)) +
919  - 0.5d0*(logb*logmu2*(-b - mu2 + t2)) - 2.5d0*(b + mu2 + t2)
920  tmp113 = 2*logt1*t1 - 2*logt2*t2 -
921  - 0.5d0*(deltt1bmu2*phit1bmu2)/mu2 +
922  - 0.5d0*(deltt2bmu2*phit2bmu2)/mu2 +
923  - 0.5d0*(logmu2*logt1*(b - mu2 - t1)) +
924  - 0.5d0*(logb*logt1*(-b + mu2 - t1)) +
925  - 0.5d0*(logb*logmu2*(-b - mu2 + t1)) - 2.5d0*(b + mu2 + t1) -
926  - 0.5d0*(logmu2*logt2*(b - mu2 - t2)) -
927  - 0.5d0*(logb*logt2*(-b + mu2 - t2)) -
928  - 0.5d0*(logb*logmu2*(-b - mu2 + t2)) + 2.5d0*(b + mu2 + t2)
929  tmp114 = 2*a0*loga0 - a0*loga0*logt2 + 4*logt2*t2 +
930  - 0.5d0*(logt2**2*(a0 - 2*t2)) -
931  - 0.5d0*(delta0t2t2*phia0t2t2)/t2 - 2.5d0*(a0 + 2*t2)
932  tmp115 = -10*t2 + 4*logt2*t2 + logt2*(4*t2 - 2*logt2*t2)
933  tmp116 = -6 + 4*logt2 + (2 - 2*logt2)*logt2 +
934  - (4*t2 - 2*logt2*t2)/t2
935  tmp117 = 0.25d0*((1 - c2b)*(1 + c2t)) -
936  - 0.25d0*(mb*s2b*s2t)/mt - 0.25d0*((1 - c2b)*s2t*xb)/mt
937  tmp118 = 0.25d0*((1 - c2b)*(1 - c2t)) +
938  - 0.25d0*(mb*s2b*s2t)/mt + 0.25d0*((1 - c2b)*s2t*xb)/mt
939  tmp119 = 0.25d0*((1 + c2b)*(1 - c2t)) -
940  - 0.25d0*(mb*s2b*s2t)/mt + 0.25d0*((1 + c2b)*s2t*xb)/mt
941  tmp120 = 0.25d0*(b*(1 + c2b)*(1 - c2t)) -
942  - 0.5d0*(mb*mt*s2b*s2t) + 0.25d0*((1 - c2b)*(1 + c2t)*t) +
943  - 0.5d0*((1 - c2t)*mb*s2b*xb) - 0.5d0*((1 - c2b)*mt*s2t*xb) +
944  - 0.25d0*((1 - c2b)*(1 - c2t)*xb**2)
945  tmp121 = 0.25d0*(b*(1 - c2b)*(1 - c2t)) +
946  - 0.5d0*(mb*mt*s2b*s2t) + 0.25d0*((1 + c2b)*(1 + c2t)*t) -
947  - 0.5d0*((1 - c2t)*mb*s2b*xb) - 0.5d0*((1 + c2b)*mt*s2t*xb) +
948  - 0.25d0*((1 + c2b)*(1 - c2t)*xb**2)
949  tmp122 = -(0.125d0*(b*(1 + c2b))/c2t) +
950  - 0.25d0*(mb*mt*s2b)/s2t + 0.125d0*((1 - c2b)*t)/c2t -
951  - 0.25d0*(mb*s2b*xb)/c2t + 0.25d0*((1 - c2b)*mt*xb)/s2t -
952  - 0.125d0*((1 - c2b)*xb**2)/c2t
953  tmp123 = 0.125d0*(b*(1 + c2b))/c2t -
954  - 0.25d0*(mb*mt*s2b)/s2t - 0.125d0*((1 - c2b)*t)/c2t +
955  - 0.25d0*(mb*s2b*xb)/c2t - 0.25d0*((1 - c2b)*mt*xb)/s2t +
956  - 0.125d0*((1 - c2b)*xb**2)/c2t
957  tmp124 = -(0.125d0*(b*(1 - c2b))/c2t) -
958  - 0.25d0*(mb*mt*s2b)/s2t + 0.125d0*((1 + c2b)*t)/c2t +
959  - 0.25d0*(mb*s2b*xb)/c2t + 0.25d0*((1 + c2b)*mt*xb)/s2t -
960  - 0.125d0*((1 + c2b)*xb**2)/c2t
961  tmp125 = 0.125d0*(b*(1 - c2b))/c2t +
962  - 0.25d0*(mb*mt*s2b)/s2t - 0.125d0*((1 + c2b)*t)/c2t -
963  - 0.25d0*(mb*s2b*xb)/c2t - 0.25d0*((1 + c2b)*mt*xb)/s2t +
964  - 0.125d0*((1 + c2b)*xb**2)/c2t
965  tmp126 = 0.25d0*(b*(1 + c2b)*(1 + c2t)) +
966  - 0.5d0*(mb*mt*s2b*s2t) + 0.25d0*((1 - c2b)*(1 - c2t)*t) +
967  - 0.5d0*((1 + c2t)*mb*s2b*xb) + 0.5d0*((1 - c2b)*mt*s2t*xb) +
968  - 0.25d0*((1 - c2b)*(1 + c2t)*xb**2)
969  tmp127 = 0.25d0*(b*(1 - c2b)*(1 + c2t)) -
970  - 0.5d0*(mb*mt*s2b*s2t) + 0.25d0*((1 + c2b)*(1 - c2t)*t) -
971  - 0.5d0*((1 + c2t)*mb*s2b*xb) + 0.5d0*((1 + c2b)*mt*s2t*xb) +
972  - 0.25d0*((1 + c2b)*(1 + c2t)*xb**2)
973  tmp128 = 0.5d0*((1 + c2b)*xb) + 0.5d0*((1 - c2b)*xt)
974  tmp129 = 0.5d0*((1 - c2b)*xb) + 0.5d0*((1 + c2b)*xt)
975  tmp130 = 0.5d0*((1 + c2t)*xb) + 0.5d0*((1 - c2t)*xt)
976  tmp131 = 0.5d0*((1 - c2t)*xb) + 0.5d0*((1 + c2t)*xt)
977  tmp132 = 0.25d0*((1 - c2b)*(1 - c2t)) +
978  - 0.25d0*(mb*s2b*s2t)/mt - 0.25d0*((1 - c2b)*s2t*xt)/mt
979  tmp133 = 0.25d0*((1 - c2b)*(1 + c2t)) -
980  - 0.25d0*(mb*s2b*s2t)/mt + 0.25d0*((1 - c2b)*s2t*xt)/mt
981  tmp134 = 0.25d0*((1 + c2b)*(1 - c2t)) -
982  - 0.25d0*(mb*s2b*s2t)/mt - 0.25d0*((1 + c2b)*s2t*xt)/mt
983  tmp135 = 0.25d0*(b*(1 + c2b)*(1 - c2t)) -
984  - 0.5d0*(mb*mt*s2b*s2t) + 0.25d0*((1 - c2b)*(1 + c2t)*t) -
985  - 0.5d0*((1 - c2t)*mb*s2b*xt) + 0.5d0*((1 - c2b)*mt*s2t*xt) +
986  - 0.25d0*((1 - c2b)*(1 - c2t)*xt**2)
987  tmp136 = 0.25d0*(b*(1 - c2b)*(1 - c2t)) +
988  - 0.5d0*(mb*mt*s2b*s2t) + 0.25d0*((1 + c2b)*(1 + c2t)*t) +
989  - 0.5d0*((1 - c2t)*mb*s2b*xt) + 0.5d0*((1 + c2b)*mt*s2t*xt) +
990  - 0.25d0*((1 + c2b)*(1 - c2t)*xt**2)
991  tmp137 = -(0.125d0*(b*(1 + c2b))/c2t) +
992  - 0.25d0*(mb*mt*s2b)/s2t + 0.125d0*((1 - c2b)*t)/c2t +
993  - 0.25d0*(mb*s2b*xt)/c2t - 0.25d0*((1 - c2b)*mt*xt)/s2t -
994  - 0.125d0*((1 - c2b)*xt**2)/c2t
995  tmp138 = 0.125d0*(b*(1 + c2b))/c2t -
996  - 0.25d0*(mb*mt*s2b)/s2t - 0.125d0*((1 - c2b)*t)/c2t -
997  - 0.25d0*(mb*s2b*xt)/c2t + 0.25d0*((1 - c2b)*mt*xt)/s2t +
998  - 0.125d0*((1 - c2b)*xt**2)/c2t
999  tmp139 = -(0.125d0*(b*(1 - c2b))/c2t) -
1000  - 0.25d0*(mb*mt*s2b)/s2t + 0.125d0*((1 + c2b)*t)/c2t -
1001  - 0.25d0*(mb*s2b*xt)/c2t - 0.25d0*((1 + c2b)*mt*xt)/s2t -
1002  - 0.125d0*((1 + c2b)*xt**2)/c2t
1003  tmp140 = 0.125d0*(b*(1 - c2b))/c2t +
1004  - 0.25d0*(mb*mt*s2b)/s2t - 0.125d0*((1 + c2b)*t)/c2t +
1005  - 0.25d0*(mb*s2b*xt)/c2t + 0.25d0*((1 + c2b)*mt*xt)/s2t +
1006  - 0.125d0*((1 + c2b)*xt**2)/c2t
1007  tmp141 = 0.25d0*(b*(1 + c2b)*(1 + c2t)) +
1008  - 0.5d0*(mb*mt*s2b*s2t) + 0.25d0*((1 - c2b)*(1 - c2t)*t) -
1009  - 0.5d0*((1 + c2t)*mb*s2b*xt) - 0.5d0*((1 - c2b)*mt*s2t*xt) +
1010  - 0.25d0*((1 - c2b)*(1 + c2t)*xt**2)
1011  tmp142 = 0.25d0*(b*(1 - c2b)*(1 + c2t)) -
1012  - 0.5d0*(mb*mt*s2b*s2t) + 0.25d0*((1 + c2b)*(1 - c2t)*t) +
1013  - 0.5d0*((1 + c2t)*mb*s2b*xt) - 0.5d0*((1 + c2b)*mt*s2t*xt) +
1014  - 0.25d0*((1 + c2b)*(1 + c2t)*xt**2)
1015  tmp143 = 0.25d0*((1 - c2b)*(1 + c2t)) -
1016  - 0.25d0*(mb*s2b*s2t)/mt - 0.25d0*((1 - c2b)*s2t*yb)/mt
1017  tmp144 = 0.25d0*((1 - c2b)*(1 - c2t)) +
1018  - 0.25d0*(mb*s2b*s2t)/mt + 0.25d0*((1 - c2b)*s2t*yb)/mt
1019  tmp145 = 0.25d0*((1 + c2b)*(1 - c2t)) -
1020  - 0.25d0*(mb*s2b*s2t)/mt + 0.25d0*((1 + c2b)*s2t*yb)/mt
1021  tmp146 = 0.25d0*(b*(1 + c2b)*(1 - c2t)) -
1022  - 0.5d0*(mb*mt*s2b*s2t) + 0.25d0*((1 - c2b)*(1 + c2t)*t) +
1023  - 0.5d0*((1 - c2t)*mb*s2b*yb) - 0.5d0*((1 - c2b)*mt*s2t*yb) +
1024  - 0.25d0*((1 - c2b)*(1 - c2t)*yb**2)
1025  tmp147 = 0.25d0*(b*(1 - c2b)*(1 - c2t)) +
1026  - 0.5d0*(mb*mt*s2b*s2t) + 0.25d0*((1 + c2b)*(1 + c2t)*t) -
1027  - 0.5d0*((1 - c2t)*mb*s2b*yb) - 0.5d0*((1 + c2b)*mt*s2t*yb) +
1028  - 0.25d0*((1 + c2b)*(1 - c2t)*yb**2)
1029  tmp148 = -(0.125d0*(b*(1 + c2b))/c2t) +
1030  - 0.25d0*(mb*mt*s2b)/s2t + 0.125d0*((1 - c2b)*t)/c2t -
1031  - 0.25d0*(mb*s2b*yb)/c2t + 0.25d0*((1 - c2b)*mt*yb)/s2t -
1032  - 0.125d0*((1 - c2b)*yb**2)/c2t
1033  tmp149 = 0.125d0*(b*(1 + c2b))/c2t -
1034  - 0.25d0*(mb*mt*s2b)/s2t - 0.125d0*((1 - c2b)*t)/c2t +
1035  - 0.25d0*(mb*s2b*yb)/c2t - 0.25d0*((1 - c2b)*mt*yb)/s2t +
1036  - 0.125d0*((1 - c2b)*yb**2)/c2t
1037  tmp150 = -(0.125d0*(b*(1 - c2b))/c2t) -
1038  - 0.25d0*(mb*mt*s2b)/s2t + 0.125d0*((1 + c2b)*t)/c2t +
1039  - 0.25d0*(mb*s2b*yb)/c2t + 0.25d0*((1 + c2b)*mt*yb)/s2t -
1040  - 0.125d0*((1 + c2b)*yb**2)/c2t
1041  tmp151 = 0.125d0*(b*(1 - c2b))/c2t +
1042  - 0.25d0*(mb*mt*s2b)/s2t - 0.125d0*((1 + c2b)*t)/c2t -
1043  - 0.25d0*(mb*s2b*yb)/c2t - 0.25d0*((1 + c2b)*mt*yb)/s2t +
1044  - 0.125d0*((1 + c2b)*yb**2)/c2t
1045  tmp152 = 0.25d0*(b*(1 + c2b)*(1 + c2t)) +
1046  - 0.5d0*(mb*mt*s2b*s2t) + 0.25d0*((1 - c2b)*(1 - c2t)*t) +
1047  - 0.5d0*((1 + c2t)*mb*s2b*yb) + 0.5d0*((1 - c2b)*mt*s2t*yb) +
1048  - 0.25d0*((1 - c2b)*(1 + c2t)*yb**2)
1049  tmp153 = 0.25d0*(b*(1 - c2b)*(1 + c2t)) -
1050  - 0.5d0*(mb*mt*s2b*s2t) + 0.25d0*((1 + c2b)*(1 - c2t)*t) -
1051  - 0.5d0*((1 + c2t)*mb*s2b*yb) + 0.5d0*((1 + c2b)*mt*s2t*yb) +
1052  - 0.25d0*((1 + c2b)*(1 + c2t)*yb**2)
1053  tmp154 = 0.5d0*((1 + c2b)*yb) + 0.5d0*((1 - c2b)*yt)
1054  tmp155 = 0.5d0*((1 - c2b)*yb) + 0.5d0*((1 + c2b)*yt)
1055  tmp156 = 0.5d0*((1 + c2t)*yb) + 0.5d0*((1 - c2t)*yt)
1056  tmp157 = 0.5d0*((1 - c2t)*yb) + 0.5d0*((1 + c2t)*yt)
1057  tmp158 = 0.25d0*((1 - c2b)*(1 - c2t)) +
1058  - 0.25d0*(mb*s2b*s2t)/mt - 0.25d0*((1 - c2b)*s2t*yt)/mt
1059  tmp159 = 0.25d0*((1 - c2b)*(1 + c2t)) -
1060  - 0.25d0*(mb*s2b*s2t)/mt + 0.25d0*((1 - c2b)*s2t*yt)/mt
1061  tmp160 = 0.25d0*((1 + c2b)*(1 - c2t)) -
1062  - 0.25d0*(mb*s2b*s2t)/mt - 0.25d0*((1 + c2b)*s2t*yt)/mt
1063  tmp161 = 0.25d0*(b*(1 + c2b)*(1 - c2t)) -
1064  - 0.5d0*(mb*mt*s2b*s2t) + 0.25d0*((1 - c2b)*(1 + c2t)*t) -
1065  - 0.5d0*((1 - c2t)*mb*s2b*yt) + 0.5d0*((1 - c2b)*mt*s2t*yt) +
1066  - 0.25d0*((1 - c2b)*(1 - c2t)*yt**2)
1067  tmp162 = 0.25d0*(b*(1 - c2b)*(1 - c2t)) +
1068  - 0.5d0*(mb*mt*s2b*s2t) + 0.25d0*((1 + c2b)*(1 + c2t)*t) +
1069  - 0.5d0*((1 - c2t)*mb*s2b*yt) + 0.5d0*((1 + c2b)*mt*s2t*yt) +
1070  - 0.25d0*((1 + c2b)*(1 - c2t)*yt**2)
1071  tmp163 = -(0.125d0*(b*(1 + c2b))/c2t) +
1072  - 0.25d0*(mb*mt*s2b)/s2t + 0.125d0*((1 - c2b)*t)/c2t +
1073  - 0.25d0*(mb*s2b*yt)/c2t - 0.25d0*((1 - c2b)*mt*yt)/s2t -
1074  - 0.125d0*((1 - c2b)*yt**2)/c2t
1075  tmp164 = 0.125d0*(b*(1 + c2b))/c2t -
1076  - 0.25d0*(mb*mt*s2b)/s2t - 0.125d0*((1 - c2b)*t)/c2t -
1077  - 0.25d0*(mb*s2b*yt)/c2t + 0.25d0*((1 - c2b)*mt*yt)/s2t +
1078  - 0.125d0*((1 - c2b)*yt**2)/c2t
1079  tmp165 = -(0.125d0*(b*(1 - c2b))/c2t) -
1080  - 0.25d0*(mb*mt*s2b)/s2t + 0.125d0*((1 + c2b)*t)/c2t -
1081  - 0.25d0*(mb*s2b*yt)/c2t - 0.25d0*((1 + c2b)*mt*yt)/s2t -
1082  - 0.125d0*((1 + c2b)*yt**2)/c2t
1083  tmp166 = 0.125d0*(b*(1 - c2b))/c2t +
1084  - 0.25d0*(mb*mt*s2b)/s2t - 0.125d0*((1 + c2b)*t)/c2t +
1085  - 0.25d0*(mb*s2b*yt)/c2t + 0.25d0*((1 + c2b)*mt*yt)/s2t +
1086  - 0.125d0*((1 + c2b)*yt**2)/c2t
1087  tmp167 = 0.25d0*(b*(1 + c2b)*(1 + c2t)) +
1088  - 0.5d0*(mb*mt*s2b*s2t) + 0.25d0*((1 - c2b)*(1 - c2t)*t) -
1089  - 0.5d0*((1 + c2t)*mb*s2b*yt) - 0.5d0*((1 - c2b)*mt*s2t*yt) +
1090  - 0.25d0*((1 - c2b)*(1 + c2t)*yt**2)
1091  tmp168 = 0.25d0*(b*(1 - c2b)*(1 + c2t)) -
1092  - 0.5d0*(mb*mt*s2b*s2t) + 0.25d0*((1 + c2b)*(1 - c2t)*t) +
1093  - 0.5d0*((1 + c2t)*mb*s2b*yt) - 0.5d0*((1 + c2b)*mt*s2t*yt) +
1094  - 0.25d0*((1 + c2b)*(1 + c2t)*yt**2)
1095  tmp169 = -li2t1b1 - 0.5d0*(-logb1 + logt1)**2
1096  tmp170 = -li2t1b2 - 0.5d0*(-logb2 + logt1)**2
1097  tmp171 = -li2t1t2 - 0.5d0*(logt1 - logt2)**2
1098  tmp172 = -li2t2b1 - 0.5d0*(-logb1 + logt2)**2
1099  tmp173 = -li2t2b2 - 0.5d0*(-logb2 + logt2)**2
1100  tmp174 = -a0 + (a0 - t)**2/b - t
1101  tmp175 = -a0 + (a0 - t)**2/t - t
1102  tmp176 = -a0 + (a0 - t1)**2/b1 - t1
1103  tmp177 = -a0 + (a0 - t1)**2/b2 - t1
1104  tmp178 = -a0 + (a0 - t1)**2/t1 - t1
1105  tmp179 = -a0 - t1 + (a0 - t1)**2/t2
1106  tmp180 = -a0 + (a0 - t2)**2/b1 - t2
1107  tmp181 = -a0 + (a0 - t2)**2/b2 - t2
1108  tmp182 = -a0 + (a0 - t2)**2/t2 - t2
1109  tmp183 = cbe**2*hb**2*tmp119 + ht**2*sbe**2*tmp133 -
1110  - cbe*hb*ht*sbe*((mb*tmp56)/mt - 0.5d0*(s2b*s2t) -
1111  - 0.5d0*(s2b*tmp130)/mt)
1112  tmp184 = cbe**2*hb**2*tmp118 + ht**2*sbe**2*tmp29 -
1113  - cbe*hb*ht*sbe*((mb*tmp59)/mt + 0.5d0*(s2b*s2t) +
1114  - 0.5d0*(s2b*tmp130)/mt)
1115  tmp185 = cbe**2*hb**2*tmp127 + ht**2*sbe**2*tmp135 -
1116  - cbe*hb*ht*sbe*(mb*s2t*tmp128 - mt*s2b*tmp130 +
1117  - 2*mb*mt*tmp56 - 0.5d0*(s2b*s2t*(b + t)) -
1118  - 0.5d0*(s2b*s2t*xb*xt))
1119  tmp186 = cbe**2*hb**2*tmp126 + ht**2*sbe**2*tmp136 -
1120  - cbe*hb*ht*sbe*(mb*s2t*tmp129 + mt*s2b*tmp130 +
1121  - 2*mb*mt*tmp59 + 0.5d0*(s2b*s2t*(b + t)) +
1122  - 0.5d0*(s2b*s2t*xb*xt))
1123  tmp187 = ht**2*sbe**2*tmp132 + cbe**2*hb**2*tmp20 -
1124  - cbe*hb*ht*sbe*((mb*tmp59)/mt + 0.5d0*(s2b*s2t) -
1125  - 0.5d0*(s2b*tmp131)/mt)
1126  tmp188 = cbe**2*hb**2*tmp117 + ht**2*sbe**2*tmp134 -
1127  - cbe*hb*ht*sbe*((mb*tmp56)/mt - 0.5d0*(s2b*s2t) +
1128  - 0.5d0*(s2b*tmp131)/mt)
1129  tmp189 = cbe**2*hb**2*tmp121 + ht**2*sbe**2*tmp141 -
1130  - cbe*hb*ht*sbe*(-(mb*s2t*tmp128) - mt*s2b*tmp131 +
1131  - 2*mb*mt*tmp59 + 0.5d0*(s2b*s2t*(b + t)) +
1132  - 0.5d0*(s2b*s2t*xb*xt))
1133  tmp190 = cbe**2*hb**2*tmp120 + ht**2*sbe**2*tmp142 -
1134  - cbe*hb*ht*sbe*(-(mb*s2t*tmp129) + mt*s2b*tmp131 +
1135  - 2*mb*mt*tmp56 - 0.5d0*(s2b*s2t*(b + t)) -
1136  - 0.5d0*(s2b*s2t*xb*xt))
1137  tmp191 = hb**2*sbe**2*tmp145 + cbe**2*ht**2*tmp159 +
1138  - cbe*hb*ht*sbe*((mb*tmp56)/mt - 0.5d0*(s2b*s2t) -
1139  - 0.5d0*(s2b*tmp156)/mt)
1140  tmp192 = hb**2*sbe**2*tmp144 + cbe**2*ht**2*tmp45 +
1141  - cbe*hb*ht*sbe*((mb*tmp59)/mt + 0.5d0*(s2b*s2t) +
1142  - 0.5d0*(s2b*tmp156)/mt)
1143  tmp193 = hb**2*sbe**2*tmp153 + cbe**2*ht**2*tmp161 +
1144  - cbe*hb*ht*sbe*(mb*s2t*tmp154 - mt*s2b*tmp156 +
1145  - 2*mb*mt*tmp56 - 0.5d0*(s2b*s2t*(b + t)) -
1146  - 0.5d0*(s2b*s2t*yb*yt))
1147  tmp194 = hb**2*sbe**2*tmp152 + cbe**2*ht**2*tmp162 +
1148  - cbe*hb*ht*sbe*(mb*s2t*tmp155 + mt*s2b*tmp156 +
1149  - 2*mb*mt*tmp59 + 0.5d0*(s2b*s2t*(b + t)) +
1150  - 0.5d0*(s2b*s2t*yb*yt))
1151  tmp195 = cbe**2*ht**2*tmp158 + hb**2*sbe**2*tmp36 +
1152  - cbe*hb*ht*sbe*((mb*tmp59)/mt + 0.5d0*(s2b*s2t) -
1153  - 0.5d0*(s2b*tmp157)/mt)
1154  tmp196 = hb**2*sbe**2*tmp143 + cbe**2*ht**2*tmp160 +
1155  - cbe*hb*ht*sbe*((mb*tmp56)/mt - 0.5d0*(s2b*s2t) +
1156  - 0.5d0*(s2b*tmp157)/mt)
1157  tmp197 = hb**2*sbe**2*tmp147 + cbe**2*ht**2*tmp167 +
1158  - cbe*hb*ht*sbe*(-(mb*s2t*tmp154) - mt*s2b*tmp157 +
1159  - 2*mb*mt*tmp59 + 0.5d0*(s2b*s2t*(b + t)) +
1160  - 0.5d0*(s2b*s2t*yb*yt))
1161  tmp198 = hb**2*sbe**2*tmp146 + cbe**2*ht**2*tmp168 +
1162  - cbe*hb*ht*sbe*(-(mb*s2t*tmp155) + mt*s2b*tmp157 +
1163  - 2*mb*mt*tmp56 - 0.5d0*(s2b*s2t*(b + t)) -
1164  - 0.5d0*(s2b*s2t*yb*yt))
1165  tmp199 = cbe**2*hb**2*tmp125 + ht**2*sbe**2*tmp137 -
1166  - cbe*hb*ht*sbe*(-(mt*s2b*tmp27) + 2*mb*mt*tmp54 +
1167  - 0.25d0*(s2b*(b + t))/s2t - 0.5d0*(mb*tmp128)/s2t +
1168  - 0.25d0*(s2b*xb*xt)/s2t)
1169  tmp200 = cbe**2*hb**2*tmp123 + ht**2*sbe**2*tmp139 -
1170  - cbe*hb*ht*sbe*(mt*s2b*tmp27 + 2*mb*mt*tmp55 -
1171  - 0.25d0*(s2b*(b + t))/s2t - 0.5d0*(mb*tmp129)/s2t -
1172  - 0.25d0*(s2b*xb*xt)/s2t)
1173  tmp201 = cbe**2*hb**2*tmp124 + ht**2*sbe**2*tmp138 -
1174  - cbe*hb*ht*sbe*(-(mt*s2b*tmp28) + 2*mb*mt*tmp55 -
1175  - 0.25d0*(s2b*(b + t))/s2t + 0.5d0*(mb*tmp128)/s2t -
1176  - 0.25d0*(s2b*xb*xt)/s2t)
1177  tmp202 = cbe**2*hb**2*tmp122 + ht**2*sbe**2*tmp140 -
1178  - cbe*hb*ht*sbe*(mt*s2b*tmp28 + 2*mb*mt*tmp54 +
1179  - 0.25d0*(s2b*(b + t))/s2t + 0.5d0*(mb*tmp129)/s2t +
1180  - 0.25d0*(s2b*xb*xt)/s2t)
1181  tmp203 = hb**2*sbe**2*tmp151 + cbe**2*ht**2*tmp163 +
1182  - cbe*hb*ht*sbe*(-(mt*s2b*tmp43) + 2*mb*mt*tmp54 +
1183  - 0.25d0*(s2b*(b + t))/s2t - 0.5d0*(mb*tmp154)/s2t +
1184  - 0.25d0*(s2b*yb*yt)/s2t)
1185  tmp204 = hb**2*sbe**2*tmp149 + cbe**2*ht**2*tmp165 +
1186  - cbe*hb*ht*sbe*(mt*s2b*tmp43 + 2*mb*mt*tmp55 -
1187  - 0.25d0*(s2b*(b + t))/s2t - 0.5d0*(mb*tmp155)/s2t -
1188  - 0.25d0*(s2b*yb*yt)/s2t)
1189  tmp205 = hb**2*sbe**2*tmp150 + cbe**2*ht**2*tmp164 +
1190  - cbe*hb*ht*sbe*(-(mt*s2b*tmp44) + 2*mb*mt*tmp55 -
1191  - 0.25d0*(s2b*(b + t))/s2t + 0.5d0*(mb*tmp154)/s2t -
1192  - 0.25d0*(s2b*yb*yt)/s2t)
1193  tmp206 = hb**2*sbe**2*tmp148 + cbe**2*ht**2*tmp166 +
1194  - cbe*hb*ht*sbe*(mt*s2b*tmp44 + 2*mb*mt*tmp54 +
1195  - 0.25d0*(s2b*(b + t))/s2t + 0.5d0*(mb*tmp155)/s2t +
1196  - 0.25d0*(s2b*yb*yt)/s2t)
1197  tmp207 = (b**2*(logb - logt))/((1 - b/t)**2*t**4.0d0) +
1198  - b/((1 - b/t)*t**3.0d0) + (2*b*(logb - logt))/((1 - b/t)*t
1199  $ **3.0d0)
1200  tmp208 = (-2*b*(logb - logt))/((1 - b/t)*t**2) +
1201  - (-2 - 2*logb)/t + (2*logt)/t -
1202  - (2*(logb - logt))/((1 - b/t)*t) +
1203  - (2*b*(logb - logt)*(-b + t))/((1 - b/t)**2*t**3.0d0) +
1204  - (2*(-b + t))/((1 - b/t)*t**2) +
1205  - (2*(logb - logt)*(-b + t))/((1 - b/t)*t**2)
1206  tmp209 = -1 + 2*li2bt + 4*logb + (-2 - 2*logb)*logt +
1207  - logt**2 - (2*(logb - logt)*(-b + t))/((1 - b/t)*t)
1208  tmp210 = -5 - 2*li2bt + 4*logt - logt**2 +
1209  - (2*logt*(b - t))/t +
1210  - (2*b*(logb - logt)*(-b + t))/((1 - b/t)*t**2) +
1211  - (-2*b*logb + 4*t)/t
1212  tmp211 = -1 + 4*logb1 + (-2 - 2*logb1)*logt1 +
1213  - logt1**2 - (2*(logb1 - logt1)*(-b1 + t1))/
1214  - ((1 - b1/t1)*t1) + 2*tmp169
1215  tmp212 = -1 + 4*logb2 + (-2 - 2*logb2)*logt1 +
1216  - logt1**2 - (2*(logb2 - logt1)*(-b2 + t1))/
1217  - ((1 - b2/t1)*t1) + 2*tmp170
1218  tmp213 = -5 + 4*logt1 - logt1**2 +
1219  - (2*logt1*(b1 - t1))/t1 +
1220  - (2*b1*(logb1 - logt1)*(-b1 + t1))/((1 - b1/t1)*t1**2) +
1221  - (-2*b1*logb1 + 4*t1)/t1 - 2*tmp169
1222  tmp214 = -5 + 4*logt1 - logt1**2 +
1223  - (2*logt1*(b2 - t1))/t1 +
1224  - (2*b2*(logb2 - logt1)*(-b2 + t1))/((1 - b2/t1)*t1**2) +
1225  - (-2*b2*logb2 + 4*t1)/t1 - 2*tmp170
1226  tmp215 = -1 + 4*logb1 + (-2 - 2*logb1)*logt2 +
1227  - logt2**2 - (2*(logb1 - logt2)*(-b1 + t2))/
1228  - ((1 - b1/t2)*t2) + 2*tmp172
1229  tmp216 = -1 + 4*logb2 + (-2 - 2*logb2)*logt2 +
1230  - logt2**2 - (2*(logb2 - logt2)*(-b2 + t2))/
1231  - ((1 - b2/t2)*t2) + 2*tmp173
1232  tmp217 = -5 + 4*logt2 - logt2**2 +
1233  - (2*logt2*(b1 - t2))/t2 +
1234  - (2*b1*(logb1 - logt2)*(-b1 + t2))/((1 - b1/t2)*t2**2) +
1235  - (-2*b1*logb1 + 4*t2)/t2 - 2*tmp172
1236  tmp218 = -5 + 4*logt2 - logt2**2 +
1237  - (2*logt2*(b2 - t2))/t2 +
1238  - (2*b2*(logb2 - logt2)*(-b2 + t2))/((1 - b2/t2)*t2**2) +
1239  - (-2*b2*logb2 + 4*t2)/t2 - 2*tmp173
1240  tmp219 = -1 + logt1**2 + logt1*(-2 - 2*logt2) +
1241  - 4*logt2 - (2*(-logt1 + logt2)*(t1 - t2))/
1242  - (t1*(1 - t2/t1)) + 2*tmp171
1243  tmp220 = -5 + 4*logt1 - logt1**2 +
1244  - (2*logt1*(-t1 + t2))/t1 + (4*t1 - 2*logt2*t2)/t1 +
1245  - (2*(-logt1 + logt2)*(t1 - t2)*t2)/(t1**2*(1 - t2/t1)) -
1246  - 2*tmp171
1247  tmp221 = -0.5d0 + 2*logt1 -
1248  - (phia0t1t2*(-a0 + t1 - t2))/t2 - 0.5d0*(loga0*logt1) +
1249  - 0.5d0*(loga0*logt2) - 0.5d0*(logt1*logt2) +
1250  - 0.5d0*(logt2*(a0 - t1 - t2))/t1 +
1251  - 0.5d0*(loga0*(-a0 - t1 + t2))/t1 -
1252  - 0.5d0*(delta0t1t2*((phia0t1t2*(a0 - t1 + t2))/delta0t1t2 +
1253  - (t2*tmp96)/(delta0t1t2*t1)))/t2
1254  tmp222 = -0.5d0 + 2*logt2 -
1255  - (phia0b1t2*(-a0 - b1 + t2))/t2 + 0.5d0*(loga0*logb1) -
1256  - 0.5d0*(loga0*logt2) - 0.5d0*(logb1*logt2) +
1257  - 0.5d0*(logb1*(a0 - b1 - t2))/t2 +
1258  - 0.5d0*(loga0*(-a0 + b1 - t2))/t2 -
1259  - 0.5d0*(delta0b1t2*((b1*phia0b1t2*(a0 + b1 - t2))/
1260  - (delta0b1t2*t2) + (b1*tmp100)/(delta0b1t2*t2)))/b1
1261  tmp223 = -0.5d0 + 2*logt2 -
1262  - (phia0b2t2*(-a0 - b2 + t2))/t2 + 0.5d0*(loga0*logb2) -
1263  - 0.5d0*(loga0*logt2) - 0.5d0*(logb2*logt2) +
1264  - 0.5d0*(logb2*(a0 - b2 - t2))/t2 +
1265  - 0.5d0*(loga0*(-a0 + b2 - t2))/t2 -
1266  - 0.5d0*(delta0b2t2*((b2*phia0b2t2*(a0 + b2 - t2))/
1267  - (delta0b2t2*t2) + (b2*tmp101)/(delta0b2t2*t2)))/b2
1268  tmp224 = -0.5d0 + 2*logt2 -
1269  - (phit2bmu2*(-b - mu2 + t2))/mu2 + 0.5d0*(logb*logmu2) -
1270  - 0.5d0*(logb*logt2) - 0.5d0*(logmu2*logt2) +
1271  - 0.5d0*(logmu2*(b - mu2 - t2))/t2 +
1272  - 0.5d0*(logb*(-b + mu2 - t2))/t2 -
1273  - 0.5d0*(deltt2bmu2*((phit2bmu2*(b + mu2 - t2))/deltt2bmu2 +
1274  - (mu2*tmp102)/(deltt2bmu2*t2)))/mu2
1275  tmp225 = 0.5d0 - 2*logt2 +
1276  - (phit2bmu2*(-b - mu2 + t2))/mu2 - 0.5d0*(logb*logmu2) +
1277  - 0.5d0*(logb*logt2) + 0.5d0*(logmu2*logt2) -
1278  - 0.5d0*(logmu2*(b - mu2 - t2))/t2 -
1279  - 0.5d0*(logb*(-b + mu2 - t2))/t2 +
1280  - 0.5d0*(deltt2bmu2*((phit2bmu2*(b + mu2 - t2))/deltt2bmu2 +
1281  - (mu2*tmp102)/(deltt2bmu2*t2)))/mu2
1282  tmp226 = -(phit2bmu2/deltt2bmu2) -
1283  - (2*phit2bmu2*(b + mu2 - t2)*(-b - mu2 + t2))/
1284  - deltt2bmu2**2 - (mu2*tmp102)/(deltt2bmu2*t2**2) -
1285  - (2*mu2*(-b - mu2 + t2)*tmp102)/(deltt2bmu2**2*t2) +
1286  - ((b + mu2 - t2)*((phit2bmu2*(b + mu2 - t2))/deltt2bmu2 +
1287  - (mu2*tmp102)/(deltt2bmu2*t2)))/deltt2bmu2 +
1288  - (mu2*tmp5)/(deltt2bmu2*t2)
1289  tmp227 = phit2bmu2/deltt2bmu2 -
1290  - (2*phit2bmu2*(b - mu2 - t2)*(b + mu2 - t2))/
1291  - deltt2bmu2**2 - (2*mu2*(b - mu2 - t2)*tmp102)/
1292  - (deltt2bmu2**2*t2) +
1293  - ((b + mu2 - t2)*((phit2bmu2*(-b + mu2 + t2))/deltt2bmu2 +
1294  - (mu2*tmp110)/(b*deltt2bmu2)))/deltt2bmu2 +
1295  - (mu2*tmp97)/(deltt2bmu2*t2)
1296  tmp228 = -0.5d0 + 2*logt -
1297  - (phimu2tt2*(-mu2 + t - t2))/t2 - 0.5d0*(logmu2*logt) +
1298  - 0.5d0*(logmu2*logt2) - 0.5d0*(logt*logt2) +
1299  - 0.5d0*(logt2*(mu2 - t - t2))/t +
1300  - 0.5d0*(logmu2*(-mu2 - t + t2))/t -
1301  - 0.5d0*(deltmu2tt2*((mu2*phimu2tt2*(mu2 - t + t2))/
1302  - (deltmu2tt2*t2) + (mu2*tmp111)/(deltmu2tt2*t)))/mu2
1303  tmp229 = -0.5d0 + 2*logt - (phia0bt*(-a0 - b + t))/t +
1304  - 0.5d0*(loga0*logb) - 0.5d0*(loga0*logt) - 0.5d0*(logb*logt)
1305  $ +0.5d0*(logb*(a0 - b - t))/t + 0.5d0*(loga0*(-a0 + b - t))/t
1306  $ -0.5d0*(delta0bt*((b*phia0bt*(a0 + b - t))/(delta0bt*t) +(b
1307  $ *tmp66)/(delta0bt*t)))/b
1308  tmp230 = -((b*phia0bt)/(delta0bt*t)) -
1309  - (2*b*phia0bt*(a0 + b - t)*(-a0 - b + t))/
1310  - (delta0bt**2*t) + (b*tmp1)/(delta0bt*t) -
1311  - (b*tmp66)/(delta0bt*t**2) -
1312  - (2*b*(-a0 - b + t)*tmp66)/(delta0bt**2*t) +
1313  - ((a0 + b - t)*((b*phia0bt*(a0 + b - t))/(delta0bt*t) +
1314  - (b*tmp66)/(delta0bt*t)))/delta0bt
1315  tmp231 = -0.5d0 + 2*logt -
1316  - (phib1tmu2*(-b1 - mu2 + t))/mu2 + 0.5d0*(logb1*logmu2) -
1317  - 0.5d0*(logb1*logt) - 0.5d0*(logmu2*logt) +
1318  - 0.5d0*(logmu2*(b1 - mu2 - t))/t +
1319  - 0.5d0*(logb1*(-b1 + mu2 - t))/t -
1320  - 0.5d0*(deltb1tmu2*((phib1tmu2*(b1 + mu2 - t))/deltb1tmu2 +
1321  - (mu2*tmp67)/(deltb1tmu2*t)))/mu2
1322  tmp232 = -(phib1tmu2/deltb1tmu2) -
1323  - (2*phib1tmu2*(b1 + mu2 - t)*(-b1 - mu2 + t))/
1324  - deltb1tmu2**2 + (mu2*tmp2)/(deltb1tmu2*t) -
1325  - (mu2*tmp67)/(deltb1tmu2*t**2) -
1326  - (2*mu2*(-b1 - mu2 + t)*tmp67)/(deltb1tmu2**2*t) +
1327  - ((b1 + mu2 - t)*((phib1tmu2*(b1 + mu2 - t))/deltb1tmu2 +
1328  - (mu2*tmp67)/(deltb1tmu2*t)))/deltb1tmu2
1329  tmp233 = phib1tmu2/deltb1tmu2 -
1330  - (2*phib1tmu2*(-b1 - mu2 + t)*(-b1 + mu2 + t))/
1331  - deltb1tmu2**2 + ((-b1 + mu2 + t)*
1332  - ((phib1tmu2*(b1 + mu2 - t))/deltb1tmu2 +
1333  - (mu2*tmp67)/(deltb1tmu2*t)))/deltb1tmu2 -
1334  - (2*mu2*(-b1 - mu2 + t)*tmp71)/(b1*deltb1tmu2**2) +
1335  - (mu2*tmp73)/(b1*deltb1tmu2)
1336  tmp234 = -0.5d0 + 2*logt -
1337  - (phib2tmu2*(-b2 - mu2 + t))/mu2 + 0.5d0*(logb2*logmu2) -
1338  - 0.5d0*(logb2*logt) - 0.5d0*(logmu2*logt) +
1339  - 0.5d0*(logmu2*(b2 - mu2 - t))/t +
1340  - 0.5d0*(logb2*(-b2 + mu2 - t))/t -
1341  - 0.5d0*(deltb2tmu2*((phib2tmu2*(b2 + mu2 - t))/deltb2tmu2 +
1342  - (mu2*tmp68)/(deltb2tmu2*t)))/mu2
1343  tmp235 = -((phib1tmu2*(-b1 - mu2 + t))/mu2) +
1344  - (phib2tmu2*(-b2 - mu2 + t))/mu2 + 0.5d0*(logb1*logmu2) -
1345  - 0.5d0*(logb2*logmu2) - 0.5d0*(logb1*logt) +
1346  - 0.5d0*(logb2*logt) + 0.5d0*(logmu2*(b1 - mu2 - t))/t -
1347  - 0.5d0*(logmu2*(b2 - mu2 - t))/t +
1348  - 0.5d0*(logb1*(-b1 + mu2 - t))/t -
1349  - 0.5d0*(logb2*(-b2 + mu2 - t))/t -
1350  - 0.5d0*(deltb1tmu2*((phib1tmu2*(b1 + mu2 - t))/deltb1tmu2 +
1351  - (mu2*tmp67)/(deltb1tmu2*t)))/mu2 +
1352  - 0.5d0*(deltb2tmu2*((phib2tmu2*(b2 + mu2 - t))/deltb2tmu2 +
1353  - (mu2*tmp68)/(deltb2tmu2*t)))/mu2
1354  tmp236 = -(phib2tmu2/deltb2tmu2) -
1355  - (2*phib2tmu2*(b2 + mu2 - t)*(-b2 - mu2 + t))/
1356  - deltb2tmu2**2 + (mu2*tmp3)/(deltb2tmu2*t) -
1357  - (mu2*tmp68)/(deltb2tmu2*t**2) -
1358  - (2*mu2*(-b2 - mu2 + t)*tmp68)/(deltb2tmu2**2*t) +
1359  - ((b2 + mu2 - t)*((phib2tmu2*(b2 + mu2 - t))/deltb2tmu2 +
1360  - (mu2*tmp68)/(deltb2tmu2*t)))/deltb2tmu2
1361  tmp237 = phib2tmu2/deltb2tmu2 -
1362  - (2*phib2tmu2*(-b2 - mu2 + t)*(-b2 + mu2 + t))/
1363  - deltb2tmu2**2 + ((-b2 + mu2 + t)*
1364  - ((phib2tmu2*(b2 + mu2 - t))/deltb2tmu2 +
1365  - (mu2*tmp68)/(deltb2tmu2*t)))/deltb2tmu2 -
1366  - (2*mu2*(-b2 - mu2 + t)*tmp72)/(b2*deltb2tmu2**2) +
1367  - (mu2*tmp74)/(b2*deltb2tmu2)
1368  tmp238 = -0.5d0 + 2*logt1 -
1369  - (phia0b1t1*(-a0 - b1 + t1))/t1 + 0.5d0*(loga0*logb1) -
1370  - 0.5d0*(loga0*logt1) - 0.5d0*(logb1*logt1) +
1371  - 0.5d0*(logb1*(a0 - b1 - t1))/t1 +
1372  - 0.5d0*(loga0*(-a0 + b1 - t1))/t1 -
1373  - 0.5d0*(delta0b1t1*((b1*phia0b1t1*(a0 + b1 - t1))/
1374  - (delta0b1t1*t1) + (b1*tmp81)/(delta0b1t1*t1)))/b1
1375  tmp239 = -0.5d0 + 2*logt1 -
1376  - (phia0b2t1*(-a0 - b2 + t1))/t1 + 0.5d0*(loga0*logb2) -
1377  - 0.5d0*(loga0*logt1) - 0.5d0*(logb2*logt1) +
1378  - 0.5d0*(logb2*(a0 - b2 - t1))/t1 +
1379  - 0.5d0*(loga0*(-a0 + b2 - t1))/t1 -
1380  - 0.5d0*(delta0b2t1*((b2*phia0b2t1*(a0 + b2 - t1))/
1381  - (delta0b2t1*t1) + (b2*tmp82)/(delta0b2t1*t1)))/b2
1382  tmp240 = -0.5d0 + 2*logt1 -
1383  - (phit1bmu2*(-b - mu2 + t1))/mu2 + 0.5d0*(logb*logmu2) -
1384  - 0.5d0*(logb*logt1) - 0.5d0*(logmu2*logt1) +
1385  - 0.5d0*(logmu2*(b - mu2 - t1))/t1 +
1386  - 0.5d0*(logb*(-b + mu2 - t1))/t1 -
1387  - 0.5d0*(deltt1bmu2*((phit1bmu2*(b + mu2 - t1))/deltt1bmu2 +
1388  - (mu2*tmp83)/(deltt1bmu2*t1)))/mu2
1389  tmp241 = -(phit1bmu2/deltt1bmu2) -
1390  - (2*phit1bmu2*(b + mu2 - t1)*(-b - mu2 + t1))/
1391  - deltt1bmu2**2 + (mu2*tmp4)/(deltt1bmu2*t1) -
1392  - (mu2*tmp83)/(deltt1bmu2*t1**2) -
1393  - (2*mu2*(-b - mu2 + t1)*tmp83)/(deltt1bmu2**2*t1) +
1394  - ((b + mu2 - t1)*((phit1bmu2*(b + mu2 - t1))/deltt1bmu2 +
1395  - (mu2*tmp83)/(deltt1bmu2*t1)))/deltt1bmu2
1396  tmp242 = phit1bmu2/deltt1bmu2 -
1397  - (2*phit1bmu2*(b - mu2 - t1)*(b + mu2 - t1))/
1398  - deltt1bmu2**2 + (mu2*tmp78)/(deltt1bmu2*t1) -
1399  - (2*mu2*(b - mu2 - t1)*tmp83)/(deltt1bmu2**2*t1) +
1400  - ((b + mu2 - t1)*((phit1bmu2*(-b + mu2 + t1))/deltt1bmu2 +
1401  - (mu2*tmp90)/(b*deltt1bmu2)))/deltt1bmu2
1402  tmp243 = -0.5d0 + 2*logt -
1403  - (phimu2tt1*(-mu2 + t - t1))/t1 - 0.5d0*(logmu2*logt) +
1404  - 0.5d0*(logmu2*logt1) - 0.5d0*(logt*logt1) +
1405  - 0.5d0*(logt1*(mu2 - t - t1))/t +
1406  - 0.5d0*(logmu2*(-mu2 - t + t1))/t -
1407  - 0.5d0*(deltmu2tt1*((mu2*phimu2tt1*(mu2 - t + t1))/
1408  - (deltmu2tt1*t1) + (mu2*tmp91)/(deltmu2tt1*t)))/mu2
1409  tmp244 = 2/t1 - logb/t1 - logmu2/t1 -
1410  - 0.5d0*(logmu2*(b - mu2 - t1))/t1**2 -
1411  - 0.5d0*(logb*(-b + mu2 - t1))/t1**2 -
1412  - 0.5d0*(2*phit1bmu2 + deltt1bmu2*tmp241 +
1413  - 4*(-b - mu2 + t1)*
1414  - ((phit1bmu2*(b + mu2 - t1))/deltt1bmu2 +
1415  - (mu2*tmp83)/(deltt1bmu2*t1)))/mu2
1416  d1t = -(tmp109*tmp195) - tmp108*tmp196 -
1417  - 2*hb*ht*mt*mu*s2b*tmp235 - (hb*ht*mu*s2b*tmp75)/mt +
1418  - tmp61*(-(b1*(-1 + logb1)) + 2*b1*logb1 -
1419  - b1*(-1 + logb1)*(-1 + logt) + (-1 + logmu2)*mu2 +
1420  - 2*logmu2*mu2 + (-1 + logmu2)*(-1 + logt)*mu2 +
1421  - 2*logt*t - (b1 - mu2 - t)*tmp231 -
1422  - 0.5d0*(deltb1tmu2*phib1tmu2)/mu2 +
1423  - 0.5d0*(logmu2*logt*(b1 - mu2 - t)) +
1424  - 0.5d0*(logb1*logt*(-b1 + mu2 - t)) +
1425  - 0.5d0*(logb1*logmu2*(-b1 - mu2 + t)) - 2.5d0*(b1 + mu2 + t)
1426  - ) + tmp60*(-(b2*(-1 + logb2)) + 2*b2*logb2 -
1427  - b2*(-1 + logb2)*(-1 + logt) + (-1 + logmu2)*mu2 +
1428  - 2*logmu2*mu2 + (-1 + logmu2)*(-1 + logt)*mu2 +
1429  - 2*logt*t - (b2 - mu2 - t)*tmp234 -
1430  - 0.5d0*(deltb2tmu2*phib2tmu2)/mu2 +
1431  - 0.5d0*(logmu2*logt*(b2 - mu2 - t)) +
1432  - 0.5d0*(logb2*logt*(-b2 + mu2 - t)) +
1433  - 0.5d0*(logb2*logmu2*(-b2 - mu2 + t)) - 2.5d0*(b2 + mu2 + t)
1434  - ) - 0.5d0*((-5*b2 + 4*b2*logb2 + logt1**2*(b2 - t1) -
1435  - 5*t1 + logt1*(-2*b2*logb2 + 4*t1) -
1436  - 2*(-b2 + t1)*tmp170)*tmp183) -
1437  - 0.5d0*((-5*b1 + 4*b1*logb1 + logt1**2*(b1 - t1) - 5*t1 +
1438  - logt1*(-2*b1*logb1 + 4*t1) - 2*(-b1 + t1)*tmp169)*
1439  - tmp184) - 0.5d0*((-5*b2 + 4*b2*logb2 +
1440  - logt2**2*(b2 - t2) - 5*t2 +
1441  - logt2*(-2*b2*logb2 + 4*t2) - 2*(-b2 + t2)*tmp173)*
1442  - tmp187) - 0.5d0*((-5*b1 + 4*b1*logb1 +
1443  - logt2**2*(b1 - t2) - 5*t2 +
1444  - logt2*(-2*b1*logb1 + 4*t2) - 2*(-b1 + t2)*tmp172)*
1445  - tmp188) - 4*cbe*hb*ht*mb*mt*sbe*
1446  - (0.5d0 - 2*logt + (phia0bt*(-a0 - b + t))/t -
1447  - 0.5d0*(loga0*logb) + 0.5d0*(loga0*logt) +
1448  - 0.5d0*(logb*logt) - 0.5d0*(logb*(a0 - b - t))/t -
1449  - 0.5d0*(loga0*(-a0 + b - t))/t + 0.5d0*tmp210 +
1450  - 0.5d0*(delta0bt*((b*phia0bt*(a0 + b - t))/(delta0bt*t) +
1451  - (b*tmp66)/(delta0bt*t)))/b) -
1452  - (2*cbe*hb*ht*mb*sbe*
1453  - (-2*a0*loga0 - 2*b*logb - 2*logt*t -
1454  - 0.5d0*(logb*logt*(a0 - b - t)) -
1455  - 0.5d0*(loga0*logt*(-a0 + b - t)) +
1456  - 0.5d0*(delta0bt*phia0bt)/t -
1457  - 0.5d0*(loga0*logb*(-a0 - b + t)) + 2.5d0*(a0 + b + t) +
1458  - 0.5d0*tmp76))/mt +
1459  - tmp10*(b*(-1 + logb) + b*(-1 + logb)*(-1 + logt) +
1460  - 0.5d0*((b + t)*tmp210) + 0.5d0*tmp76)
1461  d1t = d1t - tmp192*tmp88 - tmp191*tmp89 +
1462  - tmp9*(-(a0*(-1 + loga0)) + 2*a0*loga0 + b*(-1 + logb) +
1463  - 2*b*logb - a0*(-1 + loga0)*(-1 + logt) +
1464  - b*(-1 + logb)*(-1 + logt) + 2*logt*t -
1465  - (a0 - b - t)*tmp229 + 0.5d0*(logb*logt*(a0 - b - t)) +
1466  - 0.5d0*(loga0*logt*(-a0 + b - t)) -
1467  - 0.5d0*(delta0bt*phia0bt)/t +
1468  - 0.5d0*(loga0*logb*(-a0 - b + t)) - 2.5d0*(a0 + b + t)) +
1469  - ht**2*(2*(-1 + logmu2)*mu2 + 4*logmu2*mu2 +
1470  - 2*(-1 + logmu2)*(-1 + logt)*mu2 + 4*logt*t -
1471  - (-1 + logt1)*t1 - (-1 + logt)*(-1 + logt1)*t1 +
1472  - 2*logt1*t1 - (-1 + logt2)*t2 -
1473  - (-1 + logt)*(-1 + logt2)*t2 + 2*logt2*t2 -
1474  - (-mu2 - t + t2)*tmp228 - (-mu2 - t + t1)*tmp243 +
1475  - sbe**2*(-10*t + 2*(-1 + logt)*t + 2*(-1 + logt)**2*t +
1476  - 4*logt*t + logt*(4*t - 2*logt*t) + t*tmp77) +
1477  - 0.5d0*(logt*logt1*(mu2 - t - t1)) +
1478  - 0.5d0*(logmu2*logt1*(-mu2 + t - t1)) -
1479  - 0.5d0*(deltmu2tt1*phimu2tt1)/t1 +
1480  - 0.5d0*(logmu2*logt*(-mu2 - t + t1)) -
1481  - 2.5d0*(mu2 + t + t1) + 0.5d0*(logt*logt2*(mu2 - t - t2)) +
1482  - 0.5d0*(logmu2*logt2*(-mu2 + t - t2)) -
1483  - 0.5d0*(deltmu2tt2*phimu2tt2)/t2 +
1484  - 0.5d0*(logmu2*logt*(-mu2 - t + t2)) -
1485  - 2.5d0*(mu2 + t + t2) +
1486  - cbe**2*(-2*a0*(-1 + loga0) -
1487  - 2*a0*(-1 + loga0)*(-1 + logt) + 2*(-1 + logt)*t +
1488  - 2*(-1 + logt)**2*t +
1489  - 2*(2*a0*loga0 - a0*loga0*logt + 4*logt*t +
1490  - 0.5d0*(logt**2*(a0 - 2*t)) -
1491  - 0.5d0*(delta0tt*phia0tt)/t - 2.5d0*(a0 + 2*t)) -
1492  - (a0 - 2*t)*(-1 + 4*logt - logt**2 - (a0*loga0)/t +
1493  - (2*a0*phia0tt)/t + (logt*(a0 - 2*t))/t +
1494  - 0.5d0*(delta0tt*phia0tt)/t**2 -
1495  - 0.5d0*(delta0tt*
1496  - ((a0*phia0tt)/delta0tt +
1497  - (phia0tt*tmp175)/delta0tt +
1498  - tmp65/delta0tt + tmp70/delta0tt))/t))) -
1499  - 0.25d0*(ht**2*(cbe**2*tmp114*(4 - (2*s2t*yt)/mt) +
1500  - cbe**2*tmp93*(4 + (2*s2t*yt)/mt) +
1501  - 0.5d0*(sbe**2*tmp115*(4 - (2*s2t*xt)/mt)) +
1502  - 0.5d0*(sbe**2*tmp94*(4 + (2*s2t*xt)/mt))))
1503  dt1 = -(tmp194*tmp238) - tmp193*tmp239 -
1504  - 2*hb*ht*mb*mu*s2t*tmp240 +
1505  - hb**2*(0.25d0*(b1*(1 - c2b)*(1 + c2t)*(-1 + logb1)) +
1506  - 0.25d0*(b2*(1 + c2b)*(1 + c2t)*(-1 + logb2)) +
1507  - sbe**2*(0.5d0*(a0*(1 + c2t)*(-1 + loga0)) +
1508  - 0.5d0*(a0*(1 + c2t)*(-1 + loga0)*(-1 + logt1))) +
1509  - 0.25d0*(b1*(1 - c2b)*(1 + c2t)*(-1 + logb1)*
1510  - (-1 + logt1)) +
1511  - 0.25d0*(b2*(1 + c2b)*(1 + c2t)*(-1 + logb2)*(-1 + logt1))
1512  - ) + tmp62*(-(b*(-1 + logb)) - 2*b*logb -
1513  - b*(-1 + logb)*(-1 + logt1) - (-1 + logmu2)*mu2 -
1514  - 2*logmu2*mu2 - (-1 + logmu2)*(-1 + logt1)*mu2 -
1515  - 2*logt1*t1 - (-b - mu2 + t1)*tmp240 +
1516  - 0.5d0*(deltt1bmu2*phit1bmu2)/mu2 -
1517  - 0.5d0*(logmu2*logt1*(b - mu2 - t1)) -
1518  - 0.5d0*(logb*logt1*(-b + mu2 - t1)) -
1519  - 0.5d0*(logb*logmu2*(-b - mu2 + t1)) + 2.5d0*(b + mu2 + t1))
1520  - - 0.5d0*(tmp186*tmp213) - 0.5d0*(tmp185*tmp214) +
1521  - ht**2*((-1 + logt2)*t2*tmp8 +
1522  - (-1 + logt1)*(-1 + logt2)*t2*tmp8 +
1523  - cbe**2*(a0*(-1 + loga0)*(1 + 0.5d0*(1 - c2t)) +
1524  - a0*(-1 + loga0)*(-1 + logt1)*(1 + 0.5d0*(1 - c2t))) +
1525  - 0.25d0*(b1*(1 + c2b)*(1 - c2t)*(-1 + logb1)) +
1526  - 0.25d0*(b2*(1 - c2b)*(1 - c2t)*(-1 + logb2)) +
1527  - 0.25d0*(b1*(1 + c2b)*(1 - c2t)*(-1 + logb1)*
1528  - (-1 + logt1)) +
1529  - 0.25d0*(b2*(1 - c2b)*(1 - c2t)*(-1 + logb2)*
1530  - (-1 + logt1)) + 0.25d0*((1 + nc)*s2t**2*tmp79)) +
1531  - ht**2*(-((-1 + logmu2)*mu2) - 2*logmu2*mu2 -
1532  - (-1 + logmu2)*(-1 + logt1)*mu2 - (-1 + logt)*t -
1533  - 2*logt*t - (-1 + logt)*(-1 + logt1)*t - 2*logt1*t1 -
1534  - 0.5d0*(logt*logt1*(mu2 - t - t1)) -
1535  - 0.5d0*(logmu2*logt1*(-mu2 + t - t1)) +
1536  - 0.5d0*(deltmu2tt1*phimu2tt1)/t1 -
1537  - 0.5d0*(logmu2*logt*(-mu2 - t + t1)) +
1538  - 2.5d0*(mu2 + t + t1) -
1539  - (-mu2 - t + t1)*
1540  - (-0.5d0 + 2*logt1 - (phimu2tt1*(-mu2 - t + t1))/t1 +
1541  - 0.5d0*(logmu2*logt) - 0.5d0*(logmu2*logt1) -
1542  - 0.5d0*(logt*logt1) + 0.5d0*(logt*(mu2 - t - t1))/t1 +
1543  - 0.5d0*(logmu2*(-mu2 + t - t1))/t1 -
1544  - 0.5d0*(deltmu2tt1*
1545  - ((mu2*phimu2tt1*(mu2 + t - t1))/
1546  - (deltmu2tt1*t1) + (mu2*tmp84)/(deltmu2tt1*t1)
1547  - ))/mu2))
1548  dt1 = dt1 - 0.25d0*
1549  - (ht**2*((1 + c2t**2)*sbe**2*tmp220*xt**2 +
1550  - 2*(1 + c2t**2)*cbe**2*tmp221*yt**2 +
1551  - cbe**2*tmp51*
1552  - (-1 + 4*logt1 - logt1**2 - (a0*loga0)/t1 +
1553  - (2*a0*phia0t1t1)/t1 + (logt1*(a0 - 2*t1))/t1 +
1554  - 0.5d0*(delta0t1t1*phia0t1t1)/t1**2 -
1555  - 0.5d0*(delta0t1t1*
1556  - ((a0*phia0t1t1)/delta0t1t1 +
1557  - (phia0t1t1*tmp178)/delta0t1t1 +
1558  - tmp80/delta0t1t1 + tmp87/delta0t1t1))/t1) +
1559  - 0.5d0*(sbe**2*tmp35*tmp95)))
1560  dt2 = -(tmp198*tmp222) - tmp197*tmp223 -
1561  - 2*hb*ht*mb*mu*s2t*tmp225 +
1562  - hb**2*(0.25d0*(b1*(1 - c2b)*(1 - c2t)*(-1 + logb1)) +
1563  - 0.25d0*(b2*(1 + c2b)*(1 - c2t)*(-1 + logb2)) +
1564  - sbe**2*(0.5d0*(a0*(1 - c2t)*(-1 + loga0)) +
1565  - 0.5d0*(a0*(1 - c2t)*(-1 + loga0)*(-1 + logt2))) +
1566  - 0.25d0*(b1*(1 - c2b)*(1 - c2t)*(-1 + logb1)*
1567  - (-1 + logt2)) +
1568  - 0.25d0*(b2*(1 + c2b)*(1 - c2t)*(-1 + logb2)*(-1 + logt2))
1569  - ) + tmp63*(-(b*(-1 + logb)) - 2*b*logb -
1570  - b*(-1 + logb)*(-1 + logt2) - (-1 + logmu2)*mu2 -
1571  - 2*logmu2*mu2 - (-1 + logmu2)*(-1 + logt2)*mu2 -
1572  - 2*logt2*t2 - (-b - mu2 + t2)*tmp224 +
1573  - 0.5d0*(deltt2bmu2*phit2bmu2)/mu2 -
1574  - 0.5d0*(logmu2*logt2*(b - mu2 - t2)) -
1575  - 0.5d0*(logb*logt2*(-b + mu2 - t2)) -
1576  - 0.5d0*(logb*logmu2*(-b - mu2 + t2)) + 2.5d0*(b + mu2 + t2))
1577  - + ht**2*(-((-1 + logmu2)*mu2) - 2*logmu2*mu2 -
1578  - (-1 + logmu2)*(-1 + logt2)*mu2 - (-1 + logt)*t -
1579  - 2*logt*t - (-1 + logt)*(-1 + logt2)*t - 2*logt2*t2 -
1580  - 0.5d0*(logt*logt2*(mu2 - t - t2)) -
1581  - 0.5d0*(logmu2*logt2*(-mu2 + t - t2)) +
1582  - 0.5d0*(deltmu2tt2*phimu2tt2)/t2 -
1583  - 0.5d0*(logmu2*logt*(-mu2 - t + t2)) +
1584  - 2.5d0*(mu2 + t + t2) -
1585  - (-mu2 - t + t2)*
1586  - (-0.5d0 + 2*logt2 - (phimu2tt2*(-mu2 - t + t2))/t2 +
1587  - 0.5d0*(logmu2*logt) - 0.5d0*(logmu2*logt2) -
1588  - 0.5d0*(logt*logt2) + 0.5d0*(logt*(mu2 - t - t2))/t2 +
1589  - 0.5d0*(logmu2*(-mu2 + t - t2))/t2 -
1590  - 0.5d0*(deltmu2tt2*
1591  - ((mu2*phimu2tt2*(mu2 + t - t2))/
1592  - (deltmu2tt2*t2) +
1593  - (mu2*tmp103)/(deltmu2tt2*t2)))/mu2)) -
1594  - 0.5d0*(tmp190*tmp217) - 0.5d0*(tmp189*tmp218) +
1595  - ht**2*((-1 + logt1)*t1*tmp8 +
1596  - (-1 + logt1)*(-1 + logt2)*t1*tmp8 +
1597  - cbe**2*(a0*(-1 + loga0)*(1 + 0.5d0*(1 + c2t)) +
1598  - a0*(-1 + loga0)*(-1 + logt2)*(1 + 0.5d0*(1 + c2t))) +
1599  - 0.25d0*(b1*(1 + c2b)*(1 + c2t)*(-1 + logb1)) +
1600  - 0.25d0*(b2*(1 - c2b)*(1 + c2t)*(-1 + logb2)) +
1601  - 0.25d0*(b1*(1 + c2b)*(1 + c2t)*(-1 + logb1)*
1602  - (-1 + logt2)) +
1603  - 0.25d0*(b2*(1 - c2b)*(1 + c2t)*(-1 + logb2)*
1604  - (-1 + logt2)) + 0.25d0*((1 + nc)*s2t**2*tmp98))
1605  dt2 = dt2 - 0.25d0*
1606  - (ht**2*((1 + c2t**2)*sbe**2*tmp219*xt**2 +
1607  - 2*(1 + c2t**2)*cbe**2*yt**2*
1608  - (-0.5d0 + 2*logt2 - (phia0t1t2*(-a0 - t1 + t2))/t2 +
1609  - 0.5d0*(loga0*logt1) - 0.5d0*(loga0*logt2) -
1610  - 0.5d0*(logt1*logt2) +
1611  - 0.5d0*(delta0t1t2*phia0t1t2)/t2**2 +
1612  - 0.5d0*(logt1*(a0 - t1 - t2))/t2 +
1613  - 0.5d0*(loga0*(-a0 + t1 - t2))/t2 -
1614  - 0.5d0*(delta0t1t2*
1615  - (tmp104/delta0t1t2 +
1616  - (phia0t1t2*tmp179)/delta0t1t2))/t2) +
1617  - 0.5d0*(sbe**2*tmp116*tmp34) +
1618  - cbe**2*tmp50*
1619  - (-1 + 4*logt2 - logt2**2 - (a0*loga0)/t2 +
1620  - (2*a0*phia0t2t2)/t2 + (logt2*(a0 - 2*t2))/t2 +
1621  - 0.5d0*(delta0t2t2*phia0t2t2)/t2**2 -
1622  - 0.5d0*(delta0t2t2*
1623  - ((a0*phia0t2t2)/delta0t2t2 +
1624  - tmp107/delta0t2t2 +
1625  - (phia0t2t2*tmp182)/delta0t2t2 +
1626  - tmp99/delta0t2t2))/t2)))
1627  dc2t = (hb*ht*mb*mu*tmp113)/s2t - tmp109*tmp205 -
1628  - tmp108*tmp206 + (b*(-1 + logb)*(-1 + logmu2)*mu2 -
1629  - b*(-1 + logb)*(-1 + logt2)*t2 -
1630  - (-1 + logmu2)*(-1 + logt2)*mu2*t2 -
1631  - (-b - mu2 + t2)*tmp112)*tmp7 - tmp204*tmp88 -
1632  - tmp203*tmp89 + tmp6*
1633  - (b*(-1 + logb)*(-1 + logmu2)*mu2 -
1634  - b*(-1 + logb)*(-1 + logt1)*t1 -
1635  - (-1 + logmu2)*(-1 + logt1)*mu2*t1 -
1636  - (-b - mu2 + t1)*tmp92) +
1637  - hb**2*(0.125d0*(b1*(1 - c2b)*(-1 + logb1)*(-1 + logt1)*t1)/
1638  - c2t + 0.125d0*(b2*(1 + c2b)*(-1 + logb2)*(-1 + logt1)*
1639  - t1)/c2t + sbe**2*
1640  - (0.25d0*(a0*(-1 + loga0)*(-1 + logt1)*t1)/c2t -
1641  - 0.25d0*(a0*(-1 + loga0)*(-1 + logt2)*t2)/c2t) -
1642  - 0.125d0*(b1*(1 - c2b)*(-1 + logb1)*(-1 + logt2)*t2)/
1643  - c2t - 0.125d0*(b2*(1 + c2b)*(-1 + logb2)*(-1 + logt2)*
1644  - t2)/c2t) +
1645  - ht**2*((-1 + logt1)*(-1 + logt2)*t1*t2*
1646  - (1 + 0.5d0*(-1 + nc)) -
1647  - 0.125d0*(b1*(1 + c2b)*(-1 + logb1)*(-1 + logt1)*t1)/
1648  - c2t - 0.125d0*(b2*(1 - c2b)*(-1 + logb2)*(-1 + logt1)*
1649  - t1)/c2t + cbe**2*
1650  - (-(0.25d0*(a0*(-1 + loga0)*(-1 + logt1)*t1)/c2t) +
1651  - 0.25d0*(a0*(-1 + loga0)*(-1 + logt2)*t2)/c2t) +
1652  - 0.125d0*(b1*(1 + c2b)*(-1 + logb1)*(-1 + logt2)*t2)/
1653  - c2t + 0.125d0*(b2*(1 - c2b)*(-1 + logb2)*(-1 + logt2)*
1654  - t2)/c2t - 0.25d0*
1655  - ((1 + nc)*((-1 + logt1)**2*t1**2 +
1656  - (-1 + logt2)**2*t2**2))) -
1657  - 0.5d0*((-5*b2 + 4*b2*logb2 + logt1**2*(b2 - t1) - 5*t1 +
1658  - logt1*(-2*b2*logb2 + 4*t1) - 2*(-b2 + t1)*tmp170)*
1659  - tmp199) - 0.5d0*((-5*b1 + 4*b1*logb1 +
1660  - logt1**2*(b1 - t1) - 5*t1 +
1661  - logt1*(-2*b1*logb1 + 4*t1) - 2*(-b1 + t1)*tmp169)*
1662  - tmp200) - 0.5d0*((-5*b2 + 4*b2*logb2 +
1663  - logt2**2*(b2 - t2) - 5*t2 +
1664  - logt2*(-2*b2*logb2 + 4*t2) - 2*(-b2 + t2)*tmp173)*
1665  - tmp201) - 0.5d0*((-5*b1 + 4*b1*logb1 +
1666  - logt2**2*(b1 - t2) - 5*t2 +
1667  - logt2*(-2*b1*logb1 + 4*t2) - 2*(-b1 + t2)*tmp172)*
1668  - tmp202)
1669  dc2t = dc2t - 0.25d0*
1670  - (ht**2*(cbe**2*tmp114*tmp47 + cbe**2*tmp46*tmp93 +
1671  - sbe**2*(-5*t1 - 5*t2 + 4*logt2*t2 +
1672  - logt1**2*(-t1 + t2) + logt1*(4*t1 - 2*logt2*t2) -
1673  - 2*(t1 - t2)*tmp171)*xt**2 +
1674  - 2*cbe**2*yt**2*
1675  - (2*a0*loga0 + 2*logt1*t1 + 2*logt2*t2 +
1676  - 0.5d0*(logt1*logt2*(a0 - t1 - t2)) +
1677  - 0.5d0*(loga0*logt2*(-a0 + t1 - t2)) -
1678  - 0.5d0*(delta0t1t2*phia0t1t2)/t2 +
1679  - 0.5d0*(loga0*logt1*(-a0 - t1 + t2)) -
1680  - 2.5d0*(a0 + t1 + t2)) + 0.5d0*(sbe**2*tmp115*tmp31) +
1681  - 0.5d0*(sbe**2*tmp30*tmp94)))
1682  dt1t1 = -2*hb*ht*mb*mu*s2t*tmp244 +
1683  - hb**2*(0.25d0*(b1*(1 - c2b)*(1 + c2t)*(-1 + logb1))/t1 +
1684  - 0.25d0*(b2*(1 + c2b)*(1 + c2t)*(-1 + logb2))/t1 +
1685  - 0.5d0*(a0*(1 + c2t)*(-1 + loga0)*sbe**2)/t1) +
1686  - ht**2*(((-1 + logt2)*t2*tmp8)/t1 +
1687  - (a0*cbe**2*(-1 + loga0)*(1 + 0.5d0*(1 - c2t)))/t1 +
1688  - 0.25d0*(b1*(1 + c2b)*(1 - c2t)*(-1 + logb1))/t1 +
1689  - 0.25d0*(b2*(1 - c2b)*(1 - c2t)*(-1 + logb2))/t1 +
1690  - 0.25d0*((1 + nc)*s2t**2*
1691  - (8*(-1 + logt1) + 2*(-1 + logt1)**2 +
1692  - (2/t1**2 - (2*(-1 + logt1))/t1**2)*t1**2))) -
1693  - 0.5d0*(((4*b2*(logb2 - logt1))/((1 - b2/t1)*t1**2) + 8/t1 -
1694  - (4*logt1)/t1 -
1695  - 2*((b2**2*(logb2 - logt1))/((1 - b2/t1)**2*t1**4.0d0) +
1696  - b2/((1 - b2/t1)*t1**3.0d0) +
1697  - (2*b2*(logb2 - logt1))/((1 - b2/t1)*t1**3.0d0))*
1698  - (-b2 + t1) - (-2*b2*logb2 + 4*t1)/t1**2 +
1699  - (b2 - t1)*tmp17)*tmp185) -
1700  - 0.5d0*(((4*b1*(logb1 - logt1))/((1 - b1/t1)*t1**2) + 8/t1 -
1701  - (4*logt1)/t1 -
1702  - 2*((b1**2*(logb1 - logt1))/((1 - b1/t1)**2*t1**4.0d0) +
1703  - b1/((1 - b1/t1)*t1**3.0d0) +
1704  - (2*b1*(logb1 - logt1))/((1 - b1/t1)*t1**3.0d0))*
1705  - (-b1 + t1) - (-2*b1*logb1 + 4*t1)/t1**2 +
1706  - (b1 - t1)*tmp17)*tmp186) -
1707  - tmp194*(2/t1 - loga0/t1 - logb1/t1 -
1708  - 0.5d0*(logb1*(a0 - b1 - t1))/t1**2 -
1709  - 0.5d0*(loga0*(-a0 + b1 - t1))/t1**2 -
1710  - 0.5d0*((2*b1*phia0b1t1)/t1 +
1711  - 4*(-a0 - b1 + t1)*
1712  - ((b1*phia0b1t1*(a0 + b1 - t1))/(delta0b1t1*t1) +
1713  - (b1*tmp81)/(delta0b1t1*t1)) +
1714  - delta0b1t1*
1715  - ((b1*(2 - loga0 - logb1 + 2*logt1))/
1716  - (delta0b1t1*t1) -
1717  - (b1*phia0b1t1)/(delta0b1t1*t1) -
1718  - (2*b1*phia0b1t1*(a0 + b1 - t1)*(-a0 - b1 + t1))/
1719  - (delta0b1t1**2*t1) -
1720  - (b1*tmp81)/(delta0b1t1*t1**2) -
1721  - (2*b1*(-a0 - b1 + t1)*tmp81)/
1722  - (delta0b1t1**2*t1) +
1723  - ((a0 + b1 - t1)*
1724  - ((b1*phia0b1t1*(a0 + b1 - t1))/
1725  - (delta0b1t1*t1) +
1726  - (b1*tmp81)/(delta0b1t1*t1)))/delta0b1t1))/
1727  - b1)
1728  dt1t1 = dt1t1 - tmp193*
1729  - (2/t1 - loga0/t1 - logb2/t1 -
1730  - 0.5d0*(logb2*(a0 - b2 - t1))/t1**2 -
1731  - 0.5d0*(loga0*(-a0 + b2 - t1))/t1**2 -
1732  - 0.5d0*((2*b2*phia0b2t1)/t1 +
1733  - 4*(-a0 - b2 + t1)*
1734  - ((b2*phia0b2t1*(a0 + b2 - t1))/(delta0b2t1*t1) +
1735  - (b2*tmp82)/(delta0b2t1*t1)) +
1736  - delta0b2t1*
1737  - ((b2*(2 - loga0 - logb2 + 2*logt1))/
1738  - (delta0b2t1*t1) -
1739  - (b2*phia0b2t1)/(delta0b2t1*t1) -
1740  - (2*b2*phia0b2t1*(a0 + b2 - t1)*(-a0 - b2 + t1))/
1741  - (delta0b2t1**2*t1) -
1742  - (b2*tmp82)/(delta0b2t1*t1**2) -
1743  - (2*b2*(-a0 - b2 + t1)*tmp82)/
1744  - (delta0b2t1**2*t1) +
1745  - ((a0 + b2 - t1)*
1746  - ((b2*phia0b2t1*(a0 + b2 - t1))/
1747  - (delta0b2t1*t1) +
1748  - (b2*tmp82)/(delta0b2t1*t1)))/delta0b2t1))/
1749  - b2) + tmp62*(-((b*(-1 + logb))/t1) -
1750  - ((-1 + logmu2)*mu2)/t1 - (-b - mu2 + t1)*tmp244 +
1751  - 2*(0.5d0 - 2*logt1 + (phit1bmu2*(-b - mu2 + t1))/mu2 -
1752  - 0.5d0*(logb*logmu2) + 0.5d0*(logb*logt1) +
1753  - 0.5d0*(logmu2*logt1) -
1754  - 0.5d0*(logmu2*(b - mu2 - t1))/t1 -
1755  - 0.5d0*(logb*(-b + mu2 - t1))/t1 +
1756  - 0.5d0*(deltt1bmu2*
1757  - ((phit1bmu2*(b + mu2 - t1))/deltt1bmu2 +
1758  - (mu2*tmp83)/(deltt1bmu2*t1)))/mu2))
1759  dt1t1 = dt1t1 + ht**2*
1760  - (-(((-1 + logmu2)*mu2)/t1) - ((-1 + logt)*t)/t1 +
1761  - 2*(0.5d0 - 2*logt1 + (phimu2tt1*(-mu2 - t + t1))/t1 -
1762  - 0.5d0*(logmu2*logt) + 0.5d0*(logmu2*logt1) +
1763  - 0.5d0*(logt*logt1) - 0.5d0*(logt*(mu2 - t - t1))/t1 -
1764  - 0.5d0*(logmu2*(-mu2 + t - t1))/t1 +
1765  - 0.5d0*(deltmu2tt1*
1766  - ((mu2*phimu2tt1*(mu2 + t - t1))/
1767  - (deltmu2tt1*t1) + (mu2*tmp84)/(deltmu2tt1*t1)
1768  - ))/mu2) -
1769  - (-mu2 - t + t1)*
1770  - (2/t1 - logmu2/t1 - logt/t1 -
1771  - 0.5d0*(logt*(mu2 - t - t1))/t1**2 -
1772  - 0.5d0*(logmu2*(-mu2 + t - t1))/t1**2 -
1773  - 0.5d0*((2*mu2*phimu2tt1)/t1 +
1774  - 4*(-mu2 - t + t1)*
1775  - ((mu2*phimu2tt1*(mu2 + t - t1))/
1776  - (deltmu2tt1*t1) +
1777  - (mu2*tmp84)/(deltmu2tt1*t1)) +
1778  - deltmu2tt1*
1779  - (((2 - logmu2 - logt + 2*logt1)*mu2)/
1780  - (deltmu2tt1*t1) -
1781  - (mu2*phimu2tt1)/(deltmu2tt1*t1) -
1782  - (2*mu2*phimu2tt1*(mu2 + t - t1)*
1783  - (-mu2 - t + t1))/(deltmu2tt1**2*t1) -
1784  - (mu2*tmp84)/(deltmu2tt1*t1**2) -
1785  - (2*mu2*(-mu2 - t + t1)*tmp84)/
1786  - (deltmu2tt1**2*t1) +
1787  - ((mu2 + t - t1)*
1788  - ((mu2*phimu2tt1*(mu2 + t - t1))/
1789  - (deltmu2tt1*t1) +
1790  - (mu2*tmp84)/(deltmu2tt1*t1)))/deltmu2tt1
1791  - ))/mu2))
1792  dt1t1 = dt1t1 - 0.25d0*
1793  - (ht**2*((1 + c2t**2)*sbe**2*
1794  - (8/t1 - (4*logt1)/t1 - (4*t1 - 2*logt2*t2)/t1**2 +
1795  - (4*(-logt1 + logt2)*t2)/(t1**2*(1 - t2/t1)) -
1796  - 2*(t1 - t2)*
1797  - (((-logt1 + logt2)*t2**2)/
1798  - (t1**4.0d0*(1 - t2/t1)**2) +
1799  - t2/(t1**3.0d0*(1 - t2/t1)) +
1800  - (2*(-logt1 + logt2)*t2)/(t1**3.0d0*(1 - t2/t1))) +
1801  - (-t1 + t2)*tmp17)*xt**2 +
1802  - 0.5d0*(sbe**2*(4/t1 + (2*(2 - 2*logt1))/t1 -
1803  - (2*logt1)/t1 - (4*t1 - 2*logt1*t1)/t1**2)*tmp35)
1804  - + cbe**2*tmp51*
1805  - (-((delta0t1t1*phia0t1t1)/t1**3.0d0) +
1806  - (a0*loga0)/t1**2 + 4/t1 - (4*logt1)/t1 +
1807  - (-4*a0*phia0t1t1 +
1808  - delta0t1t1*
1809  - ((a0*phia0t1t1)/delta0t1t1 +
1810  - (phia0t1t1*tmp178)/delta0t1t1 +
1811  - tmp80/delta0t1t1 + tmp87/delta0t1t1))/t1**2+
1812  - 0.5d0*((a0 - 2*t1)*tmp17) -
1813  - 0.5d0*(-8*a0*
1814  - ((a0*phia0t1t1)/delta0t1t1 +
1815  - (phia0t1t1*tmp178)/delta0t1t1 +
1816  - tmp80/delta0t1t1 + tmp87/delta0t1t1) +
1817  - delta0t1t1*
1818  - ((4*a0**2*phia0t1t1)/delta0t1t1**2 +
1819  - (phia0t1t1*
1820  - (-1 - (a0 - t1)**2/t1**2 -
1821  - (2*(a0 - t1))/t1))/delta0t1t1 +
1822  - (1 + (a0 - t1)/t1)/delta0t1t1 +
1823  - (1 - (-a0 + t1)/t1)/delta0t1t1 +
1824  - (4*a0*phia0t1t1*tmp178)/delta0t1t1**2 +
1825  - (4*a0*tmp80)/delta0t1t1**2 +
1826  - (4*a0*tmp87)/delta0t1t1**2 +
1827  - (a0*
1828  - ((a0*phia0t1t1)/delta0t1t1 +
1829  - (phia0t1t1*tmp178)/delta0t1t1 +
1830  - tmp80/delta0t1t1 + tmp87/delta0t1t1))/
1831  - delta0t1t1 +
1832  - (tmp178*
1833  - ((a0*phia0t1t1)/delta0t1t1 +
1834  - (phia0t1t1*tmp178)/delta0t1t1 +
1835  - tmp80/delta0t1t1 + tmp87/delta0t1t1))/
1836  - delta0t1t1))/t1) +
1837  - 2*(1 + c2t**2)*cbe**2*yt**2*
1838  - (2/t1 - loga0/t1 - logt2/t1 -
1839  - 0.5d0*(logt2*(a0 - t1 - t2))/t1**2 -
1840  - 0.5d0*(loga0*(-a0 - t1 + t2))/t1**2 -
1841  - 0.5d0*(2*phia0t1t2 +
1842  - 4*(-a0 + t1 - t2)*
1843  - ((phia0t1t2*(a0 - t1 + t2))/delta0t1t2 +
1844  - (t2*tmp96)/(delta0t1t2*t1)) +
1845  - delta0t1t2*
1846  - (-(phia0t1t2/delta0t1t2) +
1847  - ((2 - loga0 + 2*logt1 - logt2)*t2)/
1848  - (delta0t1t2*t1) -
1849  - (2*phia0t1t2*(-a0 + t1 - t2)*
1850  - (a0 - t1 + t2))/delta0t1t2**2 -
1851  - (t2*tmp96)/(delta0t1t2*t1**2) -
1852  - (2*(-a0 + t1 - t2)*t2*tmp96)/
1853  - (delta0t1t2**2*t1) +
1854  - ((a0 - t1 + t2)*
1855  - ((phia0t1t2*(a0 - t1 + t2))/
1856  - delta0t1t2 + (t2*tmp96)/(delta0t1t2*t1)
1857  - ))/delta0t1t2))/t2)))
1858  dt2t2 = hb**2*(0.25d0*
1859  - (b1*(1 - c2b)*(1 - c2t)*(-1 + logb1))/t2 +
1860  - 0.25d0*(b2*(1 + c2b)*(1 - c2t)*(-1 + logb2))/t2 +
1861  - 0.5d0*(a0*(1 - c2t)*(-1 + loga0)*sbe**2)/t2) +
1862  - ht**2*(-(((-1 + logmu2)*mu2)/t2) - ((-1 + logt)*t)/t2 +
1863  - 2*(0.5d0 - 2*logt2 + (phimu2tt2*(-mu2 - t + t2))/t2 -
1864  - 0.5d0*(logmu2*logt) + 0.5d0*(logmu2*logt2) +
1865  - 0.5d0*(logt*logt2) - 0.5d0*(logt*(mu2 - t - t2))/t2 -
1866  - 0.5d0*(logmu2*(-mu2 + t - t2))/t2 +
1867  - 0.5d0*(deltmu2tt2*
1868  - ((mu2*phimu2tt2*(mu2 + t - t2))/
1869  - (deltmu2tt2*t2) +
1870  - (mu2*tmp103)/(deltmu2tt2*t2)))/mu2) -
1871  - (-mu2 - t + t2)*
1872  - (2/t2 - logmu2/t2 - logt/t2 -
1873  - 0.5d0*(logt*(mu2 - t - t2))/t2**2 -
1874  - 0.5d0*(logmu2*(-mu2 + t - t2))/t2**2 -
1875  - 0.5d0*((2*mu2*phimu2tt2)/t2 +
1876  - 4*(-mu2 - t + t2)*
1877  - ((mu2*phimu2tt2*(mu2 + t - t2))/
1878  - (deltmu2tt2*t2) +
1879  - (mu2*tmp103)/(deltmu2tt2*t2)) +
1880  - deltmu2tt2*
1881  - (((2 - logmu2 - logt + 2*logt2)*mu2)/
1882  - (deltmu2tt2*t2) -
1883  - (mu2*phimu2tt2)/(deltmu2tt2*t2) -
1884  - (2*mu2*phimu2tt2*(mu2 + t - t2)*
1885  - (-mu2 - t + t2))/(deltmu2tt2**2*t2) -
1886  - (mu2*tmp103)/(deltmu2tt2*t2**2) -
1887  - (2*mu2*(-mu2 - t + t2)*tmp103)/
1888  - (deltmu2tt2**2*t2) +
1889  - ((mu2 + t - t2)*
1890  - ((mu2*phimu2tt2*(mu2 + t - t2))/
1891  - (deltmu2tt2*t2) +
1892  - (mu2*tmp103)/(deltmu2tt2*t2)))/
1893  - deltmu2tt2))/mu2)) -
1894  - 0.5d0*(((4*b2*(logb2 - logt2))/((1 - b2/t2)*t2**2) + 8/t2 -
1895  - (4*logt2)/t2 -
1896  - 2*((b2**2*(logb2 - logt2))/((1 - b2/t2)**2*t2**4.0d0) +
1897  - b2/((1 - b2/t2)*t2**3.0d0) +
1898  - (2*b2*(logb2 - logt2))/((1 - b2/t2)*t2**3.0d0))*
1899  - (-b2 + t2) - (-2*b2*logb2 + 4*t2)/t2**2 +
1900  - (b2 - t2)*tmp18)*tmp189) -
1901  - 0.5d0*(((4*b1*(logb1 - logt2))/((1 - b1/t2)*t2**2) + 8/t2 -
1902  - (4*logt2)/t2 -
1903  - 2*((b1**2*(logb1 - logt2))/((1 - b1/t2)**2*t2**4.0d0) +
1904  - b1/((1 - b1/t2)*t2**3.0d0) +
1905  - (2*b1*(logb1 - logt2))/((1 - b1/t2)*t2**3.0d0))*
1906  - (-b1 + t2) - (-2*b1*logb1 + 4*t2)/t2**2 +
1907  - (b1 - t2)*tmp18)*tmp190)
1908  dt2t2 = dt2t2 - tmp198*
1909  - (2/t2 - loga0/t2 - logb1/t2 -
1910  - 0.5d0*(logb1*(a0 - b1 - t2))/t2**2 -
1911  - 0.5d0*(loga0*(-a0 + b1 - t2))/t2**2 -
1912  - 0.5d0*((2*b1*phia0b1t2)/t2 +
1913  - 4*(-a0 - b1 + t2)*
1914  - ((b1*phia0b1t2*(a0 + b1 - t2))/(delta0b1t2*t2) +
1915  - (b1*tmp100)/(delta0b1t2*t2)) +
1916  - delta0b1t2*
1917  - ((b1*(2 - loga0 - logb1 + 2*logt2))/
1918  - (delta0b1t2*t2) -
1919  - (b1*phia0b1t2)/(delta0b1t2*t2) -
1920  - (2*b1*phia0b1t2*(a0 + b1 - t2)*(-a0 - b1 + t2))/
1921  - (delta0b1t2**2*t2) -
1922  - (b1*tmp100)/(delta0b1t2*t2**2) -
1923  - (2*b1*(-a0 - b1 + t2)*tmp100)/
1924  - (delta0b1t2**2*t2) +
1925  - ((a0 + b1 - t2)*
1926  - ((b1*phia0b1t2*(a0 + b1 - t2))/
1927  - (delta0b1t2*t2) +
1928  - (b1*tmp100)/(delta0b1t2*t2)))/delta0b1t2))/
1929  - b1) - tmp197*
1930  - (2/t2 - loga0/t2 - logb2/t2 -
1931  - 0.5d0*(logb2*(a0 - b2 - t2))/t2**2 -
1932  - 0.5d0*(loga0*(-a0 + b2 - t2))/t2**2 -
1933  - 0.5d0*((2*b2*phia0b2t2)/t2 +
1934  - 4*(-a0 - b2 + t2)*
1935  - ((b2*phia0b2t2*(a0 + b2 - t2))/(delta0b2t2*t2) +
1936  - (b2*tmp101)/(delta0b2t2*t2)) +
1937  - delta0b2t2*
1938  - ((b2*(2 - loga0 - logb2 + 2*logt2))/
1939  - (delta0b2t2*t2) -
1940  - (b2*phia0b2t2)/(delta0b2t2*t2) -
1941  - (2*b2*phia0b2t2*(a0 + b2 - t2)*(-a0 - b2 + t2))/
1942  - (delta0b2t2**2*t2) -
1943  - (b2*tmp101)/(delta0b2t2*t2**2) -
1944  - (2*b2*(-a0 - b2 + t2)*tmp101)/
1945  - (delta0b2t2**2*t2) +
1946  - ((a0 + b2 - t2)*
1947  - ((b2*phia0b2t2*(a0 + b2 - t2))/
1948  - (delta0b2t2*t2) +
1949  - (b2*tmp101)/(delta0b2t2*t2)))/delta0b2t2))/
1950  - b2) + tmp63*(-((b*(-1 + logb))/t2) -
1951  - ((-1 + logmu2)*mu2)/t2 + 2*tmp225 -
1952  - (-b - mu2 + t2)*
1953  - (2/t2 - logb/t2 - logmu2/t2 -
1954  - 0.5d0*(logmu2*(b - mu2 - t2))/t2**2 -
1955  - 0.5d0*(logb*(-b + mu2 - t2))/t2**2 -
1956  - 0.5d0*(2*phit2bmu2 +
1957  - 4*(-b - mu2 + t2)*
1958  - ((phit2bmu2*(b + mu2 - t2))/deltt2bmu2 +
1959  - (mu2*tmp102)/(deltt2bmu2*t2)) +
1960  - deltt2bmu2*tmp226)/mu2)) -
1961  - 2*hb*ht*mb*mu*s2t*
1962  - (-2/t2 + logb/t2 + logmu2/t2 +
1963  - 0.5d0*(logmu2*(b - mu2 - t2))/t2**2 +
1964  - 0.5d0*(logb*(-b + mu2 - t2))/t2**2 +
1965  - 0.5d0*(2*phit2bmu2 +
1966  - 4*(-b - mu2 + t2)*
1967  - ((phit2bmu2*(b + mu2 - t2))/deltt2bmu2 +
1968  - (mu2*tmp102)/(deltt2bmu2*t2)) +
1969  - deltt2bmu2*tmp226)/mu2)
1970  dt2t2 = dt2t2 + ht**2*
1971  - (((-1 + logt1)*t1*tmp8)/t2 +
1972  - (a0*cbe**2*(-1 + loga0)*(1 + 0.5d0*(1 + c2t)))/t2 +
1973  - 0.25d0*(b1*(1 + c2b)*(1 + c2t)*(-1 + logb1))/t2 +
1974  - 0.25d0*(b2*(1 - c2b)*(1 + c2t)*(-1 + logb2))/t2 +
1975  - 0.25d0*((1 + nc)*s2t**2*
1976  - (8*(-1 + logt2) + 2*(-1 + logt2)**2 +
1977  - (2/t2**2 - (2*(-1 + logt2))/t2**2)*t2**2)))
1978  dt2t2 = dt2t2 - 0.25d0*
1979  - (ht**2*((1 + c2t**2)*sbe**2*
1980  - (4/t2 - (2*logt1)/t2 +
1981  - (4*(-logt1 + logt2))/(t1*(1 - t2/t1)) -
1982  - 2*(t1 - t2)*
1983  - ((-logt1 + logt2)/(t1**2*(1 - t2/t1)**2) +
1984  - 1/(t1*t2*(1 - t2/t1))))*xt**2 +
1985  - 2*(1 + c2t**2)*cbe**2*yt**2*
1986  - (-((delta0t1t2*phia0t1t2)/t2**3.0d0) + 2/t2 -
1987  - loga0/t2 - logt1/t2 +
1988  - (2*phia0t1t2*(-a0 - t1 + t2) +
1989  - delta0t1t2*
1990  - (tmp104/delta0t1t2 +
1991  - (phia0t1t2*tmp179)/delta0t1t2))/t2**2 -
1992  - 0.5d0*(logt1*(a0 - t1 - t2))/t2**2 -
1993  - 0.5d0*(loga0*(-a0 + t1 - t2))/t2**2 -
1994  - 0.5d0*(2*phia0t1t2 +
1995  - 4*(-a0 - t1 + t2)*
1996  - (tmp104/delta0t1t2 +
1997  - (phia0t1t2*tmp179)/delta0t1t2) +
1998  - delta0t1t2*
1999  - ((2 - loga0 - logt1 + 2*logt2)/delta0t1t2 -
2000  - (phia0t1t2*(a0 - t1)**2)/
2001  - (delta0t1t2*t2**2) -
2002  - (2*(-a0 - t1 + t2)*tmp104)/delta0t1t2**2 -
2003  - (2*phia0t1t2*(-a0 - t1 + t2)*tmp179)/
2004  - delta0t1t2**2 +
2005  - (tmp179*
2006  - (tmp104/delta0t1t2 +
2007  - (phia0t1t2*tmp179)/delta0t1t2))/
2008  - delta0t1t2))/t2) +
2009  - 0.5d0*(sbe**2*(4/t2 + (2*(2 - 2*logt2))/t2 -
2010  - (2*logt2)/t2 - (4*t2 - 2*logt2*t2)/t2**2)*tmp34)
2011  - + cbe**2*tmp50*
2012  - (-((delta0t2t2*phia0t2t2)/t2**3.0d0) +
2013  - (a0*loga0)/t2**2 + 4/t2 - (4*logt2)/t2 +
2014  - (-4*a0*phia0t2t2 +
2015  - delta0t2t2*
2016  - ((a0*phia0t2t2)/delta0t2t2 +
2017  - tmp107/delta0t2t2 +
2018  - (phia0t2t2*tmp182)/delta0t2t2 +
2019  - tmp99/delta0t2t2))/t2**2 +
2020  - 0.5d0*((a0 - 2*t2)*tmp18) -
2021  - 0.5d0*(-8*a0*
2022  - ((a0*phia0t2t2)/delta0t2t2 +
2023  - tmp107/delta0t2t2 +
2024  - (phia0t2t2*tmp182)/delta0t2t2 +
2025  - tmp99/delta0t2t2) +
2026  - delta0t2t2*
2027  - ((4*a0**2*phia0t2t2)/delta0t2t2**2 +
2028  - (phia0t2t2*
2029  - (-1 - (a0 - t2)**2/t2**2 -
2030  - (2*(a0 - t2))/t2))/delta0t2t2 +
2031  - (1 + (a0 - t2)/t2)/delta0t2t2 +
2032  - (1 - (-a0 + t2)/t2)/delta0t2t2 +
2033  - (4*a0*tmp107)/delta0t2t2**2 +
2034  - (4*a0*phia0t2t2*tmp182)/delta0t2t2**2 +
2035  - (4*a0*tmp99)/delta0t2t2**2 +
2036  - (a0*
2037  - ((a0*phia0t2t2)/delta0t2t2 +
2038  - tmp107/delta0t2t2 +
2039  - (phia0t2t2*tmp182)/delta0t2t2 +
2040  - tmp99/delta0t2t2))/delta0t2t2 +
2041  - (tmp182*
2042  - ((a0*phia0t2t2)/delta0t2t2 +
2043  - tmp107/delta0t2t2 +
2044  - (phia0t2t2*tmp182)/delta0t2t2 +
2045  - tmp99/delta0t2t2))/delta0t2t2))/t2)))
2046  tmp245 = (2*(-1 + logmu2)*mu2)/t - ((-1 + logt1)*t1)/t -
2047  - ((-1 + logt2)*t2)/t + 2*tmp228 + 2*tmp243 +
2048  - sbe**2*(8*(-1 + logt) + 2*(-1 + logt)**2 +
2049  - t*(4/t + (2*(2 - 2*logt))/t - (2*logt)/t -
2050  - (4*t - 2*logt*t)/t**2) + t**2*tmp15 + 2*tmp77) -
2051  - (-mu2 - t + t2)*(2/t - logmu2/t - logt2/t -
2052  - 0.5d0*(logt2*(mu2 - t - t2))/t**2 -
2053  - 0.5d0*(logmu2*(-mu2 - t + t2))/t**2 -
2054  - 0.5d0*((2*mu2*phimu2tt2)/t2 +
2055  - 4*(-mu2 + t - t2)*
2056  - ((mu2*phimu2tt2*(mu2 - t + t2))/(deltmu2tt2*t2) +
2057  - (mu2*tmp111)/(deltmu2tt2*t)) +
2058  - deltmu2tt2*
2059  - (((2 - logmu2 + 2*logt - logt2)*mu2)/
2060  - (deltmu2tt2*t) -
2061  - (mu2*phimu2tt2)/(deltmu2tt2*t2) -
2062  - (2*mu2*phimu2tt2*(-mu2 + t - t2)*
2063  - (mu2 - t + t2))/(deltmu2tt2**2*t2) -
2064  - (mu2*tmp111)/(deltmu2tt2*t**2) -
2065  - (2*mu2*(-mu2 + t - t2)*tmp111)/
2066  - (deltmu2tt2**2*t) +
2067  - ((mu2 - t + t2)*
2068  - ((mu2*phimu2tt2*(mu2 - t + t2))/
2069  - (deltmu2tt2*t2) +
2070  - (mu2*tmp111)/(deltmu2tt2*t)))/deltmu2tt2))/
2071  - mu2) + cbe**2*
2072  - (8*(-1 + logt) + 2*(-1 + logt)**2 -
2073  - (2*a0*(-1 + loga0))/t + t**2*tmp15 +
2074  - 4*(-1 + 4*logt - logt**2 - (a0*loga0)/t +
2075  - (2*a0*phia0tt)/t + (logt*(a0 - 2*t))/t +
2076  - 0.5d0*(delta0tt*phia0tt)/t**2 -
2077  - 0.5d0*(delta0tt*
2078  - ((a0*phia0tt)/delta0tt +
2079  - (phia0tt*tmp175)/delta0tt + tmp65/delta0tt +
2080  - tmp70/delta0tt))/t) -
2081  - (a0 - 2*t)*(-((delta0tt*phia0tt)/t**3.0d0) +
2082  - (a0*loga0)/t**2 + 4/t - (4*logt)/t +
2083  - (-4*a0*phia0tt +
2084  - delta0tt*
2085  - ((a0*phia0tt)/delta0tt +
2086  - (phia0tt*tmp175)/delta0tt + tmp65/delta0tt +
2087  - tmp70/delta0tt))/t**2 +
2088  - 0.5d0*((a0 - 2*t)*tmp16) -
2089  - 0.5d0*(-8*a0*((a0*phia0tt)/delta0tt +
2090  - (phia0tt*tmp175)/delta0tt + tmp65/delta0tt +
2091  - tmp70/delta0tt) +
2092  - delta0tt*
2093  - ((4*a0**2*phia0tt)/delta0tt**2 +
2094  - (phia0tt*
2095  - (-1 - (a0 - t)**2/t**2 - (2*(a0 - t))/t))/
2096  - delta0tt + (1 + (a0 - t)/t)/delta0tt +
2097  - (1 - (-a0 + t)/t)/delta0tt +
2098  - (4*a0*phia0tt*tmp175)/delta0tt**2 +
2099  - (4*a0*tmp65)/delta0tt**2 +
2100  - (4*a0*tmp70)/delta0tt**2 +
2101  - (a0*((a0*phia0tt)/delta0tt +
2102  - (phia0tt*tmp175)/delta0tt +
2103  - tmp65/delta0tt + tmp70/delta0tt))/
2104  - delta0tt +
2105  - (tmp175*
2106  - ((a0*phia0tt)/delta0tt +
2107  - (phia0tt*tmp175)/delta0tt +
2108  - tmp65/delta0tt + tmp70/delta0tt))/
2109  - delta0tt))/t))
2110  tmp245 = tmp245 -
2111  - (-mu2 - t + t1)*(2/t - logmu2/t - logt1/t -
2112  - 0.5d0*(logt1*(mu2 - t - t1))/t**2 -
2113  - 0.5d0*(logmu2*(-mu2 - t + t1))/t**2 -
2114  - 0.5d0*((2*mu2*phimu2tt1)/t1 +
2115  - 4*(-mu2 + t - t1)*
2116  - ((mu2*phimu2tt1*(mu2 - t + t1))/(deltmu2tt1*t1) +
2117  - (mu2*tmp91)/(deltmu2tt1*t)) +
2118  - deltmu2tt1*
2119  - (((2 - logmu2 + 2*logt - logt1)*mu2)/
2120  - (deltmu2tt1*t) -
2121  - (mu2*phimu2tt1)/(deltmu2tt1*t1) -
2122  - (2*mu2*phimu2tt1*(-mu2 + t - t1)*
2123  - (mu2 - t + t1))/(deltmu2tt1**2*t1) -
2124  - (mu2*tmp91)/(deltmu2tt1*t**2) -
2125  - (2*mu2*(-mu2 + t - t1)*tmp91)/
2126  - (deltmu2tt1**2*t) +
2127  - ((mu2 - t + t1)*
2128  - ((mu2*phimu2tt1*(mu2 - t + t1))/
2129  - (deltmu2tt1*t1) +
2130  - (mu2*tmp91)/(deltmu2tt1*t)))/deltmu2tt1))/
2131  - mu2)
2132  dtt = ht**2*tmp245 +
2133  - tmp10*(-5 - 2*li2bt + 4*logt - logt**2 +
2134  - (b*(-1 + logb))/t + (2*logt*(b - t))/t +
2135  - (2*b*(logb - logt)*(-b + t))/((1 - b/t)*t**2) +
2136  - (-2*b*logb + 4*t)/t +
2137  - 0.5d0*((b + t)*((4*b*(logb - logt))/((1 - b/t)*t**2) +
2138  - 8/t - (4*logt)/t - (-2*b*logb + 4*t)/t**2 +
2139  - (b - t)*tmp16 - 2*(-b + t)*tmp207))) +
2140  - tmp61*(-((b1*(-1 + logb1))/t) + ((-1 + logmu2)*mu2)/t +
2141  - 2*tmp231 - (b1 - mu2 - t)*
2142  - (2/t - logb1/t - logmu2/t -
2143  - 0.5d0*(logmu2*(b1 - mu2 - t))/t**2 -
2144  - 0.5d0*(logb1*(-b1 + mu2 - t))/t**2 -
2145  - 0.5d0*(2*phib1tmu2 + deltb1tmu2*tmp232 +
2146  - 4*(-b1 - mu2 + t)*
2147  - ((phib1tmu2*(b1 + mu2 - t))/deltb1tmu2 +
2148  - (mu2*tmp67)/(deltb1tmu2*t)))/mu2)) +
2149  - tmp60*(-((b2*(-1 + logb2))/t) + ((-1 + logmu2)*mu2)/t +
2150  - 2*tmp234 - (b2 - mu2 - t)*
2151  - (2/t - logb2/t - logmu2/t -
2152  - 0.5d0*(logmu2*(b2 - mu2 - t))/t**2 -
2153  - 0.5d0*(logb2*(-b2 + mu2 - t))/t**2 -
2154  - 0.5d0*(2*phib2tmu2 + deltb2tmu2*tmp236 +
2155  - 4*(-b2 - mu2 + t)*
2156  - ((phib2tmu2*(b2 + mu2 - t))/deltb2tmu2 +
2157  - (mu2*tmp68)/(deltb2tmu2*t)))/mu2)) -
2158  - 2*hb*ht*mu*s2b*(tmp235/mt +
2159  - mt*(-(logb1/t) + logb2/t -
2160  - 0.5d0*(logmu2*(b1 - mu2 - t))/t**2 +
2161  - 0.5d0*(logmu2*(b2 - mu2 - t))/t**2 -
2162  - 0.5d0*(logb1*(-b1 + mu2 - t))/t**2 +
2163  - 0.5d0*(logb2*(-b2 + mu2 - t))/t**2 -
2164  - 0.5d0*(2*phib1tmu2 + deltb1tmu2*tmp232 +
2165  - 4*(-b1 - mu2 + t)*
2166  - ((phib1tmu2*(b1 + mu2 - t))/deltb1tmu2 +
2167  - (mu2*tmp67)/(deltb1tmu2*t)))/mu2 +
2168  - 0.5d0*(2*phib2tmu2 + deltb2tmu2*tmp236 +
2169  - 4*(-b2 - mu2 + t)*
2170  - ((phib2tmu2*(b2 + mu2 - t))/deltb2tmu2 +
2171  - (mu2*tmp68)/(deltb2tmu2*t)))/mu2) -
2172  - 0.25d0*tmp75/t**1.5d0)
2173  dtt = dtt + tmp9*
2174  - (-((a0*(-1 + loga0))/t) + (b*(-1 + logb))/t + 2*tmp229 -
2175  - (a0 - b - t)*(2/t - loga0/t - logb/t -
2176  - 0.5d0*(logb*(a0 - b - t))/t**2 -
2177  - 0.5d0*(loga0*(-a0 + b - t))/t**2 -
2178  - 0.5d0*((2*b*phia0bt)/t + delta0bt*tmp230 +
2179  - 4*(-a0 - b + t)*
2180  - ((b*phia0bt*(a0 + b - t))/(delta0bt*t) +
2181  - (b*tmp66)/(delta0bt*t)))/b)) -
2182  - 4*cbe*hb*ht*mb*sbe*
2183  - ((0.5d0 - 2*logt + (phia0bt*(-a0 - b + t))/t -
2184  - 0.5d0*(loga0*logb) + 0.5d0*(loga0*logt) +
2185  - 0.5d0*(logb*logt) - 0.5d0*(logb*(a0 - b - t))/t -
2186  - 0.5d0*(loga0*(-a0 + b - t))/t + 0.5d0*tmp210 +
2187  - 0.5d0*(delta0bt*
2188  - ((b*phia0bt*(a0 + b - t))/(delta0bt*t) +
2189  - (b*tmp66)/(delta0bt*t)))/b)/mt +
2190  - mt*(-2/t + loga0/t + logb/t +
2191  - 0.5d0*(logb*(a0 - b - t))/t**2 +
2192  - 0.5d0*(loga0*(-a0 + b - t))/t**2 +
2193  - 0.5d0*((4*b*(logb - logt))/((1 - b/t)*t**2) + 8/t -
2194  - (4*logt)/t - (-2*b*logb + 4*t)/t**2 +
2195  - (b - t)*tmp16 - 2*(-b + t)*tmp207) +
2196  - 0.5d0*((2*b*phia0bt)/t + delta0bt*tmp230 +
2197  - 4*(-a0 - b + t)*
2198  - ((b*phia0bt*(a0 + b - t))/(delta0bt*t) +
2199  - (b*tmp66)/(delta0bt*t)))/b) -
2200  - 0.25d0*(-2*a0*loga0 - 2*b*logb - 2*logt*t -
2201  - 0.5d0*(logb*logt*(a0 - b - t)) -
2202  - 0.5d0*(loga0*logt*(-a0 + b - t)) +
2203  - 0.5d0*(delta0bt*phia0bt)/t -
2204  - 0.5d0*(loga0*logb*(-a0 - b + t)) +
2205  - 2.5d0*(a0 + b + t) + 0.5d0*tmp76)/t**1.5d0) +
2206  - 0.5d0*((-5*b2 + 4*b2*logb2 + logt1**2*(b2 - t1) - 5*t1 +
2207  - logt1*(-2*b2*logb2 + 4*t1) - 2*(-b2 + t1)*tmp170)*
2208  - (cbe*hb*ht*sbe*
2209  - (0.25d0*(s2b*tmp130)/t**1.5d0
2210  $ - 0.5d0*(mb*tmp56)/t**1.5d0)-
2211  - cbe**2*hb**2*
2212  - (0.125d0*(mb*s2b*s2t)/t**1.5d0 -
2213  - 0.125d0*((1 + c2b)*s2t*xb)/t**1.5d0) -
2214  - ht**2*sbe**2*
2215  - (0.125d0*(mb*s2b*s2t)/t**1.5d0 -
2216  - 0.125d0*((1 - c2b)*s2t*xt)/t**1.5d0)))
2217  dtt = dtt + tmp89*
2218  - (-(cbe*hb*ht*sbe*
2219  - (0.25d0*(s2b*tmp156)/t**1.5d0
2220  $ - 0.5d0*(mb*tmp56)/t**1.5d0))-
2221  - hb**2*sbe**2*
2222  - (0.125d0*(mb*s2b*s2t)/t**1.5d0 -
2223  - 0.125d0*((1 + c2b)*s2t*yb)/t**1.5d0) -
2224  - cbe**2*ht**2*(0.125d0*(mb*s2b*s2t)/t**1.5d0 -
2225  - 0.125d0*((1 - c2b)*s2t*yt)/t**1.5d0)) +
2226  - 0.5d0*((-5*b2 + 4*b2*logb2 + logt2**2*(b2 - t2) - 5*t2 +
2227  - logt2*(-2*b2*logb2 + 4*t2) - 2*(-b2 + t2)*tmp173)*
2228  - (cbe*hb*ht*sbe*
2229  - (0.25d0*(s2b*tmp131)/t**1.5d0
2230  $ - 0.5d0*(mb*tmp59)/t**1.5d0)-
2231  - cbe**2*hb**2*
2232  - (-(0.125d0*(mb*s2b*s2t)/t**1.5d0) +
2233  - 0.125d0*((1 + c2b)*s2t*xb)/t**1.5d0) -
2234  - ht**2*sbe**2*
2235  - (-(0.125d0*(mb*s2b*s2t)/t**1.5d0) +
2236  - 0.125d0*((1 - c2b)*s2t*xt)/t**1.5d0))) +
2237  - 0.5d0*((-5*b1 + 4*b1*logb1 + logt1**2*(b1 - t1) - 5*t1 +
2238  - logt1*(-2*b1*logb1 + 4*t1) - 2*(-b1 + t1)*tmp169)*
2239  - (cbe*hb*ht*sbe*
2240  - (-(0.25d0*(s2b*tmp130)/t**1.5d0) -
2241  - 0.5d0*(mb*tmp59)/t**1.5d0) -
2242  - cbe**2*hb**2*
2243  - (-(0.125d0*(mb*s2b*s2t)/t**1.5d0) -
2244  - 0.125d0*((1 - c2b)*s2t*xb)/t**1.5d0) -
2245  - ht**2*sbe**2*
2246  - (-(0.125d0*(mb*s2b*s2t)/t**1.5d0) -
2247  - 0.125d0*((1 + c2b)*s2t*xt)/t**1.5d0))) +
2248  - 0.5d0*((-5*b1 + 4*b1*logb1 + logt2**2*(b1 - t2) - 5*t2 +
2249  - logt2*(-2*b1*logb1 + 4*t2) - 2*(-b1 + t2)*tmp172)*
2250  - (cbe*hb*ht*sbe*
2251  - (-(0.25d0*(s2b*tmp131)/t**1.5d0) -
2252  - 0.5d0*(mb*tmp56)/t**1.5d0) -
2253  - cbe**2*hb**2*
2254  - (0.125d0*(mb*s2b*s2t)/t**1.5d0 +
2255  - 0.125d0*((1 - c2b)*s2t*xb)/t**1.5d0) -
2256  - ht**2*sbe**2*
2257  - (0.125d0*(mb*s2b*s2t)/t**1.5d0 +
2258  - 0.125d0*((1 + c2b)*s2t*xt)/t**1.5d0))) -
2259  - 0.25d0*(ht**2*((cbe**2*s2t*tmp114*yt)/t**1.5d0 -
2260  - (cbe**2*s2t*tmp93*yt)/t**1.5d0 +
2261  - 0.5d0*(s2t*sbe**2*tmp115*xt)/t**1.5d0 -
2262  - 0.5d0*(s2t*sbe**2*tmp94*xt)/t**1.5d0))
2263  dtt = dtt + tmp109*
2264  - (-(cbe*hb*ht*sbe*
2265  - (0.25d0*(s2b*tmp157)/t**1.5d0
2266  $ - 0.5d0*(mb*tmp59)/t**1.5d0))-
2267  - hb**2*sbe**2*
2268  - (-(0.125d0*(mb*s2b*s2t)/t**1.5d0) +
2269  - 0.125d0*((1 + c2b)*s2t*yb)/t**1.5d0) -
2270  - cbe**2*ht**2*(-(0.125d0*(mb*s2b*s2t)/t**1.5d0) +
2271  - 0.125d0*((1 - c2b)*s2t*yt)/t**1.5d0)) +
2272  - tmp88*(-(cbe*hb*ht*sbe*
2273  - (-(0.25d0*(s2b*tmp156)/t**1.5d0) -
2274  - 0.5d0*(mb*tmp59)/t**1.5d0)) -
2275  - hb**2*sbe**2*(-(0.125d0*(mb*s2b*s2t)/t**1.5d0) -
2276  - 0.125d0*((1 - c2b)*s2t*yb)/t**1.5d0) -
2277  - cbe**2*ht**2*(-(0.125d0*(mb*s2b*s2t)/t**1.5d0) -
2278  - 0.125d0*((1 + c2b)*s2t*yt)/t**1.5d0)) +
2279  - tmp108*(-(cbe*hb*ht*sbe*
2280  - (-(0.25d0*(s2b*tmp157)/t**1.5d0) -
2281  - 0.5d0*(mb*tmp56)/t**1.5d0)) -
2282  - hb**2*sbe**2*(0.125d0*(mb*s2b*s2t)/t**1.5d0 +
2283  - 0.125d0*((1 - c2b)*s2t*yb)/t**1.5d0) -
2284  - cbe**2*ht**2*(0.125d0*(mb*s2b*s2t)/t**1.5d0 +
2285  - 0.125d0*((1 + c2b)*s2t*yt)/t**1.5d0))
2286  dc2tc2t = (b*(-1 + logb)*(-1 + logmu2)*mu2 -
2287  - b*(-1 + logb)*(-1 + logt2)*t2 -
2288  - (-1 + logmu2)*(-1 + logt2)*mu2*t2 -
2289  - (-b - mu2 + t2)*tmp112)*
2290  - (0.125d0*hb**2/c2t**3.0d0 - 0.125d0*ht**2/c2t**3.0d0) +
2291  - (b*(-1 + logb)*(-1 + logmu2)*mu2 -
2292  - b*(-1 + logb)*(-1 + logt1)*t1 -
2293  - (-1 + logmu2)*(-1 + logt1)*mu2*t1 -
2294  - (-b - mu2 + t1)*tmp92)*
2295  - (-(0.125d0*hb**2/c2t**3.0d0) + 0.125d0*ht**2/c2t**3.0d0) +
2296  - ht**2*(0.0625d0*(b1*(1 + c2b)*(-1 + logb1)*(-1 + logt1)*t1)/
2297  - c2t**3.0d0 + 0.0625d0*
2298  - (b2*(1 - c2b)*(-1 + logb2)*(-1 + logt1)*t1)/c2t**3.0d0 +
2299  - cbe**2*(0.125d0*(a0*(-1 + loga0)*(-1 + logt1)*t1)/
2300  - c2t**3.0d0 - 0.125d0*
2301  - (a0*(-1 + loga0)*(-1 + logt2)*t2)/c2t**3.0d0) -
2302  - 0.0625d0*(b1*(1 + c2b)*(-1 + logb1)*(-1 + logt2)*t2)/
2303  - c2t**3.0d0 - 0.0625d0*
2304  - (b2*(1 - c2b)*(-1 + logb2)*(-1 + logt2)*t2)/c2t**3.0d0) +
2305  - hb**2*(-(0.0625d0*(b1*(1 - c2b)*(-1 + logb1)*(-1 + logt1)*
2306  - t1)/c2t**3.0d0) -
2307  - 0.0625d0*(b2*(1 + c2b)*(-1 + logb2)*(-1 + logt1)*t1)/
2308  - c2t**3.0d0 + sbe**2*
2309  - (-(0.125d0*(a0*(-1 + loga0)*(-1 + logt1)*t1)/c2t**3.0d0) +
2310  - 0.125d0*(a0*(-1 + loga0)*(-1 + logt2)*t2)/c2t**3.0d0) +
2311  - 0.0625d0*(b1*(1 - c2b)*(-1 + logb1)*(-1 + logt2)*t2)/
2312  - c2t**3.0d0 + 0.0625d0*
2313  - (b2*(1 + c2b)*(-1 + logb2)*(-1 + logt2)*t2)/c2t**3.0d0) +
2314  - 0.5d0*(hb*ht*mb*mu*tmp113)/s2t**3.0d0 +
2315  - 0.5d0*((-5*b2 + 4*b2*logb2 + logt2**2*(b2 - t2) - 5*t2 +
2316  - logt2*(-2*b2*logb2 + 4*t2) - 2*(-b2 + t2)*tmp173)*
2317  - (-(cbe**2*hb**2*
2318  - (0.0625d0*(b*(1 - c2b))/c2t**3.0d0 -
2319  - 0.125d0*(mb*mt*s2b)/s2t**3.0d0 -
2320  - 0.0625d0*((1 + c2b)*t)/c2t**3.0d0 -
2321  - 0.125d0*(mb*s2b*xb)/c2t**3.0d0 +
2322  - 0.125d0*((1 + c2b)*mt*xb)/s2t**3.0d0 +
2323  - 0.0625d0*((1 + c2b)*xb**2)/c2t**3.0d0)) +
2324  - cbe*hb*ht*sbe*
2325  - (-(mt*s2b*tmp25) + 2*mb*mt*tmp52 -
2326  - 0.125d0*(s2b*(b + t))/s2t**3.0d0 +
2327  - 0.25d0*(mb*tmp128)/s2t**3.0d0 - 0.125d0*(s2b*xb*xt)
2328  - /s2t**3.0d0
2329  - ) - ht**2*sbe**2*
2330  - (-(0.0625d0*(b*(1 + c2b))/c2t**3.0d0) -
2331  - 0.125d0*(mb*mt*s2b)/s2t**3.0d0 +
2332  - 0.0625d0*((1 - c2b)*t)/c2t**3.0d0 +
2333  - 0.125d0*(mb*s2b*xt)/c2t**3.0d0 +
2334  - 0.125d0*((1 - c2b)*mt*xt)/s2t**3.0d0 -
2335  - 0.0625d0*((1 - c2b)*xt**2)/c2t**3.0d0)))
2336  dc2tc2t = dc2tc2t +
2337  - 0.5d0*((-5*b2 + 4*b2*logb2 + logt1**2*(b2 - t1) - 5*t1 +
2338  - logt1*(-2*b2*logb2 + 4*t1) - 2*(-b2 + t1)*tmp170)*
2339  - (-(cbe**2*hb**2*
2340  - (-(0.0625d0*(b*(1 - c2b))/c2t**3.0d0) +
2341  - 0.125d0*(mb*mt*s2b)/s2t**3.0d0 +
2342  - 0.0625d0*((1 + c2b)*t)/c2t**3.0d0 +
2343  - 0.125d0*(mb*s2b*xb)/c2t**3.0d0 -
2344  - 0.125d0*((1 + c2b)*mt*xb)/s2t**3.0d0 -
2345  - 0.0625d0*((1 + c2b)*xb**2)/c2t**3.0d0)) +
2346  - cbe*hb*ht*sbe*
2347  - (-(mt*s2b*tmp26) + 2*mb*mt*tmp53 +
2348  - 0.125d0*(s2b*(b + t))/s2t**3.0d0 -
2349  - 0.25d0*(mb*tmp128)/s2t**3.0d0 + 0.125d0*(s2b*xb*xt)
2350  - /s2t**3.0d0
2351  - ) - ht**2*sbe**2*
2352  - (0.0625d0*(b*(1 + c2b))/c2t**3.0d0 +
2353  - 0.125d0*(mb*mt*s2b)/s2t**3.0d0 -
2354  - 0.0625d0*((1 - c2b)*t)/c2t**3.0d0 -
2355  - 0.125d0*(mb*s2b*xt)/c2t**3.0d0 -
2356  - 0.125d0*((1 - c2b)*mt*xt)/s2t**3.0d0 +
2357  - 0.0625d0*((1 - c2b)*xt**2)/c2t**3.0d0))) +
2358  - 0.5d0*((-5*b1 + 4*b1*logb1 + logt2**2*(b1 - t2) - 5*t2 +
2359  - logt2*(-2*b1*logb1 + 4*t2) - 2*(-b1 + t2)*tmp172)*
2360  - (-(cbe**2*hb**2*
2361  - (0.0625d0*(b*(1 + c2b))/c2t**3.0d0 +
2362  - 0.125d0*(mb*mt*s2b)/s2t**3.0d0 -
2363  - 0.0625d0*((1 - c2b)*t)/c2t**3.0d0 +
2364  - 0.125d0*(mb*s2b*xb)/c2t**3.0d0 +
2365  - 0.125d0*((1 - c2b)*mt*xb)/s2t**3.0d0 +
2366  - 0.0625d0*((1 - c2b)*xb**2)/c2t**3.0d0)) +
2367  - cbe*hb*ht*sbe*
2368  - (mt*s2b*tmp25 + 2*mb*mt*tmp53 +
2369  - 0.125d0*(s2b*(b + t))/s2t**3.0d0 +
2370  - 0.25d0*(mb*tmp129)/s2t**3.0d0 + 0.125d0*(s2b*xb*xt)
2371  - /s2t**3.0d0
2372  - ) - ht**2*sbe**2*
2373  - (-(0.0625d0*(b*(1 - c2b))/c2t**3.0d0) +
2374  - 0.125d0*(mb*mt*s2b)/s2t**3.0d0 +
2375  - 0.0625d0*((1 + c2b)*t)/c2t**3.0d0 -
2376  - 0.125d0*(mb*s2b*xt)/c2t**3.0d0 +
2377  - 0.125d0*((1 + c2b)*mt*xt)/s2t**3.0d0 -
2378  - 0.0625d0*((1 + c2b)*xt**2)/c2t**3.0d0)))
2379  dc2tc2t = dc2tc2t +
2380  - tmp109*(-(hb**2*sbe**2*
2381  - (0.0625d0*(b*(1 - c2b))/c2t**3.0d0 -
2382  - 0.125d0*(mb*mt*s2b)/s2t**3.0d0 -
2383  - 0.0625d0*((1 + c2b)*t)/c2t**3.0d0 -
2384  - 0.125d0*(mb*s2b*yb)/c2t**3.0d0 +
2385  - 0.125d0*((1 + c2b)*mt*yb)/s2t**3.0d0 +
2386  - 0.0625d0*((1 + c2b)*yb**2)/c2t**3.0d0)) -
2387  - cbe*hb*ht*sbe*(-(mt*s2b*tmp41) + 2*mb*mt*tmp52 -
2388  - 0.125d0*(s2b*(b + t))/s2t**3.0d0 +
2389  - 0.25d0*(mb*tmp154)/s2t**3.0d0 - 0.125d0*(s2b*yb*yt)
2390  - /s2t**3.0d0)-
2391  - cbe**2*ht**2*
2392  - (-(0.0625d0*(b*(1 + c2b))/c2t**3.0d0) -
2393  - 0.125d0*(mb*mt*s2b)/s2t**3.0d0 +
2394  - 0.0625d0*((1 - c2b)*t)/c2t**3.0d0 +
2395  - 0.125d0*(mb*s2b*yt)/c2t**3.0d0 +
2396  - 0.125d0*((1 - c2b)*mt*yt)/s2t**3.0d0 -
2397  - 0.0625d0*((1 - c2b)*yt**2)/c2t**3.0d0)) -
2398  - 0.25d0*(ht**2*((cbe**2*mt*tmp114*yt)/s2t**3.0d0 -
2399  - (cbe**2*mt*tmp93*yt)/s2t**3.0d0 +
2400  - 0.5d0*(mt*sbe**2*tmp115*xt)/s2t**3.0d0 -
2401  - 0.5d0*(mt*sbe**2*tmp94*xt)/s2t**3.0d0)) +
2402  - 0.5d0*((-5*b1 + 4*b1*logb1 + logt1**2*(b1 - t1) - 5*t1 +
2403  - logt1*(-2*b1*logb1 + 4*t1) - 2*(-b1 + t1)*tmp169)*
2404  - (-(cbe**2*hb**2*
2405  - (-(0.0625d0*(b*(1 + c2b))/c2t**3.0d0) -
2406  - 0.125d0*(mb*mt*s2b)/s2t**3.0d0 +
2407  - 0.0625d0*((1 - c2b)*t)/c2t**3.0d0 -
2408  - 0.125d0*(mb*s2b*xb)/c2t**3.0d0 -
2409  - 0.125d0*((1 - c2b)*mt*xb)/s2t**3.0d0 -
2410  - 0.0625d0*((1 - c2b)*xb**2)/c2t**3.0d0)) +
2411  - cbe*hb*ht*sbe*
2412  - (mt*s2b*tmp26 + 2*mb*mt*tmp52 -
2413  - 0.125d0*(s2b*(b + t))/s2t**3.0d0 -
2414  - 0.25d0*(mb*tmp129)/s2t**3.0d0 - 0.125d0*(s2b*xb*xt)
2415  - /s2t**3.0d0
2416  - ) - ht**2*sbe**2*
2417  - (0.0625d0*(b*(1 - c2b))/c2t**3.0d0 -
2418  - 0.125d0*(mb*mt*s2b)/s2t**3.0d0 -
2419  - 0.0625d0*((1 + c2b)*t)/c2t**3.0d0 +
2420  - 0.125d0*(mb*s2b*xt)/c2t**3.0d0 -
2421  - 0.125d0*((1 + c2b)*mt*xt)/s2t**3.0d0 +
2422  - 0.0625d0*((1 + c2b)*xt**2)/c2t**3.0d0)))
2423  dc2tc2t = dc2tc2t +
2424  - tmp89*(-(hb**2*sbe**2*
2425  - (-(0.0625d0*(b*(1 - c2b))/c2t**3.0d0) +
2426  - 0.125d0*(mb*mt*s2b)/s2t**3.0d0 +
2427  - 0.0625d0*((1 + c2b)*t)/c2t**3.0d0 +
2428  - 0.125d0*(mb*s2b*yb)/c2t**3.0d0 -
2429  - 0.125d0*((1 + c2b)*mt*yb)/s2t**3.0d0 -
2430  - 0.0625d0*((1 + c2b)*yb**2)/c2t**3.0d0)) -
2431  - cbe*hb*ht*sbe*(-(mt*s2b*tmp42) + 2*mb*mt*tmp53 +
2432  - 0.125d0*(s2b*(b + t))/s2t**3.0d0 -
2433  - 0.25d0*(mb*tmp154)/s2t**3.0d0 + 0.125d0*(s2b*yb*yt)
2434  - /s2t**3.0d0)-
2435  - cbe**2*ht**2*
2436  - (0.0625d0*(b*(1 + c2b))/c2t**3.0d0 +
2437  - 0.125d0*(mb*mt*s2b)/s2t**3.0d0 -
2438  - 0.0625d0*((1 - c2b)*t)/c2t**3.0d0 -
2439  - 0.125d0*(mb*s2b*yt)/c2t**3.0d0 -
2440  - 0.125d0*((1 - c2b)*mt*yt)/s2t**3.0d0 +
2441  - 0.0625d0*((1 - c2b)*yt**2)/c2t**3.0d0)) +
2442  - tmp108*(-(hb**2*sbe**2*
2443  - (0.0625d0*(b*(1 + c2b))/c2t**3.0d0 +
2444  - 0.125d0*(mb*mt*s2b)/s2t**3.0d0 -
2445  - 0.0625d0*((1 - c2b)*t)/c2t**3.0d0 +
2446  - 0.125d0*(mb*s2b*yb)/c2t**3.0d0 +
2447  - 0.125d0*((1 - c2b)*mt*yb)/s2t**3.0d0 +
2448  - 0.0625d0*((1 - c2b)*yb**2)/c2t**3.0d0)) -
2449  - cbe*hb*ht*sbe*(mt*s2b*tmp41 + 2*mb*mt*tmp53 +
2450  - 0.125d0*(s2b*(b + t))/s2t**3.0d0 +
2451  - 0.25d0*(mb*tmp155)/s2t**3.0d0 + 0.125d0*(s2b*yb*yt)
2452  - /s2t**3.0d0)-
2453  - cbe**2*ht**2*
2454  - (-(0.0625d0*(b*(1 - c2b))/c2t**3.0d0) +
2455  - 0.125d0*(mb*mt*s2b)/s2t**3.0d0 +
2456  - 0.0625d0*((1 + c2b)*t)/c2t**3.0d0 -
2457  - 0.125d0*(mb*s2b*yt)/c2t**3.0d0 +
2458  - 0.125d0*((1 + c2b)*mt*yt)/s2t**3.0d0 -
2459  - 0.0625d0*((1 + c2b)*yt**2)/c2t**3.0d0)) +
2460  - tmp88*(-(hb**2*sbe**2*
2461  - (-(0.0625d0*(b*(1 + c2b))/c2t**3.0d0) -
2462  - 0.125d0*(mb*mt*s2b)/s2t**3.0d0 +
2463  - 0.0625d0*((1 - c2b)*t)/c2t**3.0d0 -
2464  - 0.125d0*(mb*s2b*yb)/c2t**3.0d0 -
2465  - 0.125d0*((1 - c2b)*mt*yb)/s2t**3.0d0 -
2466  - 0.0625d0*((1 - c2b)*yb**2)/c2t**3.0d0)) -
2467  - cbe*hb*ht*sbe*(mt*s2b*tmp42 + 2*mb*mt*tmp52 -
2468  - 0.125d0*(s2b*(b + t))/s2t**3.0d0 -
2469  - 0.25d0*(mb*tmp155)/s2t**3.0d0 - 0.125d0*(s2b*yb*yt)/s2t**3
2470  $ .0d0)-cbe**2*ht**2*(0.0625d0*(b*(1 - c2b))/c2t**3.0d0 -0
2471  $ .125d0*(mb*mt*s2b)/s2t**3.0d0 -0.0625d0*((1 + c2b)*t)/c2t
2472  $ **3.0d0 +0.125d0*(mb*s2b*yt)/c2t**3.0d0 -0.125d0*((1 + c2b)
2473  $ *mt*yt)/s2t**3.0d0 +0.0625d0*((1 + c2b)*yt**2)/c2t**3.0d0))
2474  dt1t = -(tmp192*tmp238) - tmp191*tmp239 -
2475  - 0.5d0*(tmp184*tmp213) - 0.5d0*(tmp183*tmp214) +
2476  - ht**2*(1 - 3*logt + logmu2*logt -
2477  - (-1 + logt)*(-1 + logt1) + logt1 - logmu2*logt1 +
2478  - (phimu2tt1*(-mu2 + t - t1))/t1 -
2479  - (phimu2tt1*(-mu2 - t + t1))/t1 -
2480  - 0.5d0*(logt1*(mu2 - t - t1))/t +
2481  - 0.5d0*(logt*(mu2 - t - t1))/t1 +
2482  - 0.5d0*(logmu2*(-mu2 + t - t1))/t1 -
2483  - 0.5d0*(logmu2*(-mu2 - t + t1))/t -
2484  - 0.5d0*(deltmu2tt1*
2485  - ((mu2*phimu2tt1*(mu2 + t - t1))/(deltmu2tt1*t1) +
2486  - (mu2*tmp84)/(deltmu2tt1*t1)))/mu2 +
2487  - 0.5d0*(deltmu2tt1*
2488  - ((mu2*phimu2tt1*(mu2 - t + t1))/(deltmu2tt1*t1) +
2489  - (mu2*tmp91)/(deltmu2tt1*t)))/mu2 -
2490  - (-mu2 - t + t1)*
2491  - (phimu2tt1/t1 -
2492  - ((-mu2 + t - t1)*
2493  - ((mu2*phimu2tt1*(mu2 + t - t1))/
2494  - (deltmu2tt1*t1) + (mu2*tmp84)/(deltmu2tt1*t1))
2495  - )/mu2 - ((-mu2 - t + t1)*
2496  - ((mu2*phimu2tt1*(mu2 - t + t1))/
2497  - (deltmu2tt1*t1) + (mu2*tmp91)/(deltmu2tt1*t)))
2498  - /mu2 + 0.5d0*logmu2/t - 0.5d0*logt1/t +
2499  - 0.5d0*logmu2/t1 - 0.5d0*logt/t1 +
2500  - 0.5d0*(mu2 - t - t1)/(t*t1) -
2501  - 0.5d0*(deltmu2tt1*
2502  - ((mu2*phimu2tt1)/(deltmu2tt1*t1) -
2503  - (2*mu2*phimu2tt1*(-mu2 + t - t1)*
2504  - (mu2 + t - t1))/(deltmu2tt1**2*t1) +
2505  - (mu2*(logmu2 - logt - (-mu2 + t)/t - t1/t))/
2506  - (deltmu2tt1*t1) -
2507  - (2*mu2*(-mu2 + t - t1)*tmp84)/
2508  - (deltmu2tt1**2*t1) +
2509  - ((mu2 + t - t1)*
2510  - ((mu2*phimu2tt1*(mu2 - t + t1))/
2511  - (deltmu2tt1*t1) +
2512  - (mu2*tmp91)/(deltmu2tt1*t)))/deltmu2tt1))
2513  - /mu2)) -
2514  - 0.25d0*(ht**2*(cbe**2*(4 + (2*s2t*yt)/mt)*
2515  - (-1 + 4*logt1 - logt1**2 - (a0*loga0)/t1 +
2516  - (2*a0*phia0t1t1)/t1 + (logt1*(a0 - 2*t1))/t1 +
2517  - 0.5d0*(delta0t1t1*phia0t1t1)/t1**2 -
2518  - 0.5d0*(delta0t1t1*
2519  - ((a0*phia0t1t1)/delta0t1t1 +
2520  - (phia0t1t1*tmp178)/delta0t1t1 +
2521  - tmp80/delta0t1t1 + tmp87/delta0t1t1))/t1) +
2522  - 0.5d0*(sbe**2*tmp95*(4 + (2*s2t*xt)/mt))))
2523  dt2t = -(tmp196*tmp222) - tmp195*tmp223 +
2524  - ht**2*(1 - 3*logt + logmu2*logt -
2525  - (-1 + logt)*(-1 + logt2) + logt2 - logmu2*logt2 +
2526  - (phimu2tt2*(-mu2 + t - t2))/t2 -
2527  - (phimu2tt2*(-mu2 - t + t2))/t2 -
2528  - 0.5d0*(logt2*(mu2 - t - t2))/t +
2529  - 0.5d0*(logt*(mu2 - t - t2))/t2 +
2530  - 0.5d0*(logmu2*(-mu2 + t - t2))/t2 -
2531  - 0.5d0*(logmu2*(-mu2 - t + t2))/t -
2532  - 0.5d0*(deltmu2tt2*
2533  - ((mu2*phimu2tt2*(mu2 + t - t2))/(deltmu2tt2*t2) +
2534  - (mu2*tmp103)/(deltmu2tt2*t2)))/mu2 +
2535  - 0.5d0*(deltmu2tt2*
2536  - ((mu2*phimu2tt2*(mu2 - t + t2))/(deltmu2tt2*t2) +
2537  - (mu2*tmp111)/(deltmu2tt2*t)))/mu2 -
2538  - (-mu2 - t + t2)*
2539  - (phimu2tt2/t2 -
2540  - ((-mu2 + t - t2)*
2541  - ((mu2*phimu2tt2*(mu2 + t - t2))/
2542  - (deltmu2tt2*t2) + (mu2*tmp103)/(deltmu2tt2*t2)
2543  - ))/mu2 -
2544  - ((-mu2 - t + t2)*
2545  - ((mu2*phimu2tt2*(mu2 - t + t2))/
2546  - (deltmu2tt2*t2) + (mu2*tmp111)/(deltmu2tt2*t))
2547  - )/mu2 + 0.5d0*logmu2/t - 0.5d0*logt2/t +
2548  - 0.5d0*logmu2/t2 - 0.5d0*logt/t2 +
2549  - 0.5d0*(mu2 - t - t2)/(t*t2) -
2550  - 0.5d0*(deltmu2tt2*
2551  - ((mu2*phimu2tt2)/(deltmu2tt2*t2) -
2552  - (2*mu2*phimu2tt2*(-mu2 + t - t2)*
2553  - (mu2 + t - t2))/(deltmu2tt2**2*t2) +
2554  - (mu2*(logmu2 - logt - (-mu2 + t)/t - t2/t))/
2555  - (deltmu2tt2*t2) -
2556  - (2*mu2*(-mu2 + t - t2)*tmp103)/
2557  - (deltmu2tt2**2*t2) +
2558  - ((mu2 + t - t2)*
2559  - ((mu2*phimu2tt2*(mu2 - t + t2))/
2560  - (deltmu2tt2*t2) +
2561  - (mu2*tmp111)/(deltmu2tt2*t)))/deltmu2tt2)
2562  - )/mu2)) - 0.5d0*(tmp188*tmp217) -
2563  - 0.5d0*(tmp187*tmp218) -
2564  - 0.25d0*(ht**2*(cbe**2*(4 - (2*s2t*yt)/mt)*
2565  - (-1 + 4*logt2 - logt2**2 - (a0*loga0)/t2 +
2566  - (2*a0*phia0t2t2)/t2 + (logt2*(a0 - 2*t2))/t2 +
2567  - 0.5d0*(delta0t2t2*phia0t2t2)/t2**2 -
2568  - 0.5d0*(delta0t2t2*
2569  - ((a0*phia0t2t2)/delta0t2t2 +
2570  - tmp107/delta0t2t2 +
2571  - (phia0t2t2*tmp182)/delta0t2t2 +
2572  - tmp99/delta0t2t2))/t2) +
2573  - 0.5d0*(sbe**2*tmp116*(4 - (2*s2t*xt)/mt))))
2574  dt1t2 = ht**2*(c2t**2 + (-1 + logt1)*tmp8 +
2575  - (-1 + logt2)*tmp8 + (-1 + logt1)*(-1 + logt2)*tmp8 -
2576  - 0.5d0*((-1 + nc)*s2t**2)) -
2577  - 0.25d0*(ht**2*((1 + c2t**2)*sbe**2*
2578  - ((2*logt1)/t1 + (-2 - 2*logt2)/t1 +
2579  - (2*(-logt1 + logt2)*(t1 - t2)*t2)/
2580  - (t1**3.0d0*(1 - t2/t1)**2) -
2581  - (2*(-logt1 + logt2))/(t1*(1 - t2/t1)) +
2582  - (2*(t1 - t2))/(t1**2*(1 - t2/t1)) +
2583  - (2*(-logt1 + logt2)*(t1 - t2))/
2584  - (t1**2*(1 - t2/t1)) -
2585  - (2*(-logt1 + logt2)*t2)/(t1**2*(1 - t2/t1)))*xt**2
2586  - + 2*(1 + c2t**2)*cbe**2*yt**2*
2587  - ((phia0t1t2*(-a0 + t1 - t2))/t2**2 + phia0t1t2/t2 -
2588  - ((-a0 + t1 - t2)*
2589  - (tmp104/delta0t1t2 +
2590  - (phia0t1t2*tmp179)/delta0t1t2))/t2 -
2591  - ((-a0 - t1 + t2)*
2592  - ((phia0t1t2*(a0 - t1 + t2))/delta0t1t2 +
2593  - (t2*tmp96)/(delta0t1t2*t1)))/t2 +
2594  - 0.5d0*loga0/t1 - 0.5d0*logt2/t1 + 0.5d0*loga0/t2 -
2595  - 0.5d0*logt1/t2 + 0.5d0*(a0 - t1 - t2)/(t1*t2) +
2596  - 0.5d0*(delta0t1t2*
2597  - ((phia0t1t2*(a0 - t1 + t2))/delta0t1t2 +
2598  - (t2*tmp96)/(delta0t1t2*t1)))/t2**2 -
2599  - 0.5d0*(delta0t1t2*
2600  - (phia0t1t2/delta0t1t2 +
2601  - ((loga0 - logt2 - t1/t2 + (a0 - t2)/t2)*t2)/
2602  - (delta0t1t2*t1) -
2603  - (2*phia0t1t2*(-a0 - t1 + t2)*
2604  - (a0 - t1 + t2))/delta0t1t2**2 +
2605  - ((a0 - t1 + t2)*
2606  - (tmp104/delta0t1t2 +
2607  - (phia0t1t2*tmp179)/delta0t1t2))/
2608  - delta0t1t2 + tmp96/(delta0t1t2*t1) -
2609  - (2*t2*(-a0 - t1 + t2)*tmp96)/
2610  - (delta0t1t2**2*t1)))/t2)))
2611  dtc2t = -(0.5d0*((-5*b2 + 4*b2*logb2 +
2612  - logt1**2*(b2 - t1) - 5*t1 +
2613  - logt1*(-2*b2*logb2 + 4*t1) - 2*(-b2 + t1)*tmp170)*
2614  - (-(cbe*hb*ht*sbe*
2615  - ((mb*tmp54)/mt + 0.25d0*s2b/s2t -
2616  - 0.5d0*(s2b*tmp27)/mt)) +
2617  - cbe**2*hb**2*
2618  - (-(0.125d0*(1 + c2b)/c2t) +
2619  - 0.125d0*(mb*s2b)/(mt*s2t) -
2620  - 0.125d0*((1 + c2b)*xb)/(mt*s2t)) +
2621  - ht**2*sbe**2*
2622  - (0.125d0*(1 - c2b)/c2t + 0.125d0*(mb*s2b)/(mt*s2t) -
2623  - 0.125d0*((1 - c2b)*xt)/(mt*s2t))))) -
2624  - 0.5d0*((-5*b2 + 4*b2*logb2 + logt2**2*(b2 - t2) - 5*t2 +
2625  - logt2*(-2*b2*logb2 + 4*t2) - 2*(-b2 + t2)*tmp173)*
2626  - (-(cbe*hb*ht*sbe*
2627  - ((mb*tmp55)/mt - 0.25d0*s2b/s2t -
2628  - 0.5d0*(s2b*tmp28)/mt)) +
2629  - cbe**2*hb**2*
2630  - (0.125d0*(1 + c2b)/c2t - 0.125d0*(mb*s2b)/(mt*s2t) +
2631  - 0.125d0*((1 + c2b)*xb)/(mt*s2t)) +
2632  - ht**2*sbe**2*
2633  - (-(0.125d0*(1 - c2b)/c2t) - 0.125d0*(mb*s2b)/(mt*s2t) +
2634  - 0.125d0*((1 - c2b)*xt)/(mt*s2t)))) -
2635  - 0.5d0*((-5*b1 + 4*b1*logb1 + logt1**2*(b1 - t1) - 5*t1 +
2636  - logt1*(-2*b1*logb1 + 4*t1) - 2*(-b1 + t1)*tmp169)*
2637  - (-(cbe*hb*ht*sbe*
2638  - ((mb*tmp55)/mt - 0.25d0*s2b/s2t +
2639  - 0.5d0*(s2b*tmp27)/mt)) +
2640  - cbe**2*hb**2*
2641  - (-(0.125d0*(1 - c2b)/c2t) - 0.125d0*(mb*s2b)/(mt*s2t) -
2642  - 0.125d0*((1 - c2b)*xb)/(mt*s2t)) +
2643  - ht**2*sbe**2*
2644  - (0.125d0*(1 + c2b)/c2t - 0.125d0*(mb*s2b)/(mt*s2t) -
2645  - 0.125d0*((1 + c2b)*xt)/(mt*s2t)))) -
2646  - 0.5d0*((-5*b1 + 4*b1*logb1 + logt2**2*(b1 - t2) - 5*t2 +
2647  - logt2*(-2*b1*logb1 + 4*t2) - 2*(-b1 + t2)*tmp172)*
2648  - (-(cbe*hb*ht*sbe*
2649  - ((mb*tmp54)/mt + 0.25d0*s2b/s2t +
2650  - 0.5d0*(s2b*tmp28)/mt)) +
2651  - cbe**2*hb**2*
2652  - (0.125d0*(1 - c2b)/c2t + 0.125d0*(mb*s2b)/(mt*s2t) +
2653  - 0.125d0*((1 - c2b)*xb)/(mt*s2t)) +
2654  - ht**2*sbe**2*
2655  - (-(0.125d0*(1 + c2b)/c2t) + 0.125d0*(mb*s2b)/(mt*s2t) +
2656  - 0.125d0*((1 + c2b)*xt)/(mt*s2t))))
2657  dtc2t = dtc2t - tmp89*
2658  - (cbe*hb*ht*sbe*((mb*tmp54)/mt + 0.25d0*s2b/s2t -
2659  - 0.5d0*(s2b*tmp43)/mt) +
2660  - hb**2*sbe**2*(-(0.125d0*(1 + c2b)/c2t) +
2661  - 0.125d0*(mb*s2b)/(mt*s2t) -
2662  - 0.125d0*((1 + c2b)*yb)/(mt*s2t)) +
2663  - cbe**2*ht**2*(0.125d0*(1 - c2b)/c2t +
2664  - 0.125d0*(mb*s2b)/(mt*s2t) -
2665  - 0.125d0*((1 - c2b)*yt)/(mt*s2t))) -
2666  - tmp109*(cbe*hb*ht*sbe*
2667  - ((mb*tmp55)/mt - 0.25d0*s2b/s2t - 0.5d0*(s2b*tmp44)/mt) +
2668  - hb**2*sbe**2*(0.125d0*(1 + c2b)/c2t -
2669  - 0.125d0*(mb*s2b)/(mt*s2t) +
2670  - 0.125d0*((1 + c2b)*yb)/(mt*s2t)) +
2671  - cbe**2*ht**2*(-(0.125d0*(1 - c2b)/c2t) -
2672  - 0.125d0*(mb*s2b)/(mt*s2t) +
2673  - 0.125d0*((1 - c2b)*yt)/(mt*s2t))) -
2674  - tmp88*(cbe*hb*ht*sbe*
2675  - ((mb*tmp55)/mt - 0.25d0*s2b/s2t + 0.5d0*(s2b*tmp43)/mt) +
2676  - hb**2*sbe**2*(-(0.125d0*(1 - c2b)/c2t) -
2677  - 0.125d0*(mb*s2b)/(mt*s2t) -
2678  - 0.125d0*((1 - c2b)*yb)/(mt*s2t)) +
2679  - cbe**2*ht**2*(0.125d0*(1 + c2b)/c2t -
2680  - 0.125d0*(mb*s2b)/(mt*s2t) -
2681  - 0.125d0*((1 + c2b)*yt)/(mt*s2t))) -
2682  - tmp108*(cbe*hb*ht*sbe*
2683  - ((mb*tmp54)/mt + 0.25d0*s2b/s2t + 0.5d0*(s2b*tmp44)/mt) +
2684  - hb**2*sbe**2*(0.125d0*(1 - c2b)/c2t +
2685  - 0.125d0*(mb*s2b)/(mt*s2t) +
2686  - 0.125d0*((1 - c2b)*yb)/(mt*s2t)) +
2687  - cbe**2*ht**2*(-(0.125d0*(1 + c2b)/c2t) +
2688  - 0.125d0*(mb*s2b)/(mt*s2t) +
2689  - 0.125d0*((1 + c2b)*yt)/(mt*s2t))) -
2690  - 0.25d0*(ht**2*((cbe**2*tmp114*yt)/(mt*s2t) -
2691  - (cbe**2*tmp93*yt)/(mt*s2t) +
2692  - 0.5d0*(sbe**2*tmp115*xt)/(mt*s2t) -
2693  - 0.5d0*(sbe**2*tmp94*xt)/(mt*s2t)))
2694  dt1c2t = -(tmp204*tmp238) - tmp203*tmp239 +
2695  - (hb*ht*mb*mu*tmp240)/s2t +
2696  - hb**2*(0.125d0*(b1*(1 - c2b)*(-1 + logb1))/c2t +
2697  - 0.125d0*(b2*(1 + c2b)*(-1 + logb2))/c2t +
2698  - sbe**2*(0.25d0*(a0*(-1 + loga0))/c2t +
2699  - 0.25d0*(a0*(-1 + loga0)*(-1 + logt1))/c2t) +
2700  - 0.125d0*(b1*(1 - c2b)*(-1 + logb1)*(-1 + logt1))/c2t +
2701  - 0.125d0*(b2*(1 + c2b)*(-1 + logb2)*(-1 + logt1))/c2t) +
2702  - tmp6*(-(b*(-1 + logb)) - 2*b*logb -
2703  - b*(-1 + logb)*(-1 + logt1) - (-1 + logmu2)*mu2 -
2704  - 2*logmu2*mu2 - (-1 + logmu2)*(-1 + logt1)*mu2 -
2705  - 2*logt1*t1 - (-b - mu2 + t1)*tmp240 +
2706  - 0.5d0*(deltt1bmu2*phit1bmu2)/mu2 -
2707  - 0.5d0*(logmu2*logt1*(b - mu2 - t1)) -
2708  - 0.5d0*(logb*logt1*(-b + mu2 - t1)) -
2709  - 0.5d0*(logb*logmu2*(-b - mu2 + t1)) + 2.5d0*(b + mu2 + t1))
2710  - - 0.5d0*(tmp200*tmp213) - 0.5d0*(tmp199*tmp214) +
2711  - ht**2*(-(0.125d0*(b1*(1 + c2b)*(-1 + logb1))/c2t) -
2712  - 0.125d0*(b2*(1 - c2b)*(-1 + logb2))/c2t +
2713  - cbe**2*(-(0.25d0*(a0*(-1 + loga0))/c2t) -
2714  - 0.25d0*(a0*(-1 + loga0)*(-1 + logt1))/c2t) -
2715  - 0.125d0*(b1*(1 + c2b)*(-1 + logb1)*(-1 + logt1))/c2t -
2716  - 0.125d0*(b2*(1 - c2b)*(-1 + logb2)*(-1 + logt1))/c2t +
2717  - (-1 + logt2)*t2*(1 + 0.5d0*(-1 + nc)) +
2718  - (-1 + logt1)*(-1 + logt2)*t2*(1 + 0.5d0*(-1 + nc)) -
2719  - 0.25d0*((1 + nc)*tmp79)) -
2720  - 0.25d0*(ht**2*(sbe**2*tmp220*xt**2 +
2721  - 2*cbe**2*tmp221*yt**2 +
2722  - cbe**2*tmp46*
2723  - (-1 + 4*logt1 - logt1**2 - (a0*loga0)/t1 +
2724  - (2*a0*phia0t1t1)/t1 + (logt1*(a0 - 2*t1))/t1 +
2725  - 0.5d0*(delta0t1t1*phia0t1t1)/t1**2 -
2726  - 0.5d0*(delta0t1t1*
2727  - ((a0*phia0t1t1)/delta0t1t1 +
2728  - (phia0t1t1*tmp178)/delta0t1t1 +
2729  - tmp80/delta0t1t1 + tmp87/delta0t1t1))/t1) +
2730  - 0.5d0*(sbe**2*tmp30*tmp95)))
2731  dt2c2t = -(tmp206*tmp222) - tmp205*tmp223 +
2732  - (hb*ht*mb*mu*tmp225)/s2t +
2733  - hb**2*(-(0.125d0*(b1*(1 - c2b)*(-1 + logb1))/c2t) -
2734  - 0.125d0*(b2*(1 + c2b)*(-1 + logb2))/c2t +
2735  - sbe**2*(-(0.25d0*(a0*(-1 + loga0))/c2t) -
2736  - 0.25d0*(a0*(-1 + loga0)*(-1 + logt2))/c2t) -
2737  - 0.125d0*(b1*(1 - c2b)*(-1 + logb1)*(-1 + logt2))/c2t -
2738  - 0.125d0*(b2*(1 + c2b)*(-1 + logb2)*(-1 + logt2))/c2t) +
2739  - tmp7*(-(b*(-1 + logb)) - 2*b*logb -
2740  - b*(-1 + logb)*(-1 + logt2) - (-1 + logmu2)*mu2 -
2741  - 2*logmu2*mu2 - (-1 + logmu2)*(-1 + logt2)*mu2 -
2742  - 2*logt2*t2 - (-b - mu2 + t2)*tmp224 +
2743  - 0.5d0*(deltt2bmu2*phit2bmu2)/mu2 -
2744  - 0.5d0*(logmu2*logt2*(b - mu2 - t2)) -
2745  - 0.5d0*(logb*logt2*(-b + mu2 - t2)) -
2746  - 0.5d0*(logb*logmu2*(-b - mu2 + t2)) + 2.5d0*(b + mu2 + t2))
2747  - - 0.5d0*(tmp202*tmp217) - 0.5d0*(tmp201*tmp218) +
2748  - ht**2*(0.125d0*(b1*(1 + c2b)*(-1 + logb1))/c2t +
2749  - 0.125d0*(b2*(1 - c2b)*(-1 + logb2))/c2t +
2750  - cbe**2*(0.25d0*(a0*(-1 + loga0))/c2t +
2751  - 0.25d0*(a0*(-1 + loga0)*(-1 + logt2))/c2t) +
2752  - 0.125d0*(b1*(1 + c2b)*(-1 + logb1)*(-1 + logt2))/c2t +
2753  - 0.125d0*(b2*(1 - c2b)*(-1 + logb2)*(-1 + logt2))/c2t +
2754  - (-1 + logt1)*t1*(1 + 0.5d0*(-1 + nc)) +
2755  - (-1 + logt1)*(-1 + logt2)*t1*(1 + 0.5d0*(-1 + nc)) -
2756  - 0.25d0*((1 + nc)*tmp98)) -
2757  - 0.25d0*(ht**2*(sbe**2*tmp219*xt**2 +
2758  - 2*cbe**2*yt**2*
2759  - (-0.5d0 + 2*logt2 - (phia0t1t2*(-a0 - t1 + t2))/t2 +
2760  - 0.5d0*(loga0*logt1) - 0.5d0*(loga0*logt2) -
2761  - 0.5d0*(logt1*logt2) +
2762  - 0.5d0*(delta0t1t2*phia0t1t2)/t2**2 +
2763  - 0.5d0*(logt1*(a0 - t1 - t2))/t2 +
2764  - 0.5d0*(loga0*(-a0 + t1 - t2))/t2 -
2765  - 0.5d0*(delta0t1t2*
2766  - (tmp104/delta0t1t2 +
2767  - (phia0t1t2*tmp179)/delta0t1t2))/t2) +
2768  - 0.5d0*(sbe**2*tmp116*tmp31) +
2769  - cbe**2*tmp47*
2770  - (-1 + 4*logt2 - logt2**2 - (a0*loga0)/t2 +
2771  - (2*a0*phia0t2t2)/t2 + (logt2*(a0 - 2*t2))/t2 +
2772  - 0.5d0*(delta0t2t2*phia0t2t2)/t2**2 -
2773  - 0.5d0*(delta0t2t2*
2774  - ((a0*phia0t2t2)/delta0t2t2 +
2775  - tmp107/delta0t2t2 +
2776  - (phia0t2t2*tmp182)/delta0t2t2 +
2777  - tmp99/delta0t2t2))/t2)))
2778  dtb = tmp10*(-1 + logb + (-1 + logb)*(-1 + logt) +
2779  - logt + 0.5d0*((b + t)*tmp208)
2780  $ + 0.5d0*tmp209 + 0.5d0*tmp210)-
2781  - tmp108*(-(0.125d0*(cbe**2*ht**2*s2b*s2t)/(mb*mt)) -
2782  - 0.125d0*(hb**2*s2b*s2t*sbe**2)/(mb*mt) +
2783  - 0.5d0*(cbe*hb*ht*sbe*tmp56)/(mb*mt)) -
2784  - tmp109*(0.125d0*(cbe**2*ht**2*s2b*s2t)/(mb*mt) +
2785  - 0.125d0*(hb**2*s2b*s2t*sbe**2)/(mb*mt) +
2786  - 0.5d0*(cbe*hb*ht*sbe*tmp59)/(mb*mt)) -
2787  - (2*cbe*hb*ht*mt*sbe*
2788  - (0.5d0 - 2*logt + (phia0bt*(-a0 - b + t))/t -
2789  - 0.5d0*(loga0*logb) + 0.5d0*(loga0*logt) +
2790  - 0.5d0*(logb*logt) - 0.5d0*(logb*(a0 - b - t))/t -
2791  - 0.5d0*(loga0*(-a0 + b - t))/t + 0.5d0*tmp210 +
2792  - 0.5d0*(delta0bt*
2793  - ((b*phia0bt*(a0 + b - t))/(delta0bt*t) +
2794  - (b*tmp66)/(delta0bt*t)))/b))/mb -
2795  - 0.5d0*((-5*b2 + 4*b2*logb2 + logt1**2*(b2 - t1) - 5*t1 +
2796  - logt1*(-2*b2*logb2 + 4*t1) - 2*(-b2 + t1)*tmp170)*
2797  - (-(0.125d0*(cbe**2*hb**2*s2b*s2t)/(mb*mt)) -
2798  - 0.125d0*(ht**2*s2b*s2t*sbe**2)/(mb*mt) -
2799  - 0.5d0*(cbe*hb*ht*sbe*tmp56)/(mb*mt))) -
2800  - 0.5d0*((-5*b1 + 4*b1*logb1 + logt2**2*(b1 - t2) - 5*t2 +
2801  - logt2*(-2*b1*logb1 + 4*t2) - 2*(-b1 + t2)*tmp172)*
2802  - (-(0.125d0*(cbe**2*hb**2*s2b*s2t)/(mb*mt)) -
2803  - 0.125d0*(ht**2*s2b*s2t*sbe**2)/(mb*mt) -
2804  - 0.5d0*(cbe*hb*ht*sbe*tmp56)/(mb*mt))) -
2805  - 0.5d0*((-5*b1 + 4*b1*logb1 + logt1**2*(b1 - t1) - 5*t1 +
2806  - logt1*(-2*b1*logb1 + 4*t1) - 2*(-b1 + t1)*tmp169)*
2807  - (0.125d0*(cbe**2*hb**2*s2b*s2t)/(mb*mt) +
2808  - 0.125d0*(ht**2*s2b*s2t*sbe**2)/(mb*mt) -
2809  - 0.5d0*(cbe*hb*ht*sbe*tmp59)/(mb*mt))) -
2810  - 0.5d0*((-5*b2 + 4*b2*logb2 + logt2**2*(b2 - t2) - 5*t2 +
2811  - logt2*(-2*b2*logb2 + 4*t2) - 2*(-b2 + t2)*tmp173)*
2812  - (0.125d0*(cbe**2*hb**2*s2b*s2t)/(mb*mt) +
2813  - 0.125d0*(ht**2*s2b*s2t*sbe**2)/(mb*mt) -
2814  - 0.5d0*(cbe*hb*ht*sbe*tmp59)/(mb*mt)))
2815  dtb = dtb - tmp89*
2816  - (-(0.125d0*(cbe**2*ht**2*s2b*s2t)/(mb*mt)) -
2817  - 0.125d0*(hb**2*s2b*s2t*sbe**2)/(mb*mt) +
2818  - 0.5d0*(cbe*hb*ht*sbe*tmp56)/(mb*mt)) -
2819  - tmp88*(0.125d0*(cbe**2*ht**2*s2b*s2t)/(mb*mt) +
2820  - 0.125d0*(hb**2*s2b*s2t*sbe**2)/(mb*mt) +
2821  - 0.5d0*(cbe*hb*ht*sbe*tmp59)/(mb*mt)) -
2822  - (2*cbe*hb*ht*mb*sbe*
2823  - (0.5d0 - 2*logb + (phia0bt*(-a0 + b - t))/t +
2824  - 0.5d0*(loga0*logb) - 0.5d0*(loga0*logt) +
2825  - 0.5d0*(logb*logt) - 0.5d0*(logt*(a0 - b - t))/b -
2826  - 0.5d0*(delta0bt*phia0bt)/(b*t) -
2827  - 0.5d0*(loga0*(-a0 - b + t))/b + 0.5d0*tmp209 +
2828  - 0.5d0*(delta0bt*
2829  - ((b*phia0bt*tmp174)/(delta0bt*t) +
2830  - tmp69/delta0bt))/b))/mt -
2831  - 4*cbe*hb*ht*mb*mt*sbe*
2832  - (-(phia0bt/t) - (phia0bt*(-a0 - b + t))/(b*t) +
2833  - ((-a0 + b - t)*
2834  - ((b*phia0bt*(a0 + b - t))/(delta0bt*t) +
2835  - (b*tmp66)/(delta0bt*t)))/b +
2836  - ((-a0 - b + t)*
2837  - ((b*phia0bt*tmp174)/(delta0bt*t) + tmp69/delta0bt))/
2838  - b - 0.5d0*loga0/b + 0.5d0*logt/b - 0.5d0*loga0/t +
2839  - 0.5d0*logb/t - 0.5d0*(a0 - b - t)/(b*t) + 0.5d0*tmp208 -
2840  - 0.5d0*(delta0bt*((b*phia0bt*(a0 + b - t))/(delta0bt*t) +
2841  - (b*tmp66)/(delta0bt*t)))/b**2 +
2842  - 0.5d0*(delta0bt*((b*phia0bt)/(delta0bt*t) -
2843  - (2*b*phia0bt*(-a0 + b - t)*(a0 + b - t))/
2844  - (delta0bt**2*t) + (b*tmp64)/(delta0bt*t) +
2845  - tmp66/(delta0bt*t) -
2846  - (2*b*(-a0 + b - t)*tmp66)/(delta0bt**2*t) +
2847  - ((a0 + b - t)*
2848  - ((b*phia0bt*tmp174)/(delta0bt*t) +
2849  - tmp69/delta0bt))/delta0bt))/b) -
2850  - (cbe*hb*ht*sbe*(-2*a0*loga0 - 2*b*logb - 2*logt*t -
2851  - 0.5d0*(logb*logt*(a0 - b - t)) -
2852  - 0.5d0*(loga0*logt*(-a0 + b - t)) +
2853  - 0.5d0*(delta0bt*phia0bt)/t -
2854  - 0.5d0*(loga0*logb*(-a0 - b + t)) + 2.5d0*(a0 + b + t) +
2855  - 0.5d0*tmp76))/(mb*mt)
2856  dtb = dtb + tmp9*
2857  - (-2 + 3*logb + (-1 + logb)*(-1 + logt) + 3*logt -
2858  - logb*logt - (phia0bt*(-a0 + b - t))/t -
2859  - (phia0bt*(-a0 - b + t))/t +
2860  - 0.5d0*(logt*(a0 - b - t))/b +
2861  - 0.5d0*(delta0bt*phia0bt)/(b*t) +
2862  - 0.5d0*(logb*(a0 - b - t))/t +
2863  - 0.5d0*(loga0*(-a0 + b - t))/t +
2864  - 0.5d0*(loga0*(-a0 - b + t))/b -
2865  - 0.5d0*(delta0bt*((b*phia0bt*(a0 + b - t))/(delta0bt*t) +
2866  - (b*tmp66)/(delta0bt*t)))/b -
2867  - 0.5d0*(delta0bt*((b*phia0bt*tmp174)/(delta0bt*t) +
2868  - tmp69/delta0bt))/b -
2869  - (a0 - b - t)*(phia0bt/t +
2870  - (phia0bt*(-a0 - b + t))/(b*t) -
2871  - ((-a0 + b - t)*
2872  - ((b*phia0bt*(a0 + b - t))/(delta0bt*t) +
2873  - (b*tmp66)/(delta0bt*t)))/b -
2874  - ((-a0 - b + t)*
2875  - ((b*phia0bt*tmp174)/(delta0bt*t) +
2876  - tmp69/delta0bt))/b + 0.5d0*loga0/b -
2877  - 0.5d0*logt/b + 0.5d0*loga0/t - 0.5d0*logb/t +
2878  - 0.5d0*(a0 - b - t)/(b*t) +
2879  - 0.5d0*(delta0bt*
2880  - ((b*phia0bt*(a0 + b - t))/(delta0bt*t) +
2881  - (b*tmp66)/(delta0bt*t)))/b**2 -
2882  - 0.5d0*(delta0bt*
2883  - ((b*phia0bt)/(delta0bt*t) -
2884  - (2*b*phia0bt*(-a0 + b - t)*(a0 + b - t))/
2885  - (delta0bt**2*t) + (b*tmp64)/(delta0bt*t) +
2886  - tmp66/(delta0bt*t) -
2887  - (2*b*(-a0 + b - t)*tmp66)/(delta0bt**2*t) +
2888  - ((a0 + b - t)*
2889  - ((b*phia0bt*tmp174)/(delta0bt*t) +
2890  - tmp69/delta0bt))/delta0bt))/b))
2891  dt1b = -((hb*ht*mu*s2t*tmp240)/mb) -
2892  - 2*hb*ht*mb*mu*s2t*
2893  - (phit1bmu2/mu2 -
2894  - ((b - mu2 - t1)*
2895  - ((phit1bmu2*(b + mu2 - t1))/deltt1bmu2 +
2896  - (mu2*tmp83)/(deltt1bmu2*t1)))/mu2 -
2897  - ((-b - mu2 + t1)*
2898  - ((phit1bmu2*(-b + mu2 + t1))/deltt1bmu2 +
2899  - (mu2*tmp90)/(b*deltt1bmu2)))/mu2 + 0.5d0*logmu2/b -
2900  - 0.5d0*logt1/b - 0.5d0*logb/t1 + 0.5d0*logmu2/t1 +
2901  - 0.5d0*(-b + mu2 - t1)/(b*t1) -
2902  - 0.5d0*(deltt1bmu2*tmp242)/mu2) +
2903  - tmp62*(1 - 3*logb + logb*logmu2 -
2904  - (-1 + logb)*(-1 + logt1) + logt1 - logmu2*logt1 +
2905  - (phit1bmu2*(b - mu2 - t1))/mu2 -
2906  - (phit1bmu2*(-b - mu2 + t1))/mu2 -
2907  - 0.5d0*(logt1*(-b + mu2 - t1))/b +
2908  - 0.5d0*(logmu2*(b - mu2 - t1))/t1 +
2909  - 0.5d0*(logb*(-b + mu2 - t1))/t1 -
2910  - 0.5d0*(logmu2*(-b - mu2 + t1))/b -
2911  - (-b - mu2 + t1)*
2912  - (phit1bmu2/mu2 -
2913  - ((b - mu2 - t1)*
2914  - ((phit1bmu2*(b + mu2 - t1))/deltt1bmu2 +
2915  - (mu2*tmp83)/(deltt1bmu2*t1)))/mu2 -
2916  - ((-b - mu2 + t1)*
2917  - ((phit1bmu2*(-b + mu2 + t1))/deltt1bmu2 +
2918  - (mu2*tmp90)/(b*deltt1bmu2)))/mu2 +
2919  - 0.5d0*logmu2/b - 0.5d0*logt1/b - 0.5d0*logb/t1 +
2920  - 0.5d0*logmu2/t1 + 0.5d0*(-b + mu2 - t1)/(b*t1) -
2921  - 0.5d0*(deltt1bmu2*tmp242)/mu2) -
2922  - 0.5d0*(deltt1bmu2*
2923  - ((phit1bmu2*(b + mu2 - t1))/deltt1bmu2 +
2924  - (mu2*tmp83)/(deltt1bmu2*t1)))/mu2 +
2925  - 0.5d0*(deltt1bmu2*
2926  - ((phit1bmu2*(-b + mu2 + t1))/deltt1bmu2 +
2927  - (mu2*tmp90)/(b*deltt1bmu2)))/mu2) -
2928  - 0.5d0*(tmp214*(-(cbe*hb*ht*sbe*
2929  - ((mt*tmp56)/mb - 0.5d0*(s2b*s2t) +
2930  - 0.5d0*(s2t*tmp128)/mb)) +
2931  - cbe**2*hb**2*
2932  - (0.25d0*((1 - c2b)*(1 + c2t)) -
2933  - 0.25d0*(mt*s2b*s2t)/mb - 0.25d0*((1 + c2t)*s2b*xb)/mb)
2934  - + ht**2*sbe**2*
2935  - (0.25d0*((1 + c2b)*(1 - c2t)) -
2936  - 0.25d0*(mt*s2b*s2t)/mb - 0.25d0*((1 - c2t)*s2b*xt)/mb)
2937  - ))
2938  dt1b = dt1b - tmp239*
2939  - (cbe*hb*ht*sbe*((mt*tmp56)/mb - 0.5d0*(s2b*s2t) +
2940  - 0.5d0*(s2t*tmp154)/mb) +
2941  - hb**2*sbe**2*(0.25d0*((1 - c2b)*(1 + c2t)) -
2942  - 0.25d0*(mt*s2b*s2t)/mb - 0.25d0*((1 + c2t)*s2b*yb)/mb)+
2943  - cbe**2*ht**2*
2944  - (0.25d0*((1 + c2b)*(1 - c2t)) - 0.25d0*(mt*s2b*s2t)/mb -
2945  - 0.25d0*((1 - c2t)*s2b*yt)/mb)) -
2946  - tmp238*(cbe*hb*ht*sbe*
2947  - ((mt*tmp59)/mb + 0.5d0*(s2b*s2t) + 0.5d0*(s2t*tmp155)/mb)+
2948  - hb**2*sbe**2*
2949  - (0.25d0*((1 + c2b)*(1 + c2t)) + 0.25d0*(mt*s2b*s2t)/mb +
2950  - 0.25d0*((1 + c2t)*s2b*yb)/mb) +
2951  - cbe**2*ht**2*(0.25d0*((1 - c2b)*(1 - c2t)) +
2952  - 0.25d0*(mt*s2b*s2t)/mb + 0.25d0*((1 - c2t)*s2b*yt)/mb))-
2953  - 0.5d0*(tmp213*(-(cbe*hb*ht*sbe*
2954  - ((mt*tmp59)/mb + 0.5d0*(s2b*s2t) +
2955  - 0.5d0*(s2t*tmp129)/mb)) +
2956  - cbe**2*hb**2*
2957  - (0.25d0*((1 + c2b)*(1 + c2t)) +
2958  - 0.25d0*(mt*s2b*s2t)/mb + 0.25d0*((1 + c2t)*s2b*xb)/mb)
2959  - + ht**2*sbe**2*
2960  - (0.25d0*((1 - c2b)*(1 - c2t)) +
2961  - 0.25d0*(mt*s2b*s2t)/mb + 0.25d0*((1 - c2t)*s2b*xt)/mb)
2962  - ))
2963  dt2b = -((hb*ht*mu*s2t*tmp225)/mb) +
2964  - tmp63*(1 - 3*logb + logb*logmu2 -
2965  - (-1 + logb)*(-1 + logt2) + logt2 - logmu2*logt2 +
2966  - (phit2bmu2*(b - mu2 - t2))/mu2 -
2967  - (phit2bmu2*(-b - mu2 + t2))/mu2 -
2968  - 0.5d0*(logt2*(-b + mu2 - t2))/b +
2969  - 0.5d0*(logmu2*(b - mu2 - t2))/t2 +
2970  - 0.5d0*(logb*(-b + mu2 - t2))/t2 -
2971  - 0.5d0*(logmu2*(-b - mu2 + t2))/b -
2972  - 0.5d0*(deltt2bmu2*
2973  - ((phit2bmu2*(b + mu2 - t2))/deltt2bmu2 +
2974  - (mu2*tmp102)/(deltt2bmu2*t2)))/mu2 +
2975  - 0.5d0*(deltt2bmu2*
2976  - ((phit2bmu2*(-b + mu2 + t2))/deltt2bmu2 +
2977  - (mu2*tmp110)/(b*deltt2bmu2)))/mu2 -
2978  - (-b - mu2 + t2)*
2979  - (phit2bmu2/mu2 -
2980  - ((b - mu2 - t2)*
2981  - ((phit2bmu2*(b + mu2 - t2))/deltt2bmu2 +
2982  - (mu2*tmp102)/(deltt2bmu2*t2)))/mu2 -
2983  - ((-b - mu2 + t2)*
2984  - ((phit2bmu2*(-b + mu2 + t2))/deltt2bmu2 +
2985  - (mu2*tmp110)/(b*deltt2bmu2)))/mu2 +
2986  - 0.5d0*logmu2/b - 0.5d0*logt2/b - 0.5d0*logb/t2 +
2987  - 0.5d0*logmu2/t2 + 0.5d0*(-b + mu2 - t2)/(b*t2) -
2988  - 0.5d0*(deltt2bmu2*tmp227)/mu2)) -
2989  - 2*hb*ht*mb*mu*s2t*
2990  - (-(phit2bmu2/mu2) +
2991  - ((b - mu2 - t2)*
2992  - ((phit2bmu2*(b + mu2 - t2))/deltt2bmu2 +
2993  - (mu2*tmp102)/(deltt2bmu2*t2)))/mu2 +
2994  - ((-b - mu2 + t2)*
2995  - ((phit2bmu2*(-b + mu2 + t2))/deltt2bmu2 +
2996  - (mu2*tmp110)/(b*deltt2bmu2)))/mu2 -
2997  - 0.5d0*logmu2/b + 0.5d0*logt2/b + 0.5d0*logb/t2 -
2998  - 0.5d0*logmu2/t2 - 0.5d0*(-b + mu2 - t2)/(b*t2) +
2999  - 0.5d0*(deltt2bmu2*tmp227)/mu2) -
3000  - 0.5d0*(tmp218*(-(cbe*hb*ht*sbe*
3001  - ((mt*tmp59)/mb + 0.5d0*(s2b*s2t) -
3002  - 0.5d0*(s2t*tmp128)/mb)) +
3003  - cbe**2*hb**2*
3004  - (0.25d0*((1 - c2b)*(1 - c2t)) +
3005  - 0.25d0*(mt*s2b*s2t)/mb - 0.25d0*((1 - c2t)*s2b*xb)/mb)
3006  - + ht**2*sbe**2*
3007  - (0.25d0*((1 + c2b)*(1 + c2t)) +
3008  - 0.25d0*(mt*s2b*s2t)/mb - 0.25d0*((1 + c2t)*s2b*xt)/mb)
3009  - ))
3010  dt2b = dt2b - tmp223*
3011  - (cbe*hb*ht*sbe*((mt*tmp59)/mb + 0.5d0*(s2b*s2t) -
3012  - 0.5d0*(s2t*tmp154)/mb) +
3013  - hb**2*sbe**2*(0.25d0*((1 - c2b)*(1 - c2t)) +
3014  - 0.25d0*(mt*s2b*s2t)/mb - 0.25d0*((1 - c2t)*s2b*yb)/mb)+
3015  - cbe**2*ht**2*
3016  - (0.25d0*((1 + c2b)*(1 + c2t)) + 0.25d0*(mt*s2b*s2t)/mb -
3017  - 0.25d0*((1 + c2t)*s2b*yt)/mb)) -
3018  - tmp222*(cbe*hb*ht*sbe*
3019  - ((mt*tmp56)/mb - 0.5d0*(s2b*s2t) - 0.5d0*(s2t*tmp155)/mb)+
3020  - hb**2*sbe**2*
3021  - (0.25d0*((1 + c2b)*(1 - c2t)) - 0.25d0*(mt*s2b*s2t)/mb +
3022  - 0.25d0*((1 - c2t)*s2b*yb)/mb) +
3023  - cbe**2*ht**2*(0.25d0*((1 - c2b)*(1 + c2t)) -
3024  - 0.25d0*(mt*s2b*s2t)/mb + 0.25d0*((1 + c2t)*s2b*yt)/mb))-
3025  - 0.5d0*(tmp217*(-(cbe*hb*ht*sbe*
3026  - ((mt*tmp56)/mb - 0.5d0*(s2b*s2t) -
3027  - 0.5d0*(s2t*tmp129)/mb)) +
3028  - cbe**2*hb**2*
3029  - (0.25d0*((1 + c2b)*(1 - c2t)) -
3030  - 0.25d0*(mt*s2b*s2t)/mb + 0.25d0*((1 - c2t)*s2b*xb)/mb)
3031  - + ht**2*sbe**2*
3032  - (0.25d0*((1 - c2b)*(1 + c2t)) -
3033  - 0.25d0*(mt*s2b*s2t)/mb + 0.25d0*((1 + c2t)*s2b*xt)/mb)
3034  - ))
3035  db1t = -(tmp196*(-0.5d0 + 2*logb1 -
3036  - (phia0b1t2*(-a0 + b1 - t2))/t2 - 0.5d0*(loga0*logb1) +
3037  - 0.5d0*(loga0*logt2) - 0.5d0*(logb1*logt2) +
3038  - 0.5d0*(logt2*(a0 - b1 - t2))/b1 +
3039  - 0.5d0*(delta0b1t2*phia0b1t2)/(b1*t2) +
3040  - 0.5d0*(loga0*(-a0 - b1 + t2))/b1 -
3041  - 0.5d0*(delta0b1t2*
3042  - (tmp105/delta0b1t2 +
3043  - (b1*phia0b1t2*tmp180)/(delta0b1t2*t2)))/b1)) -
3044  - 0.5d0*(tmp184*tmp211) - 0.5d0*(tmp188*tmp215) -
3045  - 2*hb*ht*mt*mu*s2b*
3046  - (phib1tmu2/mu2 -
3047  - ((b1 - mu2 - t)*
3048  - ((phib1tmu2*(b1 + mu2 - t))/deltb1tmu2 +
3049  - (mu2*tmp67)/(deltb1tmu2*t)))/mu2 -
3050  - ((-b1 - mu2 + t)*
3051  - ((phib1tmu2*(-b1 + mu2 + t))/deltb1tmu2 +
3052  - (mu2*tmp71)/(b1*deltb1tmu2)))/mu2 +
3053  - 0.5d0*logmu2/b1 - 0.5d0*logt/b1 - 0.5d0*logb1/t +
3054  - 0.5d0*logmu2/t + 0.5d0*(-b1 + mu2 - t)/(b1*t) -
3055  - 0.5d0*(deltb1tmu2*tmp233)/mu2) -
3056  - (hb*ht*mu*s2b*(-0.5d0 + 2*logb1 -
3057  - (phib1tmu2*(b1 - mu2 - t))/mu2 -
3058  - 0.5d0*(logb1*logmu2) - 0.5d0*(logb1*logt) +
3059  - 0.5d0*(logmu2*logt) + 0.5d0*(logt*(-b1 + mu2 - t))/b1 +
3060  - 0.5d0*(logmu2*(-b1 - mu2 + t))/b1 -
3061  - 0.5d0*(deltb1tmu2*
3062  - ((phib1tmu2*(-b1 + mu2 + t))/deltb1tmu2 +
3063  - (mu2*tmp71)/(b1*deltb1tmu2)))/mu2))/mt +
3064  - tmp61*(1 + logb1 - logb1*logmu2 -
3065  - (-1 + logb1)*(-1 + logt) - 3*logt + logmu2*logt -
3066  - (phib1tmu2*(b1 - mu2 - t))/mu2 +
3067  - (phib1tmu2*(-b1 - mu2 + t))/mu2 +
3068  - 0.5d0*(logt*(-b1 + mu2 - t))/b1 -
3069  - 0.5d0*(logmu2*(b1 - mu2 - t))/t -
3070  - 0.5d0*(logb1*(-b1 + mu2 - t))/t +
3071  - 0.5d0*(logmu2*(-b1 - mu2 + t))/b1 -
3072  - (b1 - mu2 - t)*
3073  - (phib1tmu2/mu2 -
3074  - ((b1 - mu2 - t)*
3075  - ((phib1tmu2*(b1 + mu2 - t))/deltb1tmu2 +
3076  - (mu2*tmp67)/(deltb1tmu2*t)))/mu2 -
3077  - ((-b1 - mu2 + t)*
3078  - ((phib1tmu2*(-b1 + mu2 + t))/deltb1tmu2 +
3079  - (mu2*tmp71)/(b1*deltb1tmu2)))/mu2 +
3080  - 0.5d0*logmu2/b1 - 0.5d0*logt/b1 - 0.5d0*logb1/t +
3081  - 0.5d0*logmu2/t + 0.5d0*(-b1 + mu2 - t)/(b1*t) -
3082  - 0.5d0*(deltb1tmu2*tmp233)/mu2) +
3083  - 0.5d0*(deltb1tmu2*
3084  - ((phib1tmu2*(b1 + mu2 - t))/deltb1tmu2 +
3085  - (mu2*tmp67)/(deltb1tmu2*t)))/mu2 -
3086  - 0.5d0*(deltb1tmu2*
3087  - ((phib1tmu2*(-b1 + mu2 + t))/deltb1tmu2 +
3088  - (mu2*tmp71)/(b1*deltb1tmu2)))/mu2)
3089  db1t = db1t - tmp192*
3090  - (-0.5d0 + 2*logb1 - (phia0b1t1*(-a0 + b1 - t1))/t1 -
3091  - 0.5d0*(loga0*logb1) + 0.5d0*(loga0*logt1) -
3092  - 0.5d0*(logb1*logt1) + 0.5d0*(logt1*(a0 - b1 - t1))/b1 +
3093  - 0.5d0*(delta0b1t1*phia0b1t1)/(b1*t1) +
3094  - 0.5d0*(loga0*(-a0 - b1 + t1))/b1 -
3095  - 0.5d0*(delta0b1t1*
3096  - ((b1*phia0b1t1*tmp176)/(delta0b1t1*t1) +
3097  - tmp85/delta0b1t1))/b1)
3098  db2t = -(tmp195*(-0.5d0 + 2*logb2 -
3099  - (phia0b2t2*(-a0 + b2 - t2))/t2 - 0.5d0*(loga0*logb2) +
3100  - 0.5d0*(loga0*logt2) - 0.5d0*(logb2*logt2) +
3101  - 0.5d0*(logt2*(a0 - b2 - t2))/b2 +
3102  - 0.5d0*(delta0b2t2*phia0b2t2)/(b2*t2) +
3103  - 0.5d0*(loga0*(-a0 - b2 + t2))/b2 -
3104  - 0.5d0*(delta0b2t2*
3105  - (tmp106/delta0b2t2 +
3106  - (b2*phia0b2t2*tmp181)/(delta0b2t2*t2)))/b2)) -
3107  - 0.5d0*(tmp183*tmp212) - 0.5d0*(tmp187*tmp216) -
3108  - 2*hb*ht*mt*mu*s2b*
3109  - (-(phib2tmu2/mu2) +
3110  - ((b2 - mu2 - t)*
3111  - ((phib2tmu2*(b2 + mu2 - t))/deltb2tmu2 +
3112  - (mu2*tmp68)/(deltb2tmu2*t)))/mu2 +
3113  - ((-b2 - mu2 + t)*
3114  - ((phib2tmu2*(-b2 + mu2 + t))/deltb2tmu2 +
3115  - (mu2*tmp72)/(b2*deltb2tmu2)))/mu2 -
3116  - 0.5d0*logmu2/b2 + 0.5d0*logt/b2 + 0.5d0*logb2/t -
3117  - 0.5d0*logmu2/t - 0.5d0*(-b2 + mu2 - t)/(b2*t) +
3118  - 0.5d0*(deltb2tmu2*tmp237)/mu2) +
3119  - tmp60*(1 + logb2 - logb2*logmu2 -
3120  - (-1 + logb2)*(-1 + logt) - 3*logt + logmu2*logt -
3121  - (phib2tmu2*(b2 - mu2 - t))/mu2 +
3122  - (phib2tmu2*(-b2 - mu2 + t))/mu2 +
3123  - 0.5d0*(logt*(-b2 + mu2 - t))/b2 -
3124  - 0.5d0*(logmu2*(b2 - mu2 - t))/t -
3125  - 0.5d0*(logb2*(-b2 + mu2 - t))/t +
3126  - 0.5d0*(logmu2*(-b2 - mu2 + t))/b2 -
3127  - (b2 - mu2 - t)*
3128  - (phib2tmu2/mu2 -
3129  - ((b2 - mu2 - t)*
3130  - ((phib2tmu2*(b2 + mu2 - t))/deltb2tmu2 +
3131  - (mu2*tmp68)/(deltb2tmu2*t)))/mu2 -
3132  - ((-b2 - mu2 + t)*
3133  - ((phib2tmu2*(-b2 + mu2 + t))/deltb2tmu2 +
3134  - (mu2*tmp72)/(b2*deltb2tmu2)))/mu2 +
3135  - 0.5d0*logmu2/b2 - 0.5d0*logt/b2 - 0.5d0*logb2/t +
3136  - 0.5d0*logmu2/t + 0.5d0*(-b2 + mu2 - t)/(b2*t) -
3137  - 0.5d0*(deltb2tmu2*tmp237)/mu2) +
3138  - 0.5d0*(deltb2tmu2*
3139  - ((phib2tmu2*(b2 + mu2 - t))/deltb2tmu2 +
3140  - (mu2*tmp68)/(deltb2tmu2*t)))/mu2 -
3141  - 0.5d0*(deltb2tmu2*
3142  - ((phib2tmu2*(-b2 + mu2 + t))/deltb2tmu2 +
3143  - (mu2*tmp72)/(b2*deltb2tmu2)))/mu2) -
3144  - (hb*ht*mu*s2b*(0.5d0 - 2*logb2 +
3145  - (phib2tmu2*(b2 - mu2 - t))/mu2 +
3146  - 0.5d0*(logb2*logmu2) + 0.5d0*(logb2*logt) -
3147  - 0.5d0*(logmu2*logt) - 0.5d0*(logt*(-b2 + mu2 - t))/b2 -
3148  - 0.5d0*(logmu2*(-b2 - mu2 + t))/b2 +
3149  - 0.5d0*(deltb2tmu2*
3150  - ((phib2tmu2*(-b2 + mu2 + t))/deltb2tmu2 +
3151  - (mu2*tmp72)/(b2*deltb2tmu2)))/mu2))/mt
3152  db2t = db2t - tmp191*
3153  - (-0.5d0 + 2*logb2 - (phia0b2t1*(-a0 + b2 - t1))/t1 -
3154  - 0.5d0*(loga0*logb2) + 0.5d0*(loga0*logt1) -
3155  - 0.5d0*(logb2*logt1) + 0.5d0*(logt1*(a0 - b2 - t1))/b2 +
3156  - 0.5d0*(delta0b2t1*phia0b2t1)/(b2*t1) +
3157  - 0.5d0*(loga0*(-a0 - b2 + t1))/b2 -
3158  - 0.5d0*(delta0b2t1*
3159  - ((b2*phia0b2t1*tmp177)/(delta0b2t1*t1) +
3160  - tmp86/delta0b2t1))/b2)
3161  dt1b1 = ht**2*(0.25d0*((1 + c2b)*(1 - c2t)) +
3162  - 0.25d0*((1 + c2b)*(1 - c2t)*(-1 + logb1)) +
3163  - 0.25d0*((1 + c2b)*(1 - c2t)*(-1 + logt1)) +
3164  - 0.25d0*((1 + c2b)*(1 - c2t)*(-1 + logb1)*(-1 + logt1)))+
3165  - hb**2*(0.25d0*((1 - c2b)*(1 + c2t)) +
3166  - 0.25d0*((1 - c2b)*(1 + c2t)*(-1 + logb1)) +
3167  - 0.25d0*((1 - c2b)*(1 + c2t)*(-1 + logt1)) +
3168  - 0.25d0*((1 - c2b)*(1 + c2t)*(-1 + logb1)*(-1 + logt1)))-
3169  - 0.5d0*(((-2*b1*(logb1 - logt1))/((1 - b1/t1)*t1**2) +
3170  - (-2 - 2*logb1)/t1 + (2*logt1)/t1 -
3171  - (2*(logb1 - logt1))/((1 - b1/t1)*t1) +
3172  - (2*b1*(logb1 - logt1)*(-b1 + t1))/
3173  - ((1 - b1/t1)**2*t1**3.0d0) +
3174  - (2*(-b1 + t1))/((1 - b1/t1)*t1**2) +
3175  - (2*(logb1 - logt1)*(-b1 + t1))/((1 - b1/t1)*t1**2))*
3176  - tmp186) - tmp194*
3177  - (phia0b1t1/t1 + (phia0b1t1*(-a0 - b1 + t1))/(b1*t1) -
3178  - ((-a0 + b1 - t1)*
3179  - ((b1*phia0b1t1*(a0 + b1 - t1))/(delta0b1t1*t1) +
3180  - (b1*tmp81)/(delta0b1t1*t1)))/b1 -
3181  - ((-a0 - b1 + t1)*
3182  - ((b1*phia0b1t1*tmp176)/(delta0b1t1*t1) +
3183  - tmp85/delta0b1t1))/b1 + 0.5d0*loga0/b1 -
3184  - 0.5d0*logt1/b1 + 0.5d0*loga0/t1 - 0.5d0*logb1/t1 +
3185  - 0.5d0*(a0 - b1 - t1)/(b1*t1) +
3186  - 0.5d0*(delta0b1t1*
3187  - ((b1*phia0b1t1*(a0 + b1 - t1))/(delta0b1t1*t1) +
3188  - (b1*tmp81)/(delta0b1t1*t1)))/b1**2 -
3189  - 0.5d0*(delta0b1t1*
3190  - ((b1*phia0b1t1)/(delta0b1t1*t1) -
3191  - (2*b1*phia0b1t1*(-a0 + b1 - t1)*(a0 + b1 - t1))/
3192  - (delta0b1t1**2*t1) +
3193  - (b1*((a0 - b1)/b1 + loga0 - logb1 - t1/b1))/
3194  - (delta0b1t1*t1) + tmp81/(delta0b1t1*t1) -
3195  - (2*b1*(-a0 + b1 - t1)*tmp81)/
3196  - (delta0b1t1**2*t1) +
3197  - ((a0 + b1 - t1)*
3198  - ((b1*phia0b1t1*tmp176)/(delta0b1t1*t1) +
3199  - tmp85/delta0b1t1))/delta0b1t1))/b1)
3200  dt2b1 = hb**2*(0.25d0*((1 - c2b)*(1 - c2t)) +
3201  - 0.25d0*((1 - c2b)*(1 - c2t)*(-1 + logb1)) +
3202  - 0.25d0*((1 - c2b)*(1 - c2t)*(-1 + logt2)) +
3203  - 0.25d0*((1 - c2b)*(1 - c2t)*(-1 + logb1)*(-1 + logt2)))+
3204  - ht**2*(0.25d0*((1 + c2b)*(1 + c2t)) +
3205  - 0.25d0*((1 + c2b)*(1 + c2t)*(-1 + logb1)) +
3206  - 0.25d0*((1 + c2b)*(1 + c2t)*(-1 + logt2)) +
3207  - 0.25d0*((1 + c2b)*(1 + c2t)*(-1 + logb1)*(-1 + logt2)))-
3208  - tmp198*(phia0b1t2/t2 +
3209  - (phia0b1t2*(-a0 - b1 + t2))/(b1*t2) -
3210  - ((-a0 + b1 - t2)*
3211  - ((b1*phia0b1t2*(a0 + b1 - t2))/(delta0b1t2*t2) +
3212  - (b1*tmp100)/(delta0b1t2*t2)))/b1 -
3213  - ((-a0 - b1 + t2)*
3214  - (tmp105/delta0b1t2 +
3215  - (b1*phia0b1t2*tmp180)/(delta0b1t2*t2)))/b1 +
3216  - 0.5d0*loga0/b1 - 0.5d0*logt2/b1 + 0.5d0*loga0/t2 -
3217  - 0.5d0*logb1/t2 + 0.5d0*(a0 - b1 - t2)/(b1*t2) +
3218  - 0.5d0*(delta0b1t2*
3219  - ((b1*phia0b1t2*(a0 + b1 - t2))/(delta0b1t2*t2) +
3220  - (b1*tmp100)/(delta0b1t2*t2)))/b1**2 -
3221  - 0.5d0*(delta0b1t2*
3222  - ((b1*phia0b1t2)/(delta0b1t2*t2) -
3223  - (2*b1*phia0b1t2*(-a0 + b1 - t2)*(a0 + b1 - t2))/
3224  - (delta0b1t2**2*t2) +
3225  - (b1*((a0 - b1)/b1 + loga0 - logb1 - t2/b1))/
3226  - (delta0b1t2*t2) + tmp100/(delta0b1t2*t2) -
3227  - (2*b1*(-a0 + b1 - t2)*tmp100)/
3228  - (delta0b1t2**2*t2) +
3229  - ((a0 + b1 - t2)*
3230  - (tmp105/delta0b1t2 +
3231  - (b1*phia0b1t2*tmp180)/(delta0b1t2*t2)))/
3232  - delta0b1t2))/b1) -
3233  - 0.5d0*(((-2*b1*(logb1 - logt2))/((1 - b1/t2)*t2**2) +
3234  - (-2 - 2*logb1)/t2 + (2*logt2)/t2 -
3235  - (2*(logb1 - logt2))/((1 - b1/t2)*t2) +
3236  - (2*b1*(logb1 - logt2)*(-b1 + t2))/
3237  - ((1 - b1/t2)**2*t2**3.0d0) +
3238  - (2*(-b1 + t2))/((1 - b1/t2)*t2**2) +
3239  - (2*(logb1 - logt2)*(-b1 + t2))/((1 - b1/t2)*t2**2))*
3240  - tmp190)
3241  dt1b2 = ht**2*(0.25d0*((1 - c2b)*(1 - c2t)) +
3242  - 0.25d0*((1 - c2b)*(1 - c2t)*(-1 + logb2)) +
3243  - 0.25d0*((1 - c2b)*(1 - c2t)*(-1 + logt1)) +
3244  - 0.25d0*((1 - c2b)*(1 - c2t)*(-1 + logb2)*(-1 + logt1)))+
3245  - hb**2*(0.25d0*((1 + c2b)*(1 + c2t)) +
3246  - 0.25d0*((1 + c2b)*(1 + c2t)*(-1 + logb2)) +
3247  - 0.25d0*((1 + c2b)*(1 + c2t)*(-1 + logt1)) +
3248  - 0.25d0*((1 + c2b)*(1 + c2t)*(-1 + logb2)*(-1 + logt1)))-
3249  - 0.5d0*(((-2*b2*(logb2 - logt1))/((1 - b2/t1)*t1**2) +
3250  - (-2 - 2*logb2)/t1 + (2*logt1)/t1 -
3251  - (2*(logb2 - logt1))/((1 - b2/t1)*t1) +
3252  - (2*b2*(logb2 - logt1)*(-b2 + t1))/
3253  - ((1 - b2/t1)**2*t1**3.0d0) +
3254  - (2*(-b2 + t1))/((1 - b2/t1)*t1**2) +
3255  - (2*(logb2 - logt1)*(-b2 + t1))/((1 - b2/t1)*t1**2))*
3256  - tmp185) - tmp193*
3257  - (phia0b2t1/t1 + (phia0b2t1*(-a0 - b2 + t1))/(b2*t1) -
3258  - ((-a0 + b2 - t1)*
3259  - ((b2*phia0b2t1*(a0 + b2 - t1))/(delta0b2t1*t1) +
3260  - (b2*tmp82)/(delta0b2t1*t1)))/b2 -
3261  - ((-a0 - b2 + t1)*
3262  - ((b2*phia0b2t1*tmp177)/(delta0b2t1*t1) +
3263  - tmp86/delta0b2t1))/b2 + 0.5d0*loga0/b2 -
3264  - 0.5d0*logt1/b2 + 0.5d0*loga0/t1 - 0.5d0*logb2/t1 +
3265  - 0.5d0*(a0 - b2 - t1)/(b2*t1) +
3266  - 0.5d0*(delta0b2t1*
3267  - ((b2*phia0b2t1*(a0 + b2 - t1))/(delta0b2t1*t1) +
3268  - (b2*tmp82)/(delta0b2t1*t1)))/b2**2 -
3269  - 0.5d0*(delta0b2t1*
3270  - ((b2*phia0b2t1)/(delta0b2t1*t1) -
3271  - (2*b2*phia0b2t1*(-a0 + b2 - t1)*(a0 + b2 - t1))/
3272  - (delta0b2t1**2*t1) +
3273  - (b2*((a0 - b2)/b2 + loga0 - logb2 - t1/b2))/
3274  - (delta0b2t1*t1) + tmp82/(delta0b2t1*t1) -
3275  - (2*b2*(-a0 + b2 - t1)*tmp82)/
3276  - (delta0b2t1**2*t1) +
3277  - ((a0 + b2 - t1)*
3278  - ((b2*phia0b2t1*tmp177)/(delta0b2t1*t1) +
3279  - tmp86/delta0b2t1))/delta0b2t1))/b2)
3280  dt2b2 = hb**2*(0.25d0*((1 + c2b)*(1 - c2t)) +
3281  - 0.25d0*((1 + c2b)*(1 - c2t)*(-1 + logb2)) +
3282  - 0.25d0*((1 + c2b)*(1 - c2t)*(-1 + logt2)) +
3283  - 0.25d0*((1 + c2b)*(1 - c2t)*(-1 + logb2)*(-1 + logt2)))+
3284  - ht**2*(0.25d0*((1 - c2b)*(1 + c2t)) +
3285  - 0.25d0*((1 - c2b)*(1 + c2t)*(-1 + logb2)) +
3286  - 0.25d0*((1 - c2b)*(1 + c2t)*(-1 + logt2)) +
3287  - 0.25d0*((1 - c2b)*(1 + c2t)*(-1 + logb2)*(-1 + logt2)))-
3288  - tmp197*(phia0b2t2/t2 +
3289  - (phia0b2t2*(-a0 - b2 + t2))/(b2*t2) -
3290  - ((-a0 + b2 - t2)*
3291  - ((b2*phia0b2t2*(a0 + b2 - t2))/(delta0b2t2*t2) +
3292  - (b2*tmp101)/(delta0b2t2*t2)))/b2 -
3293  - ((-a0 - b2 + t2)*
3294  - (tmp106/delta0b2t2 +
3295  - (b2*phia0b2t2*tmp181)/(delta0b2t2*t2)))/b2 +
3296  - 0.5d0*loga0/b2 - 0.5d0*logt2/b2 + 0.5d0*loga0/t2 -
3297  - 0.5d0*logb2/t2 + 0.5d0*(a0 - b2 - t2)/(b2*t2) +
3298  - 0.5d0*(delta0b2t2*
3299  - ((b2*phia0b2t2*(a0 + b2 - t2))/(delta0b2t2*t2) +
3300  - (b2*tmp101)/(delta0b2t2*t2)))/b2**2 -
3301  - 0.5d0*(delta0b2t2*
3302  - ((b2*phia0b2t2)/(delta0b2t2*t2) -
3303  - (2*b2*phia0b2t2*(-a0 + b2 - t2)*(a0 + b2 - t2))/
3304  - (delta0b2t2**2*t2) +
3305  - (b2*((a0 - b2)/b2 + loga0 - logb2 - t2/b2))/
3306  - (delta0b2t2*t2) + tmp101/(delta0b2t2*t2) -
3307  - (2*b2*(-a0 + b2 - t2)*tmp101)/
3308  - (delta0b2t2**2*t2) +
3309  - ((a0 + b2 - t2)*
3310  - (tmp106/delta0b2t2 +
3311  - (b2*phia0b2t2*tmp181)/(delta0b2t2*t2)))/
3312  - delta0b2t2))/b2) -
3313  - 0.5d0*(((-2*b2*(logb2 - logt2))/((1 - b2/t2)*t2**2) +
3314  - (-2 - 2*logb2)/t2 + (2*logt2)/t2 -
3315  - (2*(logb2 - logt2))/((1 - b2/t2)*t2) +
3316  - (2*b2*(logb2 - logt2)*(-b2 + t2))/
3317  - ((1 - b2/t2)**2*t2**3.0d0) +
3318  - (2*(-b2 + t2))/((1 - b2/t2)*t2**2) +
3319  - (2*(logb2 - logt2)*(-b2 + t2))/((1 - b2/t2)*t2**2))*
3320  - tmp189)
3321  dbc2t = tmp7*(2*b*logb + (-1 + logmu2)*mu2 +
3322  - (-1 + logb)*(-1 + logmu2)*mu2 + 2*logmu2*mu2 -
3323  - (-1 + logt2)*t2 - (-1 + logb)*(-1 + logt2)*t2 +
3324  - 2*logt2*t2 - 0.5d0*(deltt2bmu2*phit2bmu2)/mu2 +
3325  - 0.5d0*(logmu2*logt2*(b - mu2 - t2)) +
3326  - 0.5d0*(logb*logt2*(-b + mu2 - t2)) +
3327  - 0.5d0*(logb*logmu2*(-b - mu2 + t2)) -
3328  - 2.5d0*(b + mu2 + t2) -
3329  - (-b - mu2 + t2)*
3330  - (-0.5d0 + 2*logb - (phit2bmu2*(b - mu2 - t2))/mu2 -
3331  - 0.5d0*(logb*logmu2) - 0.5d0*(logb*logt2) +
3332  - 0.5d0*(logmu2*logt2) +
3333  - 0.5d0*(logt2*(-b + mu2 - t2))/b +
3334  - 0.5d0*(logmu2*(-b - mu2 + t2))/b -
3335  - 0.5d0*(deltt2bmu2*
3336  - ((phit2bmu2*(-b + mu2 + t2))/deltt2bmu2 +
3337  - (mu2*tmp110)/(b*deltt2bmu2)))/mu2)) +
3338  - 0.5d0*(hb*ht*mu*tmp113)/(mb*s2t) +
3339  - tmp6*(2*b*logb + (-1 + logmu2)*mu2 +
3340  - (-1 + logb)*(-1 + logmu2)*mu2 + 2*logmu2*mu2 -
3341  - (-1 + logt1)*t1 - (-1 + logb)*(-1 + logt1)*t1 +
3342  - 2*logt1*t1 - 0.5d0*(deltt1bmu2*phit1bmu2)/mu2 +
3343  - 0.5d0*(logmu2*logt1*(b - mu2 - t1)) +
3344  - 0.5d0*(logb*logt1*(-b + mu2 - t1)) +
3345  - 0.5d0*(logb*logmu2*(-b - mu2 + t1)) -
3346  - 2.5d0*(b + mu2 + t1) -
3347  - (-b - mu2 + t1)*
3348  - (-0.5d0 + 2*logb - (phit1bmu2*(b - mu2 - t1))/mu2 -
3349  - 0.5d0*(logb*logmu2) - 0.5d0*(logb*logt1) +
3350  - 0.5d0*(logmu2*logt1) +
3351  - 0.5d0*(logt1*(-b + mu2 - t1))/b +
3352  - 0.5d0*(logmu2*(-b - mu2 + t1))/b -
3353  - 0.5d0*(deltt1bmu2*
3354  - ((phit1bmu2*(-b + mu2 + t1))/deltt1bmu2 +
3355  - (mu2*tmp90)/(b*deltt1bmu2)))/mu2)) +
3356  - (hb*ht*mb*mu*(-((phit1bmu2*(b - mu2 - t1))/mu2) +
3357  - (phit2bmu2*(b - mu2 - t2))/mu2 - 0.5d0*(logb*logt1) +
3358  - 0.5d0*(logmu2*logt1) + 0.5d0*(logb*logt2) -
3359  - 0.5d0*(logmu2*logt2) + 0.5d0*(logt1*(-b + mu2 - t1))/b +
3360  - 0.5d0*(logmu2*(-b - mu2 + t1))/b -
3361  - 0.5d0*(logt2*(-b + mu2 - t2))/b -
3362  - 0.5d0*(logmu2*(-b - mu2 + t2))/b +
3363  - 0.5d0*(deltt2bmu2*
3364  - ((phit2bmu2*(-b + mu2 + t2))/deltt2bmu2 +
3365  - (mu2*tmp110)/(b*deltt2bmu2)))/mu2 -
3366  - 0.5d0*(deltt1bmu2*
3367  - ((phit1bmu2*(-b + mu2 + t1))/deltt1bmu2 +
3368  - (mu2*tmp90)/(b*deltt1bmu2)))/mu2))/s2t
3369  dbc2t = dbc2t - 0.5d0*
3370  - ((-5*b1 + 4*b1*logb1 + logt1**2*(b1 - t1) - 5*t1 +
3371  - logt1*(-2*b1*logb1 + 4*t1) - 2*(-b1 + t1)*tmp169)*
3372  - (-(cbe*hb*ht*sbe*
3373  - ((mt*tmp55)/mb - 0.25d0*s2b/s2t -
3374  - 0.25d0*tmp129/(mb*s2t))) +
3375  - cbe**2*hb**2*
3376  - (0.125d0*(1 + c2b)/c2t - 0.125d0*(mt*s2b)/(mb*s2t) +
3377  - 0.125d0*(s2b*xb)/(c2t*mb)) +
3378  - ht**2*sbe**2*
3379  - (-(0.125d0*(1 - c2b)/c2t) - 0.125d0*(mt*s2b)/(mb*s2t) -
3380  - 0.125d0*(s2b*xt)/(c2t*mb)))) -
3381  - 0.5d0*((-5*b2 + 4*b2*logb2 + logt2**2*(b2 - t2) - 5*t2 +
3382  - logt2*(-2*b2*logb2 + 4*t2) - 2*(-b2 + t2)*tmp173)*
3383  - (-(cbe*hb*ht*sbe*
3384  - ((mt*tmp55)/mb - 0.25d0*s2b/s2t +
3385  - 0.25d0*tmp128/(mb*s2t))) +
3386  - cbe**2*hb**2*
3387  - (-(0.125d0*(1 - c2b)/c2t) - 0.125d0*(mt*s2b)/(mb*s2t) +
3388  - 0.125d0*(s2b*xb)/(c2t*mb)) +
3389  - ht**2*sbe**2*
3390  - (0.125d0*(1 + c2b)/c2t - 0.125d0*(mt*s2b)/(mb*s2t) -
3391  - 0.125d0*(s2b*xt)/(c2t*mb)))) -
3392  - 0.5d0*((-5*b1 + 4*b1*logb1 + logt2**2*(b1 - t2) - 5*t2 +
3393  - logt2*(-2*b1*logb1 + 4*t2) - 2*(-b1 + t2)*tmp172)*
3394  - (-(cbe*hb*ht*sbe*
3395  - ((mt*tmp54)/mb + 0.25d0*s2b/s2t +
3396  - 0.25d0*tmp129/(mb*s2t))) +
3397  - cbe**2*hb**2*
3398  - (-(0.125d0*(1 + c2b)/c2t) + 0.125d0*(mt*s2b)/(mb*s2t) -
3399  - 0.125d0*(s2b*xb)/(c2t*mb)) +
3400  - ht**2*sbe**2*
3401  - (0.125d0*(1 - c2b)/c2t + 0.125d0*(mt*s2b)/(mb*s2t) +
3402  - 0.125d0*(s2b*xt)/(c2t*mb)))) -
3403  - 0.5d0*((-5*b2 + 4*b2*logb2 + logt1**2*(b2 - t1) - 5*t1 +
3404  - logt1*(-2*b2*logb2 + 4*t1) - 2*(-b2 + t1)*tmp170)*
3405  - (-(cbe*hb*ht*sbe*
3406  - ((mt*tmp54)/mb + 0.25d0*s2b/s2t -
3407  - 0.25d0*tmp128/(mb*s2t))) +
3408  - cbe**2*hb**2*
3409  - (0.125d0*(1 - c2b)/c2t + 0.125d0*(mt*s2b)/(mb*s2t) -
3410  - 0.125d0*(s2b*xb)/(c2t*mb)) +
3411  - ht**2*sbe**2*
3412  - (-(0.125d0*(1 + c2b)/c2t) + 0.125d0*(mt*s2b)/(mb*s2t) +
3413  - 0.125d0*(s2b*xt)/(c2t*mb))))
3414  dbc2t = dbc2t - tmp88*
3415  - (cbe*hb*ht*sbe*((mt*tmp55)/mb - 0.25d0*s2b/s2t -
3416  - 0.25d0*tmp155/(mb*s2t)) +
3417  - hb**2*sbe**2*(0.125d0*(1 + c2b)/c2t -
3418  - 0.125d0*(mt*s2b)/(mb*s2t) + 0.125d0*(s2b*yb)/(c2t*mb))+
3419  - cbe**2*ht**2*
3420  - (-(0.125d0*(1 - c2b)/c2t) - 0.125d0*(mt*s2b)/(mb*s2t) -
3421  - 0.125d0*(s2b*yt)/(c2t*mb))) -
3422  - tmp109*(cbe*hb*ht*sbe*
3423  - ((mt*tmp55)/mb - 0.25d0*s2b/s2t + 0.25d0*tmp154/(mb*s2t))+
3424  - hb**2*sbe**2*
3425  - (-(0.125d0*(1 - c2b)/c2t) - 0.125d0*(mt*s2b)/(mb*s2t) +
3426  - 0.125d0*(s2b*yb)/(c2t*mb)) +
3427  - cbe**2*ht**2*(0.125d0*(1 + c2b)/c2t -
3428  - 0.125d0*(mt*s2b)/(mb*s2t) - 0.125d0*(s2b*yt)/(c2t*mb)))-
3429  - tmp108*(cbe*hb*ht*sbe*
3430  - ((mt*tmp54)/mb + 0.25d0*s2b/s2t + 0.25d0*tmp155/(mb*s2t))+
3431  - hb**2*sbe**2*
3432  - (-(0.125d0*(1 + c2b)/c2t) + 0.125d0*(mt*s2b)/(mb*s2t) -
3433  - 0.125d0*(s2b*yb)/(c2t*mb)) +
3434  - cbe**2*ht**2*(0.125d0*(1 - c2b)/c2t +
3435  - 0.125d0*(mt*s2b)/(mb*s2t) + 0.125d0*(s2b*yt)/(c2t*mb)))-
3436  - tmp89*(cbe*hb*ht*sbe*
3437  - ((mt*tmp54)/mb + 0.25d0*s2b/s2t - 0.25d0*tmp154/(mb*s2t))+
3438  - hb**2*sbe**2*
3439  - (0.125d0*(1 - c2b)/c2t + 0.125d0*(mt*s2b)/(mb*s2t) -
3440  - 0.125d0*(s2b*yb)/(c2t*mb)) +
3441  - cbe**2*ht**2*(-(0.125d0*(1 + c2b)/c2t) +
3442  - 0.125d0*(mt*s2b)/(mb*s2t) + 0.125d0*(s2b*yt)/(c2t*mb)))
3443  db1c2t = hb**2*(0.125d0*((1 - c2b)*(-1 + logt1)*t1)/c2t +
3444  - 0.125d0*((1 - c2b)*(-1 + logb1)*(-1 + logt1)*t1)/c2t -
3445  - 0.125d0*((1 - c2b)*(-1 + logt2)*t2)/c2t -
3446  - 0.125d0*((1 - c2b)*(-1 + logb1)*(-1 + logt2)*t2)/c2t) +
3447  - ht**2*(-(0.125d0*((1 + c2b)*(-1 + logt1)*t1)/c2t) -
3448  - 0.125d0*((1 + c2b)*(-1 + logb1)*(-1 + logt1)*t1)/c2t +
3449  - 0.125d0*((1 + c2b)*(-1 + logt2)*t2)/c2t +
3450  - 0.125d0*((1 + c2b)*(-1 + logb1)*(-1 + logt2)*t2)/c2t) -
3451  - tmp206*(-0.5d0 + 2*logb1 - (phia0b1t2*(-a0 + b1 - t2))/t2
3452  $ -0.5d0*(loga0*logb1) + 0.5d0*(loga0*logt2) -0.5d0*(logb1
3453  $ *logt2) + 0.5d0*(logt2*(a0 - b1 - t2))/b1 +0.5d0
3454  $ *(delta0b1t2*phia0b1t2)/(b1*t2) +0.5d0*(loga0*(-a0 - b1 +
3455  $ t2))/b1 -0.5d0*(delta0b1t2*(tmp105/delta0b1t2 +(b1
3456  $ *phia0b1t2*tmp180)/(delta0b1t2*t2)))/b1) -0.5d0*(tmp200
3457  $ *tmp211) - 0.5d0*(tmp202*tmp215) -tmp204*(-0.5d0 + 2*logb1
3458  $ - (phia0b1t1*(-a0 + b1 - t1))/t1 -0.5d0*(loga0*logb1) + 0
3459  $ .5d0*(loga0*logt1) -0.5d0*(logb1*logt1) + 0.5d0*(logt1*(a0
3460  $ - b1 - t1))/b1 +0.5d0*(delta0b1t1*phia0b1t1)/(b1*t1) +0.5d0
3461  $ *(loga0*(-a0 - b1 + t1))/b1 -0.5d0*(delta0b1t1*((b1
3462  $ *phia0b1t1*tmp176)/(delta0b1t1*t1) +tmp85/delta0b1t1))/b1)
3463  db2c2t = ht**2*(-(0.125d0*
3464  - ((1 - c2b)*(-1 + logt1)*t1)/c2t) -
3465  - 0.125d0*((1 - c2b)*(-1 + logb2)*(-1 + logt1)*t1)/c2t +
3466  - 0.125d0*((1 - c2b)*(-1 + logt2)*t2)/c2t +
3467  - 0.125d0*((1 - c2b)*(-1 + logb2)*(-1 + logt2)*t2)/c2t) +
3468  - hb**2*(0.125d0*((1 + c2b)*(-1 + logt1)*t1)/c2t +
3469  - 0.125d0*((1 + c2b)*(-1 + logb2)*(-1 + logt1)*t1)/c2t -
3470  - 0.125d0*((1 + c2b)*(-1 + logt2)*t2)/c2t -
3471  - 0.125d0*((1 + c2b)*(-1 + logb2)*(-1 + logt2)*t2)/c2t) -
3472  - tmp205*(-0.5d0 + 2*logb2 - (phia0b2t2*(-a0 + b2 - t2))/t2
3473  $ -0.5d0*(loga0*logb2) + 0.5d0*(loga0*logt2) -0.5d0*(logb2
3474  $ *logt2) + 0.5d0*(logt2*(a0 - b2 - t2))/b2 +0.5d0
3475  $ *(delta0b2t2*phia0b2t2)/(b2*t2) +0.5d0*(loga0*(-a0 - b2 +
3476  $ t2))/b2 -0.5d0*(delta0b2t2*(tmp106/delta0b2t2 +(b2
3477  $ *phia0b2t2*tmp181)/(delta0b2t2*t2)))/b2) -0.5d0*(tmp199
3478  $ *tmp212) - 0.5d0*(tmp201*tmp216) -tmp203*(-0.5d0 + 2*logb2
3479  $ - (phia0b2t1*(-a0 + b2 - t1))/t1 -0.5d0*(loga0*logb2) + 0
3480  $ .5d0*(loga0*logt1) -0.5d0*(logb2*logt1) + 0.5d0*(logt1*(a0
3481  $ - b2 - t1))/b2 +0.5d0*(delta0b2t1*phia0b2t1)/(b2*t1) +0.5d0
3482  $ *(loga0*(-a0 - b2 + t1))/b2 -0.5d0*(delta0b2t1*((b2
3483  $ *phia0b2t1*tmp177)/(delta0b2t1*t1) +tmp86/delta0b2t1))/b2)
3484  dt1c2b = ht**2*(0.125d0*(b1*(1 - c2t)*(-1 + logb1))/c2b -
3485  - 0.125d0*(b2*(1 - c2t)*(-1 + logb2))/c2b +
3486  - 0.125d0*(b1*(1 - c2t)*(-1 + logb1)*(-1 + logt1))/c2b -
3487  - 0.125d0*(b2*(1 - c2t)*(-1 + logb2)*(-1 + logt1))/c2b) +
3488  - hb**2*(-(0.125d0*(b1*(1 + c2t)*(-1 + logb1))/c2b) +
3489  - 0.125d0*(b2*(1 + c2t)*(-1 + logb2))/c2b -
3490  - 0.125d0*(b1*(1 + c2t)*(-1 + logb1)*(-1 + logt1))/c2b +
3491  - 0.125d0*(b2*(1 + c2t)*(-1 + logb2)*(-1 + logt1))/c2b) -
3492  - 0.5d0*(tmp214*(cbe**2*hb**2*
3493  - (-(0.125d0*(b*(1 + c2t))/c2b) +
3494  - 0.25d0*(mb*mt*s2t)/s2b + 0.125d0*((1 - c2t)*t)/c2b +
3495  - 0.25d0*((1 + c2t)*mb*xb)/s2b +
3496  - 0.25d0*(mt*s2t*xb)/c2b + 0.125d0*((1 + c2t)*xb**2)/c2b
3497  - ) - cbe*hb*ht*sbe*
3498  - (mb*s2t*tmp23 + 2*mb*mt*tmp57 +
3499  - 0.25d0*(s2t*(b + t))/s2b + 0.5d0*(mt*tmp130)/s2b +
3500  - 0.25d0*(s2t*xb*xt)/s2b) +
3501  - ht**2*sbe**2*
3502  - (0.125d0*(b*(1 - c2t))/c2b + 0.25d0*(mb*mt*s2t)/s2b -
3503  - 0.125d0*((1 + c2t)*t)/c2b +
3504  - 0.25d0*((1 - c2t)*mb*xt)/s2b -
3505  - 0.25d0*(mt*s2t*xt)/c2b - 0.125d0*((1 - c2t)*xt**2)/c2b
3506  - ))) - 0.5d0*
3507  - (tmp213*(cbe**2*hb**2*
3508  - (0.125d0*(b*(1 + c2t))/c2b - 0.25d0*(mb*mt*s2t)/s2b -
3509  - 0.125d0*((1 - c2t)*t)/c2b -
3510  - 0.25d0*((1 + c2t)*mb*xb)/s2b -
3511  - 0.25d0*(mt*s2t*xb)/c2b - 0.125d0*((1 + c2t)*xb**2)/c2b
3512  - ) - cbe*hb*ht*sbe*
3513  - (mb*s2t*tmp24 + 2*mb*mt*tmp58 -
3514  - 0.25d0*(s2t*(b + t))/s2b - 0.5d0*(mt*tmp130)/s2b -
3515  - 0.25d0*(s2t*xb*xt)/s2b) +
3516  - ht**2*sbe**2*
3517  - (-(0.125d0*(b*(1 - c2t))/c2b) -
3518  - 0.25d0*(mb*mt*s2t)/s2b + 0.125d0*((1 + c2t)*t)/c2b -
3519  - 0.25d0*((1 - c2t)*mb*xt)/s2b +
3520  - 0.25d0*(mt*s2t*xt)/c2b + 0.125d0*((1 - c2t)*xt**2)/c2b
3521  - )))
3522  dt1c2b = dt1c2b -
3523  - tmp239*(hb**2*sbe**2*
3524  - (-(0.125d0*(b*(1 + c2t))/c2b) + 0.25d0*(mb*mt*s2t)/s2b +
3525  - 0.125d0*((1 - c2t)*t)/c2b +
3526  - 0.25d0*((1 + c2t)*mb*yb)/s2b + 0.25d0*(mt*s2t*yb)/c2b +
3527  - 0.125d0*((1 + c2t)*yb**2)/c2b) +
3528  - cbe*hb*ht*sbe*(mb*s2t*tmp39 + 2*mb*mt*tmp57 +
3529  - 0.25d0*(s2t*(b + t))/s2b + 0.5d0*(mt*tmp156)/s2b +
3530  - 0.25d0*(s2t*yb*yt)/s2b) +
3531  - cbe**2*ht**2*(0.125d0*(b*(1 - c2t))/c2b +
3532  - 0.25d0*(mb*mt*s2t)/s2b - 0.125d0*((1 + c2t)*t)/c2b +
3533  - 0.25d0*((1 - c2t)*mb*yt)/s2b - 0.25d0*(mt*s2t*yt)/c2b -
3534  - 0.125d0*((1 - c2t)*yt**2)/c2b)) -
3535  - tmp238*(hb**2*sbe**2*
3536  - (0.125d0*(b*(1 + c2t))/c2b - 0.25d0*(mb*mt*s2t)/s2b -
3537  - 0.125d0*((1 - c2t)*t)/c2b -
3538  - 0.25d0*((1 + c2t)*mb*yb)/s2b - 0.25d0*(mt*s2t*yb)/c2b -
3539  - 0.125d0*((1 + c2t)*yb**2)/c2b) +
3540  - cbe*hb*ht*sbe*(mb*s2t*tmp40 + 2*mb*mt*tmp58 -
3541  - 0.25d0*(s2t*(b + t))/s2b - 0.5d0*(mt*tmp156)/s2b -
3542  - 0.25d0*(s2t*yb*yt)/s2b) +
3543  - cbe**2*ht**2*(-(0.125d0*(b*(1 - c2t))/c2b) -
3544  - 0.25d0*(mb*mt*s2t)/s2b + 0.125d0*((1 + c2t)*t)/c2b -
3545  - 0.25d0*((1 - c2t)*mb*yt)/s2b + 0.25d0*(mt*s2t*yt)/c2b +
3546  - 0.125d0*((1 - c2t)*yt**2)/c2b))
3547  dt2c2b = hb**2*(-(0.125d0*
3548  - (b1*(1 - c2t)*(-1 + logb1))/c2b) +
3549  - 0.125d0*(b2*(1 - c2t)*(-1 + logb2))/c2b -
3550  - 0.125d0*(b1*(1 - c2t)*(-1 + logb1)*(-1 + logt2))/c2b +
3551  - 0.125d0*(b2*(1 - c2t)*(-1 + logb2)*(-1 + logt2))/c2b) +
3552  - ht**2*(0.125d0*(b1*(1 + c2t)*(-1 + logb1))/c2b -
3553  - 0.125d0*(b2*(1 + c2t)*(-1 + logb2))/c2b +
3554  - 0.125d0*(b1*(1 + c2t)*(-1 + logb1)*(-1 + logt2))/c2b -
3555  - 0.125d0*(b2*(1 + c2t)*(-1 + logb2)*(-1 + logt2))/c2b) -
3556  - 0.5d0*(tmp218*(cbe**2*hb**2*
3557  - (-(0.125d0*(b*(1 - c2t))/c2b) -
3558  - 0.25d0*(mb*mt*s2t)/s2b + 0.125d0*((1 + c2t)*t)/c2b +
3559  - 0.25d0*((1 - c2t)*mb*xb)/s2b -
3560  - 0.25d0*(mt*s2t*xb)/c2b + 0.125d0*((1 - c2t)*xb**2)/c2b
3561  - ) - cbe*hb*ht*sbe*
3562  - (-(mb*s2t*tmp23) + 2*mb*mt*tmp58 -
3563  - 0.25d0*(s2t*(b + t))/s2b + 0.5d0*(mt*tmp131)/s2b -
3564  - 0.25d0*(s2t*xb*xt)/s2b) +
3565  - ht**2*sbe**2*
3566  - (0.125d0*(b*(1 + c2t))/c2b - 0.25d0*(mb*mt*s2t)/s2b -
3567  - 0.125d0*((1 - c2t)*t)/c2b +
3568  - 0.25d0*((1 + c2t)*mb*xt)/s2b +
3569  - 0.25d0*(mt*s2t*xt)/c2b - 0.125d0*((1 + c2t)*xt**2)/c2b
3570  - ))) - 0.5d0*
3571  - (tmp217*(cbe**2*hb**2*
3572  - (0.125d0*(b*(1 - c2t))/c2b + 0.25d0*(mb*mt*s2t)/s2b -
3573  - 0.125d0*((1 + c2t)*t)/c2b -
3574  - 0.25d0*((1 - c2t)*mb*xb)/s2b +
3575  - 0.25d0*(mt*s2t*xb)/c2b - 0.125d0*((1 - c2t)*xb**2)/c2b
3576  - ) - cbe*hb*ht*sbe*
3577  - (-(mb*s2t*tmp24) + 2*mb*mt*tmp57 +
3578  - 0.25d0*(s2t*(b + t))/s2b - 0.5d0*(mt*tmp131)/s2b +
3579  - 0.25d0*(s2t*xb*xt)/s2b) +
3580  - ht**2*sbe**2*
3581  - (-(0.125d0*(b*(1 + c2t))/c2b) +
3582  - 0.25d0*(mb*mt*s2t)/s2b + 0.125d0*((1 - c2t)*t)/c2b -
3583  - 0.25d0*((1 + c2t)*mb*xt)/s2b -
3584  - 0.25d0*(mt*s2t*xt)/c2b + 0.125d0*((1 + c2t)*xt**2)/c2b
3585  - )))
3586  dt2c2b = dt2c2b -
3587  - tmp223*(hb**2*sbe**2*
3588  - (-(0.125d0*(b*(1 - c2t))/c2b) - 0.25d0*(mb*mt*s2t)/s2b +
3589  - 0.125d0*((1 + c2t)*t)/c2b +
3590  - 0.25d0*((1 - c2t)*mb*yb)/s2b - 0.25d0*(mt*s2t*yb)/c2b +
3591  - 0.125d0*((1 - c2t)*yb**2)/c2b) +
3592  - cbe*hb*ht*sbe*(-(mb*s2t*tmp39) + 2*mb*mt*tmp58 -
3593  - 0.25d0*(s2t*(b + t))/s2b + 0.5d0*(mt*tmp157)/s2b -
3594  - 0.25d0*(s2t*yb*yt)/s2b) +
3595  - cbe**2*ht**2*(0.125d0*(b*(1 + c2t))/c2b -
3596  - 0.25d0*(mb*mt*s2t)/s2b - 0.125d0*((1 - c2t)*t)/c2b +
3597  - 0.25d0*((1 + c2t)*mb*yt)/s2b + 0.25d0*(mt*s2t*yt)/c2b -
3598  - 0.125d0*((1 + c2t)*yt**2)/c2b)) -
3599  - tmp222*(hb**2*sbe**2*
3600  - (0.125d0*(b*(1 - c2t))/c2b + 0.25d0*(mb*mt*s2t)/s2b -
3601  - 0.125d0*((1 + c2t)*t)/c2b -
3602  - 0.25d0*((1 - c2t)*mb*yb)/s2b + 0.25d0*(mt*s2t*yb)/c2b -
3603  - 0.125d0*((1 - c2t)*yb**2)/c2b) +
3604  - cbe*hb*ht*sbe*(-(mb*s2t*tmp40) + 2*mb*mt*tmp57 +
3605  - 0.25d0*(s2t*(b + t))/s2b - 0.5d0*(mt*tmp157)/s2b +
3606  - 0.25d0*(s2t*yb*yt)/s2b) +
3607  - cbe**2*ht**2*(-(0.125d0*(b*(1 + c2t))/c2b) +
3608  - 0.25d0*(mb*mt*s2t)/s2b + 0.125d0*((1 - c2t)*t)/c2b -
3609  - 0.25d0*((1 + c2t)*mb*yt)/s2b - 0.25d0*(mt*s2t*yt)/c2b +
3610  - 0.125d0*((1 + c2t)*yt**2)/c2b))
3611  dc2tc2b = hb**2*tmp19 + ht**2*tmp19 -
3612  - tmp89*(hb**2*sbe**2*tmp38 + cbe**2*ht**2*tmp49 +
3613  - cbe*hb*ht*sbe*(-(0.25d0*(mb*mt)/(c2b*c2t)) -
3614  - 0.125d0*(b + t)/(s2b*s2t) - 0.5d0*(mb*tmp39)/s2t +
3615  - 0.5d0*(mt*tmp43)/s2b - 0.125d0*(yb*yt)/(s2b*s2t))) -
3616  - tmp108*(hb**2*sbe**2*tmp38 + cbe**2*ht**2*tmp49 +
3617  - cbe*hb*ht*sbe*(-(0.25d0*(mb*mt)/(c2b*c2t)) -
3618  - 0.125d0*(b + t)/(s2b*s2t) + 0.5d0*(mb*tmp40)/s2t -
3619  - 0.5d0*(mt*tmp44)/s2b - 0.125d0*(yb*yt)/(s2b*s2t))) -
3620  - 0.5d0*((-5*b2 + 4*b2*logb2 + logt1**2*(b2 - t1) - 5*t1 +
3621  - logt1*(-2*b2*logb2 + 4*t1) - 2*(-b2 + t1)*tmp170)*
3622  - (cbe**2*hb**2*tmp22 + ht**2*sbe**2*tmp33 -
3623  - cbe*hb*ht*sbe*
3624  - (-(0.25d0*(mb*mt)/(c2b*c2t)) -
3625  - 0.125d0*(b + t)/(s2b*s2t) - 0.5d0*(mb*tmp23)/s2t +
3626  - 0.5d0*(mt*tmp27)/s2b - 0.125d0*(xb*xt)/(s2b*s2t)))) -
3627  - 0.5d0*((-5*b1 + 4*b1*logb1 + logt2**2*(b1 - t2) - 5*t2 +
3628  - logt2*(-2*b1*logb1 + 4*t2) - 2*(-b1 + t2)*tmp172)*
3629  - (cbe**2*hb**2*tmp22 + ht**2*sbe**2*tmp33 -
3630  - cbe*hb*ht*sbe*
3631  - (-(0.25d0*(mb*mt)/(c2b*c2t)) -
3632  - 0.125d0*(b + t)/(s2b*s2t) + 0.5d0*(mb*tmp24)/s2t -
3633  - 0.5d0*(mt*tmp28)/s2b - 0.125d0*(xb*xt)/(s2b*s2t)))) -
3634  - 0.5d0*((-5*b1 + 4*b1*logb1 + logt1**2*(b1 - t1) - 5*t1 +
3635  - logt1*(-2*b1*logb1 + 4*t1) - 2*(-b1 + t1)*tmp169)*
3636  - (cbe**2*hb**2*tmp21 + ht**2*sbe**2*tmp32 -
3637  - cbe*hb*ht*sbe*
3638  - (0.25d0*(mb*mt)/(c2b*c2t) + 0.125d0*(b + t)/(s2b*s2t) -
3639  - 0.5d0*(mb*tmp24)/s2t - 0.5d0*(mt*tmp27)/s2b +
3640  - 0.125d0*(xb*xt)/(s2b*s2t)))) -
3641  - 0.5d0*((-5*b2 + 4*b2*logb2 + logt2**2*(b2 - t2) - 5*t2 +
3642  - logt2*(-2*b2*logb2 + 4*t2) - 2*(-b2 + t2)*tmp173)*
3643  - (cbe**2*hb**2*tmp21 + ht**2*sbe**2*tmp32 -
3644  - cbe*hb*ht*sbe*
3645  - (0.25d0*(mb*mt)/(c2b*c2t) + 0.125d0*(b + t)/(s2b*s2t) +
3646  - 0.5d0*(mb*tmp23)/s2t + 0.5d0*(mt*tmp28)/s2b +
3647  - 0.125d0*(xb*xt)/(s2b*s2t))))
3648  dc2tc2b = dc2tc2b -
3649  - tmp88*(hb**2*sbe**2*tmp37 + cbe**2*ht**2*tmp48 +
3650  - cbe*hb*ht*sbe*(0.25d0*(mb*mt)/(c2b*c2t) +
3651  - 0.125d0*(b + t)/(s2b*s2t) - 0.5d0*(mb*tmp40)/s2t -
3652  - 0.5d0*(mt*tmp43)/s2b + 0.125d0*(yb*yt)/(s2b*s2t))) -
3653  - tmp109*(hb**2*sbe**2*tmp37 + cbe**2*ht**2*tmp48 +
3654  - cbe*hb*ht*sbe*(0.25d0*(mb*mt)/(c2b*c2t) +
3655  - 0.125d0*(b + t)/(s2b*s2t) + 0.5d0*(mb*tmp39)/s2t +
3656  - 0.5d0*(mt*tmp44)/s2b + 0.125d0*(yb*yt)/(s2b*s2t)))
3657  dcptpb = -2*cbe*hb*ht*mb*mt*sbe*tmp108*tmp56 +
3658  - cbe*hb*ht*mb*mt*sbe*
3659  - (-5*b2 + 4*b2*logb2 + logt1**2*(b2 - t1) - 5*t1 +
3660  - logt1*(-2*b2*logb2 + 4*t1) - 2*(-b2 + t1)*tmp170)*tmp56
3661  - + cbe*hb*ht*mb*mt*sbe*
3662  - (-5*b1 + 4*b1*logb1 + logt2**2*(b1 - t2) - 5*t2 +
3663  - logt2*(-2*b1*logb1 + 4*t2) - 2*(-b1 + t2)*tmp172)*tmp56
3664  - - 2*cbe*hb*ht*mb*mt*sbe*tmp109*tmp59 +
3665  - cbe*hb*ht*mb*mt*sbe*
3666  - (-5*b1 + 4*b1*logb1 + logt1**2*(b1 - t1) - 5*t1 +
3667  - logt1*(-2*b1*logb1 + 4*t1) - 2*(-b1 + t1)*tmp169)*tmp59
3668  - + cbe*hb*ht*mb*mt*sbe*
3669  - (-5*b2 + 4*b2*logb2 + logt2**2*(b2 - t2) - 5*t2 +
3670  - logt2*(-2*b2*logb2 + 4*t2) - 2*(-b2 + t2)*tmp173)*tmp59
3671  - - 2*cbe*hb*ht*mb*mt*sbe*tmp59*tmp88 -
3672  - 2*cbe*hb*ht*mb*mt*sbe*tmp56*tmp89 -
3673  - 4*cbe*hb*ht*mb*mt*sbe*
3674  - (-2*a0*loga0 - 2*b*logb - 2*logt*t -
3675  - 0.5d0*(logb*logt*(a0 - b - t)) -
3676  - 0.5d0*(loga0*logt*(-a0 + b - t)) +
3677  - 0.5d0*(delta0bt*phia0bt)/t -
3678  - 0.5d0*(loga0*logb*(-a0 - b + t)) + 2.5d0*(a0 + b + t) +
3679  - 0.5d0*tmp76)
3680  dcpttptb = 0.25d0*(cbe*hb*ht*s2b*s2t*sbe*
3681  - (-5*b1 + 4*b1*logb1 + logt1**2*(b1 - t1) - 5*t1 +
3682  - logt1*(-2*b1*logb1 + 4*t1) - 2*(-b1 + t1)*tmp169)*xb*
3683  - xt) - 0.25d0*(cbe*hb*ht*s2b*s2t*sbe*
3684  - (-5*b2 + 4*b2*logb2 + logt1**2*(b2 - t1) - 5*t1 +
3685  - logt1*(-2*b2*logb2 + 4*t1) - 2*(-b2 + t1)*tmp170)*xb*
3686  - xt) - 0.25d0*(cbe*hb*ht*s2b*s2t*sbe*
3687  - (-5*b1 + 4*b1*logb1 + logt2**2*(b1 - t2) - 5*t2 +
3688  - logt2*(-2*b1*logb1 + 4*t2) - 2*(-b1 + t2)*tmp172)*xb*
3689  - xt) + 0.25d0*(cbe*hb*ht*s2b*s2t*sbe*
3690  - (-5*b2 + 4*b2*logb2 + logt2**2*(b2 - t2) - 5*t2 +
3691  - logt2*(-2*b2*logb2 + 4*t2) - 2*(-b2 + t2)*tmp173)*xb*
3692  - xt) + 0.5d0*(cbe*hb*ht*s2b*s2t*sbe*tmp108*yb*yt) -
3693  - 0.5d0*(cbe*hb*ht*s2b*s2t*sbe*tmp109*yb*yt) -
3694  - 0.5d0*(cbe*hb*ht*s2b*s2t*sbe*tmp88*yb*yt) +
3695  - 0.5d0*(cbe*hb*ht*s2b*s2t*sbe*tmp89*yb*yt)
3696  dcpbptt = -2*hb*ht*mb*mu*s2t*tmp113 -
3697  - cbe*hb*ht*sbe*tmp89*(mb*s2t*tmp154 - 0.5d0*(b*s2b*s2t)) -
3698  - cbe*hb*ht*sbe*tmp108*
3699  - (-(mb*s2t*tmp155) - 0.5d0*(b*s2b*s2t)) -
3700  - cbe*hb*ht*sbe*tmp109*
3701  - (-(mb*s2t*tmp154) + 0.5d0*(b*s2b*s2t)) -
3702  - cbe*hb*ht*sbe*tmp88*(mb*s2t*tmp155 + 0.5d0*(b*s2b*s2t)) +
3703  - 0.5d0*(cbe*hb*ht*sbe*
3704  - (-5*b2 + 4*b2*logb2 + logt1**2*(b2 - t1) - 5*t1 +
3705  - logt1*(-2*b2*logb2 + 4*t1) - 2*(-b2 + t1)*tmp170)*
3706  - (mb*s2t*tmp128 - 0.5d0*(b*s2b*s2t))) +
3707  - 0.5d0*(cbe*hb*ht*sbe*
3708  - (-5*b1 + 4*b1*logb1 + logt2**2*(b1 - t2) - 5*t2 +
3709  - logt2*(-2*b1*logb1 + 4*t2) - 2*(-b1 + t2)*tmp172)*
3710  - (-(mb*s2t*tmp129) - 0.5d0*(b*s2b*s2t))) +
3711  - 0.5d0*(cbe*hb*ht*sbe*
3712  - (-5*b2 + 4*b2*logb2 + logt2**2*(b2 - t2) - 5*t2 +
3713  - logt2*(-2*b2*logb2 + 4*t2) - 2*(-b2 + t2)*tmp173)*
3714  - (-(mb*s2t*tmp128) + 0.5d0*(b*s2b*s2t))) +
3715  - 0.5d0*(cbe*hb*ht*sbe*
3716  - (-5*b1 + 4*b1*logb1 + logt1**2*(b1 - t1) - 5*t1 +
3717  - logt1*(-2*b1*logb1 + 4*t1) - 2*(-b1 + t1)*tmp169)*
3718  - (mb*s2t*tmp129 + 0.5d0*(b*s2b*s2t)))
3719  dcptptb = -2*hb*ht*mt*mu*s2b*tmp75 -
3720  - cbe*hb*ht*sbe*tmp89*
3721  - (-(mt*s2b*tmp156) - 0.5d0*(s2b*s2t*t)) -
3722  - cbe*hb*ht*sbe*tmp108*(mt*s2b*tmp157 - 0.5d0*(s2b*s2t*t)) -
3723  - cbe*hb*ht*sbe*tmp88*(mt*s2b*tmp156 + 0.5d0*(s2b*s2t*t)) -
3724  - cbe*hb*ht*sbe*tmp109*
3725  - (-(mt*s2b*tmp157) + 0.5d0*(s2b*s2t*t)) +
3726  - 0.5d0*(cbe*hb*ht*sbe*
3727  - (-5*b2 + 4*b2*logb2 + logt1**2*(b2 - t1) - 5*t1 +
3728  - logt1*(-2*b2*logb2 + 4*t1) - 2*(-b2 + t1)*tmp170)*
3729  - (-(mt*s2b*tmp130) - 0.5d0*(s2b*s2t*t))) +
3730  - 0.5d0*(cbe*hb*ht*sbe*
3731  - (-5*b1 + 4*b1*logb1 + logt2**2*(b1 - t2) - 5*t2 +
3732  - logt2*(-2*b1*logb1 + 4*t2) - 2*(-b1 + t2)*tmp172)*
3733  - (mt*s2b*tmp131 - 0.5d0*(s2b*s2t*t))) +
3734  - 0.5d0*(cbe*hb*ht*sbe*
3735  - (-5*b1 + 4*b1*logb1 + logt1**2*(b1 - t1) - 5*t1 +
3736  - logt1*(-2*b1*logb1 + 4*t1) - 2*(-b1 + t1)*tmp169)*
3737  - (mt*s2b*tmp130 + 0.5d0*(s2b*s2t*t))) +
3738  - 0.5d0*(cbe*hb*ht*sbe*
3739  - (-5*b2 + 4*b2*logb2 + logt2**2*(b2 - t2) - 5*t2 +
3740  - logt2*(-2*b2*logb2 + 4*t2) - 2*(-b2 + t2)*tmp173)*
3741  - (-(mt*s2b*tmp131) + 0.5d0*(s2b*s2t*t)))
3742  dcptmptt = -(tmp109*
3743  - (0.5d0*(cbe*hb*ht*s2b*s2t*sbe*t) +
3744  - hb**2*sbe**2*
3745  - (0.5d0*(mb*mt*s2b*s2t) - 0.5d0*((1 + c2b)*mt*s2t*yb)) +
3746  - cbe**2*ht**2*
3747  - (0.5d0*(mb*mt*s2b*s2t) - 0.5d0*((1 - c2b)*mt*s2t*yt))))-
3748  - tmp89*(-(0.5d0*(cbe*hb*ht*s2b*s2t*sbe*t)) +
3749  - hb**2*sbe**2*(-(0.5d0*(mb*mt*s2b*s2t)) +
3750  - 0.5d0*((1 + c2b)*mt*s2t*yb)) +
3751  - cbe**2*ht**2*(-(0.5d0*(mb*mt*s2b*s2t)) +
3752  - 0.5d0*((1 - c2b)*mt*s2t*yt))) -
3753  - tmp108*(-(0.5d0*(cbe*hb*ht*s2b*s2t*sbe*t)) +
3754  - hb**2*sbe**2*(-(0.5d0*(mb*mt*s2b*s2t)) -
3755  - 0.5d0*((1 - c2b)*mt*s2t*yb)) +
3756  - cbe**2*ht**2*(-(0.5d0*(mb*mt*s2b*s2t)) -
3757  - 0.5d0*((1 + c2b)*mt*s2t*yt))) -
3758  - 0.25d0*(ht**2*(-2*mt*s2t*sbe**2*tmp115*xt +
3759  - 2*mt*s2t*sbe**2*tmp94*xt -
3760  - 4*cbe**2*mt*s2t*tmp114*yt + 4*cbe**2*mt*s2t*tmp93*yt)
3761  - ) - 0.5d0*((-5*b2 + 4*b2*logb2 + logt2**2*(b2 - t2) -
3762  - 5*t2 + logt2*(-2*b2*logb2 + 4*t2) -
3763  - 2*(-b2 + t2)*tmp173)*
3764  - (-(0.5d0*(cbe*hb*ht*s2b*s2t*sbe*t)) +
3765  - cbe**2*hb**2*
3766  - (0.5d0*(mb*mt*s2b*s2t) - 0.5d0*((1 + c2b)*mt*s2t*xb)) +
3767  - ht**2*sbe**2*
3768  - (0.5d0*(mb*mt*s2b*s2t) - 0.5d0*((1 - c2b)*mt*s2t*xt))))-
3769  - 0.5d0*((-5*b2 + 4*b2*logb2 + logt1**2*(b2 - t1) - 5*t1 +
3770  - logt1*(-2*b2*logb2 + 4*t1) - 2*(-b2 + t1)*tmp170)*
3771  - (0.5d0*(cbe*hb*ht*s2b*s2t*sbe*t) +
3772  - cbe**2*hb**2*
3773  - (-(0.5d0*(mb*mt*s2b*s2t)) + 0.5d0*((1 + c2b)*mt*s2t*xb))
3774  - + ht**2*sbe**2*
3775  - (-(0.5d0*(mb*mt*s2b*s2t)) + 0.5d0*((1 - c2b)*mt*s2t*xt))
3776  - )) - 0.5d0*((-5*b1 + 4*b1*logb1 + logt2**2*(b1 - t2) -
3777  - 5*t2 + logt2*(-2*b1*logb1 + 4*t2) -
3778  - 2*(-b1 + t2)*tmp172)*
3779  - (0.5d0*(cbe*hb*ht*s2b*s2t*sbe*t) +
3780  - cbe**2*hb**2*
3781  - (-(0.5d0*(mb*mt*s2b*s2t)) - 0.5d0*((1 - c2b)*mt*s2t*xb))
3782  - + ht**2*sbe**2*
3783  - (-(0.5d0*(mb*mt*s2b*s2t)) - 0.5d0*((1 + c2b)*mt*s2t*xt))
3784  - )) - 0.5d0*((-5*b1 + 4*b1*logb1 + logt1**2*(b1 - t1) -
3785  - 5*t1 + logt1*(-2*b1*logb1 + 4*t1) -
3786  - 2*(-b1 + t1)*tmp169)*
3787  - (-(0.5d0*(cbe*hb*ht*s2b*s2t*sbe*t)) +
3788  - cbe**2*hb**2*
3789  - (0.5d0*(mb*mt*s2b*s2t) + 0.5d0*((1 - c2b)*mt*s2t*xb)) +
3790  - ht**2*sbe**2*
3791  - (0.5d0*(mb*mt*s2b*s2t) + 0.5d0*((1 + c2b)*mt*s2t*xt))))
3792  dcptmptt = dcptmptt -
3793  - tmp88*(0.5d0*(cbe*hb*ht*s2b*s2t*sbe*t) +
3794  - hb**2*sbe**2*(0.5d0*(mb*mt*s2b*s2t) +
3795  - 0.5d0*((1 - c2b)*mt*s2t*yb)) +
3796  - cbe**2*ht**2*(0.5d0*(mb*mt*s2b*s2t) +
3797  - 0.5d0*((1 + c2b)*mt*s2t*yt)))
3798  dcpbmptb = -(tmp89*
3799  - (-(0.5d0*(b*cbe*hb*ht*s2b*s2t*sbe)) +
3800  - hb**2*sbe**2*
3801  - (-(0.5d0*(mb*mt*s2b*s2t)) - 0.5d0*((1 + c2t)*mb*s2b*yb))
3802  - + cbe**2*ht**2*
3803  - (-(0.5d0*(mb*mt*s2b*s2t)) - 0.5d0*((1 - c2t)*mb*s2b*yt))
3804  - )) - 0.25d0*(hb**2*
3805  - (2*cbe**2*(-10*b1 + 4*b1*logb1 +
3806  - logb1*(4*b1 - 2*b1*logb1))*mb*s2b*xb -
3807  - 2*cbe**2*(-10*b2 + 4*b2*logb2 +
3808  - logb2*(4*b2 - 2*b2*logb2))*mb*s2b*xb +
3809  - 4*mb*s2b*sbe**2*yb*
3810  - (2*a0*loga0 + 4*b1*logb1 - a0*loga0*logb1 -
3811  - 2.5d0*(a0 + 2*b1) + 0.5d0*((a0 - 2*b1)*logb1**2) -
3812  - 0.5d0*(delta0b1b1*phia0b1b1)/b1) -
3813  - 4*mb*s2b*sbe**2*yb*
3814  - (2*a0*loga0 + 4*b2*logb2 - a0*loga0*logb2 -
3815  - 2.5d0*(a0 + 2*b2) + 0.5d0*((a0 - 2*b2)*logb2**2) -
3816  - 0.5d0*(delta0b2b2*phia0b2b2)/b2))) -
3817  - 0.5d0*((-5*b2 + 4*b2*logb2 + logt1**2*(b2 - t1) - 5*t1 +
3818  - logt1*(-2*b2*logb2 + 4*t1) - 2*(-b2 + t1)*tmp170)*
3819  - (0.5d0*(b*cbe*hb*ht*s2b*s2t*sbe) +
3820  - cbe**2*hb**2*
3821  - (-(0.5d0*(mb*mt*s2b*s2t)) - 0.5d0*((1 + c2t)*mb*s2b*xb))
3822  - + ht**2*sbe**2*
3823  - (-(0.5d0*(mb*mt*s2b*s2t)) - 0.5d0*((1 - c2t)*mb*s2b*xt))
3824  - )) - 0.5d0*((-5*b1 + 4*b1*logb1 + logt1**2*(b1 - t1) -
3825  - 5*t1 + logt1*(-2*b1*logb1 + 4*t1) -
3826  - 2*(-b1 + t1)*tmp169)*
3827  - (-(0.5d0*(b*cbe*hb*ht*s2b*s2t*sbe)) +
3828  - cbe**2*hb**2*
3829  - (0.5d0*(mb*mt*s2b*s2t) + 0.5d0*((1 + c2t)*mb*s2b*xb)) +
3830  - ht**2*sbe**2*
3831  - (0.5d0*(mb*mt*s2b*s2t) + 0.5d0*((1 - c2t)*mb*s2b*xt))))-
3832  - 0.5d0*((-5*b2 + 4*b2*logb2 + logt2**2*(b2 - t2) - 5*t2 +
3833  - logt2*(-2*b2*logb2 + 4*t2) - 2*(-b2 + t2)*tmp173)*
3834  - (-(0.5d0*(b*cbe*hb*ht*s2b*s2t*sbe)) +
3835  - cbe**2*hb**2*
3836  - (0.5d0*(mb*mt*s2b*s2t) - 0.5d0*((1 - c2t)*mb*s2b*xb)) +
3837  - ht**2*sbe**2*
3838  - (0.5d0*(mb*mt*s2b*s2t) - 0.5d0*((1 + c2t)*mb*s2b*xt))))-
3839  - 0.5d0*((-5*b1 + 4*b1*logb1 + logt2**2*(b1 - t2) - 5*t2 +
3840  - logt2*(-2*b1*logb1 + 4*t2) - 2*(-b1 + t2)*tmp172)*
3841  - (0.5d0*(b*cbe*hb*ht*s2b*s2t*sbe) +
3842  - cbe**2*hb**2*
3843  - (-(0.5d0*(mb*mt*s2b*s2t)) + 0.5d0*((1 - c2t)*mb*s2b*xb))
3844  - + ht**2*sbe**2*
3845  - (-(0.5d0*(mb*mt*s2b*s2t)) + 0.5d0*((1 + c2t)*mb*s2b*xt))
3846  - ))
3847  dcpbmptb = dcpbmptb -
3848  - tmp88*(0.5d0*(b*cbe*hb*ht*s2b*s2t*sbe) +
3849  - hb**2*sbe**2*(0.5d0*(mb*mt*s2b*s2t) +
3850  - 0.5d0*((1 + c2t)*mb*s2b*yb)) +
3851  - cbe**2*ht**2*(0.5d0*(mb*mt*s2b*s2t) +
3852  - 0.5d0*((1 - c2t)*mb*s2b*yt))) -
3853  - tmp109*(0.5d0*(b*cbe*hb*ht*s2b*s2t*sbe) +
3854  - hb**2*sbe**2*(0.5d0*(mb*mt*s2b*s2t) -
3855  - 0.5d0*((1 - c2t)*mb*s2b*yb)) +
3856  - cbe**2*ht**2*(0.5d0*(mb*mt*s2b*s2t) -
3857  - 0.5d0*((1 + c2t)*mb*s2b*yt))) -
3858  - tmp108*(-(0.5d0*(b*cbe*hb*ht*s2b*s2t*sbe)) +
3859  - hb**2*sbe**2*(-(0.5d0*(mb*mt*s2b*s2t)) +
3860  - 0.5d0*((1 - c2t)*mb*s2b*yb)) +
3861  - cbe**2*ht**2*(-(0.5d0*(mb*mt*s2b*s2t)) +
3862  - 0.5d0*((1 + c2t)*mb*s2b*yt)))
3863  dspbmptbspbptt =
3864  - -(0.5d0*(b*cbe*hb*ht*s2b*s2t*sbe*tmp108)) +
3865  - 0.5d0*(b*cbe*hb*ht*s2b*s2t*sbe*tmp109) -
3866  - 0.25d0*(b*cbe*hb*ht*s2b*s2t*sbe*
3867  - (-5*b1 + 4*b1*logb1 + logt1**2*(b1 - t1) - 5*t1 +
3868  - logt1*(-2*b1*logb1 + 4*t1) - 2*(-b1 + t1)*tmp169)) +
3869  - 0.25d0*(b*cbe*hb*ht*s2b*s2t*sbe*
3870  - (-5*b2 + 4*b2*logb2 + logt1**2*(b2 - t1) - 5*t1 +
3871  - logt1*(-2*b2*logb2 + 4*t1) - 2*(-b2 + t1)*tmp170)) +
3872  - 0.25d0*(b*cbe*hb*ht*s2b*s2t*sbe*
3873  - (-5*b1 + 4*b1*logb1 + logt2**2*(b1 - t2) - 5*t2 +
3874  - logt2*(-2*b1*logb1 + 4*t2) - 2*(-b1 + t2)*tmp172)) -
3875  - 0.25d0*(b*cbe*hb*ht*s2b*s2t*sbe*
3876  - (-5*b2 + 4*b2*logb2 + logt2**2*(b2 - t2) - 5*t2 +
3877  - logt2*(-2*b2*logb2 + 4*t2) - 2*(-b2 + t2)*tmp173)) +
3878  - 0.5d0*(b*cbe*hb*ht*s2b*s2t*sbe*tmp88) -
3879  - 0.5d0*(b*cbe*hb*ht*s2b*s2t*sbe*tmp89)
3880  dsptmpttsptptb =
3881  - -(0.5d0*(cbe*hb*ht*s2b*s2t*sbe*t*tmp108)) +
3882  - 0.5d0*(cbe*hb*ht*s2b*s2t*sbe*t*tmp109) -
3883  - 0.25d0*(cbe*hb*ht*s2b*s2t*sbe*t*
3884  - (-5*b1 + 4*b1*logb1 + logt1**2*(b1 - t1) - 5*t1 +
3885  - logt1*(-2*b1*logb1 + 4*t1) - 2*(-b1 + t1)*tmp169)) +
3886  - 0.25d0*(cbe*hb*ht*s2b*s2t*sbe*t*
3887  - (-5*b2 + 4*b2*logb2 + logt1**2*(b2 - t1) - 5*t1 +
3888  - logt1*(-2*b2*logb2 + 4*t1) - 2*(-b2 + t1)*tmp170)) +
3889  - 0.25d0*(cbe*hb*ht*s2b*s2t*sbe*t*
3890  - (-5*b1 + 4*b1*logb1 + logt2**2*(b1 - t2) - 5*t2 +
3891  - logt2*(-2*b1*logb1 + 4*t2) - 2*(-b1 + t2)*tmp172)) -
3892  - 0.25d0*(cbe*hb*ht*s2b*s2t*sbe*t*
3893  - (-5*b2 + 4*b2*logb2 + logt2**2*(b2 - t2) - 5*t2 +
3894  - logt2*(-2*b2*logb2 + 4*t2) - 2*(-b2 + t2)*tmp173)) +
3895  - 0.5d0*(cbe*hb*ht*s2b*s2t*sbe*t*tmp88) -
3896  - 0.5d0*(cbe*hb*ht*s2b*s2t*sbe*t*tmp89)
3897  dsptmpttspbmptb =
3898  - -(tmp108*tmp11) - tmp109*tmp12 - tmp12*tmp88 -
3899  - tmp11*tmp89 - 0.5d0*
3900  - (tmp14*(-5*b1 + 4*b1*logb1 + logt1**2*(b1 - t1) - 5*t1 +
3901  - logt1*(-2*b1*logb1 + 4*t1) - 2*(-b1 + t1)*tmp169)) -
3902  - 0.5d0*(tmp13*(-5*b2 + 4*b2*logb2 + logt1**2*(b2 - t1) -
3903  - 5*t1 + logt1*(-2*b2*logb2 + 4*t1) -
3904  - 2*(-b2 + t1)*tmp170)) -
3905  - 0.5d0*(tmp13*(-5*b1 + 4*b1*logb1 + logt2**2*(b1 - t2) -
3906  - 5*t2 + logt2*(-2*b1*logb1 + 4*t2) -
3907  - 2*(-b1 + t2)*tmp172)) -
3908  - 0.5d0*(tmp14*(-5*b2 + 4*b2*logb2 + logt2**2*(b2 - t2) -
3909  - 5*t2 + logt2*(-2*b2*logb2 + 4*t2) -
3910  - 2*(-b2 + t2)*tmp173))
3911 
3912  return
3913  end
3914 
3915 
3916 *
3917 ***********************************************************************
3918 *
3919 
3920  function f1q(t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
3921  & atat)
3922 
3923  implicit none
3924 
3925  double precision F1q
3926  integer atat
3927  double precision t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
3928 
3929  double precision D1t,DT1,DT2,Dc2t,DT1T1,DT2T2,Dtt,Dc2tc2t,DT1t
3930  $ ,dt2t,dt1t2,dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1
3931  $ ,dt2b1,dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b
3932  $ ,dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb
3933  $ ,dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
3934 
3935  common/listderiv/d1t,dt1,dt2,dc2t,dt1t1,dt2t2,
3936  $ dtt,dc2tc2t,dt1t,dt2t,dt1t2,
3937  $ dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1,dt2b1,
3938  $ dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b,
3939  $ dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb,
3940  $ dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
3941 
3942  call makederiv(t,b,a0,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
3943  & atat)
3944 
3945  f1q = dtt + dt1t1 + dt2t2 + 2d0*(dt1t + dt2t + dt1t2)
3946  $ +(4d0*dcptpb + dcptmptt + dcptptb - 2d0*dsptmpttsptptb)
3947  $ /4d0/t**2
3948 
3949  return
3950  end
3951 
3952 *
3953 ***********************************************************************
3954 *
3955 
3956  function f2q(t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
3957  & atat)
3958 
3959  implicit none
3960 
3961  integer atat
3962  double precision F2q
3963  double precision t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
3964 
3965  double precision D1t,DT1,DT2,Dc2t,DT1T1,DT2T2,Dtt,Dc2tc2t,DT1t
3966  $ ,dt2t,dt1t2,dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1
3967  $ ,dt2b1,dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b
3968  $ ,dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb
3969  $ ,dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
3970 
3971  common/listderiv/d1t,dt1,dt2,dc2t,dt1t1,dt2t2,
3972  $ dtt,dc2tc2t,dt1t,dt2t,dt1t2,
3973  $ dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1,dt2b1,
3974  $ dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b,
3975  $ dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb,
3976  $ dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
3977 
3978  call makederiv(t,b,a0,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
3979  & atat)
3980 
3981  f2q = dt1t1 - dt2t2 + dt1t - dt2t
3982  $ -4d0*c2t**2/(t1-t2)*(dtc2t + dt1c2t + dt2c2t)
3983  $ -(dcptmptt - dsptmpttsptptb)/s2t**2/t/(t1-t2)
3984 
3985  return
3986  end
3987 
3988 *
3989 ***********************************************************************
3990 *
3991 
3992  function f3q(t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
3993  & atat)
3994 
3995  implicit none
3996  integer atat
3997  double precision F3q
3998  double precision t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
3999 
4000  double precision D1t,DT1,DT2,Dc2t,DT1T1,DT2T2,Dtt,Dc2tc2t,DT1t
4001  $ ,dt2t,dt1t2,dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1
4002  $ ,dt2b1,dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b
4003  $ ,dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb
4004  $ ,dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
4005 
4006  common/listderiv/d1t,dt1,dt2,dc2t,dt1t1,dt2t2,
4007  $ dtt,dc2tc2t,dt1t,dt2t,dt1t2,
4008  $ dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1,dt2b1,
4009  $ dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b,
4010  $ dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb,
4011  $ dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
4012 
4013  call makederiv(t,b,a0,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
4014  & atat)
4015 
4016  f3q = dt1t1 + dt2t2 - 2d0*dt1t2
4017  $ - 2d0/(t1-t2)*(dt1-dt2)
4018  $ + 16d0*c2t**2/(t1-t2)**2*(c2t**2*dc2tc2t + 2d0*dc2t)
4019  $ -8d0*c2t**2/(t1-t2)*(dt1c2t-dt2c2t)
4020  $ + 4d0/s2t**4.0d0/(t1-t2)**2*(dcptmptt + dcpbptt + dcpttptb)
4021 
4022  return
4023  end
4024 
4025 *
4026 ***********************************************************************
4027 *
4028 
4029  function f4q(t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
4030  & atat)
4031 
4032  implicit none
4033 
4034  integer atat
4035  double precision F4q
4036  double precision t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
4037 
4038  double precision D1t,DT1,DT2,Dc2t,DT1T1,DT2T2,Dtt,Dc2tc2t,DT1t
4039  $ ,dt2t,dt1t2,dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1
4040  $ ,dt2b1,dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b
4041  $ ,dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb
4042  $ ,dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
4043 
4044  common/listderiv/d1t,dt1,dt2,dc2t,dt1t1,dt2t2,
4045  $ dtt,dc2tc2t,dt1t,dt2t,dt1t2,
4046  $ dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1,dt2b1,
4047  $ dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b,
4048  $ dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb,
4049  $ dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
4050 
4051  call makederiv(t,b,a0,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
4052  & atat)
4053 
4054  f4q = dt1b + dt1b1 + dt1b2 - dt2b - dt2b1 - dt2b2
4055  $ -4d0*c2t**2/(t1-t2)*(db1c2t + db2c2t + dbc2t)
4056  $ -(dcpbptt + dsptmpttspbmptb - dspbmptbspbptt)
4057  $ /b/s2t**2/(t1-t2)
4058 
4059  return
4060  end
4061 
4062 *
4063 ***********************************************************************
4064 *
4065 
4066  function f5q(t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
4067  & atat)
4068 
4069  implicit none
4070 
4071  integer atat
4072  double precision F5q
4073  double precision t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
4074 
4075  double precision D1t,DT1,DT2,Dc2t,DT1T1,DT2T2,Dtt,Dc2tc2t,DT1t
4076  $ ,dt2t,dt1t2,dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1
4077  $ ,dt2b1,dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b
4078  $ ,dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb
4079  $ ,dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
4080 
4081  common/listderiv/d1t,dt1,dt2,dc2t,dt1t1,dt2t2,
4082  $ dtt,dc2tc2t,dt1t,dt2t,dt1t2,
4083  $ dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1,dt2b1,
4084  $ dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b,
4085  $ dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb,
4086  $ dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
4087 
4088  call makederiv(t,b,a0,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
4089  & atat)
4090 
4091  f5q = dt1b1 - dt1b2 - dt2b1 + dt2b2
4092  $ + 16d0*c2t**2*c2b**2/(t1-t2)/(b1-b2)*dc2tc2b
4093  $ - 4d0*c2t**2/(t1-t2)*(db1c2t-db2c2t)
4094  $ - 4d0*c2b**2/(b1-b2)*(dt1c2b-dt2c2b)
4095  $ - 4d0/s2b**2/s2t**2/(t1-t2)/(b1-b2)*
4096  $ (dcpttptb-dsptmpttspbmptb + dspbmptbspbptt + dsptmpttsptptb)
4097 
4098  return
4099  end
4100 
4101 *
4102 ***********************************************************************
4103 *
4104 
4105  function f6q(t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
4106  & atat)
4107 
4108  implicit none
4109 
4110  integer atat
4111  double precision F6q
4112  double precision t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
4113 
4114  double precision D1t,DT1,DT2,Dc2t,DT1T1,DT2T2,Dtt,Dc2tc2t,DT1t
4115  $ ,dt2t,dt1t2,dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1
4116  $ ,dt2b1,dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b
4117  $ ,dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb
4118  $ ,dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
4119 
4120  common/listderiv/d1t,dt1,dt2,dc2t,dt1t1,dt2t2,
4121  $ dtt,dc2tc2t,dt1t,dt2t,dt1t2,
4122  $ dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1,dt2b1,
4123  $ dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b,
4124  $ dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb,
4125  $ dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
4126 
4127  call makederiv(t,b,a0,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
4128  & atat)
4129 
4130  f6q = dtb + dt1b + dt2b + db1t + db2t
4131  $ + dt1b1 + dt1b2 + dt2b1 + dt2b2
4132  $ -(4d0*dcptpb - dsptmpttspbmptb)/4d0/b/t
4133 
4134  return
4135  end
4136 
4137 *
4138 ***********************************************************************
4139 *
4140 
4141  function fq(t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,atat)
4142 
4143  implicit none
4144 
4145  integer atat
4146  double precision Fq
4147  double precision t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
4148 
4149  double precision D1t,DT1,DT2,Dc2t,DT1T1,DT2T2,Dtt,Dc2tc2t,DT1t
4150  $ ,dt2t,dt1t2,dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1
4151  $ ,dt2b1,dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b
4152  $ ,dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb
4153  $ ,dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
4154 
4155  common/listderiv/d1t,dt1,dt2,dc2t,dt1t1,dt2t2,
4156  $ dtt,dc2tc2t,dt1t,dt2t,dt1t2,
4157  $ dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1,dt2b1,
4158  $ dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b,
4159  $ dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb,
4160  $ dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
4161 
4162  call makederiv(t,b,a0,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
4163  & atat)
4164 
4165  fq = dt1 - dt2 - 4d0*c2t**2/(t1-t2)*dc2t
4166 
4167  return
4168  end
4169 
4170 *
4171 ***********************************************************************
4172 *
4173 
4174  function gq(t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,atat)
4175 
4176  implicit none
4177 
4178  integer atat
4179  double precision Gq
4180  double precision t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
4181 
4182  double precision D1t,DT1,DT2,Dc2t,DT1T1,DT2T2,Dtt,Dc2tc2t,DT1t
4183  $ ,dt2t,dt1t2,dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1
4184  $ ,dt2b1,dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b
4185  $ ,dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb
4186  $ ,dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
4187 
4188  common/listderiv/d1t,dt1,dt2,dc2t,dt1t1,dt2t2,
4189  $ dtt,dc2tc2t,dt1t,dt2t,dt1t2,
4190  $ dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1,dt2b1,
4191  $ dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b,
4192  $ dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb,
4193  $ dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
4194 
4195  call makederiv(t,b,a0,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
4196  & atat)
4197 
4198  gq = d1t + dt1 + dt2
4199 
4200  return
4201  end
4202 
4203 *
4204 ***********************************************************************
4205 *
4206 
4207  function faq(t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
4208  & atat)
4209 
4210  implicit none
4211 
4212  integer atat
4213  double precision FAq
4214  double precision t,b,A0,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
4215  double precision Xt,Xb,At,Ab
4216 
4217  double precision D1t,DT1,DT2,Dc2t,DT1T1,DT2T2,Dtt,Dc2tc2t,DT1t
4218  $ ,dt2t,dt1t2,dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1
4219  $ ,dt2b1,dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b
4220  $ ,dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb
4221  $ ,dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
4222 
4223  common/listderiv/d1t,dt1,dt2,dc2t,dt1t1,dt2t2,
4224  $ dtt,dc2tc2t,dt1t,dt2t,dt1t2,
4225  $ dtc2t,dt1c2t,dt2c2t,dtb,dt1b,dt2b,db1t,db2t,dt1b1,dt2b1,
4226  $ dt1b2,dt2b2,dbc2t,db1c2t,db2c2t,dt1c2b,dt2c2b,dc2tc2b,
4227  $ dcptpb,dcpttptb,dcpbptt,dcptptb,dcptmptt,dcpbmptb,
4228  $ dspbmptbspbptt,dsptmpttsptptb,dsptmpttspbmptb
4229 
4230  xt = (t1-t2)*s2t/2d0/sqrt(t)
4231  xb = (b1-b2)*s2b/2d0/sqrt(b)
4232 
4233  at = xt - mu/tanb
4234  ab = xb - mu*tanb
4235 
4236  call makederiv(t,b,a0,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
4237  & atat)
4238 
4239  faq = dcptpb/sqrt(b)/sqrt(t)
4240  $ +4d0*(at*ab - mu**2)**2*sqrt(t)*sqrt(b)
4241  $ /s2t**2/s2b**2/(t1-t2)**2/(b1-b2)**2*dcpttptb
4242  $ +sqrt(t)/sqrt(b)/s2t**2/(t1-t2)**2
4243  $ *(at**2*dcpbptt + mu**2/tanb**2*dcptmptt)
4244  $ +sqrt(b)/sqrt(t)/s2b**2/(b1-b2)**2
4245  $ *(ab**2*dcptptb + mu**2*tanb**2*dcpbmptb)
4246  $ -2d0*mu/s2t/s2b/(t1-t2)/(b1-b2)
4247  $ *(at*tanb*dspbmptbspbptt + ab/tanb*dsptmpttsptptb
4248  $ + mu*dsptmpttspbmptb)
4249 
4250  return
4251  end
4252 
4253 *
4254 ***********************************************************************
4255 *
4256 
4257 
4258  subroutine dszhiggs(t,mg,T1,T2,st,ct,q,mu,tanb,v2,gs,
4259  $ OS,S11,S22,S12)
4260  $ bind(c, name="dszhiggs_")
4261 
4262 c Two-loop O(a_t a_s) corrections to the CP-even Higgs mass matrix.
4263 c Routine written by P. Slavich (e-mail: slavich@mppmu.mpg.de).
4264 c Based on G. Degrassi, P. Slavich and F. Zwirner,
4265 c Nucl. Phys. B611 (2001) 403 [hep-ph/0105096].
4266 c
4267 c Last update: 24/02/2004: mg is given as input instead of mg^2;
4268 c value of pi corrected (10th digit);
4269 c unused variables cleaned up.
4270 c 22/10/2002: gs is given as input.
4271 c
4272 c
4273 c I/O PARAMETERS:
4274 c t = m_top^2, mg = m_gluino, T1 = m_stop1^2, T2 = m_stop2^2,
4275 c st = sin(theta_stop), ct = cos(theta_stop), q = Q^2 (ren. scale),
4276 c mu = Higgs mixing parameter, tanb = tan(beta), v2 = v^2,
4277 c gs = strong coupling constant,
4278 c OS = renormalization scheme for 1-loop (0 = DRbar, 1 = On-Shell),
4279 c Sij = 2-loop corrections to the CP-even Higgs mass matrix elements
4280 C .
4281 
4282  implicit none
4283 
4284  integer OS
4285  double precision ht,gs,k,mt,v2
4286  double precision t,mg,T1,T2,st,ct,q,A,X,mu,tanb,sb,s2t,c2t
4287  double precision F1,F2,F3,sF2,sF3
4288  double precision DF1,DF2,DF3,DsF2,DsF3
4289  double precision F2_s,sF2_A,sF3_A
4290  double precision S11,S22,S12,osdr
4291  double precision, parameter :: pi = 3.1415926535897932d0
4292 
4293  mt = dsqrt(t)
4294 
4295  s2t = 2d0*ct*st
4296  c2t = ct**2 - st**2
4297 
4298  x = (t1-t2)*s2t/2d0/mt ! eq. (19) of DSZ
4299  a = x - mu/tanb ! notice the sign convention for mu
4300 
4301  sb = dsin(datan(tanb))
4302  ht = dsqrt(2d0/v2)*mt/sb
4303 
4304  k = 4d0*gs**2/(16d0*pi**2)**2 ! gs^2/(16 Pi^2)^2 CF Nc
4305 
4306  call strfuncs(t,mg,t1,t2,s2t,c2t,q,f1,f2,f3)
4307  call strsfuncs(mg,t1,t2,q,a,sf2,sf3)
4308  call strdfuncs(t,mg,t1,t2,s2t,c2t,q,a,x,
4309  $ df1,df2,df3,dsf2,dsf3)
4310 
4311  osdr = 1d0*os
4312 
4313  if(s2t.ne.0.and.a.ne.0) then
4314 
4315  s11 = .5d0 * ht**2 * mu**2 * s2t**2 * (f3 + osdr*df3) ! eq. (25)
4316 
4317  s12 = .5d0 * ht**2 * mu * a * s2t**2 * (f3 + sf3 + ! eq. (26)
4318  $ osdr*(df3 + dsf3)) +
4319  $ ht**2 * mt * mu * s2t * (f2 + osdr*df2)
4320 
4321  s22 = .5d0 * ht**2 * a**2 * s2t**2 * (f3 + 2d0*sf3 + ! eq. (27)
4322  $ osdr*(df3 + 2d0*dsf3)) +
4323  $ 2d0 * ht**2 * mt * a * s2t * (f2 + sf2 +
4324  $ osdr*(df2 + dsf2)) +
4325  $ 2d0 * ht**2 * mt**2 * (f1 + osdr*df1)
4326 
4327 c some of the functions have poles in s2t=0 or in A=0.
4328 c when necessary we consider the residues:
4329 
4330  elseif(s2t.eq.0.and.a.eq.0) then
4331 
4332  s11 = 0d0
4333  s12 = 0d0
4334  s22 = 2 * ht**2 * mt**2 * (f1 + osdr*df1)
4335 
4336  elseif(s2t.eq.0.and.a.ne.0) then
4337 
4338  call strresfuncs(t,mg,t1,t2,q,f2_s,sf2_a,sf3_a)
4339 
4340  s11 = 0d0
4341  s12 = ht**2 * mt * mu * (f2_s + osdr*df2)
4342  s22 = 2d0 * ht**2 * mt**2 * (f1 + osdr*df1) +
4343  $ 2d0 * ht**2 * mt * a * (f2_s + osdr*df2)
4344 
4345  elseif(s2t.ne.0.and.a.eq.0) then
4346 
4347  call strresfuncs(t,mg,t1,t2,q,f2_s,sf2_a,sf3_a)
4348 
4349  s11 = .5d0 * ht**2 * mu**2 * s2t**2 * (f3 + osdr*df3)
4350  s12 = .5d0 * ht**2 * mu * s2t**2 * (sf3_a + osdr*dsf3) +
4351  $ ht**2 * mt * mu * s2t * (f2 + osdr*df2)
4352  s22 = 2d0 * ht**2 * mt**2 * (f1 + osdr*df1) +
4353  $ 2d0 * ht**2 * mt * s2t * (sf2_a + osdr*dsf2)
4354 
4355  endif
4356 
4357  s11 = k*s11
4358  s12 = k*s12
4359  s22 = k*s22
4360 
4361  return
4362  end
4363 
4364 *
4365 ***********************************************************************
4366 *
4367 
4368  subroutine strfuncs(t,mg,T1,T2,s2t,c2t,q,F1,F2,F3)
4369 
4370  implicit none
4371  double precision t,mg,T1,T2,s2t,c2t,q,F1,F2,F3
4372  double precision strF1ab,strF1c,strF2ab,strF2c,strF3ab,strF3c
4373 
4374  f1 = strf1ab(t,t1,t2,s2t,c2t,q)
4375  $ + strf1c(t,mg,t1,s2t,q)
4376  $ + strf1c(t,mg,t2,-s2t,q)
4377 
4378  f2 = strf2ab(t1,t2,s2t,c2t,q)
4379  $ + strf2c(t,mg,t1,t2,s2t,q)
4380  $ - strf2c(t,mg,t2,t1,-s2t,q)
4381 
4382  f3 = strf3ab(t1,t2,s2t,c2t,q)
4383  $ + strf3c(t,mg,t1,t2,s2t,q)
4384  $ + strf3c(t,mg,t2,t1,-s2t,q)
4385 
4386  return
4387  end
4388 
4389 *
4390 *********************************************************************
4391 *
4392 
4393  function strf1ab(t,T1,T2,s2t,c2t,q)
4394 
4395  implicit none
4396  double precision t,T1,T2,s2t,c2t,q
4397  double precision strF1ab
4398 
4399  strf1ab = ! eq. (32)
4400  $ -6*(1-log(t/q))+5*log(t1*t2/t**2)+log(t1*t2/t**2)**2
4401  $ +8*log(t/q)**2-4*log(t1/q)**2-4*log(t2/q)**2
4402  $ -c2t**2*(2-log(t1/q)-log(t2/q)-log(t1/t2)**2)
4403  $ -s2t**2*(t1/t2*(1-log(t1/q))+t2/t1*(1-log(t2/q)))
4404 
4405  return
4406  end
4407 
4408 *
4409 *********************************************************************
4410 *
4411 
4412  function strf1c(t,mg,T1,s2t,q)
4413 
4414  implicit none
4415  double precision t,g,mt,mg,T1,s2t,q
4416  double precision strF1c,phi,del
4417 
4418  mt = sqrt(t)
4419  g = mg**2
4420 
4421  del = g**2 + t**2 + t1**2 - 2*(g*t + g*t1 + t*t1)
4422 
4423  strf1c = ! eq. (A1)
4424  $ +4*(t+g-mg*mt*s2t)/t1*(1-log(g/q))
4425  $ +4*log(t/g) - 2*log(t1/g)
4426  $ +2d0/del*(4*g**2*log(t1/g)
4427  $ +(g**2-t1**2+t*(10*g+3*t+2*t*g/t1-2*t**2/t1))*log(t/g))
4428  $ +2*mg/mt*s2t*(log(t1/q)**2+2*log(t/q)*log(t1/q))
4429  $ +4*mg/mt*s2t/del*(g*(t1-t-g)
4430  $ *log(t1/g)+t*(t1-3*g-2*t-(t*g-t**2)/t1)*log(t/g))
4431  $ +(4*g*(t+g-t1-2*mg*mt*s2t)/del
4432  $ -4*mg/mt*s2t)*phi(t,t1,g)
4433 
4434  return
4435  end
4436 
4437 *
4438 *********************************************************************
4439 *
4440 
4441  function strf2ab(T1,T2,s2t,c2t,q)
4442 
4443  implicit none
4444  double precision T1,T2,s2t,c2t,q
4445  double precision strF2ab
4446 
4447  strf2ab = ! eq. (33)
4448  $ 5*log(t1/t2)-3*(log(t1/q)**2-log(t2/q)**2)
4449  $ +c2t**2*(5*log(t1/t2)
4450  $ -(t1+t2)/(t1-t2)*log(t1/t2)**2
4451  $ -2/(t1-t2)*(t1*log(t1/q)-t2*log(t2/q))*log(t1/t2))
4452  $ +s2t**2*(t1/t2*(1-log(t1/q))-t2/t1*(1-log(t2/q)))
4453 
4454  return
4455  end
4456 
4457 *
4458 *********************************************************************
4459 *
4460 
4461  function strf2c(t,mg,T1,T2,s2t,q)
4462 
4463  implicit none
4464  double precision t,g,mg,mt,T1,T2,s2t,q
4465  double precision strF2c,phi,del
4466 
4467  mt = sqrt(t)
4468  g = mg**2
4469 
4470  del = g**2 + t**2 + t1**2 - 2*(g*t + g*t1 + t*t1)
4471 
4472  strf2c = ! eq. (A2)
4473  $ 4*(t+g)/t1-4*mg/mt*s2t/(t1-t2)*(3*t1-t*t2/t1)
4474  $ +2*mg/mt*s2t/(t1-t2)*(
4475  $ (4*t+5*t1+t2)*log(t1/q)-2*t*t2/t1*log(g/q))
4476  $ -4*(g+t)/t1*log(g/q) - 2*log(t1/g)
4477  $ +2/del*(2*g*(g+t-t1)*log(t1/g)
4478  $ +2*t*(3*g+2*t-t1+(g*t-t**2)/t1)*log(t/g))
4479  $ -4*mg*mt*s2t/del/t1*(2*g*t1*log(t1/g)-
4480  $ ((t-t1)**2-g*(t+t1))*log(t/g))
4481  $ -8*mg*mt/s2t/(t1-t2)*(log(t1/q)-log(t/q)*log(t1/q))
4482  $ -mg/mt*s2t/(t1-t2)*((t1+t2)*log(t1/q)**2
4483  $ +(10*t-2*g+t1+t2)*log(t/q)*log(t1/q)
4484  $ +(2*g-2*t+t1+t2)*log(t1/q)*log(g/q))
4485  $ +(8*g*t/del-8*mg*mt/s2t/(t1-t2)
4486  $ +2*s2t/mg/mt/(t1-t2)*(4*g*t-del)
4487  $ +s2t/mg/mt/del*(t1-g-t)**3.0d0)*phi(t,t1,g)
4488 
4489  return
4490  end
4491 
4492 *
4493 *********************************************************************
4494 *
4495 
4496  function strf3ab(T1,T2,s2t,c2t,q)
4497 
4498  implicit none
4499  double precision T1,T2,s2t,c2t,q
4500  double precision strF3ab
4501 
4502  strf3ab = ! eq. (34)
4503  $ (3+9*c2t**2)*(2-(t1+t2)/(t1-t2)*log(t1/t2))
4504  $ +4-(3+13*c2t**2)/(t1-t2)*(t1*log(t1/q)-t2*log(t2/q))
4505  $ +3*(t1+t2)/(t1-t2)*(log(t1/q)**2-log(t2/q)**2)
4506  $ -c2t**2*(4-((t1+t2)/(t1-t2))**2*log(t1/t2)**2
4507  $ -6*(t1+t2)/(t1-t2)**2
4508  $ *(t1*log(t1/q)-t2*log(t2/q))*log(t1/t2))
4509  $ -s2t**2*(t1/t2+t2/t1 + 2*log(t1*t2/q**2)
4510  $ -t1**2/t2/(t1-t2)*log(t1/q)
4511  $ +t2**2/t1/(t1-t2)*log(t2/q))
4512 
4513  return
4514  end
4515 
4516 *
4517 *********************************************************************
4518 *
4519 
4520  function strf3c(t,mg,T1,T2,s2t,q)
4521 
4522  implicit none
4523  double precision t,g,mt,mg,T1,T2,s2t,q
4524  double precision strF3c,phi,del
4525 
4526  mt = sqrt(t)
4527  g = mg**2
4528 
4529  del = g**2 + t**2 + t1**2 - 2*(g*t + g*t1 + t*t1)
4530 
4531  strf3c = ! eq. (A3)
4532  $ -4*t2/t1/(t1-t2)*(g+t)
4533  $ +4*mg*mt*s2t/(t1-t2)**2*(21*t1-t2**2/t1)
4534  $ +4/(t1-t2)*(g*t2/t1*log(g/q)-2*(t+g)*log(t1/q))
4535  $ -24*mg*mt*s2t/(t1-t2)**2*(3*t1+t2)*log(t1/q)
4536  $ +4*t/t1/del*(2*g*t1*log(t1/q)-g*(g-t+t1)*log(g/q)+
4537  $ (g*(t+t1)-(t-t1)**2)*log(t/q))
4538  $ -4*mg*mt*s2t/t1/del*(t*(g-t+t1)*log(t/q)
4539  $ -g*(g-t-t1)*log(g/q)+t1*(g+t-t1)*log(t1/q))
4540  $ +2*(2*g+2*t-t1-t2)/(t1-t2)*log(g*t/q**2)*log(t1/q)
4541  $ +12*mg*mt*s2t/(t1-t2)**2*(2*(g-t)*log(g/t)*log(t1/q)
4542  $ +(t1+t2)*log(t*g/q**2)*log(t1/q))
4543  $ +8*mg*mt/s2t/(t1-t2)**2*
4544  $ (-8*t1+2*(3*t1+t2)*log(t1/q)-2*(g-t)*log(g/t)*log(t1/q)
4545  $ -(t1+t2)*log(t*g/q**2)*log(t1/q))
4546  $ -((8/s2t-12*s2t)*mt/mg/(t1-t2)**2
4547  $ *(2*del+(g+t-t1)*(t1-t2))
4548  $ +(4*del+8*g*t)/g/(t1-t2)+2*(g+t-t1)/g
4549  $ -4*t*(g+t-t1- 2*mg*mt*s2t)/del)*phi(t,t1,g)
4550 
4551  return
4552  end
4553 
4554 *
4555 *********************************************************************
4556 *
4557 
4558  subroutine strsfuncs(mg,T1,T2,q,A,sF2,sF3)
4559 
4560 c shift to the Fi functions due to the renormalization of A
4561 
4562  implicit none
4563  double precision mg,T1,T2,q,A,sF2,sF3
4564 
4565  sf2 = mg/a * ! eq. (35)
4566  $ 2d0*(dlog(t2/q)**2 - dlog(t1/q)**2)
4567 
4568  sf3 = mg/a * ! eq. (36)
4569  $ (8d0 - 2d0*(t1+t2)/(t1-t2)*(dlog(t2/q)**2 - dlog(t1/q)**2)
4570  $ + 8d0/(t1-t2)*(t2*dlog(t2/q) - t1*dlog(t1/q)))
4571 
4572  return
4573  end
4574 
4575 *
4576 *********************************************************************
4577 *
4578 
4579  subroutine strresfuncs(t,mg,T1,T2,q,F2_s,sF2_A,sF3_A)
4580 
4581 c residues of some singular functions for s2t=0 and for A=0
4582 
4583  implicit none
4584  double precision t,g,mt,mg,T1,T2,q,sF2_A,sF3_A,F2_s,phi
4585 
4586  mt = sqrt(t)
4587  g = mg**2
4588 
4589  f2_s = -8*mg*mt/(t1-t2)*(
4590  $ (log(t1/q)-log(t/q)*log(t1/q)+phi(t,t1,g))-
4591  $ (log(t2/q)-log(t/q)*log(t2/q)+phi(t,t2,g)))
4592 
4593  sf2_a = mg*
4594  $ 2d0*(dlog(t2/q)**2 - dlog(t1/q)**2)
4595 
4596  sf3_a = mg*
4597  $ (8d0 - 2d0*(t1+t2)/(t1-t2)*(dlog(t2/q)**2 - dlog(t1/q)**2)
4598  $ + 8d0/(t1-t2)*(t2*dlog(t2/q) - t1*dlog(t1/q)))
4599 
4600  return
4601  end
4602 
4603 *
4604 ***********************************************************************
4605 *
4606 
4607  subroutine strdfuncs(t,mg,T1,T2,s2t,c2t,q,At,X,
4608  $ DF1,DF2,DF3,DsF2,DsF3)
4609 
4610 c shift of the parameters from DRbar to On-Shell scheme
4611 
4612  implicit none
4613  double precision t,g,mt,mg,T1,T2,s2t,c2t,q,At,X,myB0
4614  double precision DF1,DF2,DF3,DsF2,DsF3
4615  double precision msdr
4616  double precision F1o,F2o,F3o,dm1,dm2,dmt,dAt,dth,ds2t
4617 
4618  msdr = -5d0
4619  mt = sqrt(t)
4620  g = mg**2
4621 
4622  f1o = log(t1/q) + log(t2/q) - 2d0*log(t/q) ! eq. (31)
4623  f2o = log(t1/q) - log(t2/q)
4624  f3o = 2d0 - (t1+t2)/(t1-t2)*(log(t1/q) - log(t2/q))
4625 
4626  dmt = ! eq. (B2)
4627  $ mt*(3*log(t/q) + msdr + .5d0*(2*g/t*(log(g/q)-1)
4628  $ -t1/t*(log(t1/q)-1) - t2/t*(log(t2/q)-1)
4629  $ +(g+t-t1 - 2*s2t*mg*mt)/t*myb0(t,g,t1,q)
4630  $ +(g+t-t2 + 2*s2t*mg*mt)/t*myb0(t,g,t2,q)))
4631 
4632  dm1 = ! eq. (B3)
4633  $ t1*(3*log(t1/q) - 7 - c2t**2*(log(t1/q)-1)
4634  $ -s2t**2*t2/t1*(log(t2/q)-1) + 2*(
4635  $ g/t1*(log(g/q)-1) + t/t1*(log(t/q)-1)
4636  $ +(t1-g-t + 2*s2t*mg*mt)/t1*myb0(t1,t,g,q)))
4637 
4638  dm2 = ! eq. (B4)
4639  $ t2*(3*log(t2/q) - 7 - c2t**2*(log(t2/q)-1)
4640  $ -s2t**2*t1/t2*(log(t1/q)-1) + 2*(
4641  $ g/t2*(log(g/q)-1) + t/t2*(log(t/q)-1)
4642  $ +(t2-g-t - 2*s2t*mg*mt)/t2*myb0(t2,t,g,q)))
4643 
4644 c$$$ c On-Shell theta-stop: asymmetric definition used in FeynHiggs
4645 c$$$ dth = (4d0*mg*mt*c2t*myB0(T1,t,g,q) +
4646 c$$$ $ c2t*s2t*(T2*(1d0-Log(T2/q))-T1*(1d0-Log(T1/q))))/(T1-T2)
4647 C
4648 
4649 c On-Shell theta-stop: eq. (B6)-(B7) of DSZ
4650  dth = (4d0*mg*mt*c2t*(myb0(t1,t,g,q)+myb0(t2,t,g,q)) +
4651  $ 2d0*c2t*s2t*(t2*(1d0-log(t2/q))-t1*(1d0-log(t1/q))))/
4652  $ 2d0/(t1-t2)
4653 
4654  ds2t = 2d0*c2t*dth
4655 
4656  dat = ((dm1-dm2)/(t1-t2) + ds2t/s2t - dmt/mt)*x ! eq. (B8)
4657 
4658  df1 = dm1/t1 + dm2/t2 - 4d0*dmt/mt + 4d0*dmt/mt*f1o ! eq. (37)
4659  df2 = dm1/t1 - dm2/t2 + (3d0*dmt/mt + ds2t/s2t)*f2o ! eq. (38)
4660  df3 = (2d0*t1*t2/(t1-t2)**2*log(t1/t2) - (t1+t2)/(t1-t2))
4661  $ *(dm1/t1-dm2/t2) + (2d0*dmt/mt + 2d0*ds2t/s2t)*f3o ! eq. (39)
4662 
4663  dsf2 = dat/at * f2o ! eq. (40)
4664  dsf3 = dat/at * f3o ! eq. (41)
4665 
4666 c residues of some singular functions for s2t=0 and for A=0
4667 
4668  if(s2t.eq.0d0) then
4669  df2 = ds2t*f2o
4670  dsf2 = ds2t*x/at * f2o
4671  endif
4672 
4673  if(at.eq.0d0) then
4674  dsf2 = dat * f2o
4675  dsf3 = dat * f3o
4676  endif
4677 
4678  return
4679  end
4680 
4681 
4682 
4683 
4684 
4685 
4686 
4687 
4688 
4689 
4690 
4691 
4692 
4693 
4694  subroutine dszodd(t,mg,T1,T2,st,ct,q,mu,tanb,v2,gs,DMA)
4695  $ bind(c, name="dszodd_")
4696 
4697 c Two-loop O(a_t a_s) corrections to the CP-odd Higgs mass in the
4698 c DRbar scheme. Written by P. Slavich (e-mail: slavich@mppmu.mpg.de)
4699 C .
4700 c Based on G. Degrassi, P. Slavich and F. Zwirner,
4701 c Nucl. Phys. B611 (2001) 403 [hep-ph/0105096].
4702 c
4703 c Last update: 24/02/2004: mg is given as input instead of mg^2;
4704 c value of pi corrected (10th digit);
4705 c unused variables cleaned up;
4706 c some formulae simplified.
4707 c 22/10/2002: gs is given as input.
4708 c
4709 c
4710 c I/O PARAMETERS:
4711 c t = m_top^2, mg = m_gluino, T1 = m_stop1^2, T2 = m_stop2^2,
4712 c st = sin(theta_stop), ct = cos(theta_stop), q = Q^2 (ren. scale),
4713 c mu = Higgs mixing parameter, tanb = tan(beta), v2 = v^2,
4714 c gs = strong coupling constant,
4715 c DMA = 2-loop corrections to the CP-odd Higgs mass.
4716 
4717  implicit none
4718 
4719  double precision ht,gs,k,mt,v2
4720  double precision t,mg,T1,T2,st,ct,q,A,X,mu,tanb,sb,cb,s2t
4721  double precision FA,FA_A,DMA
4722  double precision, parameter :: pi = 3.1415926535897932d0
4723 
4724  mt = dsqrt(t)
4725 
4726  s2t = 2d0*ct*st
4727 
4728  x = (t1-t2)*s2t/2d0/mt ! eq. (19) of DSZ
4729  a = x - mu/tanb ! notice the sign convention for mu
4730 
4731  sb = dsin(datan(tanb))
4732  cb = dcos(datan(tanb))
4733 
4734  ht = dsqrt(2d0/v2)*mt/sb
4735 
4736  k = 4d0*gs**2/(16d0*pi**2)**2 ! gs^2/(16 Pi^2)^2 CF Nc
4737 
4738  call strfuncsodd(t,mg,t1,t2,s2t,q,a,fa,fa_a)
4739 
4740  if(a.ne.0d0) then
4741 
4742  dma = ht**2*mu*a/(t1-t2)/sb/cb * fa ! eq. (C1)
4743 
4744  else
4745 
4746 c the function FA has poles in A=0.
4747 c when necessary we consider the residues:
4748 
4749  dma = ht**2*mu/(t1-t2)/sb/cb * fa_a
4750 
4751  endif
4752 
4753  dma = k*dma
4754 
4755  return
4756  end
4757 
4758 *
4759 ***********************************************************************
4760 *
4761 
4762  subroutine strfuncsodd(t,mg,T1,T2,s2t,q,A,FA,FA_A)
4763 
4764  implicit none
4765  double precision t,mg,T1,T2,s2t,q,A,FA,FA_A
4766  double precision strFAab,strFAc,strresFAc
4767 
4768  fa = strfaab(t1,t2,s2t,q)
4769  $ + strfac(t,mg,t1,t2,s2t,a,q)
4770  $ - strfac(t,mg,t2,t1,-s2t,a,q)
4771 
4772  fa_a = strresfac(t,mg,t1,q) - strresfac(t,mg,t2,q)
4773 
4774  return
4775  end
4776 
4777 *
4778 *********************************************************************
4779 *
4780 
4781  function strfaab(T1,T2,s2t,q)
4782 
4783  implicit none
4784  double precision T1,T2,s2t,q
4785  double precision strFAab
4786 
4787  strfaab = ! eq. (C4)
4788  $ (8d0 - s2t**2*(2d0 - (t1+t2)/(t1-t2)*log(t1/t2)))
4789  $ *(t1*(1d0 - log(t1/q)) - t2*(1d0 - log(t2/q)))
4790  $ + 2d0*(t1*log(t1/q)**2 - t2*log(t2/q)**2)
4791  $ + 2d0/(t1-t2)*(t1*log(t1/q) - t2*log(t2/q))**2
4792 
4793  return
4794  end
4795 
4796 *
4797 *********************************************************************
4798 *
4799 
4800  function strfac(t,mg,T1,T2,s2t,A,q)
4801 
4802  implicit none
4803  double precision t,g,mt,mg,T1,T2,s2t,A,q
4804  double precision strFAc,phi,del
4805 
4806  mt = sqrt(t)
4807  g = mg**2
4808 
4809  del = g**2 + t**2 + t1**2 - 2*(g*t + g*t1 + t*t1)
4810 
4811  strfac = ! eq. (C5)
4812  $ 16d0*t1/(t1-t2)*mg*mt*s2t
4813  $ -4d0*(g+t)*log(t1/q)
4814  $ - 2d0*mg/a*t1*(5d0- 4d0*log(t1/q))
4815  $ - 4d0*mg*mt*s2t*(3d0* t1 + t2)/(t1-t2)*log(t1/q)
4816  $ + 2d0*(g+t-t1)*log(t*g/q**2)*log(t1/q)
4817  $ + 2d0*t1*(1+mg/a)*log(g/q)*log(t/q)
4818  $ - 2d0*mg/a*((g-t)*log(g/t)+ t1*log(t*g/q**2))*log(t1/q)
4819  $ + 2d0*mg*mt*s2t/(t1-t2)*
4820  $ (2d0*(g-t)*log(g/t) + (t1+t2)*log(t*g/q**2))*log(t1/q)
4821  $ - (4d0* t + 2d0* del/g*(1d0 + mg/a)
4822  $ - 2d0*mt/mg*s2t/(t1-t2)*
4823  $ (2d0*del + (g+t-t1)*(t1-t2)))*phi(t,t1,g)
4824 
4825  return
4826  end
4827 
4828 *
4829 *********************************************************************
4830 *
4831 
4832  function strresfac(t,mg,T1,q)
4833 
4834 c residue of FA for A=0
4835 
4836  implicit none
4837  double precision t,g,mg,T1,q
4838  double precision strresFAc,phi,del
4839 
4840  g = mg**2
4841 
4842  del = g**2 + t**2 + t1**2 - 2*(g*t + g*t1 + t*t1)
4843 
4844  strresfac =
4845  $ - 2d0*mg*t1*(5d0- 4d0*log(t1/q))
4846  $ + 2d0*mg*t1*log(g/q)*log(t/q)
4847  $ - 2d0*mg*((g-t)*log(g/t)+ t1*log(t*g/q**2))*log(t1/q)
4848  $ - 2*del/mg*phi(t, t1, g)
4849 
4850  return
4851  end
4852 
4853 
4854 
4855 
4856  subroutine ewsb2loop(t,mg,T1,T2,st,ct,q,mu,tanb,vv,gs,
4857  $ S1,S2)
4858  $ bind(c, name="ewsb2loop_")
4859 
4860 c Two-loop O(a_t a_s) corrections to the Higgs tadpoles.
4861 c Written by P. Slavich (e-mail: slavich@mppmu.mpg.de).
4862 c Based on A. Dedes and P. Slavich,
4863 c Nucl. Phys. B657 (2003) 333 [hep-ph/0212132].
4864 c
4865 c Last update: 24/02/2004: mg is given as input instead of mg^2;
4866 c value of pi corrected (10th digit);
4867 c unused variables cleaned up.
4868 c Last update: 12/12/2002.
4869 c
4870 c I/O PARAMETERS:
4871 c t = m_top^2, g = m_gluino^2, T1 = m_stop1^2, T2 = m_stop2^2,
4872 c st = sin(theta_stop), ct = cos(theta_stop), q = Q^2 (ren. scale),
4873 c mu = Higgs mixing parameter, tanb = tan(beta), vv = v^2,
4874 c gs = strong coupling constant
4875 c Si = 1/vi*dVeff/dvi = 2-loop corrections to the Higgs tadpoles.
4876 c
4877 c Notice: we assume that the 1-loop part is computed in terms of
4878 c running (DRbar) parameters, evaluated at the scale Q.
4879 
4880  implicit none
4881 
4882  double precision gs,k,mt,vv
4883  double precision t,mg,T1,T2,st,ct,q,A,X,mu,tanb,sb,cb,s2t,c2t,v1
4884  $ ,v2
4885  double precision F2l,G2l,S1,S2
4886  double precision, parameter :: pi = 3.1415926535897932d0
4887 
4888  mt = dsqrt(t)
4889 
4890  s2t = 2d0*ct*st
4891  c2t = ct**2 - st**2
4892 
4893  x = (t1-t2)*s2t/2d0/mt
4894  a = x - mu/tanb ! notice the sign convention for mu
4895 
4896  sb = dsin(datan(tanb))
4897  cb = dcos(datan(tanb))
4898  v1 = sqrt(vv)*cb
4899  v2 = sqrt(vv)*sb
4900 
4901  k = 4d0*gs**2/(16d0*pi**2)**2 ! gs^2/(16 Pi^2)^2 CF Nc
4902 
4903  call strfuncstad(t,mg,t1,t2,s2t,c2t,q,f2l,g2l)
4904 
4905  s1 = mt * mu/tanb * s2t * f2l
4906  s1 = s1/v1**2
4907 
4908  s2 = mt * a * s2t * f2l + 2d0 * mt**2 * g2l
4909  s2 = s2/v2**2
4910 
4911  s1 = k*s1
4912  s2 = k*s2
4913 
4914  return
4915  end
4916 
4917 *
4918 ***********************************************************************
4919 *
4920 
4921 
4922  subroutine strfuncstad(t,mg,T1,T2,s2t,c2t,q,F2l,G2l)
4923 
4924  implicit none
4925  double precision t,g,mt,mg,T1,T2,s2t,c2t,q
4926  double precision F2l,G2l,strF2lc,strG2lc
4927 
4928  mt = sqrt(t)
4929  g = mg**2
4930 
4931  f2l = 4*mg*mt*(1+4*c2t**2)/s2t
4932  $ -(2*(t1-t2)+4*mg*mt/s2t)*log(g/q)*log(t/q)
4933  $ -2*(4-s2t**2)*(t1-t2)
4934  $ +(4*t1*t2-s2t**2*(t1+t2)**2)/(t1-t2)*log(t1/q)*log(t2/q)
4935  $ + strf2lc(t,mg,t1,t2,s2t,c2t,q)
4936  $ - strf2lc(t,mg,t2,t1,-s2t,c2t,q)
4937 
4938  g2l = 5*mg/mt*s2t*(t1-t2)-10*(t1+t2-2*t)-4*g
4939  $ + 12*t*(log(t/q)**2-2*log(t/q))
4940  $ +(4*g-s2t*mg/mt*(t1-t2))*log(g/q)*log(t/q)
4941  $ +s2t**2*(t1+t2)*log(t1/q)*log(t2/q)
4942  $ + strg2lc(t,mg,t1,t2,s2t,q)
4943  $ + strg2lc(t,mg,t2,t1,-s2t,q)
4944 
4945  return
4946  end
4947 
4948 *
4949 *********************************************************************
4950 *
4951 
4952  function strf2lc(t,mg,T1,T2,s2t,c2t,q)
4953 
4954  implicit none
4955  double precision t,g,mt,mg,T1,T2,s2t,c2t,q
4956  double precision strF2lc,phi,del
4957 
4958  mt = sqrt(t)
4959  g = mg**2
4960 
4961  del = g**2 + t**2 + t1**2 - 2*(g*t + g*t1 + t*t1)
4962 
4963  strf2lc = (4*(g+t+2*t1)-s2t**2*(3*t1+t2)-4*s2t*mg*mt
4964  $ -16*mg*mt*t1*c2t**2/s2t/(t1-t2))*log(t1/q)
4965  $ +t1/(t1-t2)*(s2t**2*(t1+t2)-2*(2*t1-t2))*log(t1/q)**2
4966  $ +2*(t1-g-t+mg*mt*s2t
4967  $ +2*c2t**2*mg*mt*t1/s2t/(t1-t2))*log(g*t/q**2)*log(t1/q)
4968  $ +4*mg*mt*c2t**2*(t-g)/s2t/(t1-t2)*log(t/g)*log(t1/q)
4969  $ +((2*del+4*g*t)/t1-2*mg*mt*s2t/t1*(g+t-t1)
4970  $ +4*c2t**2*mg*mt/t1/(t1-t2)/s2t*del)*phi(g,t,t1)
4971 
4972  return
4973  end
4974 
4975 
4976 *
4977 *********************************************************************
4978 *
4979 
4980  function strg2lc(t,mg,T1,T2,s2t,q)
4981 
4982  implicit none
4983  double precision t,g,mt,mg,T1,T2,s2t,q
4984  double precision strG2lc,phi,del
4985 
4986  mt = sqrt(t)
4987  g = mg**2
4988 
4989  del = g**2 + t**2 + t1**2 - 2*(g*t + g*t1 + t*t1)
4990 
4991  strg2lc = (4*(g+t+2*t1)+s2t**2*(t1-t2)
4992  $ -4*mg/mt*s2t*(t+t1))*log(t1/q)
4993  $ +(mg/mt*s2t*(5*t-g+t1)-2*(g+2*t))*log(t/q)*log(t1/q)
4994  $ +(mg/mt*s2t*(g-t+t1)-2*g)*log(g/q)*log(t1/q)
4995  $ -(2+s2t**2)*t1*log(t1/q)**2
4996  $ +(2*g/t1*(g+t-t1-2*mg*mt*s2t)
4997  $ +mg/mt*s2t*del/t1)*phi(g,t,t1)
4998 
4999  return
5000  end
5001 
5002 
5003 
5004 
5005 
5006 
5007 
5008 
5009 
5010 
5011 
5012 *
5013 * SOME AUXILIARY FUNCTIONS CALLED BY THE DSZ, BDSZ & DDS ROUTINES
5014 *
5015 * Last updates:
5016 *
5017 * 24/11/2003: 1) phi expansion around lambda=0 removed
5018 *
5019 * 06/08/2003: 1) phi expansion around x/z=0,y/z=0
5020 *
5021 * 13/05/2003: 1) new routine for the complex dilogarithm
5022 * 2) phi expansion around lambda=0
5023 * 3) more Passarino-Veltman functions
5024 *
5025 ***********************************************************************
5026 *
5027 
5028  double precision function myaa(m,q)
5029  double precision m,q
5030 
5031  if(m.ne.0d0) then
5032  myaa = m*(1d0-log(m/q))
5033  else
5034  myaa = 0d0
5035  endif
5036 
5037  return
5038  end
5039 
5040 *
5041 ***********************************************************************
5042 *
5043 
5044 
5045  double precision function myb0(q,m1,m2,mu2)
5046 
5047 c from Degrassi and Sirlin, Phys. Rev. D46 (1992) 3104.
5048 
5049  double precision q,m1,m2,Omega,mu2
5050 
5051  if(q.eq.0d0) then
5052 
5053  if(m1.eq.0d0.and.m2.ne.0d0) then
5054  myb0 = 1d0-log(m2/mu2)
5055  elseif(m1.ne.0d0.and.m2.eq.0d0) then
5056  myb0 = 1d0-log(m1/mu2)
5057  elseif(m1.eq.m2) then
5058  myb0 = -log(m1/mu2)
5059  else
5060  myb0 = 1d0 - log(m2/mu2) + m1/(m1-m2)*log(m2/m1)
5061  endif
5062 
5063  else
5064 
5065  if(m1.eq.0d0.and.m2.ne.0d0) then
5066 
5067  if(m2.ne.q) then
5068  myb0 = -(log(m2/mu2)-2-(m2/q-1d0)*log(dabs(1d0-q/m2)))
5069  else
5070  myb0 = -(log(m2/mu2) - 2)
5071  endif
5072 
5073  elseif(m2.eq.0d0.and.m1.ne.0d0) then
5074 
5075  if(m1.ne.q) then
5076  myb0 = -(log(m1/mu2)-2-(m1/q-1d0)*log(dabs(1d0-q/m1)))
5077  else
5078  myb0 = -(log(m1/mu2) - 2)
5079  endif
5080 
5081  elseif(m2.eq.0d0.and.m1.eq.0d0) then
5082 
5083  myb0 = -(log(q/mu2) - 2) ! cut the imaginary part (I Pi)
5084 
5085  else
5086 
5087  myb0 = -( dlog(q/mu2)-2.d0 +
5088  1 1.d0/2.d0*( 1.d0 + (m1/q-m2/q))*dlog(m1/q) +
5089  2 1.d0/2.d0*( 1.d0 - (m1/q-m2/q))*dlog(m2/q) +
5090  3 2.d0*omega(m1/q,m2/q))
5091 
5092  endif
5093 
5094  endif
5095 
5096  return
5097  end
5098 
5099 c function Omega(a,b) contained in myB0
5100  double precision function omega(a,b)
5101  double precision a,b,cbig
5102  cbig = (a+b)/2.d0 - (a-b)**2.d0/4.d0 -1.d0/4.d0
5103  if(cbig.gt.0.d0) then
5104  omega = dsqrt(cbig)*
5105  1 (datan((1.d0 + a - b)/(2.d0*dsqrt(cbig))) +
5106  2 datan((1.d0 - a + b)/(2.d0*dsqrt(cbig))) )
5107  elseif(cbig.lt.0d0) then
5108  cbig = - cbig
5109  omega = 1.d0/2.d0*dsqrt(cbig)*
5110  1 dlog((a/2.d0 +b/2.d0 -1.d0/2.d0 -dsqrt(cbig))/
5111  2 (a/2.d0 + b/2.d0 -1.d0/2.d0 + dsqrt(cbig)))
5112  else
5113  omega = 0
5114  endif
5115 
5116  return
5117  end
5118 
5119 *
5120 **********************************************************************
5121 *
5122 
5123  double precision function myb1(p,m1,m2,q)
5124 
5125  implicit none
5126 
5127  double precision p,m1,m2,q
5128  double precision myAA,myB0
5129 
5130  if(p.eq.0d0) then
5131  myb1 = (1d0-log(m2/q)+m1**2/(m1-m2)**2*log(m2/m1)
5132  $ +(m1+m2)/(m1-m2)/2d0)/2d0
5133  else
5134  myb1 = (myaa(m2,q)-myaa(m1,q)+(p+m1-m2)*myb0(p,m1,m2,q))/2d0/p
5135  endif
5136 
5137  return
5138  end
5139 
5140 *
5141 **********************************************************************
5142 *
5143 
5144 c double precision function myG(p,m1,m2,q)
5145 
5146 c implicit none
5147 
5148 c double precision p,m1,m2,q
5149 c double precision myAA,myB0
5150 
5151 c myG = (p-m1-m2)*myB0(p,m1,m2,q) - myAA(m1,q) - myAA(m2,q)
5152 
5153 c return
5154 c end
5155 
5156 *
5157 **********************************************************************
5158 *
5159 
5160  function phi(x,y,z)
5161 
5162 c from Davydychev and Tausk, Nucl. Phys. B397 (1993) 23
5163 
5164  implicit none
5165  double precision x,y,z,phi,pphi,myphi
5166 
5167  if(x.le.z.and.y.le.z) then
5168  pphi = myphi(x,y,z)
5169  elseif(z.le.x.and.y.le.x) then
5170  pphi = z/x*myphi(z,y,x)
5171  elseif(z.le.y.and.x.le.y) then
5172  pphi = z/y*myphi(z,x,y)
5173  endif
5174 
5175  phi = pphi
5176 
5177  end
5178 
5179 *
5180 **********************************************************************
5181 *
5182 
5183  function myphi(x,y,z)
5184 
5185  implicit none
5186 
5187  double precision x,y,z,myphi
5188  double precision u,v
5189  double precision pLi2
5190  complex*16 clam,cxp,cxm,CLI2,ccphi,fast_cdlog
5191  double precision delt,phi0,phi2,phi4
5192  double precision, parameter :: Pi = 3.1415926535897932d0
5193 
5194 c auxiliary variables
5195 
5196  u = x/z
5197  v = y/z
5198 
5199  if(u.le.1d-8) then
5200 
5201  if(v.ne.1d0) then
5202  myphi = (log(u)*log(v)+2d0*pli2(1d0-v))/(1d0-v)
5203  else
5204  myphi = 2d0-log(u)
5205  endif
5206 
5207  elseif(v.le.1d-8) then
5208 
5209  if(u.ne.1d0) then
5210  myphi = (log(v)*log(u)+2d0*pli2(1d0-u))/(1d0-u)
5211  else
5212  myphi = 2d0-log(v)
5213  endif
5214 
5215  else
5216 
5217  if((1d0-u-v)**2.ge.4d0*u*v) then
5218  clam = dcmplx(dsqrt((1d0-u-v)**2 - 4d0*u*v),0d0)
5219  else
5220  clam = dcmplx(0d0,dsqrt(4d0*u*v - (1d0-u-v)**2))
5221  endif
5222 
5223  cxp = (1d0+(u-v)-clam)/2d0
5224  cxm = (1d0-(u-v)-clam)/2d0
5225 
5226 c phi function from eq. (A4)
5227 
5228  ccphi = (2d0*fast_cdlog(cxp)*fast_cdlog(cxm) - log(u)*log(v) -
5229  & 2d0*(cli2(cxp) + cli2(cxm)) + pi**2/3d0)/clam
5230  myphi = dreal(ccphi)
5231 
5232  endif
5233 
5234  return
5235  end
5236 
5237 
5238 *
5239 ***********************************************************************
5240 *
5241 
5242  function delt(x,y,z)
5243 
5244  implicit none
5245 
5246  double precision x,y,z,delt
5247 
5248  if (y==z) then
5249  delt = x**2 - 2d0*(x*y + x*z )
5250  else
5251  delt = x**2 + y**2 + z**2 - 2d0*(x*y + x*z + y*z)
5252  endif
5253 
5254  return
5255  end
5256 
5257 *
5258 ***********************************************************************
5259 *
5260 
5261  function pli2(x)
5262 
5263  implicit none
5264 
5265  complex*16 CLI2,z
5266  double precision x,pLi2
5267 
5268  z = dcmplx(x,0d0)
5269  pli2 = dreal(cli2(z))
5270 
5271  return
5272  end
5273 
5274 *
5275 ***********************************************************************
5276 *
5277 
5278  COMPLEX*16 FUNCTION cli2(Z)
5279 
5280 c just call the cdli2 routine
5281 
5282  COMPLEX*16 Z,cdli2
5283 
5284  cli2 = cdli2(z)
5285 
5286  return
5287  end
5288 
5289 
5290 c computed in term of the "resummed" bottom (tau) Yukawa coupling.
5291 c
5292 c
5293 
5294  subroutine taubot(t,b,T1,T2,B1,B2,st,ct,sb,cb,q,mu,tanb,vv,
5295  $ S11,S12,S22)
5296  $ bind(c, name="taubot_")
5297 
5298  implicit none
5299 
5300  double precision t,b,T1,T2,B1,B2,st,ct,sb,cb,q,mu,tanb,vv,S11,S12
5301  $ ,s22
5302  double precision c2t,s2t,c2b,s2b,At,Ab,Xt,Xb,mt,mb,cbe,sbe,ht,hb
5303  $ ,k
5304  double precision F1t,F2t,F3t,F4t,F1b,F2b,F3b,F4b,F5,F6,Ft,Fb,Gt,Gb
5305  $ ,fap
5306  double precision, parameter :: pi = 3.1415926535897932d0
5307 
5308  mt = dsqrt(t)
5309  mb = dsqrt(b)
5310 
5311  s2t = 2d0*ct*st
5312  s2b = 2d0*cb*sb
5313  c2t = ct**2 - st**2
5314  c2b = cb**2 - sb**2
5315 
5316  xt = (t1-t2)*s2t/2d0/mt
5317  xb = (b1-b2)*s2b/2d0/mb
5318  at = xt - mu*tanb ! notice the sign convention for mu
5319  ab = xb - mu*tanb
5320 
5321  sbe = dsin(datan(tanb))
5322  cbe = dcos(datan(tanb))
5323 
5324  ht = dsqrt(2d0/vv)*mt/cbe
5325  hb = dsqrt(2d0/vv)*mb/cbe
5326 
5327  k = 3d0/(16d0*pi**2)**2
5328 
5329  call makefuncstau(t,b,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
5330  $ f1t,f2t,f3t,f4t,f1b,f2b,f3b,f4b,f5,f6,ft,fb,gt,gb,fap)
5331 
5332  s11 =
5333  $ 2d0*hb**2*mb**2*f1b + 2d0*hb**2*ab*mb*s2b*f2b
5334  $ + .5d0*hb**2*ab**2*s2b**2*f3b
5335  $ + 2d0*ht**2*mt**2*f1t + 2d0*ht**2*at*mt*s2t*f2t
5336  $ + .5d0*ht**2*at**2*s2t**2*f3t
5337  $ + 2d0*hb*ht*mb*at*s2t*f4t + 2d0*ht*hb*mt*ab*s2b*f4b
5338  $ + ht*hb*at*ab*s2t*s2b*f5 + 4d0*ht*hb*mt*mb*f6
5339 
5340  s12 = ht**2*mu*mt*s2t*f2t + .5d0*ht**2*at*mu*s2t**2*f3t
5341  $ +hb**2*mu*mb*s2b*f2b + .5d0*hb**2*ab*mu*s2b**2*f3b
5342  $ +ht*hb*mb*mu*s2t*f4t + hb*ht*mt*mu*s2b*f4b
5343  $ +.5d0*ht*hb*s2t*s2b*mu*(at+ab)*f5
5344 
5345  s22 = .5d0*hb**2*mu**2*s2b**2*f3b+ .5d0*ht**2*mu**2*s2t**2*f3t
5346  $ + hb*ht*mu**2*s2b*s2t*f5
5347 
5348  s11 = k*s11
5349  s12 = k*s12
5350  s22 = k*s22
5351 
5352  return
5353  end
5354 
5355 
5356 *
5357 ***********************************************************************
5358 *
5359 
5360  subroutine taubotodd(t,b,T1,T2,B1,B2,st,ct,sb,cb,q,mu,tanb,vv,
5361  $ DMA)
5362  $ bind(c, name="taubotodd_")
5363 
5364  implicit none
5365 
5366  double precision t,b,T1,T2,B1,B2,st,ct,sb,cb,q,mu,tanb,vv,DMA
5367  double precision c2t,s2t,c2b,s2b,At,Ab,Xt,Xb,mt,mb,cbe,sbe,ht,hb
5368  $ ,k
5369  double precision F1t,F2t,F3t,F4t,F1b,F2b,F3b,F4b,F5,F6,Ft,Fb,Gt,Gb
5370  $ ,fap
5371  double precision, parameter :: pi = 3.1415926535897932d0
5372 
5373  mt = dsqrt(t)
5374  mb = dsqrt(b)
5375 
5376  s2t = 2d0*ct*st
5377  s2b = 2d0*cb*sb
5378  c2t = ct**2 - st**2
5379  c2b = cb**2 - sb**2
5380 
5381  xt = (t1-t2)*s2t/2d0/mt
5382  xb = (b1-b2)*s2b/2d0/mb
5383  at = xt - mu*tanb
5384  ab = xb - mu*tanb
5385 
5386  sbe = dsin(datan(tanb))
5387  cbe = dcos(datan(tanb))
5388 
5389  ht = dsqrt(2d0/vv)*mt/cbe
5390  hb = dsqrt(2d0/vv)*mb/cbe
5391 
5392  k = 3d0/(16d0*pi**2)**2
5393 
5394  call makefuncstau(t,b,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
5395  $ f1t,f2t,f3t,f4t,f1b,f2b,f3b,f4b,f5,f6,ft,fb,gt,gb,fap)
5396 
5397  dma = -(ht**2*mu*at/(t1-t2)*ft + hb**2*mu*ab/(b1-b2)*fb
5398  $ + 2d0*ht*hb*fap)/sbe/cbe
5399 
5400  dma = k*dma
5401 
5402  return
5403  end
5404 
5405 
5406 *
5407 ***********************************************************************
5408 *
5409 
5410  subroutine taubottad(t,b,T1,T2,B1,B2,st,ct,sb,cb,q,mu,tanb,vv,
5411  $ S1,S2)
5412 
5413  implicit none
5414 
5415  double precision t,b,T1,T2,B1,B2,st,ct,sb,cb,q,mu,tanb,vv
5416  double precision c2t,s2t,c2b,s2b,At,Ab,Xt,Xb,mt,mb,cbe,sbe,ht,hb
5417  $ ,k
5418  double precision F1t,F2t,F3t,F4t,F1b,F2b,F3b,F4b,F5,F6,Ft,Fb,Gt,Gb
5419  $ ,fap
5420  double precision v1,v2,S1,S2
5421  double precision, parameter :: pi = 3.1415926535897932d0
5422 
5423  mt = dsqrt(t)
5424  mb = dsqrt(b)
5425 
5426  s2t = 2d0*ct*st
5427  s2b = 2d0*cb*sb
5428  c2t = ct**2 - st**2
5429  c2b = cb**2 - sb**2
5430 
5431  xt = (t1-t2)*s2t/2d0/mt
5432  xb = (b1-b2)*s2b/2d0/mb
5433  at = xt - mu*tanb
5434  ab = xb - mu*tanb
5435 
5436  sbe = dsin(datan(tanb))
5437  cbe = dcos(datan(tanb))
5438 
5439  ht = dsqrt(2d0/vv)*mt/cbe
5440  hb = dsqrt(2d0/vv)*mb/cbe
5441 
5442  k = 3d0/(16d0*pi**2)**2
5443 
5444  call makefuncstau(t,b,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
5445  $ f1t,f2t,f3t,f4t,f1b,f2b,f3b,f4b,f5,f6,ft,fb,gt,gb,fap)
5446 
5447  v1 = sqrt(vv)*cbe
5448  v2 = sqrt(vv)*sbe
5449 
5450  s1 = mt*at*s2t*ft + mb*ab*s2b*fb + 2d0*mt**2*gt + 2d0*mb**2*gb
5451  s2 = mt*mu*tanb*s2t*ft + mb*mu*tanb*s2b*fb
5452 
5453  s1 = k*s1/v1**2
5454  s2 = k*s2/v2**2
5455 
5456  return
5457  end
5458 
5459 *
5460 ***********************************************************************
5461 *
5462 
5463  subroutine makefuncstau(t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,
5464  $ q,mu,vv,tanb,F1t,F2t,F3t,F4t,F1b,F2b,F3b,F4b,F5,F6,
5465  $ Ft,Fb,Gt,Gb,FAp)
5466 
5467  implicit none
5468 
5469  double precision t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb,
5470  $ f1t,f2t,f3t,f4t,f1b,f2b,f3b,f4b,f5,f6,ft,fb,gt,gb,fap
5471 
5472  double precision tauF1q,tauF2q,tauF3q,tauF4q,tauF5q,tauF6q,
5473  $ taufq,taugq,taufaq
5474 
5475  f1t = tauf1q(t,b,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb)
5476  f2t = tauf2q(t,b,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb)
5477  f3t = tauf3q(t,b,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb)
5478  f4t = tauf4q(t,b,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb)
5479 
5480  f1b = tauf1q(b,t,b1,b2,t1,t2,s2b,c2b,s2t,c2t,q,mu,vv,tanb)
5481  f2b = tauf2q(b,t,b1,b2,t1,t2,s2b,c2b,s2t,c2t,q,mu,vv,tanb)
5482  f3b = tauf3q(b,t,b1,b2,t1,t2,s2b,c2b,s2t,c2t,q,mu,vv,tanb)
5483  f4b = tauf4q(b,t,b1,b2,t1,t2,s2b,c2b,s2t,c2t,q,mu,vv,tanb)
5484 
5485  f5 = tauf5q(t,b,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb)
5486  f6 = tauf6q(t,b,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb)
5487 
5488  ft = taufq(t,b,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb)
5489  gt = taugq(t,b,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb)
5490 
5491  fb = taufq(b,t,b1,b2,t1,t2,s2b,c2b,s2t,c2t,q,mu,vv,tanb)
5492  gb = taugq(b,t,b1,b2,t1,t2,s2b,c2b,s2t,c2t,q,mu,vv,tanb)
5493 
5494  fap = taufaq(t,b,t1,t2,b1,b2,s2t,c2t,s2b,c2b,q,mu,vv,tanb)
5495 
5496  return
5497  end
5498 
5499 *
5500 ***********************************************************************
5501 *
5502 
5503  function tauf1q(t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb)
5504 
5505  implicit none
5506 
5507  double precision tauF1q
5508  double precision t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
5509  double precision ht,hb,pippob,pippot
5510 
5511  pippob = b1*(log(b1/q)-1d0) - b2*(log(b2/q)-1d0)
5512  pippot = t1*(log(t1/q)-1d0) - t2*(log(t2/q)-1d0)
5513 
5514  ht = dsqrt(2d0*t/vv)/cos(atan(tanb))
5515  hb = dsqrt(2d0*b/vv)/cos(atan(tanb))
5516 
5517  tauf1q = -.5d0*ht*hb*s2t*s2b*(t1-t2)/t1/t2*pippob
5518 
5519  return
5520  end
5521 
5522 *
5523 ***********************************************************************
5524 *
5525 
5526  function tauf2q(t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb)
5527 
5528  implicit none
5529 
5530  double precision tauF2q
5531  double precision t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
5532  double precision ht,hb,pippob,pippot
5533 
5534  pippob = b1*(log(b1/q)-1d0) - b2*(log(b2/q)-1d0)
5535  pippot = t1*(log(t1/q)-1d0) - t2*(log(t2/q)-1d0)
5536 
5537  ht = dsqrt(2d0*t/vv)/cos(atan(tanb))
5538  hb = dsqrt(2d0*b/vv)/cos(atan(tanb))
5539 
5540  tauf2q = .5d0*ht*hb*s2b/s2t/t1/t2/(t1-t2)*pippob*
5541  $ (s2t**2*(t1**2-t2**2) + 2d0*c2t**2*t1*t2*log(t1/t2))
5542 
5543  return
5544  end
5545 
5546 *
5547 ***********************************************************************
5548 *
5549 
5550  function tauf3q(t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb)
5551 
5552  implicit none
5553 
5554  double precision tauF3q
5555  double precision t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
5556  double precision ht,hb,pippob,pippot
5557 
5558  pippob = b1*(log(b1/q)-1d0) - b2*(log(b2/q)-1d0)
5559  pippot = t1*(log(t1/q)-1d0) - t2*(log(t2/q)-1d0)
5560 
5561  ht = dsqrt(2d0*t/vv)/cos(atan(tanb))
5562  hb = dsqrt(2d0*b/vv)/cos(atan(tanb))
5563 
5564  tauf3q = -.5d0*ht*hb*s2b/s2t/t1/t2/(t1-t2)**2*pippob*
5565  $ ((t1-t2)*(s2t**2*(t1+t2)**2 - 8d0*c2t**2*t1*t2)
5566  $ -2d0*(3d0*s2t**2 - 2d0)*t1*t2*(t1+t2)*log(t1/t2))
5567 
5568  return
5569  end
5570 
5571 *
5572 ***********************************************************************
5573 *
5574 
5575  function tauf4q(t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb)
5576 
5577  implicit none
5578 
5579  double precision tauF4q
5580  double precision t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
5581  double precision ht,hb,pippob,pippot
5582 
5583  pippob = b1*(log(b1/q)-1d0) - b2*(log(b2/q)-1d0)
5584  pippot = t1*(log(t1/q)-1d0) - t2*(log(t2/q)-1d0)
5585 
5586  ht = dsqrt(2d0*t/vv)/cos(atan(tanb))
5587  hb = dsqrt(2d0*b/vv)/cos(atan(tanb))
5588 
5589  tauf4q = .5d0*ht*hb*s2b/s2t/(t1-t2)*log(b1/b2)*
5590  $ (2d0*c2t**2*pippot + s2t**2*(t1-t2)*log(t1*t2/q**2))
5591 
5592  return
5593  end
5594 
5595 *
5596 ***********************************************************************
5597 *
5598 
5599  function tauf5q(t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb)
5600 
5601  implicit none
5602 
5603  double precision tauF5q
5604  double precision t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
5605  double precision ht,hb,pippob,pippot
5606 
5607  pippob = b1*(log(b1/q)-1d0) - b2*(log(b2/q)-1d0)
5608  pippot = t1*(log(t1/q)-1d0) - t2*(log(t2/q)-1d0)
5609 
5610  ht = dsqrt(2d0*t/vv)/cos(atan(tanb))
5611  hb = dsqrt(2d0*b/vv)/cos(atan(tanb))
5612 
5613  tauf5q = .5d0*hb*ht/s2b/s2t*
5614  $ (-4d0*pippob*pippot/(b1-b2)/(t1-t2)*(1d0-c2b**2*c2t**2)
5615  $ + 2d0*pippot*s2b**2*c2t**2/(t1-t2)*log(b1*b2/q**2)
5616  $ + 2d0*pippob*s2t**2*c2b**2/(b1-b2)*log(t1*t2/q**2)
5617  $ + s2t**2*s2b**2*(log(b1/q)*log(t1/q) + log(b1/q)*log(t2/q)
5618  $ + log(b2/q)*log(t1/q) + log(b2/q)*log(t2/q)))
5619 
5620  return
5621  end
5622 
5623 *
5624 ***********************************************************************
5625 *
5626 
5627  function tauf6q(t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb)
5628 
5629  implicit none
5630 
5631  double precision tauF6q
5632  double precision t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
5633  double precision ht,hb,pippob,pippot
5634 
5635  pippob = b1*(log(b1/q)-1d0) - b2*(log(b2/q)-1d0)
5636  pippot = t1*(log(t1/q)-1d0) - t2*(log(t2/q)-1d0)
5637 
5638  ht = dsqrt(2d0*t/vv)/cos(atan(tanb))
5639  hb = dsqrt(2d0*b/vv)/cos(atan(tanb))
5640 
5641  tauf6q = .5d0*ht*hb*s2t*s2b*log(b1/b2)*log(t1/t2)
5642 
5643  return
5644  end
5645 
5646 *
5647 ***********************************************************************
5648 *
5649 
5650  function taufq(t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb)
5651 
5652  implicit none
5653 
5654  double precision tauFq
5655  double precision t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
5656  double precision ht,hb,pippob,pippot
5657 
5658  pippob = b1*(log(b1/q)-1d0) - b2*(log(b2/q)-1d0)
5659  pippot = t1*(log(t1/q)-1d0) - t2*(log(t2/q)-1d0)
5660 
5661  ht = dsqrt(2d0*t/vv)/cos(atan(tanb))
5662  hb = dsqrt(2d0*b/vv)/cos(atan(tanb))
5663 
5664  taufq = .5d0*ht*hb*s2b/s2t/(t1-t2)*pippob*
5665  $ (2d0*c2t**2*pippot + s2t**2*(t1-t2)*log(t1*t2/q**2))
5666 
5667  return
5668  end
5669 
5670 *
5671 ***********************************************************************
5672 *
5673 
5674  function taugq(t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb)
5675 
5676  implicit none
5677 
5678  double precision tauGq
5679  double precision t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
5680  double precision ht,hb,pippob,pippot
5681 
5682  pippob = b1*(log(b1/q)-1d0) - b2*(log(b2/q)-1d0)
5683  pippot = t1*(log(t1/q)-1d0) - t2*(log(t2/q)-1d0)
5684 
5685  ht = dsqrt(2d0*t/vv)/cos(atan(tanb))
5686  hb = dsqrt(2d0*b/vv)/cos(atan(tanb))
5687 
5688  taugq = .5d0*hb*ht*s2b*s2t*pippob*log(t1/t2)
5689 
5690  return
5691  end
5692 
5693 *
5694 ***********************************************************************
5695 *
5696 
5697  function taufaq(t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb)
5698 
5699  implicit none
5700 
5701  double precision tauFAq
5702  double precision t,b,T1,T2,B1,B2,s2t,c2t,s2b,c2b,q,mu,vv,tanb
5703  double precision Xt,Xb,At,Ab
5704  double precision ht,hb,pippob,pippot
5705 
5706  pippob = b1*(log(b1/q)-1d0) - b2*(log(b2/q)-1d0)
5707  pippot = t1*(log(t1/q)-1d0) - t2*(log(t2/q)-1d0)
5708 
5709  ht = dsqrt(2d0*t/vv)/cos(atan(tanb))
5710  hb = dsqrt(2d0*b/vv)/cos(atan(tanb))
5711 
5712  xt = (t1-t2)*s2t/2d0/sqrt(t)
5713  xb = (b1-b2)*s2b/2d0/sqrt(b)
5714 
5715  at = xt - mu*tanb
5716  ab = xb - mu*tanb
5717 
5718  taufaq = 2d0*ht*hb*sqrt(t)*sqrt(b)*tanb*(ab-at)**2*
5719  $ mu**2/s2b/s2t/(t1-t2)**2/(b1-b2)**2*pippot*pippob
5720 
5721  return
5722  end
5723 
5724 
5725  subroutine tausqhiggs(t,A0,BL,T1,T2,st,ct,q,mu,tb,v2,OS,
5726  $ S11,S22,S12)
5727  $ bind(c, name="tausqhiggs_")
5728 
5729 c Two-loop O(a_tau^2) corrections to the CP-even Higgs mass matrix.
5730 c Routine written by P. Slavich (e-mail: slavich@mppmu.mpg.de).
5731 c Based on A. Brignole, G. Degrassi, P. Slavich and F. Zwirner,
5732 c hep-ph/0112177 with appropriate substitutions for top -> tau.
5733 c
5734 c Last update: 19/06/2003.
5735 c
5736 c
5737 c I/O PARAMETERS:
5738 c t = m_tau^2, A0 = m_A^2, BL = m_snu^2, T1 = m_stau1^2, T2 =
5739 C m_stau2^2,
5740 c st = sin(theta_stau), ct = cos(theta_stau), q = Q^2 (ren. scale),
5741 c mu = Higgs mixing parameter, tb = tan(beta), v2 = v^2,
5742 c OS = renormalization scheme for 1-loop (0 = DRbar, 1 = On-Shell),
5743 c Sij = 2-loop corrections to the CP-even Higgs mass matrix elements
5744 C .
5745 
5746  implicit none
5747 
5748  integer OS
5749  double precision ht,k,mt,v2,tb
5750  double precision t,mu2,A0,BL,T1,T2,st,ct,q,A,X,mu,tanb,sb,cb,s2t
5751  $ ,c2t
5752  double precision F1,F2,F3,dmuF2,dmuF3,dAtF2,dAtF3,DM12,DM22
5753  double precision DF1,DF2,DF3,DdmuF2,DdmuF3,DdAtF2,DdAtF3,F2_s
5754  double precision S11,S22,S12,osdr,DMom,ShiftB,ShiftB2,ShiftB3,sw
5755  double precision, parameter :: pi = 3.1415926535897932d0
5756 
5757  tanb = 1d0/tb ! swap H1 <-> H2 !!!
5758 
5759  mt = dsqrt(t)
5760 
5761  s2t = 2d0*ct*st
5762  c2t = ct**2 - st**2
5763 
5764  x = (t1-t2)*s2t/2d0/mt
5765  a = x - mu/tanb
5766 
5767  sb = dsin(datan(tanb))
5768  cb = dcos(datan(tanb))
5769 
5770  ht = dsqrt(2d0/v2)*mt/sb
5771 
5772 c$$$ k = 3d0*ht**2/(16d0*Pi**2)**2
5773  k = ht**2/(16d0*pi**2)**2 ! remove color factor !!!
5774 
5775  call taufuncs(t,a0,bl,t1,t2,s2t,c2t,cb,sb,q,mu,f1,f2,f3)
5776  call tausfuncs(t,a0,bl,t1,t2,s2t,c2t,cb,sb,q,mu,a,ht,
5777  $ dmuf2,dmuf3,datf2,datf3,dm12,dm22)
5778  call taudfuncs(t,a0,bl,t1,t2,s2t,c2t,cb,sb,q,mu,a,v2,
5779  $ df1,df2,df3,ddmuf2,ddmuf3,ddatf2,ddatf3)
5780 
5781  osdr = 1d0*os
5782 
5783  if(s2t.ne.0d0.and.a.ne.0d0) then
5784 
5785  s11 = .5d0 * ht**2 * mu**2 * s2t**2 * (f3 + 2d0*dmuf3 +
5786  $ osdr*(df3 + 2d0*ddmuf3))
5787 
5788  s12 = .5d0 * ht**2 * mu * a * s2t**2 * (f3 + dmuf3 + datf3 +
5789  $ osdr*(df3 + ddmuf3 + ddatf3)) +
5790  $ ht**2 * mt * mu * s2t * (f2 + dmuf2 +
5791  $ osdr*(df2 + ddmuf2))
5792 
5793  s22 = .5d0 * ht**2 * a**2 * s2t**2 * (f3 + 2d0*datf3 +
5794  $ osdr*(df3 + 2d0*ddatf3)) +
5795  $ 2d0 * ht**2 * mt * a * s2t * (f2 + datf2 +
5796  $ osdr*(df2 + ddatf2)) +
5797  $ 2d0 * ht**2 * mt**2 * (f1 + osdr*df1)
5798 
5799 c some of the functions have poles in s2t=0 or in A=0.
5800 c when necessary we consider the residues:
5801 
5802  elseif(s2t.eq.0d0.and.a.eq.0d0) then
5803 
5804  s11 = 0d0
5805  s12 = 0d0
5806  s22 = 2 * ht**2 * mt**2 * (f1 + osdr*df1)
5807 
5808  elseif(s2t.eq.0d0.and.a.ne.0d0) then
5809 
5810  call tauresfuncs(t,a0,bl,t1,t2,s2t,c2t,cb,sb,q,mu,f2_s)
5811 
5812  s11 = 0d0
5813  s12 = ht**2 * mt * mu * (f2_s + osdr*df2)
5814  s22 = 2d0 * ht**2 * mt**2 * (f1 + osdr*df1) +
5815  $ 2d0 * ht**2 * mt * a * (f2_s + osdr*(df2 + ddatf2))
5816 
5817  elseif(s2t.ne.0d0.and.a.eq.0d0) then
5818 
5819  s11 = .5d0 * ht**2 * mu**2 * s2t**2 * (f3 + 2d0*dmuf3 +
5820  $ osdr*(df3 + 2d0*ddmuf3))
5821  s12 = .5d0 * ht**2 * mu * s2t**2 * osdr*ddatf3 +
5822  $ ht**2 * mt * mu * s2t * (f2 + dmuf2 +
5823  $ osdr*(df2 + ddmuf2))
5824  s22 = 2d0 * ht**2 * mt**2 * (f1 + osdr*df1) +
5825  $ 2d0 * ht**2 * mt * s2t * osdr*ddatf2
5826 
5827  endif
5828 
5829  s11 = k*s11
5830  s12 = k*(s12 + dm12)
5831  s22 = k*(s22 + dm22)
5832 
5833  sw = s11 ! swap H1 <-> H2 !!!
5834  s11 = s22
5835  s22 = sw
5836 
5837  return
5838  end
5839 
5840 *
5841 ***********************************************************************
5842 *
5843 
5844  subroutine taufuncs(t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu,F1,F2,F3)
5845 
5846  implicit none
5847  double precision t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu,F1,F2,F3
5848  double precision tauF1ab,tauF1c,tauF2ab,tauF2c,tauF3ab,tauF3c
5849 
5850  f1 = tauf1ab(t,a0,bl,t1,t2,s2t,c2t,cb,sb,q,mu)
5851  $ + tauf1c(t,a0,bl,t1,t2,s2t,c2t,cb,sb,q,mu)
5852  $ + tauf1c(t,a0,bl,t2,t1,-s2t,-c2t,cb,sb,q,mu)
5853 
5854  f2 = tauf2ab(t,a0,bl,t1,t2,s2t,c2t,cb,sb,q,mu)
5855  $ + tauf2c(t,a0,bl,t1,t2,s2t,c2t,cb,sb,q,mu)
5856  $ - tauf2c(t,a0,bl,t2,t1,-s2t,-c2t,cb,sb,q,mu)
5857 
5858  f3 = tauf3ab(t,a0,bl,t1,t2,s2t,c2t,cb,sb,q,mu)
5859  $ + tauf3c(t,a0,bl,t1,t2,s2t,c2t,cb,sb,q,mu)
5860  $ + tauf3c(t,a0,bl,t2,t1,-s2t,-c2t,cb,sb,q,mu)
5861 
5862  return
5863  end
5864 
5865 *
5866 *********************************************************************
5867 *
5868 
5869  function tauf1ab(t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu)
5870 
5871  implicit none
5872  double precision t,mu2,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu
5873  double precision delt,pLi2,phi
5874  double precision tauF1ab
5875  double precision, parameter :: Nc = 1d0 ! color factor !!!
5876  double precision, parameter :: Pi = 3.1415926535897932d0
5877 
5878  mu2 = mu**2
5879  if (mu2.eq.0d0) then
5880  mu2 = 1d-10
5881  endif
5882 
5883  tauf1ab =
5884  $ (2.*bl*mu2/t*(mu2-bl+t)/delt(bl,mu2,t)
5885  $ +(bl+mu2-t)/t)*phi(bl,mu2,t)
5886  $ +2.*a0*cb**2*(a0-6.*t)/(a0-4.*t)/t*phi(a0,t,t)
5887  $ -2.*cb**2*pli2(1.-a0/t)
5888  $ -2. -(2.+sb**2)/3.*pi**2
5889  $ + log(t/q)*(
5890  $ (4.*(bl-mu2-10.*t)*t+a0*
5891  $ (mu2-bl+(6.+4.*sb**2)*t))/(a0-4.*t)/t
5892  $ +1./delt(bl,mu2,t)*((bl-mu2)**3.0d0/t
5893  $ +(2.*mu2**2+2.*bl*mu2+5.*bl*t+mu2*t-4.*bl**2-2.*t**2)))
5894  $ +log(a0/q)*(4.*a0*cb**2/(a0-4.*t))
5895  $ +log(bl/q)*(-bl/t+bl*(-bl+mu2+t)**2/t/delt(bl,mu2,t))
5896  $ +log(mu2/q)*(mu2/t+mu2*(t**2-(bl-mu2)**2)/t/delt(bl,mu2,t))
5897  $ +nc*(log(t/q)**2-log(t1/q)**2/2.-log(t2/q)**2/2.)
5898  $ +log(bl/q)*log(mu2/q)-log(bl/q)*log(t/q)-log(mu2/q)*log(t/q)
5899  $ -3.*log(t/q)**2-2.*log(t1/q)**2-2.*log(t2/q)**2
5900 
5901  return
5902  end
5903 
5904 *
5905 *********************************************************************
5906 *
5907 
5908  function tauf1c(t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu)
5909 
5910  implicit none
5911  double precision t,mu2,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu
5912  double precision delt,pLi2,phi,Xt,Yt,st2,ct2
5913  double precision tauF1c
5914  double precision, parameter :: Nc = 1d0 ! color factor !!!
5915  double precision, parameter :: Pi = 3.1415926535897932d0
5916 
5917  mu2 = mu**2
5918  if (mu2.eq.0d0) then
5919  mu2 = 1d-10
5920  endif
5921 
5922  xt = s2t*(t1-t2)/2d0/sqrt(t)
5923  yt = s2t*(t1-t2)/2d0/sqrt(t) - mu/sb/cb
5924  ct2 = (1d0+c2t)/2d0
5925  st2 = (1d0-c2t)/2d0
5926 
5927  tauf1c =
5928  $ 2.*mu2**2*(mu2+t-t1)/t1/delt(t1,mu2,t)*phi(mu2,t,t1)
5929  $ -a0**2*(1+c2t**2)*cb**2*yt**2
5930  $ /2./t2/delt(a0,t1,t2)*phi(a0,t1,t2)
5931  $ -cb**2*a0/t1*((2.*sqrt(t)+s2t*yt)/sqrt(t)
5932  $ +(2.*sqrt(t)+s2t*yt)**2/2./(a0-4.*t1))*phi(a0,t1,t1)
5933  $ -cb**2/t1*phi(a0,bl,t1)*(
5934  $ 2.*a0*bl*(ct2*t+s2t*yt*sqrt(t)+st2*yt**2)/delt(a0,t1,bl)
5935  $ +(a0+bl-t1)*((1.+c2t)*sqrt(t)+s2t*yt)/2./sqrt(t))
5936  $ +sb**2*(1+c2t+s2t*xt/sqrt(t))*pli2(1-bl/t1)
5937  $ +(1-c2t)*pli2(1-mu2/t1)
5938  $ +s2t**2*(t1-t2)**2/4./t1/t2*nc
5939  $ +(1./3.+s2t*(sb**2*(xt-yt)+yt)/4./sqrt(t))*pi**2
5940  $ -3.*s2t*(sb**2*xt+cb**2*yt)*(2.*t-t1)/2./sqrt(t)/t1
5941  $ -(sb**2*xt**2+cb**2*yt**2)/4./t1/t2*
5942  $ ((1.+c2t**2)*t1+(5.-2.*c2t-c2t**2)*t2)
5943  $ +(3.-c2t)*mu2/t1-(3.-c2t)*cb**2*a0/2./t1
5944  $ -(1.+c2t)*t/2./t1-(1.-c2t)*bl/2./t1
5945  $ -(1.+c2t**2)*(t1**2+t2**2)/4./t1/t2
5946  $ +5./2.+c2t/2.-s2t**2/2.
5947  $ +log(t/q)*(1.+mu2/t-t/t1-t1/t
5948  $ +(-(mu2-t1)**3.0d0/t + 4.*mu2**2 + 5.*mu2*t + 2.*t**2
5949  $ +mu2**2*t/t1-t**3.0d0/t1-2.*mu2*t1-2.*t1**2)/delt(t1,mu2,t))
5950  $ +log(mu2/q)*(mu2*((-2.+c2t)*t+t1)/t/t1
5951  $ -mu2*((t1-t)**3.0d0+2.*mu2*(t-t1)*t1+mu2**2*(t+t1))
5952  $ /t/t1/delt(mu2,t,t1))
5953  $ +log(bl/q)*((1-c2t)/2.*bl/t1
5954  $ -cb**2*bl*(a0-bl+t1)/t1/delt(a0,t1,bl)*
5955  $ (ct2*t+s2t*yt*sqrt(t)+st2*yt**2)
5956  $ +sb**2*bl*(ct2*t+s2t*xt*sqrt(t)+st2*xt**2)/(bl-t1)/t1)
5957  $ +log(a0/q)*((3.-c2t)*a0*cb**2/2./t1
5958  $ +a0*cb**2*(2.*sqrt(t)+s2t*yt)**2/2./(a0-4.*t1)/t1
5959  $ +a0*(1+c2t**2)*cb**2*(a0*(t1+t2)-(t1-t2)**2)*yt**2
5960  $ /4./t1/t2/delt(a0,t1,t2)
5961  $ +a0*cb**2*(a0-bl-t1)/t1/delt(a0,bl,t1)*
5962  $ (ct2*t+s2t*yt*sqrt(t)+st2*yt**2))
5963  $ +log(t2/q)*((1+c2t**2)*t2/4./t1-nc*s2t**2*t2/4./t1
5964  $ -cb**2*(1+c2t**2)*yt**2/4./t2
5965  $ +sb**2*(1+c2t**2)*xt**2/4./t1
5966  $ +cb**2*(1+c2t**2)*yt**2/4./t1/t2/delt(a0,t1,t2)*
5967  $ (a0**2*t1-a0*(2.*t1**2+5*t1*t2+t2**2)+(t1-t2)**2*(t1+t2)))
5968  $ +log(t1/q)*(cb**2*(ct2*t+s2t*yt*sqrt(t)+st2*yt**2)*
5969  $ (1./t1-(a0+bl-t1)/delt(a0,t1,bl))
5970  $ +cb**2*(1+c2t**2)*yt**2/4./t1/t2/delt(a0,t1,t2)*
5971  $ (a0**2*t2-a0*(t1**2+5*t1*t2+2.*t2**2)+(t1-t2)**2*(t1+t2))
5972  $ +1./delt(t1,mu2,t)*((mu2-t1)**2*t1/t-(mu2-t)**2*(mu2+t)/t1
5973  $ +6.*mu2**2+4.*mu2*t+2.*t**2-3.*mu2*t1-2.*t1**2)
5974  $ +cb**2*(a0-8.*t1)/2./t1/(a0-4.*t1)*(2*sqrt(t)+s2t*yt)**2
5975  $ +sb**2*(bl-2.*t1)/t1/(bl-t1)*
5976  $ (ct2*t+s2t*xt*sqrt(t)+st2*xt**2)
5977  $ -(1-c2t)*(mu2-2.*t1)/2./t1-s2t**2*nc*(t1-2.*t2)/4./t2
5978  $ +sb**2*c2t*(1-c2t)*xt**2/2./t1
5979  $ +sb**2*(1+c2t**2)*xt**2/4./t2
5980  $ +sb**2*s2t*(t-3.*t1)/sqrt(t)/t1*xt
5981  $ -3.*cb**2*s2t*(t+t1)/sqrt(t)/t1*yt
5982  $ -cb**2*(5.-2.*c2t-c2t**2)*yt**2/4./t1
5983  $ -(3.+c2t-8.*sb**2)*t/2./t1
5984  $ +(3.-c2t)/2./t1*mu2+(1+c2t**2)*t1/4./t2
5985  $ -t1/t+(-14+c2t-c2t**2)/2.)
5986  $ +(nc+1.)*s2t**2/4.*
5987  $ (3.*log(t1/q)**2-2.*log(t1/q)*log(t2/q)-log(t2/q)**2)
5988  $ +s2t*(6.*sb**2*xt+5*cb**2*yt)/2./sqrt(t)*log(t1/q)**2
5989  $ +(9.+sb**2-cb**2*c2t)/2.*log(t1/q)**2
5990  $ +log(t1/q)*log(t2/q)-2.*log(t/q)*log(t1/q)
5991  $ +cb**2*(1.+c2t+s2t*yt/sqrt(t))/2.*(log(a0/q)*log(t1/q)
5992  $ +log(bl/q)*log(t1/q)-log(a0/q)*log(bl/q))
5993 
5994  return
5995  end
5996 
5997 *
5998 *********************************************************************
5999 *
6000 
6001  function tauf2ab(t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu)
6002 
6003  implicit none
6004  double precision t,mu2,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu
6005  double precision delt,pLi2,phi
6006  double precision tauF2ab
6007  double precision, parameter :: Nc = 1d0 ! color factor !!!
6008  double precision, parameter :: Pi = 3.1415926535897932d0
6009 
6010  tauf2ab = -(3.+nc)/2.*(log(t1/q)**2-log(t2/q)**2)
6011 
6012  return
6013  end
6014 
6015 *
6016 *********************************************************************
6017 *
6018 
6019  function tauf2c(t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu)
6020 
6021  implicit none
6022  double precision t,mu2,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu
6023  double precision delt,pLi2,phi,ct2,st2,Xt,Yt,At
6024  double precision tauF2c
6025  double precision, parameter :: Nc = 1d0 ! color factor !!!
6026  double precision, parameter :: Pi = 3.1415926535897932d0
6027 
6028  mu2 = mu**2
6029  if (mu2.eq.0d0) then
6030  mu2 = 1d-10
6031  endif
6032 
6033  xt = s2t*(t1-t2)/2d0/sqrt(t)
6034  yt = xt - mu/cb/sb
6035  at = sb**2*xt+cb**2*yt
6036 
6037  ct2 = (1d0+c2t)/2d0
6038  st2 = (1d0-c2t)/2d0
6039 
6040  tauf2c = 4*mu2**2*t/t1/delt(mu2,t,t1)*phi(mu2,t,t1)
6041  $ +(a0*c2t**2*yt**2/(t1-t2)/t2
6042  $ +(1+c2t**2)/2.*(t1/t2-1)*yt**2*a0/delt(a0,t1,t2))
6043  $ *cb**2*phi(a0,t1,t2)
6044  $ -(2*a0*c2t**2*sqrt(t)*yt/s2t/t1/(t1-t2)
6045  $ +s2t*(a0*yt/2./sqrt(t)/t1+yt*a0*(a0-4*t1)/2./sqrt(t)/t1/(t1
6046  $ -t2))+ a0*(2*sqrt(t)+s2t*yt)**2/2./t1/(a0-4*t1)+ a0/t1+a0*c2t
6047  $ **2*yt**2/t1/(t1-t2))*cb**2*phi(a0,t1,t1)-(2*a0*bl/t1*(ct2*t
6048  $ +s2t*sqrt(t)*yt+st2*yt**2)/delt(a0,bl,t1)+c2t**2*(a0+bl-t1)
6049  $ *yt*sqrt(t)/s2t/t1/(t1-t2)+s2t*((a0+bl-t1)*yt/4./sqrt(t)/t1
6050  $ +delt(a0,bl,t1)*yt/2./sqrt(t)/t1/(t1-t2))+ct2*(a0+bl-t1)/2.
6051  $ /t1+c2t*yt**2*(a0+bl-t1)/2./t1/(t1-t2)+c2t*delt(a0,bl,t1)/2.
6052  $ /t1/(t1-t2)-c2t*t*(a0+bl-t1)/2./t1/(t1-t2))*cb**2*phi(a0,bl
6053  $ ,t1)+(s2t*(bl-t1)*xt/sqrt(t)/(t1-t2)+s2t*xt/2./sqrt(t)+ct2
6054  $ -c2t*(t+t1-bl)/(t1-t2)+c2t*xt*(2*c2t*sqrt(t)+s2t*xt)/s2t/(t1
6055  $ -t2))*sb**2*pli2(1-bl/t1)+(1-c2t-2*c2t*(mu2-t1)/(t1-t2))
6056  $ *pli2(1-mu2/t1)-21*s2t*t1*at/2./(t1-t2)/sqrt(t)+c2t*t1/2./(t1
6057  $ -t2)+3*s2t*at/4./sqrt(t)-3*s2t*sqrt(t)*at/t1+c2t*(2*bl+2*a0
6058  $ *cb**2-4*mu2-2*t+t1+2*(sb**2*xt**2+cb**2*yt**2))/4./t1+(-5
6059  $ +c2t**2)/4./t1*(sb**2*xt**2+cb**2*yt**2)-(2*bl+6*a0*cb**2-12
6060  $ *mu2+2*t+(1+c2t**2-nc*s2t**2)*t2)/4./t1+((1+c2t**2-nc*s2t**2)
6061  $ *t1+(1+c2t**2)*(sb**2*xt**2+cb**2*yt**2))/4./t2-t/t1*log(t/q)
6062  $ +(2*mu2*(t-t1)*t1+mu2**2*(t+t1)-(t-t1)**3.0d0)/t1/delt(t1,mu2
6063  $ ,t)*log(t*t1/q**2)-log(mu2/q)*(2-c2t)*mu2/t1+mu2*((t-t1)**2
6064  $ -mu2**2)/t1/delt(t1,mu2,t)*log(mu2*t1/q**2)+log(bl/q)*(st2*bl
6065  $ /t1+sb**2*bl/t1/(bl-t1)*(ct2*t+s2t*sqrt(t)*xt+st2*xt**2))-cb
6066  $ **2*bl*(a0-bl+t1)*(ct2*t+s2t*sqrt(t)*yt+st2*yt**2)/t1/delt(a0
6067  $ ,t1,bl)*log(bl*t1/q**2)+log(a0/q)*((3-c2t)*cb**2*a0/2./t1+a0
6068  $ *cb**2*(2*sqrt(t)+s2t*yt)**2/2./(a0-4*t1)/t1)-cb**2*a0*(1+c2t
6069  $ **2)*(a0-t1-t2)*(t1-t2)*yt**2/4./t1/t2/delt(a0,t1,t2)*log(a0
6070  $ *t1/q**2)+cb**2*a0*(a0-bl-t1)*(ct2*t+s2t*sqrt(t)*yt+st2*yt**2
6071  $ )/t1/delt(a0,t1,bl)*log(a0*t1/q**2)+log(t2/q)*(c2t**2*(1+nc)
6072  $ *(t1+t2)/(t1-t2)+c2t**2*(sb**2*xt**2+cb**2*yt**2)/(t1-t2)-(1
6073  $ +c2t**2)*sb**2*(t1-t2)*xt**2/4./t1/t2+(1+c2t**2-s2t**2*nc)*t2
6074  $ /4./t1+(1+c2t**2)*(sb**2*xt**2+cb**2*yt**2)/4./t2)-(1+c2t**2)
6075  $ *cb**2*yt**2*(a0**2*t1+(t1-t2)**3.0d0-a0*(2*t1**2+3*t1*t2-t2
6076  $ **2))/4./t1/t2/delt(a0,t1,t2)*log(t2*t1/q**2)+log(t1/q)*(4
6077  $ *mu2*(mu2+t-t1)/delt(t1,mu2,t)+2*(1+c2t**2)*cb**2*yt**2*a0
6078  $ *(a0-t1-3*t2)/4./t2/delt(a0,t1,t2)-2*cb**2*(a0+bl-t1)*(ct2*t
6079  $ +s2t*sqrt(t)*yt+st2*yt**2)/delt(a0,t1,bl)+cb**2*(2*sqrt(t)
6080  $ +s2t*yt)**2/2./t1-2*cb**2*(2*sqrt(t)+s2t*yt)**2/(a0-4*t1)+sb
6081  $ **2*(ct2*t+s2t*sqrt(t)*xt+st2*xt**2)/t1-sb**2*(ct2*t+s2t
6082  $ *sqrt(t)*xt+st2*xt**2)/(bl-t1)-st2*mu2/t1+1-c2t-6*c2t**2
6083  $ *sqrt(t)*at/s2t/(t1-t2)+9*s2t*t1*at/sqrt(t)/(t1-t2)-c2t*(1
6084  $ +c2t)*(sb**2*xt**2+cb**2*yt**2)/(t1-t2) -(1+c2t**2)*sb**2*(t1
6085  $ -t2)*xt**2/4./t1/t2-c2t*(bl+a0*cb**2-2*mu2-t+(1+3*c2t*(1+nc))
6086  $ *t1-c2t*(1+nc)*t2)/(t1-t2)-3*s2t*at/2./sqrt(t)+s2t*sqrt(t)
6087  $ *(sb**2*xt-3*cb**2*yt)/t1-(3-2*c2t+c2t**2)/4./t1*(sb**2*xt**2
6088  $ +cb**2*yt**2)+s2t**2/2./t1*(sb**2*xt**2-cb**2*yt**2)-6+c2t
6089  $ +(nc+1)*s2t**2/2.+((3-c2t)*mu2-(c2t+8*cb**2-5)*t)/2./t1-(2
6090  $ *c2t**2+(1-nc)*s2t**2)*t1/4./t2)+log(t2/q)**2*(3*c2t**2
6091  $ *sqrt(t)*at/2./s2t/(t1-t2)+c2t*(1-2*c2t)*(sb**2*xt**2+cb**2
6092  $ *yt**2)/4./(t1-t2)+3/8.+c2t*(2*bl+2*a0*cb**2-4*mu2-2*t+(1-2
6093  $ *c2t*(1+nc))*t1+(1-6*c2t*(1+nc))*t2)/8./(t1-t2))+log(t1/q)**2
6094  $ *(3*s2t/2./sqrt(t)*at+s2t*cb**2*a0*yt/(t1-t2)/sqrt(t)+s2t*(bl
6095  $ -6*t1)*at/2./(t1-t2)/sqrt(t)+9*c2t**2*sqrt(t)/2./s2t*at/(t1
6096  $ -t2)+3*c2t*(1+2*c2t)*(sb**2*xt**2+cb**2*yt**2)/4./(t1-t2)+c2t
6097  $ *(6*bl+6*a0*cb**2-12*mu2-6*t+(7+26*c2t*(1+nc))*t1-(1+2*c2t*(1
6098  $ +nc))*t2)/8./(t1-t2)+25/8.-c2t/2.+s2t**2*(1+nc))-(s2t*(2*a0+2
6099  $ *bl-t1-t2)*yt/4./sqrt(t)/(t1-t2)+(1+c2t)/4.+c2t**2*sqrt(t)*yt
6100  $ /s2t/(t1-t2)+c2t*(a0+bl-t-t1+yt**2)/2./(t1-t2))*cb**2*log(a0
6101  $ /t1)*log(bl/t1)-cb**2*s2t*2*a0*yt/(t1-t2)/sqrt(t)*log(a0/q)
6102  $ *log(t1/q)-s2t*bl*at/(t1-t2)/sqrt(t)*log(bl/q)*log(t1/q)-(c2t
6103  $ **2*(1+nc)*(t1+t2)/(t1-t2)+c2t**2*(sb**2*xt**2+cb**2*yt**2)
6104  $ /(t1-t2))*log(t1/q)*log(t2/q)
6105 
6106 
6107  return
6108  end
6109 
6110 *
6111 *********************************************************************
6112 *
6113 
6114  function tauf3ab(t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu)
6115 
6116  implicit none
6117  double precision t,mu2,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu
6118  double precision delt,pLi2,phi
6119  double precision tauF3ab
6120  double precision, parameter :: Nc = 1d0 ! color factor !!!
6121  double precision, parameter :: Pi = 3.1415926535897932d0
6122 
6123  tauf3ab = (2.+nc)/2.*(2.-log(t1/q)-log(t2/q))
6124  $ *(2.-(t1+t2)/(t1-t2)*log(t1/t2))
6125 
6126  return
6127  end
6128 
6129 *
6130 *********************************************************************
6131 *
6132 
6133  function tauf3c(t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu)
6134 
6135  implicit none
6136  double precision t,mu2,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu
6137  double precision delt,pLi2,phi,ct2,st2,Xt,Yt,At
6138  double precision tauF3c
6139  double precision, parameter :: Nc = 1d0 ! color factor !!!
6140  double precision, parameter :: Pi = 3.1415926535897932d0
6141 
6142  mu2 = mu**2
6143  if (mu2.eq.0d0) then
6144  mu2 = 1d-10
6145  endif
6146 
6147  xt = s2t*(t1-t2)/2d0/sqrt(t)
6148  yt = xt - mu/cb/sb
6149  at = sb**2*xt+cb**2*yt
6150 
6151  ct2 = (1d0+c2t)/2d0
6152  st2 = (1d0-c2t)/2d0
6153 
6154  tauf3c =
6155  $ (2*mu2*t*(mu2+t-t1)/t1/delt(t1,mu2,t)
6156  $ -(4*mu2*t+2*delt(t1,mu2,t))/t1/(t1-t2)
6157  $ -(mu2+t-t1)/t1)*phi(mu2,t,t1)
6158  $ +(a0*(1+c2t**2)*(a0-2*(t1+t2))*yt**2/2./t2/delt(a0,t1,t2)
6159  $ +4*a0*c2t**2*(a0-2*(t1+t2))*yt**2/t2/(t1-t2)**2
6160  $ -(1-3*c2t**2)*yt**2/2./t2)*cb**2*phi(a0,t1,t2)
6161  $ +(-a0*(2*sqrt(t)+s2t*yt)**2/2./t1/(a0-4*t1)
6162  $ +a0*(2*sqrt(t)+s2t*yt)**2/2./t1/(t1-t2)
6163  $ -2*a0*c2t**2*yt**2*(2*a0-7*t1-t2)/t1/(t1-t2)**2
6164  $ +2*a0*(1-3*c2t**2)*sqrt(t)*(a0-4*t1)*yt/s2t/t1/(t1-t2)**2
6165  $ -4*a0*c2t**2*sqrt(t)*yt/s2t/t1/(t1-t2))*cb**2*phi(a0,t1,t1)
6166  $ +(-2*a0*bl*(ct2*t+s2t*sqrt(t)*yt+st2*yt**2)/t1/delt(a0,t1,bl)
6167  $ +2*(1-3*c2t**2)*sqrt(t)*yt*delt(a0,t1,bl)/s2t/t1/(t1-t2)**2
6168  $ -2*c2t**2*sqrt(t)*yt*(a0+bl-t1)/s2t/t1/(t1-t2)
6169  $ +3*c2t*delt(a0,t1,bl)*(t-yt**2)/t1/(t1-t2)**2
6170  $ +(a0+bl-t1)*(c2t*(t-yt**2)+(ct2*t+s2t*sqrt(t)*yt+st2*yt**2))
6171  $ /t1/(t1-t2))*cb**2*phi(a0,bl,t1)
6172  $ -(1-3*c2t**2)*sb**2*xt**2/(t1-t2)*pli2(1-t2/t1)
6173  $ +(1-c2t+2*(1-3*c2t)*(mu2-t1)/(t1-t2)
6174  $ -6*c2t*(mu2-t1)**2/(t1-t2)**2)*pli2(1-mu2/t1)
6175  $ +(-4*(1-3*c2t**2)*sb**2*sqrt(t)*(bl-t1)*xt/s2t/(t1-t2)**2
6176  $ +4*c2t**2*sb**2*sqrt(t)*xt/s2t/(t1-t2)
6177  $ -2*sb**2*(ct2*t+s2t*sqrt(t)*xt+st2*xt**2)/(t1-t2)
6178  $ -2*sb**2*c2t*(3*bl-2*t1-t2)*(t-xt**2)/(t1-t2)**2)*pli2(1-bl
6179  $ /t1)+2*sqrt(t)*at*(3*(7-18*c2t**2)*t1-9*c2t**2*t2)/s2t/(t1-t2
6180  $ )**2-3*s2t*sqrt(t)*at*(4*t1-t2)/t1/(t1-t2)+2*c2t*at**2/(t1-t2
6181  $ )-21*c2t*t1*(sb**2*xt**2+cb**2*yt**2)/(t1-t2)**2+5*c2t/2./(t1
6182  $ -t2)*(sb**2*xt**2+cb**2*yt**2)-(6-2*c2t)/4./t1*(sb**2*xt**2
6183  $ +cb**2*yt**2)+3*mu2/t1+c2t*mu2*(t1+t2)/t1/(t1-t2)+18*c2t*mu2
6184  $ *t1/(t1-t2)**2+3*cb**2*a0*c2t/(t1-t2)-cb**2*a0*(3-c2t)/2./t1
6185  $ -12*(cb**2*a0+bl)*t1*c2t/(t1-t2)**2+3*c2t*bl/(t1-t2)-(1-c2t)
6186  $ *bl/2./t1+15*c2t*t1*t/(t1-t2)**2-3*c2t*t/2./(t1-t2)-(1+c2t)*t
6187  $ /2./t1-s2t**2/2.*(1+nc)-c2t**2*(1+nc)*(t1-t2)**2/4./t1/t2-9
6188  $ *(1+nc)*t1*c2t**2/(t1-t2)-3*t1*(2*t1+3*t2)/(t1-t2)**2*c2t-(1
6189  $ -nc)*(t1-t2)**2/4./t1/t2-(28+6*nc)*t1/2./(t1-t2)+log(t/q)*(-t
6190  $ /t1)-log(t*t1/q**2)*t*((t-t1)**2-mu2**2)/t1/delt(t1,mu2,t)
6191  $ +log(mu2/q)*(-6*mu2*(3*mu2-t2)*c2t/(t1-t2)**2-(2-c2t)*mu2/t1)
6192  $ -log(mu2*t1/q**2)*mu2*(t1**2+mu2**2-t**2-2*mu2*t1)/t1/delt(t1
6193  $ ,mu2,t)+log(bl/q)*(12*bl*c2t*t1/(t1-t2)**2+sb**2*bl*(ct2*t
6194  $ +s2t*sqrt(t)*xt+st2*xt**2)/t1/(bl-t1)+(1-c2t)*bl/2./t1-3*c2t
6195  $ *bl/(t1-t2))-log(bl*t1/q**2)*cb**2*bl*(a0-bl+t1)/t1/delt(a0
6196  $ ,t1,bl)*(ct2*t+s2t*sqrt(t)*yt+st2*yt**2)+log(a0/q)*a0*cb**2
6197  $ *((2*sqrt(t)+s2t*yt)**2/2./(a0-4*t1)/t1+12*c2t*t1/(t1-t2)**2
6198  $ +(3-c2t)/2./t1-3*c2t/(t1-t2))-log(a0*t1/q**2)*a0*cb**2*(yt**2
6199  $ *(1+c2t**2)/4./t1/t2/delt(a0,t1,t2)*((t1+t2)**2-a0*(t1+t2)+4
6200  $ *t1*t2)-(a0-bl-t1)/t1/delt(a0,t1,bl)*(ct2*t+s2t*sqrt(t)*yt
6201  $ +st2*yt**2))+log(t2/q)*(12*c2t**2*t2*sqrt(t)*at/s2t/(t1-t2)
6202  $ **2-6*s2t*sqrt(t)*t2*at/(t1-t2)**2-3*(1-c2t)*cb**2*a0*t2/(t1
6203  $ -t2)**2-(1-3*c2t)*t2*bl/(t1-t2)**2+6*(1-c2t)*t2*mu2/(t1-t2)
6204  $ **2-(1+3*c2t)*t2*t/(t1-t2)**2+(sb**2*xt**2+cb**2*yt**2)*(-(2
6205  $ -3*c2t+23*c2t**2)*t2/(t1-t2)**2-(1+5*c2t**2)/2./(t1-t2)-(1
6206  $ +c2t**2)/4./t2)+(1+c2t**2)*sb**2*xt**2*(t1**2-4*t1*t2-t2**2)
6207  $ /4./t1/t2/(t1-t2)-(1+nc)*c2t**2/4./(t1-t2)**2*(9*t1**2+32*t1
6208  $ *t2+19*t2**2)-(1+nc)*(t1-t2)/4./t1*c2t**2+t2*(2*t1+t2)/(t1-t2
6209  $ )**2*c2t-t2*((7+3*nc)*t1+(1-nc)*t2)/2./(t1-t2)**2-((1-nc)*t1
6210  $ -(3-nc)*t2)/2./(t1-t2)+(1-nc)*t2/4./t1)+log(t2*t1/q**2)*(1
6211  $ +c2t**2)*cb**2*yt**2/4./t1/t2/delt(a0,t1,t2)*(a0**2*t1+(t1-t2
6212  $ )**3.0d0-2*t2*(t1**2-t2**2)-a0*(2*t1**2+t1*t2+t2**2))+log(t1
6213  $ /q)*(2*(mu2+t-t1)**2/delt(t1,mu2,t)-cb**2*(1+c2t**2)*yt**2/2.
6214  $ /t2/delt(a0,t1,t2)*(a0**2-4*t2*(t1-t2)-a0*(t1+3*t2))-2*cb**2
6215  $ *(a0+bl-t1)*(ct2*t+s2t*sqrt(t)*yt+st2*yt**2)/delt(a0,t1,bl)
6216  $ +cb**2*(2*sqrt(t)+s2t*yt)**2/2./t1-2*cb**2*(2*sqrt(t)+s2t*yt)
6217  $ **2/(a0-4*t1)+sb**2*(ct2*t+s2t*sqrt(t)*xt+st2*xt**2)/t1-sb**2
6218  $ *(ct2*t+s2t*sqrt(t)*xt+st2*xt**2)/(bl-t1)-(1-c2t)/2.*mu2/t1+1
6219  $ -c2t+12*sqrt(t)*at*((-3+7*c2t**2)*t1+c2t**2*t2)/s2t/(t1-t2)
6220  $ **2+6*sqrt(t)*(2*t1-t2)*s2t*at/(t1-t2)**2+sb**2*s2t**2*xt**2
6221  $ /t1+s2t*sqrt(t)/t1*(sb**2*xt-3*cb**2*yt)+(1+c2t**2)*sb**2*xt
6222  $ **2*(t1**2+4*t1*t2-t2**2)/4./t1/t2/(t1-t2)+(sb**2*xt**2+cb**2
6223  $ *yt**2)*((2+15*c2t+23*c2t**2)*t1/(t1-t2)**2+(5-6*c2t-5*c2t**2
6224  $ )/2./(t1-t2)-(5-2*c2t-c2t**2)/4./t1)+3*a0*cb**2*(2*(1+c2t)*t1
6225  $ -(1-c2t)*t2)/(t1-t2)**2+bl*(2*(1+3*c2t)*t1-(1-3*c2t)*t2)/(t1
6226  $ -t2)**2+t*(2*(1-6*c2t)*t1-(1+3*c2t)*t2)/(t1-t2)**2+(5-c2t-8
6227  $ *cb**2)*t/2./t1+(3-c2t)*mu2/2./t1-2*(3+12*c2t)*mu2*t1/(t1-t2)
6228  $ **2-6*(1-c2t)*mu2/(t1-t2)-9/2.+s2t**2/2.*(1+nc)+3*c2t/2.+c2t
6229  $ *t1*(4*t1+11*t2)/(t1-t2)**2+(1+nc)*(65*t1**2+4*t1*t2-9*t2**2)
6230  $ *c2t**2/4./(t1-t2)**2+(1+nc)*(t1-t2)*c2t**2/4./t2+(1-nc)*t1/4
6231  $ ./t2+t1*((7+3*nc)*t1+(1-nc)*t2)/2./(t1-t2)**2+(5*(5+nc)*t1+(1
6232  $ -nc)*t2)/2./(t1-t2))+(2*log(mu2/q)**2-log(mu2/t1)**2)*3*c2t
6233  $ *mu2**2/(t1-t2)**2+(2*log(bl/q)**2-log(bl/t1)**2)*(2*bl*(1-3
6234  $ *c2t**2)*sqrt(t)*at/s2t/(t1-t2)**2-bl/2./(t1-t2)-3*bl*c2t*(t1
6235  $ +t2-2*t+2*sb**2*xt**2+2*cb**2*yt**2)/2./(t1-t2)**2)+(2*log(a0
6236  $ /q)**2-log(a0/t1)**2)*cb**2*(4*a0*(1-3*c2t**2)*sqrt(t)*yt/s2t
6237  $ /(t1-t2)**2-3*a0/2./(t1-t2)-3*a0*c2t*(t1+t2-2*t+2*yt**2)/2.
6238  $ /(t1-t2)**2)+log(t/t1)*log(mu2/t1)*(t1+t2-2*t-2*mu2)/(t1-t2)
6239  $ +log(t2/t1)*log(a0/t1)*yt**2*cb**2*(8*a0*c2t**2+(1-3*c2t**2)
6240  $ *(t1-t2))/2./(t1-t2)**2+log(bl/t1)*log(a0/t1)*cb**2*(2*sqrt(t
6241  $ )*yt/(t1-t2)**2/s2t*((a0+bl)*(1-3*c2t**2)-(1-2*c2t**2)*t1+c2t
6242  $ **2*t2)+s2t*sqrt(t)*yt/(t1-t2)+(t+yt**2)/2./(t1-t2)+3*c2t*(2
6243  $ *a0+2*bl-t1-t2)*(t-yt**2)/2./(t1-t2)**2)+log(t1/q)*log(t2/q)
6244  $ *(2*c2t**2*(1+nc)*(t1+t2)**2/(t1-t2)**2+((1+5*c2t**2)*t1-(1
6245  $ -11*c2t**2)*t2)/2./(t1-t2)**2*(sb**2*xt**2+cb**2*yt**2))
6246  $ +log(t1/q)**2*(9*c2t**2*sqrt(t)*at/s2t/(t1-t2)+6*sqrt(t)*t1
6247  $ *(2-5*c2t**2)*at/s2t/(t1-t2)**2-3*sqrt(t)*s2t*(2*t1-t2)*at
6248  $ /(t1-t2)**2-((5+5*c2t+13*c2t**2)*t1-(3-4*c2t-10*c2t**2)*t2)/2
6249  $ ./(t1-t2)**2*(sb**2*xt**2+cb**2*yt**2)+mu2*((6+5*c2t)*t1-(3-4
6250  $ *c2t)*t2)/(t1-t2)**2+9/4.-c2t+5/4.*s2t**2*(1+nc)+c2t*(t-bl-a0
6251  $ *cb**2)*(5*t1+4*t2)/2./(t1-t2)**2-(t+bl+3*a0*cb**2)*(2*t1-t2)
6252  $ /2./(t1-t2)**2+c2t/4.-9*t1*t2*c2t/2./(t1-t2)**2-c2t**2*(1+nc)
6253  $ *(8*t1**2+16*t1*t2-t2**2)/2./(t1-t2)**2-t1*((14+5*nc)*t1-(10
6254  $ +4*nc)*t2)/2./(t1-t2)**2)+log(t2/q)**2*(-3*c2t**2*sqrt(t)*(t1
6255  $ +t2)*at/s2t/(t1-t2)**2+3*s2t*sqrt(t)*t2*at/(t1-t2)**2+(2*t2
6256  $ -c2t*(t1+2*t2)+c2t**2*(2*t1+5*t2))/2./(t1-t2)**2*(sb**2*xt**2
6257  $ +cb**2*yt**2)+t2*(3*cb**2*a0+bl-6*mu2+t)/2./(t1-t2)**2-c2t
6258  $ *(cb**2*a0+bl-mu2-t)*(t1+2*t2)/2./(t1-t2)**2+c2t*mu2*(t1+2*t2
6259  $ )/2./(t1-t2)**2-3/4.+s2t**2/4.*(1+nc)+c2t**2*((t1+t2)**2+3*t2
6260  $ **2)/2./(t1-t2)**2*(1+nc)-c2t*((t1+t2)**2+2*t1*t2)/4./(t1-t2)
6261  $ **2+t2*(2*(1+nc)*t1+(2-nc)*t2)/2./(t1-t2)**2)
6262 
6263  return
6264  end
6265 
6266 *
6267 *********************************************************************
6268 *
6269 
6270  subroutine tauresfuncs(t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu,F2_s)
6271 
6272  implicit none
6273  double precision t,mu2,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu
6274  double precision delt,pLi2,phi,ct2,st2,Xt,Yt,At
6275  double precision F2_s
6276  double precision, parameter :: Nc = 1d0 ! color factor !!!
6277  double precision, parameter :: Pi = 3.1415926535897932d0
6278 
6279  mu2 = mu**2
6280 
6281  xt = s2t*(t1-t2)/2d0/sqrt(t)
6282  yt = xt - mu/cb/sb
6283  at = sb**2*xt+cb**2*yt
6284 
6285  ct2 = (1d0+c2t)/2d0
6286  st2 = (1d0-c2t)/2d0
6287 
6288  f2_s =
6289  $ 2*c2t**2*sb**2*sqrt(t)*xt/(t1-t2)*pli2(1-bl/t1)
6290  $ -2*c2t**2*sb**2*sqrt(t)*xt/(t1-t2)*pli2(1-bl/t2)
6291  $ -c2t**2*cb**2*sqrt(t)*yt/(t1-t2)*log(a0/t1)*log(bl/t1)
6292  $ +c2t**2*cb**2*sqrt(t)*yt/(t1-t2)*log(a0/t2)*log(bl/t2)
6293  $ -6*at*c2t**2*sqrt(t)/(t1-t2)*log(t1/t2)
6294  $ +3*c2t**2*at*sqrt(t)/(t1-t2)*log(t1/q)**2
6295  $ -3*c2t**2*at*sqrt(t)/(t1-t2)*log(t2/q)**2
6296  $ -c2t**2*cb**2*yt*sqrt(t)*
6297  $ (a0+bl-t1)/t1/(t1-t2)*phi(a0,bl,t1)
6298  $ +c2t**2*cb**2*yt*sqrt(t)*
6299  $ (a0+bl-t2)/t2/(t1-t2)*phi(a0,bl,t2)
6300  $ -2*a0*c2t**2*cb**2*yt*sqrt(t)
6301  $ /t1/(t1-t2)*phi(a0,t1,t1)
6302  $ +2*a0*c2t**2*cb**2*yt*sqrt(t)
6303  $ /t2/(t1-t2)*phi(a0,t2,t2)
6304 
6305  return
6306  end
6307 
6308 *
6309 *********************************************************************
6310 *
6311 
6312  subroutine tausfuncs(t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu,At,ht,
6313  $ dmuF2,dmuF3,dAtF2,dAtF3,DM12,DM22)
6314 
6315  implicit none
6316  double precision t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu,At,ht
6317  double precision dmuF2,dmuF3,dAtF2,dAtF3,DM12,DM22
6318  double precision, parameter :: Nc = 1d0 ! color factor !!!
6319  double precision, parameter :: Pi = 3.1415926535897932d0
6320 
6321  dmuf2 = -nc/4.*(log(t1/q)**2-log(t2/q)**2)
6322 
6323  dmuf3 = -nc/4.*(log(t1/q)+log(t2/q)-2.)
6324  $ *(2.-(t1+t2)/(t1-t2)*log(t1/t2))
6325 
6326  datf2 = -(3.+nc)/2.*(log(t1/q)**2-log(t2/q)**2)
6327 
6328  datf3 = -(3.+nc)/2.*(log(t1/q)+log(t2/q)-2.)
6329  $ *(2.-(t1+t2)/(t1-t2)*log(t1/t2))
6330 
6331  dm12 = ht**2*nc*s2t*mu*sqrt(t)/4.
6332  $ *(log(t1/q)**2-log(t2/q)**2)
6333  $ +ht**2*nc*s2t**2*mu*at/8.*(log(t1/q)+log(t2/q)-2.)
6334  $ *(2.-(t1+t2)/(t1-t2)*log(t1/t2))
6335 
6336  dm22 = ht**2*nc*t*(log(t1/q)**2+log(t2/q)**2-2.*log(t/q)**2)
6337  $ +ht**2*nc*s2t*at*sqrt(t)*(log(t1/q)**2-log(t2/q)**2)
6338  $ +ht**2*nc*s2t**2*at**2/4.*(log(t1/q)+log(t2/q)-2.)
6339  $ *(2.-(t1+t2)/(t1-t2)*log(t1/t2))
6340 
6341  return
6342  end
6343 
6344 *
6345 ***********************************************************************
6346 *
6347 
6348 
6349  subroutine taudfuncs(t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu,A,v2,
6350  $ DF1,DF2,DF3,DdmuF2,DdmuF3,DdAtF2,DdAtF3)
6351 
6352 c shift of the parameters from DRbar to On-Shell scheme
6353 
6354  implicit none
6355  double precision t,mu2,A0,BL,T1,T2,s2t,c2t,cb,sb,q,A,mu,Xt,Yt
6356  double precision myB0,myAA
6357  double precision DF1,DF2,DF3,DdmuF2,DdmuF3,DdAtF2,DdAtF3
6358  double precision F1o,F2o,F3o,dm1,dm2,dmt,dAt,dth,ds2t,dv2,dv22,dmu
6359  $ ,dcotb
6360  double precision pi12_1,pi12_2
6361  double precision mt,ct2,st2,v2,v22,colorfactor
6362  double precision, parameter :: Nc = 1d0 ! color factor !!!
6363  double precision, parameter :: Pi = 3.1415926535897932d0
6364 
6365  mu2 = mu**2
6366 
6367  xt = a + mu*cb/sb
6368  yt = a - mu*sb/cb
6369 
6370  ct2 = (1d0+c2t)/2d0
6371  st2 = (1d0-c2t)/2d0
6372 
6373  v22 = v2*sb**2
6374 
6375  mt = sqrt(t)
6376 
6377  f1o = log(t1/q) + log(t2/q) - 2d0*log(t/q)
6378  f2o = log(t1/q) - log(t2/q)
6379  f3o = 2d0 - (t1+t2)/(t1-t2)*(log(t1/q) - log(t2/q))
6380 
6381 c counterterms:
6382 
6383  dv2 = v22 *nc/2d0* (2d0 *log(t/q) - 1d0 - bl/t +
6384  $ t1/t * ct2 * (2d0* bl/(bl-t1) * log(bl/t1) - 1d0)+
6385  $ t2/t * st2 * (2d0* bl/(bl-t2) * log(bl/t2) - 1d0))
6386 
6387  dcotb = 0d0 ! beta DRbar
6388  dv22 = v22/v2*dv2
6389 
6390  dmt = sqrt(t)/2d0*((1d0-5d0/2d0*sb**2)*log(t/q)
6391  $ +3d0*cb**2/2d0*a0/t*(1d0-log(a0/q))
6392  $ -3d0/2d0*mu2/t*(1d0-log(mu2/q))
6393  $ +5d0*sb**2-1d0+cb**2/2d0*(1d0-a0/t)*myb0(t,0d0,a0,q)
6394  $ +cb**2*(2d0-a0/t)*myb0(t,t,a0,q)
6395  $ +(t1/t*(1d0-log(t1/q))+(t-t1+mu2)/t*myb0(t,mu2,t1,q)
6396  $ +t2/t*(1d0-log(t2/q))+(t-t2+mu2)/t*myb0(t,mu2,t2,q)
6397  $ +bl/t*(1d0-log(bl/q))+(t-bl+mu2)/t*myb0(t,mu2,bl,q))/2d0)
6398 
6399  dmu = 0d0 ! mu DRbar
6400 
6401  dm1 = ((t1-t-mu2)*myb0(t1,t,mu2,q) - myaa(t,q)
6402  $ + st2*(t1-mu2)*myb0(t1,0d0,mu2,q) - (1d0+st2)*myaa(mu2,q)
6403  $ + cb**2*(1d0+st2)* myaa(a0,q) + st2* myaa(bl,q) +
6404  $ (c2t**2-(nc-1d0)/2d0*s2t**2)*myaa(t2,q)
6405  $ + (nc+1d0)/2d0* s2t**2* myaa(t1,q) + 1d0/2d0*
6406  $ (sb**2* (2d0 *sqrt(t)+ s2t* xt)**2* myb0(t1,t1,0d0,q) +
6407  $ cb**2*(2d0* sqrt(t)+ s2t* yt)**2* myb0(t1,t1,a0,q) +
6408  $ sb**2*(1d0+c2t**2)*xt**2*myb0(t1,t2,0d0,q) +
6409  $ cb**2*(1d0+c2t**2)*yt**2*myb0(t1,t2,a0,q)) +
6410  $ sb**2*(ct2*t+s2t*sqrt(t)*xt+st2*xt**2)*myb0(t1,bl,0d0,q) +
6411  $ cb**2*(ct2*t+s2t*sqrt(t)*yt+st2*yt**2)*myb0(t1,bl,a0,q))
6412 
6413  dm2 = ((t2-t-mu2)*myb0(t2,t,mu2,q) - myaa(t,q)
6414  $ + ct2*(t2-mu2)*myb0(t2,0d0,mu2,q) - (1d0+ct2)*myaa(mu2,q)
6415  $ + cb**2* (1d0+ct2)*myaa(a0,q) + ct2* myaa(bl,q) +
6416  $ (c2t**2 - (nc-1d0)/2d0* s2t**2)*myaa(t1,q)
6417  $ +(nc+1d0)/2d0* s2t**2* myaa(t2,q) + 1d0/2d0*
6418  $ (sb**2* (2d0* sqrt(t)- s2t* xt)**2* myb0(t2,t2,0d0,q) +
6419  $ cb**2*(2d0*sqrt(t)- s2t*yt)**2*myb0(t2,t2,a0,q) +
6420  $ sb**2*(1d0+c2t**2)* xt**2* myb0(t2,t1,0d0,q) +
6421  $ cb**2*(1d0+c2t**2)* yt**2* myb0(t2,t1,a0,q)) +
6422  $ sb**2*(st2*t-s2t*sqrt(t)*xt+ct2*xt**2)*myb0(t2,bl,0d0,q) +
6423  $ cb**2*(st2*t-s2t*sqrt(t)*yt+ct2*yt**2)*myb0(t2,bl,a0,q))
6424 
6425  pi12_1 =1d0/2d0*(s2t*((t1-mu2)*myb0(t1,0d0,mu2,q)-myaa(mu2,q))
6426  $ + s2t* cb**2* myaa(a0,q) + s2t* myaa(bl,q) +
6427  $ (nc+1d0)* c2t* s2t* (myaa(t1,q) - myaa(t2,q)) +
6428  $ sb**2*c2t*xt*(2d0* sqrt(t) + s2t* xt)* myb0(t1,t1,0d0,q) +
6429  $ cb**2*c2t*yt*(2d0* sqrt(t) + s2t* yt)* myb0(t1,t1,a0,q) +
6430  $ sb**2*c2t*xt*(2d0* sqrt(t) - s2t* xt)* myb0(t1,t2,0d0,q) +
6431  $ cb**2*c2t*yt*(2d0* sqrt(t) - s2t* yt)* myb0(t1,t2,a0,q) -
6432  $ sb**2*(s2t*t-2d0*c2t*sqrt(t)*xt-s2t*xt**2)
6433  $ *myb0(t1,bl,0d0,q) -
6434  $ cb**2*(s2t*t-2d0*c2t*sqrt(t)*yt-s2t*yt**2)
6435  $ *myb0(t1,bl,a0,q))
6436 
6437  pi12_2 =1d0/2d0*(s2t*((t2-mu2)*myb0(t2,0d0,mu2,q)-myaa(mu2,q))
6438  $ + s2t* cb**2* myaa(a0,q) + s2t* myaa(bl,q) +
6439  $ (nc+1d0)* c2t* s2t* (myaa(t1,q) - myaa(t2,q)) +
6440  $ sb**2*c2t*xt*(2d0* sqrt(t) + s2t* xt)* myb0(t2,t1,0d0,q) +
6441  $ cb**2*c2t*yt*(2d0* sqrt(t) + s2t* yt)* myb0(t2,t1,a0,q) +
6442  $ sb**2*c2t*xt*(2d0* sqrt(t) - s2t* xt)* myb0(t2,t2,0d0,q) +
6443  $ cb**2*c2t*yt*(2d0* sqrt(t) - s2t* yt)* myb0(t2,t2,a0,q) -
6444  $ sb**2*(s2t*t-2d0*c2t*sqrt(t)*xt-s2t*xt**2)
6445  $ *myb0(t2,bl,0d0,q) -
6446  $ cb**2*(s2t*t-2d0*c2t*sqrt(t)*yt-s2t*yt**2)
6447  $ *myb0(t2,bl,a0,q))
6448 
6449  dth = (pi12_1 + pi12_2)/2d0/(t1-t2)
6450 
6451  ds2t = 2d0*c2t*dth
6452 
6453  dat = ((dm1-dm2)/(t1-t2) + ds2t/s2t - dmt/mt)*xt
6454  $ - mu * dcotb - dmu * cb/sb
6455 
6456  df1 = dm1/t1 + dm2/t2 - 4d0*dmt/mt + (4d0*dmt/mt - dv22/v22)*f1o
6457  df2 = dm1/t1 - dm2/t2 + (3d0*dmt/mt - dv22/v22 + ds2t/s2t)*f2o
6458  df3 = (2d0*t1*t2/(t1-t2)**2*log(t1/t2) - (t1+t2)/(t1-t2))
6459  $ *(dm1/t1-dm2/t2) + (2d0*dmt/mt-dv22/v22+2d0*ds2t/s2t)*f3o
6460 
6461  ddmuf2 = dmu/mu * f2o
6462  ddmuf3 = dmu/mu * f3o
6463 
6464  ddatf2 = dat/a * f2o
6465  ddatf3 = dat/a * f3o
6466 
6467 c residues of some singular functions for s2t=0 and for A=0
6468 
6469  if(s2t.eq.0d0) then
6470  df2 = ds2t*f2o
6471  ddatf2 = ds2t*xt/a
6472  endif
6473 
6474  if(mu.eq.0d0) then
6475  ddmuf2 = dmu * f2o
6476  ddmuf3 = dmu * f3o
6477  endif
6478 
6479  if(a.eq.0d0) then
6480  ddatf2 = dat * f2o
6481  ddatf3 = dat * f3o
6482  endif
6483 
6484  return
6485  end
6486 
6487 
6488 
6489 
6490 
6491 
6492 
6493 
6494 
6495  subroutine tausqodd(t,A0,BL,T1,T2,st,ct,q,mu,tb,v2,DMA)
6496  $ bind(c, name="tausqodd_")
6497 
6498 c Two-loop O(a_tau^2) corrections to the CP-odd Higgs mass in the
6499 c DRbar scheme. Written by P. Slavich (e-mail: slavich@mppmu.mpg.de)
6500 C .
6501 c Based on A. Brignole, G. Degrassi, P. Slavich and F. Zwirner,
6502 c hep-ph/0112177 with appropriate substitutions for top -> tau.
6503 c
6504 c Last update: 19/06/2003.
6505 c
6506 c
6507 c I/O PARAMETERS:
6508 c t = m_tau^2, A0 = m_A^2, BL = m_snu^2, T1 = m_stau1^2, T2 =
6509 C m_stau2^2,
6510 c st = sin(theta_stau), ct = cos(theta_stau), q = Q^2 (ren. scale),
6511 c mu = Higgs mixing parameter, tb = tan(beta), v2 = v^2,
6512 c DMA = 2-loop corrections to the CP-odd Higgs mass.
6513 
6514  implicit none
6515 
6516  double precision ht,k,mt,v2,tb
6517  double precision t,mu2,A0,BL,T1,T2,st,ct,q,A,X,mu,tanb,sb,cb,s2t
6518  $ ,c2t
6519  double precision FA,FA_A,DMA
6520  double precision, parameter :: pi = 3.1415926535897932d0
6521 
6522  tanb = 1d0/tb ! swap H1 <-> H2 !!!
6523 
6524  mt = dsqrt(t)
6525 
6526  s2t = 2d0*ct*st
6527  c2t = ct**2 - st**2
6528 
6529  x = (t1-t2)*s2t/2d0/mt
6530  a = x - mu/tanb
6531 
6532  sb = dsin(datan(tanb))
6533  cb = dcos(datan(tanb))
6534 
6535  ht = dsqrt(2d0/v2)*mt/sb
6536 
6537 c$$$ k = 3d0*ht**2/(16d0*Pi**2)**2
6538  k = ht**2/(16d0*pi**2)**2 ! remove color factor !!!
6539 
6540  call taufuncsodd(t,a0,bl,t1,t2,s2t,c2t,cb,sb,q,mu,fa,fa_a)
6541 
6542  if(dabs(a).gt.1d-10) then
6543 
6544  dma = ht**2*mu*a/(t1-t2)/sb/cb * fa
6545 
6546  else
6547 
6548 c the function FA has poles in A=0.
6549 c when necessary we consider the residues:
6550 
6551  dma = ht**2*mu/(t1-t2)/sb/cb * fa_a
6552 
6553  endif
6554 
6555  dma = k*dma
6556 
6557  return
6558  end
6559 
6560 *
6561 ***********************************************************************
6562 *
6563 
6564  subroutine taufuncsodd(t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu,FA,FA_A)
6565 
6566  implicit none
6567 
6568  double precision t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu
6569  double precision FA,FA_A,tauFAab,tauFAc,tauresFAc
6570 
6571  fa = taufaab(t,a0,bl,t1,t2,s2t,c2t,cb,sb,q,mu)
6572  $ + taufac(t,a0,bl,t1,t2,s2t,c2t,cb,sb,q,mu)
6573  $ - taufac(t,a0,bl,t2,t1,-s2t,-c2t,cb,sb,q,mu)
6574 
6575  fa_a = tauresfac(t,a0,bl,t1,t2,s2t,c2t,cb,sb,q,mu)
6576  $ - tauresfac(t,a0,bl,t2,t1,-s2t,-c2t,cb,sb,q,mu)
6577 
6578  return
6579  end
6580 
6581 *
6582 *********************************************************************
6583 *
6584 
6585  function taufaab(t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu)
6586 
6587  implicit none
6588  double precision t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu
6589  double precision tauFAab
6590  double precision, parameter :: Nc = 1d0 ! color factor !!!
6591  double precision, parameter :: Pi = 3.1415926535897932d0
6592 
6593  taufaab = (5.+2.*nc)*(t1*(1.-log(t1/q)+log(t1/q)**2/2)-
6594  $ t2*(1.-log(t2/q)+log(t2/q)**2/2))
6595 
6596  return
6597  end
6598 
6599 *
6600 *********************************************************************
6601 *
6602 
6603  function taufac(t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu)
6604 
6605  implicit none
6606  double precision t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu
6607  double precision mu2,Xt,Yt,At,st2,ct2
6608  double precision tauFAc,phi,delt,pLi2
6609  double precision, parameter :: Nc = 1d0 ! color factor !!!
6610  double precision, parameter :: Pi = 3.1415926535897932d0
6611 
6612  mu2 = mu**2
6613  if (mu2.eq.0d0) then
6614  mu2 = 1d-10
6615  endif
6616 
6617  xt = s2t*(t1-t2)/2d0/sqrt(t)
6618  yt = xt - mu/cb/sb
6619  at = sb**2*xt+cb**2*yt
6620  if (at.eq.0d0) then
6621  at=1d-10
6622  endif
6623 
6624  ct2 = (1d0+c2t)/2d0
6625  st2 = (1d0-c2t)/2d0
6626 
6627  taufac = -(delt(mu2,t,t1)+2*t*mu2)/t1*phi(mu2,t,t1)
6628  $ +cb**2*yt**2*(a0*c2t**2*(a0-2*(t1+t2))/2/(t1-t2)/t2
6629  $ -s2t**2*(t1-t2)/4/t2)*phi(a0,t1,t2)
6630  $ +cb**2*(-a0*sqrt(t)*yt*(a0-4*t1)
6631  $ *(1./2/at/t1/sqrt(t)-s2t/t1/(t1-t2))
6632  $ -a0*c2t**2*yt**2*(a0-4*t1)/2/t1/(t1-t2)
6633  $ +a0*(2*sqrt(t)+s2t*yt)**2/4/t1)*phi(a0,t1,t1)
6634  $ +cb**2*(-sqrt(t)*yt*delt(a0,bl,t1)*
6635  $ (1./2/at/t1/sqrt(t)-s2t/t1/(t1-t2))
6636  $ +c2t*delt(a0,bl,t1)*(t-yt**2)/2/t1/(t1-t2)
6637  $ +(a0+bl-t1)*(ct2*t+s2t*sqrt(t)*yt+st2*yt**2)/2/t1)*phi(a0,bl
6638  $ ,t1)-s2t**2*sb**2*xt**2/2*pli2(1-t2/t1)+(mu2-t1)*(1-c2t*(1
6639  $ +(mu2-t1)/(t1-t2)))*pli2(1-mu2/t1)+(2*sb**2*sqrt(t)*xt*(bl-t1
6640  $ )*(1./2/at/sqrt(t)-s2t/(t1-t2))-c2t*sb**2*(t-xt**2)*(bl-t1)
6641  $ /(t1-t2)-sb**2*(ct2*t+s2t*sqrt(t)*xt+st2*xt**2))*pli2(1-bl/t1
6642  $ )-21*sqrt(t)*t1*(1./2/sqrt(t)-s2t*at/(t1-t2))-nc*c2t**2*t1-9
6643  $ *s2t*sqrt(t)*at/2+c2t/2*bl-c2t*t1/(t1-t2)*(a0*cb**2+2*bl-2*t
6644  $ -3*mu2+2*sb**2*xt**2+2*cb**2*yt**2)-t1/2-t1*(2*t1+5*t2)/2/(t1
6645  $ -t2)*c2t-t1*c2t**2-(3+nc)*(t1-t2)+mu2*c2t*t2/(t1-t2)*log(mu2
6646  $ /q)+bl*c2t*(3*t1+t2)/2/(t1-t2)*log(bl/q)+a0*cb**2*c2t*(3*t1
6647  $ +t2)/2/(t1-t2)*log(a0/q)+log(t2/q)*(-3*s2t*sqrt(t)*t2*at/(t1
6648  $ -t2)+c2t*t2/2/(t1-t2)*(bl+cb**2*a0-2*mu2-t+t1+sb**2*xt**2+cb
6649  $ **2*yt**2)+((s2t**2-2)*t1+3*(3*s2t**2-4)*t2)/4/(t1-t2)*(sb**2
6650  $ *xt**2+cb**2*yt**2)+nc*(t1+t2)/4/(t1-t2)*(s2t**2*(t1+2*t2)-4
6651  $ *t2)+s2t**2/4/(t1-t2)*(t1**2+3*t1*t2+2*t2**2)-(t1**2-3*t1*t2
6652  $ +9*t2**2)/2/(t1-t2)-(3+nc)*t2-t2*(bl+3*a0*cb**2-6*mu2+t)/2
6653  $ /(t1-t2))+log(t1/q)*(18*sqrt(t)*t1*(1./2/sqrt(t)-s2t*at/(t1
6654  $ -t2))+3*s2t*sqrt(t)*(2*t1-t2)/(t1-t2)*at+((9+8*c2t+9*c2t**2)
6655  $ *t1+(-5+2*c2t+c2t**2)*t2)/4/(t1-t2)*(sb**2*xt**2+cb**2*yt**2)
6656  $ +nc*(4*(3-2*s2t**2)*t1**2+(-4+s2t**2)*t1*t2+s2t**2*t2**2)/4
6657  $ /(t1-t2)+c2t**2*(8*t1**2-t1*t2-t2**2)/4/(t1-t2)+cb**2*a0*(2
6658  $ *(3+c2t)*t1-(3-c2t)*t2)/2/(t1-t2)+bl*(2*(1+c2t)*t1-(1-c2t)*t2
6659  $ )/2/(t1-t2)-mu2*(3*(2+c2t)*t1-(3-c2t)*t2)/(t1-t2)+t*(2*(1-2
6660  $ *c2t)*t1-(1+c2t)*t2)/2/(t1-t2)+c2t*t1*(t1+4*t2)/2/(t1-t2)+(3
6661  $ +nc)*t1+(20*t1**2-11*t1*t2-t2**2)/4/(t1-t2))+t1*log(mu2/q)
6662  $ *log(t/q)+(mu2+t-t1)*log(t1/q)*log(t/q)+(mu2+t-t1+c2t*mu2**2
6663  $ /(t1-t2))*log(t1/q)*log(mu2/q)+log(bl/q)*log(t1/q)*(cb**2*(a0
6664  $ -bl-t1)*yt/at/2-bl*sb**2*xt/at+2*bl*sqrt(t)*s2t*at/(t1-t2)
6665  $ -s2t*cb**2*sqrt(t)*yt*(a0+bl-t1)/(t1-t2)-cb**2*sqrt(t)*yt*s2t
6666  $ /2-c2t*cb**2*(a0+bl-t1)*(t-yt**2)/2/(t1-t2)+c2t*bl*(t-t1-sb
6667  $ **2*xt**2-cb**2*yt**2)/(t1-t2)-(1-c2t)/2*bl-cb**2*((1+c2t)*t
6668  $ +(1-c2t)*yt**2)/4)+cb**2*log(a0/q)*log(t1/q)*(-sqrt(t)*(3*a0
6669  $ -bl+t1)*yt*(1./2/at/sqrt(t)-s2t/(t1-t2))-sqrt(t)*yt*s2t/2+c2t
6670  $ **2*yt**2*(t1-t2-2*a0)/4/(t1-t2)-(6*a0+t+2*yt**2)/4-c2t*(2*bl
6671  $ -2*a0-t1-t2)*(t-yt**2)/4/(t1-t2)-c2t*a0*(t1+t2)/2/(t1-t2))+cb
6672  $ **2*log(a0/q)*log(bl/q)*(sqrt(t)*t1*yt*(1./2/at/sqrt(t)-s2t
6673  $ /(t1-t2))+s2t*sqrt(t)*yt/2-c2t*(t-yt**2)*(t1+t2)/2/(t1-t2))
6674  $ +cb**2*(a0*c2t**2*yt**2/2/(t1-t2)+s2t**2*yt**2/4)*log(a0/q)
6675  $ *log(t2/q)+log(t2/q)**2*(3*s2t*sqrt(t)*t2*at/2/(t1-t2)+(2-c2t
6676  $ +c2t**2)*t2/4/(t1-t2)*(sb**2*xt**2+cb**2*yt**2)+nc*(1+c2t**2)
6677  $ *t2**2/4/(t1-t2)-s2t**2*t2**2/4/(t1-t2)+bl*t2*(1-c2t)/4/(t1
6678  $ -t2)-(3-c2t)*mu2*t2/2/(t1-t2)+(3-c2t)*a0*t2*cb**2/4/(t1-t2)
6679  $ +(1+c2t)*t*t2/4/(t1-t2)+t2*(9*t2-(4+c2t)*t1)/4/(t1-t2)+(3+nc)
6680  $ *t2/2)+log(t1/q)*log(t2/q)*(nc*(4*t1*t2-s2t**2*(t1+t2)**2)/4
6681  $ /(t1-t2)+(1+c2t**2)/4*(t1-t2)+cb**2*c2t**2*yt**2*(t1+t2-a0)/2
6682  $ /(t1-t2)+c2t**2*t2*(t1+sb**2*xt**2)/(t1-t2))+log(t1/q)**2*(cb
6683  $ **2*sqrt(t)*yt*(a0-bl+t1)*(1./2/at/sqrt(t)-s2t/(t1-t2))
6684  $ +sqrt(t)*(bl-6*t1)*(1./2/sqrt(t)-s2t*at/(t1-t2))+cb**2*s2t
6685  $ *sqrt(t)*yt/2-3*at*sqrt(t)*(2*t1-t2)*s2t/2/(t1-t2)+nc*t1*(3*(
6686  $ -2+s2t**2)*t1+2*s2t**2*t2)/4/(t1-t2)-sb**2*xt**2/4/(t1-t2)
6687  $ *((5+2*c2t+3*c2t**2)*t1+(-3+c2t+2*c2t**2)*t2-2*bl*c2t)-cb**2
6688  $ *yt**2/4/(t1-t2)*((3+c2t+4*c2t**2)*t1-s2t**2*t2-2*a0*c2t**2)
6689  $ -(3+c2t)*cb**2*a0*t1/4/(t1-t2)-t1*bl*(1+c2t)/4/(t1-t2)-t*c2t
6690  $ *sb**2*bl/2/(t1-t2)+mu2/2/(t1-t2)*(2*(2+c2t)*t1-(1-c2t)*t2)
6691  $ -c2t*mu2**2/2/(t1-t2)+t/4/(t1-t2)*((-5+c2t-(1-c2t)*sb**2)*t1
6692  $ +(4+(1+c2t)*sb**2)*t2)-t1*((4+3*c2t**2)*t1+c2t*(3+2*c2t)*t2)
6693  $ /4/(t1-t2)-(3+nc)*t1/2)
6694 
6695  return
6696  end
6697 
6698 *
6699 *********************************************************************
6700 *
6701 
6702  function tauresfac(t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu)
6703 
6704  implicit none
6705  double precision t,A0,BL,T1,T2,s2t,c2t,cb,sb,q,mu
6706  double precision tauresFAc,phi,delt,pLi2
6707  double precision Xt,Yt
6708  double precision, parameter :: Nc = 1d0 ! color factor !!!
6709  double precision, parameter :: Pi = 3.1415926535897932d0
6710 
6711  xt = s2t*(t1-t2)/2d0/sqrt(t)
6712  yt = xt - mu/cb/sb
6713 
6714  tauresfac =
6715  $ -cb**2*a0*yt*(a0-4*t1)/2/t1*phi(a0,t1,t1)
6716  $ -cb**2*yt*delt(a0,bl,t1)/2/t1*phi(a0,bl,t1)
6717  $ +sb**2*xt*(bl-t1)*pli2(1-bl/t1)
6718  $ +log(bl/q)*log(t1/q)*(cb**2*(a0-bl-t1)*yt/2-bl*sb**2*xt)
6719  $ -cb**2*log(a0/q)*log(t1/q)*(3*a0-bl+t1)*yt/2
6720  $ +cb**2*log(a0/q)*log(bl/q)*t1*yt/2
6721  $ +log(t1/q)**2*cb**2*yt*(a0-bl+t1)/2
6722 
6723  return
6724  end
6725 
6726 
6727 
6728 
6729  subroutine tausqtad(t,A0,BL,T1,T2,st,ct,q,mu,tb,vv,
6730  $ S1,S2)
6731  $ bind(c, name="tausqtad_")
6732 
6733 c Two-loop O(a_t^2) corrections to the Higgs tadpoles.
6734 c Written by P. Slavich (e-mail: slavich@mppmu.mpg.de).
6735 c Based on A. Dedes and P. Slavich, hep-ph/0212132
6736 c with appropriate substitutions for top -> tau.
6737 c
6738 c Last update: 19/06/2003.
6739 c
6740 c I/O PARAMETERS:
6741 c t = m_tau^2, A0 = m_A^2, BL = m_snu^2, T1 = m_stau1^2, T2 = m_stau2^2,
6742 c st = sin(theta_stau), ct = cos(theta_stau), q = Q^2 (ren. scale),
6743 c mu = Higgs mixing parameter, tb = tan(beta), vv = v^2,
6744 c Si = 1/vi*dVeff/dvi = 2-loop corrections to the Higgs tadpoles.
6745 c
6746 c Notice: we assume that the 1-loop part is computed in terms of
6747 c running (DRbar) parameters, evaluated at the scale Q.
6748 
6749  implicit none
6750 
6751  double precision ht,k,mt,vv,v1,v2,tb
6752  double precision t,mu2,A0,BL,T1,T2,st,ct,q,A,X,mu,tanb,sb,cb,s2t
6753  $ ,c2t
6754  double precision F2l,G2l,S1,S2,sw
6755  double precision, parameter :: pi = 3.1415926535897932d0
6756 
6757  tanb = 1d0/tb ! swap H1 <-> H2 !!!
6758 
6759  mt = dsqrt(t)
6760 
6761 c ADDED by BEN: guards against NANs when sin theta is zero!
6762  if (dabs(st).lt.1.0d-10) then
6763  if (st.ge.0.0d0) then
6764  st=1.0d-10
6765  else
6766  st=-1.0d-10
6767  endif
6768  endif
6769  ct = sqrt(1.d0-st*st)
6770 c end of addition by BEN 13/6/12
6771 
6772  s2t = 2d0*ct*st
6773  c2t = ct**2 - st**2
6774 
6775  x = (t1-t2)*s2t/2d0/mt
6776  a = x - mu/tanb ! notice the sign convention for mu
6777 
6778  sb = dsin(datan(tanb))
6779  cb = dcos(datan(tanb))
6780  v1 = sqrt(vv)*cb
6781  v2 = sqrt(vv)*sb
6782 
6783  ht = dsqrt(2d0/vv)*mt/sb
6784 
6785 c$$$ k = 3d0*ht**2/(16d0*Pi**2)**2
6786  k = ht**2/(16d0*pi**2)**2 ! remove color factor !!!
6787 
6788 
6789  call tautadfuncs(t,a0,bl,t1,t2,s2t,c2t,q,mu,sb,cb,f2l,g2l)
6790 
6791  s1 = mt * mu/tanb * s2t * f2l
6792  s1 = s1/v1**2
6793 
6794  s2 = mt * a * s2t * f2l + 2d0 * mt**2 * g2l
6795  s2 = s2/v2**2
6796 
6797  s1 = k*s1
6798  s2 = k*s2
6799 
6800  sw = s1 ! swap H1 <-> H2 !!!
6801  s1 = s2
6802  s2 = sw
6803 
6804  return
6805  end
6806 
6807 *
6808 ***********************************************************************
6809 *
6810 
6811 
6812  subroutine tautadfuncs(t,A0,BL,T1,T2,s2t,c2t,q,mu,sb,cb,F2l,G2l)
6813 
6814  implicit none
6815  double precision t,A0,BL,T1,T2,s2t,c2t,q,mu,mu2,sb,cb,sb2,cb2
6816  double precision F2l,G2l,phi,delt,pLi2,Xt,Yt,At
6817  double precision, parameter :: Nc = 1d0 ! color factor !!!
6818  double precision, parameter :: Pi = 3.1415926535897932d0
6819 
6820  sb2 = sb**2
6821  cb2 = cb**2
6822  mu2 = mu**2
6823 
6824  if (mu2.eq.0d0) then
6825  mu2 = 1d-10
6826  endif
6827 
6828  xt = s2t*(t1-t2)/2d0/sqrt(t)
6829  yt = xt - mu/cb/sb
6830  at = sb2*xt+cb2*yt
6831 
6832 
6833  f2l = (delt(mu2,t,t1)+2*mu2*t)/t1*phi(mu2,t,t1)
6834  $ -(delt(mu2,t,t2)+2*mu2*t)/t2*phi(mu2,t,t2)
6835  $ +a0*cb2*(2*sqrt(t)+s2t*yt)/4/s2t/t1/(t1-t2)*
6836  $ (-2*s2t*sqrt(t)*(t1-t2)+2*(a0-4*t1)*yt
6837  $ +s2t**2*(7*t1+t2-2*a0)*yt)*phi(a0,t1,t1)
6838  $ -a0*cb2*(2*sqrt(t)-s2t*yt)/4/s2t/t2/(t1-t2)*
6839  $ (-2*s2t*sqrt(t)*(t1-t2)+2*(a0-4*t2)*yt
6840  $ +s2t**2*(7*t2+t1-2*a0)*yt)*phi(a0,t2,t2)
6841  $ +cb2*yt**2/2/(t1-t2)/t2*(s2t**2*(t1-t2)**2-2*a0**2*c2t**2
6842  $ +a0*4*c2t**2*(t1+t2))*phi(a0,t1,t2)
6843  $ +(-cb2*delt(a0,bl,t1)/2/s2t/t1/(t1-t2)
6844  $ *(c2t*s2t*(t-yt**2)-2*c2t**2*sqrt(t)*yt)
6845  $ -cb2/4/t1*(a0+bl-t1)*((1+c2t)*t+2*s2t*sqrt(t)*yt
6846  $ +yt**2*(1-c2t)))*phi(a0,bl,t1)
6847  $ -(-cb2*delt(a0,bl,t2)/2/s2t/t2/(t1-t2)
6848  $ *(c2t*s2t*(t-yt**2)-2*c2t**2*sqrt(t)*yt)
6849  $ -cb2/4/t2*(a0+bl-t2)*((1-c2t)*t-2*s2t*sqrt(t)*yt
6850  $ +yt**2*(1+c2t)))*phi(a0,bl,t2)
6851  $ +(mu2-t1)*(t2-t1+c2t*(mu2-t2))/(t1-t2)*pli2(1-mu2/t1)
6852  $ +(mu2-t2)*(t1-t2-c2t*(mu2-t1))/(t1-t2)*pli2(1-mu2/t2)
6853  $ +(-sb2*(bl-t1)*(c2t*s2t*(t-xt**2)-2*c2t**2*sqrt(t)*xt)
6854  $ /s2t/(t1-t2)
6855  $ -sb2/2*((1+c2t)*t+2*s2t*sqrt(t)*xt+(1-c2t)*xt**2))
6856  $ *pli2(1-t1/bl)
6857  $ -(-sb2*(bl-t2)*(c2t*s2t*(t-xt**2)-2*c2t**2*sqrt(t)*xt)
6858  $ /s2t/(t1-t2)
6859  $ -sb2/2*((1-c2t)*t-2*s2t*sqrt(t)*xt+(1+c2t)*xt**2))
6860  $ *pli2(1-t2/bl)
6861  $ +s2t**2*sb2*xt**2/2*(pli2(1-t2/t1)-pli2(1-t1/t2))
6862  $ +(-((-2+s2t**2)*t1+s2t**2*t2)/2/(t1-t2)
6863  $ *(sb2*xt**2+cb2*yt**2+2*sqrt(t)*at/s2t)
6864  $ -(2*a0*c2t**2+(t1-t2)*s2t**2)/4/(t1-t2)*cb2*yt**2
6865  $ -a0*cb2*c2t**2*sqrt(t)*yt/s2t/(t1-t2)
6866  $ -(nc+1)*t1*((-3+s2t**2)*t1+(1+s2t**2)*t2)/2/(t1-t2)-nc/2*t1
6867  $ +c2t*(mu2-t1)*(mu2-t2)/2/(t1-t2)-mu2/2+t)*log(t1/q)**2
6868  $ -(((-2+s2t**2)*t2+s2t**2*t1)/2/(t1-t2)
6869  $ *(sb2*xt**2+cb2*yt**2-2*sqrt(t)*at/s2t)
6870  $ +(2*a0*c2t**2-(t1-t2)*s2t**2)/4/(t1-t2)*cb2*yt**2
6871  $ -a0*cb2*c2t**2*sqrt(t)*yt/s2t/(t1-t2)
6872  $ +(nc+1)*t2*((-3+s2t**2)*t2+(1+s2t**2)*t1)/2/(t1-t2)-nc/2*t2
6873  $ +c2t*(mu2-t1)*(mu2-t2)/2/(t1-t2)-mu2/2+t)*log(t2/q)**2
6874  $ +(-c2t**2*(t1+t2)/(t1-t2)*(sb2*xt**2+cb2*yt**2)
6875  $ +c2t**2*cb2*a0*yt**2/(t1-t2)-2*(1+nc)*c2t**2*t1*t2/(t1-t2)
6876  $ +((1+nc)*s2t**2-2)/2*(t1-t2))*log(t1/q)*log(t2/q)
6877  $ +(t1-mu2-t)*log(t/q)*log(t1/q)-(t2-mu2-t)*log(t/q)*log(t2/q)
6878  $ +((t1-mu2-t)-c2t*mu2**2/(t1-t2))*log(mu2/q)*log(t1/q)
6879  $ -((t2-mu2-t)-c2t*mu2**2/(t1-t2))*log(mu2/q)*log(t2/q)
6880  $ -cb2*sqrt(t)*yt/s2t*log(a0/q)*log(bl/q)
6881  $ -(t1-t2)*log(mu2/q)*log(t/q)-sb2*sqrt(t)*xt/s2t*log(bl/q)**2
6882  $ +(-cb2*sqrt(t)*yt/2/s2t/(t1-t2)*
6883  $ (2*bl*c2t**2-6*a0*c2t**2+(-2+s2t**2)*t1+s2t**2*t2)
6884  $ +c2t*cb2/4/(t1-t2)*((2*bl-t1-t2)*(t-yt**2)
6885  $ +2*a0*(t1+t2+yt**2-t))
6886  $ +cb2/4*(6*a0+t+(1+2*s2t**2)*yt**2))*log(a0/q)*log(t1/q)
6887  $ -(-cb2*sqrt(t)*yt/2/s2t/(t1-t2)*
6888  $ (2*bl*c2t**2-6*a0*c2t**2+(-2+s2t**2)*t2+s2t**2*t1)
6889  $ +c2t*cb2/4/(t1-t2)*((2*bl-t1-t2)*(t-yt**2)
6890  $ +2*a0*(t1+t2+yt**2-t))
6891  $ +cb2/4*(6*a0+t+(1+2*s2t**2)*yt**2))*log(a0/q)*log(t2/q)
6892  $ +(cb2*sqrt(t)*yt/2/s2t/(t1-t2)*
6893  $ (2*bl*c2t**2-2*a0*c2t**2+(-2+s2t**2)*t1+s2t**2*t2)
6894  $ -sqrt(t)*at/s2t/(t1-t2)*((-2+s2t**2)*t1+s2t**2*t2)
6895  $ +c2t/4/(t1-t2)*(2*a0*cb2*(t-yt**2)+(t1+t2)*
6896  $ (t*(-2+cb2)+2*sb2*xt**2+cb2*yt**2)
6897  $ +2*bl*(t1+t2-cb2*(t-yt**2)))
6898  $ +(2*bl-(-2+cb2)*t+2*sb2*xt**2+cb2*yt**2)/4)
6899  $ *log(bl/q)*log(t1/q)
6900  $ -(cb2*sqrt(t)*yt/2/s2t/(t1-t2)*
6901  $ (2*bl*c2t**2-2*a0*c2t**2+(-2+s2t**2)*t2+s2t**2*t1)
6902  $ -sqrt(t)*at/s2t/(t1-t2)*((-2+s2t**2)*t2+s2t**2*t1)
6903  $ +c2t/4/(t1-t2)*(2*a0*cb2*(t-yt**2)+(t1+t2)*
6904  $ (t*(-2+cb2)+2*sb2*xt**2+cb2*yt**2)
6905  $ +2*bl*(t1+t2-cb2*(t-yt**2)))
6906  $ +(2*bl-(-2+cb2)*t+2*sb2*xt**2+cb2*yt**2)/4)
6907  $ *log(bl/q)*log(t2/q)
6908  $ +(3*sqrt(t)*at/s2t/(t1-t2)*((-4+3*s2t**2)*t1+s2t**2*t2)
6909  $ -(3*(1+c2t)*t1+(-3+c2t)*t2)/2/(t1-t2)*(sb2*xt**2+cb2*yt**2)
6910  $ -c2t/2/(t1-t2)*((t1+t2)*(bl+a0*cb2)
6911  $ -t1*(4*mu2+3*t-t1)-t2*(2*mu2+t-3*t1))
6912  $ -bl/2-3./2.*a0*cb2+3*mu2-t/2
6913  $ +nc/2*((-4+3*s2t**2)*t1+s2t**2*t2)
6914  $ +((-13+3*s2t**2)*t1+(-2+s2t**2)*t2)/2)*log(t1/q)
6915  $ -(3*sqrt(t)*at/s2t/(t1-t2)*((-4+3*s2t**2)*t2+s2t**2*t1)
6916  $ +(3*(1-c2t)*t2+(-3-c2t)*t1)/2/(t1-t2)*(sb2*xt**2+cb2*yt**2)
6917  $ -c2t/2/(t1-t2)*((t1+t2)*(bl+a0*cb2)
6918  $ -t2*(4*mu2+3*t-t2)-t1*(2*mu2+t-3*t2))
6919  $ -bl/2-3./2.*a0*cb2+3*mu2-t/2
6920  $ +nc/2*((-4+3*s2t**2)*t2+s2t**2*t1)
6921  $ +((-13+3*s2t**2)*t2+(-2+s2t**2)*t1)/2)*log(t2/q)
6922  $ +c2t*(mu2*log(mu2/q)-bl*log(bl/q)-a0*cb2*log(a0/q))
6923  $ +3*at*sqrt(t)/s2t*(5-4*s2t**2)
6924  $ +2*c2t*(sb2*xt**2+cb2*yt**2)+c2t*(bl+a0*cb2-3*mu2-2*t+t1+t2)
6925  $ -(2*nc*(-1+s2t**2)-11+2*s2t**2)/2*(t1-t2)
6926 
6927  g2l =
6928  $ -2*a0*cb2*(a0-3*t)/t*phi(a0,t,t)
6929  $ +(2*bl+mu2-bl**2/t+bl*mu2/t-t)*phi(bl,mu2,t)
6930  $ +mu2/t1*(mu2+t-t1)*phi(mu2,t,t1)
6931  $ +mu2/t2*(mu2+t-t2)*phi(mu2,t,t2)
6932  $ +a0*cb2*(2*sqrt(t)+s2t*yt)*(a0-2*t-4*t1-s2t*sqrt(t)*yt)
6933  $ /4/sqrt(t)/t1*phi(a0,t1,t1)
6934  $ +a0*cb2*(2*sqrt(t)-s2t*yt)*(a0-2*t-4*t2+s2t*sqrt(t)*yt)
6935  $ /4/sqrt(t)/t2*phi(a0,t2,t2)
6936  $ +a0*cb2*(-2+s2t**2)*yt**2/2/t2*phi(a0,t1,t2)
6937  $ +((s2t*yt/sqrt(t)+1+c2t)*delt(a0,bl,t1)
6938  $ -(2*s2t*sqrt(t)*yt+(1-c2t)*yt**2+(1+c2t)*t)
6939  $ *(a0+bl-t1))*cb2/4/t1*phi(a0,bl,t1)
6940  $ +((-s2t*yt/sqrt(t)+1-c2t)*delt(a0,bl,t2)
6941  $ -(-2*s2t*sqrt(t)*yt+(1+c2t)*yt**2+(1-c2t)*t)
6942  $ *(a0+bl-t2))*cb2/4/t2*phi(a0,bl,t2)
6943  $ +2*cb2*(t-a0)*pli2(1-t/a0)
6944  $ +(-1+c2t)*(mu2-t1)*pli2(1-mu2/t1)
6945  $ +(-1-c2t)*(mu2-t2)*pli2(1-mu2/t2)
6946  $ +(-sb2*s2t*(2*t+t1-bl)*xt/2/sqrt(t)-sb2/2*(1-c2t)*xt**2
6947  $ +sb2/2*(1+c2t)*(bl-t-t1))*pli2(1-t1/bl)
6948  $ +(sb2*s2t*(2*t+t2-bl)*xt/2/sqrt(t)-sb2/2*(1+c2t)*xt**2
6949  $ +sb2/2*(1-c2t)*(bl-t-t2))*pli2(1-t2/bl)
6950  $ -sb2*(s2t**2-2)*xt**2/2*(pli2(1-t1/t2)+pli2(1-t2/t1))
6951  $ +cb2*(t-a0)*log(a0/q)**2-2*cb2*(t+2*a0)*log(a0/q)*log(t/q)
6952  $ +(cb2*(t+2*a0)-3*t)*log(t/q)**2-(bl-t)*log(bl/q)*log(mu2/q)
6953  $ +(bl+2*mu2-t)*log(mu2/q)*log(t/q)-(bl+t)*log(bl/q)*log(t/q)
6954  $ +(-sb2*s2t*(t1-t2)*xt/4/sqrt(t)-sb2/2*xt**2
6955  $ +sb2/4*(2*bl-2*t-(1+c2t)*t1-(1-c2t)*t2))*log(bl/q)**2
6956  $ +(-cb2*s2t*(t1-t2)*yt/4/sqrt(t)-cb2/2*(yt**2-a0)
6957  $ +cb2/4*(2*bl-2*t-(1+c2t)*t1-(1-c2t)*t2))*log(a0/q)*log(bl/q)
6958  $ +(s2t*(2*t+t1)/2/sqrt(t)*at-cb2*s2t*a0*yt/4/sqrt(t)
6959  $ +sb2/2*xt**2+cb2*s2t**2/4*yt**2-a0*cb2/2-mu2/2*(1-c2t)
6960  $ +t+(3-c2t+(1+nc)*s2t**2)/2*t1)*log(t1/q)**2
6961  $ +(-s2t*(2*t+t2)/2/sqrt(t)*at+cb2*s2t*a0*yt/4/sqrt(t)
6962  $ +sb2/2*xt**2+cb2*s2t**2/4*yt**2-a0*cb2/2-mu2/2*(1+c2t)
6963  $ +t+(3+c2t+(1+nc)*s2t**2)/2*t2)*log(t2/q)**2
6964  $ +(cb2*(2-s2t**2)*yt**2/2+(2-(1+nc)*s2t**2)/2*(t1+t2))
6965  $ *log(t1/q)*log(t2/q)
6966  $ -(mu2+2*t)*log(t/q)*log(t1/q)-mu2*log(mu2/q)*log(t1/q)
6967  $ -(mu2+2*t)*log(t/q)*log(t2/q)-mu2*log(mu2/q)*log(t2/q)
6968  $ +(cb2*s2t*(3*a0-bl+2*t+t1)*yt/4/sqrt(t)+cb2/4*(1-c2t)*yt**2
6969  $ -cb2/4*((1+c2t)*(bl-t-t1)-(11-c2t)*a0))*log(a0/q)*log(t1/q)
6970  $ +(-cb2*s2t*(3*a0-bl+2*t+t2)*yt/4/sqrt(t)+cb2/4*(1+c2t)*yt**2
6971  $ -cb2/4*((1-c2t)*(bl-t-t2)-(11+c2t)*a0))*log(a0/q)*log(t2/q)
6972  $ +(cb2*s2t*yt/4/sqrt(t)*(bl-a0+2*t+t1)
6973  $ +sb2*s2t*xt/2/sqrt(t)*(2*t+t1)+sb2/2*(1-c2t)*xt**2
6974  $ +cb2/4*(1-c2t)*yt**2-cb2/4*a0*(1+c2t)
6975  $ +bl/4*(2*(1-c2t)+cb2*(1+c2t))
6976  $ -(1+c2t)*(-2+cb2)/4*(t+t1))*log(bl/q)*log(t1/q)
6977  $ +(-cb2*s2t*yt/4/sqrt(t)*(bl-a0+2*t+t2)
6978  $ -sb2*s2t*xt/2/sqrt(t)*(2*t+t2)+sb2/2*(1+c2t)*xt**2
6979  $ +cb2/4*(1+c2t)*yt**2-cb2/4*a0*(1-c2t)
6980  $ +bl/4*(2*(1+c2t)+cb2*(1-c2t))
6981  $ -(1-c2t)*(-2+cb2)/4*(t+t2))*log(bl/q)*log(t2/q)
6982  $ +(-3*s2t*(t+t1)/sqrt(t)*at
6983  $ -(3-c2t)/2*(sb2*xt**2+cb2*yt**2)-(1-c2t)/2*bl
6984  $ -(3-c2t)/2*cb2*a0+(3-c2t)*mu2-(1+c2t)/2*t
6985  $ +(c2t-15-(1+nc)*s2t**2)/2*t1
6986  $ +(-2+(1+nc)*s2t**2)/2*t2)*log(t1/q)
6987  $ +(3*s2t*(t+t2)/sqrt(t)*at
6988  $ -(3+c2t)/2*(sb2*xt**2+cb2*yt**2)-(1+c2t)/2*bl
6989  $ -(3+c2t)/2*cb2*a0+(3+c2t)*mu2-(1-c2t)/2*t
6990  $ +(-c2t-15-(1+nc)*s2t**2)/2*t2
6991  $ +(-2+(1+nc)*s2t**2)/2*t1)*log(t2/q)
6992  $ -pi**2*sb2*t/3
6993  $ +15*s2t*(t1-t2)/4/sqrt(t)*at+3./2.*(sb2*xt**2+cb2*yt**2)
6994  $ +18*t*log(t/q)+bl/2+3./2.*a0*cb2-3*mu2
6995  $ +35./4.*(t1+t2-2*t)-c2t/4*(t1-t2)
6996 
6997  return
6998  end
makefuncs
subroutine makefuncs(t, b, A0, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb, F1t, F2t, F3t, F4t, F1b, F2b, F3b, F4b, F5, F6, Ft, Fb, Gt, Gb, FAp, atat)
Definition: DSZHiggs.f:479
myaa
double precision function myaa(m, q)
Definition: DSZHiggs.f:5029
taudfuncs
subroutine taudfuncs(t, A0, BL, T1, T2, s2t, c2t, cb, sb, q, mu, A, v2, DF1, DF2, DF3, DdmuF2, DdmuF3, DdAtF2, DdAtF3)
Definition: DSZHiggs.f:6351
cli2
complex *16 function cli2(Z)
Definition: DSZHiggs.f:5279
tausfuncs
subroutine tausfuncs(t, A0, BL, T1, T2, s2t, c2t, cb, sb, q, mu, At, ht, dmuF2, dmuF3, dAtF2, dAtF3, DM12, DM22)
Definition: DSZHiggs.f:6314
strsfuncs
subroutine strsfuncs(mg, T1, T2, q, A, sF2, sF3)
Definition: DSZHiggs.f:4559
ddsodd
subroutine ddsodd(t, b, A0, T1, T2, B1, B2, st, ct, sb, cb, q, mu, tanb, vv, DMA, atat)
Definition: DSZHiggs.f:194
strf2lc
double precision function strf2lc(t, mg, T1, T2, s2t, c2t, q)
Definition: DSZHiggs.f:4953
strf2ab
double precision function strf2ab(T1, T2, s2t, c2t, q)
Definition: DSZHiggs.f:4442
strfuncs
subroutine strfuncs(t, mg, T1, T2, s2t, c2t, q, F1, F2, F3)
Definition: DSZHiggs.f:4369
tauf3c
double precision function tauf3c(t, A0, BL, T1, T2, s2t, c2t, cb, sb, q, mu)
Definition: DSZHiggs.f:6134
delt
double precision function delt(x, y, z)
Definition: DSZHiggs.f:5243
tauf6q
double precision function tauf6q(t, b, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb)
Definition: DSZHiggs.f:5628
strfac
double precision function strfac(t, mg, T1, T2, s2t, A, q)
Definition: DSZHiggs.f:4801
myb1
double precision function myb1(p, m1, m2, q)
Definition: DSZHiggs.f:5124
gq
double precision function gq(t, b, A0, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb, atat)
Definition: DSZHiggs.f:4175
tauf1c
double precision function tauf1c(t, A0, BL, T1, T2, s2t, c2t, cb, sb, q, mu)
Definition: DSZHiggs.f:5909
faq
double precision function faq(t, b, A0, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb, atat)
Definition: DSZHiggs.f:4209
tausqhiggs
subroutine tausqhiggs(t, A0, BL, T1, T2, st, ct, q, mu, tb, v2, OS, S11, S22, S12)
Definition: DSZHiggs.f:5728
taufac
double precision function taufac(t, A0, BL, T1, T2, s2t, c2t, cb, sb, q, mu)
Definition: DSZHiggs.f:6604
taugq
double precision function taugq(t, b, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb)
Definition: DSZHiggs.f:5675
taufq
double precision function taufq(t, b, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb)
Definition: DSZHiggs.f:5651
strf2c
double precision function strf2c(t, mg, T1, T2, s2t, q)
Definition: DSZHiggs.f:4462
tauf5q
double precision function tauf5q(t, b, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb)
Definition: DSZHiggs.f:5600
f3q
double precision function f3q(t, b, A0, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb, atat)
Definition: DSZHiggs.f:3994
strf3ab
double precision function strf3ab(T1, T2, s2t, c2t, q)
Definition: DSZHiggs.f:4497
ewsb2loop
subroutine ewsb2loop(t, mg, T1, T2, st, ct, q, mu, tanb, vv, gs, S1, S2)
Definition: DSZHiggs.f:4859
strg2lc
double precision function strg2lc(t, mg, T1, T2, s2t, q)
Definition: DSZHiggs.f:4981
taufuncs
subroutine taufuncs(t, A0, BL, T1, T2, s2t, c2t, cb, sb, q, mu, F1, F2, F3)
Definition: DSZHiggs.f:5845
taufuncsodd
subroutine taufuncsodd(t, A0, BL, T1, T2, s2t, c2t, cb, sb, q, mu, FA, FA_A)
Definition: DSZHiggs.f:6565
f6q
double precision function f6q(t, b, A0, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb, atat)
Definition: DSZHiggs.f:4107
taufaq
double precision function taufaq(t, b, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb)
Definition: DSZHiggs.f:5698
myphi
double precision function myphi(x, y, z)
Definition: DSZHiggs.f:5184
strdfuncs
subroutine strdfuncs(t, mg, T1, T2, s2t, c2t, q, At, X, DF1, DF2, DF3, DsF2, DsF3)
Definition: DSZHiggs.f:4609
tautadfuncs
subroutine tautadfuncs(t, A0, BL, T1, T2, s2t, c2t, q, mu, sb, cb, F2l, G2l)
Definition: DSZHiggs.f:6813
strfaab
double precision function strfaab(T1, T2, s2t, q)
Definition: DSZHiggs.f:4782
strf1ab
double precision function strf1ab(t, T1, T2, s2t, c2t, q)
Definition: DSZHiggs.f:4394
tauf1ab
double precision function tauf1ab(t, A0, BL, T1, T2, s2t, c2t, cb, sb, q, mu)
Definition: DSZHiggs.f:5870
tausqtad
subroutine tausqtad(t, A0, BL, T1, T2, st, ct, q, mu, tb, vv, S1, S2)
Definition: DSZHiggs.f:6732
strf1c
double precision function strf1c(t, mg, T1, s2t, q)
Definition: DSZHiggs.f:4413
taubottad
subroutine taubottad(t, b, T1, T2, B1, B2, st, ct, sb, cb, q, mu, tanb, vv, S1, S2)
Definition: DSZHiggs.f:5412
strresfac
double precision function strresfac(t, mg, T1, q)
Definition: DSZHiggs.f:4833
f4q
double precision function f4q(t, b, A0, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb, atat)
Definition: DSZHiggs.f:4031
f2q
double precision function f2q(t, b, A0, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb, atat)
Definition: DSZHiggs.f:3958
taubotodd
subroutine taubotodd(t, b, T1, T2, B1, B2, st, ct, sb, cb, q, mu, tanb, vv, DMA)
Definition: DSZHiggs.f:5363
f5q
double precision function f5q(t, b, A0, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb, atat)
Definition: DSZHiggs.f:4068
dszhiggs
subroutine dszhiggs(t, mg, T1, T2, st, ct, q, mu, tanb, v2, gs, OS, S11, S22, S12)
Definition: DSZHiggs.f:4261
makederiv
subroutine makederiv(t, b, A0, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb, atat)
Definition: DSZHiggs.f:609
strresfuncs
subroutine strresfuncs(t, mg, T1, T2, q, F2_s, sF2_A, sF3_A)
Definition: DSZHiggs.f:4580
taufaab
double precision function taufaab(t, A0, BL, T1, T2, s2t, c2t, cb, sb, q, mu)
Definition: DSZHiggs.f:6586
pli2
double precision function pli2(x)
Definition: DSZHiggs.f:5262
myb0
double precision function myb0(q, m1, m2, mu2)
Definition: DSZHiggs.f:5046
tauresfuncs
subroutine tauresfuncs(t, A0, BL, T1, T2, s2t, c2t, cb, sb, q, mu, F2_s)
Definition: DSZHiggs.f:6271
tauf3ab
double precision function tauf3ab(t, A0, BL, T1, T2, s2t, c2t, cb, sb, q, mu)
Definition: DSZHiggs.f:6115
taubot
subroutine taubot(t, b, T1, T2, B1, B2, st, ct, sb, cb, q, mu, tanb, vv, S11, S12, S22)
Definition: DSZHiggs.f:5297
strfuncsodd
subroutine strfuncsodd(t, mg, T1, T2, s2t, q, A, FA, FA_A)
Definition: DSZHiggs.f:4763
tausqodd
subroutine tausqodd(t, A0, BL, T1, T2, st, ct, q, mu, tb, v2, DMA)
Definition: DSZHiggs.f:6497
omega
double precision function omega(a, b)
Definition: DSZHiggs.f:5101
tauf2ab
double precision function tauf2ab(t, A0, BL, T1, T2, s2t, c2t, cb, sb, q, mu)
Definition: DSZHiggs.f:6002
ddstad
subroutine ddstad(t, b, A0, T1, T2, B1, B2, st, ct, sb, cb, q, mu, tanb, vv, S1, S2)
Definition: DSZHiggs.f:339
dszodd
subroutine dszodd(t, mg, T1, T2, st, ct, q, mu, tanb, v2, gs, DMA)
Definition: DSZHiggs.f:4696
makefuncstau
subroutine makefuncstau(t, b, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb, F1t, F2t, F3t, F4t, F1b, F2b, F3b, F4b, F5, F6, Ft, Fb, Gt, Gb, FAp)
Definition: DSZHiggs.f:5466
f1q
double precision function f1q(t, b, A0, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb, atat)
Definition: DSZHiggs.f:3922
fq
double precision function fq(t, b, A0, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb, atat)
Definition: DSZHiggs.f:4142
tauf2q
double precision function tauf2q(t, b, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb)
Definition: DSZHiggs.f:5527
phi
double precision function phi(x, y, z)
Definition: DSZHiggs.f:5161
tauf3q
double precision function tauf3q(t, b, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb)
Definition: DSZHiggs.f:5551
strfuncstad
subroutine strfuncstad(t, mg, T1, T2, s2t, c2t, q, F2l, G2l)
Definition: DSZHiggs.f:4923
tauf2c
double precision function tauf2c(t, A0, BL, T1, T2, s2t, c2t, cb, sb, q, mu)
Definition: DSZHiggs.f:6020
tauf1q
double precision function tauf1q(t, b, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb)
Definition: DSZHiggs.f:5504
ddshiggs
subroutine ddshiggs(t, b, A0, T1, T2, B1, B2, st, ct, sb, cb, q, mu, tanb, vv, S11, S12, S22, atat)
Definition: DSZHiggs.f:34
strf3c
double precision function strf3c(t, mg, T1, T2, s2t, q)
Definition: DSZHiggs.f:4521
tauf4q
double precision function tauf4q(t, b, T1, T2, B1, B2, s2t, c2t, s2b, c2b, q, mu, vv, tanb)
Definition: DSZHiggs.f:5576
tauresfac
double precision function tauresfac(t, A0, BL, T1, T2, s2t, c2t, cb, sb, q, mu)
Definition: DSZHiggs.f:6703
Generated by   doxygen 1.8.13