JHUGen MELA  JHUGen v7.5.6, MELA v2.4.2
Matrix element calculations as used in JHUGen.
Functions/Subroutines
modthiggs Module Reference

Functions/Subroutines

subroutine, public evalxsec_pp_th (Mom, Channel, Res)
 
subroutine, public evalxsec_pp_thw (Mom, Res)
 
subroutine, public evalamp_qb_th (MomExt, LO_Res_Unpol)
 
subroutine, public evalamp_qbarbbar_th (MomExt, LO_Res_Unpol)
 
subroutine, public evalamp_qqb_thbbar (MomExt, LO_Res_Unpol)
 
subroutine, public evalamp_qqb_tbarhb (MomExt, LO_Res_Unpol)
 
subroutine, public evalamp_gb_twmh (MomExt, LO_Res_Unpol)
 
subroutine, public evalamp_gbb_tbwph (MomExt, LO_Res_Unpol)
 
subroutine ubhtdamp (p1, p2, e3, k3, k4, e4, p5, za, zb, s, mdecay, amp)
 
subroutine dbbarhtbaruamp (p1, p2, e3, k3, k4, e4, p5, za, zb, s, mdecay, amp)
 
subroutine udbar_htbbaramp (p1, p2, e3, k3, k4, e4, p5, za, zb, s, mdecay, amp)
 
subroutine ubard_htbarbamp (p1, p2, e3, k3, k4, e4, p5, za, zb, s, mdecay, amp)
 
subroutine gb_twmhamp (Pg, Eg, Pb, UBb, Pt, UBt, Pw, ECw, Ph, amp)
 
subroutine gbb_tbwphamp (Pg, Eg, Pb, Vb, Pt, Vt, Pw, ECw, Ph, amp)
 
subroutine tdecay (k4, e4, b, ep, nu, za, zb, dkamp)
 
subroutine atdecay (k4, e4, bbar, em, nubar, za, zb, dkamp)
 
subroutine myamp (p, VVHg1, VVHg2, VVHg3, TTHg1, TTHg2, res)
 
subroutine my_spinoru (n, p, za, zb, s)
 

Function/Subroutine Documentation

◆ atdecay()

subroutine modthiggs::atdecay ( integer  k4,
integer  e4,
integer  bbar,
integer  em,
integer  nubar,
complex(8), dimension(:,:)  za,
complex(8), dimension(:,:)  zb,
complex(8), dimension(1:2)  dkamp 
)
private

Definition at line 7761 of file mod_THiggs.F90.

7761 ! anti-top decay routine, taken from MCFM, see hep-ph:/1204.1513
7762  implicit none
7763  integer :: k4,e4,bbar,em,nubar
7764  complex(8) :: za(:,:),zb(:,:),dkamp(1:2)
7765  real(8) :: NWAFactor_Top,NWAFactor_W
7766  complex(8) :: WProp
7767 
7768  ! if one flattens the top wrt to e, then amp(2) = 0
7769  dkamp(1) = -m_top * zb(bbar,nubar)*za(em,k4)/zb(e4,k4)
7770  dkamp(2) = -zb(bbar,nubar)*za(em,e4)
7771 
7772  nwafactor_top = 1d0/dsqrt(2d0*ga_top*m_top)
7773  nwafactor_w = 1d0/dsqrt(2d0*ga_w*m_w)
7774  wprop = (0d0,-1d0)*nwafactor_w
7775 
7776  dkamp = dkamp * wprop * nwafactor_top * gwsq
7777 
7778 

◆ dbbarhtbaruamp()

subroutine modthiggs::dbbarhtbaruamp ( integer  p1,
integer  p2,
integer  e3,
integer  k3,
integer  k4,
integer  e4,
integer  p5,
complex(8), dimension(:,:)  za,
complex(8), dimension(:,:)  zb,
real(8), dimension(:,:)  s,
complex(8), dimension(1:2)  mdecay,
complex(8), dimension(2)  amp 
)
private

Definition at line 749 of file mod_THiggs.F90.

749 ! amplitude for production d(p1)+bbar(p2)->H(p3)+tbar(p4)+u(p5)
750 ! allowing for scalar & pseudoscalar couplings of Higgs to top
751 ! modification of amplitude in MCFM and hep-ph:/1302.3856
752  implicit none
753  integer :: p1,p2,p3,e3,k3,e4,p5,k4
754  complex(8) :: za(:,:),zb(:,:),mdecay(1:2)
755  real(8) :: s(:,:)
756  complex(8) :: amp(2),ampw(2),ampt(2),KL,KR
757  real(8) :: s24,s34,s15,mt,mw
758 
759  s24=s(p2,k4)+s(p2,e4)+s(e4,k4)
760  s34=s(p1,p2)+s(p1,p5)+s(p2,p5)
761  s15=s(p1,p5)
762  mw=m_w
763  mt=m_top
764 ! there is a factor of -2 relative to ttbH
765  kl=-mt/vev*(kappa-(0d0,1d0)*kappa_tilde)
766  kr=-mt/vev*(kappa+(0d0,1d0)*kappa_tilde)
767 
768  ampw(1) = 1d0/2d0/( - mw**2 + s24)/( - mw**2 + s15)*za(p2,e4)*&
769  & za(p5,e3)*zb(e3,p1)*mt + 1d0/2d0/( - mw**2 + s24)/( - mw**2 + &
770  & s15)*za(p2,e4)*za(p5,k3)*zb(k3,p1)*mt - 1/( - mw**2 + s24)/( - &
771  & mw**2 + s15)/(zb(k4,e4))*za(p2,p5)*zb(p1,k4)*mw**2*mt
772 
773  ampw(2) = - 1/( - mw**2 + s24)/( - mw**2 + s15)*za(p2,p5)*zb(&
774  & p1,e4)*mw**2 + 1d0/2d0/( - mw**2 + s24)/( - mw**2 + s15)/(za(k4,&
775  & e4))*za(p2,k4)*za(p5,e3)*zb(e3,p1)*mt**2 + 1d0/2d0/( - mw**2 + &
776  & s24)/( - mw**2 + s15)/(za(k4,e4))*za(p2,k4)*za(p5,k3)*zb(k3,p1)*&
777  & mt**2
778 
779  ampt(1) = 1d0/2d0/( - mt**2 + s34)/( - mw**2 + s15)*za(p2,p5)*&
780  & za(e4,p2)*zb(p2,p1)*vev*kr + 1d0/2d0/( - mt**2 + s34)/( - mw**2&
781  & + s15)*za(p2,p5)*za(e4,p5)*zb(p5,p1)*vev*kr + 1d0/2d0/( - mt**2&
782  & + s34)/( - mw**2 + s15)/(zb(k4,e4))*za(p2,p5)*zb(p1,k4)*mt**2*&
783  & vev*kl
784 
785  ampt(2) = 1d0/2d0/( - mt**2 + s34)/( - mw**2 + s15)*za(p2,p5)*&
786  & zb(p1,e4)*mt*vev*kl + 1d0/2d0/( - mt**2 + s34)/( - mw**2 + s15)&
787  & /(za(k4,e4))*za(p2,p5)*za(k4,p2)*zb(p2,p1)*mt*vev*kr + 1d0/2d0/(&
788  & - mt**2 + s34)/( - mw**2 + s15)/(za(k4,e4))*za(p2,p5)*za(k4,p5)&
789  & *zb(p5,p1)*mt*vev*kr
790 
791  amp(1)=(ampw(1)*(ghz1/2d0) +ampt(1))*mdecay(1)
792  amp(2)=(ampw(2)*(ghz1/2d0) +ampt(2))*mdecay(2)
793 

◆ evalamp_gb_twmh()

subroutine, public modthiggs::evalamp_gb_twmh ( real(8), dimension(1:4,1:11)  MomExt,
real(8), dimension(-6:6,-6:6)  LO_Res_Unpol 
)

Definition at line 477 of file mod_THiggs.F90.

477 use modmisc
478 use modparameters
479 use modtopdecay
480 
481 implicit none
482 real(8) :: MomExt(1:4,1:11),LO_Res_UnPol(-6:6,-6:6)
483 complex(8) :: LOAmpab=0d0, loampba=0d0
484 
485 complex(8) :: UBbD(4),UBbD2(4),Eg(4),Eg2(4),UBtD(4),ECw(4)
486 integer, parameter :: iL=1,ir=2, h=3, t=4, w=5, bt=6,wt=7,lept=8,nut=9, lepw=10,nuw=11
487 integer :: i,j,bhel,thel,gpol,wpol,theld=-1,wpold=-1
488 
489 
490  lo_res_unpol=0d0
491 
492  do bhel=-1,1,2
493  call ubarspi_dirac(dcmplx(momext(:,ir)),0d0,bhel,ubbd)
494  call ubarspi_dirac(dcmplx(momext(:,il)),0d0,bhel,ubbd2)
495 
496 
497  do gpol=-1,1,2
498 
499  eg=pol_mless(dcmplx(momext(:,il)),gpol,.false.)
500  eg2=pol_mless(dcmplx(momext(:,ir)),gpol,.false.)
501 
502 
503  if( topdecays .EQ. 0 ) then
504  theld=+1
505  wpold=+1
506  endif
507  do wpol=-1,wpold,1
508  if( topdecays .EQ. 0 ) then
509  ecw=pol_mass(dcmplx(momext(:,w)),wpol,.true.)
510  elseif( topdecays .NE. 0 ) then
511  call wdecay(wm_,(/momext(1:4,lepw),momext(1:4,nuw)/),ecw)
512  ecw=ecw*(0d0,-1d0)/sqrt2
513  endif
514  do thel=-1,theld,2
515 
516  if( topdecays .EQ. 0 ) then
517  call ubarspi_dirac(dcmplx(momext(:,t)),m_top,thel,ubtd)
518  elseif( topdecays .NE. 0 ) then
519  call topdecay(top_,(/momext(1:4,bt),momext(1:4,lept),momext(1:4,nut)/),ubtd)
520  ubtd=ubtd*(0d0,-1d0)/sqrt2
521  endif
522 
523 
524 
525  call gb_twmhamp(momext(1:4,il),eg,momext(1:4,ir),ubbd,momext(1:4,t),ubtd,momext(1:4,w),ecw,momext(1:4,h),loampab)
526 
527  lo_res_unpol(0,6) = lo_res_unpol(0,6) + cdabs(loampab)**2
528 
529 
530 
531  call gb_twmhamp(momext(1:4,ir),eg2,momext(1:4,il),ubbd2,momext(1:4,t),ubtd,momext(1:4,w),ecw,momext(1:4,h),loampba)
532 
533 
534  lo_res_unpol(6,0) = lo_res_unpol(6,0) + cdabs(loampba)**2
535 
536  enddo
537  enddo
538  enddo
539 
540 
541  enddo
542 
543  lo_res_unpol(:,:) = lo_res_unpol(:,:)*1d0/2d0*1d0/2d0*1d0/8d0*(4d0/3d0) !* ColFac * SpinAvg * QuarkColAvg**2
544 
545 
546 RETURN

◆ evalamp_gbb_tbwph()

subroutine, public modthiggs::evalamp_gbb_tbwph ( real(8), dimension(1:4,1:11)  MomExt,
real(8), dimension(-6:6,-6:6)  LO_Res_Unpol 
)

Definition at line 560 of file mod_THiggs.F90.

560 use modmisc
561 use modparameters
562 use modtopdecay
563 
564 implicit none
565 real(8) :: MomExt(1:4,1:11),LO_Res_UnPol(-6:6,-6:6)
566 complex(8) :: LOAmpab=0d0, loampba=0d0
567 
568 complex(8) :: VbD(4),Eg(4),VbD2(4),Eg2(4),VtD(4),ECw(4)
569 integer, parameter :: iL=1,ir=2, h=3, t=4, w=5, bt=6,wt=7,lept=8,nut=9, lepw=10,nuw=11
570 integer :: i,j,bhel,thel,gpol,wpol,theld=-1,wpold=-1
571 
572 
573  lo_res_unpol=0d0
574 
575  do bhel=-1,1,2
576  call vspi_dirac(dcmplx(momext(:,ir)),0d0,bhel,vbd)
577  call vspi_dirac(dcmplx(momext(:,il)),0d0,bhel,vbd2)
578 
579  do gpol=-1,1,2
580 
581  eg=pol_mless(dcmplx(momext(:,il)),gpol,.false.)
582  eg2=pol_mless(dcmplx(momext(:,ir)),gpol,.false.)
583 
584 
585  if( topdecays .EQ. 0 ) then
586  theld=+1
587  wpold=+1
588  endif
589  do wpol=-1,wpold,1
590 
591  if( topdecays .EQ. 0 ) then
592  ecw=pol_mass(dcmplx(momext(:,w)),wpol,.true.)
593  elseif( topdecays .NE. 0 ) then
594  call wdecay(wp_,(/momext(1:4,lepw),momext(1:4,nuw)/),ecw)
595  ecw=ecw*(0d0,-1d0)/sqrt2
596  endif
597 
598  do thel=-1,theld,2
599 
600  if( topdecays .EQ. 0 ) then
601  call vspi_dirac(dcmplx(momext(:,t)),m_top,thel,vtd)
602  elseif( topdecays .NE. 0 ) then
603  call topdecay(atop_,(/momext(1:4,bt),momext(1:4,lept),momext(1:4,nut)/),vtd)
604  vtd=vtd*(0d0,-1d0)/sqrt2
605  endif
606 
607  call gbb_tbwphamp(momext(1:4,il),eg,momext(1:4,ir),vbd,momext(1:4,t),vtd,momext(1:4,w),ecw,momext(1:4,h),loampab)
608 
609  lo_res_unpol(0,-6) = lo_res_unpol(0,-6) + cdabs(loampab)**2
610 
611 
612  call gbb_tbwphamp(momext(1:4,ir),eg2,momext(1:4,il),vbd2,momext(1:4,t),vtd,momext(1:4,w),ecw,momext(1:4,h),loampba)
613 
614  lo_res_unpol(-6,0) = lo_res_unpol(-6,0) + cdabs(loampba)**2
615 
616  enddo
617  enddo
618  enddo
619  enddo
620 
621  lo_res_unpol(:,:) = lo_res_unpol(:,:)*1d0/2d0*1d0/2d0*1d0/8d0*(4d0/3d0) !* ColFac * SpinAvg * QuarkColAvg**2
622 
623 RETURN

◆ evalamp_qb_th()

subroutine, public modthiggs::evalamp_qb_th ( real(8), dimension(1:4,1:9)  MomExt,
real(8), dimension(-6:6,-6:6)  LO_Res_Unpol 
)

Definition at line 93 of file mod_THiggs.F90.

93 use modmisc
94 implicit none
95 real(8) :: MomExt(1:4,1:9),MomExtFlat(1:7,1:4),p4Dp5,p4Dp7,LO_Res_UnPol(-6:6,-6:6),s(10,10),p2Dp3,MomExtFlatDK(1:10,1:4)
96 complex(8) :: za(10,10),zb(10,10),LOAmp(-6:6,-6:6,1:2),decay_amp(1:2)
97 real(8) :: s12,s13,s1e4,s1k4,s15,s23,s2e4,s2k4,s25,s3e4,s3k4,s35,se45,sk45,se4k4,ColFac
98 integer :: j
99 integer, parameter :: inLeft=1,inright=2,hbos=3,t=4, qout=5, b=6,w=7,lep=8,nu=9
100 
101 
102 
103 ! setup momenta for spinor helicity products -- undecayed tops
104  p4dp5=momext(1,qout)*momext(1,t)-momext(2,qout)*momext(2,t)-momext(3,qout)*momext(3,t)-momext(4,qout)*momext(4,t)
105  p4dp7=momext(1,lep)*momext(1,t)-momext(2,lep)*momext(2,t)-momext(3,lep)*momext(3,t)-momext(4,lep)*momext(4,t)
106  p2dp3=momext(1,inright)*momext(1,hbos)-momext(2,inright)*momext(2,hbos)-momext(3,inright)*momext(3,hbos)-momext(4,inright)*momext(4,hbos)
107  momextflat(1,1:4)=momext(1:4,inleft)
108  momextflat(2,1:4)=momext(1:4,inright)
109  momextflat(3,1:4)=m_reso**2/2d0/p2dp3*momext(1:4,inright)
110  momextflat(4,1:4)=momext(1:4,hbos)-momextflat(3,1:4)
111  momextflat(5,1:4)=m_top**2*momext(1:4,qout)/2d0/p4dp5
112  momextflat(6,1:4)=momext(1:4,t)-momextflat(5,1:4)
113  momextflat(7,1:4)=momext(1:4,qout)
114 
115  ! use different flattened momenta for top decays
116  IF (topdecays .NE. 0) THEN
117  momextflatdk(1:7,1:4)=momextflat(1:7,1:4)
118 ! ! overwrite flattened top momenta
119  momextflatdk(5,1:4)=m_top**2*momext(1:4,lep)/2d0/p4dp7
120  momextflatdk(6,1:4)=momext(1:4,t)-momextflatdk(5,1:4)
121  ! top decay products
122  momextflatdk(8,1:4)=momext(1:4,b)
123  momextflatdk(9,1:4)=momext(1:4,lep)
124  momextflatdk(10,1:4)=momext(1:4,nu)
125  ENDIF
126 
127 
128 ! Get spinor products
129  za=0d0
130  zb=0d0
131  s=0d0
132  IF (topdecays .EQ. 0) THEN
133  do j=1,7
134  call convert_to_mcfm(momextflat(j,1:4))
135  enddo
136  momextflat(1,1:4)=-momextflat(1,1:4)
137  momextflat(2,1:4)=-momextflat(2,1:4)
138 
139 ! call spinoru(7,MomExtFlat,za,zb,s)
140  call spinoru(momextflat,za,zb,s)
141 
142  ELSE
143  do j=1,10
144  call convert_to_mcfm(momextflatdk(j,1:4))
145  enddo
146  momextflatdk(1,1:4)=-momextflatdk(1,1:4)
147  momextflatdk(2,1:4)=-momextflatdk(2,1:4)
148 
149 ! call spinoru(10,MomExtFlatDK,za,zb,s)
150  call spinoru(momextflatdk,za,zb,s)
151  ENDIF
152 
153  loamp(:,:,:)=(0d0,0d0)
154  IF (topdecays .EQ. 0) THEN
155  decay_amp(1)=dcmplx(1d0,0d0)
156  decay_amp(2)=dcmplx(1d0,0d0)
157  ELSE
158  call tdecay(5,6,8,9,10,za,zb,decay_amp)
159  ENDIF
160 
161  call ubhtdamp(1,2,3,4,5,6,7,za,zb,s,decay_amp,loamp(up_,bot_,1:2))
162  call ubhtdamp(2,1,3,4,5,6,7,za,zb,s,decay_amp,loamp(bot_,up_,1:2))
163  call ubhtdamp(7,2,3,4,5,6,1,za,zb,s,decay_amp,loamp(adn_,bot_,1:2))
164  call ubhtdamp(7,1,3,4,5,6,2,za,zb,s,decay_amp,loamp(bot_,adn_,1:2))
165 
166  ! coupling factors in decay incl in tdecay function
167  loamp(:,:,:) = loamp(:,:,:) * 2d0*gwsq/vev*ci
168  lo_res_unpol(up_,bot_) = cdabs(loamp(up_,bot_,1))**2 + cdabs(loamp(up_,bot_,2))**2
169  lo_res_unpol(bot_,up_) = cdabs(loamp(bot_,up_,1))**2 + cdabs(loamp(bot_,up_,2))**2
170 
171 
172 ! print *, "coupl",ghz1,ghz2,ghz3,kappa,kappa_tilde
173 ! call myAmp((/MomExt(1:4,t),-MomExt(1:4,inLeft),MomExt(1:4,qout),-MomExt(1:4,inRight)/), M_W**2/vev*ghz1, +2d0/vev*ghz2, +2d0/vev*ghz3, &
174 ! kappa*(-m_top/vev), kappa_tilde*(-m_top/vev) ,LO_Res_Unpol(Bot_,Chm_))
175 ! print *, "marku",LO_Res_Unpol(Bot_,Chm_)
176 ! print *, "raoul",LO_Res_Unpol(Bot_,Up_)
177 ! print *, "ratio",LO_Res_Unpol(Bot_,Up_)/LO_Res_Unpol(Bot_,Chm_)
178 ! pause
179 
180 
181  lo_res_unpol(chm_,bot_) = lo_res_unpol(up_,bot_)
182  lo_res_unpol(bot_,chm_) = lo_res_unpol(bot_,up_)
183  lo_res_unpol(adn_,bot_) = cdabs(loamp(adn_,bot_,1))**2 + cdabs(loamp(adn_,bot_,2))**2
184  lo_res_unpol(bot_,adn_) = cdabs(loamp(bot_,adn_,1))**2 + cdabs(loamp(bot_,adn_,2))**2
185  lo_res_unpol(astr_,bot_)= lo_res_unpol(adn_,bot_)
186  lo_res_unpol(bot_,astr_)= lo_res_unpol(bot_,adn_)
187 
188  colfac=9d0
189  lo_res_unpol(:,:) = lo_res_unpol(:,:) * colfac * spinavg * quarkcolavg**2
190 
191 RETURN

◆ evalamp_qbarbbar_th()

subroutine, public modthiggs::evalamp_qbarbbar_th ( real(8), dimension(1:4,1:9)  MomExt,
real(8), dimension(-6:6,-6:6)  LO_Res_Unpol 
)

Definition at line 198 of file mod_THiggs.F90.

198 use modmisc
199 implicit none
200 real(8) :: MomExt(1:4,1:9),MomExtFlat(1:7,1:4),p4Dp5,p4Dp7,LO_Res_UnPol(-6:6,-6:6),s(10,10),p2Dp3,MomExtFlatDK(1:10,1:4)
201 complex(8) :: za(10,10),zb(10,10),LOAmp(-6:6,-6:6,1:2),decay_amp(1:2)
202 real(8) :: s12,s13,s1e4,s1k4,s15,s23,s2e4,s2k4,s25,s3e4,s3k4,s35,se45,sk45,se4k4,ColFac
203 integer :: j
204 integer, parameter :: inLeft=1,inright=2,hbos=3,t=4, qout=5, b=6,w=7,lep=8,nu=9
205 
206 
207 
208 ! setup momenta for spinor helicity products
209  p4dp5=momext(1,qout)*momext(1,t)-momext(2,qout)*momext(2,t)-momext(3,qout)*momext(3,t)-momext(4,qout)*momext(4,t)
210  p4dp7=momext(1,lep)*momext(1,t)-momext(2,lep)*momext(2,t)-momext(3,lep)*momext(3,t)-momext(4,lep)*momext(4,t)
211  p2dp3=momext(1,inright)*momext(1,hbos)-momext(2,inright)*momext(2,hbos)-momext(3,inright)*momext(3,hbos)-momext(4,inright)*momext(4,hbos)
212  momextflat(1,1:4)=momext(1:4,inleft)
213  momextflat(2,1:4)=momext(1:4,inright)
214  momextflat(3,1:4)=m_reso**2/2d0/p2dp3*momext(1:4,inright)
215  momextflat(4,1:4)=momext(1:4,hbos)-momextflat(3,1:4)
216  momextflat(5,1:4)=m_top**2*momext(1:4,qout)/2d0/p4dp5
217  momextflat(6,1:4)=momext(1:4,t)-momextflat(5,1:4)
218  momextflat(7,1:4)=momext(1:4,qout)
219 
220  ! use different flattened momenta for anti-top decays
221  IF (topdecays .NE. 0) THEN
222  momextflatdk(1:7,1:4)=momextflat(1:7,1:4)
223  ! overwrite flattened top momenta
224  momextflatdk(5,1:4)=m_top**2*momext(1:4,lep)/2d0/p4dp7
225  momextflatdk(6,1:4)=momext(1:4,t)-momextflatdk(5,1:4)
226  ! top decay products
227  momextflatdk(8,1:4)=momext(1:4,b)
228  momextflatdk(9,1:4)=momext(1:4,lep)
229  momextflatdk(10,1:4)=momext(1:4,nu)
230 
231  ENDIF
232 
233 
234 
235 ! Get spinor products
236  za=0d0
237  zb=0d0
238  s=0d0
239  IF (topdecays .EQ. 0) THEN
240  do j=1,7
241  call convert_to_mcfm(momextflat(j,1:4))
242  enddo
243  momextflat(1,1:4)=-momextflat(1,1:4)
244  momextflat(2,1:4)=-momextflat(2,1:4)
245 
246 ! call spinoru(7,MomExtFlat,za,zb,s)
247  call spinoru(momextflat,za,zb,s)
248  ELSE
249  do j=1,10
250  call convert_to_mcfm(momextflatdk(j,1:4))
251  enddo
252  momextflatdk(1,1:4)=-momextflatdk(1,1:4)
253  momextflatdk(2,1:4)=-momextflatdk(2,1:4)
254 
255 ! call spinoru(10,MomExtFlatDK,za,zb,s)
256  call spinoru(momextflatdk,za,zb,s)
257  ENDIF
258 
259  loamp=(0d0,0d0)
260  IF (topdecays .EQ. 0) THEN
261  decay_amp(1)=dcmplx(1d0,0d0)
262  decay_amp(2)=dcmplx(1d0,0d0)
263  ELSE
264  call atdecay(5,6,8,9,10,za,zb,decay_amp)
265 
266  ENDIF
267  call dbbarhtbaruamp(1,2,3,4,5,6,7,za,zb,s,decay_amp,loamp(dn_,abot_,1:2))
268  call dbbarhtbaruamp(2,1,3,4,5,6,7,za,zb,s,decay_amp,loamp(abot_,dn_,1:2))
269  call dbbarhtbaruamp(7,2,3,4,5,6,1,za,zb,s,decay_amp,loamp(aup_,abot_,1:2))
270  call dbbarhtbaruamp(7,1,3,4,5,6,2,za,zb,s,decay_amp,loamp(abot_,aup_,1:2))
271 
272  ! coupling factors in decay incl in tdecay function
273  loamp(:,:,:) = loamp(:,:,:) * 2d0*gwsq/vev*ci
274 
275  lo_res_unpol(dn_,abot_) = cdabs(loamp(dn_,abot_,1))**2 + cdabs(loamp(dn_,abot_,2))**2
276  lo_res_unpol(abot_,dn_) = cdabs(loamp(abot_,dn_,1))**2 + cdabs(loamp(abot_,dn_,2))**2
277  lo_res_unpol(str_,abot_) = lo_res_unpol(dn_,abot_)
278  lo_res_unpol(abot_,str_) = lo_res_unpol(abot_,dn_)
279 
280  lo_res_unpol(aup_,abot_) = cdabs(loamp(aup_,abot_,1))**2 + cdabs(loamp(aup_,abot_,2))**2
281  lo_res_unpol(abot_,aup_) = cdabs(loamp(abot_,aup_,1))**2 + cdabs(loamp(abot_,aup_,2))**2
282  lo_res_unpol(achm_,abot_)= lo_res_unpol(aup_,abot_)
283  lo_res_unpol(abot_,achm_)= lo_res_unpol(abot_,aup_)
284 
285  colfac=9d0
286  lo_res_unpol(:,:) = lo_res_unpol(:,:) * colfac * spinavg * quarkcolavg**2
287 
288 RETURN

◆ evalamp_qqb_tbarhb()

subroutine, public modthiggs::evalamp_qqb_tbarhb ( real(8), dimension(1:4,1:9)  MomExt,
real(8), dimension(-6:6,-6:6)  LO_Res_Unpol 
)

Definition at line 380 of file mod_THiggs.F90.

380 use modmisc
381 implicit none
382 real(8) :: MomExt(1:4,1:9),MomExtFlat(1:7,1:4),p4Dp5,p4Dp7,LO_Res_UnPol(-6:6,-6:6),s(10,10),p2Dp3,MomExtFlatDK(1:10,1:4)
383 complex(8) :: za(10,10),zb(10,10),LOAmp(-6:6,-6:6,1:2),decay_amp(1:2)
384 real(8) :: s12,s13,s1e4,s1k4,s15,s23,s2e4,s2k4,s25,s3e4,s3k4,s35,se45,sk45,se4k4,ColFac
385 integer :: j
386 integer, parameter :: inLeft=1,inright=2,hbos=3,t=4, bout=5, bdk=6,w=7,lep=8,nu=9
387 
388 
389 
390 ! setup momenta for spinor helicity products
391  p4dp5=momext(1,bout)*momext(1,t)-momext(2,bout)*momext(2,t)-momext(3,bout)*momext(3,t)-momext(4,bout)*momext(4,t)
392  p4dp7=momext(1,lep)*momext(1,t)-momext(2,lep)*momext(2,t)-momext(3,lep)*momext(3,t)-momext(4,lep)*momext(4,t)
393  p2dp3=momext(1,inright)*momext(1,hbos)-momext(2,inright)*momext(2,hbos)-momext(3,inright)*momext(3,hbos)-momext(4,inright)*momext(4,hbos)
394  momextflat(1,1:4)=momext(1:4,inleft)
395  momextflat(2,1:4)=momext(1:4,inright)
396  momextflat(3,1:4)=m_reso**2/2d0/p2dp3*momext(1:4,inright)
397  momextflat(4,1:4)=momext(1:4,hbos)-momextflat(3,1:4)
398  momextflat(5,1:4)=m_top**2*momext(1:4,bout)/2d0/p4dp5
399  momextflat(6,1:4)=momext(1:4,t)-momextflat(5,1:4)
400  momextflat(7,1:4)=momext(1:4,bout)
401 
402  ! use different flattened momenta for anti-top decays
403  IF (topdecays .NE. 0) THEN
404  momextflatdk(1:7,1:4)=momextflat(1:7,1:4)
405  ! overwrite flattened top momenta
406  momextflatdk(5,1:4)=m_top**2*momext(1:4,lep)/2d0/p4dp7
407  momextflatdk(6,1:4)=momext(1:4,t)-momextflatdk(5,1:4)
408  ! top decay products
409  momextflatdk(8,1:4)=momext(1:4,bdk)
410  momextflatdk(9,1:4)=momext(1:4,lep)
411  momextflatdk(10,1:4)=momext(1:4,nu)
412 
413  ENDIF
414 
415 
416 
417 ! Get spinor products
418  za=0d0
419  zb=0d0
420  s=0d0
421  IF (topdecays .EQ. 0) THEN
422  do j=1,7
423  call convert_to_mcfm(momextflat(j,1:4))
424  enddo
425  momextflat(1,1:4)=-momextflat(1,1:4)
426  momextflat(2,1:4)=-momextflat(2,1:4)
427 
428 ! call spinoru(7,MomExtFlat,za,zb,s)
429  call spinoru(momextflat,za,zb,s)
430  ELSE
431  do j=1,10
432  call convert_to_mcfm(momextflatdk(j,1:4))
433  enddo
434  momextflatdk(1,1:4)=-momextflatdk(1,1:4)
435  momextflatdk(2,1:4)=-momextflatdk(2,1:4)
436 
437 ! call spinoru(10,MomExtFlatDK,za,zb,s)
438  call spinoru(momextflatdk,za,zb,s)
439  ENDIF
440 
441  loamp=(0d0,0d0)
442  IF (topdecays .EQ. 0) THEN
443  decay_amp(1)=dcmplx(1d0,0d0)
444  decay_amp(2)=dcmplx(1d0,0d0)
445  ELSE
446  call atdecay(5,6,8,9,10,za,zb,decay_amp)
447 
448  ENDIF
449  call ubard_htbarbamp(1,2,3,4,5,6,7,za,zb,s,decay_amp,loamp(aup_,dn_,1:2))
450  call ubard_htbarbamp(2,1,3,4,5,6,7,za,zb,s,decay_amp,loamp(dn_,aup_,1:2))
451 
452 
453  ! coupling factors in decay incl in tdecay function
454  loamp(:,:,:) = loamp(:,:,:) * 2d0*gwsq/vev*ci
455 
456  lo_res_unpol(dn_,aup_) = cdabs(loamp(dn_,aup_,1))**2 + cdabs(loamp(dn_,aup_,2))**2
457  lo_res_unpol(aup_,dn_) = cdabs(loamp(aup_,dn_,1))**2 + cdabs(loamp(aup_,dn_,2))**2
458  lo_res_unpol(str_,achm_) = lo_res_unpol(dn_,aup_)
459  lo_res_unpol(achm_,str_) = lo_res_unpol(aup_,dn_)
460 
461  colfac=9d0
462  lo_res_unpol(:,:) = lo_res_unpol(:,:) * colfac * spinavg * quarkcolavg**2
463 
464 RETURN

◆ evalamp_qqb_thbbar()

subroutine, public modthiggs::evalamp_qqb_thbbar ( real(8), dimension(1:4,1:9)  MomExt,
real(8), dimension(-6:6,-6:6)  LO_Res_Unpol 
)

Definition at line 295 of file mod_THiggs.F90.

295 use modmisc
296 implicit none
297 real(8) :: MomExt(1:4,1:9),MomExtFlat(1:7,1:4),p4Dp5,p4Dp7,LO_Res_UnPol(-6:6,-6:6),s(10,10),p2Dp3,MomExtFlatDK(1:10,1:4)
298 complex(8) :: za(10,10),zb(10,10),LOAmp(-6:6,-6:6,1:2),decay_amp(1:2)
299 real(8) :: s12,s13,s1e4,s1k4,s15,s23,s2e4,s2k4,s25,s3e4,s3k4,s35,se45,sk45,se4k4,ColFac
300 integer :: j
301 integer, parameter :: inLeft=1,inright=2,hbos=3,t=4, bout=5, bdk=6,w=7,lep=8,nu=9
302 
303 
304 ! setup momenta for spinor helicity products -- undecayed tops
305  p4dp5=momext(1,bout)*momext(1,t)-momext(2,bout)*momext(2,t)-momext(3,bout)*momext(3,t)-momext(4,bout)*momext(4,t)
306  p4dp7=momext(1,lep)*momext(1,t)-momext(2,lep)*momext(2,t)-momext(3,lep)*momext(3,t)-momext(4,lep)*momext(4,t)
307  p2dp3=momext(1,inright)*momext(1,hbos)-momext(2,inright)*momext(2,hbos)-momext(3,inright)*momext(3,hbos)-momext(4,inright)*momext(4,hbos)
308 
309  momextflat(1,1:4)=momext(1:4,inleft)
310  momextflat(2,1:4)=momext(1:4,inright)
311  momextflat(3,1:4)=m_reso**2/2d0/p2dp3*momext(1:4,inright)
312  momextflat(4,1:4)=momext(1:4,hbos)-momextflat(3,1:4)
313  momextflat(5,1:4)=m_top**2*momext(1:4,bout)/2d0/p4dp5
314  momextflat(6,1:4)=momext(1:4,t)-momextflat(5,1:4)
315  momextflat(7,1:4)=momext(1:4,bout)
316 
317  ! use different flattened momenta for top decays
318  IF (topdecays .NE. 0) THEN
319  momextflatdk(1:7,1:4)=momextflat(1:7,1:4)
320 ! ! overwrite flattened top momenta
321  momextflatdk(5,1:4)=m_top**2*momext(1:4,lep)/2d0/p4dp7
322  momextflatdk(6,1:4)=momext(1:4,t)-momextflatdk(5,1:4)
323  ! top decay products
324  momextflatdk(8,1:4)=momext(1:4,bdk)
325  momextflatdk(9,1:4)=momext(1:4,lep)
326  momextflatdk(10,1:4)=momext(1:4,nu)
327  ENDIF
328 
329 
330 ! Get spinor products
331  za=0d0
332  zb=0d0
333  s=0d0
334  IF (topdecays .EQ. 0) THEN
335  do j=1,7
336  call convert_to_mcfm(momextflat(j,1:4))
337  enddo
338  momextflat(1,1:4)=-momextflat(1,1:4)
339  momextflat(2,1:4)=-momextflat(2,1:4)
340 
341 ! call spinoru(7,MomExtFlat,za,zb,s)
342  call spinoru(momextflat,za,zb,s)
343  ELSE
344  do j=1,10
345  call convert_to_mcfm(momextflatdk(j,1:4))
346  enddo
347  momextflatdk(1,1:4)=-momextflatdk(1,1:4)
348  momextflatdk(2,1:4)=-momextflatdk(2,1:4)
349 
350 ! call spinoru(10,MomExtFlatDK,za,zb,s)
351  call spinoru(momextflatdk,za,zb,s)
352  ENDIF
353 
354  loamp(:,:,:)=(0d0,0d0)
355  IF (topdecays .EQ. 0) THEN
356  decay_amp(1)=dcmplx(1d0,0d0)
357  decay_amp(2)=dcmplx(1d0,0d0)
358  ELSE
359  call tdecay(5,6,8,9,10,za,zb,decay_amp)
360  ENDIF
361  call udbar_htbbaramp(1,2,3,4,5,6,7,za,zb,s,decay_amp,loamp(up_,adn_,1:2))
362  call udbar_htbbaramp(2,1,3,4,5,6,7,za,zb,s,decay_amp,loamp(adn_,up_,1:2))
363  ! coupling factors in decay incl in tdecay function
364  loamp(:,:,:) = loamp(:,:,:) * 2d0*gwsq/vev*ci
365 
366  lo_res_unpol(up_,adn_) = cdabs(loamp(up_,adn_,1))**2 + cdabs(loamp(up_,adn_,2))**2
367  lo_res_unpol(adn_,up_) = cdabs(loamp(adn_,up_,1))**2 + cdabs(loamp(adn_,up_,2))**2
368  lo_res_unpol(chm_,astr_) = lo_res_unpol(up_,adn_)
369  lo_res_unpol(astr_,chm_) = lo_res_unpol(adn_,up_)
370 
371  colfac=9d0
372  lo_res_unpol(:,:) = lo_res_unpol(:,:) * colfac * spinavg * quarkcolavg**2
373 
374 
375 RETURN

◆ evalxsec_pp_th()

subroutine, public modthiggs::evalxsec_pp_th ( real(8), dimension(1:4,1:9), intent(in)  Mom,
integer, intent(in)  Channel,
real(8), dimension(-5:5,-5:5), intent(out)  Res 
)

Definition at line 16 of file mod_THiggs.F90.

16 implicit none
17 real(8), intent(in) :: Mom(1:4,1:9)
18 integer, intent(in) :: Channel! 0=s+t channel, 1=t channel, 2=s channel
19 real(8), intent(out) :: Res(-5:5,-5:5)
20 real(8) :: MatElSq_GG,MatElSq_QQB,MatElSq_QBQ
21 real(8) :: LO_Res_Unpol(-6:6,-6:6)
22 integer :: i,j
23 integer, parameter :: inLeft=1,inright=2,hbos=3,t=4, qout=5, b=6,w=7,lep=8,nu=9
24 
25 
26  res(:,:) = 0d0
27  if( channel.eq.1 .or. channel.eq.0 ) then
28  lo_res_unpol(:,:)=0d0
29  call evalamp_qb_th(mom,lo_res_unpol) ! Computes u-b, b-u, db-b, b-db initial states
30  do i=-6,6; do j=-6,6
31  if(abs(i).ne.abs(top_) .and. abs(j).ne.abs(top_)) then
32  res(i,j) = res(i,j) + lo_res_unpol(converttopartindex(i),converttopartindex(j))
33  endif
34  enddo; enddo
35 
36  lo_res_unpol(:,:)=0d0
37  call evalamp_qbarbbar_th(mom,lo_res_unpol) ! Computes ub-bb, bb-ub, d-bb, bb-d initial states
38  do i=-6,6; do j=-6,6
39  if(abs(i).ne.abs(top_) .and. abs(j).ne.abs(top_)) then
40  res(i,j) = res(i,j) + lo_res_unpol(converttopartindex(i),converttopartindex(j))
41  endif
42  enddo; enddo
43  endif
44  if( channel.eq.2 .or. channel.eq.0 ) then
45  lo_res_unpol(:,:)=0d0
46  call evalamp_qqb_thbbar(mom,lo_res_unpol) ! Computes u-db, db-u, c-sb, sb-c initial states
47  do i=-6,6; do j=-6,6
48  if(abs(i).ne.abs(top_) .and. abs(j).ne.abs(top_)) then
49  res(i,j) = res(i,j) + lo_res_unpol(converttopartindex(i),converttopartindex(j))
50  endif
51  enddo; enddo
52 
53  lo_res_unpol(:,:)=0d0
54  call evalamp_qqb_tbarhb(mom,lo_res_unpol) ! Computes ub-d, d-ub, cb-s, s-cb initial states
55  do i=-6,6; do j=-6,6
56  if(abs(i).ne.abs(top_) .and. abs(j).ne.abs(top_)) then
57  res(i,j) = res(i,j) + lo_res_unpol(converttopartindex(i),converttopartindex(j))
58  endif
59  enddo; enddo
60  endif
61  return

◆ evalxsec_pp_thw()

subroutine, public modthiggs::evalxsec_pp_thw ( real(8), dimension(1:4,1:11), intent(in)  Mom,
real(8), dimension(-5:5,-5:5), intent(out)  Res 
)

Definition at line 65 of file mod_THiggs.F90.

65 implicit none
66 real(8), intent(in) :: Mom(1:4,1:11) !additional Mom(1:4,10:11) are lep and nu from W-decay in tw channel
67 real(8), intent(out) :: Res(-5:5,-5:5)
68 real(8) :: LO_Res_Unpol(-6:6,-6:6)
69 integer :: i,j
70 integer, parameter :: inLeft=1,inright=2,hbos=3,t=4, qout=5, b=6,w=7,lep=8,nu=9, lepw=10, nuw=11
71 
72  lo_res_unpol(:,:)=0d0
73  call evalamp_gb_twmh(mom,lo_res_unpol) ! Computes g-b, b-g initial states
74  do i=-6,6; do j=-6,6
75  if(abs(i).ne.abs(top_) .and. abs(j).ne.abs(top_)) then
76  res(i,j) = res(i,j) + lo_res_unpol(converttopartindex(i),converttopartindex(j))
77  endif
78  enddo; enddo
79 
80  lo_res_unpol(:,:)=0d0
81  call evalamp_gbb_tbwph(mom,lo_res_unpol) ! Computes g-bb, bb-g initial states
82  do i=-6,6; do j=-6,6
83  if(abs(i).ne.abs(top_) .and. abs(j).ne.abs(top_)) then
84  res(i,j) = res(i,j) + lo_res_unpol(converttopartindex(i),converttopartindex(j))
85  endif
86  enddo; enddo
87 
88  return

◆ gb_twmhamp()

subroutine modthiggs::gb_twmhamp ( real(8), dimension(4)  Pg,
complex(8), dimension(4)  Eg,
real(8), dimension(4)  Pb,
complex(8), dimension(4)  UBb,
real(8), dimension(4)  Pt,
complex(8), dimension(4)  UBt,
real(8), dimension(4)  Pw,
complex(8), dimension(4)  ECw,
real(8), dimension(4)  Ph,
complex(8)  amp 
)
private

Definition at line 899 of file mod_THiggs.F90.

899 ! amplitude for production g(Pg)+b(Pb)->t(Pt)+wm(Pw)+h(Ph)
900 ! allowing for scalar & pseudoscalar couplings of Higgs to top (Spinors and Pol-Vectors in Dirac representation!)
901  implicit none
902  real(8) :: Pg(4),Pb(4),Pt(4),Pw(4),Ph(4)
903  complex(8) :: UBb(4),Eg(4),UBt(4),ECw(4)
904  complex(8) :: amp,ampts,ampws,amptt1,amptt2,ampwt
905  real(8) :: mt,mw,v
906  complex(8) :: kap,kapt,a1WW,a2WW,a4WW
907 
908 
909  mw=m_w
910  mt=m_top
911  v=vev
912 
913  kap=kappa
914  kapt=kappa_tilde
915  a1ww=ghz1
916  a2ww=ghz2
917  a4ww=ghz4
918 
919 
920  ampts = -((gs*mw*(-(dconjg(ubb(2))*(eg(1)*((pb(1) + pg(1))*(mt*(ecw(2) -&
921  & dcmplx(0d0,1d0)*ecw(3))*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) +&
922  & (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
923  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
924  & mt*(ecw(1) - ecw(4))*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) -&
925  & dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
926  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
927  & kapt*ubt(4))) + mt*(ecw(1) - ecw(4))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
928  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
929  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
930  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + (ecw(2) -&
931  & dcmplx(0d0,1d0)*ecw(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
932  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
933  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
934  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) + (pb(4) +&
935  & pg(4))*(mt*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*((ph(4) + pt(4))*(kapt*ubt(1) -&
936  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
937  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
938  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(1) - ecw(4))*((ph(2) + pt(2) -&
939  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
940  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
941  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(1) -&
942  & ecw(4))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) +&
943  & dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2) -&
944  & dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
945  & kapt*ubt(4))) + (ecw(2) - dcmplx(0d0,1d0)*ecw(3))*(mt*(mt - ph(1) -&
946  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
947  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
948  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) -&
949  & (pb(2) + pg(2) - dcmplx(0d0,1d0)*(pb(3) + pg(3)))*(mt*(ecw(1) + ecw(4))*((ph(4) +&
950  & pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) +&
951  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
952  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
953  & mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
954  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
955  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
956  & kapt*ubt(4))) + mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
957  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
958  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
959  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + (ecw(1) + ecw(4))*(mt*(mt -&
960  & ph(1) - pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
961  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
962  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) +&
963  & eg(4)*(-((pb(1) + pg(1))*(mt*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*((ph(4) +&
964  & pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) +&
965  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
966  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
967  & mt*(ecw(1) - ecw(4))*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) -&
968  & dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
969  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
970  & kapt*ubt(4))) + mt*(ecw(1) - ecw(4))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
971  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
972  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
973  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + (ecw(2) -&
974  & dcmplx(0d0,1d0)*ecw(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
975  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
976  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
977  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) - (pb(4) +&
978  & pg(4))*(mt*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*((ph(4) + pt(4))*(kapt*ubt(1) -&
979  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
980  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
981  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(1) - ecw(4))*((ph(2) + pt(2) -&
982  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
983  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
984  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(1) -&
985  & ecw(4))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) +&
986  & dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2) -&
987  & dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
988  & kapt*ubt(4))) + (ecw(2) - dcmplx(0d0,1d0)*ecw(3))*(mt*(mt - ph(1) -&
989  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
990  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
991  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) +&
992  & (pb(2) + pg(2) - dcmplx(0d0,1d0)*(pb(3) + pg(3)))*(mt*(ecw(1) + ecw(4))*((ph(4) +&
993  & pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) +&
994  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
995  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
996  & mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
997  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
998  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
999  & kapt*ubt(4))) + mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
1000  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
1001  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
1002  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + (ecw(1) + ecw(4))*(mt*(mt -&
1003  & ph(1) - pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
1004  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
1005  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) +&
1006  & (eg(2) - dcmplx(0d0,1d0)*eg(3))*(-((pb(2) + pg(2) + dcmplx(0d0,1d0)*(pb(3) +&
1007  & pg(3)))*(mt*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*((ph(4) + pt(4))*(kapt*ubt(1) -&
1008  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
1009  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
1010  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(1) - ecw(4))*((ph(2) + pt(2) -&
1011  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
1012  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
1013  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(1) -&
1014  & ecw(4))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) +&
1015  & dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2) -&
1016  & dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1017  & kapt*ubt(4))) + (ecw(2) - dcmplx(0d0,1d0)*ecw(3))*(mt*(mt - ph(1) -&
1018  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
1019  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
1020  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) +&
1021  & (pb(1) + pg(1))*(mt*(ecw(1) + ecw(4))*((ph(4) + pt(4))*(kapt*ubt(1) -&
1022  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
1023  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
1024  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((ph(2) + pt(2) -&
1025  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
1026  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
1027  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(2) +&
1028  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
1029  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
1030  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1031  & kapt*ubt(4))) + (ecw(1) + ecw(4))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1032  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1033  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1034  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) - (pb(4) +&
1035  & pg(4))*(mt*(ecw(1) + ecw(4))*((ph(4) + pt(4))*(kapt*ubt(1) -&
1036  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
1037  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
1038  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((ph(2) + pt(2) -&
1039  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
1040  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
1041  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(2) +&
1042  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
1043  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
1044  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1045  & kapt*ubt(4))) + (ecw(1) + ecw(4))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1046  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1047  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1048  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))))) -&
1049  & dconjg(ubb(4))*(eg(1)*((pb(1) + pg(1))*(mt*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*((ph(4) +&
1050  & pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) +&
1051  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
1052  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
1053  & mt*(ecw(1) - ecw(4))*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) -&
1054  & dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
1055  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1056  & kapt*ubt(4))) + mt*(ecw(1) - ecw(4))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
1057  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
1058  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
1059  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + (ecw(2) -&
1060  & dcmplx(0d0,1d0)*ecw(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1061  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1062  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1063  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) + (pb(4) +&
1064  & pg(4))*(mt*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*((ph(4) + pt(4))*(kapt*ubt(1) -&
1065  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
1066  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
1067  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(1) - ecw(4))*((ph(2) + pt(2) -&
1068  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
1069  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
1070  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(1) -&
1071  & ecw(4))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) +&
1072  & dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2) -&
1073  & dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1074  & kapt*ubt(4))) + (ecw(2) - dcmplx(0d0,1d0)*ecw(3))*(mt*(mt - ph(1) -&
1075  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
1076  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
1077  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) -&
1078  & (pb(2) + pg(2) - dcmplx(0d0,1d0)*(pb(3) + pg(3)))*(mt*(ecw(1) + ecw(4))*((ph(4) +&
1079  & pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) +&
1080  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
1081  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
1082  & mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
1083  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
1084  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1085  & kapt*ubt(4))) + mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
1086  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
1087  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
1088  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + (ecw(1) + ecw(4))*(mt*(mt -&
1089  & ph(1) - pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
1090  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
1091  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) +&
1092  & eg(4)*(-((pb(1) + pg(1))*(mt*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*((ph(4) +&
1093  & pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) +&
1094  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
1095  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
1096  & mt*(ecw(1) - ecw(4))*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) -&
1097  & dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
1098  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1099  & kapt*ubt(4))) + mt*(ecw(1) - ecw(4))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
1100  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
1101  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
1102  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + (ecw(2) -&
1103  & dcmplx(0d0,1d0)*ecw(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1104  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1105  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1106  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) - (pb(4) +&
1107  & pg(4))*(mt*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*((ph(4) + pt(4))*(kapt*ubt(1) -&
1108  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
1109  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
1110  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(1) - ecw(4))*((ph(2) + pt(2) -&
1111  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
1112  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
1113  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(1) -&
1114  & ecw(4))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) +&
1115  & dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2) -&
1116  & dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1117  & kapt*ubt(4))) + (ecw(2) - dcmplx(0d0,1d0)*ecw(3))*(mt*(mt - ph(1) -&
1118  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
1119  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
1120  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) +&
1121  & (pb(2) + pg(2) - dcmplx(0d0,1d0)*(pb(3) + pg(3)))*(mt*(ecw(1) + ecw(4))*((ph(4) +&
1122  & pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) +&
1123  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
1124  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
1125  & mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
1126  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
1127  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1128  & kapt*ubt(4))) + mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
1129  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
1130  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
1131  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + (ecw(1) + ecw(4))*(mt*(mt -&
1132  & ph(1) - pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
1133  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
1134  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) +&
1135  & (eg(2) - dcmplx(0d0,1d0)*eg(3))*(-((pb(2) + pg(2) + dcmplx(0d0,1d0)*(pb(3) +&
1136  & pg(3)))*(mt*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*((ph(4) + pt(4))*(kapt*ubt(1) -&
1137  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
1138  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
1139  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(1) - ecw(4))*((ph(2) + pt(2) -&
1140  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
1141  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
1142  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(1) -&
1143  & ecw(4))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) +&
1144  & dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2) -&
1145  & dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1146  & kapt*ubt(4))) + (ecw(2) - dcmplx(0d0,1d0)*ecw(3))*(mt*(mt - ph(1) -&
1147  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
1148  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
1149  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) +&
1150  & (pb(1) + pg(1))*(mt*(ecw(1) + ecw(4))*((ph(4) + pt(4))*(kapt*ubt(1) -&
1151  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
1152  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
1153  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((ph(2) + pt(2) -&
1154  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
1155  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
1156  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(2) +&
1157  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
1158  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
1159  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1160  & kapt*ubt(4))) + (ecw(1) + ecw(4))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1161  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1162  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1163  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) - (pb(4) +&
1164  & pg(4))*(mt*(ecw(1) + ecw(4))*((ph(4) + pt(4))*(kapt*ubt(1) -&
1165  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
1166  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
1167  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((ph(2) + pt(2) -&
1168  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
1169  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
1170  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(2) +&
1171  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
1172  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
1173  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1174  & kapt*ubt(4))) + (ecw(1) + ecw(4))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1175  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1176  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1177  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))))) -&
1178  & dconjg(ubb(1))*(-((eg(2) + dcmplx(0d0,1d0)*eg(3))*(-((pb(1) + pg(1))*(mt*(ecw(2) -&
1179  & dcmplx(0d0,1d0)*ecw(3))*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) +&
1180  & (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
1181  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
1182  & mt*(ecw(1) - ecw(4))*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) -&
1183  & dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
1184  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1185  & kapt*ubt(4))) + mt*(ecw(1) - ecw(4))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
1186  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
1187  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
1188  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + (ecw(2) -&
1189  & dcmplx(0d0,1d0)*ecw(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1190  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1191  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1192  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) - (pb(4) +&
1193  & pg(4))*(mt*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*((ph(4) + pt(4))*(kapt*ubt(1) -&
1194  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
1195  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
1196  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(1) - ecw(4))*((ph(2) + pt(2) -&
1197  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
1198  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
1199  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(1) -&
1200  & ecw(4))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) +&
1201  & dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2) -&
1202  & dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1203  & kapt*ubt(4))) + (ecw(2) - dcmplx(0d0,1d0)*ecw(3))*(mt*(mt - ph(1) -&
1204  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
1205  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
1206  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) +&
1207  & (pb(2) + pg(2) - dcmplx(0d0,1d0)*(pb(3) + pg(3)))*(mt*(ecw(1) + ecw(4))*((ph(4) +&
1208  & pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) +&
1209  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
1210  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
1211  & mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
1212  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
1213  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1214  & kapt*ubt(4))) + mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
1215  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
1216  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
1217  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + (ecw(1) + ecw(4))*(mt*(mt -&
1218  & ph(1) - pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
1219  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
1220  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))))&
1221  & + eg(1)*(-((pb(2) + pg(2) + dcmplx(0d0,1d0)*(pb(3) + pg(3)))*(mt*(ecw(2) -&
1222  & dcmplx(0d0,1d0)*ecw(3))*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) +&
1223  & (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
1224  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
1225  & mt*(ecw(1) - ecw(4))*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) -&
1226  & dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
1227  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1228  & kapt*ubt(4))) + mt*(ecw(1) - ecw(4))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
1229  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
1230  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
1231  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + (ecw(2) -&
1232  & dcmplx(0d0,1d0)*ecw(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1233  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1234  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1235  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) + (pb(1) +&
1236  & pg(1))*(mt*(ecw(1) + ecw(4))*((ph(4) + pt(4))*(kapt*ubt(1) -&
1237  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
1238  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
1239  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((ph(2) + pt(2) -&
1240  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
1241  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
1242  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(2) +&
1243  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
1244  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
1245  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1246  & kapt*ubt(4))) + (ecw(1) + ecw(4))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1247  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1248  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1249  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) - (pb(4) +&
1250  & pg(4))*(mt*(ecw(1) + ecw(4))*((ph(4) + pt(4))*(kapt*ubt(1) -&
1251  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
1252  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
1253  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((ph(2) + pt(2) -&
1254  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
1255  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
1256  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(2) +&
1257  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
1258  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
1259  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1260  & kapt*ubt(4))) + (ecw(1) + ecw(4))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1261  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1262  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1263  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) + eg(4)*(-((pb(2) + pg(2)&
1264  & + dcmplx(0d0,1d0)*(pb(3) + pg(3)))*(mt*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*((ph(4) +&
1265  & pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) +&
1266  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
1267  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
1268  & mt*(ecw(1) - ecw(4))*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) -&
1269  & dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
1270  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1271  & kapt*ubt(4))) + mt*(ecw(1) - ecw(4))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
1272  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
1273  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
1274  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + (ecw(2) -&
1275  & dcmplx(0d0,1d0)*ecw(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1276  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1277  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1278  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) + (pb(1) +&
1279  & pg(1))*(mt*(ecw(1) + ecw(4))*((ph(4) + pt(4))*(kapt*ubt(1) -&
1280  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
1281  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
1282  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((ph(2) + pt(2) -&
1283  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
1284  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
1285  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(2) +&
1286  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
1287  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
1288  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1289  & kapt*ubt(4))) + (ecw(1) + ecw(4))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1290  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1291  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1292  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) - (pb(4) +&
1293  & pg(4))*(mt*(ecw(1) + ecw(4))*((ph(4) + pt(4))*(kapt*ubt(1) -&
1294  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
1295  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
1296  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((ph(2) + pt(2) -&
1297  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
1298  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
1299  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(2) +&
1300  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
1301  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
1302  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1303  & kapt*ubt(4))) + (ecw(1) + ecw(4))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1304  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1305  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1306  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))))) -&
1307  & dconjg(ubb(3))*(-((eg(2) + dcmplx(0d0,1d0)*eg(3))*(-((pb(1) + pg(1))*(mt*(ecw(2) -&
1308  & dcmplx(0d0,1d0)*ecw(3))*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) +&
1309  & (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
1310  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
1311  & mt*(ecw(1) - ecw(4))*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) -&
1312  & dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
1313  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1314  & kapt*ubt(4))) + mt*(ecw(1) - ecw(4))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
1315  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
1316  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
1317  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + (ecw(2) -&
1318  & dcmplx(0d0,1d0)*ecw(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1319  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1320  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1321  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) - (pb(4) +&
1322  & pg(4))*(mt*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*((ph(4) + pt(4))*(kapt*ubt(1) -&
1323  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
1324  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
1325  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(1) - ecw(4))*((ph(2) + pt(2) -&
1326  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
1327  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
1328  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(1) -&
1329  & ecw(4))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) +&
1330  & dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2) -&
1331  & dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1332  & kapt*ubt(4))) + (ecw(2) - dcmplx(0d0,1d0)*ecw(3))*(mt*(mt - ph(1) -&
1333  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
1334  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
1335  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) +&
1336  & (pb(2) + pg(2) - dcmplx(0d0,1d0)*(pb(3) + pg(3)))*(mt*(ecw(1) + ecw(4))*((ph(4) +&
1337  & pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) +&
1338  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
1339  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
1340  & mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
1341  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
1342  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1343  & kapt*ubt(4))) + mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
1344  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
1345  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
1346  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + (ecw(1) + ecw(4))*(mt*(mt -&
1347  & ph(1) - pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
1348  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
1349  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))))&
1350  & + eg(1)*(-((pb(2) + pg(2) + dcmplx(0d0,1d0)*(pb(3) + pg(3)))*(mt*(ecw(2) -&
1351  & dcmplx(0d0,1d0)*ecw(3))*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) +&
1352  & (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
1353  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
1354  & mt*(ecw(1) - ecw(4))*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) -&
1355  & dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
1356  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1357  & kapt*ubt(4))) + mt*(ecw(1) - ecw(4))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
1358  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
1359  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
1360  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + (ecw(2) -&
1361  & dcmplx(0d0,1d0)*ecw(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1362  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1363  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1364  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) + (pb(1) +&
1365  & pg(1))*(mt*(ecw(1) + ecw(4))*((ph(4) + pt(4))*(kapt*ubt(1) -&
1366  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
1367  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
1368  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((ph(2) + pt(2) -&
1369  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
1370  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
1371  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(2) +&
1372  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
1373  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
1374  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1375  & kapt*ubt(4))) + (ecw(1) + ecw(4))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1376  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1377  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1378  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) - (pb(4) +&
1379  & pg(4))*(mt*(ecw(1) + ecw(4))*((ph(4) + pt(4))*(kapt*ubt(1) -&
1380  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
1381  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
1382  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((ph(2) + pt(2) -&
1383  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
1384  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
1385  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(2) +&
1386  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
1387  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
1388  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1389  & kapt*ubt(4))) + (ecw(1) + ecw(4))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1390  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1391  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1392  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) + eg(4)*(-((pb(2) + pg(2)&
1393  & + dcmplx(0d0,1d0)*(pb(3) + pg(3)))*(mt*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*((ph(4) +&
1394  & pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) +&
1395  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
1396  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
1397  & mt*(ecw(1) - ecw(4))*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) -&
1398  & dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
1399  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1400  & kapt*ubt(4))) + mt*(ecw(1) - ecw(4))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
1401  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
1402  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
1403  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + (ecw(2) -&
1404  & dcmplx(0d0,1d0)*ecw(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1405  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1406  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1407  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) + (pb(1) +&
1408  & pg(1))*(mt*(ecw(1) + ecw(4))*((ph(4) + pt(4))*(kapt*ubt(1) -&
1409  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
1410  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
1411  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((ph(2) + pt(2) -&
1412  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
1413  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
1414  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(2) +&
1415  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
1416  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
1417  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1418  & kapt*ubt(4))) + (ecw(1) + ecw(4))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1419  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1420  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1421  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) - (pb(4) +&
1422  & pg(4))*(mt*(ecw(1) + ecw(4))*((ph(4) + pt(4))*(kapt*ubt(1) -&
1423  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
1424  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
1425  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((ph(2) + pt(2) -&
1426  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
1427  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
1428  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + mt*(ecw(2) +&
1429  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
1430  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
1431  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
1432  & kapt*ubt(4))) + (ecw(1) + ecw(4))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
1433  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
1434  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
1435  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) -&
1436  & kapt*mt*ubt(4))))))))/(sqrt2*v**2*(-(pb(1) + pg(1))**2 + (pb(2) + pg(2))**2 +&
1437  & (pb(3) + pg(3))**2 + (pb(4) + pg(4))**2)*(mt**2 - (ph(1) + pt(1))**2 + (ph(2) +&
1438  & pt(2))**2 + (ph(3) + pt(3))**2 + (ph(4) + pt(4))**2)))
1439 
1440  ampws = (dcmplx(0d0,-1d0)*gs*mw*(dconjg(ubb(1))*(eg(1)*((pb(1) +&
1441  & pg(1))*((a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
1442  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
1443  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
1444  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
1445  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
1446  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
1447  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
1448  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
1449  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
1450  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(1) +&
1451  & (a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
1452  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1453  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
1454  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1455  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
1456  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1457  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
1458  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1459  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
1460  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1461  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(2) + (a1ww*mw**2*(ecw(1) +&
1462  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1463  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
1464  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
1465  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
1466  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
1467  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
1468  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
1469  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
1470  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
1471  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(3) + (a1ww*mw**2*(ecw(2) +&
1472  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
1473  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
1474  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
1475  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
1476  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
1477  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
1478  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1479  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
1480  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1481  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(4)) - (pb(4) +&
1482  & pg(4))*((a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
1483  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
1484  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
1485  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
1486  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
1487  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
1488  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
1489  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
1490  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
1491  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(1) +&
1492  & (a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
1493  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1494  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
1495  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1496  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
1497  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1498  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
1499  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1500  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
1501  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1502  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(2) + (a1ww*mw**2*(ecw(1) +&
1503  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1504  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
1505  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
1506  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
1507  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
1508  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
1509  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
1510  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
1511  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
1512  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(3) + (a1ww*mw**2*(ecw(2) +&
1513  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
1514  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
1515  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
1516  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
1517  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
1518  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
1519  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1520  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
1521  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1522  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(4)) - (pb(2) + pg(2) +&
1523  & dcmplx(0d0,1d0)*(pb(3) + pg(3)))*((a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
1524  & 2*a2ww*(pw(2) - dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
1525  & pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
1526  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1527  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
1528  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1529  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
1530  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1531  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
1532  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1533  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(1) + (a1ww*mw**2*(ecw(1) -&
1534  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1535  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
1536  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
1537  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
1538  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
1539  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
1540  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
1541  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
1542  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(2) +&
1543  & (a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
1544  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1545  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
1546  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1547  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
1548  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1549  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
1550  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1551  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
1552  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1553  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(3) + (a1ww*mw**2*(ecw(1) -&
1554  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1555  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
1556  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
1557  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
1558  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
1559  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
1560  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
1561  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
1562  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(4))) +&
1563  & eg(4)*((pb(1) + pg(1))*((a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
1564  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
1565  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
1566  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
1567  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
1568  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
1569  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
1570  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
1571  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
1572  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(1) +&
1573  & (a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
1574  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1575  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
1576  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1577  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
1578  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1579  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
1580  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1581  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
1582  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1583  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(2) + (a1ww*mw**2*(ecw(1) +&
1584  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1585  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
1586  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
1587  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
1588  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
1589  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
1590  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
1591  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
1592  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
1593  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(3) + (a1ww*mw**2*(ecw(2) +&
1594  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
1595  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
1596  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
1597  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
1598  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
1599  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
1600  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1601  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
1602  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1603  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(4)) - (pb(4) +&
1604  & pg(4))*((a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
1605  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
1606  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
1607  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
1608  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
1609  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
1610  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
1611  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
1612  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
1613  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(1) +&
1614  & (a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
1615  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1616  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
1617  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1618  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
1619  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1620  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
1621  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1622  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
1623  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1624  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(2) + (a1ww*mw**2*(ecw(1) +&
1625  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1626  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
1627  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
1628  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
1629  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
1630  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
1631  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
1632  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
1633  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
1634  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(3) + (a1ww*mw**2*(ecw(2) +&
1635  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
1636  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
1637  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
1638  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
1639  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
1640  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
1641  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1642  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
1643  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1644  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(4)) - (pb(2) + pg(2) +&
1645  & dcmplx(0d0,1d0)*(pb(3) + pg(3)))*((a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
1646  & 2*a2ww*(pw(2) - dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
1647  & pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
1648  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1649  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
1650  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1651  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
1652  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1653  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
1654  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1655  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(1) + (a1ww*mw**2*(ecw(1) -&
1656  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1657  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
1658  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
1659  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
1660  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
1661  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
1662  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
1663  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
1664  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(2) +&
1665  & (a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
1666  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1667  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
1668  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1669  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
1670  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1671  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
1672  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1673  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
1674  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1675  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(3) + (a1ww*mw**2*(ecw(1) -&
1676  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1677  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
1678  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
1679  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
1680  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
1681  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
1682  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
1683  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
1684  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(4))) -&
1685  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*((pb(2) + pg(2) - dcmplx(0d0,1d0)*(pb(3) +&
1686  & pg(3)))*((a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
1687  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
1688  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
1689  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
1690  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
1691  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
1692  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
1693  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
1694  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
1695  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(1) +&
1696  & (a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
1697  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1698  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
1699  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1700  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
1701  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1702  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
1703  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1704  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
1705  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1706  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(2) + (a1ww*mw**2*(ecw(1) +&
1707  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1708  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
1709  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
1710  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
1711  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
1712  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
1713  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
1714  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
1715  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
1716  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(3) + (a1ww*mw**2*(ecw(2) +&
1717  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
1718  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
1719  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
1720  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
1721  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
1722  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
1723  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1724  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
1725  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1726  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(4)) - (pb(1) +&
1727  & pg(1))*((a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
1728  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1729  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
1730  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1731  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
1732  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1733  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
1734  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1735  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
1736  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1737  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(1) + (a1ww*mw**2*(ecw(1) -&
1738  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1739  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
1740  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
1741  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
1742  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
1743  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
1744  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
1745  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
1746  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(2) +&
1747  & (a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
1748  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1749  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
1750  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1751  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
1752  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1753  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
1754  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1755  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
1756  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1757  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(3) + (a1ww*mw**2*(ecw(1) -&
1758  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1759  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
1760  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
1761  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
1762  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
1763  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
1764  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
1765  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
1766  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(4)) - (pb(4)&
1767  & + pg(4))*((a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
1768  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1769  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
1770  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1771  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
1772  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1773  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
1774  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1775  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
1776  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1777  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(1) + (a1ww*mw**2*(ecw(1) -&
1778  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1779  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
1780  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
1781  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
1782  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
1783  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
1784  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
1785  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
1786  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(2) +&
1787  & (a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
1788  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1789  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
1790  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1791  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
1792  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1793  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
1794  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1795  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
1796  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1797  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(3) + (a1ww*mw**2*(ecw(1) -&
1798  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1799  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
1800  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
1801  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
1802  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
1803  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
1804  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
1805  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
1806  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(4)))) +&
1807  & dconjg(ubb(3))*(eg(1)*((pb(1) + pg(1))*((a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) +&
1808  & ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) -&
1809  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1))&
1810  & + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
1811  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
1812  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
1813  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
1814  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
1815  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
1816  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(1) +&
1817  & (a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
1818  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1819  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
1820  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1821  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
1822  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1823  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
1824  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1825  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
1826  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1827  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(2) + (a1ww*mw**2*(ecw(1) +&
1828  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1829  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
1830  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
1831  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
1832  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
1833  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
1834  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
1835  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
1836  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
1837  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(3) + (a1ww*mw**2*(ecw(2) +&
1838  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
1839  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
1840  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
1841  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
1842  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
1843  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
1844  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1845  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
1846  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1847  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(4)) - (pb(4) +&
1848  & pg(4))*((a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
1849  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
1850  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
1851  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
1852  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
1853  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
1854  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
1855  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
1856  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
1857  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(1) +&
1858  & (a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
1859  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1860  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
1861  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1862  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
1863  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1864  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
1865  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1866  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
1867  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1868  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(2) + (a1ww*mw**2*(ecw(1) +&
1869  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1870  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
1871  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
1872  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
1873  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
1874  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
1875  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
1876  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
1877  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
1878  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(3) + (a1ww*mw**2*(ecw(2) +&
1879  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
1880  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
1881  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
1882  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
1883  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
1884  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
1885  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1886  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
1887  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1888  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(4)) - (pb(2) + pg(2) +&
1889  & dcmplx(0d0,1d0)*(pb(3) + pg(3)))*((a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
1890  & 2*a2ww*(pw(2) - dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
1891  & pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
1892  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1893  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
1894  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1895  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
1896  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1897  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
1898  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1899  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(1) + (a1ww*mw**2*(ecw(1) -&
1900  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1901  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
1902  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
1903  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
1904  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
1905  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
1906  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
1907  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
1908  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(2) +&
1909  & (a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
1910  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1911  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
1912  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1913  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
1914  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1915  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
1916  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1917  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
1918  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1919  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(3) + (a1ww*mw**2*(ecw(1) -&
1920  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1921  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
1922  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
1923  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
1924  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
1925  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
1926  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
1927  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
1928  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(4))) +&
1929  & eg(4)*((pb(1) + pg(1))*((a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
1930  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
1931  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
1932  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
1933  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
1934  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
1935  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
1936  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
1937  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
1938  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(1) +&
1939  & (a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
1940  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1941  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
1942  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1943  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
1944  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1945  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
1946  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1947  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
1948  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1949  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(2) + (a1ww*mw**2*(ecw(1) +&
1950  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1951  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
1952  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
1953  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
1954  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
1955  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
1956  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
1957  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
1958  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
1959  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(3) + (a1ww*mw**2*(ecw(2) +&
1960  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
1961  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
1962  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
1963  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
1964  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
1965  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
1966  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1967  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
1968  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1969  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(4)) - (pb(4) +&
1970  & pg(4))*((a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
1971  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
1972  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
1973  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
1974  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
1975  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
1976  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
1977  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
1978  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
1979  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(1) +&
1980  & (a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
1981  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1982  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
1983  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
1984  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
1985  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
1986  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
1987  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
1988  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
1989  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
1990  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(2) + (a1ww*mw**2*(ecw(1) +&
1991  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
1992  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
1993  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
1994  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
1995  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
1996  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
1997  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
1998  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
1999  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
2000  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(3) + (a1ww*mw**2*(ecw(2) +&
2001  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
2002  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2003  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
2004  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2005  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
2006  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2007  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2008  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2009  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2010  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(4)) - (pb(2) + pg(2) +&
2011  & dcmplx(0d0,1d0)*(pb(3) + pg(3)))*((a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
2012  & 2*a2ww*(pw(2) - dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
2013  & pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2014  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2015  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2016  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2017  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2018  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2019  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2020  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2021  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(1) + (a1ww*mw**2*(ecw(1) -&
2022  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2023  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2024  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2025  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2026  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2027  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2028  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2029  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2030  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(2) +&
2031  & (a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2032  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2033  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2034  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2035  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2036  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2037  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2038  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2039  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2040  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2041  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(3) + (a1ww*mw**2*(ecw(1) -&
2042  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2043  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2044  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2045  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2046  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2047  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2048  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2049  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2050  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(4))) -&
2051  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*((pb(2) + pg(2) - dcmplx(0d0,1d0)*(pb(3) +&
2052  & pg(3)))*((a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
2053  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
2054  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
2055  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
2056  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
2057  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
2058  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
2059  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
2060  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
2061  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(1) +&
2062  & (a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
2063  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2064  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
2065  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2066  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
2067  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2068  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2069  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2070  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2071  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2072  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(2) + (a1ww*mw**2*(ecw(1) +&
2073  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2074  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
2075  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
2076  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
2077  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
2078  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
2079  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
2080  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
2081  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
2082  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(3) + (a1ww*mw**2*(ecw(2) +&
2083  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
2084  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2085  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
2086  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2087  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
2088  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2089  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2090  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2091  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2092  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(4)) - (pb(1) +&
2093  & pg(1))*((a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2094  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2095  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2096  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2097  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2098  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2099  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2100  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2101  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2102  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2103  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(1) + (a1ww*mw**2*(ecw(1) -&
2104  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2105  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2106  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2107  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2108  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2109  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2110  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2111  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2112  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(2) +&
2113  & (a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2114  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2115  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2116  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2117  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2118  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2119  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2120  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2121  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2122  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2123  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(3) + (a1ww*mw**2*(ecw(1) -&
2124  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2125  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2126  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2127  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2128  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2129  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2130  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2131  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2132  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(4)) - (pb(4)&
2133  & + pg(4))*((a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2134  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2135  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2136  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2137  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2138  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2139  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2140  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2141  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2142  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2143  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(1) + (a1ww*mw**2*(ecw(1) -&
2144  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2145  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2146  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2147  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2148  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2149  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2150  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2151  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2152  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(2) +&
2153  & (a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2154  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2155  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2156  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2157  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2158  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2159  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2160  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2161  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2162  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2163  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(3) + (a1ww*mw**2*(ecw(1) -&
2164  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2165  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2166  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2167  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2168  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2169  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2170  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2171  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2172  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(4)))) +&
2173  & dconjg(ubb(2))*((eg(2) - dcmplx(0d0,1d0)*eg(3))*((pb(1) + pg(1))*((a1ww*mw**2*(ecw(1)&
2174  & + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2175  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
2176  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
2177  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
2178  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
2179  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
2180  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
2181  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
2182  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
2183  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(1) + (a1ww*mw**2*(ecw(2) +&
2184  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
2185  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2186  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
2187  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2188  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
2189  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2190  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2191  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2192  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2193  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(2) + (a1ww*mw**2*(ecw(1) +&
2194  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2195  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
2196  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
2197  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
2198  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
2199  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
2200  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
2201  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
2202  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
2203  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(3) + (a1ww*mw**2*(ecw(2) +&
2204  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
2205  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2206  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
2207  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2208  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
2209  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2210  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2211  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2212  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2213  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(4)) - (pb(4) +&
2214  & pg(4))*((a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
2215  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
2216  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
2217  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
2218  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
2219  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
2220  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
2221  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
2222  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
2223  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(1) +&
2224  & (a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
2225  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2226  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
2227  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2228  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
2229  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2230  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2231  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2232  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2233  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2234  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(2) + (a1ww*mw**2*(ecw(1) +&
2235  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2236  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
2237  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
2238  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
2239  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
2240  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
2241  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
2242  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
2243  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
2244  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(3) + (a1ww*mw**2*(ecw(2) +&
2245  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
2246  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2247  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
2248  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2249  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
2250  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2251  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2252  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2253  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2254  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(4)) - (pb(2) + pg(2) +&
2255  & dcmplx(0d0,1d0)*(pb(3) + pg(3)))*((a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
2256  & 2*a2ww*(pw(2) - dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
2257  & pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2258  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2259  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2260  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2261  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2262  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2263  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2264  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2265  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(1) + (a1ww*mw**2*(ecw(1) -&
2266  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2267  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2268  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2269  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2270  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2271  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2272  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2273  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2274  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(2) +&
2275  & (a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2276  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2277  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2278  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2279  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2280  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2281  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2282  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2283  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2284  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2285  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(3) + (a1ww*mw**2*(ecw(1) -&
2286  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2287  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2288  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2289  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2290  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2291  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2292  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2293  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2294  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(4))) +&
2295  & eg(4)*((pb(2) + pg(2) - dcmplx(0d0,1d0)*(pb(3) + pg(3)))*((a1ww*mw**2*(ecw(1) +&
2296  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2297  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
2298  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
2299  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
2300  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
2301  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
2302  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
2303  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
2304  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
2305  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(1) + (a1ww*mw**2*(ecw(2) +&
2306  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
2307  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2308  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
2309  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2310  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
2311  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2312  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2313  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2314  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2315  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(2) + (a1ww*mw**2*(ecw(1) +&
2316  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2317  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
2318  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
2319  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
2320  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
2321  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
2322  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
2323  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
2324  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
2325  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(3) + (a1ww*mw**2*(ecw(2) +&
2326  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
2327  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2328  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
2329  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2330  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
2331  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2332  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2333  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2334  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2335  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(4)) - (pb(1) +&
2336  & pg(1))*((a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2337  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2338  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2339  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2340  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2341  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2342  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2343  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2344  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2345  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2346  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(1) + (a1ww*mw**2*(ecw(1) -&
2347  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2348  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2349  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2350  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2351  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2352  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2353  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2354  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2355  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(2) +&
2356  & (a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2357  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2358  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2359  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2360  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2361  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2362  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2363  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2364  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2365  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2366  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(3) + (a1ww*mw**2*(ecw(1) -&
2367  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2368  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2369  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2370  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2371  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2372  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2373  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2374  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2375  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(4)) - (pb(4)&
2376  & + pg(4))*((a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2377  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2378  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2379  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2380  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2381  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2382  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2383  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2384  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2385  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2386  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(1) + (a1ww*mw**2*(ecw(1) -&
2387  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2388  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2389  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2390  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2391  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2392  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2393  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2394  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2395  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(2) +&
2396  & (a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2397  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2398  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2399  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2400  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2401  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2402  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2403  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2404  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2405  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2406  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(3) + (a1ww*mw**2*(ecw(1) -&
2407  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2408  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2409  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2410  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2411  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2412  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2413  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2414  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2415  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(4))) +&
2416  & eg(1)*(-((pb(2) + pg(2) - dcmplx(0d0,1d0)*(pb(3) + pg(3)))*((a1ww*mw**2*(ecw(1) +&
2417  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2418  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
2419  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
2420  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
2421  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
2422  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
2423  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
2424  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
2425  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
2426  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(1) + (a1ww*mw**2*(ecw(2) +&
2427  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
2428  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2429  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
2430  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2431  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
2432  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2433  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2434  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2435  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2436  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(2) + (a1ww*mw**2*(ecw(1) +&
2437  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2438  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
2439  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
2440  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
2441  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
2442  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
2443  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
2444  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
2445  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
2446  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(3) + (a1ww*mw**2*(ecw(2) +&
2447  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
2448  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2449  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
2450  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2451  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
2452  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2453  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2454  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2455  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2456  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(4))) + (pb(1) +&
2457  & pg(1))*((a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2458  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2459  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2460  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2461  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2462  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2463  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2464  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2465  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2466  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2467  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(1) + (a1ww*mw**2*(ecw(1) -&
2468  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2469  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2470  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2471  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2472  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2473  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2474  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2475  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2476  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(2) +&
2477  & (a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2478  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2479  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2480  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2481  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2482  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2483  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2484  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2485  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2486  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2487  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(3) + (a1ww*mw**2*(ecw(1) -&
2488  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2489  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2490  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2491  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2492  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2493  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2494  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2495  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2496  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(4)) + (pb(4)&
2497  & + pg(4))*((a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2498  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2499  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2500  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2501  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2502  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2503  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2504  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2505  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2506  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2507  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(1) + (a1ww*mw**2*(ecw(1) -&
2508  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2509  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2510  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2511  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2512  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2513  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2514  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2515  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2516  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(2) +&
2517  & (a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2518  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2519  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2520  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2521  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2522  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2523  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2524  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2525  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2526  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2527  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(3) + (a1ww*mw**2*(ecw(1) -&
2528  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2529  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2530  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2531  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2532  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2533  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2534  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2535  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2536  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(4)))) +&
2537  & dconjg(ubb(4))*((eg(2) - dcmplx(0d0,1d0)*eg(3))*((pb(1) + pg(1))*((a1ww*mw**2*(ecw(1)&
2538  & + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2539  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
2540  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
2541  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
2542  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
2543  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
2544  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
2545  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
2546  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
2547  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(1) + (a1ww*mw**2*(ecw(2) +&
2548  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
2549  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2550  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
2551  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2552  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
2553  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2554  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2555  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2556  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2557  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(2) + (a1ww*mw**2*(ecw(1) +&
2558  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2559  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
2560  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
2561  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
2562  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
2563  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
2564  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
2565  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
2566  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
2567  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(3) + (a1ww*mw**2*(ecw(2) +&
2568  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
2569  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2570  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
2571  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2572  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
2573  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2574  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2575  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2576  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2577  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(4)) - (pb(4) +&
2578  & pg(4))*((a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
2579  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
2580  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
2581  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
2582  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
2583  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
2584  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
2585  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
2586  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
2587  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(1) +&
2588  & (a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
2589  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2590  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
2591  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2592  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
2593  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2594  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2595  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2596  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2597  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2598  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(2) + (a1ww*mw**2*(ecw(1) +&
2599  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2600  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
2601  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
2602  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
2603  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
2604  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
2605  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
2606  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
2607  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
2608  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(3) + (a1ww*mw**2*(ecw(2) +&
2609  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
2610  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2611  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
2612  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2613  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
2614  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2615  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2616  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2617  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2618  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(4)) - (pb(2) + pg(2) +&
2619  & dcmplx(0d0,1d0)*(pb(3) + pg(3)))*((a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
2620  & 2*a2ww*(pw(2) - dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
2621  & pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2622  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2623  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2624  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2625  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2626  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2627  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2628  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2629  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(1) + (a1ww*mw**2*(ecw(1) -&
2630  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2631  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2632  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2633  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2634  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2635  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2636  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2637  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2638  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(2) +&
2639  & (a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2640  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2641  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2642  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2643  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2644  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2645  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2646  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2647  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2648  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2649  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(3) + (a1ww*mw**2*(ecw(1) -&
2650  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2651  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2652  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2653  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2654  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2655  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2656  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2657  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2658  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(4))) +&
2659  & eg(4)*((pb(2) + pg(2) - dcmplx(0d0,1d0)*(pb(3) + pg(3)))*((a1ww*mw**2*(ecw(1) +&
2660  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2661  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
2662  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
2663  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
2664  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
2665  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
2666  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
2667  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
2668  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
2669  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(1) + (a1ww*mw**2*(ecw(2) +&
2670  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
2671  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2672  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
2673  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2674  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
2675  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2676  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2677  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2678  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2679  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(2) + (a1ww*mw**2*(ecw(1) +&
2680  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2681  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
2682  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
2683  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
2684  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
2685  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
2686  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
2687  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
2688  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
2689  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(3) + (a1ww*mw**2*(ecw(2) +&
2690  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
2691  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2692  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
2693  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2694  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
2695  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2696  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2697  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2698  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2699  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(4)) - (pb(1) +&
2700  & pg(1))*((a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2701  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2702  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2703  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2704  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2705  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2706  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2707  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2708  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2709  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2710  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(1) + (a1ww*mw**2*(ecw(1) -&
2711  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2712  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2713  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2714  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2715  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2716  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2717  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2718  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2719  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(2) +&
2720  & (a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2721  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2722  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2723  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2724  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2725  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2726  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2727  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2728  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2729  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2730  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(3) + (a1ww*mw**2*(ecw(1) -&
2731  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2732  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2733  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2734  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2735  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2736  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2737  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2738  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2739  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(4)) - (pb(4)&
2740  & + pg(4))*((a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2741  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2742  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2743  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2744  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2745  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2746  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2747  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2748  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2749  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2750  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(1) + (a1ww*mw**2*(ecw(1) -&
2751  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2752  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2753  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2754  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2755  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2756  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2757  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2758  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2759  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(2) +&
2760  & (a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2761  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2762  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2763  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2764  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2765  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2766  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2767  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2768  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2769  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2770  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(3) + (a1ww*mw**2*(ecw(1) -&
2771  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2772  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2773  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2774  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2775  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2776  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2777  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2778  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2779  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(4))) +&
2780  & eg(1)*(-((pb(2) + pg(2) - dcmplx(0d0,1d0)*(pb(3) + pg(3)))*((a1ww*mw**2*(ecw(1) +&
2781  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2782  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
2783  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
2784  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
2785  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
2786  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
2787  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
2788  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
2789  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
2790  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(1) + (a1ww*mw**2*(ecw(2) +&
2791  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
2792  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2793  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
2794  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2795  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
2796  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2797  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2798  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2799  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2800  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(2) + (a1ww*mw**2*(ecw(1) +&
2801  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2802  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
2803  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
2804  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
2805  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
2806  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
2807  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
2808  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
2809  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
2810  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*ubt(3) + (a1ww*mw**2*(ecw(2) +&
2811  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
2812  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2813  & a1ww*(ph(2) + pw(2) + dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
2814  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
2815  & 2*a2ww*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
2816  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
2817  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2818  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
2819  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2820  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(4))) + (pb(1) +&
2821  & pg(1))*((a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2822  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2823  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2824  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2825  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2826  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2827  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2828  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2829  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2830  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2831  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(1) + (a1ww*mw**2*(ecw(1) -&
2832  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2833  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2834  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2835  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2836  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2837  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2838  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2839  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2840  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(2) +&
2841  & (a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2842  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2843  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2844  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2845  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2846  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2847  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2848  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2849  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2850  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2851  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(3) + (a1ww*mw**2*(ecw(1) -&
2852  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2853  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2854  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2855  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2856  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2857  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2858  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2859  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2860  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(4)) + (pb(4)&
2861  & + pg(4))*((a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2862  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2863  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2864  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2865  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2866  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2867  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2868  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2869  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2870  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2871  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(1) + (a1ww*mw**2*(ecw(1) -&
2872  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2873  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2874  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2875  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2876  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2877  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2878  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2879  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2880  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))*ubt(2) +&
2881  & (a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
2882  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2883  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
2884  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
2885  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
2886  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
2887  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
2888  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
2889  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
2890  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
2891  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))))*ubt(3) + (a1ww*mw**2*(ecw(1) -&
2892  & ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
2893  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
2894  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
2895  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
2896  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
2897  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
2898  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
2899  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
2900  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) +&
2901  & pw(4)))))*ubt(4))))))/(sqrt2*v**2*(-(pb(1) + pg(1))**2 + (pb(2) + pg(2))**2 +&
2902  & (pb(3) + pg(3))**2 + (pb(4) + pg(4))**2)*(mw**2 - (ph(1) + pw(1))**2 + (ph(2) +&
2903  & pw(2))**2 + (ph(3) + pw(3))**2 + (ph(4) + pw(4))**2))
2904 
2905  amptt1 = (dcmplx(0d0,-1d0)*gs*mt*mw*(dconjg(ubb(1))*((ecw(1) + ecw(4))*((pb(4) -&
2906  & pw(4))*(-(kap*(mt + pg(1) - pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
2907  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3))) + dcmplx(0d0,1d0)*kapt*(pg(4) -&
2908  & pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) +&
2909  & kapt*(dcmplx(0d0,1d0)*pg(2) - pg(3) - dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) -&
2910  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kapt*(mt&
2911  & - pg(1) + pt(1))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
2912  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) + kap*(pg(4) - pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
2913  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + kap*(pg(2) + dcmplx(0d0,1d0)*(pg(3) +&
2914  & dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
2915  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - dcmplx(0d0,1d0)*(mt + pb(1) -&
2916  & pw(1))*(kapt*(mt + pg(1) - pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
2917  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) + dcmplx(0d0,1d0)*kap*(pg(4) -&
2918  & pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) +&
2919  & kap*(dcmplx(0d0,1d0)*pg(2) - pg(3) - dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) -&
2920  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kap*(mt&
2921  & - pg(1) + pt(1))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
2922  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(4) - pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
2923  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(2) + dcmplx(0d0,1d0)*(pg(3) +&
2924  & dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
2925  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - dcmplx(0d0,1d0)*(pb(2) - pw(2) +&
2926  & dcmplx(0d0,1d0)*(pb(3) - pw(3)))*(-(kapt*(pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) +&
2927  & dcmplx(0d0,1d0)*pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) +&
2928  & eg(1)*ubt(3))) - dcmplx(0d0,1d0)*kap*(mt + pg(1) - pt(1))*(eg(2)*ubt(1) -&
2929  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + kapt*(pg(4) -&
2930  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
2931  & kap*(dcmplx(0d0,1d0)*pg(2) + pg(3) - dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(1)*ubt(1) +&
2932  & eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(mt - pg(1) +&
2933  & pt(1))*(eg(1)*ubt(2) + eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4)) -&
2934  & dcmplx(0d0,1d0)*kap*(pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
2935  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4)))) + (ecw(2) +&
2936  & dcmplx(0d0,1d0)*ecw(3))*((pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
2937  & dcmplx(0d0,1d0)*pw(3))*(-(kap*(mt + pg(1) - pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
2938  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3))) + dcmplx(0d0,1d0)*kapt*(pg(4) -&
2939  & pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) +&
2940  & kapt*(dcmplx(0d0,1d0)*pg(2) - pg(3) - dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) -&
2941  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kapt*(mt&
2942  & - pg(1) + pt(1))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
2943  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) + kap*(pg(4) - pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
2944  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + kap*(pg(2) + dcmplx(0d0,1d0)*(pg(3) +&
2945  & dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
2946  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + dcmplx(0d0,1d0)*(pb(4) -&
2947  & pw(4))*(-(kapt*(pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) +&
2948  & dcmplx(0d0,1d0)*pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) +&
2949  & eg(1)*ubt(3))) - dcmplx(0d0,1d0)*kap*(mt + pg(1) - pt(1))*(eg(2)*ubt(1) -&
2950  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + kapt*(pg(4) -&
2951  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
2952  & kap*(dcmplx(0d0,1d0)*pg(2) + pg(3) - dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(1)*ubt(1) +&
2953  & eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(mt - pg(1) +&
2954  & pt(1))*(eg(1)*ubt(2) + eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4)) -&
2955  & dcmplx(0d0,1d0)*kap*(pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
2956  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - dcmplx(0d0,1d0)*(mt + pb(1) -&
2957  & pw(1))*(kapt*((mt + pg(1) - pt(1))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) -&
2958  & eg(4)*ubt(2) + eg(1)*ubt(4)) - (pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) +&
2959  & dcmplx(0d0,1d0)*pt(3))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
2960  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) + (pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
2961  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + kap*((dcmplx(0d0,1d0)*pg(2) + pg(3) -&
2962  & dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
2963  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) - dcmplx(0d0,1d0)*(pg(4) -&
2964  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
2965  & (mt - pg(1) + pt(1))*(dcmplx(0d0,1d0)*eg(1)*ubt(2) + dcmplx(0d0,1d0)*eg(2)*ubt(3) +&
2966  & eg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(4)*ubt(4))))) + (ecw(1) + ecw(4))*((mt - pb(1) +&
2967  & pw(1))*(-(kap*(mt + pg(1) - pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
2968  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3))) + dcmplx(0d0,1d0)*kapt*(pg(4) -&
2969  & pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) +&
2970  & kapt*(dcmplx(0d0,1d0)*pg(2) - pg(3) - dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) -&
2971  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kapt*(mt&
2972  & - pg(1) + pt(1))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
2973  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) + kap*(pg(4) - pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
2974  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + kap*(pg(2) + dcmplx(0d0,1d0)*(pg(3) +&
2975  & dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
2976  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + dcmplx(0d0,1d0)*(pb(4) -&
2977  & pw(4))*(kapt*(mt + pg(1) - pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
2978  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) + dcmplx(0d0,1d0)*kap*(pg(4) -&
2979  & pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) +&
2980  & kap*(dcmplx(0d0,1d0)*pg(2) - pg(3) - dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) -&
2981  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kap*(mt&
2982  & - pg(1) + pt(1))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
2983  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(4) - pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
2984  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(2) + dcmplx(0d0,1d0)*(pg(3) +&
2985  & dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
2986  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + dcmplx(0d0,1d0)*(pb(2) - pw(2) +&
2987  & dcmplx(0d0,1d0)*(pb(3) - pw(3)))*(kapt*((mt + pg(1) - pt(1))*(eg(2)*ubt(1) -&
2988  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) - (pg(2) -&
2989  & dcmplx(0d0,1d0)*pg(3) - pt(2) + dcmplx(0d0,1d0)*pt(3))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
2990  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + (pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3)&
2991  & - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + kap*((dcmplx(0d0,1d0)*pg(2) + pg(3)&
2992  & - dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
2993  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) - dcmplx(0d0,1d0)*(pg(4) -&
2994  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
2995  & (mt - pg(1) + pt(1))*(dcmplx(0d0,1d0)*eg(1)*ubt(2) + dcmplx(0d0,1d0)*eg(2)*ubt(3) +&
2996  & eg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(4)*ubt(4))))) + dcmplx(0d0,1d0)*(ecw(2) +&
2997  & dcmplx(0d0,1d0)*ecw(3))*((pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
2998  & dcmplx(0d0,1d0)*pw(3))*(kapt*(mt + pg(1) - pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
2999  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) + dcmplx(0d0,1d0)*kap*(pg(4) -&
3000  & pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) +&
3001  & kap*(dcmplx(0d0,1d0)*pg(2) - pg(3) - dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) -&
3002  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kap*(mt&
3003  & - pg(1) + pt(1))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
3004  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(4) - pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
3005  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(2) + dcmplx(0d0,1d0)*(pg(3) +&
3006  & dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3007  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - (mt - pb(1) + pw(1))*(-(kapt*(pg(2) -&
3008  & dcmplx(0d0,1d0)*pg(3) - pt(2) + dcmplx(0d0,1d0)*pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3009  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3))) - dcmplx(0d0,1d0)*kap*(mt + pg(1) -&
3010  & pt(1))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3011  & kapt*(pg(4) - pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) +&
3012  & eg(1)*ubt(4)) + kap*(dcmplx(0d0,1d0)*pg(2) + pg(3) - dcmplx(0d0,1d0)*pt(2) -&
3013  & pt(3))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) -&
3014  & kapt*(mt - pg(1) + pt(1))*(eg(1)*ubt(2) + eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3)&
3015  & - eg(4)*ubt(4)) - dcmplx(0d0,1d0)*kap*(pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3016  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - (pb(4) - pw(4))*(kapt*((mt + pg(1) -&
3017  & pt(1))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) -&
3018  & (pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) + dcmplx(0d0,1d0)*pt(3))*(eg(1)*ubt(1) +&
3019  & eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + (pg(4) - pt(4))*(eg(1)*ubt(2)&
3020  & + eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) +&
3021  & kap*((dcmplx(0d0,1d0)*pg(2) + pg(3) - dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(4)*ubt(1) +&
3022  & eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) - dcmplx(0d0,1d0)*(pg(4) -&
3023  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3024  & (mt - pg(1) + pt(1))*(dcmplx(0d0,1d0)*eg(1)*ubt(2) + dcmplx(0d0,1d0)*eg(2)*ubt(3) +&
3025  & eg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(4)*ubt(4)))))) + dconjg(ubb(3))*((ecw(1) +&
3026  & ecw(4))*((pb(4) - pw(4))*(-(kap*(mt + pg(1) - pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3027  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3))) + dcmplx(0d0,1d0)*kapt*(pg(4) -&
3028  & pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) +&
3029  & kapt*(dcmplx(0d0,1d0)*pg(2) - pg(3) - dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) -&
3030  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kapt*(mt&
3031  & - pg(1) + pt(1))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
3032  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) + kap*(pg(4) - pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
3033  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + kap*(pg(2) + dcmplx(0d0,1d0)*(pg(3) +&
3034  & dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3035  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - dcmplx(0d0,1d0)*(mt + pb(1) -&
3036  & pw(1))*(kapt*(mt + pg(1) - pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3037  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) + dcmplx(0d0,1d0)*kap*(pg(4) -&
3038  & pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) +&
3039  & kap*(dcmplx(0d0,1d0)*pg(2) - pg(3) - dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) -&
3040  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kap*(mt&
3041  & - pg(1) + pt(1))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
3042  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(4) - pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
3043  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(2) + dcmplx(0d0,1d0)*(pg(3) +&
3044  & dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3045  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - dcmplx(0d0,1d0)*(pb(2) - pw(2) +&
3046  & dcmplx(0d0,1d0)*(pb(3) - pw(3)))*(-(kapt*(pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) +&
3047  & dcmplx(0d0,1d0)*pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) +&
3048  & eg(1)*ubt(3))) - dcmplx(0d0,1d0)*kap*(mt + pg(1) - pt(1))*(eg(2)*ubt(1) -&
3049  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + kapt*(pg(4) -&
3050  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3051  & kap*(dcmplx(0d0,1d0)*pg(2) + pg(3) - dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(1)*ubt(1) +&
3052  & eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(mt - pg(1) +&
3053  & pt(1))*(eg(1)*ubt(2) + eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4)) -&
3054  & dcmplx(0d0,1d0)*kap*(pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3055  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4)))) + (ecw(2) +&
3056  & dcmplx(0d0,1d0)*ecw(3))*((pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
3057  & dcmplx(0d0,1d0)*pw(3))*(-(kap*(mt + pg(1) - pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3058  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3))) + dcmplx(0d0,1d0)*kapt*(pg(4) -&
3059  & pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) +&
3060  & kapt*(dcmplx(0d0,1d0)*pg(2) - pg(3) - dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) -&
3061  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kapt*(mt&
3062  & - pg(1) + pt(1))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
3063  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) + kap*(pg(4) - pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
3064  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + kap*(pg(2) + dcmplx(0d0,1d0)*(pg(3) +&
3065  & dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3066  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + dcmplx(0d0,1d0)*(pb(4) -&
3067  & pw(4))*(-(kapt*(pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) +&
3068  & dcmplx(0d0,1d0)*pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) +&
3069  & eg(1)*ubt(3))) - dcmplx(0d0,1d0)*kap*(mt + pg(1) - pt(1))*(eg(2)*ubt(1) -&
3070  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + kapt*(pg(4) -&
3071  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3072  & kap*(dcmplx(0d0,1d0)*pg(2) + pg(3) - dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(1)*ubt(1) +&
3073  & eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(mt - pg(1) +&
3074  & pt(1))*(eg(1)*ubt(2) + eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4)) -&
3075  & dcmplx(0d0,1d0)*kap*(pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3076  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - dcmplx(0d0,1d0)*(mt + pb(1) -&
3077  & pw(1))*(kapt*((mt + pg(1) - pt(1))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) -&
3078  & eg(4)*ubt(2) + eg(1)*ubt(4)) - (pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) +&
3079  & dcmplx(0d0,1d0)*pt(3))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
3080  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) + (pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3081  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + kap*((dcmplx(0d0,1d0)*pg(2) + pg(3) -&
3082  & dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3083  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) - dcmplx(0d0,1d0)*(pg(4) -&
3084  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3085  & (mt - pg(1) + pt(1))*(dcmplx(0d0,1d0)*eg(1)*ubt(2) + dcmplx(0d0,1d0)*eg(2)*ubt(3) +&
3086  & eg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(4)*ubt(4))))) + (ecw(1) + ecw(4))*((mt - pb(1) +&
3087  & pw(1))*(-(kap*(mt + pg(1) - pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3088  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3))) + dcmplx(0d0,1d0)*kapt*(pg(4) -&
3089  & pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) +&
3090  & kapt*(dcmplx(0d0,1d0)*pg(2) - pg(3) - dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) -&
3091  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kapt*(mt&
3092  & - pg(1) + pt(1))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
3093  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) + kap*(pg(4) - pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
3094  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + kap*(pg(2) + dcmplx(0d0,1d0)*(pg(3) +&
3095  & dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3096  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + dcmplx(0d0,1d0)*(pb(4) -&
3097  & pw(4))*(kapt*(mt + pg(1) - pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3098  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) + dcmplx(0d0,1d0)*kap*(pg(4) -&
3099  & pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) +&
3100  & kap*(dcmplx(0d0,1d0)*pg(2) - pg(3) - dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) -&
3101  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kap*(mt&
3102  & - pg(1) + pt(1))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
3103  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(4) - pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
3104  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(2) + dcmplx(0d0,1d0)*(pg(3) +&
3105  & dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3106  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + dcmplx(0d0,1d0)*(pb(2) - pw(2) +&
3107  & dcmplx(0d0,1d0)*(pb(3) - pw(3)))*(kapt*((mt + pg(1) - pt(1))*(eg(2)*ubt(1) -&
3108  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) - (pg(2) -&
3109  & dcmplx(0d0,1d0)*pg(3) - pt(2) + dcmplx(0d0,1d0)*pt(3))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
3110  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + (pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3)&
3111  & - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + kap*((dcmplx(0d0,1d0)*pg(2) + pg(3)&
3112  & - dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3113  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) - dcmplx(0d0,1d0)*(pg(4) -&
3114  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3115  & (mt - pg(1) + pt(1))*(dcmplx(0d0,1d0)*eg(1)*ubt(2) + dcmplx(0d0,1d0)*eg(2)*ubt(3) +&
3116  & eg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(4)*ubt(4))))) + dcmplx(0d0,1d0)*(ecw(2) +&
3117  & dcmplx(0d0,1d0)*ecw(3))*((pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
3118  & dcmplx(0d0,1d0)*pw(3))*(kapt*(mt + pg(1) - pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3119  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) + dcmplx(0d0,1d0)*kap*(pg(4) -&
3120  & pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) +&
3121  & kap*(dcmplx(0d0,1d0)*pg(2) - pg(3) - dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) -&
3122  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kap*(mt&
3123  & - pg(1) + pt(1))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
3124  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(4) - pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
3125  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(2) + dcmplx(0d0,1d0)*(pg(3) +&
3126  & dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3127  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - (mt - pb(1) + pw(1))*(-(kapt*(pg(2) -&
3128  & dcmplx(0d0,1d0)*pg(3) - pt(2) + dcmplx(0d0,1d0)*pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3129  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3))) - dcmplx(0d0,1d0)*kap*(mt + pg(1) -&
3130  & pt(1))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3131  & kapt*(pg(4) - pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) +&
3132  & eg(1)*ubt(4)) + kap*(dcmplx(0d0,1d0)*pg(2) + pg(3) - dcmplx(0d0,1d0)*pt(2) -&
3133  & pt(3))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) -&
3134  & kapt*(mt - pg(1) + pt(1))*(eg(1)*ubt(2) + eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3)&
3135  & - eg(4)*ubt(4)) - dcmplx(0d0,1d0)*kap*(pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3136  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - (pb(4) - pw(4))*(kapt*((mt + pg(1) -&
3137  & pt(1))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) -&
3138  & (pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) + dcmplx(0d0,1d0)*pt(3))*(eg(1)*ubt(1) +&
3139  & eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + (pg(4) - pt(4))*(eg(1)*ubt(2)&
3140  & + eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) +&
3141  & kap*((dcmplx(0d0,1d0)*pg(2) + pg(3) - dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(4)*ubt(1) +&
3142  & eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) - dcmplx(0d0,1d0)*(pg(4) -&
3143  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3144  & (mt - pg(1) + pt(1))*(dcmplx(0d0,1d0)*eg(1)*ubt(2) + dcmplx(0d0,1d0)*eg(2)*ubt(3) +&
3145  & eg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(4)*ubt(4)))))) + dconjg(ubb(2))*((ecw(2) -&
3146  & dcmplx(0d0,1d0)*ecw(3))*((pb(4) - pw(4))*(-(kap*(mt + pg(1) - pt(1))*(eg(4)*ubt(1) +&
3147  & eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3))) +&
3148  & dcmplx(0d0,1d0)*kapt*(pg(4) - pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3149  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) + kapt*(dcmplx(0d0,1d0)*pg(2) - pg(3) -&
3150  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) -&
3151  & eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kapt*(mt - pg(1) + pt(1))*(eg(1)*ubt(1)&
3152  & + eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + kap*(pg(4) -&
3153  & pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) +&
3154  & kap*(pg(2) + dcmplx(0d0,1d0)*(pg(3) + dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) +&
3155  & eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - dcmplx(0d0,1d0)*(mt +&
3156  & pb(1) - pw(1))*(kapt*(mt + pg(1) - pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3157  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) + dcmplx(0d0,1d0)*kap*(pg(4) -&
3158  & pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) +&
3159  & kap*(dcmplx(0d0,1d0)*pg(2) - pg(3) - dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) -&
3160  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kap*(mt&
3161  & - pg(1) + pt(1))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
3162  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(4) - pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
3163  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(2) + dcmplx(0d0,1d0)*(pg(3) +&
3164  & dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3165  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - dcmplx(0d0,1d0)*(pb(2) - pw(2) +&
3166  & dcmplx(0d0,1d0)*(pb(3) - pw(3)))*(-(kapt*(pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) +&
3167  & dcmplx(0d0,1d0)*pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) +&
3168  & eg(1)*ubt(3))) - dcmplx(0d0,1d0)*kap*(mt + pg(1) - pt(1))*(eg(2)*ubt(1) -&
3169  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + kapt*(pg(4) -&
3170  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3171  & kap*(dcmplx(0d0,1d0)*pg(2) + pg(3) - dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(1)*ubt(1) +&
3172  & eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(mt - pg(1) +&
3173  & pt(1))*(eg(1)*ubt(2) + eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4)) -&
3174  & dcmplx(0d0,1d0)*kap*(pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3175  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4)))) + (ecw(1) - ecw(4))*((pb(2) -&
3176  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3))*(-(kap*(mt + pg(1) -&
3177  & pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3))) +&
3178  & dcmplx(0d0,1d0)*kapt*(pg(4) - pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3179  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) + kapt*(dcmplx(0d0,1d0)*pg(2) - pg(3) -&
3180  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) -&
3181  & eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kapt*(mt - pg(1) + pt(1))*(eg(1)*ubt(1)&
3182  & + eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + kap*(pg(4) -&
3183  & pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) +&
3184  & kap*(pg(2) + dcmplx(0d0,1d0)*(pg(3) + dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) +&
3185  & eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + dcmplx(0d0,1d0)*(pb(4)&
3186  & - pw(4))*(-(kapt*(pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) +&
3187  & dcmplx(0d0,1d0)*pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) +&
3188  & eg(1)*ubt(3))) - dcmplx(0d0,1d0)*kap*(mt + pg(1) - pt(1))*(eg(2)*ubt(1) -&
3189  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + kapt*(pg(4) -&
3190  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3191  & kap*(dcmplx(0d0,1d0)*pg(2) + pg(3) - dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(1)*ubt(1) +&
3192  & eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(mt - pg(1) +&
3193  & pt(1))*(eg(1)*ubt(2) + eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4)) -&
3194  & dcmplx(0d0,1d0)*kap*(pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3195  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - dcmplx(0d0,1d0)*(mt + pb(1) -&
3196  & pw(1))*(kapt*((mt + pg(1) - pt(1))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) -&
3197  & eg(4)*ubt(2) + eg(1)*ubt(4)) - (pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) +&
3198  & dcmplx(0d0,1d0)*pt(3))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
3199  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) + (pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3200  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + kap*((dcmplx(0d0,1d0)*pg(2) + pg(3) -&
3201  & dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3202  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) - dcmplx(0d0,1d0)*(pg(4) -&
3203  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3204  & (mt - pg(1) + pt(1))*(dcmplx(0d0,1d0)*eg(1)*ubt(2) + dcmplx(0d0,1d0)*eg(2)*ubt(3) +&
3205  & eg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(4)*ubt(4))))) + (ecw(2) -&
3206  & dcmplx(0d0,1d0)*ecw(3))*((mt - pb(1) + pw(1))*(-(kap*(mt + pg(1) -&
3207  & pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3))) +&
3208  & dcmplx(0d0,1d0)*kapt*(pg(4) - pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3209  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) + kapt*(dcmplx(0d0,1d0)*pg(2) - pg(3) -&
3210  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) -&
3211  & eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kapt*(mt - pg(1) + pt(1))*(eg(1)*ubt(1)&
3212  & + eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + kap*(pg(4) -&
3213  & pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) +&
3214  & kap*(pg(2) + dcmplx(0d0,1d0)*(pg(3) + dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) +&
3215  & eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + dcmplx(0d0,1d0)*(pb(4)&
3216  & - pw(4))*(kapt*(mt + pg(1) - pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3217  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) + dcmplx(0d0,1d0)*kap*(pg(4) -&
3218  & pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) +&
3219  & kap*(dcmplx(0d0,1d0)*pg(2) - pg(3) - dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) -&
3220  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kap*(mt&
3221  & - pg(1) + pt(1))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
3222  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(4) - pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
3223  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(2) + dcmplx(0d0,1d0)*(pg(3) +&
3224  & dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3225  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + dcmplx(0d0,1d0)*(pb(2) - pw(2) +&
3226  & dcmplx(0d0,1d0)*(pb(3) - pw(3)))*(kapt*((mt + pg(1) - pt(1))*(eg(2)*ubt(1) -&
3227  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) - (pg(2) -&
3228  & dcmplx(0d0,1d0)*pg(3) - pt(2) + dcmplx(0d0,1d0)*pt(3))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
3229  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + (pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3)&
3230  & - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + kap*((dcmplx(0d0,1d0)*pg(2) + pg(3)&
3231  & - dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3232  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) - dcmplx(0d0,1d0)*(pg(4) -&
3233  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3234  & (mt - pg(1) + pt(1))*(dcmplx(0d0,1d0)*eg(1)*ubt(2) + dcmplx(0d0,1d0)*eg(2)*ubt(3) +&
3235  & eg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(4)*ubt(4))))) + dcmplx(0d0,1d0)*(ecw(1) -&
3236  & ecw(4))*((pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3))*(kapt*(mt +&
3237  & pg(1) - pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) +&
3238  & eg(1)*ubt(3)) + dcmplx(0d0,1d0)*kap*(pg(4) - pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3239  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) + kap*(dcmplx(0d0,1d0)*pg(2) - pg(3) -&
3240  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) -&
3241  & eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kap*(mt - pg(1) + pt(1))*(eg(1)*ubt(1)&
3242  & + eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(4) -&
3243  & pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) -&
3244  & kapt*(pg(2) + dcmplx(0d0,1d0)*(pg(3) + dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) +&
3245  & eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - (mt - pb(1) +&
3246  & pw(1))*(-(kapt*(pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) +&
3247  & dcmplx(0d0,1d0)*pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) +&
3248  & eg(1)*ubt(3))) - dcmplx(0d0,1d0)*kap*(mt + pg(1) - pt(1))*(eg(2)*ubt(1) -&
3249  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + kapt*(pg(4) -&
3250  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3251  & kap*(dcmplx(0d0,1d0)*pg(2) + pg(3) - dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(1)*ubt(1) +&
3252  & eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(mt - pg(1) +&
3253  & pt(1))*(eg(1)*ubt(2) + eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4)) -&
3254  & dcmplx(0d0,1d0)*kap*(pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3255  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - (pb(4) - pw(4))*(kapt*((mt + pg(1) -&
3256  & pt(1))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) -&
3257  & (pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) + dcmplx(0d0,1d0)*pt(3))*(eg(1)*ubt(1) +&
3258  & eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + (pg(4) - pt(4))*(eg(1)*ubt(2)&
3259  & + eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) +&
3260  & kap*((dcmplx(0d0,1d0)*pg(2) + pg(3) - dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(4)*ubt(1) +&
3261  & eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) - dcmplx(0d0,1d0)*(pg(4) -&
3262  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3263  & (mt - pg(1) + pt(1))*(dcmplx(0d0,1d0)*eg(1)*ubt(2) + dcmplx(0d0,1d0)*eg(2)*ubt(3) +&
3264  & eg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(4)*ubt(4)))))) + dconjg(ubb(4))*((ecw(2) -&
3265  & dcmplx(0d0,1d0)*ecw(3))*((pb(4) - pw(4))*(-(kap*(mt + pg(1) - pt(1))*(eg(4)*ubt(1) +&
3266  & eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3))) +&
3267  & dcmplx(0d0,1d0)*kapt*(pg(4) - pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3268  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) + kapt*(dcmplx(0d0,1d0)*pg(2) - pg(3) -&
3269  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) -&
3270  & eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kapt*(mt - pg(1) + pt(1))*(eg(1)*ubt(1)&
3271  & + eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + kap*(pg(4) -&
3272  & pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) +&
3273  & kap*(pg(2) + dcmplx(0d0,1d0)*(pg(3) + dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) +&
3274  & eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - dcmplx(0d0,1d0)*(mt +&
3275  & pb(1) - pw(1))*(kapt*(mt + pg(1) - pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3276  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) + dcmplx(0d0,1d0)*kap*(pg(4) -&
3277  & pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) +&
3278  & kap*(dcmplx(0d0,1d0)*pg(2) - pg(3) - dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) -&
3279  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kap*(mt&
3280  & - pg(1) + pt(1))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
3281  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(4) - pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
3282  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(2) + dcmplx(0d0,1d0)*(pg(3) +&
3283  & dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3284  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - dcmplx(0d0,1d0)*(pb(2) - pw(2) +&
3285  & dcmplx(0d0,1d0)*(pb(3) - pw(3)))*(-(kapt*(pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) +&
3286  & dcmplx(0d0,1d0)*pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) +&
3287  & eg(1)*ubt(3))) - dcmplx(0d0,1d0)*kap*(mt + pg(1) - pt(1))*(eg(2)*ubt(1) -&
3288  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + kapt*(pg(4) -&
3289  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3290  & kap*(dcmplx(0d0,1d0)*pg(2) + pg(3) - dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(1)*ubt(1) +&
3291  & eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(mt - pg(1) +&
3292  & pt(1))*(eg(1)*ubt(2) + eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4)) -&
3293  & dcmplx(0d0,1d0)*kap*(pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3294  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4)))) + (ecw(1) - ecw(4))*((pb(2) -&
3295  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3))*(-(kap*(mt + pg(1) -&
3296  & pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3))) +&
3297  & dcmplx(0d0,1d0)*kapt*(pg(4) - pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3298  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) + kapt*(dcmplx(0d0,1d0)*pg(2) - pg(3) -&
3299  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) -&
3300  & eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kapt*(mt - pg(1) + pt(1))*(eg(1)*ubt(1)&
3301  & + eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + kap*(pg(4) -&
3302  & pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) +&
3303  & kap*(pg(2) + dcmplx(0d0,1d0)*(pg(3) + dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) +&
3304  & eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + dcmplx(0d0,1d0)*(pb(4)&
3305  & - pw(4))*(-(kapt*(pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) +&
3306  & dcmplx(0d0,1d0)*pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) +&
3307  & eg(1)*ubt(3))) - dcmplx(0d0,1d0)*kap*(mt + pg(1) - pt(1))*(eg(2)*ubt(1) -&
3308  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + kapt*(pg(4) -&
3309  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3310  & kap*(dcmplx(0d0,1d0)*pg(2) + pg(3) - dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(1)*ubt(1) +&
3311  & eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(mt - pg(1) +&
3312  & pt(1))*(eg(1)*ubt(2) + eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4)) -&
3313  & dcmplx(0d0,1d0)*kap*(pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3314  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - dcmplx(0d0,1d0)*(mt + pb(1) -&
3315  & pw(1))*(kapt*((mt + pg(1) - pt(1))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) -&
3316  & eg(4)*ubt(2) + eg(1)*ubt(4)) - (pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) +&
3317  & dcmplx(0d0,1d0)*pt(3))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
3318  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) + (pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3319  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + kap*((dcmplx(0d0,1d0)*pg(2) + pg(3) -&
3320  & dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3321  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) - dcmplx(0d0,1d0)*(pg(4) -&
3322  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3323  & (mt - pg(1) + pt(1))*(dcmplx(0d0,1d0)*eg(1)*ubt(2) + dcmplx(0d0,1d0)*eg(2)*ubt(3) +&
3324  & eg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(4)*ubt(4))))) + (ecw(2) -&
3325  & dcmplx(0d0,1d0)*ecw(3))*((mt - pb(1) + pw(1))*(-(kap*(mt + pg(1) -&
3326  & pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3))) +&
3327  & dcmplx(0d0,1d0)*kapt*(pg(4) - pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3328  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) + kapt*(dcmplx(0d0,1d0)*pg(2) - pg(3) -&
3329  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) -&
3330  & eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kapt*(mt - pg(1) + pt(1))*(eg(1)*ubt(1)&
3331  & + eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + kap*(pg(4) -&
3332  & pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) +&
3333  & kap*(pg(2) + dcmplx(0d0,1d0)*(pg(3) + dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) +&
3334  & eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + dcmplx(0d0,1d0)*(pb(4)&
3335  & - pw(4))*(kapt*(mt + pg(1) - pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3336  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) + dcmplx(0d0,1d0)*kap*(pg(4) -&
3337  & pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) +&
3338  & kap*(dcmplx(0d0,1d0)*pg(2) - pg(3) - dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) -&
3339  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kap*(mt&
3340  & - pg(1) + pt(1))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
3341  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(4) - pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
3342  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(2) + dcmplx(0d0,1d0)*(pg(3) +&
3343  & dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3344  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + dcmplx(0d0,1d0)*(pb(2) - pw(2) +&
3345  & dcmplx(0d0,1d0)*(pb(3) - pw(3)))*(kapt*((mt + pg(1) - pt(1))*(eg(2)*ubt(1) -&
3346  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) - (pg(2) -&
3347  & dcmplx(0d0,1d0)*pg(3) - pt(2) + dcmplx(0d0,1d0)*pt(3))*(eg(1)*ubt(1) + eg(4)*ubt(3) +&
3348  & (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + (pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3)&
3349  & - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) + kap*((dcmplx(0d0,1d0)*pg(2) + pg(3)&
3350  & - dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3351  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) - dcmplx(0d0,1d0)*(pg(4) -&
3352  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3353  & (mt - pg(1) + pt(1))*(dcmplx(0d0,1d0)*eg(1)*ubt(2) + dcmplx(0d0,1d0)*eg(2)*ubt(3) +&
3354  & eg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(4)*ubt(4))))) + dcmplx(0d0,1d0)*(ecw(1) -&
3355  & ecw(4))*((pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3))*(kapt*(mt +&
3356  & pg(1) - pt(1))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) +&
3357  & eg(1)*ubt(3)) + dcmplx(0d0,1d0)*kap*(pg(4) - pt(4))*(eg(4)*ubt(1) + eg(2)*ubt(2) +&
3358  & dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) + kap*(dcmplx(0d0,1d0)*pg(2) - pg(3) -&
3359  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) -&
3360  & eg(4)*ubt(2) + eg(1)*ubt(4)) + dcmplx(0d0,1d0)*kap*(mt - pg(1) + pt(1))*(eg(1)*ubt(1)&
3361  & + eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(pg(4) -&
3362  & pt(4))*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) -&
3363  & kapt*(pg(2) + dcmplx(0d0,1d0)*(pg(3) + dcmplx(0d0,1d0)*pt(2) - pt(3)))*(eg(1)*ubt(2) +&
3364  & eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - (mt - pb(1) +&
3365  & pw(1))*(-(kapt*(pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) +&
3366  & dcmplx(0d0,1d0)*pt(3))*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) +&
3367  & eg(1)*ubt(3))) - dcmplx(0d0,1d0)*kap*(mt + pg(1) - pt(1))*(eg(2)*ubt(1) -&
3368  & dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) + kapt*(pg(4) -&
3369  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3370  & kap*(dcmplx(0d0,1d0)*pg(2) + pg(3) - dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(1)*ubt(1) +&
3371  & eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) - kapt*(mt - pg(1) +&
3372  & pt(1))*(eg(1)*ubt(2) + eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4)) -&
3373  & dcmplx(0d0,1d0)*kap*(pg(4) - pt(4))*(eg(1)*ubt(2) + eg(2)*ubt(3) -&
3374  & dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) - (pb(4) - pw(4))*(kapt*((mt + pg(1) -&
3375  & pt(1))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) -&
3376  & (pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) + dcmplx(0d0,1d0)*pt(3))*(eg(1)*ubt(1) +&
3377  & eg(4)*ubt(3) + (eg(2) + dcmplx(0d0,1d0)*eg(3))*ubt(4)) + (pg(4) - pt(4))*(eg(1)*ubt(2)&
3378  & + eg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*ubt(3) - eg(4)*ubt(4))) +&
3379  & kap*((dcmplx(0d0,1d0)*pg(2) + pg(3) - dcmplx(0d0,1d0)*pt(2) - pt(3))*(eg(4)*ubt(1) +&
3380  & eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) + eg(1)*ubt(3)) - dcmplx(0d0,1d0)*(pg(4) -&
3381  & pt(4))*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) + eg(1)*ubt(4)) +&
3382  & (mt - pg(1) + pt(1))*(dcmplx(0d0,1d0)*eg(1)*ubt(2) + dcmplx(0d0,1d0)*eg(2)*ubt(3) +&
3383  & eg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(4)*ubt(4))))))))/(sqrt2*v**2*(mt**2 - (pg(1) -&
3384  & pt(1))**2 + (pg(2) - pt(2))**2 + (pg(3) - pt(3))**2 + (pg(4) - pt(4))**2)*(mt**2 -&
3385  & (pb(1) - pw(1))**2 + (pb(2) - pw(2))**2 + (pb(3) - pw(3))**2 + (pb(4) - pw(4))**2))
3386 
3387  amptt2 = (gs*mw*(-(dconjg(ubb(2))*((ecw(1) - ecw(4))*(-((pb(4) - pw(4))*(mt*(eg(2) -&
3388  & dcmplx(0d0,1d0)*eg(3))*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) +&
3389  & (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3390  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3391  & mt*eg(1)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1)&
3392  & + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2) -&
3393  & dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3394  & kapt*ubt(4))) + eg(4)*(-(mt*(ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
3395  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3))) + mt*(ph(4) + pt(4))*(kapt*ubt(2)&
3396  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) -&
3397  & kapt*mt*ubt(4))))) + (pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
3398  & dcmplx(0d0,1d0)*pw(3))*(mt*eg(4)*((ph(4) + pt(4))*(kapt*ubt(1) -&
3399  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
3400  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
3401  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((ph(2) + pt(2) -&
3402  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
3403  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
3404  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(1)*(mt*(mt - ph(1) -&
3405  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
3406  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
3407  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) -&
3408  & (mt + pb(1) - pw(1))*(mt*eg(1)*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
3409  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
3410  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3411  & kapt*ubt(4))) - mt*eg(4)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
3412  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
3413  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3414  & kapt*ubt(4))) + (eg(2) - dcmplx(0d0,1d0)*eg(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1)&
3415  & - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
3416  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
3417  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) + (ecw(2) -&
3418  & dcmplx(0d0,1d0)*ecw(3))*((pb(2) - pw(2) + dcmplx(0d0,1d0)*(pb(3) - pw(3)))*(mt*(eg(2)&
3419  & - dcmplx(0d0,1d0)*eg(3))*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) +&
3420  & (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3421  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3422  & mt*eg(1)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1)&
3423  & + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2) -&
3424  & dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3425  & kapt*ubt(4))) + eg(4)*(-(mt*(ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
3426  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3))) + mt*(ph(4) + pt(4))*(kapt*ubt(2)&
3427  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) -&
3428  & kapt*mt*ubt(4)))) + (pb(4) - pw(4))*(mt*eg(4)*((ph(4) + pt(4))*(kapt*ubt(1) -&
3429  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
3430  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
3431  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((ph(2) + pt(2) -&
3432  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
3433  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
3434  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(1)*(mt*(mt - ph(1) -&
3435  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
3436  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
3437  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) -&
3438  & (mt + pb(1) - pw(1))*(mt*eg(1)*((ph(4) + pt(4))*(kapt*ubt(1) -&
3439  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
3440  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
3441  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(eg(2) +&
3442  & dcmplx(0d0,1d0)*eg(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
3443  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
3444  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3445  & kapt*ubt(4))) + eg(4)*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
3446  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
3447  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
3448  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) + (ecw(1) - ecw(4))*((mt -&
3449  & pb(1) + pw(1))*(mt*(eg(2) - dcmplx(0d0,1d0)*eg(3))*((ph(4) + pt(4))*(kapt*ubt(1) -&
3450  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
3451  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
3452  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*eg(1)*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
3453  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
3454  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
3455  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(4)*(-(mt*(ph(2) + pt(2) -&
3456  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3))) +&
3457  & mt*(ph(4) + pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
3458  & pt(1))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) - (pb(4) -&
3459  & pw(4))*(mt*eg(1)*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) -&
3460  & dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
3461  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3462  & kapt*ubt(4))) - mt*eg(4)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
3463  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
3464  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3465  & kapt*ubt(4))) + (eg(2) - dcmplx(0d0,1d0)*eg(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1)&
3466  & - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
3467  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
3468  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) + (pb(2) -&
3469  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3))*(mt*eg(1)*((ph(4) +&
3470  & pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) +&
3471  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3472  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3473  & mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
3474  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
3475  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
3476  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(4)*(mt*(mt - ph(1) -&
3477  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
3478  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
3479  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) +&
3480  & (ecw(2) - dcmplx(0d0,1d0)*ecw(3))*((mt - pb(1) + pw(1))*(mt*eg(4)*((ph(4) +&
3481  & pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) +&
3482  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3483  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3484  & mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
3485  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
3486  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3487  & kapt*ubt(4))) + eg(1)*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
3488  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
3489  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
3490  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) + (pb(2) - pw(2) +&
3491  & dcmplx(0d0,1d0)*(pb(3) - pw(3)))*(mt*eg(1)*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
3492  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
3493  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3494  & kapt*ubt(4))) - mt*eg(4)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
3495  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
3496  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3497  & kapt*ubt(4))) + (eg(2) - dcmplx(0d0,1d0)*eg(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1)&
3498  & - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
3499  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
3500  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) + (pb(4) -&
3501  & pw(4))*(mt*eg(1)*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt +&
3502  & ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3503  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3504  & mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
3505  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
3506  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
3507  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(4)*(mt*(mt - ph(1) -&
3508  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
3509  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
3510  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))))))&
3511  & - dconjg(ubb(4))*((ecw(1) - ecw(4))*(-((pb(4) - pw(4))*(mt*(eg(2) -&
3512  & dcmplx(0d0,1d0)*eg(3))*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) +&
3513  & (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3514  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3515  & mt*eg(1)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1)&
3516  & + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2) -&
3517  & dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3518  & kapt*ubt(4))) + eg(4)*(-(mt*(ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
3519  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3))) + mt*(ph(4) + pt(4))*(kapt*ubt(2)&
3520  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) -&
3521  & kapt*mt*ubt(4))))) + (pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
3522  & dcmplx(0d0,1d0)*pw(3))*(mt*eg(4)*((ph(4) + pt(4))*(kapt*ubt(1) -&
3523  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
3524  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
3525  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((ph(2) + pt(2) -&
3526  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
3527  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
3528  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(1)*(mt*(mt - ph(1) -&
3529  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
3530  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
3531  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) -&
3532  & (mt + pb(1) - pw(1))*(mt*eg(1)*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
3533  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
3534  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3535  & kapt*ubt(4))) - mt*eg(4)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
3536  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
3537  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3538  & kapt*ubt(4))) + (eg(2) - dcmplx(0d0,1d0)*eg(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1)&
3539  & - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
3540  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
3541  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) + (ecw(2) -&
3542  & dcmplx(0d0,1d0)*ecw(3))*((pb(2) - pw(2) + dcmplx(0d0,1d0)*(pb(3) - pw(3)))*(mt*(eg(2)&
3543  & - dcmplx(0d0,1d0)*eg(3))*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) +&
3544  & (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3545  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3546  & mt*eg(1)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1)&
3547  & + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2) -&
3548  & dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3549  & kapt*ubt(4))) + eg(4)*(-(mt*(ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
3550  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3))) + mt*(ph(4) + pt(4))*(kapt*ubt(2)&
3551  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) -&
3552  & kapt*mt*ubt(4)))) + (pb(4) - pw(4))*(mt*eg(4)*((ph(4) + pt(4))*(kapt*ubt(1) -&
3553  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
3554  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
3555  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((ph(2) + pt(2) -&
3556  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
3557  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
3558  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(1)*(mt*(mt - ph(1) -&
3559  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
3560  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
3561  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) -&
3562  & (mt + pb(1) - pw(1))*(mt*eg(1)*((ph(4) + pt(4))*(kapt*ubt(1) -&
3563  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
3564  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
3565  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(eg(2) +&
3566  & dcmplx(0d0,1d0)*eg(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
3567  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
3568  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3569  & kapt*ubt(4))) + eg(4)*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
3570  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
3571  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
3572  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) + (ecw(1) - ecw(4))*((mt -&
3573  & pb(1) + pw(1))*(mt*(eg(2) - dcmplx(0d0,1d0)*eg(3))*((ph(4) + pt(4))*(kapt*ubt(1) -&
3574  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
3575  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
3576  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*eg(1)*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
3577  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
3578  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
3579  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(4)*(-(mt*(ph(2) + pt(2) -&
3580  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3))) +&
3581  & mt*(ph(4) + pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
3582  & pt(1))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) - (pb(4) -&
3583  & pw(4))*(mt*eg(1)*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) -&
3584  & dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
3585  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3586  & kapt*ubt(4))) - mt*eg(4)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
3587  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
3588  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3589  & kapt*ubt(4))) + (eg(2) - dcmplx(0d0,1d0)*eg(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1)&
3590  & - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
3591  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
3592  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) + (pb(2) -&
3593  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3))*(mt*eg(1)*((ph(4) +&
3594  & pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) +&
3595  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3596  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3597  & mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
3598  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
3599  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
3600  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(4)*(mt*(mt - ph(1) -&
3601  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
3602  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
3603  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) +&
3604  & (ecw(2) - dcmplx(0d0,1d0)*ecw(3))*((mt - pb(1) + pw(1))*(mt*eg(4)*((ph(4) +&
3605  & pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) +&
3606  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3607  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3608  & mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
3609  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
3610  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3611  & kapt*ubt(4))) + eg(1)*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
3612  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
3613  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
3614  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) + (pb(2) - pw(2) +&
3615  & dcmplx(0d0,1d0)*(pb(3) - pw(3)))*(mt*eg(1)*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
3616  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
3617  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3618  & kapt*ubt(4))) - mt*eg(4)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
3619  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
3620  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3621  & kapt*ubt(4))) + (eg(2) - dcmplx(0d0,1d0)*eg(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1)&
3622  & - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
3623  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
3624  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) + (pb(4) -&
3625  & pw(4))*(mt*eg(1)*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt +&
3626  & ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3627  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3628  & mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
3629  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
3630  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
3631  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(4)*(mt*(mt - ph(1) -&
3632  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
3633  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
3634  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))))&
3635  & - dconjg(ubb(1))*((ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(-((pb(4) - pw(4))*(mt*(eg(2) -&
3636  & dcmplx(0d0,1d0)*eg(3))*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) +&
3637  & (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3638  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3639  & mt*eg(1)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1)&
3640  & + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2) -&
3641  & dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3642  & kapt*ubt(4))) + eg(4)*(-(mt*(ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
3643  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3))) + mt*(ph(4) + pt(4))*(kapt*ubt(2)&
3644  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) -&
3645  & kapt*mt*ubt(4))))) + (pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
3646  & dcmplx(0d0,1d0)*pw(3))*(mt*eg(4)*((ph(4) + pt(4))*(kapt*ubt(1) -&
3647  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
3648  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
3649  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((ph(2) + pt(2) -&
3650  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
3651  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
3652  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(1)*(mt*(mt - ph(1) -&
3653  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
3654  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
3655  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) -&
3656  & (mt + pb(1) - pw(1))*(mt*eg(1)*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
3657  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
3658  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3659  & kapt*ubt(4))) - mt*eg(4)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
3660  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
3661  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3662  & kapt*ubt(4))) + (eg(2) - dcmplx(0d0,1d0)*eg(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1)&
3663  & - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
3664  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
3665  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) + (ecw(1) +&
3666  & ecw(4))*((pb(2) - pw(2) + dcmplx(0d0,1d0)*(pb(3) - pw(3)))*(mt*(eg(2) -&
3667  & dcmplx(0d0,1d0)*eg(3))*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) +&
3668  & (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3669  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3670  & mt*eg(1)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1)&
3671  & + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2) -&
3672  & dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3673  & kapt*ubt(4))) + eg(4)*(-(mt*(ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
3674  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3))) + mt*(ph(4) + pt(4))*(kapt*ubt(2)&
3675  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) -&
3676  & kapt*mt*ubt(4)))) + (pb(4) - pw(4))*(mt*eg(4)*((ph(4) + pt(4))*(kapt*ubt(1) -&
3677  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
3678  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
3679  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((ph(2) + pt(2) -&
3680  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
3681  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
3682  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(1)*(mt*(mt - ph(1) -&
3683  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
3684  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
3685  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) -&
3686  & (mt + pb(1) - pw(1))*(mt*eg(1)*((ph(4) + pt(4))*(kapt*ubt(1) -&
3687  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
3688  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
3689  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(eg(2) +&
3690  & dcmplx(0d0,1d0)*eg(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
3691  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
3692  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3693  & kapt*ubt(4))) + eg(4)*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
3694  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
3695  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
3696  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) + (ecw(2) +&
3697  & dcmplx(0d0,1d0)*ecw(3))*((mt - pb(1) + pw(1))*(mt*(eg(2) -&
3698  & dcmplx(0d0,1d0)*eg(3))*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) +&
3699  & (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3700  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3701  & mt*eg(1)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1)&
3702  & + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2) -&
3703  & dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3704  & kapt*ubt(4))) + eg(4)*(-(mt*(ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
3705  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3))) + mt*(ph(4) + pt(4))*(kapt*ubt(2)&
3706  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) -&
3707  & kapt*mt*ubt(4)))) - (pb(4) - pw(4))*(mt*eg(1)*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3)&
3708  & + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
3709  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3710  & kapt*ubt(4))) - mt*eg(4)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
3711  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
3712  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3713  & kapt*ubt(4))) + (eg(2) - dcmplx(0d0,1d0)*eg(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1)&
3714  & - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
3715  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
3716  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) + (pb(2) -&
3717  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3))*(mt*eg(1)*((ph(4) +&
3718  & pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) +&
3719  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3720  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3721  & mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
3722  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
3723  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
3724  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(4)*(mt*(mt - ph(1) -&
3725  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
3726  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
3727  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) +&
3728  & (ecw(1) + ecw(4))*((mt - pb(1) + pw(1))*(mt*eg(4)*((ph(4) + pt(4))*(kapt*ubt(1) -&
3729  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
3730  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
3731  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((ph(2) + pt(2) -&
3732  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
3733  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
3734  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(1)*(mt*(mt - ph(1) -&
3735  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
3736  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
3737  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) +&
3738  & (pb(2) - pw(2) + dcmplx(0d0,1d0)*(pb(3) - pw(3)))*(mt*eg(1)*((ph(2) + pt(2) -&
3739  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
3740  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
3741  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) - mt*eg(4)*((dcmplx(0d0,1d0)*ph(2)&
3742  & + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) +&
3743  & (mt - ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
3744  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + (eg(2) -&
3745  & dcmplx(0d0,1d0)*eg(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
3746  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
3747  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
3748  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) + (pb(4) -&
3749  & pw(4))*(mt*eg(1)*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt +&
3750  & ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3751  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3752  & mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
3753  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
3754  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
3755  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(4)*(mt*(mt - ph(1) -&
3756  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
3757  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
3758  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))))&
3759  & - dconjg(ubb(3))*((ecw(2) + dcmplx(0d0,1d0)*ecw(3))*(-((pb(4) - pw(4))*(mt*(eg(2) -&
3760  & dcmplx(0d0,1d0)*eg(3))*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) +&
3761  & (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3762  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3763  & mt*eg(1)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1)&
3764  & + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2) -&
3765  & dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3766  & kapt*ubt(4))) + eg(4)*(-(mt*(ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
3767  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3))) + mt*(ph(4) + pt(4))*(kapt*ubt(2)&
3768  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) -&
3769  & kapt*mt*ubt(4))))) + (pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
3770  & dcmplx(0d0,1d0)*pw(3))*(mt*eg(4)*((ph(4) + pt(4))*(kapt*ubt(1) -&
3771  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
3772  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
3773  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((ph(2) + pt(2) -&
3774  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
3775  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
3776  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(1)*(mt*(mt - ph(1) -&
3777  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
3778  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
3779  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) -&
3780  & (mt + pb(1) - pw(1))*(mt*eg(1)*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
3781  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
3782  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3783  & kapt*ubt(4))) - mt*eg(4)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
3784  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
3785  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3786  & kapt*ubt(4))) + (eg(2) - dcmplx(0d0,1d0)*eg(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1)&
3787  & - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
3788  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
3789  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) + (ecw(1) +&
3790  & ecw(4))*((pb(2) - pw(2) + dcmplx(0d0,1d0)*(pb(3) - pw(3)))*(mt*(eg(2) -&
3791  & dcmplx(0d0,1d0)*eg(3))*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) +&
3792  & (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3793  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3794  & mt*eg(1)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1)&
3795  & + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2) -&
3796  & dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3797  & kapt*ubt(4))) + eg(4)*(-(mt*(ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
3798  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3))) + mt*(ph(4) + pt(4))*(kapt*ubt(2)&
3799  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) -&
3800  & kapt*mt*ubt(4)))) + (pb(4) - pw(4))*(mt*eg(4)*((ph(4) + pt(4))*(kapt*ubt(1) -&
3801  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
3802  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
3803  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((ph(2) + pt(2) -&
3804  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
3805  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
3806  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(1)*(mt*(mt - ph(1) -&
3807  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
3808  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
3809  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) -&
3810  & (mt + pb(1) - pw(1))*(mt*eg(1)*((ph(4) + pt(4))*(kapt*ubt(1) -&
3811  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
3812  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
3813  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(eg(2) +&
3814  & dcmplx(0d0,1d0)*eg(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
3815  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
3816  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3817  & kapt*ubt(4))) + eg(4)*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
3818  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
3819  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
3820  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) + (ecw(2) +&
3821  & dcmplx(0d0,1d0)*ecw(3))*((mt - pb(1) + pw(1))*(mt*(eg(2) -&
3822  & dcmplx(0d0,1d0)*eg(3))*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) +&
3823  & (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3824  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3825  & mt*eg(1)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1)&
3826  & + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2) -&
3827  & dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3828  & kapt*ubt(4))) + eg(4)*(-(mt*(ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3) +&
3829  & pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3))) + mt*(ph(4) + pt(4))*(kapt*ubt(2)&
3830  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) -&
3831  & kapt*mt*ubt(4)))) - (pb(4) - pw(4))*(mt*eg(1)*((ph(2) + pt(2) - dcmplx(0d0,1d0)*(ph(3)&
3832  & + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) + pt(4))*(kapt*ubt(2) -&
3833  & dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3834  & kapt*ubt(4))) - mt*eg(4)*((dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pt(2) +&
3835  & pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt - ph(1) - pt(1))*(kapt*ubt(2)&
3836  & - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) + pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) +&
3837  & kapt*ubt(4))) + (eg(2) - dcmplx(0d0,1d0)*eg(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1)&
3838  & - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
3839  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
3840  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) + (pb(2) -&
3841  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3))*(mt*eg(1)*((ph(4) +&
3842  & pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) +&
3843  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3844  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3845  & mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
3846  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
3847  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
3848  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(4)*(mt*(mt - ph(1) -&
3849  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
3850  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
3851  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4))))) +&
3852  & (ecw(1) + ecw(4))*((mt - pb(1) + pw(1))*(mt*eg(4)*((ph(4) + pt(4))*(kapt*ubt(1) -&
3853  & dcmplx(0d0,1d0)*kap*ubt(3)) + (mt + ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) +&
3854  & kapt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) -&
3855  & dcmplx(0d0,1d0)*kap*ubt(4))) + mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((ph(2) + pt(2) -&
3856  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
3857  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
3858  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(1)*(mt*(mt - ph(1) -&
3859  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
3860  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
3861  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) +&
3862  & (pb(2) - pw(2) + dcmplx(0d0,1d0)*(pb(3) - pw(3)))*(mt*eg(1)*((ph(2) + pt(2) -&
3863  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) - (ph(4) +&
3864  & pt(4))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (mt + ph(1) +&
3865  & pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) - mt*eg(4)*((dcmplx(0d0,1d0)*ph(2)&
3866  & + ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) +&
3867  & (mt - ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
3868  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + (eg(2) -&
3869  & dcmplx(0d0,1d0)*eg(3))*(mt*(mt - ph(1) - pt(1))*(kapt*ubt(1) -&
3870  & dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) + pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) -&
3871  & kapt*mt*ubt(3)) + (ph(2) + pt(2) + dcmplx(0d0,1d0)*(ph(3) +&
3872  & pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) - kapt*mt*ubt(4)))) + (pb(4) -&
3873  & pw(4))*(mt*eg(1)*((ph(4) + pt(4))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (mt +&
3874  & ph(1) + pt(1))*(dcmplx(0d0,-1d0)*kap*ubt(1) + kapt*ubt(3)) + (ph(2) + pt(2) +&
3875  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4))) +&
3876  & mt*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((dcmplx(0d0,1d0)*ph(2) + ph(3) +&
3877  & dcmplx(0d0,1d0)*pt(2) + pt(3))*(kap*ubt(1) + dcmplx(0d0,1d0)*kapt*ubt(3)) + (mt -&
3878  & ph(1) - pt(1))*(kapt*ubt(2) - dcmplx(0d0,1d0)*kap*ubt(4)) + (ph(4) +&
3879  & pt(4))*(dcmplx(0d0,-1d0)*kap*ubt(2) + kapt*ubt(4))) + eg(4)*(mt*(mt - ph(1) -&
3880  & pt(1))*(kapt*ubt(1) - dcmplx(0d0,1d0)*kap*ubt(3)) + (ph(4) +&
3881  & pt(4))*(dcmplx(0d0,1d0)*kap*mt*ubt(1) - kapt*mt*ubt(3)) + (ph(2) + pt(2) +&
3882  & dcmplx(0d0,1d0)*(ph(3) + pt(3)))*(dcmplx(0d0,1d0)*kap*mt*ubt(2) -&
3883  & kapt*mt*ubt(4))))))))/(sqrt2*v**2*(mt**2 - (ph(1) + pt(1))**2 + (ph(2) + pt(2))**2&
3884  & + (ph(3) + pt(3))**2 + (ph(4) + pt(4))**2)*(mt**2 - (pb(1) - pw(1))**2 + (pb(2) -&
3885  & pw(2))**2 + (pb(3) - pw(3))**2 + (pb(4) - pw(4))**2))
3886 
3887  ampwt = (gs*mw*(dcmplx(0d0,-1d0)*dconjg(ubb(1))*((a1ww*mw**2*(ecw(2) +&
3888  & dcmplx(0d0,1d0)*ecw(3)) + a1ww*(ph(2) + dcmplx(0d0,1d0)*ph(3) + pw(2) +&
3889  & dcmplx(0d0,1d0)*pw(3))*(ecw(3)*ph(3) + ecw(4)*ph(4) - ecw(1)*(ph(1) + pw(1)) +&
3890  & ecw(2)*(ph(2) + pw(2)) + ecw(3)*pw(3) + ecw(4)*pw(4)) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
3891  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
3892  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
3893  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
3894  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))) +&
3895  & 2*a2ww*(dcmplx(0d0,-1d0)*ecw(3)*(ph(1)*pw(1) + pw(1)**2 - ph(2)*pw(2) -&
3896  & dcmplx(0d0,1d0)*ph(3)*pw(2) - pw(2)**2 - dcmplx(0d0,1d0)*pw(2)*pw(3) - ph(4)*pw(4) -&
3897  & pw(4)**2) + ecw(2)*(-(ph(1)*pw(1)) - pw(1)**2 - dcmplx(0d0,1d0)*ph(2)*pw(3) +&
3898  & ph(3)*pw(3) - dcmplx(0d0,1d0)*pw(2)*pw(3) + pw(3)**2 + ph(4)*pw(4) + pw(4)**2) +&
3899  & (pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(4)*(ph(4) +&
3900  & pw(4)))))*(dcmplx(0d0,1d0)*eg(3)*pg(4)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*pt(4)*ubt(1) +&
3901  & mt*eg(1)*ubt(2) - eg(1)*pg(1)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*pg(2)*ubt(2) +&
3902  & eg(3)*pg(3)*ubt(2) + eg(1)*pt(1)*ubt(2) - dcmplx(0d0,1d0)*eg(3)*pt(2)*ubt(2) -&
3903  & eg(3)*pt(3)*ubt(2) - dcmplx(0d0,1d0)*mt*eg(3)*ubt(3) +&
3904  & dcmplx(0d0,1d0)*eg(3)*pg(1)*ubt(3) + eg(1)*pg(2)*ubt(3) -&
3905  & dcmplx(0d0,1d0)*eg(1)*pg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*pt(1)*ubt(3) -&
3906  & eg(1)*pt(2)*ubt(3) + dcmplx(0d0,1d0)*eg(1)*pt(3)*ubt(3) + eg(2)*(-(pg(4)*ubt(1)) +&
3907  & pt(4)*ubt(1) + pg(2)*ubt(2) - dcmplx(0d0,1d0)*pg(3)*ubt(2) - pt(2)*ubt(2) +&
3908  & dcmplx(0d0,1d0)*pt(3)*ubt(2) + mt*ubt(3) - pg(1)*ubt(3) + pt(1)*ubt(3)) -&
3909  & eg(1)*pg(4)*ubt(4) + eg(1)*pt(4)*ubt(4) + eg(4)*(pg(2)*ubt(1) -&
3910  & dcmplx(0d0,1d0)*pg(3)*ubt(1) - pt(2)*ubt(1) + dcmplx(0d0,1d0)*pt(3)*ubt(1) +&
3911  & pg(4)*ubt(2) - pt(4)*ubt(2) - mt*ubt(4) + pg(1)*ubt(4) - pt(1)*ubt(4))) +&
3912  & (a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3))&
3913  & - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) -&
3914  & ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
3915  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
3916  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
3917  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
3918  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
3919  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
3920  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
3921  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*(eg(2)*pg(2)*ubt(1) -&
3922  & dcmplx(0d0,1d0)*eg(3)*pg(2)*ubt(1) + dcmplx(0d0,1d0)*eg(2)*pg(3)*ubt(1) +&
3923  & eg(3)*pg(3)*ubt(1) + eg(4)*pg(4)*ubt(1) - eg(2)*pt(2)*ubt(1) +&
3924  & dcmplx(0d0,1d0)*eg(3)*pt(2)*ubt(1) - dcmplx(0d0,1d0)*eg(2)*pt(3)*ubt(1) -&
3925  & eg(3)*pt(3)*ubt(1) - eg(4)*pt(4)*ubt(1) - eg(4)*pg(2)*ubt(2) -&
3926  & dcmplx(0d0,1d0)*eg(4)*pg(3)*ubt(2) + eg(2)*pg(4)*ubt(2) +&
3927  & dcmplx(0d0,1d0)*eg(3)*pg(4)*ubt(2) + eg(4)*pt(2)*ubt(2) +&
3928  & dcmplx(0d0,1d0)*eg(4)*pt(3)*ubt(2) - eg(2)*pt(4)*ubt(2) -&
3929  & dcmplx(0d0,1d0)*eg(3)*pt(4)*ubt(2) - eg(4)*pg(1)*ubt(3) + eg(4)*pt(1)*ubt(3) -&
3930  & eg(2)*pg(1)*ubt(4) - dcmplx(0d0,1d0)*eg(3)*pg(1)*ubt(4) + eg(2)*pt(1)*ubt(4) +&
3931  & dcmplx(0d0,1d0)*eg(3)*pt(1)*ubt(4) + mt*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
3932  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) + eg(1)*(-(pg(1)*ubt(1)) + pt(1)*ubt(1) + pg(4)*ubt(3)&
3933  & - pt(4)*ubt(3) + pg(2)*ubt(4) + dcmplx(0d0,1d0)*pg(3)*ubt(4) - pt(2)*ubt(4) -&
3934  & dcmplx(0d0,1d0)*pt(3)*ubt(4))) - (a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) +&
3935  & pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) -&
3936  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1))&
3937  & + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
3938  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
3939  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
3940  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
3941  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
3942  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
3943  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) +&
3944  & pw(4)))))*(-(eg(1)*pg(4)*ubt(1)) + eg(1)*pt(4)*ubt(1) + eg(2)*pg(1)*ubt(2) +&
3945  & dcmplx(0d0,1d0)*eg(3)*pg(1)*ubt(2) - eg(1)*pg(2)*ubt(2) -&
3946  & dcmplx(0d0,1d0)*eg(1)*pg(3)*ubt(2) - eg(2)*pt(1)*ubt(2) -&
3947  & dcmplx(0d0,1d0)*eg(3)*pt(1)*ubt(2) + eg(1)*pt(2)*ubt(2) +&
3948  & dcmplx(0d0,1d0)*eg(1)*pt(3)*ubt(2) + eg(1)*pg(1)*ubt(3) - eg(2)*pg(2)*ubt(3) +&
3949  & dcmplx(0d0,1d0)*eg(3)*pg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(2)*pg(3)*ubt(3) -&
3950  & eg(3)*pg(3)*ubt(3) - eg(1)*pt(1)*ubt(3) + eg(2)*pt(2)*ubt(3) -&
3951  & dcmplx(0d0,1d0)*eg(3)*pt(2)*ubt(3) + dcmplx(0d0,1d0)*eg(2)*pt(3)*ubt(3) +&
3952  & eg(3)*pt(3)*ubt(3) + mt*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) +&
3953  & eg(1)*ubt(3)) - eg(2)*pg(4)*ubt(4) - dcmplx(0d0,1d0)*eg(3)*pg(4)*ubt(4) +&
3954  & eg(2)*pt(4)*ubt(4) + dcmplx(0d0,1d0)*eg(3)*pt(4)*ubt(4) + eg(4)*(pg(1)*ubt(1) -&
3955  & pt(1)*ubt(1) - pg(4)*ubt(3) + pt(4)*ubt(3) + pg(2)*ubt(4) +&
3956  & dcmplx(0d0,1d0)*pg(3)*ubt(4) - pt(2)*ubt(4) - dcmplx(0d0,1d0)*pt(3)*ubt(4))) -&
3957  & (a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + a1ww*(ph(2) + dcmplx(0d0,1d0)*ph(3) +&
3958  & pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(3)*ph(3) + ecw(4)*ph(4) - ecw(1)*(ph(1) + pw(1)) +&
3959  & ecw(2)*(ph(2) + pw(2)) + ecw(3)*pw(3) + ecw(4)*pw(4)) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
3960  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
3961  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
3962  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
3963  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))) +&
3964  & 2*a2ww*(dcmplx(0d0,-1d0)*ecw(3)*(ph(1)*pw(1) + pw(1)**2 - ph(2)*pw(2) -&
3965  & dcmplx(0d0,1d0)*ph(3)*pw(2) - pw(2)**2 - dcmplx(0d0,1d0)*pw(2)*pw(3) - ph(4)*pw(4) -&
3966  & pw(4)**2) + ecw(2)*(-(ph(1)*pw(1)) - pw(1)**2 - dcmplx(0d0,1d0)*ph(2)*pw(3) +&
3967  & ph(3)*pw(3) - dcmplx(0d0,1d0)*pw(2)*pw(3) + pw(3)**2 + ph(4)*pw(4) + pw(4)**2) +&
3968  & (pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(4)*(ph(4) +&
3969  & pw(4)))))*(dcmplx(0d0,-1d0)*eg(3)*pg(1)*ubt(1) - eg(1)*pg(2)*ubt(1) +&
3970  & dcmplx(0d0,1d0)*eg(1)*pg(3)*ubt(1) + dcmplx(0d0,1d0)*eg(3)*pt(1)*ubt(1) +&
3971  & eg(1)*pt(2)*ubt(1) - dcmplx(0d0,1d0)*eg(1)*pt(3)*ubt(1) - eg(4)*pg(1)*ubt(2) +&
3972  & eg(1)*pg(4)*ubt(2) + eg(4)*pt(1)*ubt(2) - eg(1)*pt(4)*ubt(2) - eg(4)*pg(2)*ubt(3) +&
3973  & dcmplx(0d0,1d0)*eg(4)*pg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*pg(4)*ubt(3) +&
3974  & eg(4)*pt(2)*ubt(3) - dcmplx(0d0,1d0)*eg(4)*pt(3)*ubt(3) +&
3975  & dcmplx(0d0,1d0)*eg(3)*pt(4)*ubt(3) + eg(1)*pg(1)*ubt(4) -&
3976  & dcmplx(0d0,1d0)*eg(3)*pg(2)*ubt(4) - eg(3)*pg(3)*ubt(4) - eg(4)*pg(4)*ubt(4) -&
3977  & eg(1)*pt(1)*ubt(4) + dcmplx(0d0,1d0)*eg(3)*pt(2)*ubt(4) + eg(3)*pt(3)*ubt(4) +&
3978  & eg(4)*pt(4)*ubt(4) + mt*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) +&
3979  & eg(1)*ubt(4)) + eg(2)*(pg(1)*ubt(1) - pt(1)*ubt(1) + pg(4)*ubt(3) - pt(4)*ubt(3) -&
3980  & pg(2)*ubt(4) + dcmplx(0d0,1d0)*pg(3)*ubt(4) + pt(2)*ubt(4) -&
3981  & dcmplx(0d0,1d0)*pt(3)*ubt(4)))) - dcmplx(0d0,1d0)*dconjg(ubb(3))*((a1ww*mw**2*(ecw(2)&
3982  & + dcmplx(0d0,1d0)*ecw(3)) + a1ww*(ph(2) + dcmplx(0d0,1d0)*ph(3) + pw(2) +&
3983  & dcmplx(0d0,1d0)*pw(3))*(ecw(3)*ph(3) + ecw(4)*ph(4) - ecw(1)*(ph(1) + pw(1)) +&
3984  & ecw(2)*(ph(2) + pw(2)) + ecw(3)*pw(3) + ecw(4)*pw(4)) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
3985  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
3986  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
3987  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
3988  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))) +&
3989  & 2*a2ww*(dcmplx(0d0,-1d0)*ecw(3)*(ph(1)*pw(1) + pw(1)**2 - ph(2)*pw(2) -&
3990  & dcmplx(0d0,1d0)*ph(3)*pw(2) - pw(2)**2 - dcmplx(0d0,1d0)*pw(2)*pw(3) - ph(4)*pw(4) -&
3991  & pw(4)**2) + ecw(2)*(-(ph(1)*pw(1)) - pw(1)**2 - dcmplx(0d0,1d0)*ph(2)*pw(3) +&
3992  & ph(3)*pw(3) - dcmplx(0d0,1d0)*pw(2)*pw(3) + pw(3)**2 + ph(4)*pw(4) + pw(4)**2) +&
3993  & (pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(4)*(ph(4) +&
3994  & pw(4)))))*(dcmplx(0d0,1d0)*eg(3)*pg(4)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*pt(4)*ubt(1) +&
3995  & mt*eg(1)*ubt(2) - eg(1)*pg(1)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*pg(2)*ubt(2) +&
3996  & eg(3)*pg(3)*ubt(2) + eg(1)*pt(1)*ubt(2) - dcmplx(0d0,1d0)*eg(3)*pt(2)*ubt(2) -&
3997  & eg(3)*pt(3)*ubt(2) - dcmplx(0d0,1d0)*mt*eg(3)*ubt(3) +&
3998  & dcmplx(0d0,1d0)*eg(3)*pg(1)*ubt(3) + eg(1)*pg(2)*ubt(3) -&
3999  & dcmplx(0d0,1d0)*eg(1)*pg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*pt(1)*ubt(3) -&
4000  & eg(1)*pt(2)*ubt(3) + dcmplx(0d0,1d0)*eg(1)*pt(3)*ubt(3) + eg(2)*(-(pg(4)*ubt(1)) +&
4001  & pt(4)*ubt(1) + pg(2)*ubt(2) - dcmplx(0d0,1d0)*pg(3)*ubt(2) - pt(2)*ubt(2) +&
4002  & dcmplx(0d0,1d0)*pt(3)*ubt(2) + mt*ubt(3) - pg(1)*ubt(3) + pt(1)*ubt(3)) -&
4003  & eg(1)*pg(4)*ubt(4) + eg(1)*pt(4)*ubt(4) + eg(4)*(pg(2)*ubt(1) -&
4004  & dcmplx(0d0,1d0)*pg(3)*ubt(1) - pt(2)*ubt(1) + dcmplx(0d0,1d0)*pt(3)*ubt(1) +&
4005  & pg(4)*ubt(2) - pt(4)*ubt(2) - mt*ubt(4) + pg(1)*ubt(4) - pt(1)*ubt(4))) +&
4006  & (a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3))&
4007  & - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) -&
4008  & ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
4009  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
4010  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
4011  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
4012  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
4013  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
4014  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
4015  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))*(eg(2)*pg(2)*ubt(1) -&
4016  & dcmplx(0d0,1d0)*eg(3)*pg(2)*ubt(1) + dcmplx(0d0,1d0)*eg(2)*pg(3)*ubt(1) +&
4017  & eg(3)*pg(3)*ubt(1) + eg(4)*pg(4)*ubt(1) - eg(2)*pt(2)*ubt(1) +&
4018  & dcmplx(0d0,1d0)*eg(3)*pt(2)*ubt(1) - dcmplx(0d0,1d0)*eg(2)*pt(3)*ubt(1) -&
4019  & eg(3)*pt(3)*ubt(1) - eg(4)*pt(4)*ubt(1) - eg(4)*pg(2)*ubt(2) -&
4020  & dcmplx(0d0,1d0)*eg(4)*pg(3)*ubt(2) + eg(2)*pg(4)*ubt(2) +&
4021  & dcmplx(0d0,1d0)*eg(3)*pg(4)*ubt(2) + eg(4)*pt(2)*ubt(2) +&
4022  & dcmplx(0d0,1d0)*eg(4)*pt(3)*ubt(2) - eg(2)*pt(4)*ubt(2) -&
4023  & dcmplx(0d0,1d0)*eg(3)*pt(4)*ubt(2) - eg(4)*pg(1)*ubt(3) + eg(4)*pt(1)*ubt(3) -&
4024  & eg(2)*pg(1)*ubt(4) - dcmplx(0d0,1d0)*eg(3)*pg(1)*ubt(4) + eg(2)*pt(1)*ubt(4) +&
4025  & dcmplx(0d0,1d0)*eg(3)*pt(1)*ubt(4) + mt*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
4026  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) + eg(1)*(-(pg(1)*ubt(1)) + pt(1)*ubt(1) + pg(4)*ubt(3)&
4027  & - pt(4)*ubt(3) + pg(2)*ubt(4) + dcmplx(0d0,1d0)*pg(3)*ubt(4) - pt(2)*ubt(4) -&
4028  & dcmplx(0d0,1d0)*pt(3)*ubt(4))) - (a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) +&
4029  & pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) -&
4030  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1))&
4031  & + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
4032  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
4033  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
4034  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
4035  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
4036  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
4037  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) +&
4038  & pw(4)))))*(-(eg(1)*pg(4)*ubt(1)) + eg(1)*pt(4)*ubt(1) + eg(2)*pg(1)*ubt(2) +&
4039  & dcmplx(0d0,1d0)*eg(3)*pg(1)*ubt(2) - eg(1)*pg(2)*ubt(2) -&
4040  & dcmplx(0d0,1d0)*eg(1)*pg(3)*ubt(2) - eg(2)*pt(1)*ubt(2) -&
4041  & dcmplx(0d0,1d0)*eg(3)*pt(1)*ubt(2) + eg(1)*pt(2)*ubt(2) +&
4042  & dcmplx(0d0,1d0)*eg(1)*pt(3)*ubt(2) + eg(1)*pg(1)*ubt(3) - eg(2)*pg(2)*ubt(3) +&
4043  & dcmplx(0d0,1d0)*eg(3)*pg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(2)*pg(3)*ubt(3) -&
4044  & eg(3)*pg(3)*ubt(3) - eg(1)*pt(1)*ubt(3) + eg(2)*pt(2)*ubt(3) -&
4045  & dcmplx(0d0,1d0)*eg(3)*pt(2)*ubt(3) + dcmplx(0d0,1d0)*eg(2)*pt(3)*ubt(3) +&
4046  & eg(3)*pt(3)*ubt(3) + mt*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) +&
4047  & eg(1)*ubt(3)) - eg(2)*pg(4)*ubt(4) - dcmplx(0d0,1d0)*eg(3)*pg(4)*ubt(4) +&
4048  & eg(2)*pt(4)*ubt(4) + dcmplx(0d0,1d0)*eg(3)*pt(4)*ubt(4) + eg(4)*(pg(1)*ubt(1) -&
4049  & pt(1)*ubt(1) - pg(4)*ubt(3) + pt(4)*ubt(3) + pg(2)*ubt(4) +&
4050  & dcmplx(0d0,1d0)*pg(3)*ubt(4) - pt(2)*ubt(4) - dcmplx(0d0,1d0)*pt(3)*ubt(4))) -&
4051  & (a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + a1ww*(ph(2) + dcmplx(0d0,1d0)*ph(3) +&
4052  & pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(3)*ph(3) + ecw(4)*ph(4) - ecw(1)*(ph(1) + pw(1)) +&
4053  & ecw(2)*(ph(2) + pw(2)) + ecw(3)*pw(3) + ecw(4)*pw(4)) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
4054  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
4055  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
4056  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
4057  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))) +&
4058  & 2*a2ww*(dcmplx(0d0,-1d0)*ecw(3)*(ph(1)*pw(1) + pw(1)**2 - ph(2)*pw(2) -&
4059  & dcmplx(0d0,1d0)*ph(3)*pw(2) - pw(2)**2 - dcmplx(0d0,1d0)*pw(2)*pw(3) - ph(4)*pw(4) -&
4060  & pw(4)**2) + ecw(2)*(-(ph(1)*pw(1)) - pw(1)**2 - dcmplx(0d0,1d0)*ph(2)*pw(3) +&
4061  & ph(3)*pw(3) - dcmplx(0d0,1d0)*pw(2)*pw(3) + pw(3)**2 + ph(4)*pw(4) + pw(4)**2) +&
4062  & (pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(4)*(ph(4) +&
4063  & pw(4)))))*(dcmplx(0d0,-1d0)*eg(3)*pg(1)*ubt(1) - eg(1)*pg(2)*ubt(1) +&
4064  & dcmplx(0d0,1d0)*eg(1)*pg(3)*ubt(1) + dcmplx(0d0,1d0)*eg(3)*pt(1)*ubt(1) +&
4065  & eg(1)*pt(2)*ubt(1) - dcmplx(0d0,1d0)*eg(1)*pt(3)*ubt(1) - eg(4)*pg(1)*ubt(2) +&
4066  & eg(1)*pg(4)*ubt(2) + eg(4)*pt(1)*ubt(2) - eg(1)*pt(4)*ubt(2) - eg(4)*pg(2)*ubt(3) +&
4067  & dcmplx(0d0,1d0)*eg(4)*pg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*pg(4)*ubt(3) +&
4068  & eg(4)*pt(2)*ubt(3) - dcmplx(0d0,1d0)*eg(4)*pt(3)*ubt(3) +&
4069  & dcmplx(0d0,1d0)*eg(3)*pt(4)*ubt(3) + eg(1)*pg(1)*ubt(4) -&
4070  & dcmplx(0d0,1d0)*eg(3)*pg(2)*ubt(4) - eg(3)*pg(3)*ubt(4) - eg(4)*pg(4)*ubt(4) -&
4071  & eg(1)*pt(1)*ubt(4) + dcmplx(0d0,1d0)*eg(3)*pt(2)*ubt(4) + eg(3)*pt(3)*ubt(4) +&
4072  & eg(4)*pt(4)*ubt(4) + mt*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) +&
4073  & eg(1)*ubt(4)) + eg(2)*(pg(1)*ubt(1) - pt(1)*ubt(1) + pg(4)*ubt(3) - pt(4)*ubt(3) -&
4074  & pg(2)*ubt(4) + dcmplx(0d0,1d0)*pg(3)*ubt(4) + pt(2)*ubt(4) -&
4075  & dcmplx(0d0,1d0)*pt(3)*ubt(4)))) - dconjg(ubb(4))*(dcmplx(0d0,1d0)*(a1ww*mw**2*(ecw(1)&
4076  & - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
4077  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
4078  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
4079  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
4080  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
4081  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
4082  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
4083  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
4084  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) +&
4085  & pw(4)))))*(dcmplx(0d0,1d0)*eg(3)*pg(4)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*pt(4)*ubt(1) +&
4086  & mt*eg(1)*ubt(2) - eg(1)*pg(1)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*pg(2)*ubt(2) +&
4087  & eg(3)*pg(3)*ubt(2) + eg(1)*pt(1)*ubt(2) - dcmplx(0d0,1d0)*eg(3)*pt(2)*ubt(2) -&
4088  & eg(3)*pt(3)*ubt(2) - dcmplx(0d0,1d0)*mt*eg(3)*ubt(3) +&
4089  & dcmplx(0d0,1d0)*eg(3)*pg(1)*ubt(3) + eg(1)*pg(2)*ubt(3) -&
4090  & dcmplx(0d0,1d0)*eg(1)*pg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*pt(1)*ubt(3) -&
4091  & eg(1)*pt(2)*ubt(3) + dcmplx(0d0,1d0)*eg(1)*pt(3)*ubt(3) + eg(2)*(-(pg(4)*ubt(1)) +&
4092  & pt(4)*ubt(1) + pg(2)*ubt(2) - dcmplx(0d0,1d0)*pg(3)*ubt(2) - pt(2)*ubt(2) +&
4093  & dcmplx(0d0,1d0)*pt(3)*ubt(2) + mt*ubt(3) - pg(1)*ubt(3) + pt(1)*ubt(3)) -&
4094  & eg(1)*pg(4)*ubt(4) + eg(1)*pt(4)*ubt(4) + eg(4)*(pg(2)*ubt(1) -&
4095  & dcmplx(0d0,1d0)*pg(3)*ubt(1) - pt(2)*ubt(1) + dcmplx(0d0,1d0)*pt(3)*ubt(1) +&
4096  & pg(4)*ubt(2) - pt(4)*ubt(2) - mt*ubt(4) + pg(1)*ubt(4) - pt(1)*ubt(4))) +&
4097  & (a1ww*(mw**2*(dcmplx(0d0,1d0)*ecw(2) + ecw(3)) + (dcmplx(0d0,1d0)*ph(2) + ph(3) +&
4098  & dcmplx(0d0,1d0)*pw(2) + pw(3))*(ecw(3)*ph(3) + ecw(4)*ph(4) - ecw(1)*(ph(1) + pw(1)) +&
4099  & ecw(2)*(ph(2) + pw(2)) + ecw(3)*pw(3) + ecw(4)*pw(4))) +&
4100  & dcmplx(0d0,2d0)*(a4ww*(ecw(3)*ph(4)*pw(1) - dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) -&
4101  & ecw(1)*ph(4)*pw(3) + ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) +&
4102  & ph(1)*(dcmplx(0d0,1d0)*pw(2) + pw(3))) - ecw(3)*ph(1)*pw(4) +&
4103  & dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4) +&
4104  & dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))) +&
4105  & a2ww*(dcmplx(0d0,1d0)*ecw(3)*(ph(1)*pw(1) + pw(1)**2 - ph(2)*pw(2) +&
4106  & dcmplx(0d0,1d0)*ph(3)*pw(2) - pw(2)**2 + dcmplx(0d0,1d0)*pw(2)*pw(3) - ph(4)*pw(4) -&
4107  & pw(4)**2) + ecw(2)*(-(ph(1)*pw(1)) - pw(1)**2 + dcmplx(0d0,1d0)*ph(2)*pw(3) +&
4108  & ph(3)*pw(3) + dcmplx(0d0,1d0)*pw(2)*pw(3) + pw(3)**2 + ph(4)*pw(4) + pw(4)**2) +&
4109  & (pw(2) - dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(4)*(ph(4) +&
4110  & pw(4))))))*(eg(2)*pg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*pg(2)*ubt(1) +&
4111  & dcmplx(0d0,1d0)*eg(2)*pg(3)*ubt(1) + eg(3)*pg(3)*ubt(1) + eg(4)*pg(4)*ubt(1) -&
4112  & eg(2)*pt(2)*ubt(1) + dcmplx(0d0,1d0)*eg(3)*pt(2)*ubt(1) -&
4113  & dcmplx(0d0,1d0)*eg(2)*pt(3)*ubt(1) - eg(3)*pt(3)*ubt(1) - eg(4)*pt(4)*ubt(1) -&
4114  & eg(4)*pg(2)*ubt(2) - dcmplx(0d0,1d0)*eg(4)*pg(3)*ubt(2) + eg(2)*pg(4)*ubt(2) +&
4115  & dcmplx(0d0,1d0)*eg(3)*pg(4)*ubt(2) + eg(4)*pt(2)*ubt(2) +&
4116  & dcmplx(0d0,1d0)*eg(4)*pt(3)*ubt(2) - eg(2)*pt(4)*ubt(2) -&
4117  & dcmplx(0d0,1d0)*eg(3)*pt(4)*ubt(2) - eg(4)*pg(1)*ubt(3) + eg(4)*pt(1)*ubt(3) -&
4118  & eg(2)*pg(1)*ubt(4) - dcmplx(0d0,1d0)*eg(3)*pg(1)*ubt(4) + eg(2)*pt(1)*ubt(4) +&
4119  & dcmplx(0d0,1d0)*eg(3)*pt(1)*ubt(4) + mt*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
4120  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) + eg(1)*(-(pg(1)*ubt(1)) + pt(1)*ubt(1) + pg(4)*ubt(3)&
4121  & - pt(4)*ubt(3) + pg(2)*ubt(4) + dcmplx(0d0,1d0)*pg(3)*ubt(4) - pt(2)*ubt(4) -&
4122  & dcmplx(0d0,1d0)*pt(3)*ubt(4))) - dcmplx(0d0,1d0)*(a1ww*mw**2*(ecw(2) -&
4123  & dcmplx(0d0,1d0)*ecw(3)) + a1ww*(ph(2) - dcmplx(0d0,1d0)*(ph(3) + dcmplx(0d0,1d0)*pw(2)&
4124  & + pw(3)))*(ecw(3)*ph(3) + ecw(4)*ph(4) - ecw(1)*(ph(1) + pw(1)) + ecw(2)*(ph(2) +&
4125  & pw(2)) + ecw(3)*pw(3) + ecw(4)*pw(4)) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
4126  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
4127  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
4128  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
4129  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))) +&
4130  & 2*a2ww*(dcmplx(0d0,1d0)*ecw(3)*(ph(1)*pw(1) + pw(1)**2 - ph(2)*pw(2) +&
4131  & dcmplx(0d0,1d0)*ph(3)*pw(2) - pw(2)**2 + dcmplx(0d0,1d0)*pw(2)*pw(3) - ph(4)*pw(4) -&
4132  & pw(4)**2) + ecw(2)*(-(ph(1)*pw(1)) - pw(1)**2 + dcmplx(0d0,1d0)*ph(2)*pw(3) +&
4133  & ph(3)*pw(3) + dcmplx(0d0,1d0)*pw(2)*pw(3) + pw(3)**2 + ph(4)*pw(4) + pw(4)**2) +&
4134  & (pw(2) - dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(4)*(ph(4) +&
4135  & pw(4)))))*(-(eg(1)*pg(4)*ubt(1)) + eg(1)*pt(4)*ubt(1) + eg(2)*pg(1)*ubt(2) +&
4136  & dcmplx(0d0,1d0)*eg(3)*pg(1)*ubt(2) - eg(1)*pg(2)*ubt(2) -&
4137  & dcmplx(0d0,1d0)*eg(1)*pg(3)*ubt(2) - eg(2)*pt(1)*ubt(2) -&
4138  & dcmplx(0d0,1d0)*eg(3)*pt(1)*ubt(2) + eg(1)*pt(2)*ubt(2) +&
4139  & dcmplx(0d0,1d0)*eg(1)*pt(3)*ubt(2) + eg(1)*pg(1)*ubt(3) - eg(2)*pg(2)*ubt(3) +&
4140  & dcmplx(0d0,1d0)*eg(3)*pg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(2)*pg(3)*ubt(3) -&
4141  & eg(3)*pg(3)*ubt(3) - eg(1)*pt(1)*ubt(3) + eg(2)*pt(2)*ubt(3) -&
4142  & dcmplx(0d0,1d0)*eg(3)*pt(2)*ubt(3) + dcmplx(0d0,1d0)*eg(2)*pt(3)*ubt(3) +&
4143  & eg(3)*pt(3)*ubt(3) + mt*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) +&
4144  & eg(1)*ubt(3)) - eg(2)*pg(4)*ubt(4) - dcmplx(0d0,1d0)*eg(3)*pg(4)*ubt(4) +&
4145  & eg(2)*pt(4)*ubt(4) + dcmplx(0d0,1d0)*eg(3)*pt(4)*ubt(4) + eg(4)*(pg(1)*ubt(1) -&
4146  & pt(1)*ubt(1) - pg(4)*ubt(3) + pt(4)*ubt(3) + pg(2)*ubt(4) +&
4147  & dcmplx(0d0,1d0)*pg(3)*ubt(4) - pt(2)*ubt(4) - dcmplx(0d0,1d0)*pt(3)*ubt(4))) -&
4148  & dcmplx(0d0,1d0)*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
4149  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
4150  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
4151  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
4152  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
4153  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
4154  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
4155  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
4156  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
4157  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) +&
4158  & pw(4)))))*(dcmplx(0d0,-1d0)*eg(3)*pg(1)*ubt(1) - eg(1)*pg(2)*ubt(1) +&
4159  & dcmplx(0d0,1d0)*eg(1)*pg(3)*ubt(1) + dcmplx(0d0,1d0)*eg(3)*pt(1)*ubt(1) +&
4160  & eg(1)*pt(2)*ubt(1) - dcmplx(0d0,1d0)*eg(1)*pt(3)*ubt(1) - eg(4)*pg(1)*ubt(2) +&
4161  & eg(1)*pg(4)*ubt(2) + eg(4)*pt(1)*ubt(2) - eg(1)*pt(4)*ubt(2) - eg(4)*pg(2)*ubt(3) +&
4162  & dcmplx(0d0,1d0)*eg(4)*pg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*pg(4)*ubt(3) +&
4163  & eg(4)*pt(2)*ubt(3) - dcmplx(0d0,1d0)*eg(4)*pt(3)*ubt(3) +&
4164  & dcmplx(0d0,1d0)*eg(3)*pt(4)*ubt(3) + eg(1)*pg(1)*ubt(4) -&
4165  & dcmplx(0d0,1d0)*eg(3)*pg(2)*ubt(4) - eg(3)*pg(3)*ubt(4) - eg(4)*pg(4)*ubt(4) -&
4166  & eg(1)*pt(1)*ubt(4) + dcmplx(0d0,1d0)*eg(3)*pt(2)*ubt(4) + eg(3)*pt(3)*ubt(4) +&
4167  & eg(4)*pt(4)*ubt(4) + mt*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) +&
4168  & eg(1)*ubt(4)) + eg(2)*(pg(1)*ubt(1) - pt(1)*ubt(1) + pg(4)*ubt(3) - pt(4)*ubt(3) -&
4169  & pg(2)*ubt(4) + dcmplx(0d0,1d0)*pg(3)*ubt(4) + pt(2)*ubt(4) -&
4170  & dcmplx(0d0,1d0)*pt(3)*ubt(4)))) + dconjg(ubb(2))*(dcmplx(0d0,-1d0)*(a1ww*mw**2*(ecw(1)&
4171  & - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) - pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
4172  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) -&
4173  & 2*a2ww*(ecw(3)*ph(3)*pw(1) - ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3)&
4174  & + ecw(3)*pw(1)*pw(3) - ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) +&
4175  & ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) -&
4176  & ecw(3)*pw(3)*pw(4) - ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2&
4177  & + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1)&
4178  & - ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1)&
4179  & - pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) +&
4180  & pw(4)))))*(dcmplx(0d0,1d0)*eg(3)*pg(4)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*pt(4)*ubt(1) +&
4181  & mt*eg(1)*ubt(2) - eg(1)*pg(1)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*pg(2)*ubt(2) +&
4182  & eg(3)*pg(3)*ubt(2) + eg(1)*pt(1)*ubt(2) - dcmplx(0d0,1d0)*eg(3)*pt(2)*ubt(2) -&
4183  & eg(3)*pt(3)*ubt(2) - dcmplx(0d0,1d0)*mt*eg(3)*ubt(3) +&
4184  & dcmplx(0d0,1d0)*eg(3)*pg(1)*ubt(3) + eg(1)*pg(2)*ubt(3) -&
4185  & dcmplx(0d0,1d0)*eg(1)*pg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*pt(1)*ubt(3) -&
4186  & eg(1)*pt(2)*ubt(3) + dcmplx(0d0,1d0)*eg(1)*pt(3)*ubt(3) + eg(2)*(-(pg(4)*ubt(1)) +&
4187  & pt(4)*ubt(1) + pg(2)*ubt(2) - dcmplx(0d0,1d0)*pg(3)*ubt(2) - pt(2)*ubt(2) +&
4188  & dcmplx(0d0,1d0)*pt(3)*ubt(2) + mt*ubt(3) - pg(1)*ubt(3) + pt(1)*ubt(3)) -&
4189  & eg(1)*pg(4)*ubt(4) + eg(1)*pt(4)*ubt(4) + eg(4)*(pg(2)*ubt(1) -&
4190  & dcmplx(0d0,1d0)*pg(3)*ubt(1) - pt(2)*ubt(1) + dcmplx(0d0,1d0)*pt(3)*ubt(1) +&
4191  & pg(4)*ubt(2) - pt(4)*ubt(2) - mt*ubt(4) + pg(1)*ubt(4) - pt(1)*ubt(4))) -&
4192  & dcmplx(0d0,1d0)*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + a1ww*(ph(2) -&
4193  & dcmplx(0d0,1d0)*(ph(3) + dcmplx(0d0,1d0)*pw(2) + pw(3)))*(ecw(3)*ph(3) + ecw(4)*ph(4)&
4194  & - ecw(1)*(ph(1) + pw(1)) + ecw(2)*(ph(2) + pw(2)) + ecw(3)*pw(3) + ecw(4)*pw(4)) +&
4195  & 2*a4ww*(ecw(3)*ph(4)*pw(1) - dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
4196  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
4197  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
4198  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))) +&
4199  & 2*a2ww*(dcmplx(0d0,1d0)*ecw(3)*(ph(1)*pw(1) + pw(1)**2 - ph(2)*pw(2) +&
4200  & dcmplx(0d0,1d0)*ph(3)*pw(2) - pw(2)**2 + dcmplx(0d0,1d0)*pw(2)*pw(3) - ph(4)*pw(4) -&
4201  & pw(4)**2) + ecw(2)*(-(ph(1)*pw(1)) - pw(1)**2 + dcmplx(0d0,1d0)*ph(2)*pw(3) +&
4202  & ph(3)*pw(3) + dcmplx(0d0,1d0)*pw(2)*pw(3) + pw(3)**2 + ph(4)*pw(4) + pw(4)**2) +&
4203  & (pw(2) - dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(4)*(ph(4) +&
4204  & pw(4)))))*(eg(2)*pg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*pg(2)*ubt(1) +&
4205  & dcmplx(0d0,1d0)*eg(2)*pg(3)*ubt(1) + eg(3)*pg(3)*ubt(1) + eg(4)*pg(4)*ubt(1) -&
4206  & eg(2)*pt(2)*ubt(1) + dcmplx(0d0,1d0)*eg(3)*pt(2)*ubt(1) -&
4207  & dcmplx(0d0,1d0)*eg(2)*pt(3)*ubt(1) - eg(3)*pt(3)*ubt(1) - eg(4)*pt(4)*ubt(1) -&
4208  & eg(4)*pg(2)*ubt(2) - dcmplx(0d0,1d0)*eg(4)*pg(3)*ubt(2) + eg(2)*pg(4)*ubt(2) +&
4209  & dcmplx(0d0,1d0)*eg(3)*pg(4)*ubt(2) + eg(4)*pt(2)*ubt(2) +&
4210  & dcmplx(0d0,1d0)*eg(4)*pt(3)*ubt(2) - eg(2)*pt(4)*ubt(2) -&
4211  & dcmplx(0d0,1d0)*eg(3)*pt(4)*ubt(2) - eg(4)*pg(1)*ubt(3) + eg(4)*pt(1)*ubt(3) -&
4212  & eg(2)*pg(1)*ubt(4) - dcmplx(0d0,1d0)*eg(3)*pg(1)*ubt(4) + eg(2)*pt(1)*ubt(4) +&
4213  & dcmplx(0d0,1d0)*eg(3)*pt(1)*ubt(4) + mt*(eg(1)*ubt(1) + eg(4)*ubt(3) + (eg(2) +&
4214  & dcmplx(0d0,1d0)*eg(3))*ubt(4)) + eg(1)*(-(pg(1)*ubt(1)) + pt(1)*ubt(1) + pg(4)*ubt(3)&
4215  & - pt(4)*ubt(3) + pg(2)*ubt(4) + dcmplx(0d0,1d0)*pg(3)*ubt(4) - pt(2)*ubt(4) -&
4216  & dcmplx(0d0,1d0)*pt(3)*ubt(4))) + (a1ww*(mw**2*(dcmplx(0d0,1d0)*ecw(2) + ecw(3)) +&
4217  & (dcmplx(0d0,1d0)*ph(2) + ph(3) + dcmplx(0d0,1d0)*pw(2) + pw(3))*(ecw(3)*ph(3) +&
4218  & ecw(4)*ph(4) - ecw(1)*(ph(1) + pw(1)) + ecw(2)*(ph(2) + pw(2)) + ecw(3)*pw(3) +&
4219  & ecw(4)*pw(4))) + dcmplx(0d0,2d0)*(a4ww*(ecw(3)*ph(4)*pw(1) - dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2)&
4220  & - ecw(1)*ph(4)*pw(3) + ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) +&
4221  & ph(1)*(dcmplx(0d0,1d0)*pw(2) + pw(3))) - ecw(3)*ph(1)*pw(4) +&
4222  & dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4) +&
4223  & dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4))) +&
4224  & a2ww*(dcmplx(0d0,1d0)*ecw(3)*(ph(1)*pw(1) + pw(1)**2 - ph(2)*pw(2) +&
4225  & dcmplx(0d0,1d0)*ph(3)*pw(2) - pw(2)**2 + dcmplx(0d0,1d0)*pw(2)*pw(3) - ph(4)*pw(4) -&
4226  & pw(4)**2) + ecw(2)*(-(ph(1)*pw(1)) - pw(1)**2 + dcmplx(0d0,1d0)*ph(2)*pw(3) +&
4227  & ph(3)*pw(3) + dcmplx(0d0,1d0)*pw(2)*pw(3) + pw(3)**2 + ph(4)*pw(4) + pw(4)**2) +&
4228  & (pw(2) - dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(4)*(ph(4) +&
4229  & pw(4))))))*(-(eg(1)*pg(4)*ubt(1)) + eg(1)*pt(4)*ubt(1) + eg(2)*pg(1)*ubt(2) +&
4230  & dcmplx(0d0,1d0)*eg(3)*pg(1)*ubt(2) - eg(1)*pg(2)*ubt(2) -&
4231  & dcmplx(0d0,1d0)*eg(1)*pg(3)*ubt(2) - eg(2)*pt(1)*ubt(2) -&
4232  & dcmplx(0d0,1d0)*eg(3)*pt(1)*ubt(2) + eg(1)*pt(2)*ubt(2) +&
4233  & dcmplx(0d0,1d0)*eg(1)*pt(3)*ubt(2) + eg(1)*pg(1)*ubt(3) - eg(2)*pg(2)*ubt(3) +&
4234  & dcmplx(0d0,1d0)*eg(3)*pg(2)*ubt(3) - dcmplx(0d0,1d0)*eg(2)*pg(3)*ubt(3) -&
4235  & eg(3)*pg(3)*ubt(3) - eg(1)*pt(1)*ubt(3) + eg(2)*pt(2)*ubt(3) -&
4236  & dcmplx(0d0,1d0)*eg(3)*pt(2)*ubt(3) + dcmplx(0d0,1d0)*eg(2)*pt(3)*ubt(3) +&
4237  & eg(3)*pt(3)*ubt(3) + mt*(eg(4)*ubt(1) + eg(2)*ubt(2) + dcmplx(0d0,1d0)*eg(3)*ubt(2) +&
4238  & eg(1)*ubt(3)) - eg(2)*pg(4)*ubt(4) - dcmplx(0d0,1d0)*eg(3)*pg(4)*ubt(4) +&
4239  & eg(2)*pt(4)*ubt(4) + dcmplx(0d0,1d0)*eg(3)*pt(4)*ubt(4) + eg(4)*(pg(1)*ubt(1) -&
4240  & pt(1)*ubt(1) - pg(4)*ubt(3) + pt(4)*ubt(3) + pg(2)*ubt(4) +&
4241  & dcmplx(0d0,1d0)*pg(3)*ubt(4) - pt(2)*ubt(4) - dcmplx(0d0,1d0)*pt(3)*ubt(4))) +&
4242  & dcmplx(0d0,1d0)*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
4243  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
4244  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
4245  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
4246  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
4247  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
4248  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
4249  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
4250  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
4251  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) +&
4252  & pw(4)))))*(dcmplx(0d0,-1d0)*eg(3)*pg(1)*ubt(1) - eg(1)*pg(2)*ubt(1) +&
4253  & dcmplx(0d0,1d0)*eg(1)*pg(3)*ubt(1) + dcmplx(0d0,1d0)*eg(3)*pt(1)*ubt(1) +&
4254  & eg(1)*pt(2)*ubt(1) - dcmplx(0d0,1d0)*eg(1)*pt(3)*ubt(1) - eg(4)*pg(1)*ubt(2) +&
4255  & eg(1)*pg(4)*ubt(2) + eg(4)*pt(1)*ubt(2) - eg(1)*pt(4)*ubt(2) - eg(4)*pg(2)*ubt(3) +&
4256  & dcmplx(0d0,1d0)*eg(4)*pg(3)*ubt(3) - dcmplx(0d0,1d0)*eg(3)*pg(4)*ubt(3) +&
4257  & eg(4)*pt(2)*ubt(3) - dcmplx(0d0,1d0)*eg(4)*pt(3)*ubt(3) +&
4258  & dcmplx(0d0,1d0)*eg(3)*pt(4)*ubt(3) + eg(1)*pg(1)*ubt(4) -&
4259  & dcmplx(0d0,1d0)*eg(3)*pg(2)*ubt(4) - eg(3)*pg(3)*ubt(4) - eg(4)*pg(4)*ubt(4) -&
4260  & eg(1)*pt(1)*ubt(4) + dcmplx(0d0,1d0)*eg(3)*pt(2)*ubt(4) + eg(3)*pt(3)*ubt(4) +&
4261  & eg(4)*pt(4)*ubt(4) + mt*(eg(2)*ubt(1) - dcmplx(0d0,1d0)*eg(3)*ubt(1) - eg(4)*ubt(2) +&
4262  & eg(1)*ubt(4)) + eg(2)*(pg(1)*ubt(1) - pt(1)*ubt(1) + pg(4)*ubt(3) - pt(4)*ubt(3) -&
4263  & pg(2)*ubt(4) + dcmplx(0d0,1d0)*pg(3)*ubt(4) + pt(2)*ubt(4) -&
4264  & dcmplx(0d0,1d0)*pt(3)*ubt(4))))))/(sqrt2*v**2*(mt**2 - pg(1)**2 + pg(2)**2 +&
4265  & pg(3)**2 + pg(4)**2 + 2*pg(1)*pt(1) - pt(1)**2 - 2*pg(2)*pt(2) + pt(2)**2 -&
4266  & 2*pg(3)*pt(3) + pt(3)**2 - 2*pg(4)*pt(4) + pt(4)**2)*(mw**2 - ph(1)**2 + ph(2)**2 +&
4267  & ph(3)**2 + ph(4)**2 - 2*ph(1)*pw(1) - pw(1)**2 + 2*ph(2)*pw(2) + pw(2)**2 +&
4268  & 2*ph(3)*pw(3) + pw(3)**2 + 2*ph(4)*pw(4) + pw(4)**2))
4269 
4270  amp = ampts + ampws + amptt1 + amptt2 + ampwt
4271 

◆ gbb_tbwphamp()

subroutine modthiggs::gbb_tbwphamp ( real(8), dimension(4)  Pg,
complex(8), dimension(4)  Eg,
real(8), dimension(4)  Pb,
complex(8), dimension(4)  Vb,
real(8), dimension(4)  Pt,
complex(8), dimension(4)  Vt,
real(8), dimension(4)  Pw,
complex(8), dimension(4)  ECw,
real(8), dimension(4)  Ph,
complex(8)  amp 
)
private

Definition at line 4276 of file mod_THiggs.F90.

4276 ! amplitude for production g(Pg)+b~(Pb)->t~(Pt)+wp(Pw)+h(Ph)
4277 ! allowing for scalar & pseudoscalar couplings of Higgs to top (Spinors and Pol-Vectors in Dirac representation!)
4278  implicit none
4279  real(8) :: Pg(4),Pb(4),Pt(4),Pw(4),Ph(4)
4280  complex(8) :: Vb(4),Eg(4),Vt(4),ECw(4)
4281  complex(8) :: amp,ampts,ampws,amptt1,amptt2,ampwt
4282  real(8) :: mt,mw,v
4283  complex(8) :: kap,kapt,a1WW,a2WW,a4WW
4284 
4285 
4286  mw=m_w
4287  mt=m_top
4288  v=vev
4289 
4290  kap=kappa
4291  kapt=kappa_tilde
4292  a1ww=ghz1
4293  a2ww=ghz2
4294  a4ww=ghz4
4295 
4296 
4297  ampts = -((gs*mt*mw*(dcmplx(0d0,1d0)*kapt*(((ecw(1) +&
4298  & ecw(4))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2)&
4299  & + eg(3)) - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4300  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4301  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4302  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4303  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4304  & dcmplx(0d0,1d0)*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((dconjg(vb(2))*eg(1) -&
4305  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4306  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4307  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4308  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4309  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(1) +&
4310  & ecw(4))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4311  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4312  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4313  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4314  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4315  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(2) +&
4316  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4317  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4318  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4319  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4320  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4321  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4322  & pg(4))))*(mt + ph(1) + pt(1)) - ((ecw(2) -&
4323  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) +&
4324  & dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3)) -&
4325  & dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4326  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4327  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4328  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4329  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4330  & dcmplx(0d0,1d0)*(ecw(1) - ecw(4))*((dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) -&
4331  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4332  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4333  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4334  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4335  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(2) -&
4336  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) +&
4337  & dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4338  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4339  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4340  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4341  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(1) -&
4342  & ecw(4))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4343  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4344  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4345  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4346  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4347  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4348  & pg(4))))*(ph(2) + dcmplx(0d0,1d0)*ph(3) + pt(2) + dcmplx(0d0,1d0)*pt(3)) - ((ecw(1) +&
4349  & ecw(4))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2)&
4350  & + eg(3)) - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4351  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4352  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4353  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4354  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4355  & dcmplx(0d0,1d0)*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((dconjg(vb(2))*eg(1) -&
4356  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4357  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4358  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4359  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4360  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(1) +&
4361  & ecw(4))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4362  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4363  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4364  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4365  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4366  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(2) +&
4367  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4368  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4369  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4370  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4371  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4372  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4373  & pg(4))))*(ph(4) + pt(4)))*vt(1) - kap*(((ecw(1) +&
4374  & ecw(4))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2)&
4375  & + eg(3)) - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4376  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4377  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4378  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4379  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4380  & dcmplx(0d0,1d0)*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((dconjg(vb(2))*eg(1) -&
4381  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4382  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4383  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4384  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4385  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(1) +&
4386  & ecw(4))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4387  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4388  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4389  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4390  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4391  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(2) +&
4392  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4393  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4394  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4395  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4396  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4397  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4398  & pg(4))))*(mt - ph(1) - pt(1)) + ((ecw(2) -&
4399  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) +&
4400  & dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3)) -&
4401  & dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4402  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4403  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4404  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4405  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4406  & dcmplx(0d0,1d0)*(ecw(1) - ecw(4))*((dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) -&
4407  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4408  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4409  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4410  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4411  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(2) -&
4412  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) +&
4413  & dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4414  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4415  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4416  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4417  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(1) -&
4418  & ecw(4))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4419  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4420  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4421  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4422  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4423  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4424  & pg(4))))*(ph(2) + dcmplx(0d0,1d0)*ph(3) + pt(2) + dcmplx(0d0,1d0)*pt(3)) + ((ecw(1) +&
4425  & ecw(4))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2)&
4426  & + eg(3)) - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4427  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4428  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4429  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4430  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4431  & dcmplx(0d0,1d0)*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((dconjg(vb(2))*eg(1) -&
4432  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4433  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4434  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4435  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4436  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(1) +&
4437  & ecw(4))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4438  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4439  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4440  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4441  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4442  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(2) +&
4443  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4444  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4445  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4446  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4447  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4448  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4449  & pg(4))))*(ph(4) + pt(4)))*vt(1) - kap*(((ecw(2) -&
4450  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) +&
4451  & dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3)) -&
4452  & dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4453  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4454  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4455  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4456  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4457  & dcmplx(0d0,1d0)*(ecw(1) - ecw(4))*((dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) -&
4458  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4459  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4460  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4461  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4462  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(2) -&
4463  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) +&
4464  & dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4465  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4466  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4467  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4468  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(1) -&
4469  & ecw(4))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4470  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4471  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4472  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4473  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4474  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4475  & pg(4))))*(mt - ph(1) - pt(1)) + ((ecw(1) +&
4476  & ecw(4))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2)&
4477  & + eg(3)) - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4478  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4479  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4480  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4481  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4482  & dcmplx(0d0,1d0)*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((dconjg(vb(2))*eg(1) -&
4483  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4484  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4485  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4486  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4487  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(1) +&
4488  & ecw(4))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4489  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4490  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4491  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4492  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4493  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(2) +&
4494  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4495  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4496  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4497  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4498  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4499  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4500  & pg(4))))*(ph(2) - dcmplx(0d0,1d0)*(ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))) - ((ecw(2)&
4501  & - dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) +&
4502  & dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3)) -&
4503  & dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4504  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4505  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4506  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4507  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4508  & dcmplx(0d0,1d0)*(ecw(1) - ecw(4))*((dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) -&
4509  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4510  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4511  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4512  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4513  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(2) -&
4514  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) +&
4515  & dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4516  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4517  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4518  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4519  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(1) -&
4520  & ecw(4))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4521  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4522  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4523  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4524  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4525  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4526  & pg(4))))*(ph(4) + pt(4)))*vt(2) + dcmplx(0d0,1d0)*kapt*(((ecw(2) -&
4527  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) +&
4528  & dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3)) -&
4529  & dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4530  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4531  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4532  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4533  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4534  & dcmplx(0d0,1d0)*(ecw(1) - ecw(4))*((dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) -&
4535  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4536  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4537  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4538  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4539  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(2) -&
4540  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) +&
4541  & dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4542  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4543  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4544  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4545  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(1) -&
4546  & ecw(4))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4547  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4548  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4549  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4550  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4551  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4552  & pg(4))))*(mt + ph(1) + pt(1)) - ((ecw(1) +&
4553  & ecw(4))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2)&
4554  & + eg(3)) - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4555  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4556  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4557  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4558  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4559  & dcmplx(0d0,1d0)*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((dconjg(vb(2))*eg(1) -&
4560  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4561  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4562  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4563  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4564  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(1) +&
4565  & ecw(4))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4566  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4567  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4568  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4569  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4570  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(2) +&
4571  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4572  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4573  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4574  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4575  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4576  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4577  & pg(4))))*(ph(2) - dcmplx(0d0,1d0)*(ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))) + ((ecw(2)&
4578  & - dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) +&
4579  & dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3)) -&
4580  & dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4581  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4582  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4583  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4584  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4585  & dcmplx(0d0,1d0)*(ecw(1) - ecw(4))*((dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) -&
4586  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4587  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4588  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4589  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4590  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(2) -&
4591  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) +&
4592  & dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4593  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4594  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4595  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4596  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(1) -&
4597  & ecw(4))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4598  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4599  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4600  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4601  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4602  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4603  & pg(4))))*(ph(4) + pt(4)))*vt(2) + kap*(((ecw(1) +&
4604  & ecw(4))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2)&
4605  & + eg(3)) - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4606  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4607  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4608  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4609  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4610  & dcmplx(0d0,1d0)*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((dconjg(vb(2))*eg(1) -&
4611  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4612  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4613  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4614  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4615  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(1) +&
4616  & ecw(4))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4617  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4618  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4619  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4620  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4621  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(2) +&
4622  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4623  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4624  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4625  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4626  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4627  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4628  & pg(4))))*(mt + ph(1) + pt(1)) - ((ecw(2) -&
4629  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) +&
4630  & dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3)) -&
4631  & dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4632  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4633  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4634  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4635  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4636  & dcmplx(0d0,1d0)*(ecw(1) - ecw(4))*((dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) -&
4637  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4638  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4639  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4640  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4641  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(2) -&
4642  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) +&
4643  & dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4644  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4645  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4646  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4647  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(1) -&
4648  & ecw(4))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4649  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4650  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4651  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4652  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4653  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4654  & pg(4))))*(ph(2) + dcmplx(0d0,1d0)*ph(3) + pt(2) + dcmplx(0d0,1d0)*pt(3)) - ((ecw(1) +&
4655  & ecw(4))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2)&
4656  & + eg(3)) - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4657  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4658  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4659  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4660  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4661  & dcmplx(0d0,1d0)*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((dconjg(vb(2))*eg(1) -&
4662  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4663  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4664  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4665  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4666  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(1) +&
4667  & ecw(4))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4668  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4669  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4670  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4671  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4672  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(2) +&
4673  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4674  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4675  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4676  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4677  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4678  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4679  & pg(4))))*(ph(4) + pt(4)))*vt(3) - dcmplx(0d0,1d0)*kapt*(((ecw(1) +&
4680  & ecw(4))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2)&
4681  & + eg(3)) - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4682  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4683  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4684  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4685  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4686  & dcmplx(0d0,1d0)*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((dconjg(vb(2))*eg(1) -&
4687  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4688  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4689  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4690  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4691  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(1) +&
4692  & ecw(4))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4693  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4694  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4695  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4696  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4697  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(2) +&
4698  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4699  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4700  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4701  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4702  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4703  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4704  & pg(4))))*(mt - ph(1) - pt(1)) + ((ecw(2) -&
4705  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) +&
4706  & dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3)) -&
4707  & dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4708  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4709  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4710  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4711  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4712  & dcmplx(0d0,1d0)*(ecw(1) - ecw(4))*((dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) -&
4713  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4714  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4715  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4716  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4717  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(2) -&
4718  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) +&
4719  & dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4720  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4721  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4722  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4723  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(1) -&
4724  & ecw(4))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4725  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4726  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4727  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4728  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4729  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4730  & pg(4))))*(ph(2) + dcmplx(0d0,1d0)*ph(3) + pt(2) + dcmplx(0d0,1d0)*pt(3)) + ((ecw(1) +&
4731  & ecw(4))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2)&
4732  & + eg(3)) - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4733  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4734  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4735  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4736  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4737  & dcmplx(0d0,1d0)*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((dconjg(vb(2))*eg(1) -&
4738  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4739  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4740  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4741  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4742  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(1) +&
4743  & ecw(4))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4744  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4745  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4746  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4747  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4748  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(2) +&
4749  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4750  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4751  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4752  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4753  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4754  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4755  & pg(4))))*(ph(4) + pt(4)))*vt(3) - dcmplx(0d0,1d0)*kapt*(((ecw(2) -&
4756  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) +&
4757  & dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3)) -&
4758  & dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4759  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4760  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4761  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4762  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4763  & dcmplx(0d0,1d0)*(ecw(1) - ecw(4))*((dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) -&
4764  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4765  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4766  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4767  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4768  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(2) -&
4769  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) +&
4770  & dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4771  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4772  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4773  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4774  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(1) -&
4775  & ecw(4))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4776  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4777  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4778  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4779  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4780  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4781  & pg(4))))*(mt - ph(1) - pt(1)) + ((ecw(1) +&
4782  & ecw(4))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2)&
4783  & + eg(3)) - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4784  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4785  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4786  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4787  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4788  & dcmplx(0d0,1d0)*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((dconjg(vb(2))*eg(1) -&
4789  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4790  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4791  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4792  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4793  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(1) +&
4794  & ecw(4))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4795  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4796  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4797  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4798  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4799  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(2) +&
4800  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4801  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4802  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4803  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4804  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4805  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4806  & pg(4))))*(ph(2) - dcmplx(0d0,1d0)*(ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))) - ((ecw(2)&
4807  & - dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) +&
4808  & dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3)) -&
4809  & dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4810  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4811  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4812  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4813  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4814  & dcmplx(0d0,1d0)*(ecw(1) - ecw(4))*((dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) -&
4815  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4816  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4817  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4818  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4819  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(2) -&
4820  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) +&
4821  & dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4822  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4823  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4824  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4825  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(1) -&
4826  & ecw(4))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4827  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4828  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4829  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4830  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4831  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4832  & pg(4))))*(ph(4) + pt(4)))*vt(4) + kap*(((ecw(2) -&
4833  & dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) +&
4834  & dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3)) -&
4835  & dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4836  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4837  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4838  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4839  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4840  & dcmplx(0d0,1d0)*(ecw(1) - ecw(4))*((dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) -&
4841  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4842  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4843  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4844  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4845  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(2) -&
4846  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) +&
4847  & dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4848  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4849  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4850  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4851  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(1) -&
4852  & ecw(4))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4853  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4854  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4855  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4856  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4857  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4858  & pg(4))))*(mt + ph(1) + pt(1)) - ((ecw(1) +&
4859  & ecw(4))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2)&
4860  & + eg(3)) - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4861  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4862  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4863  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4864  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4865  & dcmplx(0d0,1d0)*(ecw(2) + dcmplx(0d0,1d0)*ecw(3))*((dconjg(vb(2))*eg(1) -&
4866  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4867  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4868  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4869  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4870  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(1) +&
4871  & ecw(4))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4872  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4873  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4874  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4875  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4876  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(2) +&
4877  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4878  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4879  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4880  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4881  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4882  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4883  & pg(4))))*(ph(2) - dcmplx(0d0,1d0)*(ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3))) + ((ecw(2)&
4884  & - dcmplx(0d0,1d0)*ecw(3))*((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) +&
4885  & dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3)) -&
4886  & dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4887  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4888  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4889  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4890  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4))) +&
4891  & dcmplx(0d0,1d0)*(ecw(1) - ecw(4))*((dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) -&
4892  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4893  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4894  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4895  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4896  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4))) - (ecw(2) -&
4897  & dcmplx(0d0,1d0)*ecw(3))*(dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) +&
4898  & dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4899  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4900  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4901  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4902  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4))) - (ecw(1) -&
4903  & ecw(4))*(dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) -&
4904  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) +&
4905  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4906  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4907  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4908  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4909  & pg(4))))*(ph(4) + pt(4)))*vt(4)))/(sqrt2*v**2*(-(pb(1) + pg(1))**2 + (pb(2) +&
4910  & pg(2))**2 + (pb(3) + pg(3))**2 + (pb(4) + pg(4))**2)*(mt**2 - (ph(1) + pt(1))**2 +&
4911  & (ph(2) + pt(2))**2 + (ph(3) + pt(3))**2 + (ph(4) + pt(4))**2)))
4912 
4913  ampws = -((gs*mw*(-((dcmplx(0d0,1d0)*((dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) -&
4914  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) -&
4915  & (-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) +&
4916  & dconjg(vb(1))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3)))&
4917  & - (dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4918  & dconjg(vb(2))*eg(4))*(pb(4) + pg(4)))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
4919  & 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
4920  & pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
4921  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
4922  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
4923  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
4924  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
4925  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
4926  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
4927  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
4928  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
4929  & (dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3))&
4930  & + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) + (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) +&
4931  & dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3)) -&
4932  & dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
4933  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
4934  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
4935  & pg(4)))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
4936  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
4937  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
4938  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
4939  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
4940  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
4941  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
4942  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
4943  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
4944  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
4945  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
4946  & ((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4947  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4948  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4949  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4950  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4951  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4)))*(a1ww*mw**2*(ecw(1) +&
4952  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
4953  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
4954  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
4955  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
4956  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
4957  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
4958  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
4959  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
4960  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
4961  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) - (dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) +&
4962  & dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4963  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4964  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4965  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4966  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4)))*(a1ww*mw**2*(ecw(1) + ecw(4))&
4967  & - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1)&
4968  & + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
4969  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
4970  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
4971  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
4972  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
4973  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
4974  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
4975  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
4976  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))))*vt(1)) -&
4977  & (((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) +&
4978  & eg(3)) - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
4979  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4980  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
4981  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4982  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4)))*(a1ww*mw**2*(ecw(2) -&
4983  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) - dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
4984  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
4985  & a1ww*(ph(2) + pw(2) - dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
4986  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
4987  & 2*a2ww*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
4988  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
4989  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
4990  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
4991  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
4992  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
4993  & (dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
4994  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
4995  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
4996  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
4997  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
4998  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4)))*(a1ww*mw**2*(ecw(2) -&
4999  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) - dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
5000  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
5001  & a1ww*(ph(2) + pw(2) - dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
5002  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
5003  & 2*a2ww*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
5004  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
5005  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
5006  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
5007  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
5008  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
5009  & dcmplx(0d0,1d0)*((dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3))&
5010  & + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) - (-(dconjg(vb(3))*eg(1)) +&
5011  & dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(2) -&
5012  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3))) - (dconjg(vb(4))*eg(1) -&
5013  & dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(4) +&
5014  & pg(4)))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
5015  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
5016  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
5017  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
5018  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
5019  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
5020  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
5021  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
5022  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
5023  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
5024  & (dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3))&
5025  & + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) + (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) +&
5026  & dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3)) -&
5027  & dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
5028  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
5029  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
5030  & pg(4)))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
5031  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
5032  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
5033  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
5034  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
5035  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
5036  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
5037  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
5038  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
5039  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))))*vt(2) +&
5040  & (dcmplx(0d0,1d0)*((dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3))&
5041  & + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) - (-(dconjg(vb(3))*eg(1)) +&
5042  & dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(2) -&
5043  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3))) - (dconjg(vb(4))*eg(1) -&
5044  & dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(4) +&
5045  & pg(4)))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
5046  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
5047  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
5048  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
5049  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
5050  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
5051  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
5052  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
5053  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
5054  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
5055  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
5056  & (dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3))&
5057  & + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) + (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) +&
5058  & dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3)) -&
5059  & dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
5060  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
5061  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
5062  & pg(4)))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
5063  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
5064  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
5065  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
5066  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
5067  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
5068  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
5069  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
5070  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
5071  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
5072  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
5073  & ((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
5074  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
5075  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
5076  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
5077  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
5078  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4)))*(a1ww*mw**2*(ecw(1) +&
5079  & ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) +&
5080  & ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
5081  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
5082  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
5083  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
5084  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
5085  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
5086  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
5087  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
5088  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) - (dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) +&
5089  & dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
5090  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
5091  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
5092  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
5093  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4)))*(a1ww*mw**2*(ecw(1) + ecw(4))&
5094  & - a1ww*(ph(1) + ph(4) + pw(1) + pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1)&
5095  & + pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) +&
5096  & 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) + ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 +&
5097  & ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) + ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) -&
5098  & ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) +&
5099  & ecw(1)*pw(4)**2 - ecw(2)*(ph(2) + pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) -&
5100  & ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 -&
5101  & pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) + ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) +&
5102  & ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) + pw(4))) + ecw(2)*(-((ph(1) +&
5103  & ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))))*vt(3) +&
5104  & (((dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) +&
5105  & eg(3)) - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(1) + pg(1)) +&
5106  & dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
5107  & dconjg(vb(2))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) -&
5108  & dcmplx(0d0,1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
5109  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(4) + pg(4)))*(a1ww*mw**2*(ecw(2) -&
5110  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) - dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
5111  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
5112  & a1ww*(ph(2) + pw(2) - dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
5113  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
5114  & 2*a2ww*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
5115  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
5116  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
5117  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
5118  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
5119  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
5120  & (dcmplx(0d0,-1d0)*(-(dconjg(vb(3))*eg(1)) + dconjg(vb(2))*(eg(2) +&
5121  & dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(1) + pg(1)) +&
5122  & dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) +&
5123  & dconjg(vb(4))*eg(4))*(pb(2) + dcmplx(0d0,1d0)*pb(3) + pg(2) + dcmplx(0d0,1d0)*pg(3)) +&
5124  & (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) + dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3))&
5125  & - dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(4) + pg(4)))*(a1ww*mw**2*(ecw(2) -&
5126  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) - dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
5127  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
5128  & a1ww*(ph(2) + pw(2) - dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
5129  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
5130  & 2*a2ww*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
5131  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
5132  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
5133  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
5134  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
5135  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
5136  & dcmplx(0d0,1d0)*((dconjg(vb(2))*eg(1) - dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3))&
5137  & + dconjg(vb(4))*eg(4))*(pb(1) + pg(1)) - (-(dconjg(vb(3))*eg(1)) +&
5138  & dconjg(vb(2))*(eg(2) + dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(1))*eg(4))*(pb(2) -&
5139  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pg(2) + pg(3))) - (dconjg(vb(4))*eg(1) -&
5140  & dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(2))*eg(4))*(pb(4) +&
5141  & pg(4)))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
5142  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
5143  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
5144  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
5145  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
5146  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
5147  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
5148  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
5149  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
5150  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
5151  & (dcmplx(0d0,1d0)*(dconjg(vb(4))*eg(1) - dconjg(vb(1))*(eg(2) - dcmplx(0d0,1d0)*eg(3))&
5152  & + dconjg(vb(2))*eg(4))*(pb(1) + pg(1)) + (dcmplx(0d0,1d0)*dconjg(vb(1))*eg(1) +&
5153  & dconjg(vb(4))*(dcmplx(0d0,-1d0)*eg(2) + eg(3)) -&
5154  & dcmplx(0d0,1d0)*dconjg(vb(3))*eg(4))*(pb(2) - dcmplx(0d0,1d0)*(pb(3) +&
5155  & dcmplx(0d0,1d0)*pg(2) + pg(3))) - dcmplx(0d0,1d0)*(dconjg(vb(2))*eg(1) -&
5156  & dconjg(vb(3))*(eg(2) - dcmplx(0d0,1d0)*eg(3)) + dconjg(vb(4))*eg(4))*(pb(4) +&
5157  & pg(4)))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
5158  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
5159  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
5160  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
5161  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
5162  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
5163  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
5164  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
5165  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
5166  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) +&
5167  & pw(4))))))*vt(4)))/(sqrt2*v**2*(-(pb(1) + pg(1))**2 + (pb(2) + pg(2))**2 + (pb(3)&
5168  & + pg(3))**2 + (pb(4) + pg(4))**2)*(mw**2 - (ph(1) + pw(1))**2 + (ph(2) + pw(2))**2 +&
5169  & (ph(3) + pw(3))**2 + (ph(4) + pw(4))**2)))
5170 
5171  amptt1 = (gs*mt*mw*(-((dcmplx(0d0,1d0)*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((mt - pg(1)&
5172  & + pt(1))*(dcmplx(0d0,1d0)*kapt*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5173  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5174  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5175  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5176  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5177  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5178  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5179  & kap*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5180  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5181  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5182  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5183  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5184  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5185  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4)))) - dcmplx(0d0,1d0)*(pg(4) -&
5186  & pt(4))*(dcmplx(0d0,1d0)*kap*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5187  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5188  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5189  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5190  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5191  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5192  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5193  & kapt*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5194  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5195  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5196  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5197  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5198  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5199  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4)))) + dcmplx(0d0,1d0)*(pg(2) -&
5200  & dcmplx(0d0,1d0)*pg(3) - pt(2) + dcmplx(0d0,1d0)*pt(3))*(kapt*(((dconjg(vb(2)) -&
5201  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5202  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) -&
5203  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5204  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) +&
5205  & dcmplx(0d0,1d0)*pw(2) - pw(3))) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5206  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5207  & ecw(4)))*(pb(4) - pw(4))) + dcmplx(0d0,1d0)*kap*(((dconjg(vb(2)) -&
5208  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5209  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) -&
5210  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5211  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) +&
5212  & dcmplx(0d0,1d0)*pw(2) - pw(3))) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5213  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5214  & ecw(4)))*(pb(4) - pw(4))))) - eg(4)*((pg(2) - pt(2) + dcmplx(0d0,1d0)*(pg(3) -&
5215  & pt(3)))*(dcmplx(0d0,1d0)*kap*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5216  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5217  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5218  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5219  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5220  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5221  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5222  & kapt*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5223  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5224  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5225  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5226  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5227  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5228  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4)))) + (pg(4) -&
5229  & pt(4))*(kapt*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5230  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt + pb(1) -&
5231  & pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5232  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) +&
5233  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) - ((dconjg(vb(2)) -&
5234  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5235  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5236  & dcmplx(0d0,1d0)*kap*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5237  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5238  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5239  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5240  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5241  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5242  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))) +&
5243  & dcmplx(0d0,1d0)*(mt - pg(1) + pt(1))*(kap*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5244  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5245  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5246  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5247  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) -&
5248  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5249  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5250  & dcmplx(0d0,1d0)*kapt*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5251  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5252  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5253  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5254  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5255  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5256  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))))&
5257  & + dcmplx(0d0,1d0)*eg(1)*((pg(2) - pt(2) + dcmplx(0d0,1d0)*(pg(3) -&
5258  & pt(3)))*(dcmplx(0d0,1d0)*kapt*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5259  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5260  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5261  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5262  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5263  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5264  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5265  & kap*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5266  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5267  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5268  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5269  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5270  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5271  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4)))) - dcmplx(0d0,1d0)*(mt + pg(1) -&
5272  & pt(1))*(kapt*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5273  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt + pb(1) -&
5274  & pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5275  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) +&
5276  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) - ((dconjg(vb(2)) -&
5277  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5278  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5279  & dcmplx(0d0,1d0)*kap*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5280  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5281  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5282  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5283  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5284  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5285  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))) -&
5286  & (pg(4) - pt(4))*(kap*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5287  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5288  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5289  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5290  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) -&
5291  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5292  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5293  & dcmplx(0d0,1d0)*kapt*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5294  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5295  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5296  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5297  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5298  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5299  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) -&
5300  & pw(4))))))*vt(1)) + (eg(4)*(dcmplx(0d0,1d0)*(mt - pg(1) +&
5301  & pt(1))*(dcmplx(0d0,1d0)*kapt*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5302  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5303  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5304  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5305  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5306  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5307  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5308  & kap*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5309  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5310  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5311  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5312  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5313  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5314  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4)))) + (pg(4) -&
5315  & pt(4))*(dcmplx(0d0,1d0)*kap*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5316  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5317  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5318  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5319  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5320  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5321  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5322  & kapt*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5323  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5324  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5325  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5326  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5327  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5328  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4)))) - (pg(2) - dcmplx(0d0,1d0)*pg(3) -&
5329  & pt(2) + dcmplx(0d0,1d0)*pt(3))*(kapt*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5330  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5331  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5332  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5333  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) -&
5334  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5335  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5336  & dcmplx(0d0,1d0)*kap*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5337  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5338  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5339  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5340  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5341  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5342  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))))&
5343  & + (eg(2) - dcmplx(0d0,1d0)*eg(3))*((pg(2) - pt(2) + dcmplx(0d0,1d0)*(pg(3) -&
5344  & pt(3)))*(dcmplx(0d0,1d0)*kap*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5345  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5346  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5347  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5348  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5349  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5350  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5351  & kapt*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5352  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5353  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5354  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5355  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5356  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5357  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4)))) + (pg(4) -&
5358  & pt(4))*(kapt*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5359  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt + pb(1) -&
5360  & pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5361  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) +&
5362  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) - ((dconjg(vb(2)) -&
5363  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5364  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5365  & dcmplx(0d0,1d0)*kap*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5366  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5367  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5368  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5369  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5370  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5371  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))) +&
5372  & dcmplx(0d0,1d0)*(mt - pg(1) + pt(1))*(kap*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5373  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5374  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5375  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5376  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) -&
5377  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5378  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5379  & dcmplx(0d0,1d0)*kapt*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5380  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5381  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5382  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5383  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5384  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5385  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))))&
5386  & + dcmplx(0d0,1d0)*eg(1)*((pg(4) - pt(4))*(dcmplx(0d0,1d0)*kapt*(((dconjg(vb(1)) -&
5387  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5388  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) -&
5389  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5390  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
5391  & dcmplx(0d0,1d0)*pw(3)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5392  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5393  & ecw(4)))*(pb(4) - pw(4))) - kap*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5394  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5395  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5396  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5397  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) +&
5398  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5399  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))))&
5400  & + dcmplx(0d0,1d0)*(mt + pg(1) - pt(1))*(dcmplx(0d0,1d0)*kap*(((dconjg(vb(1)) -&
5401  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5402  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) -&
5403  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5404  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
5405  & dcmplx(0d0,1d0)*pw(3)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5406  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5407  & ecw(4)))*(pb(4) - pw(4))) + kapt*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5408  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5409  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5410  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5411  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) +&
5412  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5413  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))))&
5414  & + (pg(2) - dcmplx(0d0,1d0)*pg(3) - pt(2) +&
5415  & dcmplx(0d0,1d0)*pt(3))*(kap*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5416  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5417  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5418  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5419  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) -&
5420  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5421  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5422  & dcmplx(0d0,1d0)*kapt*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5423  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5424  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5425  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5426  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5427  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5428  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) -&
5429  & pw(4))))))*vt(2) - (eg(1)*((pg(2) - pt(2) + dcmplx(0d0,1d0)*(pg(3) -&
5430  & pt(3)))*(dcmplx(0d0,1d0)*kap*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5431  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5432  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5433  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5434  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5435  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5436  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5437  & kapt*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5438  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5439  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5440  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5441  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5442  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5443  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4)))) + (pg(4) -&
5444  & pt(4))*(kapt*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5445  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt + pb(1) -&
5446  & pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5447  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) +&
5448  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) - ((dconjg(vb(2)) -&
5449  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5450  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5451  & dcmplx(0d0,1d0)*kap*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5452  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5453  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5454  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5455  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5456  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5457  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))) +&
5458  & dcmplx(0d0,1d0)*(mt - pg(1) + pt(1))*(kap*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5459  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5460  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5461  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5462  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) -&
5463  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5464  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5465  & dcmplx(0d0,1d0)*kapt*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5466  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5467  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5468  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5469  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5470  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5471  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))))&
5472  & + dcmplx(0d0,1d0)*(eg(2) + dcmplx(0d0,1d0)*eg(3))*((pg(4) -&
5473  & pt(4))*(dcmplx(0d0,1d0)*kapt*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5474  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5475  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5476  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5477  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5478  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5479  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5480  & kap*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5481  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5482  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5483  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5484  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5485  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5486  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4)))) + dcmplx(0d0,1d0)*(mt + pg(1) -&
5487  & pt(1))*(dcmplx(0d0,1d0)*kap*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5488  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5489  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5490  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5491  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5492  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5493  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5494  & kapt*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5495  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5496  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5497  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5498  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5499  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5500  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4)))) + (pg(2) - dcmplx(0d0,1d0)*pg(3) -&
5501  & pt(2) + dcmplx(0d0,1d0)*pt(3))*(kap*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5502  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5503  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5504  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5505  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) -&
5506  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5507  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5508  & dcmplx(0d0,1d0)*kapt*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5509  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5510  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5511  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5512  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5513  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5514  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))))&
5515  & - dcmplx(0d0,1d0)*eg(4)*((pg(2) - pt(2) + dcmplx(0d0,1d0)*(pg(3) -&
5516  & pt(3)))*(dcmplx(0d0,1d0)*kapt*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5517  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5518  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5519  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5520  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5521  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5522  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5523  & kap*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5524  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5525  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5526  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5527  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5528  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5529  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4)))) - dcmplx(0d0,1d0)*(mt + pg(1) -&
5530  & pt(1))*(kapt*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5531  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt + pb(1) -&
5532  & pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5533  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) +&
5534  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) - ((dconjg(vb(2)) -&
5535  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5536  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5537  & dcmplx(0d0,1d0)*kap*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5538  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5539  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5540  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5541  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5542  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5543  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))) -&
5544  & (pg(4) - pt(4))*(kap*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5545  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5546  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5547  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5548  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) -&
5549  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5550  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5551  & dcmplx(0d0,1d0)*kapt*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5552  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5553  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5554  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5555  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5556  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5557  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) -&
5558  & pw(4))))))*vt(3) + dcmplx(0d0,1d0)*(eg(1)*((mt - pg(1) +&
5559  & pt(1))*(dcmplx(0d0,1d0)*kapt*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5560  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5561  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5562  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5563  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5564  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5565  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5566  & kap*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5567  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5568  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5569  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5570  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5571  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5572  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4)))) - dcmplx(0d0,1d0)*(pg(4) -&
5573  & pt(4))*(dcmplx(0d0,1d0)*kap*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5574  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5575  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5576  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5577  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5578  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5579  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5580  & kapt*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5581  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5582  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5583  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5584  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5585  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5586  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4)))) + dcmplx(0d0,1d0)*(pg(2) -&
5587  & dcmplx(0d0,1d0)*pg(3) - pt(2) + dcmplx(0d0,1d0)*pt(3))*(kapt*(((dconjg(vb(2)) -&
5588  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5589  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) -&
5590  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5591  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) +&
5592  & dcmplx(0d0,1d0)*pw(2) - pw(3))) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5593  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5594  & ecw(4)))*(pb(4) - pw(4))) + dcmplx(0d0,1d0)*kap*(((dconjg(vb(2)) -&
5595  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5596  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) -&
5597  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5598  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) +&
5599  & dcmplx(0d0,1d0)*pw(2) - pw(3))) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5600  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5601  & ecw(4)))*(pb(4) - pw(4))))) + eg(4)*((pg(4) -&
5602  & pt(4))*(dcmplx(0d0,1d0)*kapt*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5603  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5604  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5605  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5606  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5607  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5608  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5609  & kap*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5610  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5611  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5612  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5613  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5614  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5615  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4)))) + dcmplx(0d0,1d0)*(mt + pg(1) -&
5616  & pt(1))*(dcmplx(0d0,1d0)*kap*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5617  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5618  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5619  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5620  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5621  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5622  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5623  & kapt*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5624  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5625  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5626  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5627  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5628  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5629  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4)))) + (pg(2) - dcmplx(0d0,1d0)*pg(3) -&
5630  & pt(2) + dcmplx(0d0,1d0)*pt(3))*(kap*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5631  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5632  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5633  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5634  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) -&
5635  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5636  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5637  & dcmplx(0d0,1d0)*kapt*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5638  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5639  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5640  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5641  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5642  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5643  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))))&
5644  & + (eg(2) - dcmplx(0d0,1d0)*eg(3))*((pg(2) - pt(2) + dcmplx(0d0,1d0)*(pg(3) -&
5645  & pt(3)))*(dcmplx(0d0,1d0)*kapt*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5646  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5647  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5648  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5649  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5650  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5651  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5652  & kap*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5653  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5654  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5655  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5656  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5657  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5658  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4)))) - dcmplx(0d0,1d0)*(mt + pg(1) -&
5659  & pt(1))*(kapt*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5660  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt + pb(1) -&
5661  & pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5662  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) +&
5663  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) - ((dconjg(vb(2)) -&
5664  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5665  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5666  & dcmplx(0d0,1d0)*kap*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5667  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5668  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5669  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5670  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5671  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5672  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))) -&
5673  & (pg(4) - pt(4))*(kap*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5674  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5675  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5676  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5677  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) -&
5678  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5679  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5680  & dcmplx(0d0,1d0)*kapt*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5681  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5682  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5683  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5684  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5685  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5686  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) -&
5687  & pw(4))))))*vt(4)))/(sqrt2*v**2*(mt**2 - (pg(1) - pt(1))**2 + (pg(2) - pt(2))**2 +&
5688  & (pg(3) - pt(3))**2 + (pg(4) - pt(4))**2)*(mt**2 - (pb(1) - pw(1))**2 + (pb(2) -&
5689  & pw(2))**2 + (pb(3) - pw(3))**2 + (pb(4) - pw(4))**2))
5690 
5691  amptt2 = (gs*mt*mw*(kapt*((ph(2) + dcmplx(0d0,1d0)*ph(3) + pt(2) +&
5692  & dcmplx(0d0,1d0)*pt(3))*(eg(1)*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5693  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5694  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5695  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5696  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5697  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5698  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5699  & eg(4)*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5700  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5701  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5702  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5703  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5704  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5705  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) - (eg(2) -&
5706  & dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5707  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5708  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5709  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5710  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) -&
5711  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5712  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))) -&
5713  & (ph(4) + pt(4))*((eg(2) + dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(1)) -&
5714  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5715  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(2)) -&
5716  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5717  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
5718  & dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5719  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5720  & ecw(4)))*(pb(4) - pw(4))) + eg(4)*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5721  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5722  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5723  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5724  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) -&
5725  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5726  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5727  & eg(1)*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5728  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt - pb(1) +&
5729  & pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5730  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) +&
5731  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) + ((dconjg(vb(2)) -&
5732  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5733  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))) - (mt + ph(1) + pt(1))*((eg(2) +&
5734  & dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5735  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5736  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5737  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5738  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5739  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5740  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5741  & eg(1)*(-(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5742  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt + pb(1) -&
5743  & pw(1))) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5744  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) +&
5745  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) + ((dconjg(vb(2)) -&
5746  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5747  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) + eg(4)*(((dconjg(vb(2)) -&
5748  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5749  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) -&
5750  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5751  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) +&
5752  & dcmplx(0d0,1d0)*pw(2) - pw(3))) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5753  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5754  & ecw(4)))*(pb(4) - pw(4)))))*vt(1) + dcmplx(0d0,1d0)*kap*((mt - ph(1) - pt(1))*((eg(2)&
5755  & + dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5756  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5757  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5758  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5759  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) +&
5760  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5761  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5762  & eg(4)*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5763  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt + pb(1) -&
5764  & pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5765  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) +&
5766  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) - ((dconjg(vb(2)) -&
5767  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5768  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) - eg(1)*(((dconjg(vb(2)) -&
5769  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5770  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) -&
5771  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5772  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) +&
5773  & dcmplx(0d0,1d0)*pw(2) - pw(3))) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5774  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5775  & ecw(4)))*(pb(4) - pw(4)))) + (ph(2) + dcmplx(0d0,1d0)*ph(3) + pt(2) +&
5776  & dcmplx(0d0,1d0)*pt(3))*(eg(4)*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5777  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5778  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5779  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5780  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5781  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5782  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5783  & eg(1)*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5784  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5785  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5786  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5787  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5788  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5789  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) - (eg(2) -&
5790  & dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5791  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5792  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5793  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5794  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5795  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5796  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))) -&
5797  & (ph(4) + pt(4))*((eg(2) + dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(1)) -&
5798  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5799  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) -&
5800  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5801  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
5802  & dcmplx(0d0,1d0)*pw(3)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5803  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5804  & ecw(4)))*(pb(4) - pw(4))) + eg(1)*(-(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5805  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5806  & ecw(4)))*(mt + pb(1) - pw(1))) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5807  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5808  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5809  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5810  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5811  & eg(4)*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5812  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt - pb(1) +&
5813  & pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5814  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) +&
5815  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) + ((dconjg(vb(2)) -&
5816  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5817  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))))*vt(1) - kapt*((ph(4) +&
5818  & pt(4))*(eg(1)*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5819  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt - pb(1) +&
5820  & pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5821  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5822  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) - ((dconjg(vb(1)) -&
5823  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5824  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) + eg(4)*(((dconjg(vb(1)) -&
5825  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5826  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(2)) -&
5827  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5828  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
5829  & dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5830  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5831  & ecw(4)))*(pb(4) - pw(4))) - (eg(2) - dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(2)) -&
5832  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5833  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) -&
5834  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5835  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) +&
5836  & dcmplx(0d0,1d0)*pw(2) - pw(3))) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5837  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5838  & ecw(4)))*(pb(4) - pw(4)))) + (ph(2) - dcmplx(0d0,1d0)*(ph(3) + dcmplx(0d0,1d0)*pt(2) +&
5839  & pt(3)))*((eg(2) + dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5840  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5841  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5842  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5843  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) +&
5844  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5845  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5846  & eg(4)*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5847  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt + pb(1) -&
5848  & pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5849  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) +&
5850  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) - ((dconjg(vb(2)) -&
5851  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5852  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) - eg(1)*(((dconjg(vb(2)) -&
5853  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5854  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) -&
5855  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5856  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) +&
5857  & dcmplx(0d0,1d0)*pw(2) - pw(3))) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5858  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5859  & ecw(4)))*(pb(4) - pw(4)))) - (mt + ph(1) + pt(1))*(eg(4)*(((dconjg(vb(1)) -&
5860  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5861  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) -&
5862  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5863  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
5864  & dcmplx(0d0,1d0)*pw(3)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5865  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5866  & ecw(4)))*(pb(4) - pw(4))) + eg(1)*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5867  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5868  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5869  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5870  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) +&
5871  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5872  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5873  & (eg(2) - dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5874  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5875  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5876  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5877  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5878  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5879  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) -&
5880  & pw(4)))))*vt(2) - dcmplx(0d0,1d0)*kap*((mt - ph(1) - pt(1))*(eg(1)*(((dconjg(vb(1)) -&
5881  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5882  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) -&
5883  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5884  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
5885  & dcmplx(0d0,1d0)*pw(3)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5886  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5887  & ecw(4)))*(pb(4) - pw(4))) + eg(4)*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5888  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5889  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5890  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5891  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) +&
5892  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5893  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5894  & (eg(2) - dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5895  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5896  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5897  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5898  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) -&
5899  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5900  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))) +&
5901  & (ph(4) + pt(4))*(eg(4)*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5902  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5903  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5904  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5905  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5906  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5907  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5908  & eg(1)*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5909  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
5910  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5911  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
5912  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
5913  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5914  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) - (eg(2) -&
5915  & dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5916  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5917  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5918  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5919  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
5920  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5921  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))) +&
5922  & (ph(2) - dcmplx(0d0,1d0)*(ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3)))*((eg(2) +&
5923  & dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5924  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5925  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5926  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5927  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5928  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5929  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5930  & eg(1)*(-(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5931  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt + pb(1) -&
5932  & pw(1))) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5933  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) +&
5934  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) + ((dconjg(vb(2)) -&
5935  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5936  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) + eg(4)*(((dconjg(vb(2)) -&
5937  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5938  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) -&
5939  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5940  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) +&
5941  & dcmplx(0d0,1d0)*pw(2) - pw(3))) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5942  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5943  & ecw(4)))*(pb(4) - pw(4)))))*vt(2) - dcmplx(0d0,1d0)*kap*((ph(2) +&
5944  & dcmplx(0d0,1d0)*ph(3) + pt(2) + dcmplx(0d0,1d0)*pt(3))*(eg(1)*(((dconjg(vb(1)) -&
5945  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5946  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) -&
5947  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5948  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
5949  & dcmplx(0d0,1d0)*pw(3)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5950  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5951  & ecw(4)))*(pb(4) - pw(4))) + eg(4)*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5952  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5953  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5954  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5955  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) +&
5956  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5957  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5958  & (eg(2) - dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5959  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5960  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5961  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5962  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) -&
5963  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5964  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))) -&
5965  & (ph(4) + pt(4))*((eg(2) + dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(1)) -&
5966  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
5967  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(2)) -&
5968  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5969  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
5970  & dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5971  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5972  & ecw(4)))*(pb(4) - pw(4))) + eg(4)*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5973  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5974  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5975  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5976  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) -&
5977  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5978  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
5979  & eg(1)*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5980  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt - pb(1) +&
5981  & pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5982  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) +&
5983  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) + ((dconjg(vb(2)) -&
5984  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5985  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))) - (mt + ph(1) + pt(1))*((eg(2) +&
5986  & dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
5987  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
5988  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
5989  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
5990  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
5991  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5992  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
5993  & eg(1)*(-(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
5994  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt + pb(1) -&
5995  & pw(1))) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
5996  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) +&
5997  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) + ((dconjg(vb(2)) -&
5998  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
5999  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) + eg(4)*(((dconjg(vb(2)) -&
6000  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
6001  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) -&
6002  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
6003  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) +&
6004  & dcmplx(0d0,1d0)*pw(2) - pw(3))) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
6005  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
6006  & ecw(4)))*(pb(4) - pw(4)))))*vt(3) - kapt*((mt - ph(1) - pt(1))*((eg(2) +&
6007  & dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
6008  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
6009  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
6010  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
6011  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) +&
6012  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
6013  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
6014  & eg(4)*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
6015  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt + pb(1) -&
6016  & pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
6017  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) +&
6018  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) - ((dconjg(vb(2)) -&
6019  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
6020  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) - eg(1)*(((dconjg(vb(2)) -&
6021  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
6022  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) -&
6023  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
6024  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) +&
6025  & dcmplx(0d0,1d0)*pw(2) - pw(3))) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
6026  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
6027  & ecw(4)))*(pb(4) - pw(4)))) + (ph(2) + dcmplx(0d0,1d0)*ph(3) + pt(2) +&
6028  & dcmplx(0d0,1d0)*pt(3))*(eg(4)*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
6029  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
6030  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
6031  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
6032  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
6033  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
6034  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
6035  & eg(1)*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
6036  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
6037  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
6038  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
6039  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
6040  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
6041  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) - (eg(2) -&
6042  & dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
6043  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
6044  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
6045  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
6046  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
6047  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
6048  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))) -&
6049  & (ph(4) + pt(4))*((eg(2) + dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(1)) -&
6050  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
6051  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) -&
6052  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
6053  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
6054  & dcmplx(0d0,1d0)*pw(3)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
6055  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
6056  & ecw(4)))*(pb(4) - pw(4))) + eg(1)*(-(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
6057  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
6058  & ecw(4)))*(mt + pb(1) - pw(1))) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
6059  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
6060  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
6061  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
6062  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
6063  & eg(4)*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
6064  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt - pb(1) +&
6065  & pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
6066  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) +&
6067  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) + ((dconjg(vb(2)) -&
6068  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
6069  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))))*vt(3) +&
6070  & dcmplx(0d0,1d0)*kap*((ph(4) + pt(4))*(eg(1)*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2)&
6071  & - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
6072  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
6073  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
6074  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
6075  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
6076  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
6077  & eg(4)*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
6078  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
6079  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
6080  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
6081  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
6082  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
6083  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) - (eg(2) -&
6084  & dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
6085  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
6086  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
6087  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
6088  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) -&
6089  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
6090  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))) +&
6091  & (ph(2) - dcmplx(0d0,1d0)*(ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3)))*((eg(2) +&
6092  & dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
6093  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
6094  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
6095  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
6096  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) +&
6097  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
6098  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
6099  & eg(4)*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
6100  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt + pb(1) -&
6101  & pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
6102  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) +&
6103  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) - ((dconjg(vb(2)) -&
6104  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
6105  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) - eg(1)*(((dconjg(vb(2)) -&
6106  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
6107  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) -&
6108  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
6109  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) +&
6110  & dcmplx(0d0,1d0)*pw(2) - pw(3))) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
6111  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
6112  & ecw(4)))*(pb(4) - pw(4)))) - (mt + ph(1) + pt(1))*(eg(4)*(((dconjg(vb(1)) -&
6113  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
6114  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) -&
6115  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
6116  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
6117  & dcmplx(0d0,1d0)*pw(3)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
6118  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
6119  & ecw(4)))*(pb(4) - pw(4))) + eg(1)*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
6120  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
6121  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
6122  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
6123  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) +&
6124  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
6125  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
6126  & (eg(2) - dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
6127  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
6128  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
6129  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
6130  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
6131  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
6132  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) -&
6133  & pw(4)))))*vt(4) + kapt*((mt - ph(1) - pt(1))*(eg(1)*(((dconjg(vb(1)) -&
6134  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
6135  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) -&
6136  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
6137  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) +&
6138  & dcmplx(0d0,1d0)*pw(3)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
6139  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
6140  & ecw(4)))*(pb(4) - pw(4))) + eg(4)*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
6141  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
6142  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
6143  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
6144  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) +&
6145  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
6146  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) -&
6147  & (eg(2) - dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
6148  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
6149  & ecw(4)))*(mt + pb(1) - pw(1)) - ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
6150  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
6151  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) -&
6152  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
6153  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))) +&
6154  & (ph(4) + pt(4))*(eg(4)*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
6155  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
6156  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
6157  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
6158  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
6159  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
6160  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
6161  & eg(1)*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
6162  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(mt + pb(1) -&
6163  & pw(1)) - ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
6164  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(2) -&
6165  & dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) + ((dconjg(vb(1)) -&
6166  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
6167  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) - (eg(2) -&
6168  & dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
6169  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
6170  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
6171  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
6172  & ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) +&
6173  & ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
6174  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4)))) +&
6175  & (ph(2) - dcmplx(0d0,1d0)*(ph(3) + dcmplx(0d0,1d0)*pt(2) + pt(3)))*((eg(2) +&
6176  & dcmplx(0d0,1d0)*eg(3))*(((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) -&
6177  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) +&
6178  & ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
6179  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
6180  & ecw(4)))*(pb(2) - dcmplx(0d0,1d0)*pb(3) - pw(2) + dcmplx(0d0,1d0)*pw(3)) -&
6181  & ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
6182  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(4) - pw(4))) +&
6183  & eg(1)*(-(((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
6184  & dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt + pb(1) -&
6185  & pw(1))) + ((dconjg(vb(1)) - dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
6186  & dconjg(vb(2))*(ecw(1) - ecw(4)) + dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) +&
6187  & dcmplx(0d0,1d0)*(pb(3) + dcmplx(0d0,1d0)*pw(2) - pw(3))) + ((dconjg(vb(2)) -&
6188  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
6189  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(pb(4) - pw(4))) + eg(4)*(((dconjg(vb(2)) -&
6190  & dconjg(vb(4)))*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) -&
6191  & dconjg(vb(3))*(ecw(1) + ecw(4)))*(mt - pb(1) + pw(1)) + ((dconjg(vb(1)) -&
6192  & dconjg(vb(3)))*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(2))*(ecw(1) - ecw(4)) +&
6193  & dconjg(vb(4))*(-ecw(1) + ecw(4)))*(pb(2) + dcmplx(0d0,1d0)*(pb(3) +&
6194  & dcmplx(0d0,1d0)*pw(2) - pw(3))) + ((dconjg(vb(2)) - dconjg(vb(4)))*(ecw(2) +&
6195  & dcmplx(0d0,1d0)*ecw(3)) + dconjg(vb(1))*(ecw(1) + ecw(4)) - dconjg(vb(3))*(ecw(1) +&
6196  & ecw(4)))*(pb(4) - pw(4)))))*vt(4)))/(sqrt2*v**2*(mt**2 - (ph(1) + pt(1))**2 +&
6197  & (ph(2) + pt(2))**2 + (ph(3) + pt(3))**2 + (ph(4) + pt(4))**2)*(mt**2 - (pb(1) -&
6198  & pw(1))**2 + (pb(2) - pw(2))**2 + (pb(3) - pw(3))**2 + (pb(4) - pw(4))**2))
6199 
6200  ampwt = (dcmplx(0d0,-1d0)*gs*mw*((-((eg(2) + dcmplx(0d0,1d0)*eg(3))*((mt - pg(1) +&
6201  & pt(1))*(dconjg(vb(1))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
6202  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6203  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6204  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6205  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6206  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6207  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6208  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6209  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6210  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6211  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6212  & dconjg(vb(3))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
6213  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6214  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6215  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6216  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6217  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6218  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6219  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6220  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6221  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6222  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6223  & dconjg(vb(2))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6224  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6225  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6226  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6227  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6228  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6229  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6230  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6231  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6232  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
6233  & dconjg(vb(4))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6234  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6235  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6236  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6237  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6238  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6239  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6240  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6241  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6242  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))) - (pg(4) -&
6243  & pt(4))*(dconjg(vb(1))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
6244  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6245  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6246  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6247  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6248  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6249  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6250  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6251  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6252  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6253  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6254  & dconjg(vb(3))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
6255  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6256  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6257  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6258  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6259  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6260  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6261  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6262  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6263  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6264  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6265  & dconjg(vb(2))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6266  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6267  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6268  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6269  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6270  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6271  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6272  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6273  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6274  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
6275  & dconjg(vb(4))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6276  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6277  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6278  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6279  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6280  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6281  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6282  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6283  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6284  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))) + (pg(2) -&
6285  & dcmplx(0d0,1d0)*pg(3) - pt(2) +&
6286  & dcmplx(0d0,1d0)*pt(3))*(dconjg(vb(2))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
6287  & 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6288  & pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
6289  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6290  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
6291  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6292  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
6293  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6294  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
6295  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6296  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6297  & dconjg(vb(4))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
6298  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6299  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
6300  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6301  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
6302  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6303  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
6304  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6305  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
6306  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6307  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6308  & dconjg(vb(1))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
6309  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6310  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
6311  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
6312  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
6313  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
6314  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
6315  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
6316  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
6317  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) -&
6318  & dconjg(vb(3))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
6319  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6320  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
6321  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
6322  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
6323  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
6324  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
6325  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
6326  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
6327  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))))) +&
6328  & eg(1)*(-((pg(2) - pt(2) + dcmplx(0d0,1d0)*(pg(3) -&
6329  & pt(3)))*(dconjg(vb(1))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
6330  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6331  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6332  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6333  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6334  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6335  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6336  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6337  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6338  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6339  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6340  & dconjg(vb(3))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
6341  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6342  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6343  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6344  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6345  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6346  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6347  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6348  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6349  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6350  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6351  & dconjg(vb(2))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6352  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6353  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6354  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6355  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6356  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6357  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6358  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6359  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6360  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
6361  & dconjg(vb(4))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6362  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6363  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6364  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6365  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6366  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6367  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6368  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6369  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6370  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))))) + (mt + pg(1) -&
6371  & pt(1))*(dconjg(vb(2))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
6372  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6373  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
6374  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6375  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
6376  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6377  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
6378  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6379  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
6380  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6381  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6382  & dconjg(vb(4))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
6383  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6384  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
6385  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6386  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
6387  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6388  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
6389  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6390  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
6391  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6392  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6393  & dconjg(vb(1))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
6394  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6395  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
6396  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
6397  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
6398  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
6399  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
6400  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
6401  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
6402  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) -&
6403  & dconjg(vb(3))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
6404  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6405  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
6406  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
6407  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
6408  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
6409  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
6410  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
6411  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
6412  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))) - (pg(4) -&
6413  & pt(4))*(dconjg(vb(2))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
6414  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6415  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
6416  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6417  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
6418  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6419  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
6420  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6421  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
6422  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6423  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6424  & dconjg(vb(4))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
6425  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6426  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
6427  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6428  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
6429  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6430  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
6431  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6432  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
6433  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6434  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6435  & dconjg(vb(1))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
6436  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6437  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
6438  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
6439  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
6440  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
6441  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
6442  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
6443  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
6444  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) -&
6445  & dconjg(vb(3))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
6446  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6447  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
6448  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
6449  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
6450  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
6451  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
6452  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
6453  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
6454  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))))) -&
6455  & eg(4)*((pg(2) - pt(2) + dcmplx(0d0,1d0)*(pg(3) -&
6456  & pt(3)))*(dconjg(vb(1))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
6457  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6458  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6459  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6460  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6461  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6462  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6463  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6464  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6465  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6466  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6467  & dconjg(vb(3))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
6468  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6469  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6470  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6471  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6472  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6473  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6474  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6475  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6476  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6477  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6478  & dconjg(vb(2))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6479  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6480  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6481  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6482  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6483  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6484  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6485  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6486  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6487  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
6488  & dconjg(vb(4))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6489  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6490  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6491  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6492  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6493  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6494  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6495  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6496  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6497  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))) + (mt - pg(1) +&
6498  & pt(1))*(dconjg(vb(2))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
6499  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6500  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
6501  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6502  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
6503  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6504  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
6505  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6506  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
6507  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6508  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6509  & dconjg(vb(4))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
6510  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6511  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
6512  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6513  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
6514  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6515  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
6516  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6517  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
6518  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6519  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6520  & dconjg(vb(1))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
6521  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6522  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
6523  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
6524  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
6525  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
6526  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
6527  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
6528  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
6529  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) -&
6530  & dconjg(vb(3))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
6531  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6532  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
6533  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
6534  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
6535  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
6536  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
6537  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
6538  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
6539  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))) + (pg(4) -&
6540  & pt(4))*(dconjg(vb(2))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
6541  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6542  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
6543  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6544  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
6545  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6546  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
6547  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6548  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
6549  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6550  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6551  & dconjg(vb(4))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
6552  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6553  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
6554  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6555  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
6556  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6557  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
6558  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6559  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
6560  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6561  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6562  & dconjg(vb(1))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
6563  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6564  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
6565  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
6566  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
6567  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
6568  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
6569  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
6570  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
6571  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) -&
6572  & dconjg(vb(3))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
6573  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6574  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
6575  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
6576  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
6577  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
6578  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
6579  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
6580  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
6581  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))))))*vt(1) -&
6582  & (eg(1)*(-((mt + pg(1) - pt(1))*(dconjg(vb(1))*(a1ww*mw**2*(ecw(2) -&
6583  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) - dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
6584  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
6585  & a1ww*(ph(2) + pw(2) - dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
6586  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
6587  & 2*a2ww*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
6588  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6589  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6590  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6591  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6592  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6593  & dconjg(vb(3))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
6594  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6595  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6596  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6597  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6598  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6599  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6600  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6601  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6602  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6603  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6604  & dconjg(vb(2))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6605  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6606  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6607  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6608  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6609  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6610  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6611  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6612  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6613  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
6614  & dconjg(vb(4))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6615  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6616  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6617  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6618  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6619  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6620  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6621  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6622  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6623  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))))) - (pg(4) -&
6624  & pt(4))*(dconjg(vb(1))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
6625  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6626  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6627  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6628  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6629  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6630  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6631  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6632  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6633  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6634  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6635  & dconjg(vb(3))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
6636  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6637  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6638  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6639  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6640  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6641  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6642  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6643  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6644  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6645  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6646  & dconjg(vb(2))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6647  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6648  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6649  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6650  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6651  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6652  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6653  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6654  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6655  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
6656  & dconjg(vb(4))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6657  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6658  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6659  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6660  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6661  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6662  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6663  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6664  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6665  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))) + (pg(2) -&
6666  & dcmplx(0d0,1d0)*pg(3) - pt(2) +&
6667  & dcmplx(0d0,1d0)*pt(3))*(dconjg(vb(2))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
6668  & 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6669  & pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
6670  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6671  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
6672  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6673  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
6674  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6675  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
6676  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6677  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6678  & dconjg(vb(4))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
6679  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6680  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
6681  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6682  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
6683  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6684  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
6685  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6686  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
6687  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6688  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6689  & dconjg(vb(1))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
6690  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6691  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
6692  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
6693  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
6694  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
6695  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
6696  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
6697  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
6698  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) -&
6699  & dconjg(vb(3))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
6700  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6701  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
6702  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
6703  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
6704  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
6705  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
6706  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
6707  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
6708  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))))) - eg(4)*((mt -&
6709  & pg(1) + pt(1))*(dconjg(vb(1))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
6710  & 2*a2ww*(pw(2) - dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6711  & pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6712  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6713  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6714  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6715  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6716  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6717  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6718  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6719  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6720  & dconjg(vb(3))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
6721  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6722  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6723  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6724  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6725  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6726  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6727  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6728  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6729  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6730  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6731  & dconjg(vb(2))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6732  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6733  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6734  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6735  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6736  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6737  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6738  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6739  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6740  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
6741  & dconjg(vb(4))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6742  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6743  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6744  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6745  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6746  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6747  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6748  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6749  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6750  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))) - (pg(4) -&
6751  & pt(4))*(dconjg(vb(1))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
6752  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6753  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6754  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6755  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6756  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6757  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6758  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6759  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6760  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6761  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6762  & dconjg(vb(3))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
6763  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6764  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6765  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6766  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6767  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6768  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6769  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6770  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6771  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6772  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6773  & dconjg(vb(2))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6774  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6775  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6776  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6777  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6778  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6779  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6780  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6781  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6782  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
6783  & dconjg(vb(4))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6784  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6785  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6786  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6787  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6788  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6789  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6790  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6791  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6792  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))) + (pg(2) -&
6793  & dcmplx(0d0,1d0)*pg(3) - pt(2) +&
6794  & dcmplx(0d0,1d0)*pt(3))*(dconjg(vb(2))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
6795  & 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6796  & pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
6797  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6798  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
6799  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6800  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
6801  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6802  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
6803  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6804  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6805  & dconjg(vb(4))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
6806  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6807  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
6808  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6809  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
6810  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6811  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
6812  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6813  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
6814  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6815  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6816  & dconjg(vb(1))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
6817  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6818  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
6819  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
6820  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
6821  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
6822  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
6823  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
6824  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
6825  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) -&
6826  & dconjg(vb(3))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
6827  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6828  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
6829  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
6830  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
6831  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
6832  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
6833  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
6834  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
6835  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))))) + (eg(2) -&
6836  & dcmplx(0d0,1d0)*eg(3))*((pg(2) - pt(2) + dcmplx(0d0,1d0)*(pg(3) -&
6837  & pt(3)))*(dconjg(vb(1))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
6838  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6839  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6840  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6841  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6842  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6843  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6844  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6845  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6846  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6847  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6848  & dconjg(vb(3))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
6849  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6850  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6851  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6852  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6853  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6854  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6855  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6856  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6857  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6858  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6859  & dconjg(vb(2))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6860  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6861  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6862  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6863  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6864  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6865  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6866  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6867  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6868  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
6869  & dconjg(vb(4))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6870  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6871  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6872  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6873  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6874  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6875  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6876  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6877  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6878  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))) + (mt - pg(1) +&
6879  & pt(1))*(dconjg(vb(2))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
6880  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6881  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
6882  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6883  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
6884  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6885  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
6886  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6887  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
6888  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6889  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6890  & dconjg(vb(4))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
6891  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6892  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
6893  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6894  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
6895  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6896  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
6897  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6898  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
6899  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6900  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6901  & dconjg(vb(1))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
6902  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6903  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
6904  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
6905  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
6906  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
6907  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
6908  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
6909  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
6910  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) -&
6911  & dconjg(vb(3))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
6912  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6913  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
6914  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
6915  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
6916  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
6917  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
6918  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
6919  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
6920  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))) + (pg(4) -&
6921  & pt(4))*(dconjg(vb(2))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
6922  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6923  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
6924  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6925  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
6926  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6927  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
6928  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6929  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
6930  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6931  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6932  & dconjg(vb(4))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
6933  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6934  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
6935  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6936  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
6937  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6938  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
6939  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6940  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
6941  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6942  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6943  & dconjg(vb(1))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
6944  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6945  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
6946  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
6947  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
6948  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
6949  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
6950  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
6951  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
6952  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) -&
6953  & dconjg(vb(3))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
6954  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6955  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
6956  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
6957  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
6958  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
6959  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
6960  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
6961  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
6962  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))))))*vt(2) +&
6963  & ((eg(2) + dcmplx(0d0,1d0)*eg(3))*(-((mt + pg(1) -&
6964  & pt(1))*(dconjg(vb(1))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
6965  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6966  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6967  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6968  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6969  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6970  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6971  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6972  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6973  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6974  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
6975  & dconjg(vb(3))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
6976  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6977  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
6978  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
6979  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
6980  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
6981  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
6982  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
6983  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
6984  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
6985  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
6986  & dconjg(vb(2))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6987  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6988  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6989  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
6990  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
6991  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
6992  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
6993  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
6994  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
6995  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
6996  & dconjg(vb(4))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
6997  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
6998  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
6999  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
7000  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
7001  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
7002  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
7003  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
7004  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
7005  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))))) - (pg(4) -&
7006  & pt(4))*(dconjg(vb(1))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
7007  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7008  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
7009  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7010  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
7011  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7012  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
7013  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7014  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
7015  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7016  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
7017  & dconjg(vb(3))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
7018  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7019  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
7020  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7021  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
7022  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7023  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
7024  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7025  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
7026  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7027  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
7028  & dconjg(vb(2))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
7029  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7030  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
7031  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
7032  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
7033  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
7034  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
7035  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
7036  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
7037  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
7038  & dconjg(vb(4))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
7039  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7040  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
7041  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
7042  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
7043  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
7044  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
7045  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
7046  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
7047  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))) + (pg(2) -&
7048  & dcmplx(0d0,1d0)*pg(3) - pt(2) +&
7049  & dcmplx(0d0,1d0)*pt(3))*(dconjg(vb(2))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
7050  & 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7051  & pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
7052  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7053  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
7054  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7055  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
7056  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7057  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
7058  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7059  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
7060  & dconjg(vb(4))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
7061  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7062  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
7063  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7064  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
7065  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7066  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
7067  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7068  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
7069  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7070  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
7071  & dconjg(vb(1))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
7072  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7073  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
7074  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
7075  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
7076  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
7077  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
7078  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
7079  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
7080  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) -&
7081  & dconjg(vb(3))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
7082  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7083  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
7084  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
7085  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
7086  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
7087  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
7088  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
7089  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
7090  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))))) +&
7091  & eg(4)*((pg(2) - pt(2) + dcmplx(0d0,1d0)*(pg(3) -&
7092  & pt(3)))*(dconjg(vb(1))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
7093  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7094  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
7095  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7096  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
7097  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7098  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
7099  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7100  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
7101  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7102  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
7103  & dconjg(vb(3))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
7104  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7105  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
7106  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7107  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
7108  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7109  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
7110  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7111  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
7112  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7113  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
7114  & dconjg(vb(2))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
7115  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7116  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
7117  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
7118  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
7119  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
7120  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
7121  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
7122  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
7123  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
7124  & dconjg(vb(4))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
7125  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7126  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
7127  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
7128  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
7129  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
7130  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
7131  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
7132  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
7133  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))) - (mt + pg(1) -&
7134  & pt(1))*(dconjg(vb(2))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
7135  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7136  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
7137  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7138  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
7139  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7140  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
7141  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7142  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
7143  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7144  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
7145  & dconjg(vb(4))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
7146  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7147  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
7148  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7149  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
7150  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7151  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
7152  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7153  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
7154  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7155  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
7156  & dconjg(vb(1))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
7157  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7158  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
7159  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
7160  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
7161  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
7162  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
7163  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
7164  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
7165  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) -&
7166  & dconjg(vb(3))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
7167  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7168  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
7169  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
7170  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
7171  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
7172  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
7173  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
7174  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
7175  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))) + (pg(4) -&
7176  & pt(4))*(dconjg(vb(2))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
7177  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7178  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
7179  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7180  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
7181  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7182  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
7183  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7184  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
7185  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7186  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
7187  & dconjg(vb(4))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
7188  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7189  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
7190  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7191  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
7192  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7193  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
7194  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7195  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
7196  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7197  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
7198  & dconjg(vb(1))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
7199  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7200  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
7201  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
7202  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
7203  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
7204  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
7205  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
7206  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
7207  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) -&
7208  & dconjg(vb(3))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
7209  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7210  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
7211  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
7212  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
7213  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
7214  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
7215  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
7216  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
7217  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))))) +&
7218  & eg(1)*((pg(2) - pt(2) + dcmplx(0d0,1d0)*(pg(3) -&
7219  & pt(3)))*(dconjg(vb(1))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
7220  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7221  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
7222  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7223  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
7224  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7225  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
7226  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7227  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
7228  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7229  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
7230  & dconjg(vb(3))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
7231  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7232  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
7233  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7234  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
7235  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7236  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
7237  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7238  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
7239  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7240  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
7241  & dconjg(vb(2))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
7242  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7243  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
7244  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
7245  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
7246  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
7247  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
7248  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
7249  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
7250  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
7251  & dconjg(vb(4))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
7252  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7253  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
7254  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
7255  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
7256  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
7257  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
7258  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
7259  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
7260  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))) + (mt - pg(1) +&
7261  & pt(1))*(dconjg(vb(2))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
7262  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7263  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
7264  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7265  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
7266  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7267  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
7268  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7269  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
7270  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7271  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
7272  & dconjg(vb(4))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
7273  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7274  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
7275  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7276  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
7277  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7278  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
7279  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7280  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
7281  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7282  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
7283  & dconjg(vb(1))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
7284  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7285  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
7286  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
7287  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
7288  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
7289  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
7290  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
7291  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
7292  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) -&
7293  & dconjg(vb(3))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
7294  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7295  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
7296  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
7297  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
7298  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
7299  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
7300  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
7301  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
7302  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))) + (pg(4) -&
7303  & pt(4))*(dconjg(vb(2))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
7304  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7305  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
7306  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7307  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
7308  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7309  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
7310  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7311  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
7312  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7313  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
7314  & dconjg(vb(4))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
7315  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7316  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
7317  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7318  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
7319  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7320  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
7321  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7322  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
7323  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7324  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
7325  & dconjg(vb(1))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
7326  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7327  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
7328  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
7329  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
7330  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
7331  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
7332  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
7333  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
7334  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) -&
7335  & dconjg(vb(3))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
7336  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7337  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
7338  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
7339  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
7340  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
7341  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
7342  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
7343  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
7344  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))))))*vt(3) -&
7345  & (eg(4)*(-((mt + pg(1) - pt(1))*(dconjg(vb(1))*(a1ww*mw**2*(ecw(2) -&
7346  & dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) - dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) +&
7347  & pw(1)) - ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
7348  & a1ww*(ph(2) + pw(2) - dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) -&
7349  & ecw(2)*(ph(2) + pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) -&
7350  & 2*a2ww*(ecw(2) - dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) +&
7351  & pw(2)) - pw(3)*(ph(3) + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
7352  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7353  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
7354  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7355  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
7356  & dconjg(vb(3))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
7357  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7358  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
7359  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7360  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
7361  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7362  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
7363  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7364  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
7365  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7366  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
7367  & dconjg(vb(2))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
7368  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7369  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
7370  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
7371  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
7372  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
7373  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
7374  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
7375  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
7376  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
7377  & dconjg(vb(4))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
7378  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7379  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
7380  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
7381  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
7382  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
7383  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
7384  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
7385  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
7386  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))))) - (pg(4) -&
7387  & pt(4))*(dconjg(vb(1))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
7388  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7389  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
7390  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7391  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
7392  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7393  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
7394  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7395  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
7396  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7397  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
7398  & dconjg(vb(3))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
7399  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7400  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
7401  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7402  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
7403  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7404  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
7405  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7406  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
7407  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7408  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
7409  & dconjg(vb(2))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
7410  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7411  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
7412  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
7413  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
7414  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
7415  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
7416  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
7417  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
7418  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
7419  & dconjg(vb(4))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
7420  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7421  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
7422  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
7423  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
7424  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
7425  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
7426  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
7427  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
7428  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))) + (pg(2) -&
7429  & dcmplx(0d0,1d0)*pg(3) - pt(2) +&
7430  & dcmplx(0d0,1d0)*pt(3))*(dconjg(vb(2))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
7431  & 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7432  & pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
7433  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7434  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
7435  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7436  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
7437  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7438  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
7439  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7440  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
7441  & dconjg(vb(4))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
7442  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7443  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
7444  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7445  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
7446  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7447  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
7448  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7449  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
7450  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7451  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
7452  & dconjg(vb(1))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
7453  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7454  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
7455  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
7456  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
7457  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
7458  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
7459  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
7460  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
7461  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) -&
7462  & dconjg(vb(3))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
7463  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7464  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
7465  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
7466  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
7467  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
7468  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
7469  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
7470  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
7471  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))))) - eg(1)*((mt -&
7472  & pg(1) + pt(1))*(dconjg(vb(1))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) +&
7473  & 2*a2ww*(pw(2) - dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7474  & pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
7475  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7476  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
7477  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7478  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
7479  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7480  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
7481  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7482  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
7483  & dconjg(vb(3))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
7484  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7485  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
7486  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7487  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
7488  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7489  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
7490  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7491  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
7492  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7493  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
7494  & dconjg(vb(2))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
7495  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7496  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
7497  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
7498  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
7499  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
7500  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
7501  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
7502  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
7503  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
7504  & dconjg(vb(4))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
7505  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7506  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
7507  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
7508  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
7509  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
7510  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
7511  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
7512  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
7513  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))) - (pg(4) -&
7514  & pt(4))*(dconjg(vb(1))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
7515  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7516  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
7517  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7518  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
7519  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7520  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
7521  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7522  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
7523  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7524  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
7525  & dconjg(vb(3))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
7526  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7527  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
7528  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7529  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
7530  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7531  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
7532  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7533  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
7534  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7535  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
7536  & dconjg(vb(2))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
7537  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7538  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
7539  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
7540  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
7541  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
7542  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
7543  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
7544  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
7545  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
7546  & dconjg(vb(4))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
7547  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7548  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
7549  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
7550  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
7551  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
7552  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
7553  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
7554  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
7555  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4)))))) + (pg(2) -&
7556  & dcmplx(0d0,1d0)*pg(3) - pt(2) +&
7557  & dcmplx(0d0,1d0)*pt(3))*(dconjg(vb(2))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) +&
7558  & 2*a2ww*(pw(2) + dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7559  & pw(2)) - ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
7560  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7561  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
7562  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7563  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
7564  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7565  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
7566  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7567  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
7568  & dconjg(vb(4))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
7569  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7570  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
7571  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7572  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
7573  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7574  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
7575  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7576  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
7577  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7578  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
7579  & dconjg(vb(1))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
7580  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7581  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
7582  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
7583  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
7584  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
7585  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
7586  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
7587  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
7588  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) -&
7589  & dconjg(vb(3))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
7590  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7591  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
7592  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
7593  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
7594  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
7595  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
7596  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
7597  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
7598  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))))) + (eg(2) -&
7599  & dcmplx(0d0,1d0)*eg(3))*(-((pg(2) - pt(2) + dcmplx(0d0,1d0)*(pg(3) -&
7600  & pt(3)))*(dconjg(vb(1))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
7601  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7602  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
7603  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7604  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
7605  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7606  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
7607  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7608  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
7609  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7610  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
7611  & dconjg(vb(3))*(a1ww*mw**2*(ecw(2) - dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) -&
7612  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7613  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) -&
7614  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7615  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) -&
7616  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7617  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) -&
7618  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7619  & ecw(4)*(dcmplx(0d0,-1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,1d0)*pw(2) +&
7620  & pw(3))) - ecw(3)*ph(1)*pw(4) + dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7621  & + dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
7622  & dconjg(vb(2))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
7623  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7624  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
7625  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
7626  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
7627  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
7628  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
7629  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
7630  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
7631  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))) -&
7632  & dconjg(vb(4))*(a1ww*mw**2*(ecw(1) - ecw(4)) - a1ww*(ph(1) - ph(4) + pw(1) -&
7633  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7634  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) - 2*a2ww*(ecw(3)*ph(3)*pw(1) -&
7635  & ecw(1)*ph(2)*pw(2) - ecw(1)*pw(2)**2 - ecw(1)*ph(3)*pw(3) + ecw(3)*pw(1)*pw(3) -&
7636  & ecw(1)*pw(3)**2 + ecw(2)*(ph(2) + pw(2))*(pw(1) - pw(4)) + ecw(1)*ph(1)*pw(4) -&
7637  & ecw(3)*ph(3)*pw(4) - ecw(1)*ph(4)*pw(4) + ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) -&
7638  & ecw(1)*pw(4)**2 + ecw(4)*(-(ph(1)*pw(1)) + ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2) +&
7639  & pw(2)**2 + ph(3)*pw(3) + pw(3)**2 + pw(1)*pw(4))) - 2*a4ww*(-((ecw(1) -&
7640  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(2)*((-ph(1) + ph(4))*pw(3) + ph(3)*(pw(1) -&
7641  & pw(4))) + ecw(3)*((ph(1) - ph(4))*pw(2) + ph(2)*(-pw(1) + pw(4))))))) + (mt + pg(1) -&
7642  & pt(1))*(dconjg(vb(2))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
7643  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7644  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
7645  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7646  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
7647  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7648  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
7649  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7650  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
7651  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7652  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
7653  & dconjg(vb(4))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
7654  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7655  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
7656  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7657  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
7658  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7659  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
7660  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7661  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
7662  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7663  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
7664  & dconjg(vb(1))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
7665  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7666  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
7667  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
7668  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
7669  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
7670  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
7671  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
7672  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
7673  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) -&
7674  & dconjg(vb(3))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
7675  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7676  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
7677  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
7678  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
7679  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
7680  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
7681  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
7682  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
7683  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4)))))) - (pg(4) -&
7684  & pt(4))*(dconjg(vb(2))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
7685  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7686  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
7687  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7688  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
7689  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7690  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
7691  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7692  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
7693  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7694  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) -&
7695  & dconjg(vb(4))*(a1ww*mw**2*(ecw(2) + dcmplx(0d0,1d0)*ecw(3)) + 2*a2ww*(pw(2) +&
7696  & dcmplx(0d0,1d0)*pw(3))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7697  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - a1ww*(ph(2) + pw(2) +&
7698  & dcmplx(0d0,1d0)*(ph(3) + pw(3)))*(ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) + pw(2)) -&
7699  & ecw(3)*(ph(3) + pw(3)) - ecw(4)*(ph(4) + pw(4))) - 2*a2ww*(ecw(2) +&
7700  & dcmplx(0d0,1d0)*ecw(3))*(pw(1)*(ph(1) + pw(1)) - pw(2)*(ph(2) + pw(2)) - pw(3)*(ph(3)&
7701  & + pw(3)) - pw(4)*(ph(4) + pw(4))) + 2*a4ww*(ecw(3)*ph(4)*pw(1) +&
7702  & dcmplx(0d0,1d0)*ecw(1)*ph(4)*pw(2) - ecw(1)*ph(4)*pw(3) +&
7703  & ecw(4)*(dcmplx(0d0,1d0)*ph(2)*pw(1) - ph(3)*pw(1) + ph(1)*(dcmplx(0d0,-1d0)*pw(2) +&
7704  & pw(3))) - ecw(3)*ph(1)*pw(4) - dcmplx(0d0,1d0)*ecw(1)*ph(2)*pw(4) + ecw(1)*ph(3)*pw(4)&
7705  & - dcmplx(0d0,1d0)*ecw(2)*(ph(4)*pw(1) - ph(1)*pw(4)))) +&
7706  & dconjg(vb(1))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
7707  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7708  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
7709  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
7710  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
7711  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
7712  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
7713  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
7714  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
7715  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) + pw(4))))) -&
7716  & dconjg(vb(3))*(a1ww*mw**2*(ecw(1) + ecw(4)) - a1ww*(ph(1) + ph(4) + pw(1) +&
7717  & pw(4))*(-(ecw(3)*ph(3)) - ecw(4)*ph(4) + ecw(1)*(ph(1) + pw(1)) - ecw(2)*(ph(2) +&
7718  & pw(2)) - ecw(3)*pw(3) - ecw(4)*pw(4)) + 2*a2ww*(-(ecw(3)*ph(3)*pw(1)) +&
7719  & ecw(1)*ph(2)*pw(2) + ecw(1)*pw(2)**2 + ecw(1)*ph(3)*pw(3) - ecw(3)*pw(1)*pw(3) +&
7720  & ecw(1)*pw(3)**2 + ecw(1)*ph(1)*pw(4) - ecw(3)*ph(3)*pw(4) + ecw(1)*ph(4)*pw(4) +&
7721  & ecw(1)*pw(1)*pw(4) - ecw(3)*pw(3)*pw(4) + ecw(1)*pw(4)**2 - ecw(2)*(ph(2) +&
7722  & pw(2))*(pw(1) + pw(4)) + ecw(4)*(-(ph(1)*pw(1)) - ph(4)*pw(1) - pw(1)**2 + ph(2)*pw(2)&
7723  & + pw(2)**2 + ph(3)*pw(3) + pw(3)**2 - pw(1)*pw(4))) + 2*a4ww*(-((ecw(1) +&
7724  & ecw(4))*(ph(3)*pw(2) - ph(2)*pw(3))) + ecw(3)*((ph(1) + ph(4))*pw(2) - ph(2)*(pw(1) +&
7725  & pw(4))) + ecw(2)*(-((ph(1) + ph(4))*pw(3)) + ph(3)*(pw(1) +&
7726  & pw(4))))))))*vt(4)))/(sqrt2*v**2*(mt**2 - (pg(1) - pt(1))**2 + (pg(2) - pt(2))**2&
7727  & + (pg(3) - pt(3))**2 + (pg(4) - pt(4))**2)*(mw**2 - (ph(1) + pw(1))**2 + (ph(2) +&
7728  & pw(2))**2 + (ph(3) + pw(3))**2 + (ph(4) + pw(4))**2))
7729 
7730  amp = ampts + ampws + amptt1 + amptt2 + ampwt
7731 

◆ my_spinoru()

subroutine modthiggs::my_spinoru ( integer, intent(in)  n,
real(8), dimension(4,n), intent(in)  p,
complex(8), dimension(n,n), intent(out)  za,
complex(8), dimension(n,n), intent(out)  zb,
real(8), dimension(n,n), intent(out)  s 
)
private

Definition at line 7826 of file mod_THiggs.F90.

7826  implicit none
7827  integer, intent(in) :: n
7828  real(8), intent(in) :: p(4,n)
7829  complex(8), intent(out) :: za(n,n), zb(n,n)
7830  real(8), intent(out) :: s(n,n)
7831  integer :: i,j
7832  complex(8) :: c23(n), f(n)
7833  real(8) :: rt(n)
7834 
7835  !---if one of the vectors happens to be zero this routine fails.
7836  do j=1,n
7837  za(j,j)=czero
7838  zb(j,j)=za(j,j)
7839 
7840  !-----positive energy case
7841  if (p(1,j) .gt. zero) then
7842  rt(j)=dsqrt(dabs(p(2,j)+p(1,j)))
7843  c23(j)=dcmplx(p(4,j),-p(3,j))
7844  f(j)=(one,zero)
7845  else
7846  !-----negative energy case
7847  rt(j)=dsqrt(dabs(-p(1,j)-p(2,j)))
7848  c23(j)=dcmplx(-p(4,j),p(3,j))
7849  f(j)=ci
7850  endif
7851  enddo
7852 
7853  do i=2,n
7854 
7855  do j=1,i-1
7856  s(i,j)=two*(p(1,i)*p(1,j)-p(2,i)*p(2,j)-p(3,i)*p(3,j)-p(4,i)*p(4,j))
7857  za(i,j)=f(i)*f(j) * ( c23(i)*dcmplx(rt(j)/(rt(i)+1d-16))-c23(j)*dcmplx(rt(i)/(rt(j)+1d-16)) )
7858 
7859  if (dabs(s(i,j)).lt.1d-5) then
7860  zb(i,j)=-(f(i)*f(j))**2*dconjg(za(i,j))
7861  else
7862  zb(i,j)=-dcmplx(s(i,j))/(za(i,j)+1d-16)
7863  endif
7864 
7865  za(j,i)=-za(i,j)
7866  zb(j,i)=-zb(i,j)
7867  s(j,i)=s(i,j)
7868 
7869  enddo
7870 
7871  enddo
7872 
7873  return
7874 

◆ myamp()

subroutine modthiggs::myamp ( real(8), dimension(1:4,1:4)  p,
complex(8)  VVHg1,
complex(8)  VVHg2,
complex(8)  VVHg3,
complex(8)  TTHg1,
complex(8)  TTHg2,
real(8)  res 
)
private

Definition at line 7784 of file mod_THiggs.F90.

7784  implicit none
7785  real(8) :: p(1:4,1:4),pt_light(1:4),res
7786  real(8) :: s12,s34,s234,IV1,IV2,sprod(1:4,1:4)
7787  complex(8) :: VVHg1,VVHg2,VVHg3,TTHg1,TTHg2
7788  complex(8) :: HelAmp(1:2),Props1,Props2
7789  complex(8) :: za(1:4,1:4),zb(1:4,1:4)
7790  complex(8),parameter :: cI=(0d0,1d0)
7791 
7792  pt_light(1:4) = p(1:4,1) - m_top**2/(2d0*(p(1,3)*p(1,1)-p(2,3)*p(2,1)-p(3,3)*p(3,1)-p(4,3)*p(4,1)))*p(1:4,3)
7793  call my_spinoru(4,(/pt_light(1:4),p(1:4,2),p(1:4,3),p(1:4,4)/),za,zb,sprod)
7794  sprod(1,2) = 2d0*(p(1,2)*p(1,1)-p(2,2)*p(2,1)-p(3,2)*p(3,1)-p(4,2)*p(4,1))! overwriting sprod(1,2) because 1=not top momentum above
7795 
7796  s12 = m_top**2 + sprod(1,2)
7797  s34 = sprod(3,4)
7798  props1 = ci/(s12-m_w**2+ci*m_w*ga_w) * ci/(s34-m_w**2+ci*m_w*ga_w) ! all propagator denominators for the HVV diagram
7799  s234 = sprod(2,3)+sprod(2,4)+sprod(3,4)
7800  props2 = ci/(s234-m_top**2+ci*m_top*ga_top) * ci/(s34-m_w**2+ci*m_w*ga_w) ! all propagator denominators for the Yukawa diagram
7801 
7802  iv1 = dsqrt(gwsq)/dsqrt(2d0)
7803  iv2 = dsqrt(gwsq)/dsqrt(2d0)
7804 
7805  ! assuming tbar*( TTHg1 + i*TTHg2*gamma^5 )*t
7806  helamp(1) = (iv1*iv2*(-(m_top**3*props1*vvhg2*zb(2,1)*(2*za(2,3)*zb(2,3) + 2*za(3,1)*zb(3,1) + za(3,4)*zb(3,4))*(za(2,3)*zb(2,4) + za(3,1)*zb(4,1))) + &
7807  4*m_w**2*props2*(tthg1 - ci*tthg2)*za(3,1)*zb(2,4)*zb(3,1)*(za(2,3)*zb(2,1) - za(3,4)*zb(4,1)) + &
7808  m_top*props1*zb(3,1)*(za(2,3)*zb(2,4) + za(3,1)*zb(4,1))* &
7809  (-2*vvhg1*za(3,1)*zb(2,1) + 2*m_w**2*(vvhg2*za(3,1)*zb(2,1) + (vvhg2 - ci*vvhg3)*za(3,4)*zb(2,4)) + &
7810  vvhg2*za(3,1)*zb(2,1)*(2*za(2,1)*zb(2,1) + za(2,3)*zb(2,3) + za(2,4)*zb(2,4) + za(3,1)*zb(3,1) + za(4,1)*zb(4,1)))))/(2*m_w**2*za(3,1)*zb(3,1))
7811 
7812  helamp(2) = (iv1*iv2*(-4*m_top*m_w**2*props2*za(3,1)*zb(2,4)*zb(3,1)* &
7813  (-(tthg1*za(2,3)*zb(2,3)) + ci*tthg2*za(2,3)*zb(2,3) + tthg1*za(3,1)*zb(3,1) + ci*tthg2*za(3,1)*zb(3,1) + (-tthg1 + ci*tthg2)*za(3,4)*zb(3,4)) - &
7814  m_top**4*props1*vvhg2*zb(2,3)*(2*za(2,3)*zb(2,3) + 2*za(3,1)*zb(3,1) + za(3,4)*zb(3,4))*(za(2,3)*zb(2,4) + za(3,1)*zb(4,1)) + &
7815  m_top**2*props1*za(3,1)*zb(3,1)*(-2*vvhg1*zb(2,3)*(za(2,3)*zb(2,4) + za(3,1)*zb(4,1)) + &
7816  vvhg2*zb(2,3)*(za(2,3)*zb(2,4) + za(3,1)*zb(4,1))*(2*za(2,1)*zb(2,1) + za(2,3)*zb(2,3) + za(2,4)*zb(2,4) + za(3,1)*zb(3,1) + za(4,1)*zb(4,1)) + &
7817  2*m_w**2*(ci*vvhg3*za(3,4)*zb(2,4)*zb(3,4) + vvhg2*zb(2,3)*(za(2,3)*zb(2,4) + za(3,1)*zb(4,1)))) - &
7818  2*m_w**2*props1*za(3,1)*zb(3,1)**2*(-2*vvhg1*za(3,1)*zb(2,4) + vvhg2*(za(3,1)*zb(2,3) + za(4,1)*zb(2,4))*(za(2,3)*zb(2,4) + za(3,1)*zb(4,1)) + &
7819  ci*vvhg3*(za(2,1)*za(3,4)*zb(2,4)**2 + za(3,1)**2*(-(zb(2,4)*zb(3,1)) + zb(2,3)*zb(4,1))))))/(2*m_w**2*za(3,1)*zb(3,1)**2)
7820 
7821  res = helamp(1)*dconjg(helamp(1)) + helamp(2)*dconjg(helamp(2))
7822 

◆ tdecay()

subroutine modthiggs::tdecay ( integer  k4,
integer  e4,
integer  b,
integer  ep,
integer  nu,
complex(8), dimension(:,:)  za,
complex(8), dimension(:,:)  zb,
complex(8), dimension(1:2)  dkamp 
)
private

Definition at line 7738 of file mod_THiggs.F90.

7738 ! top decay routine, taken from MCFM, see hep-ph:/1204.1513
7739  implicit none
7740  integer :: k4,e4,b,ep,nu
7741  complex(8) :: za(:,:),zb(:,:),dkamp(1:2)
7742  real(8) :: NWAFactor_Top,NWAFactor_W
7743  complex(8) :: WProp
7744 
7745 
7746  ! if one flattens the top wrt to e, then amp(2) = 0
7747  dkamp(1) = za(b,nu)*zb(ep,e4)
7748  dkamp(2) = m_top * za(b,nu)*zb(ep,k4)/za(e4,k4)
7749 
7750  nwafactor_top = 1d0/dsqrt(2d0*ga_top*m_top)
7751  nwafactor_w = 1d0/dsqrt(2d0*ga_w*m_w)
7752  wprop = (0d0,-1d0)*nwafactor_w
7753 
7754  dkamp = dkamp * wprop * nwafactor_top * gwsq
7755 
7756 

◆ ubard_htbarbamp()

subroutine modthiggs::ubard_htbarbamp ( integer  p1,
integer  p2,
integer  e3,
integer  k3,
integer  k4,
integer  e4,
integer  p5,
complex(8), dimension(:,:)  za,
complex(8), dimension(:,:)  zb,
real(8), dimension(:,:)  s,
complex(8), dimension(1:2)  mdecay,
complex(8), dimension(2)  amp 
)
private

Definition at line 849 of file mod_THiggs.F90.

849 ! amplitude for production ubar(p1)+d(p2)->H(p3)+tbar(p4)+b(p5)
850 ! allowing for scalar & pseudoscalar couplings of Higgs to top
851  implicit none
852  integer :: p1,p2,p3,e3,k3,e4,p5,k4
853  complex(8) :: za(:,:),zb(:,:),mdecay(1:2)
854  real(8) :: s(:,:)
855  complex(8) :: amp(2),ampw(2),ampt(2),KL,KR
856  real(8) :: s45,s34,s12,mt,mw
857 
858  s45=s(k4,p5)+s(e4,p5)+s(e4,k4)
859  s34=s(p1,p2)+s(p1,p5)+s(p2,p5)
860  s12=s(p1,p2)
861 
862  mw=m_w
863  mt=m_top
864 
865 ! there is a factor of -2 relative to ttbH
866  kl=-mt/vev*(kappa-(0d0,1d0)*kappa_tilde)
867  kr=-mt/vev*(kappa+(0d0,1d0)*kappa_tilde)
868 
869 
870  ampw(1) = 1d0/2d0/( - mw**2 + s45)/( - mw**2 + s12)*za(p1,e3)*&
871  & za(p5,e4)*zb(e3,p2)*mt + 1d0/2d0/( - mw**2 + s45)/( - mw**2 + &
872  & s12)*za(p1,k3)*za(p5,e4)*zb(k3,p2)*mt + 1/( - mw**2 + s45)/( - &
873  & mw**2 + s12)/(zb(k4,e4))*za(p1,p5)*zb(p2,k4)*mw**2*mt
874 
875  ampw(2) = 1/( - mw**2 + s45)/( - mw**2 + s12)*za(p1,p5)*zb(p2,&
876  & e4)*mw**2 + 1d0/2d0/( - mw**2 + s45)/( - mw**2 + s12)/(za(k4,e4)&
877  & )*za(p1,e3)*za(p5,k4)*zb(e3,p2)*mt**2 + 1d0/2d0/( - mw**2 + s45)&
878  & /( - mw**2 + s12)/(za(k4,e4))*za(p1,k3)*za(p5,k4)*zb(k3,p2)*&
879  & mt**2
880 
881  ampt(1) = - 1d0/2d0/( - mt**2 + s34)/( - mw**2 + s12)*za(p1,p5&
882  & )*za(e4,p1)*zb(p1,p2)*vev*kr - 1d0/2d0/( - mt**2 + s34)/( - &
883  & mw**2 + s12)*za(p1,p5)*za(e4,p5)*zb(p5,p2)*vev*kr - 1d0/2d0/( - &
884  & mt**2 + s34)/( - mw**2 + s12)/(zb(k4,e4))*za(p1,p5)*zb(p2,k4)*&
885  & mt**2*vev*kl
886 
887  ampt(2) = - 1d0/2d0/( - mt**2 + s34)/( - mw**2 + s12)*za(p1,p5&
888  & )*zb(p2,e4)*mt*vev*kl - 1d0/2d0/( - mt**2 + s34)/( - mw**2 + s12&
889  & )/(za(k4,e4))*za(p1,p5)*za(k4,p1)*zb(p1,p2)*mt*vev*kr - 1d0/2d0&
890  & /( - mt**2 + s34)/( - mw**2 + s12)/(za(k4,e4))*za(p1,p5)*za(k4,&
891  & p5)*zb(p5,p2)*mt*vev*kr
892 
893  amp(1)=(ampw(1)*(ghz1/2d0) +ampt(1))*mdecay(1)
894  amp(2)=(ampw(2)*(ghz1/2d0) +ampt(2))*mdecay(2)
895 

◆ ubhtdamp()

subroutine modthiggs::ubhtdamp ( integer  p1,
integer  p2,
integer  e3,
integer  k3,
integer  k4,
integer  e4,
integer  p5,
complex(8), dimension(:,:)  za,
complex(8), dimension(:,:)  zb,
real(8), dimension(:,:)  s,
complex(8), dimension(1:2)  mdecay,
complex(8), dimension(2)  amp 
)

Definition at line 630 of file mod_THiggs.F90.

630  implicit none
631  integer :: p1,p2,p3,e3,k3,e4,p5,k4
632  complex(8) :: za(:,:),zb(:,:),mdecay(1:2)
633  real(8) :: s(:,:)
634  complex(8) :: amp(2),ampw(2),ampt(2),om1,om2,om3,KL,KR
635  real(8) :: s12,s13,s14,s15,s23,s24,s25,s34,s35,s45,s125,mt,mw
636 
637  s12=s(p1,p2)
638  s13=s(p1,e3)+s(p1,k3)+s(e3,k3)
639  s14=s(p1,k4)+s(p1,e4)+s(e4,k4)
640  s15=s(p1,p5)
641  s23=s(p2,e3)+s(p2,k3)+s(e3,k3)
642  s24=s(p2,k4)+s(p2,e4)+s(e4,k4)
643  s25=s(p2,p5)
644  s45=s(p5,k4)+s(p5,e4)+s(e4,k4)
645  s34=s(p1,p2)+s(p1,p5)+s(p2,p5)
646  s35=s(e3,p5)+s(k3,p5)+s(e3,k3)
647  s125=s(p1,p2)+s(p1,p5)+s(p2,p5)
648  mw=m_w
649  mt=m_top
650 
651  kl=-mt/vev*(kappa-(0d0,1d0)*kappa_tilde)
652  kr=-mt/vev*(kappa+(0d0,1d0)*kappa_tilde)
653 
654  om1 = ghz1/2d0 ! this should be proper a1,a2,a3
655  om2 = ghz2
656  om3 = ghz4 * (-1d0) ! correct buggy minus sign in Raoul's code
657 
658 
659  ampw(1) = + om3 * ( - 1d0/2d0*za(p5,p2)*za(e4,p1)*zb(p1,p2)*&
660  & zb(p2,p1)*ci - 1d0/2d0*za(p5,p2)*za(e4,p5)*zb(p2,p1)*zb(p5,p2&
661  & )*ci + za(p5,k4)*za(e4,p1)*zb(p1,p2)*zb(p1,k4)*ci + 1d0/2d0*&
662  & za(p5,k4)*za(e4,p1)*zb(p1,p2)*zb(k4,p1)*ci + za(p5,k4)*za(e4,&
663  & p5)*zb(p1,p2)*zb(p5,k4)*ci + 1d0/2d0*za(p5,k4)*za(e4,p5)*zb(&
664  & p5,p2)*zb(k4,p1)*ci + za(p5,e4)*za(e4,p1)*zb(p1,p2)*zb(p1,e4)&
665  & *ci + 1d0/2d0*za(p5,e4)*za(e4,p1)*zb(p1,p2)*zb(e4,p1)*ci + &
666  & za(p5,e4)*za(e4,p5)*zb(p1,p2)*zb(p5,e4)*ci + 1d0/2d0*za(p5,e4&
667  & )*za(e4,p5)*zb(p5,p2)*zb(e4,p1)*ci + za(p5,e4)*zb(p1,p2)*&
668  & mt**2*ci - 1d0/2d0*za(p5,e4)*zb(p1,p2)*s12*ci - 1d0/2d0*za(p5&
669  & ,e4)*zb(p1,p2)*s14*ci - 1d0/2d0*za(p5,e4)*zb(p1,p2)*s45*ci - &
670  & 1d0/2d0*za(p5,e4)*zb(p1,p2)*s25*ci )
671  ampw(1) = ampw(1) + om2 * ( - 1d0/2d0*za(p5,e3)*za(e4,e3)*zb(e3,&
672  & p1)*zb(e3,p2) - 1d0/2d0*za(p5,e3)*za(e4,k3)*zb(e3,p1)*zb(k3,&
673  & p2) - 1d0/2d0*za(p5,k3)*za(e4,e3)*zb(e3,p2)*zb(k3,p1) - 1d0/2d0&
674  & *za(p5,k3)*za(e4,k3)*zb(k3,p1)*zb(k3,p2) - 1d0/2d0/(zb(k4,e4&
675  & ))*za(p5,e3)*zb(p2,k4)*zb(e3,p1)*mw**(-2)*mt**4 + 1d0/2d0/(&
676  & zb(k4,e4))*za(p5,e3)*zb(p2,k4)*zb(e3,p1)*s24*mw**(-2)*mt**2&
677  & + 1d0/4d0/(zb(k4,e4))*za(p5,e3)*zb(p2,k4)*zb(e3,p1)*s12*&
678  & mw**(-2)*mt**2 + 1d0/4d0/(zb(k4,e4))*za(p5,e3)*zb(p2,k4)*zb(&
679  & e3,p1)*s14*mw**(-2)*mt**2 + 1d0/4d0/(zb(k4,e4))*za(p5,e3)*zb(&
680  & p2,k4)*zb(e3,p1)*s45*mw**(-2)*mt**2 + 1d0/4d0/(zb(k4,e4))*za(&
681  & p5,e3)*zb(p2,k4)*zb(e3,p1)*s25*mw**(-2)*mt**2 - 1d0/2d0/(zb(&
682  & k4,e4))*za(p5,k3)*zb(p2,k4)*zb(k3,p1)*mw**(-2)*mt**4 + 1d0/2d0&
683  & /(zb(k4,e4))*za(p5,k3)*zb(p2,k4)*zb(k3,p1)*s24*mw**(-2)*mt**2&
684  & + 1d0/4d0/(zb(k4,e4))*za(p5,k3)*zb(p2,k4)*zb(k3,p1)*s12*&
685  & mw**(-2)*mt**2 + 1d0/4d0/(zb(k4,e4))*za(p5,k3)*zb(p2,k4)*zb(&
686  & k3,p1)*s14*mw**(-2)*mt**2 )
687  ampw(1) = ampw(1) + om2 * ( 1d0/4d0/(zb(k4,e4))*za(p5,k3)*zb(p2,&
688  & k4)*zb(k3,p1)*s45*mw**(-2)*mt**2 + 1d0/4d0/(zb(k4,e4))*za(p5,&
689  & k3)*zb(p2,k4)*zb(k3,p1)*s25*mw**(-2)*mt**2 )
690  ampw(1) = ampw(1) + om1 * ( za(p5,e4)*zb(p1,p2)*mw**2 - 1d0/2d0/(&
691  & zb(k4,e4))*za(p5,p2)*zb(p2,p1)*zb(p2,k4)*mt**2 - 1d0/2d0/(zb(&
692  & k4,e4))*za(p5,k4)*zb(p2,k4)*zb(k4,p1)*mt**2 - 1d0/2d0/(zb(k4,&
693  & e4))*za(p5,e4)*zb(p2,k4)*zb(e4,p1)*mt**2 )
694 
695  ampw(2) = + om3 * ( - 1d0/2d0/(za(k4,e4))*za(p5,p2)*za(k4,p1)&
696  & *zb(p1,p2)*zb(p2,p1)*mt*ci - 1d0/2d0/(za(k4,e4))*za(p5,p2)*&
697  & za(k4,p5)*zb(p2,p1)*zb(p5,p2)*mt*ci - 1d0/2d0/(za(k4,e4))*za(&
698  & p5,k4)*za(k4,p1)*zb(p1,p2)*zb(k4,p1)*mt*ci - 1/(za(k4,e4))*&
699  & za(p5,k4)*za(k4,p5)*zb(p1,p2)*zb(k4,p5)*mt*ci + 1d0/2d0/(za(&
700  & k4,e4))*za(p5,k4)*za(k4,p5)*zb(p5,p2)*zb(k4,p1)*mt*ci + 1/(&
701  & za(k4,e4))*za(p5,k4)*zb(p1,p2)*mt**3*ci - 1d0/2d0/(za(k4,e4))&
702  & *za(p5,k4)*zb(p1,p2)*s12*mt*ci - 1d0/2d0/(za(k4,e4))*za(p5,k4&
703  & )*zb(p1,p2)*s14*mt*ci - 1d0/2d0/(za(k4,e4))*za(p5,k4)*zb(p1,&
704  & p2)*s45*mt*ci - 1d0/2d0/(za(k4,e4))*za(p5,k4)*zb(p1,p2)*s25*&
705  & mt*ci - 1d0/2d0/(za(k4,e4))*za(p5,e4)*za(k4,p1)*zb(p1,p2)*zb(&
706  & e4,p1)*mt*ci - 1/(za(k4,e4))*za(p5,e4)*za(k4,p5)*zb(p1,p2)*&
707  & zb(e4,p5)*mt*ci + 1d0/2d0/(za(k4,e4))*za(p5,e4)*za(k4,p5)*zb(&
708  & p5,p2)*zb(e4,p1)*mt*ci )
709  ampw(2) = ampw(2) + om2 * ( - 1d0/2d0*za(p5,e3)*zb(p2,e4)*zb(e3,&
710  & p1)*mw**(-2)*mt**3 + 1d0/2d0*za(p5,e3)*zb(p2,e4)*zb(e3,p1)*&
711  & s24*mw**(-2)*mt + 1d0/4d0*za(p5,e3)*zb(p2,e4)*zb(e3,p1)*s12*&
712  & mw**(-2)*mt + 1d0/4d0*za(p5,e3)*zb(p2,e4)*zb(e3,p1)*s14*&
713  & mw**(-2)*mt + 1d0/4d0*za(p5,e3)*zb(p2,e4)*zb(e3,p1)*s45*&
714  & mw**(-2)*mt + 1d0/4d0*za(p5,e3)*zb(p2,e4)*zb(e3,p1)*s25*&
715  & mw**(-2)*mt - 1d0/2d0*za(p5,k3)*zb(p2,e4)*zb(k3,p1)*mw**(-2)*&
716  & mt**3 + 1d0/2d0*za(p5,k3)*zb(p2,e4)*zb(k3,p1)*s24*mw**(-2)*mt&
717  & + 1d0/4d0*za(p5,k3)*zb(p2,e4)*zb(k3,p1)*s12*mw**(-2)*mt + 1d0&
718  & /4d0*za(p5,k3)*zb(p2,e4)*zb(k3,p1)*s14*mw**(-2)*mt + 1d0/4d0*&
719  & za(p5,k3)*zb(p2,e4)*zb(k3,p1)*s45*mw**(-2)*mt + 1d0/4d0*za(p5&
720  & ,k3)*zb(p2,e4)*zb(k3,p1)*s25*mw**(-2)*mt - 1d0/2d0/(za(k4,e4)&
721  & )*za(p5,e3)*za(k4,e3)*zb(e3,p1)*zb(e3,p2)*mt - 1d0/2d0/(za(k4&
722  & ,e4))*za(p5,e3)*za(k4,k3)*zb(e3,p1)*zb(k3,p2)*mt - 1d0/2d0/(&
723  & za(k4,e4))*za(p5,k3)*za(k4,e3)*zb(e3,p2)*zb(k3,p1)*mt - 1d0/2d0&
724  & /(za(k4,e4))*za(p5,k3)*za(k4,k3)*zb(k3,p1)*zb(k3,p2)*mt )
725  ampw(2) = ampw(2) + om1 * ( - 1d0/2d0*za(p5,p2)*zb(p2,p1)*zb(p2,&
726  & e4)*mt - 1d0/2d0*za(p5,k4)*zb(p2,e4)*zb(k4,p1)*mt - 1d0/2d0*&
727  & za(p5,e4)*zb(p2,e4)*zb(e4,p1)*mt + 1/(za(k4,e4))*za(p5,k4)*&
728  & zb(p1,p2)*mw**2*mt )
729 
730  ampt(1) = - 1d0/2d0*za(p5,e4)*zb(p1,p2)*mt*vev*kr - 1d0/2d0/(&
731  & zb(k4,e4))*za(p5,p1)*zb(p1,p2)*zb(p1,k4)*mt*vev*kl + 1d0/2d0&
732  & /(zb(k4,e4))*za(p5,p2)*zb(p2,p1)*zb(p2,k4)*mt*vev*kl
733 
734  ampt(2) = - 1d0/2d0*za(p5,p1)*zb(p1,p2)*zb(p1,e4)*vev*kl + 1d0/&
735  & 2d0*za(p5,p2)*zb(p2,p1)*zb(p2,e4)*vev*kl - 1d0/2d0/(za(k4,e4)&
736  & )*za(p5,k4)*zb(p1,p2)*mt**2*vev*kr
737 
738 ! -- include propagators
739  ampt = ampt / (s125-mt**2+ci*m_top*ga_top)/(s15-mw**2+ci*m_w*ga_w)
740  ampw = ampw / (s24-mw**2+ci*m_w*ga_w)/(s15-mw**2+ci*m_w*ga_w)
741 
742  amp(1)=(ampw(1)+ampt(1))*mdecay(1)
743  amp(2)=(ampw(2)+ampt(2))*mdecay(2)

◆ udbar_htbbaramp()

subroutine modthiggs::udbar_htbbaramp ( integer  p1,
integer  p2,
integer  e3,
integer  k3,
integer  k4,
integer  e4,
integer  p5,
complex(8), dimension(:,:)  za,
complex(8), dimension(:,:)  zb,
real(8), dimension(:,:)  s,
complex(8), dimension(1:2)  mdecay,
complex(8), dimension(2)  amp 
)
private

Definition at line 799 of file mod_THiggs.F90.

799 ! amplitude for production u(p1)+dbar(p2)->H(p3)+t(p4)+bbar(p5)
800 ! allowing for scalar & pseudoscalar couplings of Higgs to top
801  implicit none
802  integer :: p1,p2,p3,e3,k3,e4,p5,k4
803  complex(8) :: za(:,:),zb(:,:),mdecay(1:2)
804  real(8) :: s(:,:)
805  complex(8) :: amp(2),ampw(2),ampt(2),KL,KR
806  real(8) :: s12,s34,s45,mt,mw
807 
808  s45=s(k4,p5)+s(e4,p5)+s(e4,k4)
809  s34=s(p1,p2)+s(p1,p5)+s(p2,p5)
810  s12=s(p1,p2)
811  mw=m_w
812  mt=m_top
813 
814 ! there is a factor of -2 relative to ttbH
815  kl=-mt/vev*(kappa-(0d0,1d0)*kappa_tilde)
816  kr=-mt/vev*(kappa+(0d0,1d0)*kappa_tilde)
817 
818 
819  ampw(1) = 1/( - mw**2 + s45)/( - mw**2 + s12)*za(p2,e4)*zb(p1,&
820  & p5)*mw**2 + 1d0/2d0/( - mw**2 + s45)/( - mw**2 + s12)/(zb(k4,e4)&
821  & )*za(p2,e3)*zb(p5,k4)*zb(e3,p1)*mt**2 + 1d0/2d0/( - mw**2 + s45)&
822  & /( - mw**2 + s12)/(zb(k4,e4))*za(p2,k3)*zb(p5,k4)*zb(k3,p1)*&
823  & mt**2
824 
825  ampw(2) = 1d0/2d0/( - mw**2 + s45)/( - mw**2 + s12)*za(p2,e3)*&
826  & zb(p5,e4)*zb(e3,p1)*mt + 1d0/2d0/( - mw**2 + s45)/( - mw**2 + &
827  & s12)*za(p2,k3)*zb(p5,e4)*zb(k3,p1)*mt + 1/( - mw**2 + s45)/( - &
828  & mw**2 + s12)/(za(k4,e4))*za(p2,k4)*zb(p1,p5)*mw**2*mt
829 
830  ampt(1) = - 1d0/2d0/( - mt**2 + s34)/( - mw**2 + s12)*za(p2,e4&
831  & )*zb(p1,p5)*mt*vev*kr - 1d0/2d0/( - mt**2 + s34)/( - mw**2 + s12&
832  & )/(zb(k4,e4))*za(p2,p1)*zb(p1,p5)*zb(p1,k4)*mt*vev*kl - 1d0/2d0&
833  & /( - mt**2 + s34)/( - mw**2 + s12)/(zb(k4,e4))*za(p2,p5)*zb(p1,&
834  & p5)*zb(p5,k4)*mt*vev*kl
835 
836  ampt(2) = - 1d0/2d0/( - mt**2 + s34)/( - mw**2 + s12)*za(p2,p1&
837  & )*zb(p1,p5)*zb(p1,e4)*vev*kl - 1d0/2d0/( - mt**2 + s34)/( - &
838  & mw**2 + s12)*za(p2,p5)*zb(p1,p5)*zb(p5,e4)*vev*kl - 1d0/2d0/( - &
839  & mt**2 + s34)/( - mw**2 + s12)/(za(k4,e4))*za(p2,k4)*zb(p1,p5)*&
840  & mt**2*vev*kr
841 
842  amp(1)=(ampw(1)*(ghz1/2d0) +ampt(1))*mdecay(1)
843  amp(2)=(ampw(2)*(ghz1/2d0) +ampt(2))*mdecay(2)
844 
modtopdecay::topdecay
subroutine, public topdecay(Flavor, Mom, Spinor, TopHel)
Definition: mod_TopDecay.F90:15
modtopdecay::wdecay
subroutine, public wdecay(Charge, Mom, WCurr)
Definition: mod_TopDecay.F90:106
modparameters::spinoru
subroutine spinoru(p, za, zb, s)
Definition: mod_Parameters.F90:3331
modtopdecay
Definition: mod_TopDecay.F90:1
modtopdecay::vspi_dirac
subroutine, public vspi_dirac(p, m, i, f)
Definition: mod_TopDecay.F90:374
modparameters::spinavg
real(8), parameter, public spinavg
Definition: mod_Parameters.F90:91
modparameters
Definition: mod_Parameters.F90:1
modmisc
Definition: mod_Misc.F90:1
modmisc::convert_to_mcfm
subroutine convert_to_mcfm(p, pout)
Definition: mod_Misc.F90:1281
modtopdecay::ubarspi_dirac
subroutine, public ubarspi_dirac(p, m, i, f)
Definition: mod_TopDecay.F90:331
modparameters::quarkcolavg
real(8), parameter, public quarkcolavg
Definition: mod_Parameters.F90:91