c *** This is MSSM particle decay program Generated by FDC *** c * iflag=0 --- no print output * c * iflag=1 --- print decay width to output in fdc notation * c * iflag=2 --- print branch ratio to output in fdc notation* c * iflag=11-- print decay width to output in isajet notation* c * iflag=12-- print branch ratio to output in isajet notation c * br0 --- Only the decay processes with * c * branch ration > br0 will be print out * c ************************************************************ SUBROUTINE decay(iflag,br0) IMPLICIT real*8(A-H,O-Z) IMPLICIT integer (I-N) include 'inclcon.f' real*8 width,br,br0 character*20 pname common /widnn / width(50,60),br(50,60) common /wpname / pname(50,60) h2a_width=decay_f1(iflag,br0) xx1_width=decay_f2(iflag,br0) h1_width=decay_f3(iflag,br0) h2_width=decay_f4(iflag,br0) sh22_width=decay_f5(iflag,br0) sh11_width=decay_f6(iflag,br0) sz_width=decay_f7(iflag,br0) sp_width=decay_f8(iflag,br0) xk1_width=decay_f9(iflag,br0) sw_width=decay_f10(iflag,br0) sgs_width=decay_f11(iflag,br0) sqbr_width=decay_f12(iflag,br0) sqbl_width=decay_f13(iflag,br0) sqtr_width=decay_f14(iflag,br0) sqtl_width=decay_f15(iflag,br0) sqcr_width=decay_f16(iflag,br0) squr_width=decay_f17(iflag,br0) sqsr_width=decay_f18(iflag,br0) sqdr_width=decay_f19(iflag,br0) sqsl_width=decay_f20(iflag,br0) sqcl_width=decay_f21(iflag,br0) sqdl_width=decay_f22(iflag,br0) squl_width=decay_f23(iflag,br0) staur_width=decay_f24(iflag,br0) staul_width=decay_f25(iflag,br0) smur_width=decay_f26(iflag,br0) ser_width=decay_f27(iflag,br0) snut_width=decay_f28(iflag,br0) smul_width=decay_f29(iflag,br0) snumu_width=decay_f30(iflag,br0) sel_width=decay_f31(iflag,br0) snue_width=decay_f32(iflag,br0) return end function pa_width(pa,nf,n,iflag,br0) real*8 width,br,br0,pa_width integer nf,n,iflag,nflag character*20 pname character*8 pa common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pa_width=0.d0 do i=1,n pa_width=pa_width+width(nf,i) enddo if(iflag.eq.2) then write(6,23) pa elseif(iflag.eq.1) then write(6,22) pa,pa_width endif nflag=mod(iflag,10) do i=1,n br(nf,i)=width(nf,i)/pa_width if(nflag.eq.2.and.br(nf,i).gt.br0) then write(6,20) pname(nf,i),br(nf,i) elseif(nflag.eq.1.and.br(nf,i).gt.br0) then write(6,21) pname(nf,i),width(nf,i) endif enddo 20 format(2x,'br(',a20,')=',f10.4,'%') 21 format(2x,'decay_width(',a20,')=',f10.4,'gev') 22 format(2x,'width(',a8,')=',f10.4,'gev') 23 format(2x,' *** ',a8,'branch ration ***') return end function decay_f1(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=1 pa="h2a" c Start decay width for HA0->TAU- + TAU+ if(fm6.ge.(fm20+fm20)) then c0=(dsin(beta1)*fm20*g)/(2*dcos(beta1)*fm45) p2=0.5d0*dsqrt(fm6n2-4.d0*fm20n2) a=fm6**2/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm6**2*pi) pname(nf,n)="ha0->tau- + tau+" endif c Start decay width for HA0->TP + TB if(fm6.ge.(fm34+fm34)) then c0=(dcos(beta1)*fm34*g)/(2*dsin(beta1)*fm45) p2=0.5d0*dsqrt(fm6n2-4.d0*fm34n2) a=fm6**2/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(2*fm6**2*pi) pname(nf,n)="ha0->tp + tb" endif c Start decay width for HA0->BT + BB if(fm6.ge.(fm35+fm35)) then c0=(dsin(beta1)*fm35*g)/(2*dcos(beta1)*fm45) p2=0.5d0*dsqrt(fm6n2-4.d0*fm35n2) a=fm6**2/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(2*fm6**2*pi) pname(nf,n)="ha0->bt + bb" endif c Start decay width for HA0->HL0 + Z0 if(fm6.ge.(fm8+fm45)) then c0=(-dcos(beta1-v2c)*g)/2 p2=plamda(fm6n2,fm8n2,fm45n2) a=-(2*(fm6**2+fm8**2)-fm45**2-(fm6**4-2*fm6**2*fm8**2+fm8**4)* . dfm45n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm6**2*pi) pname(nf,n)="ha0->hl0 + z0" endif c Start decay width for HA0->HH0 + Z0 if(fm6.ge.(fm2+fm45)) then c0=(dsin(beta1-v2c)*g)/2 p2=plamda(fm6n2,fm2n2,fm45n2) a=fm45**2-2*fm6**2-2*fm2**2+(fm2**4-2*fm2**2*fm6**2+fm6**4)* . dfm45n2 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm6**2*pi) pname(nf,n)="ha0->hh0 + z0" endif c Start decay width for HA0->H- + W+ if(fm6.ge.(fm3+fm48)) then c0=(-dcos(theta)*g)/2 p2=plamda(fm6n2,fm3n2,fm48n2) a=fm48**2-2*fm6**2-2*fm3**2+(fm3**4-2*fm3**2*fm6**2+fm6**4)* . dfm48n2 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm6**2*pi) pname(nf,n)="ha0->h- + w+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="ha0->h+ + w-" endif c Start decay width for HA0->TAU1- + TAU2+ if(fm6.ge.(fm22+fm25)) then c0=(-(dsqrt(2.d0)*cm1*fm20-2*dsin(beta1)*fm45*scm4)*g)/(2*dsqrt . (2.d0)*fm45) p2=plamda(fm6n2,fm22n2,fm25n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm6**2*pi) pname(nf,n)="ha0->tau1- + tau2+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="ha0->tau1+ + tau2-" endif c Start decay width for HA0->TPSS1 + TBSS2 if(fm6.ge.(fm36+fm43)) then c0=((2*dcos(beta1)*fm45*scm10-dsqrt(2.d0)*cm1*fm34)*g)/(2*dsqrt . (2.d0)*fm45) p2=plamda(fm6n2,fm36n2,fm43n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm6**2*pi) pname(nf,n)="ha0->tpss1 + tbss2" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="ha0->tbss1 + tpss2" endif c Start decay width for HA0->BTSS1 + BBSS2 if(fm6.ge.(fm37+fm40)) then c0=((dsqrt(2.d0)*cm1*fm35-2*dsin(beta1)*fm45*scm7)*g)/(2*dsqrt( . 2.d0)*fm45) p2=plamda(fm6n2,fm37n2,fm40n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm6**2*pi) pname(nf,n)="ha0->btss1 + bbss2" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="ha0->bbss1 + btss2" endif c Start decay width for HA0->W1SS- + W1SS+ if(fm6.ge.(fm49+fm49)) then c0=(dsqrt(2.d0)*(dcos(beta1)*dcos(v6c)*dsin(v7c)+dcos(v7c)*dsin . (beta1)*dsin(v6c))*dcos(theta)*fn1(1)*g)/2 p2=0.5d0*dsqrt(fm6n2-4.d0*fm49n2) a=fm6**2/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm6**2*pi) pname(nf,n)="ha0->w1ss- + w1ss+" endif c Start decay width for HA0->W1SS- + W2SS+ if(fm6.ge.(fm49+fm52)) then c0=-g zs7=dsin(beta1) zs6=dsin(v7c) zs5=dsin(v6c) zs4=dcos(v7c) zs3=dcos(v6c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(dsqrt(2.d0)*((zs1*zs3*zs4-zs5*zs6*zs7)*fn1(2)-(zs1*zs5*zs6 . -zs3*zs4*zs7)*fn1(1))*zs2)/4 cs1=(dsqrt(2.d0)*((zs1*zs3*zs4-zs5*zs6*zs7)*fn1(2)+(zs1*zs5*zs6 . -zs3*zs4*zs7)*fn1(1))*zs2)/4 p2=plamda(fm6n2,fm49n2,fm52n2) a=(-(((fm49+2*fm52)*fm49+fm52**2-fm6**2)*cs1**2+((fm49-2*fm52)* . fm49+fm52**2-fm6**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm6**2*pi) pname(nf,n)="ha0->w1ss- + w2ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="ha0->w1ss+ + w2ss-" endif c Start decay width for HA0->W2SS- + W2SS+ if(fm6.ge.(fm52+fm52)) then c0=(-dsqrt(2.d0)*(dcos(beta1)*dcos(v7c)*dsin(v6c)+dcos(v6c)* . dsin(beta1)*dsin(v7c))*dcos(theta)*fn1(2)*g)/2 p2=0.5d0*dsqrt(fm6n2-4.d0*fm52n2) a=fm6**2/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm6**2*pi) pname(nf,n)="ha0->w2ss- + w2ss+" endif c Start decay width for HA0->Z1SS + Z1SS if(fm6.ge.(fm46+fm46)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=-(2*fr2(1)-1)*(v4c2(4,1)*zs1-v4c2(3,1)*zs4)*(v4c2(2,1)*zs2- . v4c2(1,1)*zs3) cs1=2*(v4c2(4,1)*zs1-v4c2(3,1)*zs4)*(v4c2(2,1)*zs2-v4c2(1,1)* . zs3)*fi2(1)*fr2(1) p2=0.5d0*dsqrt(fm6n2-4.d0*fm46n2) a=(-((4*fm46**2-fm6**2)*cs1**2-cs2**2*fm6**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm6**2*pi) pname(nf,n)="ha0->z1ss + z1ss" endif c Start decay width for HA0->Z1SS + Z2SS if(fm6.ge.(fm46+fm47)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-(((v4c2(2,2)*zs2-v4c2(1,2)*zs3)*v4c2(3,1)+(v4c2(2,1)*zs2- . v4c2(1,1)*zs3)*v4c2(3,2))*zs4-(v4c2(2,2)*zs2-v4c2(1,2)*zs3)* . v4c2(4,1)*zs1-(v4c2(2,1)*zs2-v4c2(1,1)*zs3)*v4c2(4,2)*zs1)*( . fi2(2)*fi2(1)-fr2(2)*fr2(1)))/2 cs1=(-(((v4c2(2,2)*zs2-v4c2(1,2)*zs3)*v4c2(3,1)+(v4c2(2,1)*zs2- . v4c2(1,1)*zs3)*v4c2(3,2))*zs4-(v4c2(2,2)*zs2-v4c2(1,2)*zs3)* . v4c2(4,1)*zs1-(v4c2(2,1)*zs2-v4c2(1,1)*zs3)*v4c2(4,2)*zs1)*( . fi2(2)*fr2(1)+fi2(1)*fr2(2)))/2 p2=plamda(fm6n2,fm46n2,fm47n2) a=(-(((fm46+2*fm47)*fm46+fm47**2-fm6**2)*cs1**2+((fm46-2*fm47)* . fm46+fm47**2-fm6**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm6**2*pi) pname(nf,n)="ha0->z1ss + z2ss" endif c Start decay width for HA0->Z1SS + Z3SS if(fm6.ge.(fm46+fm4)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-(((v4c2(2,3)*zs2-v4c2(1,3)*zs3)*v4c2(3,1)+(v4c2(2,1)*zs2- . v4c2(1,1)*zs3)*v4c2(3,3))*zs4-(v4c2(2,3)*zs2-v4c2(1,3)*zs3)* . v4c2(4,1)*zs1-(v4c2(2,1)*zs2-v4c2(1,1)*zs3)*v4c2(4,3)*zs1)*( . fi2(3)*fi2(1)-fr2(3)*fr2(1)))/2 cs1=(-(((v4c2(2,3)*zs2-v4c2(1,3)*zs3)*v4c2(3,1)+(v4c2(2,1)*zs2- . v4c2(1,1)*zs3)*v4c2(3,3))*zs4-(v4c2(2,3)*zs2-v4c2(1,3)*zs3)* . v4c2(4,1)*zs1-(v4c2(2,1)*zs2-v4c2(1,1)*zs3)*v4c2(4,3)*zs1)*( . fi2(3)*fr2(1)+fi2(1)*fr2(3)))/2 p2=plamda(fm6n2,fm46n2,fm4n2) a=(-(((fm4+2*fm46)*fm4+fm46**2-fm6**2)*cs1**2+((fm4-2*fm46)*fm4 . +fm46**2-fm6**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm6**2*pi) pname(nf,n)="ha0->z1ss + z3ss" endif c Start decay width for HA0->Z1SS + Z4SS if(fm6.ge.(fm46+fm10)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-(((v4c2(2,4)*zs2-v4c2(1,4)*zs3)*v4c2(3,1)+(v4c2(2,1)*zs2- . v4c2(1,1)*zs3)*v4c2(3,4))*zs4-(v4c2(2,4)*zs2-v4c2(1,4)*zs3)* . v4c2(4,1)*zs1-(v4c2(2,1)*zs2-v4c2(1,1)*zs3)*v4c2(4,4)*zs1)*( . fi2(4)*fi2(1)-fr2(4)*fr2(1)))/2 cs1=(-(((v4c2(2,4)*zs2-v4c2(1,4)*zs3)*v4c2(3,1)+(v4c2(2,1)*zs2- . v4c2(1,1)*zs3)*v4c2(3,4))*zs4-(v4c2(2,4)*zs2-v4c2(1,4)*zs3)* . v4c2(4,1)*zs1-(v4c2(2,1)*zs2-v4c2(1,1)*zs3)*v4c2(4,4)*zs1)*( . fi2(4)*fr2(1)+fi2(1)*fr2(4)))/2 p2=plamda(fm6n2,fm46n2,fm10n2) a=(-(((fm10+2*fm46)*fm10+fm46**2-fm6**2)*cs1**2+((fm10-2*fm46)* . fm10+fm46**2-fm6**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm6**2*pi) pname(nf,n)="ha0->z1ss + z4ss" endif c Start decay width for HA0->Z2SS + Z2SS if(fm6.ge.(fm47+fm47)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=-(2*fr2(2)-1)*(v4c2(4,2)*zs1-v4c2(3,2)*zs4)*(v4c2(2,2)*zs2- . v4c2(1,2)*zs3) cs1=2*(v4c2(4,2)*zs1-v4c2(3,2)*zs4)*(v4c2(2,2)*zs2-v4c2(1,2)* . zs3)*fi2(2)*fr2(2) p2=0.5d0*dsqrt(fm6n2-4.d0*fm47n2) a=(-((4*fm47**2-fm6**2)*cs1**2-cs2**2*fm6**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm6**2*pi) pname(nf,n)="ha0->z2ss + z2ss" endif c Start decay width for HA0->Z2SS + Z3SS if(fm6.ge.(fm47+fm4)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-(((v4c2(2,3)*zs2-v4c2(1,3)*zs3)*v4c2(3,2)+(v4c2(2,2)*zs2- . v4c2(1,2)*zs3)*v4c2(3,3))*zs4-(v4c2(2,3)*zs2-v4c2(1,3)*zs3)* . v4c2(4,2)*zs1-(v4c2(2,2)*zs2-v4c2(1,2)*zs3)*v4c2(4,3)*zs1)*( . fi2(3)*fi2(2)-fr2(3)*fr2(2)))/2 cs1=(-(((v4c2(2,3)*zs2-v4c2(1,3)*zs3)*v4c2(3,2)+(v4c2(2,2)*zs2- . v4c2(1,2)*zs3)*v4c2(3,3))*zs4-(v4c2(2,3)*zs2-v4c2(1,3)*zs3)* . v4c2(4,2)*zs1-(v4c2(2,2)*zs2-v4c2(1,2)*zs3)*v4c2(4,3)*zs1)*( . fi2(3)*fr2(2)+fi2(2)*fr2(3)))/2 p2=plamda(fm6n2,fm47n2,fm4n2) a=(-(((fm4+2*fm47)*fm4+fm47**2-fm6**2)*cs1**2+((fm4-2*fm47)*fm4 . +fm47**2-fm6**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm6**2*pi) pname(nf,n)="ha0->z2ss + z3ss" endif c Start decay width for HA0->Z2SS + Z4SS if(fm6.ge.(fm47+fm10)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-(((v4c2(2,4)*zs2-v4c2(1,4)*zs3)*v4c2(3,2)+(v4c2(2,2)*zs2- . v4c2(1,2)*zs3)*v4c2(3,4))*zs4-(v4c2(2,4)*zs2-v4c2(1,4)*zs3)* . v4c2(4,2)*zs1-(v4c2(2,2)*zs2-v4c2(1,2)*zs3)*v4c2(4,4)*zs1)*( . fi2(4)*fi2(2)-fr2(4)*fr2(2)))/2 cs1=(-(((v4c2(2,4)*zs2-v4c2(1,4)*zs3)*v4c2(3,2)+(v4c2(2,2)*zs2- . v4c2(1,2)*zs3)*v4c2(3,4))*zs4-(v4c2(2,4)*zs2-v4c2(1,4)*zs3)* . v4c2(4,2)*zs1-(v4c2(2,2)*zs2-v4c2(1,2)*zs3)*v4c2(4,4)*zs1)*( . fi2(4)*fr2(2)+fi2(2)*fr2(4)))/2 p2=plamda(fm6n2,fm47n2,fm10n2) a=(-(((fm10+2*fm47)*fm10+fm47**2-fm6**2)*cs1**2+((fm10-2*fm47)* . fm10+fm47**2-fm6**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm6**2*pi) pname(nf,n)="ha0->z2ss + z4ss" endif c Start decay width for HA0->Z3SS + Z3SS if(fm6.ge.(fm4+fm4)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=-(2*fr2(3)-1)*(v4c2(4,3)*zs1-v4c2(3,3)*zs4)*(v4c2(2,3)*zs2- . v4c2(1,3)*zs3) cs1=2*(v4c2(4,3)*zs1-v4c2(3,3)*zs4)*(v4c2(2,3)*zs2-v4c2(1,3)* . zs3)*fi2(3)*fr2(3) p2=0.5d0*dsqrt(fm6n2-4.d0*fm4n2) a=(-((4*fm4**2-fm6**2)*cs1**2-cs2**2*fm6**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm6**2*pi) pname(nf,n)="ha0->z3ss + z3ss" endif c Start decay width for HA0->Z3SS + Z4SS if(fm6.ge.(fm4+fm10)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-(((v4c2(2,4)*zs2-v4c2(1,4)*zs3)*v4c2(3,3)+(v4c2(2,3)*zs2- . v4c2(1,3)*zs3)*v4c2(3,4))*zs4-(v4c2(2,4)*zs2-v4c2(1,4)*zs3)* . v4c2(4,3)*zs1-(v4c2(2,3)*zs2-v4c2(1,3)*zs3)*v4c2(4,4)*zs1)*( . fi2(4)*fi2(3)-fr2(4)*fr2(3)))/2 cs1=(-(((v4c2(2,4)*zs2-v4c2(1,4)*zs3)*v4c2(3,3)+(v4c2(2,3)*zs2- . v4c2(1,3)*zs3)*v4c2(3,4))*zs4-(v4c2(2,4)*zs2-v4c2(1,4)*zs3)* . v4c2(4,3)*zs1-(v4c2(2,3)*zs2-v4c2(1,3)*zs3)*v4c2(4,4)*zs1)*( . fi2(4)*fr2(3)+fi2(3)*fr2(4)))/2 p2=plamda(fm6n2,fm4n2,fm10n2) a=(-(((fm10+2*fm4)*fm10+fm4**2-fm6**2)*cs1**2+((fm10-2*fm4)* . fm10+fm4**2-fm6**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm6**2*pi) pname(nf,n)="ha0->z3ss + z4ss" endif c Start decay width for HA0->Z4SS + Z4SS if(fm6.ge.(fm10+fm10)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=-(2*fr2(4)-1)*(v4c2(4,4)*zs1-v4c2(3,4)*zs4)*(v4c2(2,4)*zs2- . v4c2(1,4)*zs3) cs1=2*(v4c2(4,4)*zs1-v4c2(3,4)*zs4)*(v4c2(2,4)*zs2-v4c2(1,4)* . zs3)*fi2(4)*fr2(4) p2=0.5d0*dsqrt(fm6n2-4.d0*fm10n2) a=(-((4*fm10**2-fm6**2)*cs1**2-cs2**2*fm6**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm6**2*pi) pname(nf,n)="ha0->z4ss + z4ss" endif decay_f1=pa_width(pa,nf,n,iflag,br0) return end function decay_f2(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=2 pa="xx1" c Start decay width for H-->TAU- + ANUT if(fm3.ge.(fm20+0)) then c0=-g zs2=dcos(beta1) zs1=dsin(beta1) cs2=(-dsqrt(2.d0)*fm20*zs1)/(4*fm45*zs2) cs1=(dsqrt(2.d0)*fm20*zs1)/(4*fm45*zs2) p2=(-(fm20n2-fm3n2))/(2.d0*dsqrt(fm3n2)) a=(-(cs1**2+cs2**2)*(fm20**2-fm3**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm3**2*pi) pname(nf,n)="h-->tau- + anut" endif c Start decay width for H-->BT + TB if(fm3.ge.(fm35+fm34)) then c0=-g zs2=dsin(beta1) zs1=dcos(beta1) cs2=(dsqrt(2.d0)*(fm34*zs1**2-fm35*zs2**2))/(4*fm45*zs1*zs2) cs1=(dsqrt(2.d0)*(fm34*zs1**2+fm35*zs2**2))/(4*fm45*zs1*zs2) p2=plamda(fm3n2,fm35n2,fm34n2) a=(-((fm34**2+2*fm34*fm35+fm35**2-fm3**2)*cs1**2+(fm34**2-2* . fm34*fm35+fm35**2-fm3**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(2*fm3**2*pi) pname(nf,n)="h-->bt + tb" endif c Start decay width for H-->HL0 + W- if(fm3.ge.(fm8+fm48)) then c0=(dcos(beta1-v2c)*dcos(theta)*g)/2 p2=plamda(fm3n2,fm8n2,fm48n2) a=fm48**2-2*fm8**2-2*fm3**2+(fm3**4-2*fm3**2*fm8**2+fm8**4)* . dfm48n2 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm3**2*pi) pname(nf,n)="h-->hl0 + w-" endif c Start decay width for H-->HH0 + W- if(fm3.ge.(fm2+fm48)) then c0=(dcos(theta)*dsin(beta1-v2c)*g)/2 p2=plamda(fm3n2,fm2n2,fm48n2) a=-(2*fm3**2-fm48**2+2*fm2**2-(fm2**4-2*fm2**2*fm3**2+fm3**4)* . dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm3**2*pi) pname(nf,n)="h-->hh0 + w-" endif c Start decay width for H-->HA0 + W- if(fm3.ge.(fm6+fm48)) then c0=(-dcos(theta)*g)/2 p2=plamda(fm3n2,fm6n2,fm48n2) a=fm48**2-2*fm6**2-2*fm3**2+(fm3**4-2*fm3**2*fm6**2+fm6**4)* . dfm48n2 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm3**2*pi) pname(nf,n)="h-->ha0 + w-" endif c Start decay width for H-->EL- + ANUEL if(fm3.ge.(fm14+fm13)) then c0=(dcos(theta)**2*dsin(2.d0*beta1)*fm45*g)/2 p2=plamda(fm3n2,fm14n2,fm13n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm3**2*pi) pname(nf,n)="h-->el- + anuel" endif c Start decay width for H-->MUL- + ANUML if(fm3.ge.(fm18+fm17)) then c0=(dcos(theta)**2*dsin(2.d0*beta1)*fm45*g)/2 p2=plamda(fm3n2,fm18n2,fm17n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm3**2*pi) pname(nf,n)="h-->mul- + anuml" endif c Start decay width for H-->TAU1- + ANUTL if(fm3.ge.(fm22+fm21)) then c0=((dsqrt(2.d0)*(dcos(theta)**2*dcos(v1c)*dsin(2.d0*beta1)* . fm45**2+dsin(v1c)*cm1*fm20)*dcos(beta1)-(dsqrt(2.d0)*dcos(v1c) . *dsin(beta1)*fm20**2+dsin(2.d0*beta1)*dsin(v1c)*fm45*scm4))*g) . /(2*dsqrt(2.d0)*dcos(beta1)*fm45) p2=plamda(fm3n2,fm22n2,fm21n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm3**2*pi) pname(nf,n)="h-->tau1- + anutl" endif c Start decay width for H-->TAU2- + ANUTL if(fm3.ge.(fm25+fm21)) then c0=((dsqrt(2.d0)*(dcos(theta)**2*dsin(2.d0*beta1)*dsin(v1c)* . fm45**2-dcos(v1c)*cm1*fm20)*dcos(beta1)+dcos(v1c)*dsin(2.d0* . beta1)*fm45*scm4-dsqrt(2.d0)*dsin(beta1)*dsin(v1c)*fm20**2)*g) . /(2*dsqrt(2.d0)*dcos(beta1)*fm45) p2=plamda(fm3n2,fm25n2,fm21n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm3**2*pi) pname(nf,n)="h-->tau2- + anutl" endif c Start decay width for H-->DNSSL + UBSSL if(fm3.ge.(fm29+fm28)) then c0=(-dsqrt(2.d0)*dcos(theta)**2*dsin(2.d0*beta1)*fm45*g)/2 p2=plamda(fm3n2,fm29n2,fm28n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm3**2*pi) pname(nf,n)="h-->dnssl + ubssl" endif c Start decay width for H-->STSSL + CBSSL if(fm3.ge.(fm33+fm32)) then c0=(-dsqrt(2.d0)*dcos(theta)**2*dsin(2.d0*beta1)*fm45*g)/2 p2=plamda(fm3n2,fm33n2,fm32n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm3**2*pi) pname(nf,n)="h-->stssl + cbssl" endif c Start decay width for H-->BTSS1 + TBSS1 if(fm3.ge.(fm37+fm36)) then c0=((((dsqrt(2.d0)*cm1*fm35-2*dsin(beta1)*fm45*scm7)*dcos(v4c)* . dsin(2.d0*beta1)+2*dsqrt(2.d0)*dsin(v4c)*fm34*fm35)*dsin(v3c)+ . dsqrt(2.d0)*(2*dcos(v4c)*dsin(beta1)**2*fm35**2-dsin(2.d0* . beta1)*dsin(v4c)*cm1*fm34)*dcos(v3c)-dsqrt(2.d0)*dcos(theta)** . 2*dcos(v3c)*dcos(v4c)*dsin(2.d0*beta1)**2*fm45**2+2*(dsqrt( . 2.d0)*dcos(beta1)*dcos(v4c)*fm34**2+dsin(2.d0*beta1)*dsin(v4c) . *fm45*scm10)*dcos(beta1)*dcos(v3c))*g)/(2*dsin(2.d0*beta1)* . fm45) p2=plamda(fm3n2,fm37n2,fm36n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm3**2*pi) pname(nf,n)="h-->btss1 + tbss1" endif c Start decay width for H-->BTSS1 + TBSS2 if(fm3.ge.(fm37+fm43)) then c0=((((dsqrt(2.d0)*cm1*fm35-2*dsin(beta1)*fm45*scm7)*dsin(2.d0* . beta1)*dsin(v4c)-2*dsqrt(2.d0)*dcos(v4c)*fm34*fm35)*dsin(v3c)+ . dsqrt(2.d0)*(dcos(v4c)*dsin(2.d0*beta1)*cm1*fm34+2*dsin(beta1) . **2*dsin(v4c)*fm35**2)*dcos(v3c)-dsqrt(2.d0)*dcos(theta)**2* . dcos(v3c)*dsin(2.d0*beta1)**2*dsin(v4c)*fm45**2+2*(dsqrt(2.d0) . *dcos(beta1)*dsin(v4c)*fm34**2-dcos(v4c)*dsin(2.d0*beta1)*fm45 . *scm10)*dcos(beta1)*dcos(v3c))*g)/(2*dsin(2.d0*beta1)*fm45) p2=plamda(fm3n2,fm37n2,fm43n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm3**2*pi) pname(nf,n)="h-->btss1 + tbss2" endif c Start decay width for H-->BTSS2 + TBSS1 if(fm3.ge.(fm40+fm36)) then c0=(-(((dsqrt(2.d0)*cm1*fm35-2*dsin(beta1)*fm45*scm7)*dcos(v4c) . *dsin(2.d0*beta1)+2*dsqrt(2.d0)*dsin(v4c)*fm34*fm35)*dcos(v3c) . -dsqrt(2.d0)*(2*dcos(v4c)*dsin(beta1)**2*fm35**2-dsin(2.d0* . beta1)*dsin(v4c)*cm1*fm34)*dsin(v3c)+dsqrt(2.d0)*dcos(theta)** . 2*dcos(v4c)*dsin(2.d0*beta1)**2*dsin(v3c)*fm45**2-2*(dsqrt( . 2.d0)*dcos(beta1)*dcos(v4c)*fm34**2+dsin(2.d0*beta1)*dsin(v4c) . *fm45*scm10)*dcos(beta1)*dsin(v3c))*g)/(2*dsin(2.d0*beta1)* . fm45) p2=plamda(fm3n2,fm40n2,fm36n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm3**2*pi) pname(nf,n)="h-->btss2 + tbss1" endif c Start decay width for H-->BTSS2 + TBSS2 if(fm3.ge.(fm40+fm43)) then c0=(-(((dsqrt(2.d0)*cm1*fm35-2*dsin(beta1)*fm45*scm7)*dsin(2.d0 . *beta1)*dsin(v4c)-2*dsqrt(2.d0)*dcos(v4c)*fm34*fm35)*dcos(v3c) . -dsqrt(2.d0)*(dcos(v4c)*dsin(2.d0*beta1)*cm1*fm34+2*dsin(beta1 . )**2*dsin(v4c)*fm35**2)*dsin(v3c)+dsqrt(2.d0)*dcos(theta)**2* . dsin(2.d0*beta1)**2*dsin(v3c)*dsin(v4c)*fm45**2-2*(dsqrt(2.d0) . *dcos(beta1)*dsin(v4c)*fm34**2-dcos(v4c)*dsin(2.d0*beta1)*fm45 . *scm10)*dcos(beta1)*dsin(v3c))*g)/(2*dsin(2.d0*beta1)*fm45) p2=plamda(fm3n2,fm40n2,fm43n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm3**2*pi) pname(nf,n)="h-->btss2 + tbss2" endif c Start decay width for H-->W1SS- + Z1SS if(fm3.ge.(fm49+fm46)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(1)*v4c2(4,1)*zs1*zs3+v4c2(3,1)*zs6*zs7)*fi2(1)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fi2(1))/4 cs3=(2*(fn1(1)*v4c2(4,1)*zs1*zs3-v4c2(3,1)*zs6*zs7)*fr2(1)*zs2- . dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,1)*zs2+v4c2(1,1)* . zs5)*fr2(1))/4 cs2=(2*(fn1(1)*v4c2(4,1)*zs1*zs3-v4c2(3,1)*zs6*zs7)*fi2(1)*zs2- . dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,1)*zs2+v4c2(1,1)* . zs5)*fi2(1))/4 cs1=(-2*(fn1(1)*v4c2(4,1)*zs1*zs3+v4c2(3,1)*zs6*zs7)*fr2(1)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fr2(1))/4 p2=plamda(fm3n2,fm49n2,fm46n2) a=(-((fm46**2+2*fm46*fm49+fm49**2-fm3**2)*(cs1**2+cs2**2)+(fm46 . **2-2*fm46*fm49+fm49**2-fm3**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm3**2*pi) pname(nf,n)="h-->w1ss- + z1ss" endif c Start decay width for H-->W1SS- + Z2SS if(fm3.ge.(fm49+fm47)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(1)*v4c2(4,2)*zs1*zs3+v4c2(3,2)*zs6*zs7)*fi2(2)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fi2(2))/4 cs3=(2*(fn1(1)*v4c2(4,2)*zs1*zs3-v4c2(3,2)*zs6*zs7)*fr2(2)*zs2- . dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,2)*zs2+v4c2(1,2)* . zs5)*fr2(2))/4 cs2=(2*(fn1(1)*v4c2(4,2)*zs1*zs3-v4c2(3,2)*zs6*zs7)*fi2(2)*zs2- . dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,2)*zs2+v4c2(1,2)* . zs5)*fi2(2))/4 cs1=(-2*(fn1(1)*v4c2(4,2)*zs1*zs3+v4c2(3,2)*zs6*zs7)*fr2(2)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fr2(2))/4 p2=plamda(fm3n2,fm49n2,fm47n2) a=(-((fm47**2+2*fm47*fm49+fm49**2-fm3**2)*(cs1**2+cs2**2)+(fm47 . **2-2*fm47*fm49+fm49**2-fm3**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm3**2*pi) pname(nf,n)="h-->w1ss- + z2ss" endif c Start decay width for H-->W1SS- + Z3SS if(fm3.ge.(fm49+fm4)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(1)*v4c2(4,3)*zs1*zs3+v4c2(3,3)*zs6*zs7)*fi2(3)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fi2(3))/4 cs3=(2*(fn1(1)*v4c2(4,3)*zs1*zs3-v4c2(3,3)*zs6*zs7)*fr2(3)*zs2- . dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,3)*zs2+v4c2(1,3)* . zs5)*fr2(3))/4 cs2=(2*(fn1(1)*v4c2(4,3)*zs1*zs3-v4c2(3,3)*zs6*zs7)*fi2(3)*zs2- . dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,3)*zs2+v4c2(1,3)* . zs5)*fi2(3))/4 cs1=(-2*(fn1(1)*v4c2(4,3)*zs1*zs3+v4c2(3,3)*zs6*zs7)*fr2(3)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fr2(3))/4 p2=plamda(fm3n2,fm49n2,fm4n2) a=(-((fm4**2+2*fm4*fm49+fm49**2-fm3**2)*(cs1**2+cs2**2)+(fm4**2 . -2*fm4*fm49+fm49**2-fm3**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm3**2*pi) pname(nf,n)="h-->w1ss- + z3ss" endif c Start decay width for H-->W1SS- + Z4SS if(fm3.ge.(fm49+fm10)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(1)*v4c2(4,4)*zs1*zs3+v4c2(3,4)*zs6*zs7)*fi2(4)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fi2(4))/4 cs3=(2*(fn1(1)*v4c2(4,4)*zs1*zs3-v4c2(3,4)*zs6*zs7)*fr2(4)*zs2- . dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,4)*zs2+v4c2(1,4)* . zs5)*fr2(4))/4 cs2=(2*(fn1(1)*v4c2(4,4)*zs1*zs3-v4c2(3,4)*zs6*zs7)*fi2(4)*zs2- . dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,4)*zs2+v4c2(1,4)* . zs5)*fi2(4))/4 cs1=(-2*(fn1(1)*v4c2(4,4)*zs1*zs3+v4c2(3,4)*zs6*zs7)*fr2(4)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fr2(4))/4 p2=plamda(fm3n2,fm49n2,fm10n2) a=(-(((fm10+2*fm49)*fm10-(fm3**2-fm49**2))*(cs1**2+cs2**2)+(( . fm10-2*fm49)*fm10-(fm3**2-fm49**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm3**2*pi) pname(nf,n)="h-->w1ss- + z4ss" endif c Start decay width for H-->W2SS- + Z1SS if(fm3.ge.(fm52+fm46)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(2)*v4c2(4,1)*zs1*zs4+v4c2(3,1)*zs7*zs8)*fi2(1)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fi2(1))/4 cs3=(2*(fn1(2)*v4c2(4,1)*zs1*zs4-v4c2(3,1)*zs7*zs8)*fr2(1)*zs2+ . dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,1)*zs2+v4c2(1,1)* . zs5)*fr2(1))/4 cs2=(2*(fn1(2)*v4c2(4,1)*zs1*zs4-v4c2(3,1)*zs7*zs8)*fi2(1)*zs2+ . dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,1)*zs2+v4c2(1,1)* . zs5)*fi2(1))/4 cs1=(-2*(fn1(2)*v4c2(4,1)*zs1*zs4+v4c2(3,1)*zs7*zs8)*fr2(1)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fr2(1))/4 p2=plamda(fm3n2,fm52n2,fm46n2) a=(-((fm46**2+2*fm46*fm52+fm52**2-fm3**2)*(cs1**2+cs2**2)+(fm46 . **2-2*fm46*fm52+fm52**2-fm3**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm3**2*pi) pname(nf,n)="h-->w2ss- + z1ss" endif c Start decay width for H-->W2SS- + Z2SS if(fm3.ge.(fm52+fm47)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(2)*v4c2(4,2)*zs1*zs4+v4c2(3,2)*zs7*zs8)*fi2(2)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fi2(2))/4 cs3=(2*(fn1(2)*v4c2(4,2)*zs1*zs4-v4c2(3,2)*zs7*zs8)*fr2(2)*zs2+ . dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,2)*zs2+v4c2(1,2)* . zs5)*fr2(2))/4 cs2=(2*(fn1(2)*v4c2(4,2)*zs1*zs4-v4c2(3,2)*zs7*zs8)*fi2(2)*zs2+ . dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,2)*zs2+v4c2(1,2)* . zs5)*fi2(2))/4 cs1=(-2*(fn1(2)*v4c2(4,2)*zs1*zs4+v4c2(3,2)*zs7*zs8)*fr2(2)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fr2(2))/4 p2=plamda(fm3n2,fm52n2,fm47n2) a=(-((fm47**2+2*fm47*fm52+fm52**2-fm3**2)*(cs1**2+cs2**2)+(fm47 . **2-2*fm47*fm52+fm52**2-fm3**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm3**2*pi) pname(nf,n)="h-->w2ss- + z2ss" endif c Start decay width for H-->W2SS- + Z3SS if(fm3.ge.(fm52+fm4)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(2)*v4c2(4,3)*zs1*zs4+v4c2(3,3)*zs7*zs8)*fi2(3)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fi2(3))/4 cs3=(2*(fn1(2)*v4c2(4,3)*zs1*zs4-v4c2(3,3)*zs7*zs8)*fr2(3)*zs2+ . dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,3)*zs2+v4c2(1,3)* . zs5)*fr2(3))/4 cs2=(2*(fn1(2)*v4c2(4,3)*zs1*zs4-v4c2(3,3)*zs7*zs8)*fi2(3)*zs2+ . dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,3)*zs2+v4c2(1,3)* . zs5)*fi2(3))/4 cs1=(-2*(fn1(2)*v4c2(4,3)*zs1*zs4+v4c2(3,3)*zs7*zs8)*fr2(3)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fr2(3))/4 p2=plamda(fm3n2,fm52n2,fm4n2) a=(-((fm4**2+2*fm4*fm52+fm52**2-fm3**2)*(cs1**2+cs2**2)+(fm4**2 . -2*fm4*fm52+fm52**2-fm3**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm3**2*pi) pname(nf,n)="h-->w2ss- + z3ss" endif c Start decay width for H-->W2SS- + Z4SS if(fm3.ge.(fm52+fm10)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(2)*v4c2(4,4)*zs1*zs4+v4c2(3,4)*zs7*zs8)*fi2(4)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fi2(4))/4 cs3=(2*(fn1(2)*v4c2(4,4)*zs1*zs4-v4c2(3,4)*zs7*zs8)*fr2(4)*zs2+ . dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,4)*zs2+v4c2(1,4)* . zs5)*fr2(4))/4 cs2=(2*(fn1(2)*v4c2(4,4)*zs1*zs4-v4c2(3,4)*zs7*zs8)*fi2(4)*zs2+ . dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,4)*zs2+v4c2(1,4)* . zs5)*fi2(4))/4 cs1=(-2*(fn1(2)*v4c2(4,4)*zs1*zs4+v4c2(3,4)*zs7*zs8)*fr2(4)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fr2(4))/4 p2=plamda(fm3n2,fm52n2,fm10n2) a=(-(((fm10+2*fm52)*fm10-(fm3**2-fm52**2))*(cs1**2+cs2**2)+(( . fm10-2*fm52)*fm10-(fm3**2-fm52**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm3**2*pi) pname(nf,n)="h-->w2ss- + z4ss" endif decay_f2=pa_width(pa,nf,n,iflag,br0) return end function decay_f3(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=3 pa="h1" c Start decay width for HH0->TAU- + TAU+ if(fm2.ge.(fm20+fm20)) then c0=(dcos(v2c)*fm20*g)/(2*dcos(beta1)*fm45) p2=0.5d0*dsqrt(fm2n2-4.d0*fm20n2) a=(fm2**2-4*fm20**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm2**2*pi) pname(nf,n)="hh0->tau- + tau+" endif c Start decay width for HH0->TP + TB if(fm2.ge.(fm34+fm34)) then c0=(dsin(v2c)*fm34*g)/(2*dsin(beta1)*fm45) p2=0.5d0*dsqrt(fm2n2-4.d0*fm34n2) a=(fm2**2-4*fm34**2)/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(2*fm2**2*pi) pname(nf,n)="hh0->tp + tb" endif c Start decay width for HH0->BT + BB if(fm2.ge.(fm35+fm35)) then c0=(dcos(v2c)*fm35*g)/(2*dcos(beta1)*fm45) p2=0.5d0*dsqrt(fm2n2-4.d0*fm35n2) a=(fm2**2-4*fm35**2)/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(2*fm2**2*pi) pname(nf,n)="hh0->bt + bb" endif c Start decay width for HH0->HL0 + HL0 if(fm2.ge.(fm8+fm8)) then c0=(-(dcos(beta1-v2c)-3*dcos(beta1+3.d0*v2c))*fm45*g)/4 p2=0.5d0*dsqrt(fm2n2-4.d0*fm8n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(16*fm2**2*pi) pname(nf,n)="hh0->hl0 + hl0" endif c Start decay width for HH0->H- + H+ if(fm2.ge.(fm3+fm3)) then c0=(-(dcos(2.d0*theta+v2c-beta1)+dcos(beta1-v2c)+dcos(2.d0* . theta-v2c+beta1)-dcos(3.d0*beta1+v2c))*fm45*g)/4 p2=0.5d0*dsqrt(fm2n2-4.d0*fm3n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm2**2*pi) pname(nf,n)="hh0->h- + h+" endif c Start decay width for HH0->HA0 + HA0 if(fm2.ge.(fm6+fm6)) then c0=((dcos(3.d0*beta1+v2c)+dcos(beta1-v2c))*fm45*g)/4 p2=0.5d0*dsqrt(fm2n2-4.d0*fm6n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(16*fm2**2*pi) pname(nf,n)="hh0->ha0 + ha0" endif c Start decay width for HH0->H- + W+ if(fm2.ge.(fm3+fm48)) then c0=(-dcos(theta)*dsin(beta1-v2c)*g)/2 p2=plamda(fm2n2,fm3n2,fm48n2) a=-(2*fm3**2-fm48**2+2*fm2**2-(fm2**4-2*fm2**2*fm3**2+fm3**4)* . dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm2**2*pi) pname(nf,n)="hh0->h- + w+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="hh0->h+ + w-" endif c Start decay width for HH0->HA0 + Z0 if(fm2.ge.(fm6+fm45)) then c0=(dsin(beta1-v2c)*g)/2 p2=plamda(fm2n2,fm6n2,fm45n2) a=fm45**2-2*fm6**2-2*fm2**2+(fm2**4-2*fm2**2*fm6**2+fm6**4)* . dfm45n2 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm2**2*pi) pname(nf,n)="hh0->ha0 + z0" endif c Start decay width for HH0->Z0 + Z0 if(fm2.ge.(fm45+fm45)) then c0=dcos(beta1-v2c)*fm45*g p2=0.5d0*dsqrt(fm2n2-4.d0*fm45n2) a=(-(8*(dfm45n2*fm45**2-2)-(fm2**4-4*fm2**2*fm45**2+4*fm45**4)* . dfm45n2**2))/4 n=n+1 width(nf,n)=c0**2*a*p2/(16*fm2**2*pi) pname(nf,n)="hh0->z0 + z0" endif c Start decay width for HH0->W- + W+ if(fm2.ge.(fm48+fm48)) then c0=dcos(beta1-v2c)*dcos(theta)**2*fm45*g p2=0.5d0*dsqrt(fm2n2-4.d0*fm48n2) a=(-(8*(dfm48n2*fm48**2-2)-(fm2**4-4*fm2**2*fm48**2+4*fm48**4)* . dfm48n2**2))/4 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm2**2*pi) pname(nf,n)="hh0->w- + w+" endif c Start decay width for HH0->NUEL + ANUEL if(fm2.ge.(fm13+fm13)) then c0=(-dcos(beta1+v2c)*fm45*g)/4 p2=0.5d0*dsqrt(fm2n2-4.d0*fm13n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm2**2*pi) pname(nf,n)="hh0->nuel + anuel" endif c Start decay width for HH0->EL- + EL+ if(fm2.ge.(fm14+fm14)) then c0=((dcos(2.d0*theta-v2c-beta1)+dcos(2.d0*theta+v2c+beta1))* . fm45*g)/4 p2=0.5d0*dsqrt(fm2n2-4.d0*fm14n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm2**2*pi) pname(nf,n)="hh0->el- + el+" endif c Start decay width for HH0->NUML + ANUML if(fm2.ge.(fm17+fm17)) then c0=(-dcos(beta1+v2c)*fm45*g)/4 p2=0.5d0*dsqrt(fm2n2-4.d0*fm17n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm2**2*pi) pname(nf,n)="hh0->numl + anuml" endif c Start decay width for HH0->MUL- + MUL+ if(fm2.ge.(fm18+fm18)) then c0=((dcos(2.d0*theta-v2c-beta1)+dcos(2.d0*theta+v2c+beta1))* . fm45*g)/4 p2=0.5d0*dsqrt(fm2n2-4.d0*fm18n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm2**2*pi) pname(nf,n)="hh0->mul- + mul+" endif c Start decay width for HH0->NUTL + ANUTL if(fm2.ge.(fm21+fm21)) then c0=(-dcos(beta1+v2c)*fm45*g)/4 p2=0.5d0*dsqrt(fm2n2-4.d0*fm21n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm2**2*pi) pname(nf,n)="hh0->nutl + anutl" endif c Start decay width for HH0->ER- + ER+ if(fm2.ge.(fm23+fm23)) then c0=dcos(beta1+v2c)*dsin(theta)**2*fm45*g p2=0.5d0*dsqrt(fm2n2-4.d0*fm23n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm2**2*pi) pname(nf,n)="hh0->er- + er+" endif c Start decay width for HH0->MUR- + MUR+ if(fm2.ge.(fm24+fm24)) then c0=dcos(beta1+v2c)*dsin(theta)**2*fm45*g p2=0.5d0*dsqrt(fm2n2-4.d0*fm24n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm2**2*pi) pname(nf,n)="hh0->mur- + mur+" endif c Start decay width for HH0->TAU1- + TAU1+ if(fm2.ge.(fm22+fm22)) then c0=(-(dsqrt(2.d0)*(2*(2*dcos(v2c)*fm20+dsin(2.d0*v1c)*dsin(v2c) . *cm1)*fm20-dcos(beta1)**2*dcos(v2c)*fm45**2)+(4*dcos(v2c)*dsin . (2.d0*v1c)*scm4+dsqrt(2.d0)*dsin(beta1)*dsin(v2c)*fm45)*dcos( . beta1)*fm45+dsqrt(2.d0)*(dcos(beta1)*dcos(v2c)-dsin(beta1)* . dsin(v2c))*dcos(2.d0*v1c)*dcos(beta1)*fm45**2-2*dsqrt(2.d0)*( . dcos(beta1)*dcos(v2c)-dsin(beta1)*dsin(v2c))*dcos(2.d0*theta)* . dcos(2.d0*v1c)*dcos(beta1)*fm45**2)*g)/(4*dsqrt(2.d0)*dcos( . beta1)*fm45) p2=0.5d0*dsqrt(fm2n2-4.d0*fm22n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm2**2*pi) pname(nf,n)="hh0->tau1- + tau1+" endif c Start decay width for HH0->TAU1- + TAU2+ if(fm2.ge.(fm22+fm25)) then c0=((2*(2*dcos(beta1)*dcos(v2c)*fm45*scm4+dsqrt(2.d0)*dsin(v2c) . *cm1*fm20)*dcos(2.d0*v1c)-dsqrt(2.d0)*dcos(beta1+v2c)*dcos( . beta1)*dsin(2.d0*v1c)*fm45**2+dsqrt(2.d0)*dcos(2.d0*theta+v2c+ . beta1)*dcos(beta1)*dsin(2.d0*v1c)*fm45**2+dsqrt(2.d0)*dcos( . 2.d0*theta-v2c-beta1)*dcos(beta1)*dsin(2.d0*v1c)*fm45**2)*g)/( . 4*dsqrt(2.d0)*dcos(beta1)*fm45) p2=plamda(fm2n2,fm22n2,fm25n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm2**2*pi) pname(nf,n)="hh0->tau1- + tau2+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="hh0->tau1+ + tau2-" endif c Start decay width for HH0->TAU2- + TAU2+ if(fm2.ge.(fm25+fm25)) then c0=(-(dsqrt(2.d0)*(2*(2*dcos(v2c)*fm20-dsin(2.d0*v1c)*dsin(v2c) . *cm1)*fm20-dcos(beta1)**2*dcos(v2c)*fm45**2)-(4*dcos(v2c)*dsin . (2.d0*v1c)*scm4-dsqrt(2.d0)*dsin(beta1)*dsin(v2c)*fm45)*dcos( . beta1)*fm45-dsqrt(2.d0)*(dcos(beta1)*dcos(v2c)-dsin(beta1)* . dsin(v2c))*dcos(2.d0*v1c)*dcos(beta1)*fm45**2+2*dsqrt(2.d0)*( . dcos(beta1)*dcos(v2c)-dsin(beta1)*dsin(v2c))*dcos(2.d0*theta)* . dcos(2.d0*v1c)*dcos(beta1)*fm45**2)*g)/(4*dsqrt(2.d0)*dcos( . beta1)*fm45) p2=0.5d0*dsqrt(fm2n2-4.d0*fm25n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm2**2*pi) pname(nf,n)="hh0->tau2- + tau2+" endif c Start decay width for HH0->UPSSL + UBSSL if(fm2.ge.(fm28+fm28)) then c0=(-(dcos(2.d0*theta+v2c+beta1)+dcos(beta1+v2c)+dcos(2.d0* . theta-v2c-beta1))*fm45*g)/6 p2=0.5d0*dsqrt(fm2n2-4.d0*fm28n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm2**2*pi) pname(nf,n)="hh0->upssl + ubssl" endif c Start decay width for HH0->DNSSL + DBSSL if(fm2.ge.(fm29+fm29)) then c0=((dcos(2.d0*theta+v2c+beta1)+4*dcos(beta1+v2c)+dcos(2.d0* . theta-v2c-beta1))*fm45*g)/12 p2=0.5d0*dsqrt(fm2n2-4.d0*fm29n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm2**2*pi) pname(nf,n)="hh0->dnssl + dbssl" endif c Start decay width for HH0->CHSSL + CBSSL if(fm2.ge.(fm32+fm32)) then c0=(-(dcos(2.d0*theta+v2c+beta1)+dcos(beta1+v2c)+dcos(2.d0* . theta-v2c-beta1))*fm45*g)/6 p2=0.5d0*dsqrt(fm2n2-4.d0*fm32n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm2**2*pi) pname(nf,n)="hh0->chssl + cbssl" endif c Start decay width for HH0->STSSL + SBSSL if(fm2.ge.(fm33+fm33)) then c0=((dcos(2.d0*theta+v2c+beta1)+4*dcos(beta1+v2c)+dcos(2.d0* . theta-v2c-beta1))*fm45*g)/12 p2=0.5d0*dsqrt(fm2n2-4.d0*fm33n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm2**2*pi) pname(nf,n)="hh0->stssl + sbssl" endif c Start decay width for HH0->DNSSR + DBSSR if(fm2.ge.(fm38+fm38)) then c0=(dcos(beta1+v2c)*dsin(theta)**2*fm45*g)/3 p2=0.5d0*dsqrt(fm2n2-4.d0*fm38n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm2**2*pi) pname(nf,n)="hh0->dnssr + dbssr" endif c Start decay width for HH0->STSSR + SBSSR if(fm2.ge.(fm39+fm39)) then c0=(dcos(beta1+v2c)*dsin(theta)**2*fm45*g)/3 p2=0.5d0*dsqrt(fm2n2-4.d0*fm39n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm2**2*pi) pname(nf,n)="hh0->stssr + sbssr" endif c Start decay width for HH0->UPSSR + UBSSR if(fm2.ge.(fm41+fm41)) then c0=(-2*dcos(beta1+v2c)*dsin(theta)**2*fm45*g)/3 p2=0.5d0*dsqrt(fm2n2-4.d0*fm41n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm2**2*pi) pname(nf,n)="hh0->upssr + ubssr" endif c Start decay width for HH0->CHSSR + CBSSR if(fm2.ge.(fm42+fm42)) then c0=(-2*dcos(beta1+v2c)*dsin(theta)**2*fm45*g)/3 p2=0.5d0*dsqrt(fm2n2-4.d0*fm42n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm2**2*pi) pname(nf,n)="hh0->chssr + cbssr" endif c Start decay width for HH0->TPSS1 + TBSS1 if(fm2.ge.(fm36+fm36)) then c0=((3*((dsqrt(2.d0)*(dsin(beta1)**2*fm45**2-4*fm34**2)-4*dsin( . 2.d0*v4c)*dsin(beta1)*fm45*scm10)*dsin(v2c)-2*dsqrt(2.d0)*dcos . (v2c)*dsin(2.d0*v4c)*cm1*fm34-dsqrt(2.d0)*dcos(beta1)*dcos(v2c . )*dsin(beta1)*fm45**2)+dsqrt(2.d0)*(dcos(beta1)*dcos(v2c)-dsin . (beta1)*dsin(v2c))*dcos(2.d0*v4c)*dsin(beta1)*fm45**2-4*dsqrt( . 2.d0)*(dcos(beta1)*dcos(v2c)-dsin(beta1)*dsin(v2c))*dcos(2.d0* . theta)*dcos(2.d0*v4c)*dsin(beta1)*fm45**2)*g)/(12*dsqrt(2.d0)* . dsin(beta1)*fm45) p2=0.5d0*dsqrt(fm2n2-4.d0*fm36n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm2**2*pi) pname(nf,n)="hh0->tpss1 + tbss1" endif c Start decay width for HH0->TPSS1 + TBSS2 if(fm2.ge.(fm36+fm43)) then c0=((6*(dsqrt(2.d0)*dcos(v2c)*cm1*fm34+2*dsin(beta1)*dsin(v2c)* . fm45*scm10)*dcos(2.d0*v4c)+dsqrt(2.d0)*dcos(beta1+v2c)*dsin( . 2.d0*v4c)*dsin(beta1)*fm45**2-2*dsqrt(2.d0)*dcos(2.d0*theta+ . v2c+beta1)*dsin(2.d0*v4c)*dsin(beta1)*fm45**2-2*dsqrt(2.d0)* . dcos(2.d0*theta-v2c-beta1)*dsin(2.d0*v4c)*dsin(beta1)*fm45**2) . *g)/(12*dsqrt(2.d0)*dsin(beta1)*fm45) p2=plamda(fm2n2,fm36n2,fm43n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm2**2*pi) pname(nf,n)="hh0->tpss1 + tbss2" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="hh0->tbss1 + tpss2" endif c Start decay width for HH0->TPSS2 + TBSS2 if(fm2.ge.(fm43+fm43)) then c0=((3*((dsqrt(2.d0)*(dsin(beta1)**2*fm45**2-4*fm34**2)+4*dsin( . 2.d0*v4c)*dsin(beta1)*fm45*scm10)*dsin(v2c)+2*dsqrt(2.d0)*dcos . (v2c)*dsin(2.d0*v4c)*cm1*fm34-dsqrt(2.d0)*dcos(beta1)*dcos(v2c . )*dsin(beta1)*fm45**2)-dsqrt(2.d0)*(dcos(beta1)*dcos(v2c)-dsin . (beta1)*dsin(v2c))*dcos(2.d0*v4c)*dsin(beta1)*fm45**2+4*dsqrt( . 2.d0)*(dcos(beta1)*dcos(v2c)-dsin(beta1)*dsin(v2c))*dcos(2.d0* . theta)*dcos(2.d0*v4c)*dsin(beta1)*fm45**2)*g)/(12*dsqrt(2.d0)* . dsin(beta1)*fm45) p2=0.5d0*dsqrt(fm2n2-4.d0*fm43n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm2**2*pi) pname(nf,n)="hh0->tpss2 + tbss2" endif c Start decay width for HH0->BTSS1 + BBSS1 if(fm2.ge.(fm37+fm37)) then c0=(-(3*(dsqrt(2.d0)*(2*(2*dcos(v2c)*fm35-dsin(2.d0*v3c)*dsin( . v2c)*cm1)*fm35-dcos(beta1)**2*dcos(v2c)*fm45**2)-(4*dcos(v2c)* . dsin(2.d0*v3c)*scm7-dsqrt(2.d0)*dsin(beta1)*dsin(v2c)*fm45)* . dcos(beta1)*fm45)-dsqrt(2.d0)*(dcos(beta1)*dcos(v2c)-dsin( . beta1)*dsin(v2c))*dcos(2.d0*v3c)*dcos(beta1)*fm45**2-2*dsqrt( . 2.d0)*(dcos(beta1)*dcos(v2c)-dsin(beta1)*dsin(v2c))*dcos(2.d0* . theta)*dcos(2.d0*v3c)*dcos(beta1)*fm45**2)*g)/(12*dsqrt(2.d0)* . dcos(beta1)*fm45) p2=0.5d0*dsqrt(fm2n2-4.d0*fm37n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm2**2*pi) pname(nf,n)="hh0->btss1 + bbss1" endif c Start decay width for HH0->BTSS1 + BBSS2 if(fm2.ge.(fm37+fm40)) then c0=(-(6*(2*dcos(beta1)*dcos(v2c)*fm45*scm7+dsqrt(2.d0)*dsin(v2c . )*cm1*fm35)*dcos(2.d0*v3c)-dsqrt(2.d0)*dcos(beta1+v2c)*dcos( . beta1)*dsin(2.d0*v3c)*fm45**2-dsqrt(2.d0)*dcos(2.d0*theta+v2c+ . beta1)*dcos(beta1)*dsin(2.d0*v3c)*fm45**2-dsqrt(2.d0)*dcos( . 2.d0*theta-v2c-beta1)*dcos(beta1)*dsin(2.d0*v3c)*fm45**2)*g)/( . 12*dsqrt(2.d0)*dcos(beta1)*fm45) p2=plamda(fm2n2,fm37n2,fm40n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm2**2*pi) pname(nf,n)="hh0->btss1 + bbss2" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="hh0->bbss1 + btss2" endif c Start decay width for HH0->BTSS2 + BBSS2 if(fm2.ge.(fm40+fm40)) then c0=(-(3*(dsqrt(2.d0)*(2*(2*dcos(v2c)*fm35+dsin(2.d0*v3c)*dsin( . v2c)*cm1)*fm35-dcos(beta1)**2*dcos(v2c)*fm45**2)+(4*dcos(v2c)* . dsin(2.d0*v3c)*scm7+dsqrt(2.d0)*dsin(beta1)*dsin(v2c)*fm45)* . dcos(beta1)*fm45)+dsqrt(2.d0)*(dcos(beta1)*dcos(v2c)-dsin( . beta1)*dsin(v2c))*dcos(2.d0*v3c)*dcos(beta1)*fm45**2+2*dsqrt( . 2.d0)*(dcos(beta1)*dcos(v2c)-dsin(beta1)*dsin(v2c))*dcos(2.d0* . theta)*dcos(2.d0*v3c)*dcos(beta1)*fm45**2)*g)/(12*dsqrt(2.d0)* . dcos(beta1)*fm45) p2=0.5d0*dsqrt(fm2n2-4.d0*fm40n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm2**2*pi) pname(nf,n)="hh0->btss2 + bbss2" endif c Start decay width for HH0->W1SS- + W1SS+ if(fm2.ge.(fm49+fm49)) then c0=(-dsqrt(2.d0)*(dcos(v2c)*dcos(v7c)*dsin(v6c)+dcos(v6c)*dsin( . v2c)*dsin(v7c))*dcos(theta)*fn1(1)*g)/2 p2=0.5d0*dsqrt(fm2n2-4.d0*fm49n2) a=(fm2**2-4*fm49**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm2**2*pi) pname(nf,n)="hh0->w1ss- + w1ss+" endif c Start decay width for HH0->W1SS- + W2SS+ if(fm2.ge.(fm49+fm52)) then c0=-g zs7=dsin(v2c) zs6=dsin(v7c) zs5=dsin(v6c) zs4=dcos(v7c) zs3=dcos(v6c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(dsqrt(2.d0)*((zs2*zs3*zs4-zs5*zs6*zs7)*fn1(1)+(zs2*zs5*zs6 . -zs3*zs4*zs7)*fn1(2))*zs1)/4 cs1=(-dsqrt(2.d0)*((zs2*zs3*zs4-zs5*zs6*zs7)*fn1(1)-(zs2*zs5* . zs6-zs3*zs4*zs7)*fn1(2))*zs1)/4 p2=plamda(fm2n2,fm49n2,fm52n2) a=(-((fm49**2+2*fm49*fm52+fm52**2-fm2**2)*cs1**2+(fm49**2-2* . fm49*fm52+fm52**2-fm2**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm2**2*pi) pname(nf,n)="hh0->w1ss- + w2ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="hh0->w1ss+ + w2ss-" endif c Start decay width for HH0->W2SS- + W2SS+ if(fm2.ge.(fm52+fm52)) then c0=(dsqrt(2.d0)*(dcos(v2c)*dcos(v6c)*dsin(v7c)+dcos(v7c)*dsin( . v2c)*dsin(v6c))*dcos(theta)*fn1(2)*g)/2 p2=0.5d0*dsqrt(fm2n2-4.d0*fm52n2) a=(fm2**2-4*fm52**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm2**2*pi) pname(nf,n)="hh0->w2ss- + w2ss+" endif c Start decay width for HH0->Z1SS + Z1SS if(fm2.ge.(fm46+fm46)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=2*(v4c2(4,1)*zs3-v4c2(3,1)*zs2)*(v4c2(2,1)*zs1-v4c2(1,1)* . zs4)*fi2(1)*fr2(1) cs1=(2*fr2(1)-1)*(v4c2(4,1)*zs3-v4c2(3,1)*zs2)*(v4c2(2,1)*zs1- . v4c2(1,1)*zs4) p2=0.5d0*dsqrt(fm2n2-4.d0*fm46n2) a=((fm2**2-4*fm46**2)*cs1**2+cs2**2*fm2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm2**2*pi) pname(nf,n)="hh0->z1ss + z1ss" endif c Start decay width for HH0->Z1SS + Z2SS if(fm2.ge.(fm46+fm47)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-(((v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,2))*zs2-(v4c2(2,2)*zs1-v4c2(1,2)*zs4)* . v4c2(4,1)*zs3-(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,2)*zs3)*( . fi2(2)*fr2(1)+fi2(1)*fr2(2)))/2 cs1=((((v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,2))*zs2-(v4c2(2,2)*zs1-v4c2(1,2)*zs4)* . v4c2(4,1)*zs3-(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,2)*zs3)*( . fi2(2)*fi2(1)-fr2(2)*fr2(1)))/2 p2=plamda(fm2n2,fm46n2,fm47n2) a=(-((fm46**2+2*fm46*fm47+fm47**2-fm2**2)*cs1**2+(fm46**2-2* . fm46*fm47+fm47**2-fm2**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm2**2*pi) pname(nf,n)="hh0->z1ss + z2ss" endif c Start decay width for HH0->Z1SS + Z3SS if(fm2.ge.(fm46+fm4)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-(((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,3))*zs2-(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,1)*zs3-(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,3)*zs3)*( . fi2(3)*fr2(1)+fi2(1)*fr2(3)))/2 cs1=((((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,3))*zs2-(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,1)*zs3-(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,3)*zs3)*( . fi2(3)*fi2(1)-fr2(3)*fr2(1)))/2 p2=plamda(fm2n2,fm46n2,fm4n2) a=(-((fm4**2+2*fm4*fm46+fm46**2-fm2**2)*cs1**2+(fm4**2-2*fm4* . fm46+fm46**2-fm2**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm2**2*pi) pname(nf,n)="hh0->z1ss + z3ss" endif c Start decay width for HH0->Z1SS + Z4SS if(fm2.ge.(fm46+fm10)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-(((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,4))*zs2-(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,1)*zs3-(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,4)*zs3)*( . fi2(4)*fr2(1)+fi2(1)*fr2(4)))/2 cs1=((((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,4))*zs2-(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,1)*zs3-(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,4)*zs3)*( . fi2(4)*fi2(1)-fr2(4)*fr2(1)))/2 p2=plamda(fm2n2,fm46n2,fm10n2) a=(-(((fm10+2*fm46)*fm10-(fm2**2-fm46**2))*cs1**2+((fm10-2*fm46 . )*fm10-(fm2**2-fm46**2))*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm2**2*pi) pname(nf,n)="hh0->z1ss + z4ss" endif c Start decay width for HH0->Z2SS + Z2SS if(fm2.ge.(fm47+fm47)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=2*(v4c2(4,2)*zs3-v4c2(3,2)*zs2)*(v4c2(2,2)*zs1-v4c2(1,2)* . zs4)*fi2(2)*fr2(2) cs1=(2*fr2(2)-1)*(v4c2(4,2)*zs3-v4c2(3,2)*zs2)*(v4c2(2,2)*zs1- . v4c2(1,2)*zs4) p2=0.5d0*dsqrt(fm2n2-4.d0*fm47n2) a=((fm2**2-4*fm47**2)*cs1**2+cs2**2*fm2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm2**2*pi) pname(nf,n)="hh0->z2ss + z2ss" endif c Start decay width for HH0->Z2SS + Z3SS if(fm2.ge.(fm47+fm4)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-(((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,3))*zs2-(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,2)*zs3-(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,3)*zs3)*( . fi2(3)*fr2(2)+fi2(2)*fr2(3)))/2 cs1=((((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,3))*zs2-(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,2)*zs3-(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,3)*zs3)*( . fi2(3)*fi2(2)-fr2(3)*fr2(2)))/2 p2=plamda(fm2n2,fm47n2,fm4n2) a=(-((fm4**2+2*fm4*fm47+fm47**2-fm2**2)*cs1**2+(fm4**2-2*fm4* . fm47+fm47**2-fm2**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm2**2*pi) pname(nf,n)="hh0->z2ss + z3ss" endif c Start decay width for HH0->Z2SS + Z4SS if(fm2.ge.(fm47+fm10)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-(((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,4))*zs2-(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,2)*zs3-(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,4)*zs3)*( . fi2(4)*fr2(2)+fi2(2)*fr2(4)))/2 cs1=((((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,4))*zs2-(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,2)*zs3-(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,4)*zs3)*( . fi2(4)*fi2(2)-fr2(4)*fr2(2)))/2 p2=plamda(fm2n2,fm47n2,fm10n2) a=(-(((fm10+2*fm47)*fm10-(fm2**2-fm47**2))*cs1**2+((fm10-2*fm47 . )*fm10-(fm2**2-fm47**2))*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm2**2*pi) pname(nf,n)="hh0->z2ss + z4ss" endif c Start decay width for HH0->Z3SS + Z3SS if(fm2.ge.(fm4+fm4)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=2*(v4c2(4,3)*zs3-v4c2(3,3)*zs2)*(v4c2(2,3)*zs1-v4c2(1,3)* . zs4)*fi2(3)*fr2(3) cs1=(2*fr2(3)-1)*(v4c2(4,3)*zs3-v4c2(3,3)*zs2)*(v4c2(2,3)*zs1- . v4c2(1,3)*zs4) p2=0.5d0*dsqrt(fm2n2-4.d0*fm4n2) a=((fm2**2-4*fm4**2)*cs1**2+cs2**2*fm2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm2**2*pi) pname(nf,n)="hh0->z3ss + z3ss" endif c Start decay width for HH0->Z3SS + Z4SS if(fm2.ge.(fm4+fm10)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-(((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,3)+(v4c2(2,3)*zs1- . v4c2(1,3)*zs4)*v4c2(3,4))*zs2-(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,3)*zs3-(v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(4,4)*zs3)*( . fi2(4)*fr2(3)+fi2(3)*fr2(4)))/2 cs1=((((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,3)+(v4c2(2,3)*zs1- . v4c2(1,3)*zs4)*v4c2(3,4))*zs2-(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,3)*zs3-(v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(4,4)*zs3)*( . fi2(4)*fi2(3)-fr2(4)*fr2(3)))/2 p2=plamda(fm2n2,fm4n2,fm10n2) a=(-(((fm10+2*fm4)*fm10-(fm2**2-fm4**2))*cs1**2+((fm10-2*fm4)* . fm10-(fm2**2-fm4**2))*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm2**2*pi) pname(nf,n)="hh0->z3ss + z4ss" endif c Start decay width for HH0->Z4SS + Z4SS if(fm2.ge.(fm10+fm10)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=2*(v4c2(4,4)*zs3-v4c2(3,4)*zs2)*(v4c2(2,4)*zs1-v4c2(1,4)* . zs4)*fi2(4)*fr2(4) cs1=(2*fr2(4)-1)*(v4c2(4,4)*zs3-v4c2(3,4)*zs2)*(v4c2(2,4)*zs1- . v4c2(1,4)*zs4) p2=0.5d0*dsqrt(fm2n2-4.d0*fm10n2) a=(-((4*fm10**2-fm2**2)*cs1**2-cs2**2*fm2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm2**2*pi) pname(nf,n)="hh0->z4ss + z4ss" endif decay_f3=pa_width(pa,nf,n,iflag,br0) return end function decay_f4(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=4 pa="h2" c Start decay width for HL0->TAU- + TAU+ if(fm8.ge.(fm20+fm20)) then c0=(-dsin(v2c)*fm20*g)/(2*dcos(beta1)*fm45) p2=0.5d0*dsqrt(fm8n2-4.d0*fm20n2) a=(-(4*fm20**2-fm8**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm8**2*pi) pname(nf,n)="hl0->tau- + tau+" endif c Start decay width for HL0->TP + TB if(fm8.ge.(fm34+fm34)) then c0=(dcos(v2c)*fm34*g)/(2*dsin(beta1)*fm45) p2=0.5d0*dsqrt(fm8n2-4.d0*fm34n2) a=(-(4*fm34**2-fm8**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(2*fm8**2*pi) pname(nf,n)="hl0->tp + tb" endif c Start decay width for HL0->BT + BB if(fm8.ge.(fm35+fm35)) then c0=(-dsin(v2c)*fm35*g)/(2*dcos(beta1)*fm45) p2=0.5d0*dsqrt(fm8n2-4.d0*fm35n2) a=(-(4*fm35**2-fm8**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(2*fm8**2*pi) pname(nf,n)="hl0->bt + bb" endif c Start decay width for HL0->HH0 + HH0 if(fm8.ge.(fm2+fm2)) then c0=(-(dsin(beta1-v2c)-3*dsin(beta1+3.d0*v2c))*fm45*g)/4 p2=0.5d0*dsqrt(fm8n2-4.d0*fm2n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(16*fm8**2*pi) pname(nf,n)="hl0->hh0 + hh0" endif c Start decay width for HL0->H- + H+ if(fm8.ge.(fm3+fm3)) then c0=((dsin(2.d0*theta+v2c-beta1)-dsin(beta1-v2c)-dsin(2.d0*theta . -v2c+beta1)-dsin(3.d0*beta1+v2c))*fm45*g)/4 p2=0.5d0*dsqrt(fm8n2-4.d0*fm3n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm8**2*pi) pname(nf,n)="hl0->h- + h+" endif c Start decay width for HL0->HA0 + HA0 if(fm8.ge.(fm6+fm6)) then c0=(-(dsin(3.d0*beta1+v2c)-dsin(beta1-v2c))*fm45*g)/4 p2=0.5d0*dsqrt(fm8n2-4.d0*fm6n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(16*fm8**2*pi) pname(nf,n)="hl0->ha0 + ha0" endif c Start decay width for HL0->H- + W+ if(fm8.ge.(fm3+fm48)) then c0=(-dcos(beta1-v2c)*dcos(theta)*g)/2 p2=plamda(fm8n2,fm3n2,fm48n2) a=fm48**2-2*fm8**2-2*fm3**2+(fm3**4-2*fm3**2*fm8**2+fm8**4)* . dfm48n2 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm8**2*pi) pname(nf,n)="hl0->h- + w+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="hl0->h+ + w-" endif c Start decay width for HL0->HA0 + Z0 if(fm8.ge.(fm6+fm45)) then c0=(-dcos(beta1-v2c)*g)/2 p2=plamda(fm8n2,fm6n2,fm45n2) a=-(2*(fm6**2+fm8**2)-fm45**2-(fm6**4-2*fm6**2*fm8**2+fm8**4)* . dfm45n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm8**2*pi) pname(nf,n)="hl0->ha0 + z0" endif c Start decay width for HL0->Z0 + Z0 if(fm8.ge.(fm45+fm45)) then c0=dsin(beta1-v2c)*fm45*g p2=0.5d0*dsqrt(fm8n2-4.d0*fm45n2) a=(-(8*(dfm45n2*fm45**2-2)-(4*fm45**4-4*fm45**2*fm8**2+fm8**4)* . dfm45n2**2))/4 n=n+1 width(nf,n)=c0**2*a*p2/(16*fm8**2*pi) pname(nf,n)="hl0->z0 + z0" endif c Start decay width for HL0->W- + W+ if(fm8.ge.(fm48+fm48)) then c0=dcos(theta)**2*dsin(beta1-v2c)*fm45*g p2=0.5d0*dsqrt(fm8n2-4.d0*fm48n2) a=(-(8*(dfm48n2*fm48**2-2)-(4*fm48**4-4*fm48**2*fm8**2+fm8**4)* . dfm48n2**2))/4 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm8**2*pi) pname(nf,n)="hl0->w- + w+" endif c Start decay width for HL0->NUEL + ANUEL if(fm8.ge.(fm13+fm13)) then c0=(dsin(beta1+v2c)*fm45*g)/4 p2=0.5d0*dsqrt(fm8n2-4.d0*fm13n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm8**2*pi) pname(nf,n)="hl0->nuel + anuel" endif c Start decay width for HL0->EL- + EL+ if(fm8.ge.(fm14+fm14)) then c0=((dsin(2.d0*theta-v2c-beta1)-dsin(2.d0*theta+v2c+beta1))* . fm45*g)/4 p2=0.5d0*dsqrt(fm8n2-4.d0*fm14n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm8**2*pi) pname(nf,n)="hl0->el- + el+" endif c Start decay width for HL0->NUML + ANUML if(fm8.ge.(fm17+fm17)) then c0=(dsin(beta1+v2c)*fm45*g)/4 p2=0.5d0*dsqrt(fm8n2-4.d0*fm17n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm8**2*pi) pname(nf,n)="hl0->numl + anuml" endif c Start decay width for HL0->MUL- + MUL+ if(fm8.ge.(fm18+fm18)) then c0=((dsin(2.d0*theta-v2c-beta1)-dsin(2.d0*theta+v2c+beta1))* . fm45*g)/4 p2=0.5d0*dsqrt(fm8n2-4.d0*fm18n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm8**2*pi) pname(nf,n)="hl0->mul- + mul+" endif c Start decay width for HL0->NUTL + ANUTL if(fm8.ge.(fm21+fm21)) then c0=(dsin(beta1+v2c)*fm45*g)/4 p2=0.5d0*dsqrt(fm8n2-4.d0*fm21n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm8**2*pi) pname(nf,n)="hl0->nutl + anutl" endif c Start decay width for HL0->ER- + ER+ if(fm8.ge.(fm23+fm23)) then c0=-dsin(beta1+v2c)*dsin(theta)**2*fm45*g p2=0.5d0*dsqrt(fm8n2-4.d0*fm23n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm8**2*pi) pname(nf,n)="hl0->er- + er+" endif c Start decay width for HL0->MUR- + MUR+ if(fm8.ge.(fm24+fm24)) then c0=-dsin(beta1+v2c)*dsin(theta)**2*fm45*g p2=0.5d0*dsqrt(fm8n2-4.d0*fm24n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm8**2*pi) pname(nf,n)="hl0->mur- + mur+" endif c Start decay width for HL0->TAU1- + TAU1+ if(fm8.ge.(fm22+fm22)) then c0=(-(dsqrt(2.d0)*(2*(dcos(v2c)*dsin(2.d0*v1c)*cm1-2*dsin(v2c)* . fm20)*fm20+dcos(beta1)**2*dsin(v2c)*fm45**2)+(dsqrt(2.d0)*dcos . (v2c)*dsin(beta1)*fm45-4*dsin(2.d0*v1c)*dsin(v2c)*scm4)*dcos( . beta1)*fm45-dsqrt(2.d0)*(dcos(beta1)*dsin(v2c)+dcos(v2c)*dsin( . beta1))*dcos(2.d0*v1c)*dcos(beta1)*fm45**2+2*dsqrt(2.d0)*(dcos . (beta1)*dsin(v2c)+dcos(v2c)*dsin(beta1))*dcos(2.d0*theta)*dcos . (2.d0*v1c)*dcos(beta1)*fm45**2)*g)/(4*dsqrt(2.d0)*dcos(beta1)* . fm45) p2=0.5d0*dsqrt(fm8n2-4.d0*fm22n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm8**2*pi) pname(nf,n)="hl0->tau1- + tau1+" endif c Start decay width for HL0->TAU1- + TAU2+ if(fm8.ge.(fm22+fm25)) then c0=(-(dsqrt(2.d0)*(dsin(2.d0*theta+v2c+beta1)-dsin(beta1+v2c)- . dsin(2.d0*theta-v2c-beta1))*dcos(beta1)*dsin(2.d0*v1c)*fm45**2 . +2*(2*dcos(beta1)*dsin(v2c)*fm45*scm4-dsqrt(2.d0)*dcos(v2c)* . cm1*fm20)*dcos(2.d0*v1c))*g)/(4*dsqrt(2.d0)*dcos(beta1)*fm45) p2=plamda(fm8n2,fm22n2,fm25n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm8**2*pi) pname(nf,n)="hl0->tau1- + tau2+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="hl0->tau1+ + tau2-" endif c Start decay width for HL0->TAU2- + TAU2+ if(fm8.ge.(fm25+fm25)) then c0=((dsqrt(2.d0)*(2*(dcos(v2c)*dsin(2.d0*v1c)*cm1+2*dsin(v2c)* . fm20)*fm20-dcos(beta1)**2*dsin(v2c)*fm45**2)-(dsqrt(2.d0)*dcos . (v2c)*dsin(beta1)*fm45+4*dsin(2.d0*v1c)*dsin(v2c)*scm4)*dcos( . beta1)*fm45-dsqrt(2.d0)*(dcos(beta1)*dsin(v2c)+dcos(v2c)*dsin( . beta1))*dcos(2.d0*v1c)*dcos(beta1)*fm45**2+2*dsqrt(2.d0)*(dcos . (beta1)*dsin(v2c)+dcos(v2c)*dsin(beta1))*dcos(2.d0*theta)*dcos . (2.d0*v1c)*dcos(beta1)*fm45**2)*g)/(4*dsqrt(2.d0)*dcos(beta1)* . fm45) p2=0.5d0*dsqrt(fm8n2-4.d0*fm25n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm8**2*pi) pname(nf,n)="hl0->tau2- + tau2+" endif c Start decay width for HL0->UPSSL + UBSSL if(fm8.ge.(fm28+fm28)) then c0=((dsin(2.d0*theta+v2c+beta1)+dsin(beta1+v2c)-dsin(2.d0*theta . -v2c-beta1))*fm45*g)/6 p2=0.5d0*dsqrt(fm8n2-4.d0*fm28n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm8**2*pi) pname(nf,n)="hl0->upssl + ubssl" endif c Start decay width for HL0->DNSSL + DBSSL if(fm8.ge.(fm29+fm29)) then c0=(-(dsin(2.d0*theta+v2c+beta1)+4*dsin(beta1+v2c)-dsin(2.d0* . theta-v2c-beta1))*fm45*g)/12 p2=0.5d0*dsqrt(fm8n2-4.d0*fm29n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm8**2*pi) pname(nf,n)="hl0->dnssl + dbssl" endif c Start decay width for HL0->CHSSL + CBSSL if(fm8.ge.(fm32+fm32)) then c0=((dsin(2.d0*theta+v2c+beta1)+dsin(beta1+v2c)-dsin(2.d0*theta . -v2c-beta1))*fm45*g)/6 p2=0.5d0*dsqrt(fm8n2-4.d0*fm32n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm8**2*pi) pname(nf,n)="hl0->chssl + cbssl" endif c Start decay width for HL0->STSSL + SBSSL if(fm8.ge.(fm33+fm33)) then c0=(-(dsin(2.d0*theta+v2c+beta1)+4*dsin(beta1+v2c)-dsin(2.d0* . theta-v2c-beta1))*fm45*g)/12 p2=0.5d0*dsqrt(fm8n2-4.d0*fm33n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm8**2*pi) pname(nf,n)="hl0->stssl + sbssl" endif c Start decay width for HL0->DNSSR + DBSSR if(fm8.ge.(fm38+fm38)) then c0=(-dsin(beta1+v2c)*dsin(theta)**2*fm45*g)/3 p2=0.5d0*dsqrt(fm8n2-4.d0*fm38n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm8**2*pi) pname(nf,n)="hl0->dnssr + dbssr" endif c Start decay width for HL0->STSSR + SBSSR if(fm8.ge.(fm39+fm39)) then c0=(-dsin(beta1+v2c)*dsin(theta)**2*fm45*g)/3 p2=0.5d0*dsqrt(fm8n2-4.d0*fm39n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm8**2*pi) pname(nf,n)="hl0->stssr + sbssr" endif c Start decay width for HL0->UPSSR + UBSSR if(fm8.ge.(fm41+fm41)) then c0=(2*dsin(beta1+v2c)*dsin(theta)**2*fm45*g)/3 p2=0.5d0*dsqrt(fm8n2-4.d0*fm41n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm8**2*pi) pname(nf,n)="hl0->upssr + ubssr" endif c Start decay width for HL0->CHSSR + CBSSR if(fm8.ge.(fm42+fm42)) then c0=(2*dsin(beta1+v2c)*dsin(theta)**2*fm45*g)/3 p2=0.5d0*dsqrt(fm8n2-4.d0*fm42n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm8**2*pi) pname(nf,n)="hl0->chssr + cbssr" endif c Start decay width for HL0->TPSS1 + TBSS1 if(fm8.ge.(fm36+fm36)) then c0=((3*((dsqrt(2.d0)*(dsin(beta1)**2*fm45**2-4*fm34**2)-4*dsin( . 2.d0*v4c)*dsin(beta1)*fm45*scm10)*dcos(v2c)+2*dsqrt(2.d0)*dsin . (2.d0*v4c)*dsin(v2c)*cm1*fm34+dsqrt(2.d0)*dcos(beta1)*dsin( . beta1)*dsin(v2c)*fm45**2)-dsqrt(2.d0)*(dcos(beta1)*dsin(v2c)+ . dcos(v2c)*dsin(beta1))*dcos(2.d0*v4c)*dsin(beta1)*fm45**2+4* . dsqrt(2.d0)*(dcos(beta1)*dsin(v2c)+dcos(v2c)*dsin(beta1))*dcos . (2.d0*theta)*dcos(2.d0*v4c)*dsin(beta1)*fm45**2)*g)/(12*dsqrt( . 2.d0)*dsin(beta1)*fm45) p2=0.5d0*dsqrt(fm8n2-4.d0*fm36n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm8**2*pi) pname(nf,n)="hl0->tpss1 + tbss1" endif c Start decay width for HL0->TPSS1 + TBSS2 if(fm8.ge.(fm36+fm43)) then c0=((dsqrt(2.d0)*(2*dsin(2.d0*theta+v2c+beta1)-dsin(beta1+v2c)- . 2*dsin(2.d0*theta-v2c-beta1))*dsin(2.d0*v4c)*dsin(beta1)*fm45 . **2+6*(2*dcos(v2c)*dsin(beta1)*fm45*scm10-dsqrt(2.d0)*dsin(v2c . )*cm1*fm34)*dcos(2.d0*v4c))*g)/(12*dsqrt(2.d0)*dsin(beta1)* . fm45) p2=plamda(fm8n2,fm36n2,fm43n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm8**2*pi) pname(nf,n)="hl0->tpss1 + tbss2" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="hl0->tbss1 + tpss2" endif c Start decay width for HL0->TPSS2 + TBSS2 if(fm8.ge.(fm43+fm43)) then c0=((3*((dsqrt(2.d0)*(dsin(beta1)**2*fm45**2-4*fm34**2)+4*dsin( . 2.d0*v4c)*dsin(beta1)*fm45*scm10)*dcos(v2c)-2*dsqrt(2.d0)*dsin . (2.d0*v4c)*dsin(v2c)*cm1*fm34+dsqrt(2.d0)*dcos(beta1)*dsin( . beta1)*dsin(v2c)*fm45**2)+dsqrt(2.d0)*(dcos(beta1)*dsin(v2c)+ . dcos(v2c)*dsin(beta1))*dcos(2.d0*v4c)*dsin(beta1)*fm45**2-4* . dsqrt(2.d0)*(dcos(beta1)*dsin(v2c)+dcos(v2c)*dsin(beta1))*dcos . (2.d0*theta)*dcos(2.d0*v4c)*dsin(beta1)*fm45**2)*g)/(12*dsqrt( . 2.d0)*dsin(beta1)*fm45) p2=0.5d0*dsqrt(fm8n2-4.d0*fm43n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm8**2*pi) pname(nf,n)="hl0->tpss2 + tbss2" endif c Start decay width for HL0->BTSS1 + BBSS1 if(fm8.ge.(fm37+fm37)) then c0=((3*(dsqrt(2.d0)*(2*(dcos(v2c)*dsin(2.d0*v3c)*cm1+2*dsin(v2c . )*fm35)*fm35-dcos(beta1)**2*dsin(v2c)*fm45**2)-(dsqrt(2.d0)* . dcos(v2c)*dsin(beta1)*fm45+4*dsin(2.d0*v3c)*dsin(v2c)*scm7)* . dcos(beta1)*fm45)-dsqrt(2.d0)*(dcos(beta1)*dsin(v2c)+dcos(v2c) . *dsin(beta1))*dcos(2.d0*v3c)*dcos(beta1)*fm45**2-2*dsqrt(2.d0) . *(dcos(beta1)*dsin(v2c)+dcos(v2c)*dsin(beta1))*dcos(2.d0*theta . )*dcos(2.d0*v3c)*dcos(beta1)*fm45**2)*g)/(12*dsqrt(2.d0)*dcos( . beta1)*fm45) p2=0.5d0*dsqrt(fm8n2-4.d0*fm37n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm8**2*pi) pname(nf,n)="hl0->btss1 + bbss1" endif c Start decay width for HL0->BTSS1 + BBSS2 if(fm8.ge.(fm37+fm40)) then c0=(-(dsqrt(2.d0)*(dsin(2.d0*theta+v2c+beta1)+dsin(beta1+v2c)- . dsin(2.d0*theta-v2c-beta1))*dcos(beta1)*dsin(2.d0*v3c)*fm45**2 . -6*(2*dcos(beta1)*dsin(v2c)*fm45*scm7-dsqrt(2.d0)*dcos(v2c)* . cm1*fm35)*dcos(2.d0*v3c))*g)/(12*dsqrt(2.d0)*dcos(beta1)*fm45) p2=plamda(fm8n2,fm37n2,fm40n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm8**2*pi) pname(nf,n)="hl0->btss1 + bbss2" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="hl0->bbss1 + btss2" endif c Start decay width for HL0->BTSS2 + BBSS2 if(fm8.ge.(fm40+fm40)) then c0=(-(3*(dsqrt(2.d0)*(2*(dcos(v2c)*dsin(2.d0*v3c)*cm1-2*dsin( . v2c)*fm35)*fm35+dcos(beta1)**2*dsin(v2c)*fm45**2)+(dsqrt(2.d0) . *dcos(v2c)*dsin(beta1)*fm45-4*dsin(2.d0*v3c)*dsin(v2c)*scm7)* . dcos(beta1)*fm45)-dsqrt(2.d0)*(dcos(beta1)*dsin(v2c)+dcos(v2c) . *dsin(beta1))*dcos(2.d0*v3c)*dcos(beta1)*fm45**2-2*dsqrt(2.d0) . *(dcos(beta1)*dsin(v2c)+dcos(v2c)*dsin(beta1))*dcos(2.d0*theta . )*dcos(2.d0*v3c)*dcos(beta1)*fm45**2)*g)/(12*dsqrt(2.d0)*dcos( . beta1)*fm45) p2=0.5d0*dsqrt(fm8n2-4.d0*fm40n2) a=1 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(8*fm8**2*pi) pname(nf,n)="hl0->btss2 + bbss2" endif c Start decay width for HL0->W1SS- + W1SS+ if(fm8.ge.(fm49+fm49)) then c0=(-dsqrt(2.d0)*(dcos(v2c)*dcos(v6c)*dsin(v7c)-dcos(v7c)*dsin( . v2c)*dsin(v6c))*dcos(theta)*fn1(1)*g)/2 p2=0.5d0*dsqrt(fm8n2-4.d0*fm49n2) a=(-(4*fm49**2-fm8**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm8**2*pi) pname(nf,n)="hl0->w1ss- + w1ss+" endif c Start decay width for HL0->W1SS- + W2SS+ if(fm8.ge.(fm49+fm52)) then c0=-g zs7=dsin(v2c) zs6=dsin(v7c) zs5=dsin(v6c) zs4=dcos(v7c) zs3=dcos(v6c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*((zs2*zs3*zs4+zs5*zs6*zs7)*fn1(2)+(zs2*zs5* . zs6+zs3*zs4*zs7)*fn1(1))*zs1)/4 cs1=(-dsqrt(2.d0)*((zs2*zs3*zs4+zs5*zs6*zs7)*fn1(2)-(zs2*zs5* . zs6+zs3*zs4*zs7)*fn1(1))*zs1)/4 p2=plamda(fm8n2,fm49n2,fm52n2) a=(-(((fm49+2*fm52)*fm49+fm52**2-fm8**2)*cs1**2+((fm49-2*fm52)* . fm49+fm52**2-fm8**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm8**2*pi) pname(nf,n)="hl0->w1ss- + w2ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="hl0->w1ss+ + w2ss-" endif c Start decay width for HL0->W2SS- + W2SS+ if(fm8.ge.(fm52+fm52)) then c0=(dsqrt(2.d0)*(dcos(v2c)*dcos(v7c)*dsin(v6c)-dcos(v6c)*dsin( . v2c)*dsin(v7c))*dcos(theta)*fn1(2)*g)/2 p2=0.5d0*dsqrt(fm8n2-4.d0*fm52n2) a=(-(4*fm52**2-fm8**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm8**2*pi) pname(nf,n)="hl0->w2ss- + w2ss+" endif c Start decay width for HL0->Z1SS + Z1SS if(fm8.ge.(fm46+fm46)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=2*(v4c2(4,1)*zs2+v4c2(3,1)*zs3)*(v4c2(2,1)*zs1-v4c2(1,1)* . zs4)*fi2(1)*fr2(1) cs1=(2*fr2(1)-1)*(v4c2(4,1)*zs2+v4c2(3,1)*zs3)*(v4c2(2,1)*zs1- . v4c2(1,1)*zs4) p2=0.5d0*dsqrt(fm8n2-4.d0*fm46n2) a=(-((4*fm46**2-fm8**2)*cs1**2-cs2**2*fm8**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm8**2*pi) pname(nf,n)="hl0->z1ss + z1ss" endif c Start decay width for HL0->Z1SS + Z2SS if(fm8.ge.(fm46+fm47)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=((((v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,2))*zs3+(v4c2(2,2)*zs1-v4c2(1,2)*zs4)* . v4c2(4,1)*zs2+(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,2)*zs2)*( . fi2(2)*fr2(1)+fi2(1)*fr2(2)))/2 cs1=(-(((v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,2))*zs3+(v4c2(2,2)*zs1-v4c2(1,2)*zs4)* . v4c2(4,1)*zs2+(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,2)*zs2)*( . fi2(2)*fi2(1)-fr2(2)*fr2(1)))/2 p2=plamda(fm8n2,fm46n2,fm47n2) a=(-(((fm46+2*fm47)*fm46+fm47**2-fm8**2)*cs1**2+((fm46-2*fm47)* . fm46+fm47**2-fm8**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm8**2*pi) pname(nf,n)="hl0->z1ss + z2ss" endif c Start decay width for HL0->Z1SS + Z3SS if(fm8.ge.(fm46+fm4)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=((((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,3))*zs3+(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,1)*zs2+(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,3)*zs2)*( . fi2(3)*fr2(1)+fi2(1)*fr2(3)))/2 cs1=(-(((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,3))*zs3+(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,1)*zs2+(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,3)*zs2)*( . fi2(3)*fi2(1)-fr2(3)*fr2(1)))/2 p2=plamda(fm8n2,fm46n2,fm4n2) a=(-(((fm4+2*fm46)*fm4+fm46**2-fm8**2)*cs1**2+((fm4-2*fm46)*fm4 . +fm46**2-fm8**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm8**2*pi) pname(nf,n)="hl0->z1ss + z3ss" endif c Start decay width for HL0->Z1SS + Z4SS if(fm8.ge.(fm46+fm10)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=((((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,4))*zs3+(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,1)*zs2+(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,4)*zs2)*( . fi2(4)*fr2(1)+fi2(1)*fr2(4)))/2 cs1=(-(((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,4))*zs3+(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,1)*zs2+(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,4)*zs2)*( . fi2(4)*fi2(1)-fr2(4)*fr2(1)))/2 p2=plamda(fm8n2,fm46n2,fm10n2) a=(-(((fm10+2*fm46)*fm10+fm46**2-fm8**2)*cs1**2+((fm10-2*fm46)* . fm10+fm46**2-fm8**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm8**2*pi) pname(nf,n)="hl0->z1ss + z4ss" endif c Start decay width for HL0->Z2SS + Z2SS if(fm8.ge.(fm47+fm47)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=2*(v4c2(4,2)*zs2+v4c2(3,2)*zs3)*(v4c2(2,2)*zs1-v4c2(1,2)* . zs4)*fi2(2)*fr2(2) cs1=(2*fr2(2)-1)*(v4c2(4,2)*zs2+v4c2(3,2)*zs3)*(v4c2(2,2)*zs1- . v4c2(1,2)*zs4) p2=0.5d0*dsqrt(fm8n2-4.d0*fm47n2) a=(-((4*fm47**2-fm8**2)*cs1**2-cs2**2*fm8**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm8**2*pi) pname(nf,n)="hl0->z2ss + z2ss" endif c Start decay width for HL0->Z2SS + Z3SS if(fm8.ge.(fm47+fm4)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=((((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,3))*zs3+(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,2)*zs2+(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,3)*zs2)*( . fi2(3)*fr2(2)+fi2(2)*fr2(3)))/2 cs1=(-(((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,3))*zs3+(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,2)*zs2+(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,3)*zs2)*( . fi2(3)*fi2(2)-fr2(3)*fr2(2)))/2 p2=plamda(fm8n2,fm47n2,fm4n2) a=(-(((fm4+2*fm47)*fm4+fm47**2-fm8**2)*cs1**2+((fm4-2*fm47)*fm4 . +fm47**2-fm8**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm8**2*pi) pname(nf,n)="hl0->z2ss + z3ss" endif c Start decay width for HL0->Z2SS + Z4SS if(fm8.ge.(fm47+fm10)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=((((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,4))*zs3+(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,2)*zs2+(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,4)*zs2)*( . fi2(4)*fr2(2)+fi2(2)*fr2(4)))/2 cs1=(-(((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,4))*zs3+(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,2)*zs2+(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,4)*zs2)*( . fi2(4)*fi2(2)-fr2(4)*fr2(2)))/2 p2=plamda(fm8n2,fm47n2,fm10n2) a=(-(((fm10+2*fm47)*fm10+fm47**2-fm8**2)*cs1**2+((fm10-2*fm47)* . fm10+fm47**2-fm8**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm8**2*pi) pname(nf,n)="hl0->z2ss + z4ss" endif c Start decay width for HL0->Z3SS + Z3SS if(fm8.ge.(fm4+fm4)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=2*(v4c2(4,3)*zs2+v4c2(3,3)*zs3)*(v4c2(2,3)*zs1-v4c2(1,3)* . zs4)*fi2(3)*fr2(3) cs1=(2*fr2(3)-1)*(v4c2(4,3)*zs2+v4c2(3,3)*zs3)*(v4c2(2,3)*zs1- . v4c2(1,3)*zs4) p2=0.5d0*dsqrt(fm8n2-4.d0*fm4n2) a=(-((4*fm4**2-fm8**2)*cs1**2-cs2**2*fm8**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm8**2*pi) pname(nf,n)="hl0->z3ss + z3ss" endif c Start decay width for HL0->Z3SS + Z4SS if(fm8.ge.(fm4+fm10)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=((((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,3)+(v4c2(2,3)*zs1- . v4c2(1,3)*zs4)*v4c2(3,4))*zs3+(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,3)*zs2+(v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(4,4)*zs2)*( . fi2(4)*fr2(3)+fi2(3)*fr2(4)))/2 cs1=(-(((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,3)+(v4c2(2,3)*zs1- . v4c2(1,3)*zs4)*v4c2(3,4))*zs3+(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,3)*zs2+(v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(4,4)*zs2)*( . fi2(4)*fi2(3)-fr2(4)*fr2(3)))/2 p2=plamda(fm8n2,fm4n2,fm10n2) a=(-(((fm10+2*fm4)*fm10+fm4**2-fm8**2)*cs1**2+((fm10-2*fm4)* . fm10+fm4**2-fm8**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm8**2*pi) pname(nf,n)="hl0->z3ss + z4ss" endif c Start decay width for HL0->Z4SS + Z4SS if(fm8.ge.(fm10+fm10)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=2*(v4c2(4,4)*zs2+v4c2(3,4)*zs3)*(v4c2(2,4)*zs1-v4c2(1,4)* . zs4)*fi2(4)*fr2(4) cs1=(2*fr2(4)-1)*(v4c2(4,4)*zs2+v4c2(3,4)*zs3)*(v4c2(2,4)*zs1- . v4c2(1,4)*zs4) p2=0.5d0*dsqrt(fm8n2-4.d0*fm10n2) a=(-((4*fm10**2-fm8**2)*cs1**2-cs2**2*fm8**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm8**2*pi) pname(nf,n)="hl0->z4ss + z4ss" endif decay_f4=pa_width(pa,nf,n,iflag,br0) return end function decay_f5(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=5 pa="sh22" c Start decay width for Z4SS->NUE + ANUEL if(fm10.ge.(0+fm13)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fi2(4))/4 cs1=(-(v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fr2(4))/4 p2=(fm10n2-fm13n2)/(2.d0*dsqrt(fm10n2)) a=(cs1**2+cs2**2)*(fm10**2-fm13**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->nue + anuel" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->anue + nuel" endif c Start decay width for Z4SS->E- + EL+ if(fm10.ge.(fme+fm14)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(v4c2(2,4)*zs1+v4c2(1,4)*zs2)*fi2(4))/4 cs1=(-dsqrt(2.d0)*(v4c2(2,4)*zs1+v4c2(1,4)*zs2)*fr2(4))/4 p2=plamda(fm10n2,fmen2,fm14n2) a=(cs1**2+cs2**2)*(fm10**2-fm14**2+fme**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->e- + el+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->e+ + el-" endif c Start decay width for Z4SS->E- + ER+ if(fm10.ge.(fme+fm23)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/2 cs3=(-dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/2 cs2=(-dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/2 cs1=(dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/2 p2=plamda(fm10n2,fmen2,fm23n2) a=(((fm10+2*fme)*fm10-(fm23**2-fme**2))*(cs1**2+cs2**2)+((fm10- . 2*fme)*fm10-(fm23**2-fme**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->e- + er+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->e+ + er-" endif c Start decay width for Z4SS->NUM + ANUML if(fm10.ge.(0+fm17)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fi2(4))/4 cs1=(-(v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fr2(4))/4 p2=(fm10n2-fm17n2)/(2.d0*dsqrt(fm10n2)) a=(cs1**2+cs2**2)*(fm10**2-fm17**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->num + anuml" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->anum + numl" endif c Start decay width for Z4SS->MU- + MUL+ if(fm10.ge.(fmmu+fm18)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(v4c2(2,4)*zs1+v4c2(1,4)*zs2)*fi2(4))/4 cs1=(-dsqrt(2.d0)*(v4c2(2,4)*zs1+v4c2(1,4)*zs2)*fr2(4))/4 p2=plamda(fm10n2,fmmun2,fm18n2) a=(cs1**2+cs2**2)*(fm10**2-fm18**2+fmmu**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->mu- + mul+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->mu+ + mul-" endif c Start decay width for Z4SS->MU- + MUR+ if(fm10.ge.(fmmu+fm24)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/2 cs3=(-dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/2 cs2=(-dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/2 cs1=(dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/2 p2=plamda(fm10n2,fmmun2,fm24n2) a=(((fm10+2*fmmu)*fm10-(fm24**2-fmmu**2))*(cs1**2+cs2**2)+(( . fm10-2*fmmu)*fm10-(fm24**2-fmmu**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->mu- + mur+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->mu+ + mur-" endif c Start decay width for Z4SS->NUT + ANUTL if(fm10.ge.(0+fm21)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fi2(4))/4 cs1=(-(v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fr2(4))/4 p2=(fm10n2-fm21n2)/(2.d0*dsqrt(fm10n2)) a=(cs1**2+cs2**2)*(fm10**2-fm21**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->nut + anutl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->anut + nutl" endif c Start decay width for Z4SS->TAU- + TAU1+ if(fm10.ge.(fm20+fm22)) then c0=-g zs5=dsin(v1c) zs4=dsin(theta) zs3=dcos(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,4)*zs4+v4c2(2,4)*zs2*zs3 . )*fm45*zs1-(zs3+zs5)*v4c2(3,4)*fm20)*fi2(4))/(4*fm45*zs1) cs3=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,4)*zs4+v4c2(2,4)*zs2*zs3 . )*fm45*zs1+(zs3-zs5)*v4c2(3,4)*fm20)*fr2(4))/(4*fm45*zs1) cs2=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,4)*zs4+v4c2(2,4)*zs2*zs3 . )*fm45*zs1+(zs3-zs5)*v4c2(3,4)*fm20)*fi2(4))/(4*fm45*zs1) cs1=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,4)*zs4+v4c2(2,4)*zs2*zs3 . )*fm45*zs1-(zs3+zs5)*v4c2(3,4)*fm20)*fr2(4))/(4*fm45*zs1) p2=plamda(fm10n2,fm20n2,fm22n2) a=(((fm10+2*fm20)*fm10+fm20**2-fm22**2)*(cs1**2+cs2**2)+((fm10- . 2*fm20)*fm10+fm20**2-fm22**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->tau- + tau1+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->tau+ + tau1-" endif c Start decay width for Z4SS->TAU- + TAU2+ if(fm10.ge.(fm20+fm25)) then c0=-g zs5=dsin(theta) zs4=dcos(v1c) zs3=dsin(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,4)*zs5+v4c2(2,4)*zs2*zs3 . )*fm45*zs1-(zs3-zs4)*v4c2(3,4)*fm20)*fi2(4))/(4*fm45*zs1) cs3=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,4)*zs5+v4c2(2,4)*zs2*zs3 . )*fm45*zs1+(zs3+zs4)*v4c2(3,4)*fm20)*fr2(4))/(4*fm45*zs1) cs2=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,4)*zs5+v4c2(2,4)*zs2*zs3 . )*fm45*zs1+(zs3+zs4)*v4c2(3,4)*fm20)*fi2(4))/(4*fm45*zs1) cs1=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,4)*zs5+v4c2(2,4)*zs2*zs3 . )*fm45*zs1-(zs3-zs4)*v4c2(3,4)*fm20)*fr2(4))/(4*fm45*zs1) p2=plamda(fm10n2,fm20n2,fm25n2) a=(((fm10+2*fm20)*fm10+fm20**2-fm25**2)*(cs1**2+cs2**2)+((fm10- . 2*fm20)*fm10+fm20**2-fm25**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->tau- + tau2+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->tau+ + tau2-" endif c Start decay width for Z4SS->UP + UBSSL if(fm10.ge.(fmu+fm28)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(3*v4c2(2,4)*zs1+v4c2(1,4)*zs2)*fi2(4))/12 cs1=(-dsqrt(2.d0)*(3*v4c2(2,4)*zs1+v4c2(1,4)*zs2)*fr2(4))/12 p2=plamda(fm10n2,fmun2,fm28n2) a=(cs1**2+cs2**2)*(fm10**2-fm28**2+fmu**2) n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm10**2*pi) pname(nf,n)="z4ss->up + ubssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->ub + upssl" endif c Start decay width for Z4SS->UP + UBSSR if(fm10.ge.(fmu+fm41)) then c0=-g zs1=dsin(theta) cs4=(-dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/3 cs3=(dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/3 cs2=(dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/3 cs1=(-dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/3 p2=plamda(fm10n2,fmun2,fm41n2) a=(((fm10+2*fmu)*fm10-(fm41**2-fmu**2))*(cs1**2+cs2**2)+((fm10- . 2*fmu)*fm10-(fm41**2-fmu**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm10**2*pi) pname(nf,n)="z4ss->up + ubssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->ub + upssr" endif c Start decay width for Z4SS->DN + DBSSL if(fm10.ge.(fmd+fm29)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(dsqrt(2.d0)*(3*v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fi2(4))/12 cs1=(dsqrt(2.d0)*(3*v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fr2(4))/12 p2=plamda(fm10n2,fmdn2,fm29n2) a=(cs1**2+cs2**2)*(fm10**2-fm29**2+fmd**2) n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm10**2*pi) pname(nf,n)="z4ss->dn + dbssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->db + dnssl" endif c Start decay width for Z4SS->DN + DBSSR if(fm10.ge.(fmd+fm38)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/6 cs3=(-dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/6 cs2=(-dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/6 cs1=(dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/6 p2=plamda(fm10n2,fmdn2,fm38n2) a=(((fm10+2*fmd)*fm10-(fm38**2-fmd**2))*(cs1**2+cs2**2)+((fm10- . 2*fmd)*fm10-(fm38**2-fmd**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm10**2*pi) pname(nf,n)="z4ss->dn + dbssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->db + dnssr" endif c Start decay width for Z4SS->CH + CBSSL if(fm10.ge.(fmc+fm32)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(3*v4c2(2,4)*zs1+v4c2(1,4)*zs2)*fi2(4))/12 cs1=(-dsqrt(2.d0)*(3*v4c2(2,4)*zs1+v4c2(1,4)*zs2)*fr2(4))/12 p2=plamda(fm10n2,fmcn2,fm32n2) a=(cs1**2+cs2**2)*(fm10**2-fm32**2+fmc**2) n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm10**2*pi) pname(nf,n)="z4ss->ch + cbssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->cb + chssl" endif c Start decay width for Z4SS->CH + CBSSR if(fm10.ge.(fmc+fm42)) then c0=-g zs1=dsin(theta) cs4=(-dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/3 cs3=(dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/3 cs2=(dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/3 cs1=(-dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/3 p2=plamda(fm10n2,fmcn2,fm42n2) a=(((fm10+2*fmc)*fm10-(fm42**2-fmc**2))*(cs1**2+cs2**2)+((fm10- . 2*fmc)*fm10-(fm42**2-fmc**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm10**2*pi) pname(nf,n)="z4ss->ch + cbssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->cb + chssr" endif c Start decay width for Z4SS->ST + SBSSL if(fm10.ge.(fms+fm33)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(dsqrt(2.d0)*(3*v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fi2(4))/12 cs1=(dsqrt(2.d0)*(3*v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fr2(4))/12 p2=plamda(fm10n2,fmsn2,fm33n2) a=(cs1**2+cs2**2)*(fm10**2-fm33**2+fms**2) n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm10**2*pi) pname(nf,n)="z4ss->st + sbssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->sb + stssl" endif c Start decay width for Z4SS->ST + SBSSR if(fm10.ge.(fms+fm39)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/6 cs3=(-dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/6 cs2=(-dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/6 cs1=(dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/6 p2=plamda(fm10n2,fmsn2,fm39n2) a=(((fm10+2*fms)*fm10-(fm39**2-fms**2))*(cs1**2+cs2**2)+((fm10- . 2*fms)*fm10-(fm39**2-fms**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm10**2*pi) pname(nf,n)="z4ss->st + sbssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->sb + stssr" endif c Start decay width for Z4SS->TP + TBSS1 if(fm10.ge.(fm34+fm36)) then c0=-g zs5=dsin(v4c) zs4=dsin(theta) zs3=dsin(beta1) zs2=dcos(v4c) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(((zs2-4*zs5)*v4c2(1,4)*zs4+3*v4c2(2,4)*zs1* . zs2)*fm45*zs3+3*(zs2-zs5)*v4c2(4,4)*fm34)*fi2(4))/(12*fm45*zs3 . ) cs3=(-dsqrt(2.d0)*(((zs2+4*zs5)*v4c2(1,4)*zs4+3*v4c2(2,4)*zs1* . zs2)*fm45*zs3-3*(zs2+zs5)*v4c2(4,4)*fm34)*fr2(4))/(12*fm45*zs3 . ) cs2=(-dsqrt(2.d0)*(((zs2+4*zs5)*v4c2(1,4)*zs4+3*v4c2(2,4)*zs1* . zs2)*fm45*zs3-3*(zs2+zs5)*v4c2(4,4)*fm34)*fi2(4))/(12*fm45*zs3 . ) cs1=(-dsqrt(2.d0)*(((zs2-4*zs5)*v4c2(1,4)*zs4+3*v4c2(2,4)*zs1* . zs2)*fm45*zs3+3*(zs2-zs5)*v4c2(4,4)*fm34)*fr2(4))/(12*fm45*zs3 . ) p2=plamda(fm10n2,fm34n2,fm36n2) a=(((fm10+2*fm34)*fm10+fm34**2-fm36**2)*(cs1**2+cs2**2)+((fm10- . 2*fm34)*fm10+fm34**2-fm36**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm10**2*pi) pname(nf,n)="z4ss->tp + tbss1" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->tb + tpss1" endif c Start decay width for Z4SS->TP + TBSS2 if(fm10.ge.(fm34+fm43)) then c0=-g zs5=dsin(theta) zs4=dcos(v4c) zs3=dsin(v4c) zs2=dsin(beta1) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(((zs3+4*zs4)*v4c2(1,4)*zs5+3*v4c2(2,4)*zs1* . zs3)*fm45*zs2+3*(zs3+zs4)*v4c2(4,4)*fm34)*fi2(4))/(12*fm45*zs2 . ) cs3=(-dsqrt(2.d0)*(((zs3-4*zs4)*v4c2(1,4)*zs5+3*v4c2(2,4)*zs1* . zs3)*fm45*zs2-3*(zs3-zs4)*v4c2(4,4)*fm34)*fr2(4))/(12*fm45*zs2 . ) cs2=(-dsqrt(2.d0)*(((zs3-4*zs4)*v4c2(1,4)*zs5+3*v4c2(2,4)*zs1* . zs3)*fm45*zs2-3*(zs3-zs4)*v4c2(4,4)*fm34)*fi2(4))/(12*fm45*zs2 . ) cs1=(-dsqrt(2.d0)*(((zs3+4*zs4)*v4c2(1,4)*zs5+3*v4c2(2,4)*zs1* . zs3)*fm45*zs2+3*(zs3+zs4)*v4c2(4,4)*fm34)*fr2(4))/(12*fm45*zs2 . ) p2=plamda(fm10n2,fm34n2,fm43n2) a=(((fm10+2*fm34)*fm10+fm34**2-fm43**2)*(cs1**2+cs2**2)+((fm10- . 2*fm34)*fm10+fm34**2-fm43**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm10**2*pi) pname(nf,n)="z4ss->tp + tbss2" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->tb + tpss2" endif c Start decay width for Z4SS->BT + BBSS1 if(fm10.ge.(fm35+fm37)) then c0=-g zs5=dsin(v3c) zs4=dsin(theta) zs3=dcos(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,4)*zs4-3*v4c2(2,4)*zs2* . zs3)*fm45*zs1+3*(zs3-zs5)*v4c2(3,4)*fm35)*fi2(4))/(12*fm45*zs1 . ) cs3=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,4)*zs4-3*v4c2(2,4)*zs2* . zs3)*fm45*zs1-3*(zs3+zs5)*v4c2(3,4)*fm35)*fr2(4))/(12*fm45*zs1 . ) cs2=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,4)*zs4-3*v4c2(2,4)*zs2* . zs3)*fm45*zs1-3*(zs3+zs5)*v4c2(3,4)*fm35)*fi2(4))/(12*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,4)*zs4-3*v4c2(2,4)*zs2* . zs3)*fm45*zs1+3*(zs3-zs5)*v4c2(3,4)*fm35)*fr2(4))/(12*fm45*zs1 . ) p2=plamda(fm10n2,fm35n2,fm37n2) a=(((fm10+2*fm35)*fm10+fm35**2-fm37**2)*(cs1**2+cs2**2)+((fm10- . 2*fm35)*fm10+fm35**2-fm37**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm10**2*pi) pname(nf,n)="z4ss->bt + bbss1" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->bb + btss1" endif c Start decay width for Z4SS->BT + BBSS2 if(fm10.ge.(fm35+fm40)) then c0=-g zs5=dsin(theta) zs4=dcos(v3c) zs3=dsin(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,4)*zs5-3*v4c2(2,4)*zs2* . zs3)*fm45*zs1+3*(zs3+zs4)*v4c2(3,4)*fm35)*fi2(4))/(12*fm45*zs1 . ) cs3=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,4)*zs5-3*v4c2(2,4)*zs2* . zs3)*fm45*zs1-3*(zs3-zs4)*v4c2(3,4)*fm35)*fr2(4))/(12*fm45*zs1 . ) cs2=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,4)*zs5-3*v4c2(2,4)*zs2* . zs3)*fm45*zs1-3*(zs3-zs4)*v4c2(3,4)*fm35)*fi2(4))/(12*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,4)*zs5-3*v4c2(2,4)*zs2* . zs3)*fm45*zs1+3*(zs3+zs4)*v4c2(3,4)*fm35)*fr2(4))/(12*fm45*zs1 . ) p2=plamda(fm10n2,fm35n2,fm40n2) a=(((fm10+2*fm35)*fm10+fm35**2-fm40**2)*(cs1**2+cs2**2)+((fm10- . 2*fm35)*fm10+fm35**2-fm40**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm10**2*pi) pname(nf,n)="z4ss->bt + bbss2" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->bb + btss2" endif c Start decay width for Z4SS->HL0 + Z1SS if(fm10.ge.(fm8+fm46)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=((((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,4))*zs3+(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,1)*zs2+(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,4)*zs2)*( . fi2(4)*fr2(1)+fi2(1)*fr2(4)))/2 cs1=(-(((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,4))*zs3+(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,1)*zs2+(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,4)*zs2)*( . fi2(4)*fi2(1)-fr2(4)*fr2(1)))/2 p2=plamda(fm10n2,fm8n2,fm46n2) a=(((fm10+2*fm46)*fm10+fm46**2-fm8**2)*cs1**2+((fm10-2*fm46)* . fm10+fm46**2-fm8**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->hl0 + z1ss" endif c Start decay width for Z4SS->HL0 + Z2SS if(fm10.ge.(fm8+fm47)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=((((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,4))*zs3+(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,2)*zs2+(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,4)*zs2)*( . fi2(4)*fr2(2)+fi2(2)*fr2(4)))/2 cs1=(-(((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,4))*zs3+(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,2)*zs2+(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,4)*zs2)*( . fi2(4)*fi2(2)-fr2(4)*fr2(2)))/2 p2=plamda(fm10n2,fm8n2,fm47n2) a=(((fm10+2*fm47)*fm10+fm47**2-fm8**2)*cs1**2+((fm10-2*fm47)* . fm10+fm47**2-fm8**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->hl0 + z2ss" endif c Start decay width for Z4SS->HL0 + Z3SS if(fm10.ge.(fm8+fm4)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=((((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,3)+(v4c2(2,3)*zs1- . v4c2(1,3)*zs4)*v4c2(3,4))*zs3+(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,3)*zs2+(v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(4,4)*zs2)*( . fi2(4)*fr2(3)+fi2(3)*fr2(4)))/2 cs1=(-(((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,3)+(v4c2(2,3)*zs1- . v4c2(1,3)*zs4)*v4c2(3,4))*zs3+(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,3)*zs2+(v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(4,4)*zs2)*( . fi2(4)*fi2(3)-fr2(4)*fr2(3)))/2 p2=plamda(fm10n2,fm8n2,fm4n2) a=(((fm10+2*fm4)*fm10+fm4**2-fm8**2)*cs1**2+((fm10-2*fm4)*fm10+ . fm4**2-fm8**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->hl0 + z3ss" endif c Start decay width for Z4SS->HH0 + Z1SS if(fm10.ge.(fm2+fm46)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-(((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,4))*zs2-(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,1)*zs3-(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,4)*zs3)*( . fi2(4)*fr2(1)+fi2(1)*fr2(4)))/2 cs1=((((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,4))*zs2-(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,1)*zs3-(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,4)*zs3)*( . fi2(4)*fi2(1)-fr2(4)*fr2(1)))/2 p2=plamda(fm10n2,fm2n2,fm46n2) a=(((fm10+2*fm46)*fm10-(fm2**2-fm46**2))*cs1**2+((fm10-2*fm46)* . fm10-(fm2**2-fm46**2))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->hh0 + z1ss" endif c Start decay width for Z4SS->HH0 + Z2SS if(fm10.ge.(fm2+fm47)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-(((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,4))*zs2-(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,2)*zs3-(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,4)*zs3)*( . fi2(4)*fr2(2)+fi2(2)*fr2(4)))/2 cs1=((((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,4))*zs2-(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,2)*zs3-(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,4)*zs3)*( . fi2(4)*fi2(2)-fr2(4)*fr2(2)))/2 p2=plamda(fm10n2,fm2n2,fm47n2) a=(((fm10+2*fm47)*fm10-(fm2**2-fm47**2))*cs1**2+((fm10-2*fm47)* . fm10-(fm2**2-fm47**2))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->hh0 + z2ss" endif c Start decay width for Z4SS->HH0 + Z3SS if(fm10.ge.(fm2+fm4)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-(((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,3)+(v4c2(2,3)*zs1- . v4c2(1,3)*zs4)*v4c2(3,4))*zs2-(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,3)*zs3-(v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(4,4)*zs3)*( . fi2(4)*fr2(3)+fi2(3)*fr2(4)))/2 cs1=((((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,3)+(v4c2(2,3)*zs1- . v4c2(1,3)*zs4)*v4c2(3,4))*zs2-(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,3)*zs3-(v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(4,4)*zs3)*( . fi2(4)*fi2(3)-fr2(4)*fr2(3)))/2 p2=plamda(fm10n2,fm2n2,fm4n2) a=(((fm10+2*fm4)*fm10-(fm2**2-fm4**2))*cs1**2+((fm10-2*fm4)* . fm10-(fm2**2-fm4**2))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->hh0 + z3ss" endif c Start decay width for Z4SS->H- + W1SS+ if(fm10.ge.(fm3+fm49)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(1)*v4c2(4,4)*zs1*zs3+v4c2(3,4)*zs6*zs7)*fi2(4)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fi2(4))/4 cs3=(-2*(fn1(1)*v4c2(4,4)*zs1*zs3-v4c2(3,4)*zs6*zs7)*fr2(4)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fr2(4))/4 cs2=(-2*(fn1(1)*v4c2(4,4)*zs1*zs3-v4c2(3,4)*zs6*zs7)*fi2(4)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fi2(4))/4 cs1=(-2*(fn1(1)*v4c2(4,4)*zs1*zs3+v4c2(3,4)*zs6*zs7)*fr2(4)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fr2(4))/4 p2=plamda(fm10n2,fm3n2,fm49n2) a=(((fm10+2*fm49)*fm10-(fm3**2-fm49**2))*(cs1**2+cs2**2)+((fm10 . -2*fm49)*fm10-(fm3**2-fm49**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->h- + w1ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->h+ + w1ss-" endif c Start decay width for Z4SS->H- + W2SS+ if(fm10.ge.(fm3+fm52)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(2)*v4c2(4,4)*zs1*zs4+v4c2(3,4)*zs7*zs8)*fi2(4)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fi2(4))/4 cs3=(-2*(fn1(2)*v4c2(4,4)*zs1*zs4-v4c2(3,4)*zs7*zs8)*fr2(4)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fr2(4))/4 cs2=(-2*(fn1(2)*v4c2(4,4)*zs1*zs4-v4c2(3,4)*zs7*zs8)*fi2(4)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fi2(4))/4 cs1=(-2*(fn1(2)*v4c2(4,4)*zs1*zs4+v4c2(3,4)*zs7*zs8)*fr2(4)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fr2(4))/4 p2=plamda(fm10n2,fm3n2,fm52n2) a=(((fm10+2*fm52)*fm10-(fm3**2-fm52**2))*(cs1**2+cs2**2)+((fm10 . -2*fm52)*fm10-(fm3**2-fm52**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->h- + w2ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->h+ + w2ss-" endif c Start decay width for Z4SS->HA0 + Z1SS if(fm10.ge.(fm6+fm46)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-(((v4c2(2,4)*zs2-v4c2(1,4)*zs3)*v4c2(3,1)+(v4c2(2,1)*zs2- . v4c2(1,1)*zs3)*v4c2(3,4))*zs4-(v4c2(2,4)*zs2-v4c2(1,4)*zs3)* . v4c2(4,1)*zs1-(v4c2(2,1)*zs2-v4c2(1,1)*zs3)*v4c2(4,4)*zs1)*( . fi2(4)*fi2(1)-fr2(4)*fr2(1)))/2 cs1=(-(((v4c2(2,4)*zs2-v4c2(1,4)*zs3)*v4c2(3,1)+(v4c2(2,1)*zs2- . v4c2(1,1)*zs3)*v4c2(3,4))*zs4-(v4c2(2,4)*zs2-v4c2(1,4)*zs3)* . v4c2(4,1)*zs1-(v4c2(2,1)*zs2-v4c2(1,1)*zs3)*v4c2(4,4)*zs1)*( . fi2(4)*fr2(1)+fi2(1)*fr2(4)))/2 p2=plamda(fm10n2,fm6n2,fm46n2) a=(((fm10+2*fm46)*fm10+fm46**2-fm6**2)*cs1**2+((fm10-2*fm46)* . fm10+fm46**2-fm6**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->ha0 + z1ss" endif c Start decay width for Z4SS->HA0 + Z2SS if(fm10.ge.(fm6+fm47)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-(((v4c2(2,4)*zs2-v4c2(1,4)*zs3)*v4c2(3,2)+(v4c2(2,2)*zs2- . v4c2(1,2)*zs3)*v4c2(3,4))*zs4-(v4c2(2,4)*zs2-v4c2(1,4)*zs3)* . v4c2(4,2)*zs1-(v4c2(2,2)*zs2-v4c2(1,2)*zs3)*v4c2(4,4)*zs1)*( . fi2(4)*fi2(2)-fr2(4)*fr2(2)))/2 cs1=(-(((v4c2(2,4)*zs2-v4c2(1,4)*zs3)*v4c2(3,2)+(v4c2(2,2)*zs2- . v4c2(1,2)*zs3)*v4c2(3,4))*zs4-(v4c2(2,4)*zs2-v4c2(1,4)*zs3)* . v4c2(4,2)*zs1-(v4c2(2,2)*zs2-v4c2(1,2)*zs3)*v4c2(4,4)*zs1)*( . fi2(4)*fr2(2)+fi2(2)*fr2(4)))/2 p2=plamda(fm10n2,fm6n2,fm47n2) a=(((fm10+2*fm47)*fm10+fm47**2-fm6**2)*cs1**2+((fm10-2*fm47)* . fm10+fm47**2-fm6**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->ha0 + z2ss" endif c Start decay width for Z4SS->HA0 + Z3SS if(fm10.ge.(fm6+fm4)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-(((v4c2(2,4)*zs2-v4c2(1,4)*zs3)*v4c2(3,3)+(v4c2(2,3)*zs2- . v4c2(1,3)*zs3)*v4c2(3,4))*zs4-(v4c2(2,4)*zs2-v4c2(1,4)*zs3)* . v4c2(4,3)*zs1-(v4c2(2,3)*zs2-v4c2(1,3)*zs3)*v4c2(4,4)*zs1)*( . fi2(4)*fi2(3)-fr2(4)*fr2(3)))/2 cs1=(-(((v4c2(2,4)*zs2-v4c2(1,4)*zs3)*v4c2(3,3)+(v4c2(2,3)*zs2- . v4c2(1,3)*zs3)*v4c2(3,4))*zs4-(v4c2(2,4)*zs2-v4c2(1,4)*zs3)* . v4c2(4,3)*zs1-(v4c2(2,3)*zs2-v4c2(1,3)*zs3)*v4c2(4,4)*zs1)*( . fi2(4)*fr2(3)+fi2(3)*fr2(4)))/2 p2=plamda(fm10n2,fm6n2,fm4n2) a=(((fm10+2*fm4)*fm10+fm4**2-fm6**2)*cs1**2+((fm10-2*fm4)*fm10+ . fm4**2-fm6**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->ha0 + z3ss" endif c Start decay width for Z4SS->Z0 + Z1SS if(fm10.ge.(fm45+fm46)) then c0=-g cs2=((fi2(4)*fi2(1)+fr2(4)*fr2(1))*(v4c2(4,4)*v4c2(4,1)-v4c2(3, . 4)*v4c2(3,1)))/2 cs1=((fi2(4)*fr2(1)-fi2(1)*fr2(4))*(v4c2(4,4)*v4c2(4,1)-v4c2(3, . 4)*v4c2(3,1)))/2 p2=plamda(fm10n2,fm45n2,fm46n2) a=((((fm10**3+2*fm45**2*fm46)*fm10-(fm45**2-fm46**2)*fm46**2-( . fm45**2+2*fm46**2)*fm10**2)*dfm45n2+2*((fm10-4*fm46)*fm10-( . fm45**2-fm46**2)))*cs1**2+(((fm10**3-2*fm45**2*fm46)*fm10-( . fm45**2-fm46**2)*fm46**2-(fm45**2+2*fm46**2)*fm10**2)*dfm45n2+ . 2*((fm10+4*fm46)*fm10-(fm45**2-fm46**2)))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->z0 + z1ss" endif c Start decay width for Z4SS->Z0 + Z2SS if(fm10.ge.(fm45+fm47)) then c0=-g cs2=((fi2(4)*fi2(2)+fr2(4)*fr2(2))*(v4c2(4,4)*v4c2(4,2)-v4c2(3, . 4)*v4c2(3,2)))/2 cs1=((fi2(4)*fr2(2)-fi2(2)*fr2(4))*(v4c2(4,4)*v4c2(4,2)-v4c2(3, . 4)*v4c2(3,2)))/2 p2=plamda(fm10n2,fm45n2,fm47n2) a=((((fm10**3+2*fm45**2*fm47)*fm10-(fm45**2-fm47**2)*fm47**2-( . fm45**2+2*fm47**2)*fm10**2)*dfm45n2+2*((fm10-4*fm47)*fm10-( . fm45**2-fm47**2)))*cs1**2+(((fm10**3-2*fm45**2*fm47)*fm10-( . fm45**2-fm47**2)*fm47**2-(fm45**2+2*fm47**2)*fm10**2)*dfm45n2+ . 2*((fm10+4*fm47)*fm10-(fm45**2-fm47**2)))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->z0 + z2ss" endif c Start decay width for Z4SS->Z0 + Z3SS if(fm10.ge.(fm45+fm4)) then c0=-g cs2=((fi2(4)*fi2(3)+fr2(4)*fr2(3))*(v4c2(4,4)*v4c2(4,3)-v4c2(3, . 4)*v4c2(3,3)))/2 cs1=((fi2(4)*fr2(3)-fi2(3)*fr2(4))*(v4c2(4,4)*v4c2(4,3)-v4c2(3, . 4)*v4c2(3,3)))/2 p2=plamda(fm10n2,fm45n2,fm4n2) a=((((fm10**3+2*fm4*fm45**2)*fm10+(fm4**2-fm45**2)*fm4**2-(2* . fm4**2+fm45**2)*fm10**2)*dfm45n2+2*((fm10-4*fm4)*fm10+fm4**2- . fm45**2))*cs1**2+(((fm10**3-2*fm4*fm45**2)*fm10+(fm4**2-fm45** . 2)*fm4**2-(2*fm4**2+fm45**2)*fm10**2)*dfm45n2+2*((fm10+4*fm4)* . fm10+fm4**2-fm45**2))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->z0 + z3ss" endif c Start decay width for Z4SS->W- + W1SS+ if(fm10.ge.(fm48+fm49)) then c0=-g zs5=dsin(v6c) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(v6c) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(fn1(1)*v4c2(4,4)*zs4-v4c2(3,4)*zs5)*fi2(4)* . zs1-2*(fn1(1)*zs3+zs2)*fi2(4)*v4c2(2,4)*zs1)/4 cs3=(dsqrt(2.d0)*(fn1(1)*v4c2(4,4)*zs4+v4c2(3,4)*zs5)*fr2(4)* . zs1+2*(fn1(1)*zs3-zs2)*fr2(4)*v4c2(2,4)*zs1)/4 cs2=(-dsqrt(2.d0)*(fn1(1)*v4c2(4,4)*zs4+v4c2(3,4)*zs5)*fi2(4)* . zs1-2*(fn1(1)*zs3-zs2)*fi2(4)*v4c2(2,4)*zs1)/4 cs1=(dsqrt(2.d0)*(fn1(1)*v4c2(4,4)*zs4-v4c2(3,4)*zs5)*fr2(4)* . zs1+2*(fn1(1)*zs3+zs2)*fr2(4)*v4c2(2,4)*zs1)/4 p2=plamda(fm10n2,fm48n2,fm49n2) ans=((((fm10**3+2*fm48**2*fm49)*fm10-(fm48**2-fm49**2)*fm49**2- . (fm48**2+2*fm49**2)*fm10**2)*dfm48n2+2*((fm10-4*fm49)*fm10-( . fm48**2-fm49**2)))*(cs1**2+cs2**2)+(((fm10**3-2*fm48**2*fm49)* . fm10-(fm48**2-fm49**2)*fm49**2-(fm48**2+2*fm49**2)*fm10**2)* . dfm48n2+2*((fm10+4*fm49)*fm10-(fm48**2-fm49**2)))*(cs3**2+cs4 . **2))/2 a=ans n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->w- + w1ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->w+ + w1ss-" endif c Start decay width for Z4SS->W- + W2SS+ if(fm10.ge.(fm48+fm52)) then c0=-g zs5=dsin(v6c) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(v6c) zs1=dcos(theta) cs4=(dsqrt(2.d0)*(fn1(2)*v4c2(4,4)*zs3-v4c2(3,4)*zs2)*fi2(4)* . zs1-2*(fn1(2)*zs4+zs5)*fi2(4)*v4c2(2,4)*zs1)/4 cs3=(-dsqrt(2.d0)*(fn1(2)*v4c2(4,4)*zs3+v4c2(3,4)*zs2)*fr2(4)* . zs1+2*(fn1(2)*zs4-zs5)*fr2(4)*v4c2(2,4)*zs1)/4 cs2=(dsqrt(2.d0)*(fn1(2)*v4c2(4,4)*zs3+v4c2(3,4)*zs2)*fi2(4)* . zs1-2*(fn1(2)*zs4-zs5)*fi2(4)*v4c2(2,4)*zs1)/4 cs1=(-dsqrt(2.d0)*(fn1(2)*v4c2(4,4)*zs3-v4c2(3,4)*zs2)*fr2(4)* . zs1+2*(fn1(2)*zs4+zs5)*fr2(4)*v4c2(2,4)*zs1)/4 p2=plamda(fm10n2,fm48n2,fm52n2) ans=((((fm10**3+2*fm48**2*fm52)*fm10-(fm48**2-fm52**2)*fm52**2- . (fm48**2+2*fm52**2)*fm10**2)*dfm48n2+2*((fm10-4*fm52)*fm10-( . fm48**2-fm52**2)))*(cs1**2+cs2**2)+(((fm10**3-2*fm48**2*fm52)* . fm10-(fm48**2-fm52**2)*fm52**2-(fm48**2+2*fm52**2)*fm10**2)* . dfm48n2+2*((fm10+4*fm52)*fm10-(fm48**2-fm52**2)))*(cs3**2+cs4 . **2))/2 a=ans n=n+1 width(nf,n)=c0**2*a*p2/(4*fm10**2*pi) pname(nf,n)="z4ss->w- + w2ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z4ss->w+ + w2ss-" endif decay_f5=pa_width(pa,nf,n,iflag,br0) return end function decay_f6(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=6 pa="sh11" c Start decay width for Z3SS->NUE + ANUEL if(fm4.ge.(0+fm13)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fi2(3))/4 cs1=(-(v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fr2(3))/4 p2=(-(fm13n2-fm4n2))/(2.d0*dsqrt(fm4n2)) a=-(cs1**2+cs2**2)*(fm13**2-fm4**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->nue + anuel" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->anue + nuel" endif c Start decay width for Z3SS->E- + EL+ if(fm4.ge.(fme+fm14)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(v4c2(2,3)*zs1+v4c2(1,3)*zs2)*fi2(3))/4 cs1=(-dsqrt(2.d0)*(v4c2(2,3)*zs1+v4c2(1,3)*zs2)*fr2(3))/4 p2=plamda(fm4n2,fmen2,fm14n2) a=-(cs1**2+cs2**2)*(fm14**2-fm4**2-fme**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->e- + el+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->e+ + el-" endif c Start decay width for Z3SS->E- + ER+ if(fm4.ge.(fme+fm23)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/2 cs3=(-dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/2 cs2=(-dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/2 cs1=(dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/2 p2=plamda(fm4n2,fmen2,fm23n2) a=((fm4**2+2*fm4*fme+fme**2-fm23**2)*(cs1**2+cs2**2)+(fm4**2-2* . fm4*fme+fme**2-fm23**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->e- + er+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->e+ + er-" endif c Start decay width for Z3SS->NUM + ANUML if(fm4.ge.(0+fm17)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fi2(3))/4 cs1=(-(v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fr2(3))/4 p2=(-(fm17n2-fm4n2))/(2.d0*dsqrt(fm4n2)) a=-(cs1**2+cs2**2)*(fm17**2-fm4**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->num + anuml" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->anum + numl" endif c Start decay width for Z3SS->MU- + MUL+ if(fm4.ge.(fmmu+fm18)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(v4c2(2,3)*zs1+v4c2(1,3)*zs2)*fi2(3))/4 cs1=(-dsqrt(2.d0)*(v4c2(2,3)*zs1+v4c2(1,3)*zs2)*fr2(3))/4 p2=plamda(fm4n2,fmmun2,fm18n2) a=-(cs1**2+cs2**2)*(fm18**2-fm4**2-fmmu**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->mu- + mul+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->mu+ + mul-" endif c Start decay width for Z3SS->MU- + MUR+ if(fm4.ge.(fmmu+fm24)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/2 cs3=(-dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/2 cs2=(-dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/2 cs1=(dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/2 p2=plamda(fm4n2,fmmun2,fm24n2) a=((fm4**2+2*fm4*fmmu+fmmu**2-fm24**2)*(cs1**2+cs2**2)+(fm4**2- . 2*fm4*fmmu+fmmu**2-fm24**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->mu- + mur+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->mu+ + mur-" endif c Start decay width for Z3SS->NUT + ANUTL if(fm4.ge.(0+fm21)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fi2(3))/4 cs1=(-(v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fr2(3))/4 p2=(-(fm21n2-fm4n2))/(2.d0*dsqrt(fm4n2)) a=-(cs1**2+cs2**2)*(fm21**2-fm4**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->nut + anutl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->anut + nutl" endif c Start decay width for Z3SS->TAU- + TAU1+ if(fm4.ge.(fm20+fm22)) then c0=-g zs5=dsin(v1c) zs4=dsin(theta) zs3=dcos(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,3)*zs4+v4c2(2,3)*zs2*zs3 . )*fm45*zs1-(zs3+zs5)*v4c2(3,3)*fm20)*fi2(3))/(4*fm45*zs1) cs3=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,3)*zs4+v4c2(2,3)*zs2*zs3 . )*fm45*zs1+(zs3-zs5)*v4c2(3,3)*fm20)*fr2(3))/(4*fm45*zs1) cs2=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,3)*zs4+v4c2(2,3)*zs2*zs3 . )*fm45*zs1+(zs3-zs5)*v4c2(3,3)*fm20)*fi2(3))/(4*fm45*zs1) cs1=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,3)*zs4+v4c2(2,3)*zs2*zs3 . )*fm45*zs1-(zs3+zs5)*v4c2(3,3)*fm20)*fr2(3))/(4*fm45*zs1) p2=plamda(fm4n2,fm20n2,fm22n2) a=(((fm20+2*fm4)*fm20-(fm22**2-fm4**2))*(cs1**2+cs2**2)+((fm20- . 2*fm4)*fm20-(fm22**2-fm4**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->tau- + tau1+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->tau+ + tau1-" endif c Start decay width for Z3SS->TAU- + TAU2+ if(fm4.ge.(fm20+fm25)) then c0=-g zs5=dsin(theta) zs4=dcos(v1c) zs3=dsin(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,3)*zs5+v4c2(2,3)*zs2*zs3 . )*fm45*zs1-(zs3-zs4)*v4c2(3,3)*fm20)*fi2(3))/(4*fm45*zs1) cs3=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,3)*zs5+v4c2(2,3)*zs2*zs3 . )*fm45*zs1+(zs3+zs4)*v4c2(3,3)*fm20)*fr2(3))/(4*fm45*zs1) cs2=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,3)*zs5+v4c2(2,3)*zs2*zs3 . )*fm45*zs1+(zs3+zs4)*v4c2(3,3)*fm20)*fi2(3))/(4*fm45*zs1) cs1=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,3)*zs5+v4c2(2,3)*zs2*zs3 . )*fm45*zs1-(zs3-zs4)*v4c2(3,3)*fm20)*fr2(3))/(4*fm45*zs1) p2=plamda(fm4n2,fm20n2,fm25n2) a=(((fm20+2*fm4)*fm20-(fm25**2-fm4**2))*(cs1**2+cs2**2)+((fm20- . 2*fm4)*fm20-(fm25**2-fm4**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->tau- + tau2+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->tau+ + tau2-" endif c Start decay width for Z3SS->UP + UBSSL if(fm4.ge.(fmu+fm28)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(3*v4c2(2,3)*zs1+v4c2(1,3)*zs2)*fi2(3))/12 cs1=(-dsqrt(2.d0)*(3*v4c2(2,3)*zs1+v4c2(1,3)*zs2)*fr2(3))/12 p2=plamda(fm4n2,fmun2,fm28n2) a=-(cs1**2+cs2**2)*(fm28**2-fm4**2-fmu**2) n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm4**2*pi) pname(nf,n)="z3ss->up + ubssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->ub + upssl" endif c Start decay width for Z3SS->UP + UBSSR if(fm4.ge.(fmu+fm41)) then c0=-g zs1=dsin(theta) cs4=(-dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/3 cs3=(dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/3 cs2=(dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/3 cs1=(-dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/3 p2=plamda(fm4n2,fmun2,fm41n2) a=(((fm4+2*fmu)*fm4-(fm41**2-fmu**2))*(cs1**2+cs2**2)+((fm4-2* . fmu)*fm4-(fm41**2-fmu**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm4**2*pi) pname(nf,n)="z3ss->up + ubssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->ub + upssr" endif c Start decay width for Z3SS->DN + DBSSL if(fm4.ge.(fmd+fm29)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(dsqrt(2.d0)*(3*v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fi2(3))/12 cs1=(dsqrt(2.d0)*(3*v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fr2(3))/12 p2=plamda(fm4n2,fmdn2,fm29n2) a=-(cs1**2+cs2**2)*(fm29**2-fm4**2-fmd**2) n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm4**2*pi) pname(nf,n)="z3ss->dn + dbssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->db + dnssl" endif c Start decay width for Z3SS->DN + DBSSR if(fm4.ge.(fmd+fm38)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/6 cs3=(-dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/6 cs2=(-dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/6 cs1=(dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/6 p2=plamda(fm4n2,fmdn2,fm38n2) a=((fm4**2+2*fm4*fmd+fmd**2-fm38**2)*(cs1**2+cs2**2)+(fm4**2-2* . fm4*fmd+fmd**2-fm38**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm4**2*pi) pname(nf,n)="z3ss->dn + dbssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->db + dnssr" endif c Start decay width for Z3SS->CH + CBSSL if(fm4.ge.(fmc+fm32)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(3*v4c2(2,3)*zs1+v4c2(1,3)*zs2)*fi2(3))/12 cs1=(-dsqrt(2.d0)*(3*v4c2(2,3)*zs1+v4c2(1,3)*zs2)*fr2(3))/12 p2=plamda(fm4n2,fmcn2,fm32n2) a=-(cs1**2+cs2**2)*(fm32**2-fm4**2-fmc**2) n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm4**2*pi) pname(nf,n)="z3ss->ch + cbssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->cb + chssl" endif c Start decay width for Z3SS->CH + CBSSR if(fm4.ge.(fmc+fm42)) then c0=-g zs1=dsin(theta) cs4=(-dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/3 cs3=(dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/3 cs2=(dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/3 cs1=(-dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/3 p2=plamda(fm4n2,fmcn2,fm42n2) a=(((fm4+2*fmc)*fm4-(fm42**2-fmc**2))*(cs1**2+cs2**2)+((fm4-2* . fmc)*fm4-(fm42**2-fmc**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm4**2*pi) pname(nf,n)="z3ss->ch + cbssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->cb + chssr" endif c Start decay width for Z3SS->ST + SBSSL if(fm4.ge.(fms+fm33)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(dsqrt(2.d0)*(3*v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fi2(3))/12 cs1=(dsqrt(2.d0)*(3*v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fr2(3))/12 p2=plamda(fm4n2,fmsn2,fm33n2) a=-(cs1**2+cs2**2)*(fm33**2-fm4**2-fms**2) n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm4**2*pi) pname(nf,n)="z3ss->st + sbssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->sb + stssl" endif c Start decay width for Z3SS->ST + SBSSR if(fm4.ge.(fms+fm39)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/6 cs3=(-dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/6 cs2=(-dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/6 cs1=(dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/6 p2=plamda(fm4n2,fmsn2,fm39n2) a=((fm4**2+2*fm4*fms+fms**2-fm39**2)*(cs1**2+cs2**2)+(fm4**2-2* . fm4*fms+fms**2-fm39**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm4**2*pi) pname(nf,n)="z3ss->st + sbssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->sb + stssr" endif c Start decay width for Z3SS->TP + TBSS1 if(fm4.ge.(fm34+fm36)) then c0=-g zs5=dsin(v4c) zs4=dsin(theta) zs3=dsin(beta1) zs2=dcos(v4c) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(((zs2-4*zs5)*v4c2(1,3)*zs4+3*v4c2(2,3)*zs1* . zs2)*fm45*zs3+3*(zs2-zs5)*v4c2(4,3)*fm34)*fi2(3))/(12*fm45*zs3 . ) cs3=(-dsqrt(2.d0)*(((zs2+4*zs5)*v4c2(1,3)*zs4+3*v4c2(2,3)*zs1* . zs2)*fm45*zs3-3*(zs2+zs5)*v4c2(4,3)*fm34)*fr2(3))/(12*fm45*zs3 . ) cs2=(-dsqrt(2.d0)*(((zs2+4*zs5)*v4c2(1,3)*zs4+3*v4c2(2,3)*zs1* . zs2)*fm45*zs3-3*(zs2+zs5)*v4c2(4,3)*fm34)*fi2(3))/(12*fm45*zs3 . ) cs1=(-dsqrt(2.d0)*(((zs2-4*zs5)*v4c2(1,3)*zs4+3*v4c2(2,3)*zs1* . zs2)*fm45*zs3+3*(zs2-zs5)*v4c2(4,3)*fm34)*fr2(3))/(12*fm45*zs3 . ) p2=plamda(fm4n2,fm34n2,fm36n2) a=(((fm34+2*fm4)*fm34-(fm36**2-fm4**2))*(cs1**2+cs2**2)+((fm34- . 2*fm4)*fm34-(fm36**2-fm4**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm4**2*pi) pname(nf,n)="z3ss->tp + tbss1" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->tb + tpss1" endif c Start decay width for Z3SS->TP + TBSS2 if(fm4.ge.(fm34+fm43)) then c0=-g zs5=dsin(theta) zs4=dcos(v4c) zs3=dsin(v4c) zs2=dsin(beta1) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(((zs3+4*zs4)*v4c2(1,3)*zs5+3*v4c2(2,3)*zs1* . zs3)*fm45*zs2+3*(zs3+zs4)*v4c2(4,3)*fm34)*fi2(3))/(12*fm45*zs2 . ) cs3=(-dsqrt(2.d0)*(((zs3-4*zs4)*v4c2(1,3)*zs5+3*v4c2(2,3)*zs1* . zs3)*fm45*zs2-3*(zs3-zs4)*v4c2(4,3)*fm34)*fr2(3))/(12*fm45*zs2 . ) cs2=(-dsqrt(2.d0)*(((zs3-4*zs4)*v4c2(1,3)*zs5+3*v4c2(2,3)*zs1* . zs3)*fm45*zs2-3*(zs3-zs4)*v4c2(4,3)*fm34)*fi2(3))/(12*fm45*zs2 . ) cs1=(-dsqrt(2.d0)*(((zs3+4*zs4)*v4c2(1,3)*zs5+3*v4c2(2,3)*zs1* . zs3)*fm45*zs2+3*(zs3+zs4)*v4c2(4,3)*fm34)*fr2(3))/(12*fm45*zs2 . ) p2=plamda(fm4n2,fm34n2,fm43n2) a=(((fm34+2*fm4)*fm34+fm4**2-fm43**2)*(cs1**2+cs2**2)+((fm34-2* . fm4)*fm34+fm4**2-fm43**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm4**2*pi) pname(nf,n)="z3ss->tp + tbss2" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->tb + tpss2" endif c Start decay width for Z3SS->BT + BBSS1 if(fm4.ge.(fm35+fm37)) then c0=-g zs5=dsin(v3c) zs4=dsin(theta) zs3=dcos(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,3)*zs4-3*v4c2(2,3)*zs2* . zs3)*fm45*zs1+3*(zs3-zs5)*v4c2(3,3)*fm35)*fi2(3))/(12*fm45*zs1 . ) cs3=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,3)*zs4-3*v4c2(2,3)*zs2* . zs3)*fm45*zs1-3*(zs3+zs5)*v4c2(3,3)*fm35)*fr2(3))/(12*fm45*zs1 . ) cs2=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,3)*zs4-3*v4c2(2,3)*zs2* . zs3)*fm45*zs1-3*(zs3+zs5)*v4c2(3,3)*fm35)*fi2(3))/(12*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,3)*zs4-3*v4c2(2,3)*zs2* . zs3)*fm45*zs1+3*(zs3-zs5)*v4c2(3,3)*fm35)*fr2(3))/(12*fm45*zs1 . ) p2=plamda(fm4n2,fm35n2,fm37n2) a=(((fm35+2*fm4)*fm35-(fm37**2-fm4**2))*(cs1**2+cs2**2)+((fm35- . 2*fm4)*fm35-(fm37**2-fm4**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm4**2*pi) pname(nf,n)="z3ss->bt + bbss1" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->bb + btss1" endif c Start decay width for Z3SS->BT + BBSS2 if(fm4.ge.(fm35+fm40)) then c0=-g zs5=dsin(theta) zs4=dcos(v3c) zs3=dsin(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,3)*zs5-3*v4c2(2,3)*zs2* . zs3)*fm45*zs1+3*(zs3+zs4)*v4c2(3,3)*fm35)*fi2(3))/(12*fm45*zs1 . ) cs3=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,3)*zs5-3*v4c2(2,3)*zs2* . zs3)*fm45*zs1-3*(zs3-zs4)*v4c2(3,3)*fm35)*fr2(3))/(12*fm45*zs1 . ) cs2=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,3)*zs5-3*v4c2(2,3)*zs2* . zs3)*fm45*zs1-3*(zs3-zs4)*v4c2(3,3)*fm35)*fi2(3))/(12*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,3)*zs5-3*v4c2(2,3)*zs2* . zs3)*fm45*zs1+3*(zs3+zs4)*v4c2(3,3)*fm35)*fr2(3))/(12*fm45*zs1 . ) p2=plamda(fm4n2,fm35n2,fm40n2) a=(((fm35+2*fm4)*fm35+fm4**2-fm40**2)*(cs1**2+cs2**2)+((fm35-2* . fm4)*fm35+fm4**2-fm40**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm4**2*pi) pname(nf,n)="z3ss->bt + bbss2" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->bb + btss2" endif c Start decay width for Z3SS->HL0 + Z1SS if(fm4.ge.(fm8+fm46)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=((((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,3))*zs3+(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,1)*zs2+(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,3)*zs2)*( . fi2(3)*fr2(1)+fi2(1)*fr2(3)))/2 cs1=(-(((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,3))*zs3+(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,1)*zs2+(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,3)*zs2)*( . fi2(3)*fi2(1)-fr2(3)*fr2(1)))/2 p2=plamda(fm4n2,fm8n2,fm46n2) a=(((fm4+2*fm46)*fm4+fm46**2-fm8**2)*cs1**2+((fm4-2*fm46)*fm4+ . fm46**2-fm8**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->hl0 + z1ss" endif c Start decay width for Z3SS->HL0 + Z2SS if(fm4.ge.(fm8+fm47)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=((((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,3))*zs3+(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,2)*zs2+(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,3)*zs2)*( . fi2(3)*fr2(2)+fi2(2)*fr2(3)))/2 cs1=(-(((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,3))*zs3+(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,2)*zs2+(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,3)*zs2)*( . fi2(3)*fi2(2)-fr2(3)*fr2(2)))/2 p2=plamda(fm4n2,fm8n2,fm47n2) a=(((fm4+2*fm47)*fm4+fm47**2-fm8**2)*cs1**2+((fm4-2*fm47)*fm4+ . fm47**2-fm8**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->hl0 + z2ss" endif c Start decay width for Z3SS->HL0 + Z4SS if(fm4.ge.(fm8+fm10)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=((((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,3)+(v4c2(2,3)*zs1- . v4c2(1,3)*zs4)*v4c2(3,4))*zs3+(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,3)*zs2+(v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(4,4)*zs2)*( . fi2(4)*fr2(3)+fi2(3)*fr2(4)))/2 cs1=(-(((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,3)+(v4c2(2,3)*zs1- . v4c2(1,3)*zs4)*v4c2(3,4))*zs3+(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,3)*zs2+(v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(4,4)*zs2)*( . fi2(4)*fi2(3)-fr2(4)*fr2(3)))/2 p2=plamda(fm4n2,fm8n2,fm10n2) a=(((fm10+2*fm4)*fm10+fm4**2-fm8**2)*cs1**2+((fm10-2*fm4)*fm10+ . fm4**2-fm8**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->hl0 + z4ss" endif c Start decay width for Z3SS->HH0 + Z1SS if(fm4.ge.(fm2+fm46)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-(((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,3))*zs2-(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,1)*zs3-(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,3)*zs3)*( . fi2(3)*fr2(1)+fi2(1)*fr2(3)))/2 cs1=((((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,3))*zs2-(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,1)*zs3-(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,3)*zs3)*( . fi2(3)*fi2(1)-fr2(3)*fr2(1)))/2 p2=plamda(fm4n2,fm2n2,fm46n2) a=((fm4**2+2*fm4*fm46+fm46**2-fm2**2)*cs1**2+(fm4**2-2*fm4*fm46 . +fm46**2-fm2**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->hh0 + z1ss" endif c Start decay width for Z3SS->HH0 + Z2SS if(fm4.ge.(fm2+fm47)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-(((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,3))*zs2-(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,2)*zs3-(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,3)*zs3)*( . fi2(3)*fr2(2)+fi2(2)*fr2(3)))/2 cs1=((((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,3))*zs2-(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,2)*zs3-(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,3)*zs3)*( . fi2(3)*fi2(2)-fr2(3)*fr2(2)))/2 p2=plamda(fm4n2,fm2n2,fm47n2) a=((fm4**2+2*fm4*fm47+fm47**2-fm2**2)*cs1**2+(fm4**2-2*fm4*fm47 . +fm47**2-fm2**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->hh0 + z2ss" endif c Start decay width for Z3SS->HH0 + Z4SS if(fm4.ge.(fm2+fm10)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-(((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,3)+(v4c2(2,3)*zs1- . v4c2(1,3)*zs4)*v4c2(3,4))*zs2-(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,3)*zs3-(v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(4,4)*zs3)*( . fi2(4)*fr2(3)+fi2(3)*fr2(4)))/2 cs1=((((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,3)+(v4c2(2,3)*zs1- . v4c2(1,3)*zs4)*v4c2(3,4))*zs2-(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,3)*zs3-(v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(4,4)*zs3)*( . fi2(4)*fi2(3)-fr2(4)*fr2(3)))/2 p2=plamda(fm4n2,fm2n2,fm10n2) a=(((fm10+2*fm4)*fm10-(fm2**2-fm4**2))*cs1**2+((fm10-2*fm4)* . fm10-(fm2**2-fm4**2))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->hh0 + z4ss" endif c Start decay width for Z3SS->H- + W1SS+ if(fm4.ge.(fm3+fm49)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(1)*v4c2(4,3)*zs1*zs3+v4c2(3,3)*zs6*zs7)*fi2(3)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fi2(3))/4 cs3=(-2*(fn1(1)*v4c2(4,3)*zs1*zs3-v4c2(3,3)*zs6*zs7)*fr2(3)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fr2(3))/4 cs2=(-2*(fn1(1)*v4c2(4,3)*zs1*zs3-v4c2(3,3)*zs6*zs7)*fi2(3)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fi2(3))/4 cs1=(-2*(fn1(1)*v4c2(4,3)*zs1*zs3+v4c2(3,3)*zs6*zs7)*fr2(3)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fr2(3))/4 p2=plamda(fm4n2,fm3n2,fm49n2) a=((fm4**2+2*fm4*fm49+fm49**2-fm3**2)*(cs1**2+cs2**2)+(fm4**2-2 . *fm4*fm49+fm49**2-fm3**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->h- + w1ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->h+ + w1ss-" endif c Start decay width for Z3SS->H- + W2SS+ if(fm4.ge.(fm3+fm52)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(2)*v4c2(4,3)*zs1*zs4+v4c2(3,3)*zs7*zs8)*fi2(3)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fi2(3))/4 cs3=(-2*(fn1(2)*v4c2(4,3)*zs1*zs4-v4c2(3,3)*zs7*zs8)*fr2(3)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fr2(3))/4 cs2=(-2*(fn1(2)*v4c2(4,3)*zs1*zs4-v4c2(3,3)*zs7*zs8)*fi2(3)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fi2(3))/4 cs1=(-2*(fn1(2)*v4c2(4,3)*zs1*zs4+v4c2(3,3)*zs7*zs8)*fr2(3)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fr2(3))/4 p2=plamda(fm4n2,fm3n2,fm52n2) a=((fm4**2+2*fm4*fm52+fm52**2-fm3**2)*(cs1**2+cs2**2)+(fm4**2-2 . *fm4*fm52+fm52**2-fm3**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->h- + w2ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->h+ + w2ss-" endif c Start decay width for Z3SS->HA0 + Z1SS if(fm4.ge.(fm6+fm46)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-(((v4c2(2,3)*zs2-v4c2(1,3)*zs3)*v4c2(3,1)+(v4c2(2,1)*zs2- . v4c2(1,1)*zs3)*v4c2(3,3))*zs4-(v4c2(2,3)*zs2-v4c2(1,3)*zs3)* . v4c2(4,1)*zs1-(v4c2(2,1)*zs2-v4c2(1,1)*zs3)*v4c2(4,3)*zs1)*( . fi2(3)*fi2(1)-fr2(3)*fr2(1)))/2 cs1=(-(((v4c2(2,3)*zs2-v4c2(1,3)*zs3)*v4c2(3,1)+(v4c2(2,1)*zs2- . v4c2(1,1)*zs3)*v4c2(3,3))*zs4-(v4c2(2,3)*zs2-v4c2(1,3)*zs3)* . v4c2(4,1)*zs1-(v4c2(2,1)*zs2-v4c2(1,1)*zs3)*v4c2(4,3)*zs1)*( . fi2(3)*fr2(1)+fi2(1)*fr2(3)))/2 p2=plamda(fm4n2,fm6n2,fm46n2) a=(((fm4+2*fm46)*fm4+fm46**2-fm6**2)*cs1**2+((fm4-2*fm46)*fm4+ . fm46**2-fm6**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->ha0 + z1ss" endif c Start decay width for Z3SS->HA0 + Z2SS if(fm4.ge.(fm6+fm47)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-(((v4c2(2,3)*zs2-v4c2(1,3)*zs3)*v4c2(3,2)+(v4c2(2,2)*zs2- . v4c2(1,2)*zs3)*v4c2(3,3))*zs4-(v4c2(2,3)*zs2-v4c2(1,3)*zs3)* . v4c2(4,2)*zs1-(v4c2(2,2)*zs2-v4c2(1,2)*zs3)*v4c2(4,3)*zs1)*( . fi2(3)*fi2(2)-fr2(3)*fr2(2)))/2 cs1=(-(((v4c2(2,3)*zs2-v4c2(1,3)*zs3)*v4c2(3,2)+(v4c2(2,2)*zs2- . v4c2(1,2)*zs3)*v4c2(3,3))*zs4-(v4c2(2,3)*zs2-v4c2(1,3)*zs3)* . v4c2(4,2)*zs1-(v4c2(2,2)*zs2-v4c2(1,2)*zs3)*v4c2(4,3)*zs1)*( . fi2(3)*fr2(2)+fi2(2)*fr2(3)))/2 p2=plamda(fm4n2,fm6n2,fm47n2) a=(((fm4+2*fm47)*fm4+fm47**2-fm6**2)*cs1**2+((fm4-2*fm47)*fm4+ . fm47**2-fm6**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->ha0 + z2ss" endif c Start decay width for Z3SS->HA0 + Z4SS if(fm4.ge.(fm6+fm10)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-(((v4c2(2,4)*zs2-v4c2(1,4)*zs3)*v4c2(3,3)+(v4c2(2,3)*zs2- . v4c2(1,3)*zs3)*v4c2(3,4))*zs4-(v4c2(2,4)*zs2-v4c2(1,4)*zs3)* . v4c2(4,3)*zs1-(v4c2(2,3)*zs2-v4c2(1,3)*zs3)*v4c2(4,4)*zs1)*( . fi2(4)*fi2(3)-fr2(4)*fr2(3)))/2 cs1=(-(((v4c2(2,4)*zs2-v4c2(1,4)*zs3)*v4c2(3,3)+(v4c2(2,3)*zs2- . v4c2(1,3)*zs3)*v4c2(3,4))*zs4-(v4c2(2,4)*zs2-v4c2(1,4)*zs3)* . v4c2(4,3)*zs1-(v4c2(2,3)*zs2-v4c2(1,3)*zs3)*v4c2(4,4)*zs1)*( . fi2(4)*fr2(3)+fi2(3)*fr2(4)))/2 p2=plamda(fm4n2,fm6n2,fm10n2) a=(((fm10+2*fm4)*fm10+fm4**2-fm6**2)*cs1**2+((fm10-2*fm4)*fm10+ . fm4**2-fm6**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->ha0 + z4ss" endif c Start decay width for Z3SS->Z0 + Z1SS if(fm4.ge.(fm45+fm46)) then c0=-g cs2=((fi2(3)*fi2(1)+fr2(3)*fr2(1))*(v4c2(4,3)*v4c2(4,1)-v4c2(3, . 3)*v4c2(3,1)))/2 cs1=((fi2(3)*fr2(1)-fi2(1)*fr2(3))*(v4c2(4,3)*v4c2(4,1)-v4c2(3, . 3)*v4c2(3,1)))/2 p2=plamda(fm4n2,fm45n2,fm46n2) a=((((fm4**3+2*fm45**2*fm46)*fm4-(fm45**2-fm46**2)*fm46**2-( . fm45**2+2*fm46**2)*fm4**2)*dfm45n2+2*((fm4-4*fm46)*fm4-(fm45** . 2-fm46**2)))*cs1**2+(((fm4**3-2*fm45**2*fm46)*fm4-(fm45**2- . fm46**2)*fm46**2-(fm45**2+2*fm46**2)*fm4**2)*dfm45n2+2*((fm4+4 . *fm46)*fm4-(fm45**2-fm46**2)))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->z0 + z1ss" endif c Start decay width for Z3SS->Z0 + Z2SS if(fm4.ge.(fm45+fm47)) then c0=-g cs2=((fi2(3)*fi2(2)+fr2(3)*fr2(2))*(v4c2(4,3)*v4c2(4,2)-v4c2(3, . 3)*v4c2(3,2)))/2 cs1=((fi2(3)*fr2(2)-fi2(2)*fr2(3))*(v4c2(4,3)*v4c2(4,2)-v4c2(3, . 3)*v4c2(3,2)))/2 p2=plamda(fm4n2,fm45n2,fm47n2) a=((((fm4**3+2*fm45**2*fm47)*fm4-(fm45**2-fm47**2)*fm47**2-( . fm45**2+2*fm47**2)*fm4**2)*dfm45n2+2*((fm4-4*fm47)*fm4-(fm45** . 2-fm47**2)))*cs1**2+(((fm4**3-2*fm45**2*fm47)*fm4-(fm45**2- . fm47**2)*fm47**2-(fm45**2+2*fm47**2)*fm4**2)*dfm45n2+2*((fm4+4 . *fm47)*fm4-(fm45**2-fm47**2)))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->z0 + z2ss" endif c Start decay width for Z3SS->Z0 + Z4SS if(fm4.ge.(fm45+fm10)) then c0=-g cs2=((fi2(4)*fi2(3)+fr2(4)*fr2(3))*(v4c2(4,4)*v4c2(4,3)-v4c2(3, . 4)*v4c2(3,3)))/2 cs1=((fi2(4)*fr2(3)-fi2(3)*fr2(4))*(v4c2(4,4)*v4c2(4,3)-v4c2(3, . 4)*v4c2(3,3)))/2 p2=plamda(fm4n2,fm45n2,fm10n2) a=((((fm10**3+2*fm4*fm45**2)*fm10+(fm4**2-fm45**2)*fm4**2-(2* . fm4**2+fm45**2)*fm10**2)*dfm45n2+2*((fm10-4*fm4)*fm10+fm4**2- . fm45**2))*cs1**2+(((fm10**3-2*fm4*fm45**2)*fm10+(fm4**2-fm45** . 2)*fm4**2-(2*fm4**2+fm45**2)*fm10**2)*dfm45n2+2*((fm10+4*fm4)* . fm10+fm4**2-fm45**2))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->z0 + z4ss" endif c Start decay width for Z3SS->W- + W1SS+ if(fm4.ge.(fm48+fm49)) then c0=-g zs5=dsin(v6c) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(v6c) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(fn1(1)*v4c2(4,3)*zs4-v4c2(3,3)*zs5)*fi2(3)* . zs1-2*(fn1(1)*zs3+zs2)*fi2(3)*v4c2(2,3)*zs1)/4 cs3=(dsqrt(2.d0)*(fn1(1)*v4c2(4,3)*zs4+v4c2(3,3)*zs5)*fr2(3)* . zs1+2*(fn1(1)*zs3-zs2)*fr2(3)*v4c2(2,3)*zs1)/4 cs2=(-dsqrt(2.d0)*(fn1(1)*v4c2(4,3)*zs4+v4c2(3,3)*zs5)*fi2(3)* . zs1-2*(fn1(1)*zs3-zs2)*fi2(3)*v4c2(2,3)*zs1)/4 cs1=(dsqrt(2.d0)*(fn1(1)*v4c2(4,3)*zs4-v4c2(3,3)*zs5)*fr2(3)* . zs1+2*(fn1(1)*zs3+zs2)*fr2(3)*v4c2(2,3)*zs1)/4 p2=plamda(fm4n2,fm48n2,fm49n2) ans=((((fm4**3+2*fm48**2*fm49)*fm4-(fm48**2-fm49**2)*fm49**2-( . fm48**2+2*fm49**2)*fm4**2)*dfm48n2+2*((fm4-4*fm49)*fm4-(fm48** . 2-fm49**2)))*(cs1**2+cs2**2)+(((fm4**3-2*fm48**2*fm49)*fm4-( . fm48**2-fm49**2)*fm49**2-(fm48**2+2*fm49**2)*fm4**2)*dfm48n2+2 . *((fm4+4*fm49)*fm4-(fm48**2-fm49**2)))*(cs3**2+cs4**2))/2 a=ans n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->w- + w1ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->w+ + w1ss-" endif c Start decay width for Z3SS->W- + W2SS+ if(fm4.ge.(fm48+fm52)) then c0=-g zs5=dsin(v6c) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(v6c) zs1=dcos(theta) cs4=(dsqrt(2.d0)*(fn1(2)*v4c2(4,3)*zs3-v4c2(3,3)*zs2)*fi2(3)* . zs1-2*(fn1(2)*zs4+zs5)*fi2(3)*v4c2(2,3)*zs1)/4 cs3=(-dsqrt(2.d0)*(fn1(2)*v4c2(4,3)*zs3+v4c2(3,3)*zs2)*fr2(3)* . zs1+2*(fn1(2)*zs4-zs5)*fr2(3)*v4c2(2,3)*zs1)/4 cs2=(dsqrt(2.d0)*(fn1(2)*v4c2(4,3)*zs3+v4c2(3,3)*zs2)*fi2(3)* . zs1-2*(fn1(2)*zs4-zs5)*fi2(3)*v4c2(2,3)*zs1)/4 cs1=(-dsqrt(2.d0)*(fn1(2)*v4c2(4,3)*zs3-v4c2(3,3)*zs2)*fr2(3)* . zs1+2*(fn1(2)*zs4+zs5)*fr2(3)*v4c2(2,3)*zs1)/4 p2=plamda(fm4n2,fm48n2,fm52n2) ans=((((fm4**3+2*fm48**2*fm52)*fm4-(fm48**2-fm52**2)*fm52**2-( . fm48**2+2*fm52**2)*fm4**2)*dfm48n2+2*((fm4-4*fm52)*fm4-(fm48** . 2-fm52**2)))*(cs1**2+cs2**2)+(((fm4**3-2*fm48**2*fm52)*fm4-( . fm48**2-fm52**2)*fm52**2-(fm48**2+2*fm52**2)*fm4**2)*dfm48n2+2 . *((fm4+4*fm52)*fm4-(fm48**2-fm52**2)))*(cs3**2+cs4**2))/2 a=ans n=n+1 width(nf,n)=c0**2*a*p2/(4*fm4**2*pi) pname(nf,n)="z3ss->w- + w2ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z3ss->w+ + w2ss-" endif decay_f6=pa_width(pa,nf,n,iflag,br0) return end function decay_f7(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=7 pa="sz" c Start decay width for Z2SS->NUE + ANUEL if(fm47.ge.(0+fm13)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fi2(2))/4 cs1=(-(v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fr2(2))/4 p2=(-(fm13n2-fm47n2))/(2.d0*dsqrt(fm47n2)) a=-(cs1**2+cs2**2)*(fm13**2-fm47**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->nue + anuel" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->anue + nuel" endif c Start decay width for Z2SS->E- + EL+ if(fm47.ge.(fme+fm14)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(v4c2(2,2)*zs1+v4c2(1,2)*zs2)*fi2(2))/4 cs1=(-dsqrt(2.d0)*(v4c2(2,2)*zs1+v4c2(1,2)*zs2)*fr2(2))/4 p2=plamda(fm47n2,fmen2,fm14n2) a=-(cs1**2+cs2**2)*(fm14**2-fm47**2-fme**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->e- + el+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->e+ + el-" endif c Start decay width for Z2SS->E- + ER+ if(fm47.ge.(fme+fm23)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/2 cs3=(-dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/2 cs2=(-dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/2 cs1=(dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/2 p2=plamda(fm47n2,fmen2,fm23n2) a=((fm47**2+2*fm47*fme+fme**2-fm23**2)*(cs1**2+cs2**2)+(fm47**2 . -2*fm47*fme+fme**2-fm23**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->e- + er+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->e+ + er-" endif c Start decay width for Z2SS->NUM + ANUML if(fm47.ge.(0+fm17)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fi2(2))/4 cs1=(-(v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fr2(2))/4 p2=(-(fm17n2-fm47n2))/(2.d0*dsqrt(fm47n2)) a=-(cs1**2+cs2**2)*(fm17**2-fm47**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->num + anuml" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->anum + numl" endif c Start decay width for Z2SS->MU- + MUL+ if(fm47.ge.(fmmu+fm18)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(v4c2(2,2)*zs1+v4c2(1,2)*zs2)*fi2(2))/4 cs1=(-dsqrt(2.d0)*(v4c2(2,2)*zs1+v4c2(1,2)*zs2)*fr2(2))/4 p2=plamda(fm47n2,fmmun2,fm18n2) a=-(cs1**2+cs2**2)*(fm18**2-fm47**2-fmmu**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->mu- + mul+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->mu+ + mul-" endif c Start decay width for Z2SS->MU- + MUR+ if(fm47.ge.(fmmu+fm24)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/2 cs3=(-dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/2 cs2=(-dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/2 cs1=(dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/2 p2=plamda(fm47n2,fmmun2,fm24n2) a=((fm47**2+2*fm47*fmmu+fmmu**2-fm24**2)*(cs1**2+cs2**2)+(fm47 . **2-2*fm47*fmmu+fmmu**2-fm24**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->mu- + mur+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->mu+ + mur-" endif c Start decay width for Z2SS->NUT + ANUTL if(fm47.ge.(0+fm21)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fi2(2))/4 cs1=(-(v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fr2(2))/4 p2=(-(fm21n2-fm47n2))/(2.d0*dsqrt(fm47n2)) a=-(cs1**2+cs2**2)*(fm21**2-fm47**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->nut + anutl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->anut + nutl" endif c Start decay width for Z2SS->TAU- + TAU1+ if(fm47.ge.(fm20+fm22)) then c0=-g zs5=dsin(v1c) zs4=dsin(theta) zs3=dcos(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,2)*zs4+v4c2(2,2)*zs2*zs3 . )*fm45*zs1-(zs3+zs5)*v4c2(3,2)*fm20)*fi2(2))/(4*fm45*zs1) cs3=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,2)*zs4+v4c2(2,2)*zs2*zs3 . )*fm45*zs1+(zs3-zs5)*v4c2(3,2)*fm20)*fr2(2))/(4*fm45*zs1) cs2=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,2)*zs4+v4c2(2,2)*zs2*zs3 . )*fm45*zs1+(zs3-zs5)*v4c2(3,2)*fm20)*fi2(2))/(4*fm45*zs1) cs1=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,2)*zs4+v4c2(2,2)*zs2*zs3 . )*fm45*zs1-(zs3+zs5)*v4c2(3,2)*fm20)*fr2(2))/(4*fm45*zs1) p2=plamda(fm47n2,fm20n2,fm22n2) a=(((fm20+2*fm47)*fm20-(fm22**2-fm47**2))*(cs1**2+cs2**2)+(( . fm20-2*fm47)*fm20-(fm22**2-fm47**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->tau- + tau1+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->tau+ + tau1-" endif c Start decay width for Z2SS->TAU- + TAU2+ if(fm47.ge.(fm20+fm25)) then c0=-g zs5=dsin(theta) zs4=dcos(v1c) zs3=dsin(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,2)*zs5+v4c2(2,2)*zs2*zs3 . )*fm45*zs1-(zs3-zs4)*v4c2(3,2)*fm20)*fi2(2))/(4*fm45*zs1) cs3=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,2)*zs5+v4c2(2,2)*zs2*zs3 . )*fm45*zs1+(zs3+zs4)*v4c2(3,2)*fm20)*fr2(2))/(4*fm45*zs1) cs2=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,2)*zs5+v4c2(2,2)*zs2*zs3 . )*fm45*zs1+(zs3+zs4)*v4c2(3,2)*fm20)*fi2(2))/(4*fm45*zs1) cs1=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,2)*zs5+v4c2(2,2)*zs2*zs3 . )*fm45*zs1-(zs3-zs4)*v4c2(3,2)*fm20)*fr2(2))/(4*fm45*zs1) p2=plamda(fm47n2,fm20n2,fm25n2) a=(((fm20+2*fm47)*fm20-(fm25**2-fm47**2))*(cs1**2+cs2**2)+(( . fm20-2*fm47)*fm20-(fm25**2-fm47**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->tau- + tau2+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->tau+ + tau2-" endif c Start decay width for Z2SS->UP + UBSSL if(fm47.ge.(fmu+fm28)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(3*v4c2(2,2)*zs1+v4c2(1,2)*zs2)*fi2(2))/12 cs1=(-dsqrt(2.d0)*(3*v4c2(2,2)*zs1+v4c2(1,2)*zs2)*fr2(2))/12 p2=plamda(fm47n2,fmun2,fm28n2) a=-(cs1**2+cs2**2)*(fm28**2-fm47**2-fmu**2) n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm47**2*pi) pname(nf,n)="z2ss->up + ubssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->ub + upssl" endif c Start decay width for Z2SS->UP + UBSSR if(fm47.ge.(fmu+fm41)) then c0=-g zs1=dsin(theta) cs4=(-dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/3 cs3=(dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/3 cs2=(dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/3 cs1=(-dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/3 p2=plamda(fm47n2,fmun2,fm41n2) a=((fm47**2+2*fm47*fmu+fmu**2-fm41**2)*(cs1**2+cs2**2)+(fm47**2 . -2*fm47*fmu+fmu**2-fm41**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm47**2*pi) pname(nf,n)="z2ss->up + ubssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->ub + upssr" endif c Start decay width for Z2SS->DN + DBSSL if(fm47.ge.(fmd+fm29)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(dsqrt(2.d0)*(3*v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fi2(2))/12 cs1=(dsqrt(2.d0)*(3*v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fr2(2))/12 p2=plamda(fm47n2,fmdn2,fm29n2) a=-(cs1**2+cs2**2)*(fm29**2-fm47**2-fmd**2) n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm47**2*pi) pname(nf,n)="z2ss->dn + dbssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->db + dnssl" endif c Start decay width for Z2SS->DN + DBSSR if(fm47.ge.(fmd+fm38)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/6 cs3=(-dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/6 cs2=(-dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/6 cs1=(dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/6 p2=plamda(fm47n2,fmdn2,fm38n2) a=((fm47**2+2*fm47*fmd+fmd**2-fm38**2)*(cs1**2+cs2**2)+(fm47**2 . -2*fm47*fmd+fmd**2-fm38**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm47**2*pi) pname(nf,n)="z2ss->dn + dbssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->db + dnssr" endif c Start decay width for Z2SS->CH + CBSSL if(fm47.ge.(fmc+fm32)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(3*v4c2(2,2)*zs1+v4c2(1,2)*zs2)*fi2(2))/12 cs1=(-dsqrt(2.d0)*(3*v4c2(2,2)*zs1+v4c2(1,2)*zs2)*fr2(2))/12 p2=plamda(fm47n2,fmcn2,fm32n2) a=-(cs1**2+cs2**2)*(fm32**2-fm47**2-fmc**2) n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm47**2*pi) pname(nf,n)="z2ss->ch + cbssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->cb + chssl" endif c Start decay width for Z2SS->CH + CBSSR if(fm47.ge.(fmc+fm42)) then c0=-g zs1=dsin(theta) cs4=(-dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/3 cs3=(dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/3 cs2=(dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/3 cs1=(-dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/3 p2=plamda(fm47n2,fmcn2,fm42n2) a=((fm47**2+2*fm47*fmc+fmc**2-fm42**2)*(cs1**2+cs2**2)+(fm47**2 . -2*fm47*fmc+fmc**2-fm42**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm47**2*pi) pname(nf,n)="z2ss->ch + cbssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->cb + chssr" endif c Start decay width for Z2SS->ST + SBSSL if(fm47.ge.(fms+fm33)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(dsqrt(2.d0)*(3*v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fi2(2))/12 cs1=(dsqrt(2.d0)*(3*v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fr2(2))/12 p2=plamda(fm47n2,fmsn2,fm33n2) a=-(cs1**2+cs2**2)*(fm33**2-fm47**2-fms**2) n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm47**2*pi) pname(nf,n)="z2ss->st + sbssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->sb + stssl" endif c Start decay width for Z2SS->ST + SBSSR if(fm47.ge.(fms+fm39)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/6 cs3=(-dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/6 cs2=(-dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/6 cs1=(dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/6 p2=plamda(fm47n2,fmsn2,fm39n2) a=((fm47**2+2*fm47*fms+fms**2-fm39**2)*(cs1**2+cs2**2)+(fm47**2 . -2*fm47*fms+fms**2-fm39**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm47**2*pi) pname(nf,n)="z2ss->st + sbssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->sb + stssr" endif c Start decay width for Z2SS->TP + TBSS1 if(fm47.ge.(fm34+fm36)) then c0=-g zs5=dsin(v4c) zs4=dsin(theta) zs3=dsin(beta1) zs2=dcos(v4c) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(((zs2-4*zs5)*v4c2(1,2)*zs4+3*v4c2(2,2)*zs1* . zs2)*fm45*zs3+3*(zs2-zs5)*v4c2(4,2)*fm34)*fi2(2))/(12*fm45*zs3 . ) cs3=(-dsqrt(2.d0)*(((zs2+4*zs5)*v4c2(1,2)*zs4+3*v4c2(2,2)*zs1* . zs2)*fm45*zs3-3*(zs2+zs5)*v4c2(4,2)*fm34)*fr2(2))/(12*fm45*zs3 . ) cs2=(-dsqrt(2.d0)*(((zs2+4*zs5)*v4c2(1,2)*zs4+3*v4c2(2,2)*zs1* . zs2)*fm45*zs3-3*(zs2+zs5)*v4c2(4,2)*fm34)*fi2(2))/(12*fm45*zs3 . ) cs1=(-dsqrt(2.d0)*(((zs2-4*zs5)*v4c2(1,2)*zs4+3*v4c2(2,2)*zs1* . zs2)*fm45*zs3+3*(zs2-zs5)*v4c2(4,2)*fm34)*fr2(2))/(12*fm45*zs3 . ) p2=plamda(fm47n2,fm34n2,fm36n2) a=(((fm34+2*fm47)*fm34-(fm36**2-fm47**2))*(cs1**2+cs2**2)+(( . fm34-2*fm47)*fm34-(fm36**2-fm47**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm47**2*pi) pname(nf,n)="z2ss->tp + tbss1" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->tb + tpss1" endif c Start decay width for Z2SS->TP + TBSS2 if(fm47.ge.(fm34+fm43)) then c0=-g zs5=dsin(theta) zs4=dcos(v4c) zs3=dsin(v4c) zs2=dsin(beta1) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(((zs3+4*zs4)*v4c2(1,2)*zs5+3*v4c2(2,2)*zs1* . zs3)*fm45*zs2+3*(zs3+zs4)*v4c2(4,2)*fm34)*fi2(2))/(12*fm45*zs2 . ) cs3=(-dsqrt(2.d0)*(((zs3-4*zs4)*v4c2(1,2)*zs5+3*v4c2(2,2)*zs1* . zs3)*fm45*zs2-3*(zs3-zs4)*v4c2(4,2)*fm34)*fr2(2))/(12*fm45*zs2 . ) cs2=(-dsqrt(2.d0)*(((zs3-4*zs4)*v4c2(1,2)*zs5+3*v4c2(2,2)*zs1* . zs3)*fm45*zs2-3*(zs3-zs4)*v4c2(4,2)*fm34)*fi2(2))/(12*fm45*zs2 . ) cs1=(-dsqrt(2.d0)*(((zs3+4*zs4)*v4c2(1,2)*zs5+3*v4c2(2,2)*zs1* . zs3)*fm45*zs2+3*(zs3+zs4)*v4c2(4,2)*fm34)*fr2(2))/(12*fm45*zs2 . ) p2=plamda(fm47n2,fm34n2,fm43n2) a=(((fm34+2*fm47)*fm34-(fm43**2-fm47**2))*(cs1**2+cs2**2)+(( . fm34-2*fm47)*fm34-(fm43**2-fm47**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm47**2*pi) pname(nf,n)="z2ss->tp + tbss2" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->tb + tpss2" endif c Start decay width for Z2SS->BT + BBSS1 if(fm47.ge.(fm35+fm37)) then c0=-g zs5=dsin(v3c) zs4=dsin(theta) zs3=dcos(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,2)*zs4-3*v4c2(2,2)*zs2* . zs3)*fm45*zs1+3*(zs3-zs5)*v4c2(3,2)*fm35)*fi2(2))/(12*fm45*zs1 . ) cs3=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,2)*zs4-3*v4c2(2,2)*zs2* . zs3)*fm45*zs1-3*(zs3+zs5)*v4c2(3,2)*fm35)*fr2(2))/(12*fm45*zs1 . ) cs2=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,2)*zs4-3*v4c2(2,2)*zs2* . zs3)*fm45*zs1-3*(zs3+zs5)*v4c2(3,2)*fm35)*fi2(2))/(12*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,2)*zs4-3*v4c2(2,2)*zs2* . zs3)*fm45*zs1+3*(zs3-zs5)*v4c2(3,2)*fm35)*fr2(2))/(12*fm45*zs1 . ) p2=plamda(fm47n2,fm35n2,fm37n2) a=(((fm35+2*fm47)*fm35-(fm37**2-fm47**2))*(cs1**2+cs2**2)+(( . fm35-2*fm47)*fm35-(fm37**2-fm47**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm47**2*pi) pname(nf,n)="z2ss->bt + bbss1" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->bb + btss1" endif c Start decay width for Z2SS->BT + BBSS2 if(fm47.ge.(fm35+fm40)) then c0=-g zs5=dsin(theta) zs4=dcos(v3c) zs3=dsin(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,2)*zs5-3*v4c2(2,2)*zs2* . zs3)*fm45*zs1+3*(zs3+zs4)*v4c2(3,2)*fm35)*fi2(2))/(12*fm45*zs1 . ) cs3=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,2)*zs5-3*v4c2(2,2)*zs2* . zs3)*fm45*zs1-3*(zs3-zs4)*v4c2(3,2)*fm35)*fr2(2))/(12*fm45*zs1 . ) cs2=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,2)*zs5-3*v4c2(2,2)*zs2* . zs3)*fm45*zs1-3*(zs3-zs4)*v4c2(3,2)*fm35)*fi2(2))/(12*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,2)*zs5-3*v4c2(2,2)*zs2* . zs3)*fm45*zs1+3*(zs3+zs4)*v4c2(3,2)*fm35)*fr2(2))/(12*fm45*zs1 . ) p2=plamda(fm47n2,fm35n2,fm40n2) a=(((fm35+2*fm47)*fm35-(fm40**2-fm47**2))*(cs1**2+cs2**2)+(( . fm35-2*fm47)*fm35-(fm40**2-fm47**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm47**2*pi) pname(nf,n)="z2ss->bt + bbss2" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->bb + btss2" endif c Start decay width for Z2SS->HL0 + Z1SS if(fm47.ge.(fm8+fm46)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=((((v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,2))*zs3+(v4c2(2,2)*zs1-v4c2(1,2)*zs4)* . v4c2(4,1)*zs2+(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,2)*zs2)*( . fi2(2)*fr2(1)+fi2(1)*fr2(2)))/2 cs1=(-(((v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,2))*zs3+(v4c2(2,2)*zs1-v4c2(1,2)*zs4)* . v4c2(4,1)*zs2+(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,2)*zs2)*( . fi2(2)*fi2(1)-fr2(2)*fr2(1)))/2 p2=plamda(fm47n2,fm8n2,fm46n2) a=(((fm46+2*fm47)*fm46+fm47**2-fm8**2)*cs1**2+((fm46-2*fm47)* . fm46+fm47**2-fm8**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->hl0 + z1ss" endif c Start decay width for Z2SS->HL0 + Z3SS if(fm47.ge.(fm8+fm4)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=((((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,3))*zs3+(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,2)*zs2+(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,3)*zs2)*( . fi2(3)*fr2(2)+fi2(2)*fr2(3)))/2 cs1=(-(((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,3))*zs3+(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,2)*zs2+(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,3)*zs2)*( . fi2(3)*fi2(2)-fr2(3)*fr2(2)))/2 p2=plamda(fm47n2,fm8n2,fm4n2) a=(((fm4+2*fm47)*fm4+fm47**2-fm8**2)*cs1**2+((fm4-2*fm47)*fm4+ . fm47**2-fm8**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->hl0 + z3ss" endif c Start decay width for Z2SS->HL0 + Z4SS if(fm47.ge.(fm8+fm10)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=((((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,4))*zs3+(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,2)*zs2+(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,4)*zs2)*( . fi2(4)*fr2(2)+fi2(2)*fr2(4)))/2 cs1=(-(((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,4))*zs3+(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,2)*zs2+(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,4)*zs2)*( . fi2(4)*fi2(2)-fr2(4)*fr2(2)))/2 p2=plamda(fm47n2,fm8n2,fm10n2) a=(((fm10+2*fm47)*fm10+fm47**2-fm8**2)*cs1**2+((fm10-2*fm47)* . fm10+fm47**2-fm8**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->hl0 + z4ss" endif c Start decay width for Z2SS->HH0 + Z1SS if(fm47.ge.(fm2+fm46)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-(((v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,2))*zs2-(v4c2(2,2)*zs1-v4c2(1,2)*zs4)* . v4c2(4,1)*zs3-(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,2)*zs3)*( . fi2(2)*fr2(1)+fi2(1)*fr2(2)))/2 cs1=((((v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,2))*zs2-(v4c2(2,2)*zs1-v4c2(1,2)*zs4)* . v4c2(4,1)*zs3-(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,2)*zs3)*( . fi2(2)*fi2(1)-fr2(2)*fr2(1)))/2 p2=plamda(fm47n2,fm2n2,fm46n2) a=((fm46**2+2*fm46*fm47+fm47**2-fm2**2)*cs1**2+(fm46**2-2*fm46* . fm47+fm47**2-fm2**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->hh0 + z1ss" endif c Start decay width for Z2SS->HH0 + Z3SS if(fm47.ge.(fm2+fm4)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-(((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,3))*zs2-(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,2)*zs3-(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,3)*zs3)*( . fi2(3)*fr2(2)+fi2(2)*fr2(3)))/2 cs1=((((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,3))*zs2-(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,2)*zs3-(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,3)*zs3)*( . fi2(3)*fi2(2)-fr2(3)*fr2(2)))/2 p2=plamda(fm47n2,fm2n2,fm4n2) a=((fm4**2+2*fm4*fm47+fm47**2-fm2**2)*cs1**2+(fm4**2-2*fm4*fm47 . +fm47**2-fm2**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->hh0 + z3ss" endif c Start decay width for Z2SS->HH0 + Z4SS if(fm47.ge.(fm2+fm10)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-(((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,4))*zs2-(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,2)*zs3-(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,4)*zs3)*( . fi2(4)*fr2(2)+fi2(2)*fr2(4)))/2 cs1=((((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,2)+(v4c2(2,2)*zs1- . v4c2(1,2)*zs4)*v4c2(3,4))*zs2-(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,2)*zs3-(v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(4,4)*zs3)*( . fi2(4)*fi2(2)-fr2(4)*fr2(2)))/2 p2=plamda(fm47n2,fm2n2,fm10n2) a=(((fm10+2*fm47)*fm10-(fm2**2-fm47**2))*cs1**2+((fm10-2*fm47)* . fm10-(fm2**2-fm47**2))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->hh0 + z4ss" endif c Start decay width for Z2SS->H- + W1SS+ if(fm47.ge.(fm3+fm49)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(1)*v4c2(4,2)*zs1*zs3+v4c2(3,2)*zs6*zs7)*fi2(2)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fi2(2))/4 cs3=(-2*(fn1(1)*v4c2(4,2)*zs1*zs3-v4c2(3,2)*zs6*zs7)*fr2(2)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fr2(2))/4 cs2=(-2*(fn1(1)*v4c2(4,2)*zs1*zs3-v4c2(3,2)*zs6*zs7)*fi2(2)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fi2(2))/4 cs1=(-2*(fn1(1)*v4c2(4,2)*zs1*zs3+v4c2(3,2)*zs6*zs7)*fr2(2)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fr2(2))/4 p2=plamda(fm47n2,fm3n2,fm49n2) a=((fm47**2+2*fm47*fm49+fm49**2-fm3**2)*(cs1**2+cs2**2)+(fm47** . 2-2*fm47*fm49+fm49**2-fm3**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->h- + w1ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->h+ + w1ss-" endif c Start decay width for Z2SS->H- + W2SS+ if(fm47.ge.(fm3+fm52)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(2)*v4c2(4,2)*zs1*zs4+v4c2(3,2)*zs7*zs8)*fi2(2)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fi2(2))/4 cs3=(-2*(fn1(2)*v4c2(4,2)*zs1*zs4-v4c2(3,2)*zs7*zs8)*fr2(2)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fr2(2))/4 cs2=(-2*(fn1(2)*v4c2(4,2)*zs1*zs4-v4c2(3,2)*zs7*zs8)*fi2(2)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fi2(2))/4 cs1=(-2*(fn1(2)*v4c2(4,2)*zs1*zs4+v4c2(3,2)*zs7*zs8)*fr2(2)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fr2(2))/4 p2=plamda(fm47n2,fm3n2,fm52n2) a=((fm47**2+2*fm47*fm52+fm52**2-fm3**2)*(cs1**2+cs2**2)+(fm47** . 2-2*fm47*fm52+fm52**2-fm3**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->h- + w2ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->h+ + w2ss-" endif c Start decay width for Z2SS->HA0 + Z1SS if(fm47.ge.(fm6+fm46)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-(((v4c2(2,2)*zs2-v4c2(1,2)*zs3)*v4c2(3,1)+(v4c2(2,1)*zs2- . v4c2(1,1)*zs3)*v4c2(3,2))*zs4-(v4c2(2,2)*zs2-v4c2(1,2)*zs3)* . v4c2(4,1)*zs1-(v4c2(2,1)*zs2-v4c2(1,1)*zs3)*v4c2(4,2)*zs1)*( . fi2(2)*fi2(1)-fr2(2)*fr2(1)))/2 cs1=(-(((v4c2(2,2)*zs2-v4c2(1,2)*zs3)*v4c2(3,1)+(v4c2(2,1)*zs2- . v4c2(1,1)*zs3)*v4c2(3,2))*zs4-(v4c2(2,2)*zs2-v4c2(1,2)*zs3)* . v4c2(4,1)*zs1-(v4c2(2,1)*zs2-v4c2(1,1)*zs3)*v4c2(4,2)*zs1)*( . fi2(2)*fr2(1)+fi2(1)*fr2(2)))/2 p2=plamda(fm47n2,fm6n2,fm46n2) a=(((fm46+2*fm47)*fm46+fm47**2-fm6**2)*cs1**2+((fm46-2*fm47)* . fm46+fm47**2-fm6**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->ha0 + z1ss" endif c Start decay width for Z2SS->HA0 + Z3SS if(fm47.ge.(fm6+fm4)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-(((v4c2(2,3)*zs2-v4c2(1,3)*zs3)*v4c2(3,2)+(v4c2(2,2)*zs2- . v4c2(1,2)*zs3)*v4c2(3,3))*zs4-(v4c2(2,3)*zs2-v4c2(1,3)*zs3)* . v4c2(4,2)*zs1-(v4c2(2,2)*zs2-v4c2(1,2)*zs3)*v4c2(4,3)*zs1)*( . fi2(3)*fi2(2)-fr2(3)*fr2(2)))/2 cs1=(-(((v4c2(2,3)*zs2-v4c2(1,3)*zs3)*v4c2(3,2)+(v4c2(2,2)*zs2- . v4c2(1,2)*zs3)*v4c2(3,3))*zs4-(v4c2(2,3)*zs2-v4c2(1,3)*zs3)* . v4c2(4,2)*zs1-(v4c2(2,2)*zs2-v4c2(1,2)*zs3)*v4c2(4,3)*zs1)*( . fi2(3)*fr2(2)+fi2(2)*fr2(3)))/2 p2=plamda(fm47n2,fm6n2,fm4n2) a=(((fm4+2*fm47)*fm4+fm47**2-fm6**2)*cs1**2+((fm4-2*fm47)*fm4+ . fm47**2-fm6**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->ha0 + z3ss" endif c Start decay width for Z2SS->HA0 + Z4SS if(fm47.ge.(fm6+fm10)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-(((v4c2(2,4)*zs2-v4c2(1,4)*zs3)*v4c2(3,2)+(v4c2(2,2)*zs2- . v4c2(1,2)*zs3)*v4c2(3,4))*zs4-(v4c2(2,4)*zs2-v4c2(1,4)*zs3)* . v4c2(4,2)*zs1-(v4c2(2,2)*zs2-v4c2(1,2)*zs3)*v4c2(4,4)*zs1)*( . fi2(4)*fi2(2)-fr2(4)*fr2(2)))/2 cs1=(-(((v4c2(2,4)*zs2-v4c2(1,4)*zs3)*v4c2(3,2)+(v4c2(2,2)*zs2- . v4c2(1,2)*zs3)*v4c2(3,4))*zs4-(v4c2(2,4)*zs2-v4c2(1,4)*zs3)* . v4c2(4,2)*zs1-(v4c2(2,2)*zs2-v4c2(1,2)*zs3)*v4c2(4,4)*zs1)*( . fi2(4)*fr2(2)+fi2(2)*fr2(4)))/2 p2=plamda(fm47n2,fm6n2,fm10n2) a=(((fm10+2*fm47)*fm10+fm47**2-fm6**2)*cs1**2+((fm10-2*fm47)* . fm10+fm47**2-fm6**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->ha0 + z4ss" endif c Start decay width for Z2SS->Z0 + Z1SS if(fm47.ge.(fm45+fm46)) then c0=-g cs2=((fi2(2)*fi2(1)+fr2(2)*fr2(1))*(v4c2(4,2)*v4c2(4,1)-v4c2(3, . 2)*v4c2(3,1)))/2 cs1=((fi2(2)*fr2(1)-fi2(1)*fr2(2))*(v4c2(4,2)*v4c2(4,1)-v4c2(3, . 2)*v4c2(3,1)))/2 p2=plamda(fm47n2,fm45n2,fm46n2) a=(((fm46**4-2*fm46**2*fm47**2+fm47**4-(fm46**2+2*fm46*fm47+ . fm47**2)*fm45**2)*dfm45n2+2*(fm46**2+4*fm46*fm47+fm47**2-fm45 . **2))*cs2**2+((fm46**4-2*fm46**2*fm47**2+fm47**4-(fm46**2-2* . fm46*fm47+fm47**2)*fm45**2)*dfm45n2+2*(fm46**2-4*fm46*fm47+ . fm47**2-fm45**2))*cs1**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->z0 + z1ss" endif c Start decay width for Z2SS->Z0 + Z3SS if(fm47.ge.(fm45+fm4)) then c0=-g cs2=((fi2(3)*fi2(2)+fr2(3)*fr2(2))*(v4c2(4,3)*v4c2(4,2)-v4c2(3, . 3)*v4c2(3,2)))/2 cs1=((fi2(3)*fr2(2)-fi2(2)*fr2(3))*(v4c2(4,3)*v4c2(4,2)-v4c2(3, . 3)*v4c2(3,2)))/2 p2=plamda(fm47n2,fm45n2,fm4n2) a=((((fm4**3+2*fm45**2*fm47)*fm4-(fm45**2-fm47**2)*fm47**2-( . fm45**2+2*fm47**2)*fm4**2)*dfm45n2+2*((fm4-4*fm47)*fm4-(fm45** . 2-fm47**2)))*cs1**2+(((fm4**3-2*fm45**2*fm47)*fm4-(fm45**2- . fm47**2)*fm47**2-(fm45**2+2*fm47**2)*fm4**2)*dfm45n2+2*((fm4+4 . *fm47)*fm4-(fm45**2-fm47**2)))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->z0 + z3ss" endif c Start decay width for Z2SS->Z0 + Z4SS if(fm47.ge.(fm45+fm10)) then c0=-g cs2=((fi2(4)*fi2(2)+fr2(4)*fr2(2))*(v4c2(4,4)*v4c2(4,2)-v4c2(3, . 4)*v4c2(3,2)))/2 cs1=((fi2(4)*fr2(2)-fi2(2)*fr2(4))*(v4c2(4,4)*v4c2(4,2)-v4c2(3, . 4)*v4c2(3,2)))/2 p2=plamda(fm47n2,fm45n2,fm10n2) a=((((fm10**3+2*fm45**2*fm47)*fm10-(fm45**2-fm47**2)*fm47**2-( . fm45**2+2*fm47**2)*fm10**2)*dfm45n2+2*((fm10-4*fm47)*fm10-( . fm45**2-fm47**2)))*cs1**2+(((fm10**3-2*fm45**2*fm47)*fm10-( . fm45**2-fm47**2)*fm47**2-(fm45**2+2*fm47**2)*fm10**2)*dfm45n2+ . 2*((fm10+4*fm47)*fm10-(fm45**2-fm47**2)))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->z0 + z4ss" endif c Start decay width for Z2SS->W- + W1SS+ if(fm47.ge.(fm48+fm49)) then c0=-g zs5=dsin(v6c) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(v6c) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(fn1(1)*v4c2(4,2)*zs4-v4c2(3,2)*zs5)*fi2(2)* . zs1-2*(fn1(1)*zs3+zs2)*fi2(2)*v4c2(2,2)*zs1)/4 cs3=(dsqrt(2.d0)*(fn1(1)*v4c2(4,2)*zs4+v4c2(3,2)*zs5)*fr2(2)* . zs1+2*(fn1(1)*zs3-zs2)*fr2(2)*v4c2(2,2)*zs1)/4 cs2=(-dsqrt(2.d0)*(fn1(1)*v4c2(4,2)*zs4+v4c2(3,2)*zs5)*fi2(2)* . zs1-2*(fn1(1)*zs3-zs2)*fi2(2)*v4c2(2,2)*zs1)/4 cs1=(dsqrt(2.d0)*(fn1(1)*v4c2(4,2)*zs4-v4c2(3,2)*zs5)*fr2(2)* . zs1+2*(fn1(1)*zs3+zs2)*fr2(2)*v4c2(2,2)*zs1)/4 p2=plamda(fm47n2,fm48n2,fm49n2) ans=((((fm47**3+2*fm48**2*fm49)*fm47-(fm48**2-fm49**2)*fm49**2- . (fm48**2+2*fm49**2)*fm47**2)*dfm48n2+2*((fm47-4*fm49)*fm47-( . fm48**2-fm49**2)))*(cs1**2+cs2**2)+(((fm47**3-2*fm48**2*fm49)* . fm47-(fm48**2-fm49**2)*fm49**2-(fm48**2+2*fm49**2)*fm47**2)* . dfm48n2+2*((fm47+4*fm49)*fm47-(fm48**2-fm49**2)))*(cs3**2+cs4 . **2))/2 a=ans n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->w- + w1ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->w+ + w1ss-" endif c Start decay width for Z2SS->W- + W2SS+ if(fm47.ge.(fm48+fm52)) then c0=-g zs5=dsin(v6c) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(v6c) zs1=dcos(theta) cs4=(dsqrt(2.d0)*(fn1(2)*v4c2(4,2)*zs3-v4c2(3,2)*zs2)*fi2(2)* . zs1-2*(fn1(2)*zs4+zs5)*fi2(2)*v4c2(2,2)*zs1)/4 cs3=(-dsqrt(2.d0)*(fn1(2)*v4c2(4,2)*zs3+v4c2(3,2)*zs2)*fr2(2)* . zs1+2*(fn1(2)*zs4-zs5)*fr2(2)*v4c2(2,2)*zs1)/4 cs2=(dsqrt(2.d0)*(fn1(2)*v4c2(4,2)*zs3+v4c2(3,2)*zs2)*fi2(2)* . zs1-2*(fn1(2)*zs4-zs5)*fi2(2)*v4c2(2,2)*zs1)/4 cs1=(-dsqrt(2.d0)*(fn1(2)*v4c2(4,2)*zs3-v4c2(3,2)*zs2)*fr2(2)* . zs1+2*(fn1(2)*zs4+zs5)*fr2(2)*v4c2(2,2)*zs1)/4 p2=plamda(fm47n2,fm48n2,fm52n2) ans=((((fm47**3+2*fm48**2*fm52)*fm47-(fm48**2-fm52**2)*fm52**2- . (fm48**2+2*fm52**2)*fm47**2)*dfm48n2+2*((fm47-4*fm52)*fm47-( . fm48**2-fm52**2)))*(cs1**2+cs2**2)+(((fm47**3-2*fm48**2*fm52)* . fm47-(fm48**2-fm52**2)*fm52**2-(fm48**2+2*fm52**2)*fm47**2)* . dfm48n2+2*((fm47+4*fm52)*fm47-(fm48**2-fm52**2)))*(cs3**2+cs4 . **2))/2 a=ans n=n+1 width(nf,n)=c0**2*a*p2/(4*fm47**2*pi) pname(nf,n)="z2ss->w- + w2ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z2ss->w+ + w2ss-" endif decay_f7=pa_width(pa,nf,n,iflag,br0) return end function decay_f8(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=8 pa="sp" c Start decay width for Z1SS->NUE + ANUEL if(fm46.ge.(0+fm13)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fi2(1))/4 cs1=(-(v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fr2(1))/4 p2=(-(fm13n2-fm46n2))/(2.d0*dsqrt(fm46n2)) a=-(cs1**2+cs2**2)*(fm13**2-fm46**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->nue + anuel" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->anue + nuel" endif c Start decay width for Z1SS->E- + EL+ if(fm46.ge.(fme+fm14)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(v4c2(2,1)*zs1+v4c2(1,1)*zs2)*fi2(1))/4 cs1=(-dsqrt(2.d0)*(v4c2(2,1)*zs1+v4c2(1,1)*zs2)*fr2(1))/4 p2=plamda(fm46n2,fmen2,fm14n2) a=-(cs1**2+cs2**2)*(fm14**2-fm46**2-fme**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->e- + el+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->e+ + el-" endif c Start decay width for Z1SS->E- + ER+ if(fm46.ge.(fme+fm23)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/2 cs3=(-dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/2 cs2=(-dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/2 cs1=(dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/2 p2=plamda(fm46n2,fmen2,fm23n2) a=((fm46**2+2*fm46*fme+fme**2-fm23**2)*(cs1**2+cs2**2)+(fm46**2 . -2*fm46*fme+fme**2-fm23**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->e- + er+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->e+ + er-" endif c Start decay width for Z1SS->NUM + ANUML if(fm46.ge.(0+fm17)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fi2(1))/4 cs1=(-(v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fr2(1))/4 p2=(-(fm17n2-fm46n2))/(2.d0*dsqrt(fm46n2)) a=-(cs1**2+cs2**2)*(fm17**2-fm46**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->num + anuml" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->anum + numl" endif c Start decay width for Z1SS->MU- + MUL+ if(fm46.ge.(fmmu+fm18)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(v4c2(2,1)*zs1+v4c2(1,1)*zs2)*fi2(1))/4 cs1=(-dsqrt(2.d0)*(v4c2(2,1)*zs1+v4c2(1,1)*zs2)*fr2(1))/4 p2=plamda(fm46n2,fmmun2,fm18n2) a=-(cs1**2+cs2**2)*(fm18**2-fm46**2-fmmu**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->mu- + mul+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->mu+ + mul-" endif c Start decay width for Z1SS->MU- + MUR+ if(fm46.ge.(fmmu+fm24)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/2 cs3=(-dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/2 cs2=(-dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/2 cs1=(dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/2 p2=plamda(fm46n2,fmmun2,fm24n2) a=((fm46**2+2*fm46*fmmu+fmmu**2-fm24**2)*(cs1**2+cs2**2)+(fm46 . **2-2*fm46*fmmu+fmmu**2-fm24**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->mu- + mur+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->mu+ + mur-" endif c Start decay width for Z1SS->NUT + ANUTL if(fm46.ge.(0+fm21)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fi2(1))/4 cs1=(-(v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fr2(1))/4 p2=(-(fm21n2-fm46n2))/(2.d0*dsqrt(fm46n2)) a=-(cs1**2+cs2**2)*(fm21**2-fm46**2) n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->nut + anutl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->anut + nutl" endif c Start decay width for Z1SS->TAU- + TAU1+ if(fm46.ge.(fm20+fm22)) then c0=-g zs5=dsin(v1c) zs4=dsin(theta) zs3=dcos(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,1)*zs4+v4c2(2,1)*zs2*zs3 . )*fm45*zs1-(zs3+zs5)*v4c2(3,1)*fm20)*fi2(1))/(4*fm45*zs1) cs3=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,1)*zs4+v4c2(2,1)*zs2*zs3 . )*fm45*zs1+(zs3-zs5)*v4c2(3,1)*fm20)*fr2(1))/(4*fm45*zs1) cs2=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,1)*zs4+v4c2(2,1)*zs2*zs3 . )*fm45*zs1+(zs3-zs5)*v4c2(3,1)*fm20)*fi2(1))/(4*fm45*zs1) cs1=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,1)*zs4+v4c2(2,1)*zs2*zs3 . )*fm45*zs1-(zs3+zs5)*v4c2(3,1)*fm20)*fr2(1))/(4*fm45*zs1) p2=plamda(fm46n2,fm20n2,fm22n2) a=(((fm20+2*fm46)*fm20-(fm22**2-fm46**2))*(cs1**2+cs2**2)+(( . fm20-2*fm46)*fm20-(fm22**2-fm46**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->tau- + tau1+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->tau+ + tau1-" endif c Start decay width for Z1SS->TAU- + TAU2+ if(fm46.ge.(fm20+fm25)) then c0=-g zs5=dsin(theta) zs4=dcos(v1c) zs3=dsin(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,1)*zs5+v4c2(2,1)*zs2*zs3 . )*fm45*zs1-(zs3-zs4)*v4c2(3,1)*fm20)*fi2(1))/(4*fm45*zs1) cs3=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,1)*zs5+v4c2(2,1)*zs2*zs3 . )*fm45*zs1+(zs3+zs4)*v4c2(3,1)*fm20)*fr2(1))/(4*fm45*zs1) cs2=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,1)*zs5+v4c2(2,1)*zs2*zs3 . )*fm45*zs1+(zs3+zs4)*v4c2(3,1)*fm20)*fi2(1))/(4*fm45*zs1) cs1=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,1)*zs5+v4c2(2,1)*zs2*zs3 . )*fm45*zs1-(zs3-zs4)*v4c2(3,1)*fm20)*fr2(1))/(4*fm45*zs1) p2=plamda(fm46n2,fm20n2,fm25n2) a=(((fm20+2*fm46)*fm20-(fm25**2-fm46**2))*(cs1**2+cs2**2)+(( . fm20-2*fm46)*fm20-(fm25**2-fm46**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->tau- + tau2+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->tau+ + tau2-" endif c Start decay width for Z1SS->UP + UBSSL if(fm46.ge.(fmu+fm28)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(3*v4c2(2,1)*zs1+v4c2(1,1)*zs2)*fi2(1))/12 cs1=(-dsqrt(2.d0)*(3*v4c2(2,1)*zs1+v4c2(1,1)*zs2)*fr2(1))/12 p2=plamda(fm46n2,fmun2,fm28n2) a=-(cs1**2+cs2**2)*(fm28**2-fm46**2-fmu**2) n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm46**2*pi) pname(nf,n)="z1ss->up + ubssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->ub + upssl" endif c Start decay width for Z1SS->UP + UBSSR if(fm46.ge.(fmu+fm41)) then c0=-g zs1=dsin(theta) cs4=(-dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/3 cs3=(dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/3 cs2=(dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/3 cs1=(-dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/3 p2=plamda(fm46n2,fmun2,fm41n2) a=((fm46**2+2*fm46*fmu+fmu**2-fm41**2)*(cs1**2+cs2**2)+(fm46**2 . -2*fm46*fmu+fmu**2-fm41**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm46**2*pi) pname(nf,n)="z1ss->up + ubssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->ub + upssr" endif c Start decay width for Z1SS->DN + DBSSL if(fm46.ge.(fmd+fm29)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(dsqrt(2.d0)*(3*v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fi2(1))/12 cs1=(dsqrt(2.d0)*(3*v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fr2(1))/12 p2=plamda(fm46n2,fmdn2,fm29n2) a=-(cs1**2+cs2**2)*(fm29**2-fm46**2-fmd**2) n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm46**2*pi) pname(nf,n)="z1ss->dn + dbssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->db + dnssl" endif c Start decay width for Z1SS->DN + DBSSR if(fm46.ge.(fmd+fm38)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/6 cs3=(-dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/6 cs2=(-dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/6 cs1=(dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/6 p2=plamda(fm46n2,fmdn2,fm38n2) a=((fm46**2+2*fm46*fmd+fmd**2-fm38**2)*(cs1**2+cs2**2)+(fm46**2 . -2*fm46*fmd+fmd**2-fm38**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm46**2*pi) pname(nf,n)="z1ss->dn + dbssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->db + dnssr" endif c Start decay width for Z1SS->CH + CBSSL if(fm46.ge.(fmc+fm32)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(3*v4c2(2,1)*zs1+v4c2(1,1)*zs2)*fi2(1))/12 cs1=(-dsqrt(2.d0)*(3*v4c2(2,1)*zs1+v4c2(1,1)*zs2)*fr2(1))/12 p2=plamda(fm46n2,fmcn2,fm32n2) a=-(cs1**2+cs2**2)*(fm32**2-fm46**2-fmc**2) n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm46**2*pi) pname(nf,n)="z1ss->ch + cbssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->cb + chssl" endif c Start decay width for Z1SS->CH + CBSSR if(fm46.ge.(fmc+fm42)) then c0=-g zs1=dsin(theta) cs4=(-dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/3 cs3=(dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/3 cs2=(dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/3 cs1=(-dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/3 p2=plamda(fm46n2,fmcn2,fm42n2) a=((fm46**2+2*fm46*fmc+fmc**2-fm42**2)*(cs1**2+cs2**2)+(fm46**2 . -2*fm46*fmc+fmc**2-fm42**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm46**2*pi) pname(nf,n)="z1ss->ch + cbssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->cb + chssr" endif c Start decay width for Z1SS->ST + SBSSL if(fm46.ge.(fms+fm33)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(dsqrt(2.d0)*(3*v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fi2(1))/12 cs1=(dsqrt(2.d0)*(3*v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fr2(1))/12 p2=plamda(fm46n2,fmsn2,fm33n2) a=-(cs1**2+cs2**2)*(fm33**2-fm46**2-fms**2) n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm46**2*pi) pname(nf,n)="z1ss->st + sbssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->sb + stssl" endif c Start decay width for Z1SS->ST + SBSSR if(fm46.ge.(fms+fm39)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/6 cs3=(-dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/6 cs2=(-dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/6 cs1=(dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/6 p2=plamda(fm46n2,fmsn2,fm39n2) a=((fm46**2+2*fm46*fms+fms**2-fm39**2)*(cs1**2+cs2**2)+(fm46**2 . -2*fm46*fms+fms**2-fm39**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm46**2*pi) pname(nf,n)="z1ss->st + sbssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->sb + stssr" endif c Start decay width for Z1SS->TP + TBSS1 if(fm46.ge.(fm34+fm36)) then c0=-g zs5=dsin(v4c) zs4=dsin(theta) zs3=dsin(beta1) zs2=dcos(v4c) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(((zs2-4*zs5)*v4c2(1,1)*zs4+3*v4c2(2,1)*zs1* . zs2)*fm45*zs3+3*(zs2-zs5)*v4c2(4,1)*fm34)*fi2(1))/(12*fm45*zs3 . ) cs3=(-dsqrt(2.d0)*(((zs2+4*zs5)*v4c2(1,1)*zs4+3*v4c2(2,1)*zs1* . zs2)*fm45*zs3-3*(zs2+zs5)*v4c2(4,1)*fm34)*fr2(1))/(12*fm45*zs3 . ) cs2=(-dsqrt(2.d0)*(((zs2+4*zs5)*v4c2(1,1)*zs4+3*v4c2(2,1)*zs1* . zs2)*fm45*zs3-3*(zs2+zs5)*v4c2(4,1)*fm34)*fi2(1))/(12*fm45*zs3 . ) cs1=(-dsqrt(2.d0)*(((zs2-4*zs5)*v4c2(1,1)*zs4+3*v4c2(2,1)*zs1* . zs2)*fm45*zs3+3*(zs2-zs5)*v4c2(4,1)*fm34)*fr2(1))/(12*fm45*zs3 . ) p2=plamda(fm46n2,fm34n2,fm36n2) a=(((fm34+2*fm46)*fm34-(fm36**2-fm46**2))*(cs1**2+cs2**2)+(( . fm34-2*fm46)*fm34-(fm36**2-fm46**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm46**2*pi) pname(nf,n)="z1ss->tp + tbss1" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->tb + tpss1" endif c Start decay width for Z1SS->TP + TBSS2 if(fm46.ge.(fm34+fm43)) then c0=-g zs5=dsin(theta) zs4=dcos(v4c) zs3=dsin(v4c) zs2=dsin(beta1) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(((zs3+4*zs4)*v4c2(1,1)*zs5+3*v4c2(2,1)*zs1* . zs3)*fm45*zs2+3*(zs3+zs4)*v4c2(4,1)*fm34)*fi2(1))/(12*fm45*zs2 . ) cs3=(-dsqrt(2.d0)*(((zs3-4*zs4)*v4c2(1,1)*zs5+3*v4c2(2,1)*zs1* . zs3)*fm45*zs2-3*(zs3-zs4)*v4c2(4,1)*fm34)*fr2(1))/(12*fm45*zs2 . ) cs2=(-dsqrt(2.d0)*(((zs3-4*zs4)*v4c2(1,1)*zs5+3*v4c2(2,1)*zs1* . zs3)*fm45*zs2-3*(zs3-zs4)*v4c2(4,1)*fm34)*fi2(1))/(12*fm45*zs2 . ) cs1=(-dsqrt(2.d0)*(((zs3+4*zs4)*v4c2(1,1)*zs5+3*v4c2(2,1)*zs1* . zs3)*fm45*zs2+3*(zs3+zs4)*v4c2(4,1)*fm34)*fr2(1))/(12*fm45*zs2 . ) p2=plamda(fm46n2,fm34n2,fm43n2) a=(((fm34+2*fm46)*fm34-(fm43**2-fm46**2))*(cs1**2+cs2**2)+(( . fm34-2*fm46)*fm34-(fm43**2-fm46**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm46**2*pi) pname(nf,n)="z1ss->tp + tbss2" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->tb + tpss2" endif c Start decay width for Z1SS->BT + BBSS1 if(fm46.ge.(fm35+fm37)) then c0=-g zs5=dsin(v3c) zs4=dsin(theta) zs3=dcos(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,1)*zs4-3*v4c2(2,1)*zs2* . zs3)*fm45*zs1+3*(zs3-zs5)*v4c2(3,1)*fm35)*fi2(1))/(12*fm45*zs1 . ) cs3=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,1)*zs4-3*v4c2(2,1)*zs2* . zs3)*fm45*zs1-3*(zs3+zs5)*v4c2(3,1)*fm35)*fr2(1))/(12*fm45*zs1 . ) cs2=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,1)*zs4-3*v4c2(2,1)*zs2* . zs3)*fm45*zs1-3*(zs3+zs5)*v4c2(3,1)*fm35)*fi2(1))/(12*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,1)*zs4-3*v4c2(2,1)*zs2* . zs3)*fm45*zs1+3*(zs3-zs5)*v4c2(3,1)*fm35)*fr2(1))/(12*fm45*zs1 . ) p2=plamda(fm46n2,fm35n2,fm37n2) a=(((fm35+2*fm46)*fm35-(fm37**2-fm46**2))*(cs1**2+cs2**2)+(( . fm35-2*fm46)*fm35-(fm37**2-fm46**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm46**2*pi) pname(nf,n)="z1ss->bt + bbss1" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->bb + btss1" endif c Start decay width for Z1SS->BT + BBSS2 if(fm46.ge.(fm35+fm40)) then c0=-g zs5=dsin(theta) zs4=dcos(v3c) zs3=dsin(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,1)*zs5-3*v4c2(2,1)*zs2* . zs3)*fm45*zs1+3*(zs3+zs4)*v4c2(3,1)*fm35)*fi2(1))/(12*fm45*zs1 . ) cs3=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,1)*zs5-3*v4c2(2,1)*zs2* . zs3)*fm45*zs1-3*(zs3-zs4)*v4c2(3,1)*fm35)*fr2(1))/(12*fm45*zs1 . ) cs2=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,1)*zs5-3*v4c2(2,1)*zs2* . zs3)*fm45*zs1-3*(zs3-zs4)*v4c2(3,1)*fm35)*fi2(1))/(12*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,1)*zs5-3*v4c2(2,1)*zs2* . zs3)*fm45*zs1+3*(zs3+zs4)*v4c2(3,1)*fm35)*fr2(1))/(12*fm45*zs1 . ) p2=plamda(fm46n2,fm35n2,fm40n2) a=(((fm35+2*fm46)*fm35-(fm40**2-fm46**2))*(cs1**2+cs2**2)+(( . fm35-2*fm46)*fm35-(fm40**2-fm46**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm46**2*pi) pname(nf,n)="z1ss->bt + bbss2" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->bb + btss2" endif c Start decay width for Z1SS->HL0 + Z2SS if(fm46.ge.(fm8+fm47)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=((((v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,2))*zs3+(v4c2(2,2)*zs1-v4c2(1,2)*zs4)* . v4c2(4,1)*zs2+(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,2)*zs2)*( . fi2(2)*fr2(1)+fi2(1)*fr2(2)))/2 cs1=(-(((v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,2))*zs3+(v4c2(2,2)*zs1-v4c2(1,2)*zs4)* . v4c2(4,1)*zs2+(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,2)*zs2)*( . fi2(2)*fi2(1)-fr2(2)*fr2(1)))/2 p2=plamda(fm46n2,fm8n2,fm47n2) a=(((fm46+2*fm47)*fm46+fm47**2-fm8**2)*cs1**2+((fm46-2*fm47)* . fm46+fm47**2-fm8**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->hl0 + z2ss" endif c Start decay width for Z1SS->HL0 + Z3SS if(fm46.ge.(fm8+fm4)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=((((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,3))*zs3+(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,1)*zs2+(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,3)*zs2)*( . fi2(3)*fr2(1)+fi2(1)*fr2(3)))/2 cs1=(-(((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,3))*zs3+(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,1)*zs2+(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,3)*zs2)*( . fi2(3)*fi2(1)-fr2(3)*fr2(1)))/2 p2=plamda(fm46n2,fm8n2,fm4n2) a=(((fm4+2*fm46)*fm4+fm46**2-fm8**2)*cs1**2+((fm4-2*fm46)*fm4+ . fm46**2-fm8**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->hl0 + z3ss" endif c Start decay width for Z1SS->HL0 + Z4SS if(fm46.ge.(fm8+fm10)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=((((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,4))*zs3+(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,1)*zs2+(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,4)*zs2)*( . fi2(4)*fr2(1)+fi2(1)*fr2(4)))/2 cs1=(-(((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,4))*zs3+(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,1)*zs2+(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,4)*zs2)*( . fi2(4)*fi2(1)-fr2(4)*fr2(1)))/2 p2=plamda(fm46n2,fm8n2,fm10n2) a=(((fm10+2*fm46)*fm10+fm46**2-fm8**2)*cs1**2+((fm10-2*fm46)* . fm10+fm46**2-fm8**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->hl0 + z4ss" endif c Start decay width for Z1SS->HH0 + Z2SS if(fm46.ge.(fm2+fm47)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-(((v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,2))*zs2-(v4c2(2,2)*zs1-v4c2(1,2)*zs4)* . v4c2(4,1)*zs3-(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,2)*zs3)*( . fi2(2)*fr2(1)+fi2(1)*fr2(2)))/2 cs1=((((v4c2(2,2)*zs1-v4c2(1,2)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,2))*zs2-(v4c2(2,2)*zs1-v4c2(1,2)*zs4)* . v4c2(4,1)*zs3-(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,2)*zs3)*( . fi2(2)*fi2(1)-fr2(2)*fr2(1)))/2 p2=plamda(fm46n2,fm2n2,fm47n2) a=((fm46**2+2*fm46*fm47+fm47**2-fm2**2)*cs1**2+(fm46**2-2*fm46* . fm47+fm47**2-fm2**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->hh0 + z2ss" endif c Start decay width for Z1SS->HH0 + Z3SS if(fm46.ge.(fm2+fm4)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-(((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,3))*zs2-(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,1)*zs3-(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,3)*zs3)*( . fi2(3)*fr2(1)+fi2(1)*fr2(3)))/2 cs1=((((v4c2(2,3)*zs1-v4c2(1,3)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,3))*zs2-(v4c2(2,3)*zs1-v4c2(1,3)*zs4)* . v4c2(4,1)*zs3-(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,3)*zs3)*( . fi2(3)*fi2(1)-fr2(3)*fr2(1)))/2 p2=plamda(fm46n2,fm2n2,fm4n2) a=((fm4**2+2*fm4*fm46+fm46**2-fm2**2)*cs1**2+(fm4**2-2*fm4*fm46 . +fm46**2-fm2**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->hh0 + z3ss" endif c Start decay width for Z1SS->HH0 + Z4SS if(fm46.ge.(fm2+fm10)) then c0=-g zs4=dsin(theta) zs3=dsin(v2c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-(((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,4))*zs2-(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,1)*zs3-(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,4)*zs3)*( . fi2(4)*fr2(1)+fi2(1)*fr2(4)))/2 cs1=((((v4c2(2,4)*zs1-v4c2(1,4)*zs4)*v4c2(3,1)+(v4c2(2,1)*zs1- . v4c2(1,1)*zs4)*v4c2(3,4))*zs2-(v4c2(2,4)*zs1-v4c2(1,4)*zs4)* . v4c2(4,1)*zs3-(v4c2(2,1)*zs1-v4c2(1,1)*zs4)*v4c2(4,4)*zs3)*( . fi2(4)*fi2(1)-fr2(4)*fr2(1)))/2 p2=plamda(fm46n2,fm2n2,fm10n2) a=(((fm10+2*fm46)*fm10-(fm2**2-fm46**2))*cs1**2+((fm10-2*fm46)* . fm10-(fm2**2-fm46**2))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->hh0 + z4ss" endif c Start decay width for Z1SS->H- + W1SS+ if(fm46.ge.(fm3+fm49)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(1)*v4c2(4,1)*zs1*zs3+v4c2(3,1)*zs6*zs7)*fi2(1)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fi2(1))/4 cs3=(-2*(fn1(1)*v4c2(4,1)*zs1*zs3-v4c2(3,1)*zs6*zs7)*fr2(1)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fr2(1))/4 cs2=(-2*(fn1(1)*v4c2(4,1)*zs1*zs3-v4c2(3,1)*zs6*zs7)*fi2(1)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fi2(1))/4 cs1=(-2*(fn1(1)*v4c2(4,1)*zs1*zs3+v4c2(3,1)*zs6*zs7)*fr2(1)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fr2(1))/4 p2=plamda(fm46n2,fm3n2,fm49n2) a=((fm46**2+2*fm46*fm49+fm49**2-fm3**2)*(cs1**2+cs2**2)+(fm46** . 2-2*fm46*fm49+fm49**2-fm3**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->h- + w1ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->h+ + w1ss-" endif c Start decay width for Z1SS->H- + W2SS+ if(fm46.ge.(fm3+fm52)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(2)*v4c2(4,1)*zs1*zs4+v4c2(3,1)*zs7*zs8)*fi2(1)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fi2(1))/4 cs3=(-2*(fn1(2)*v4c2(4,1)*zs1*zs4-v4c2(3,1)*zs7*zs8)*fr2(1)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fr2(1))/4 cs2=(-2*(fn1(2)*v4c2(4,1)*zs1*zs4-v4c2(3,1)*zs7*zs8)*fi2(1)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fi2(1))/4 cs1=(-2*(fn1(2)*v4c2(4,1)*zs1*zs4+v4c2(3,1)*zs7*zs8)*fr2(1)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fr2(1))/4 p2=plamda(fm46n2,fm3n2,fm52n2) a=((fm46**2+2*fm46*fm52+fm52**2-fm3**2)*(cs1**2+cs2**2)+(fm46** . 2-2*fm46*fm52+fm52**2-fm3**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->h- + w2ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->h+ + w2ss-" endif c Start decay width for Z1SS->HA0 + Z2SS if(fm46.ge.(fm6+fm47)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-(((v4c2(2,2)*zs2-v4c2(1,2)*zs3)*v4c2(3,1)+(v4c2(2,1)*zs2- . v4c2(1,1)*zs3)*v4c2(3,2))*zs4-(v4c2(2,2)*zs2-v4c2(1,2)*zs3)* . v4c2(4,1)*zs1-(v4c2(2,1)*zs2-v4c2(1,1)*zs3)*v4c2(4,2)*zs1)*( . fi2(2)*fi2(1)-fr2(2)*fr2(1)))/2 cs1=(-(((v4c2(2,2)*zs2-v4c2(1,2)*zs3)*v4c2(3,1)+(v4c2(2,1)*zs2- . v4c2(1,1)*zs3)*v4c2(3,2))*zs4-(v4c2(2,2)*zs2-v4c2(1,2)*zs3)* . v4c2(4,1)*zs1-(v4c2(2,1)*zs2-v4c2(1,1)*zs3)*v4c2(4,2)*zs1)*( . fi2(2)*fr2(1)+fi2(1)*fr2(2)))/2 p2=plamda(fm46n2,fm6n2,fm47n2) a=(((fm46+2*fm47)*fm46+fm47**2-fm6**2)*cs1**2+((fm46-2*fm47)* . fm46+fm47**2-fm6**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->ha0 + z2ss" endif c Start decay width for Z1SS->HA0 + Z3SS if(fm46.ge.(fm6+fm4)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-(((v4c2(2,3)*zs2-v4c2(1,3)*zs3)*v4c2(3,1)+(v4c2(2,1)*zs2- . v4c2(1,1)*zs3)*v4c2(3,3))*zs4-(v4c2(2,3)*zs2-v4c2(1,3)*zs3)* . v4c2(4,1)*zs1-(v4c2(2,1)*zs2-v4c2(1,1)*zs3)*v4c2(4,3)*zs1)*( . fi2(3)*fi2(1)-fr2(3)*fr2(1)))/2 cs1=(-(((v4c2(2,3)*zs2-v4c2(1,3)*zs3)*v4c2(3,1)+(v4c2(2,1)*zs2- . v4c2(1,1)*zs3)*v4c2(3,3))*zs4-(v4c2(2,3)*zs2-v4c2(1,3)*zs3)* . v4c2(4,1)*zs1-(v4c2(2,1)*zs2-v4c2(1,1)*zs3)*v4c2(4,3)*zs1)*( . fi2(3)*fr2(1)+fi2(1)*fr2(3)))/2 p2=plamda(fm46n2,fm6n2,fm4n2) a=(((fm4+2*fm46)*fm4+fm46**2-fm6**2)*cs1**2+((fm4-2*fm46)*fm4+ . fm46**2-fm6**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->ha0 + z3ss" endif c Start decay width for Z1SS->HA0 + Z4SS if(fm46.ge.(fm6+fm10)) then c0=-g zs4=dsin(beta1) zs3=dsin(theta) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-(((v4c2(2,4)*zs2-v4c2(1,4)*zs3)*v4c2(3,1)+(v4c2(2,1)*zs2- . v4c2(1,1)*zs3)*v4c2(3,4))*zs4-(v4c2(2,4)*zs2-v4c2(1,4)*zs3)* . v4c2(4,1)*zs1-(v4c2(2,1)*zs2-v4c2(1,1)*zs3)*v4c2(4,4)*zs1)*( . fi2(4)*fi2(1)-fr2(4)*fr2(1)))/2 cs1=(-(((v4c2(2,4)*zs2-v4c2(1,4)*zs3)*v4c2(3,1)+(v4c2(2,1)*zs2- . v4c2(1,1)*zs3)*v4c2(3,4))*zs4-(v4c2(2,4)*zs2-v4c2(1,4)*zs3)* . v4c2(4,1)*zs1-(v4c2(2,1)*zs2-v4c2(1,1)*zs3)*v4c2(4,4)*zs1)*( . fi2(4)*fr2(1)+fi2(1)*fr2(4)))/2 p2=plamda(fm46n2,fm6n2,fm10n2) a=(((fm10+2*fm46)*fm10+fm46**2-fm6**2)*cs1**2+((fm10-2*fm46)* . fm10+fm46**2-fm6**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->ha0 + z4ss" endif c Start decay width for Z1SS->Z0 + Z2SS if(fm46.ge.(fm45+fm47)) then c0=-g cs2=((fi2(2)*fi2(1)+fr2(2)*fr2(1))*(v4c2(4,2)*v4c2(4,1)-v4c2(3, . 2)*v4c2(3,1)))/2 cs1=((fi2(2)*fr2(1)-fi2(1)*fr2(2))*(v4c2(4,2)*v4c2(4,1)-v4c2(3, . 2)*v4c2(3,1)))/2 p2=plamda(fm46n2,fm45n2,fm47n2) a=(((fm46**4-2*fm46**2*fm47**2+fm47**4-(fm46**2+2*fm46*fm47+ . fm47**2)*fm45**2)*dfm45n2+2*(fm46**2+4*fm46*fm47+fm47**2-fm45 . **2))*cs2**2+((fm46**4-2*fm46**2*fm47**2+fm47**4-(fm46**2-2* . fm46*fm47+fm47**2)*fm45**2)*dfm45n2+2*(fm46**2-4*fm46*fm47+ . fm47**2-fm45**2))*cs1**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->z0 + z2ss" endif c Start decay width for Z1SS->Z0 + Z3SS if(fm46.ge.(fm45+fm4)) then c0=-g cs2=((fi2(3)*fi2(1)+fr2(3)*fr2(1))*(v4c2(4,3)*v4c2(4,1)-v4c2(3, . 3)*v4c2(3,1)))/2 cs1=((fi2(3)*fr2(1)-fi2(1)*fr2(3))*(v4c2(4,3)*v4c2(4,1)-v4c2(3, . 3)*v4c2(3,1)))/2 p2=plamda(fm46n2,fm45n2,fm4n2) a=((((fm4**3+2*fm45**2*fm46)*fm4-(fm45**2-fm46**2)*fm46**2-( . fm45**2+2*fm46**2)*fm4**2)*dfm45n2+2*((fm4-4*fm46)*fm4-(fm45** . 2-fm46**2)))*cs1**2+(((fm4**3-2*fm45**2*fm46)*fm4-(fm45**2- . fm46**2)*fm46**2-(fm45**2+2*fm46**2)*fm4**2)*dfm45n2+2*((fm4+4 . *fm46)*fm4-(fm45**2-fm46**2)))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->z0 + z3ss" endif c Start decay width for Z1SS->Z0 + Z4SS if(fm46.ge.(fm45+fm10)) then c0=-g cs2=((fi2(4)*fi2(1)+fr2(4)*fr2(1))*(v4c2(4,4)*v4c2(4,1)-v4c2(3, . 4)*v4c2(3,1)))/2 cs1=((fi2(4)*fr2(1)-fi2(1)*fr2(4))*(v4c2(4,4)*v4c2(4,1)-v4c2(3, . 4)*v4c2(3,1)))/2 p2=plamda(fm46n2,fm45n2,fm10n2) a=((((fm10**3+2*fm45**2*fm46)*fm10-(fm45**2-fm46**2)*fm46**2-( . fm45**2+2*fm46**2)*fm10**2)*dfm45n2+2*((fm10-4*fm46)*fm10-( . fm45**2-fm46**2)))*cs1**2+(((fm10**3-2*fm45**2*fm46)*fm10-( . fm45**2-fm46**2)*fm46**2-(fm45**2+2*fm46**2)*fm10**2)*dfm45n2+ . 2*((fm10+4*fm46)*fm10-(fm45**2-fm46**2)))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->z0 + z4ss" endif c Start decay width for Z1SS->W- + W1SS+ if(fm46.ge.(fm48+fm49)) then c0=-g zs5=dsin(v6c) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(v6c) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(fn1(1)*v4c2(4,1)*zs4-v4c2(3,1)*zs5)*fi2(1)* . zs1-2*(fn1(1)*zs3+zs2)*fi2(1)*v4c2(2,1)*zs1)/4 cs3=(dsqrt(2.d0)*(fn1(1)*v4c2(4,1)*zs4+v4c2(3,1)*zs5)*fr2(1)* . zs1+2*(fn1(1)*zs3-zs2)*fr2(1)*v4c2(2,1)*zs1)/4 cs2=(-dsqrt(2.d0)*(fn1(1)*v4c2(4,1)*zs4+v4c2(3,1)*zs5)*fi2(1)* . zs1-2*(fn1(1)*zs3-zs2)*fi2(1)*v4c2(2,1)*zs1)/4 cs1=(dsqrt(2.d0)*(fn1(1)*v4c2(4,1)*zs4-v4c2(3,1)*zs5)*fr2(1)* . zs1+2*(fn1(1)*zs3+zs2)*fr2(1)*v4c2(2,1)*zs1)/4 p2=plamda(fm46n2,fm48n2,fm49n2) ans=((((fm46**3+2*fm48**2*fm49)*fm46-(fm48**2-fm49**2)*fm49**2- . (fm48**2+2*fm49**2)*fm46**2)*dfm48n2+2*((fm46-4*fm49)*fm46-( . fm48**2-fm49**2)))*(cs1**2+cs2**2)+(((fm46**3-2*fm48**2*fm49)* . fm46-(fm48**2-fm49**2)*fm49**2-(fm48**2+2*fm49**2)*fm46**2)* . dfm48n2+2*((fm46+4*fm49)*fm46-(fm48**2-fm49**2)))*(cs3**2+cs4 . **2))/2 a=ans n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->w- + w1ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->w+ + w1ss-" endif c Start decay width for Z1SS->W- + W2SS+ if(fm46.ge.(fm48+fm52)) then c0=-g zs5=dsin(v6c) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(v6c) zs1=dcos(theta) cs4=(dsqrt(2.d0)*(fn1(2)*v4c2(4,1)*zs3-v4c2(3,1)*zs2)*fi2(1)* . zs1-2*(fn1(2)*zs4+zs5)*fi2(1)*v4c2(2,1)*zs1)/4 cs3=(-dsqrt(2.d0)*(fn1(2)*v4c2(4,1)*zs3+v4c2(3,1)*zs2)*fr2(1)* . zs1+2*(fn1(2)*zs4-zs5)*fr2(1)*v4c2(2,1)*zs1)/4 cs2=(dsqrt(2.d0)*(fn1(2)*v4c2(4,1)*zs3+v4c2(3,1)*zs2)*fi2(1)* . zs1-2*(fn1(2)*zs4-zs5)*fi2(1)*v4c2(2,1)*zs1)/4 cs1=(-dsqrt(2.d0)*(fn1(2)*v4c2(4,1)*zs3-v4c2(3,1)*zs2)*fr2(1)* . zs1+2*(fn1(2)*zs4+zs5)*fr2(1)*v4c2(2,1)*zs1)/4 p2=plamda(fm46n2,fm48n2,fm52n2) ans=((((fm46**3+2*fm48**2*fm52)*fm46-(fm48**2-fm52**2)*fm52**2- . (fm48**2+2*fm52**2)*fm46**2)*dfm48n2+2*((fm46-4*fm52)*fm46-( . fm48**2-fm52**2)))*(cs1**2+cs2**2)+(((fm46**3-2*fm48**2*fm52)* . fm46-(fm48**2-fm52**2)*fm52**2-(fm48**2+2*fm52**2)*fm46**2)* . dfm48n2+2*((fm46+4*fm52)*fm46-(fm48**2-fm52**2)))*(cs3**2+cs4 . **2))/2 a=ans n=n+1 width(nf,n)=c0**2*a*p2/(4*fm46**2*pi) pname(nf,n)="z1ss->w- + w2ss+" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="z1ss->w+ + w2ss-" endif decay_f8=pa_width(pa,nf,n,iflag,br0) return end function decay_f9(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=9 pa="xk1" c Start decay width for W2SS-->E- + ANUEL if(fm52.ge.(fme+fm13)) then c0=-g zs2=dsin(v7c) zs1=dcos(theta) cs1=(-dsqrt(2.d0)*fn1(2)*zs1*zs2)/4 p2=plamda(fm52n2,fmen2,fm13n2) a=-(fm13**2-fm52**2-fme**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->e- + anuel" endif c Start decay width for W2SS-->MU- + ANUML if(fm52.ge.(fmmu+fm17)) then c0=-g zs2=dsin(v7c) zs1=dcos(theta) cs1=(-dsqrt(2.d0)*fn1(2)*zs1*zs2)/4 p2=plamda(fm52n2,fmmun2,fm17n2) a=-(fm17**2-fm52**2-fmmu**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->mu- + anuml" endif c Start decay width for W2SS-->TAU- + ANUTL if(fm52.ge.(fm20+fm21)) then c0=-g zs4=dcos(v6c) zs3=dsin(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-dsqrt(2.d0)*fn1(2)*fm45*zs1*zs2*zs3-fm20*zs4)/(4*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*fn1(2)*fm45*zs1*zs2*zs3+fm20*zs4)/(4*fm45*zs1 . ) p2=plamda(fm52n2,fm20n2,fm21n2) a=(((fm20+2*fm52)*fm20-(fm21**2-fm52**2))*cs1**2+((fm20-2*fm52) . *fm20-(fm21**2-fm52**2))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->tau- + anutl" endif c Start decay width for W2SS-->DN + UBSSL if(fm52.ge.(fmd+fm28)) then c0=-g zs2=dsin(v7c) zs1=dcos(theta) cs1=(-fn1(2)*zs1*zs2)/2 p2=plamda(fm52n2,fmdn2,fm28n2) a=-(fm28**2-fm52**2-fmd**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm52**2*pi) pname(nf,n)="w2ss-->dn + ubssl" endif c Start decay width for W2SS-->ST + CBSSL if(fm52.ge.(fms+fm32)) then c0=-g zs2=dsin(v7c) zs1=dcos(theta) cs1=(-fn1(2)*zs1*zs2)/2 p2=plamda(fm52n2,fmsn2,fm32n2) a=-(fm32**2-fm52**2-fms**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm52**2*pi) pname(nf,n)="w2ss-->st + cbssl" endif c Start decay width for W2SS-->BT + TBSS1 if(fm52.ge.(fm35+fm36)) then c0=-g zs8=dcos(v6c) zs7=dsin(v4c) zs6=dcos(v7c) zs5=dsin(v7c) zs4=dsin(beta1) zs3=dcos(v4c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-dsqrt(2.d0)*(fn1(2)*fm34*zs1*zs6*zs7+fm35*zs3*zs4*zs8)-2* . fn1(2)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs4) cs1=(-dsqrt(2.d0)*(fn1(2)*fm34*zs1*zs6*zs7-fm35*zs3*zs4*zs8)-2* . fn1(2)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs4) p2=plamda(fm52n2,fm35n2,fm36n2) a=(((fm35+2*fm52)*fm35-(fm36**2-fm52**2))*cs1**2+((fm35-2*fm52) . *fm35-(fm36**2-fm52**2))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm52**2*pi) pname(nf,n)="w2ss-->bt + tbss1" endif c Start decay width for W2SS-->BT + TBSS2 if(fm52.ge.(fm35+fm43)) then c0=-g zs8=dcos(v6c) zs7=dcos(v7c) zs6=dcos(v4c) zs5=dsin(v7c) zs4=dsin(v4c) zs3=dsin(beta1) zs2=dcos(theta) zs1=dcos(beta1) cs2=(dsqrt(2.d0)*(fn1(2)*fm34*zs1*zs6*zs7-fm35*zs3*zs4*zs8)-2* . fn1(2)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs3) cs1=(dsqrt(2.d0)*(fn1(2)*fm34*zs1*zs6*zs7+fm35*zs3*zs4*zs8)-2* . fn1(2)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs3) p2=plamda(fm52n2,fm35n2,fm43n2) a=(((fm35+2*fm52)*fm35-(fm43**2-fm52**2))*cs1**2+((fm35-2*fm52) . *fm35-(fm43**2-fm52**2))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm52**2*pi) pname(nf,n)="w2ss-->bt + tbss2" endif c Start decay width for W2SS-->HL0 + W1SS- if(fm52.ge.(fm8+fm49)) then c0=-g zs7=dsin(v2c) zs6=dsin(v7c) zs5=dsin(v6c) zs4=dcos(v7c) zs3=dcos(v6c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*((zs2*zs3*zs4+zs5*zs6*zs7)*fn1(2)+(zs2*zs5* . zs6+zs3*zs4*zs7)*fn1(1))*zs1)/4 cs1=(-dsqrt(2.d0)*((zs2*zs3*zs4+zs5*zs6*zs7)*fn1(2)-(zs2*zs5* . zs6+zs3*zs4*zs7)*fn1(1))*zs1)/4 p2=plamda(fm52n2,fm8n2,fm49n2) a=(((fm49+2*fm52)*fm49+fm52**2-fm8**2)*cs1**2+((fm49-2*fm52)* . fm49+fm52**2-fm8**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->hl0 + w1ss-" endif c Start decay width for W2SS-->HH0 + W1SS- if(fm52.ge.(fm2+fm49)) then c0=-g zs7=dsin(v2c) zs6=dsin(v7c) zs5=dsin(v6c) zs4=dcos(v7c) zs3=dcos(v6c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(dsqrt(2.d0)*((zs2*zs3*zs4-zs5*zs6*zs7)*fn1(1)+(zs2*zs5*zs6 . -zs3*zs4*zs7)*fn1(2))*zs1)/4 cs1=(-dsqrt(2.d0)*((zs2*zs3*zs4-zs5*zs6*zs7)*fn1(1)-(zs2*zs5* . zs6-zs3*zs4*zs7)*fn1(2))*zs1)/4 p2=plamda(fm52n2,fm2n2,fm49n2) a=((fm49**2+2*fm49*fm52+fm52**2-fm2**2)*cs1**2+(fm49**2-2*fm49* . fm52+fm52**2-fm2**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->hh0 + w1ss-" endif c Start decay width for W2SS-->H- + Z1SS if(fm52.ge.(fm3+fm46)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(2)*v4c2(4,1)*zs1*zs4+v4c2(3,1)*zs7*zs8)*fi2(1)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fi2(1))/4 cs3=(-2*(fn1(2)*v4c2(4,1)*zs1*zs4-v4c2(3,1)*zs7*zs8)*fr2(1)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fr2(1))/4 cs2=(-2*(fn1(2)*v4c2(4,1)*zs1*zs4-v4c2(3,1)*zs7*zs8)*fi2(1)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fi2(1))/4 cs1=(-2*(fn1(2)*v4c2(4,1)*zs1*zs4+v4c2(3,1)*zs7*zs8)*fr2(1)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fr2(1))/4 p2=plamda(fm52n2,fm3n2,fm46n2) a=((fm46**2+2*fm46*fm52+fm52**2-fm3**2)*(cs1**2+cs2**2)+(fm46** . 2-2*fm46*fm52+fm52**2-fm3**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->h- + z1ss" endif c Start decay width for W2SS-->H- + Z2SS if(fm52.ge.(fm3+fm47)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(2)*v4c2(4,2)*zs1*zs4+v4c2(3,2)*zs7*zs8)*fi2(2)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fi2(2))/4 cs3=(-2*(fn1(2)*v4c2(4,2)*zs1*zs4-v4c2(3,2)*zs7*zs8)*fr2(2)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fr2(2))/4 cs2=(-2*(fn1(2)*v4c2(4,2)*zs1*zs4-v4c2(3,2)*zs7*zs8)*fi2(2)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fi2(2))/4 cs1=(-2*(fn1(2)*v4c2(4,2)*zs1*zs4+v4c2(3,2)*zs7*zs8)*fr2(2)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fr2(2))/4 p2=plamda(fm52n2,fm3n2,fm47n2) a=((fm47**2+2*fm47*fm52+fm52**2-fm3**2)*(cs1**2+cs2**2)+(fm47** . 2-2*fm47*fm52+fm52**2-fm3**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->h- + z2ss" endif c Start decay width for W2SS-->H- + Z3SS if(fm52.ge.(fm3+fm4)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(2)*v4c2(4,3)*zs1*zs4+v4c2(3,3)*zs7*zs8)*fi2(3)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fi2(3))/4 cs3=(-2*(fn1(2)*v4c2(4,3)*zs1*zs4-v4c2(3,3)*zs7*zs8)*fr2(3)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fr2(3))/4 cs2=(-2*(fn1(2)*v4c2(4,3)*zs1*zs4-v4c2(3,3)*zs7*zs8)*fi2(3)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fi2(3))/4 cs1=(-2*(fn1(2)*v4c2(4,3)*zs1*zs4+v4c2(3,3)*zs7*zs8)*fr2(3)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fr2(3))/4 p2=plamda(fm52n2,fm3n2,fm4n2) a=((fm4**2+2*fm4*fm52+fm52**2-fm3**2)*(cs1**2+cs2**2)+(fm4**2-2 . *fm4*fm52+fm52**2-fm3**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->h- + z3ss" endif c Start decay width for W2SS-->H- + Z4SS if(fm52.ge.(fm3+fm10)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(2)*v4c2(4,4)*zs1*zs4+v4c2(3,4)*zs7*zs8)*fi2(4)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fi2(4))/4 cs3=(-2*(fn1(2)*v4c2(4,4)*zs1*zs4-v4c2(3,4)*zs7*zs8)*fr2(4)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fr2(4))/4 cs2=(-2*(fn1(2)*v4c2(4,4)*zs1*zs4-v4c2(3,4)*zs7*zs8)*fi2(4)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3+zs6*zs7)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fi2(4))/4 cs1=(-2*(fn1(2)*v4c2(4,4)*zs1*zs4+v4c2(3,4)*zs7*zs8)*fr2(4)*zs2 . -dsqrt(2.d0)*(fn1(2)*zs1*zs3-zs6*zs7)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fr2(4))/4 p2=plamda(fm52n2,fm3n2,fm10n2) a=(((fm10+2*fm52)*fm10-(fm3**2-fm52**2))*(cs1**2+cs2**2)+((fm10 . -2*fm52)*fm10-(fm3**2-fm52**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->h- + z4ss" endif c Start decay width for W2SS-->HA0 + W1SS- if(fm52.ge.(fm6+fm49)) then c0=-g zs7=dsin(beta1) zs6=dsin(v7c) zs5=dsin(v6c) zs4=dcos(v7c) zs3=dcos(v6c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(dsqrt(2.d0)*((zs1*zs3*zs4-zs5*zs6*zs7)*fn1(2)-(zs1*zs5*zs6 . -zs3*zs4*zs7)*fn1(1))*zs2)/4 cs1=(dsqrt(2.d0)*((zs1*zs3*zs4-zs5*zs6*zs7)*fn1(2)+(zs1*zs5*zs6 . -zs3*zs4*zs7)*fn1(1))*zs2)/4 p2=plamda(fm52n2,fm6n2,fm49n2) a=(((fm49+2*fm52)*fm49+fm52**2-fm6**2)*cs1**2+((fm49-2*fm52)* . fm49+fm52**2-fm6**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->ha0 + w1ss-" endif c Start decay width for W2SS-->Z0 + W1SS- if(fm52.ge.(fm45+fm49)) then c0=-g zs2=dsin(2*v6c) zs1=dsin(2*v7c) cs2=(-fn1(2)*fn1(1)*zs1+zs2)/8 cs1=(-fn1(2)*fn1(1)*zs1-zs2)/8 p2=plamda(fm52n2,fm45n2,fm49n2) a=(((fm49**4-2*fm49**2*fm52**2+fm52**4-(fm49**2+2*fm49*fm52+ . fm52**2)*fm45**2)*dfm45n2+2*(fm49**2+4*fm49*fm52+fm52**2-fm45 . **2))*cs2**2+((fm49**4-2*fm49**2*fm52**2+fm52**4-(fm49**2-2* . fm49*fm52+fm52**2)*fm45**2)*dfm45n2+2*(fm49**2-4*fm49*fm52+ . fm52**2-fm45**2))*cs1**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->z0 + w1ss-" endif c Start decay width for W2SS-->W- + Z1SS if(fm52.ge.(fm48+fm46)) then c0=-g zs5=dsin(v6c) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(v6c) zs1=dcos(theta) cs4=(dsqrt(2.d0)*(fn1(2)*v4c2(4,1)*zs3-v4c2(3,1)*zs2)*fi2(1)* . zs1-2*(fn1(2)*zs4+zs5)*fi2(1)*v4c2(2,1)*zs1)/4 cs3=(-dsqrt(2.d0)*(fn1(2)*v4c2(4,1)*zs3+v4c2(3,1)*zs2)*fr2(1)* . zs1+2*(fn1(2)*zs4-zs5)*fr2(1)*v4c2(2,1)*zs1)/4 cs2=(dsqrt(2.d0)*(fn1(2)*v4c2(4,1)*zs3+v4c2(3,1)*zs2)*fi2(1)* . zs1-2*(fn1(2)*zs4-zs5)*fi2(1)*v4c2(2,1)*zs1)/4 cs1=(-dsqrt(2.d0)*(fn1(2)*v4c2(4,1)*zs3-v4c2(3,1)*zs2)*fr2(1)* . zs1+2*(fn1(2)*zs4+zs5)*fr2(1)*v4c2(2,1)*zs1)/4 p2=plamda(fm52n2,fm48n2,fm46n2) ans=((((fm46**3+2*fm48**2*fm52)*fm46-(fm48**2-fm52**2)*fm52**2- . (fm48**2+2*fm52**2)*fm46**2)*dfm48n2+2*((fm46-4*fm52)*fm46-( . fm48**2-fm52**2)))*(cs1**2+cs2**2)+(((fm46**3-2*fm48**2*fm52)* . fm46-(fm48**2-fm52**2)*fm52**2-(fm48**2+2*fm52**2)*fm46**2)* . dfm48n2+2*((fm46+4*fm52)*fm46-(fm48**2-fm52**2)))*(cs3**2+cs4 . **2))/2 a=ans n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->w- + z1ss" endif c Start decay width for W2SS-->W- + Z2SS if(fm52.ge.(fm48+fm47)) then c0=-g zs5=dsin(v6c) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(v6c) zs1=dcos(theta) cs4=(dsqrt(2.d0)*(fn1(2)*v4c2(4,2)*zs3-v4c2(3,2)*zs2)*fi2(2)* . zs1-2*(fn1(2)*zs4+zs5)*fi2(2)*v4c2(2,2)*zs1)/4 cs3=(-dsqrt(2.d0)*(fn1(2)*v4c2(4,2)*zs3+v4c2(3,2)*zs2)*fr2(2)* . zs1+2*(fn1(2)*zs4-zs5)*fr2(2)*v4c2(2,2)*zs1)/4 cs2=(dsqrt(2.d0)*(fn1(2)*v4c2(4,2)*zs3+v4c2(3,2)*zs2)*fi2(2)* . zs1-2*(fn1(2)*zs4-zs5)*fi2(2)*v4c2(2,2)*zs1)/4 cs1=(-dsqrt(2.d0)*(fn1(2)*v4c2(4,2)*zs3-v4c2(3,2)*zs2)*fr2(2)* . zs1+2*(fn1(2)*zs4+zs5)*fr2(2)*v4c2(2,2)*zs1)/4 p2=plamda(fm52n2,fm48n2,fm47n2) ans=((((fm47**3+2*fm48**2*fm52)*fm47-(fm48**2-fm52**2)*fm52**2- . (fm48**2+2*fm52**2)*fm47**2)*dfm48n2+2*((fm47-4*fm52)*fm47-( . fm48**2-fm52**2)))*(cs1**2+cs2**2)+(((fm47**3-2*fm48**2*fm52)* . fm47-(fm48**2-fm52**2)*fm52**2-(fm48**2+2*fm52**2)*fm47**2)* . dfm48n2+2*((fm47+4*fm52)*fm47-(fm48**2-fm52**2)))*(cs3**2+cs4 . **2))/2 a=ans n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->w- + z2ss" endif c Start decay width for W2SS-->W- + Z3SS if(fm52.ge.(fm48+fm4)) then c0=-g zs5=dsin(v6c) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(v6c) zs1=dcos(theta) cs4=(dsqrt(2.d0)*(fn1(2)*v4c2(4,3)*zs3-v4c2(3,3)*zs2)*fi2(3)* . zs1-2*(fn1(2)*zs4+zs5)*fi2(3)*v4c2(2,3)*zs1)/4 cs3=(-dsqrt(2.d0)*(fn1(2)*v4c2(4,3)*zs3+v4c2(3,3)*zs2)*fr2(3)* . zs1+2*(fn1(2)*zs4-zs5)*fr2(3)*v4c2(2,3)*zs1)/4 cs2=(dsqrt(2.d0)*(fn1(2)*v4c2(4,3)*zs3+v4c2(3,3)*zs2)*fi2(3)* . zs1-2*(fn1(2)*zs4-zs5)*fi2(3)*v4c2(2,3)*zs1)/4 cs1=(-dsqrt(2.d0)*(fn1(2)*v4c2(4,3)*zs3-v4c2(3,3)*zs2)*fr2(3)* . zs1+2*(fn1(2)*zs4+zs5)*fr2(3)*v4c2(2,3)*zs1)/4 p2=plamda(fm52n2,fm48n2,fm4n2) ans=((((fm4**3+2*fm48**2*fm52)*fm4-(fm48**2-fm52**2)*fm52**2-( . fm48**2+2*fm52**2)*fm4**2)*dfm48n2+2*((fm4-4*fm52)*fm4-(fm48** . 2-fm52**2)))*(cs1**2+cs2**2)+(((fm4**3-2*fm48**2*fm52)*fm4-( . fm48**2-fm52**2)*fm52**2-(fm48**2+2*fm52**2)*fm4**2)*dfm48n2+2 . *((fm4+4*fm52)*fm4-(fm48**2-fm52**2)))*(cs3**2+cs4**2))/2 a=ans n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->w- + z3ss" endif c Start decay width for W2SS-->W- + Z4SS if(fm52.ge.(fm48+fm10)) then c0=-g zs5=dsin(v6c) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(v6c) zs1=dcos(theta) cs4=(dsqrt(2.d0)*(fn1(2)*v4c2(4,4)*zs3-v4c2(3,4)*zs2)*fi2(4)* . zs1-2*(fn1(2)*zs4+zs5)*fi2(4)*v4c2(2,4)*zs1)/4 cs3=(-dsqrt(2.d0)*(fn1(2)*v4c2(4,4)*zs3+v4c2(3,4)*zs2)*fr2(4)* . zs1+2*(fn1(2)*zs4-zs5)*fr2(4)*v4c2(2,4)*zs1)/4 cs2=(dsqrt(2.d0)*(fn1(2)*v4c2(4,4)*zs3+v4c2(3,4)*zs2)*fi2(4)* . zs1-2*(fn1(2)*zs4-zs5)*fi2(4)*v4c2(2,4)*zs1)/4 cs1=(-dsqrt(2.d0)*(fn1(2)*v4c2(4,4)*zs3-v4c2(3,4)*zs2)*fr2(4)* . zs1+2*(fn1(2)*zs4+zs5)*fr2(4)*v4c2(2,4)*zs1)/4 p2=plamda(fm52n2,fm48n2,fm10n2) ans=((((fm10**3+2*fm48**2*fm52)*fm10-(fm48**2-fm52**2)*fm52**2- . (fm48**2+2*fm52**2)*fm10**2)*dfm48n2+2*((fm10-4*fm52)*fm10-( . fm48**2-fm52**2)))*(cs1**2+cs2**2)+(((fm10**3-2*fm48**2*fm52)* . fm10-(fm48**2-fm52**2)*fm52**2-(fm48**2+2*fm52**2)*fm10**2)* . dfm48n2+2*((fm10+4*fm52)*fm10-(fm48**2-fm52**2)))*(cs3**2+cs4 . **2))/2 a=ans n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->w- + z4ss" endif c Start decay width for W2SS-->EL- + ANUE if(fm52.ge.(fm14+0)) then c0=-g zs2=dsin(v6c) zs1=dcos(theta) cs2=(-zs1*zs2)/2 cs1=(zs1*zs2)/2 p2=(-(fm14n2-fm52n2))/(2.d0*dsqrt(fm52n2)) a=(-(cs1**2+cs2**2)*(fm14**2-fm52**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->el- + anue" endif c Start decay width for W2SS-->MUL- + ANUM if(fm52.ge.(fm18+0)) then c0=-g zs2=dsin(v6c) zs1=dcos(theta) cs2=(-zs1*zs2)/2 cs1=(zs1*zs2)/2 p2=(-(fm18n2-fm52n2))/(2.d0*dsqrt(fm52n2)) a=(-(cs1**2+cs2**2)*(fm18**2-fm52**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->mul- + anum" endif c Start decay width for W2SS-->TAU1- + ANUT if(fm52.ge.(fm22+0)) then c0=-g zs6=dsin(v1c) zs5=dcos(v6c) zs4=dsin(v6c) zs3=dcos(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(dsqrt(2.d0)*fm20*zs5*zs6-2*fm45*zs1*zs2*zs3*zs4)/(4*fm45* . zs1) cs1=(-dsqrt(2.d0)*fm20*zs5*zs6+2*fm45*zs1*zs2*zs3*zs4)/(4*fm45* . zs1) p2=(-(fm22n2-fm52n2))/(2.d0*dsqrt(fm52n2)) a=(-(cs1**2+cs2**2)*(fm22**2-fm52**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->tau1- + anut" endif c Start decay width for W2SS-->TAU2- + ANUT if(fm52.ge.(fm25+0)) then c0=-g zs6=dcos(v6c) zs5=dcos(v1c) zs4=dsin(v6c) zs3=dsin(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-dsqrt(2.d0)*fm20*zs5*zs6-2*fm45*zs1*zs2*zs3*zs4)/(4*fm45* . zs1) cs1=(dsqrt(2.d0)*fm20*zs5*zs6+2*fm45*zs1*zs2*zs3*zs4)/(4*fm45* . zs1) p2=(-(fm25n2-fm52n2))/(2.d0*dsqrt(fm52n2)) a=(-(cs1**2+cs2**2)*(fm25**2-fm52**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm52**2*pi) pname(nf,n)="w2ss-->tau2- + anut" endif c Start decay width for W2SS-->DNSSL + UB if(fm52.ge.(fm29+fmu)) then c0=-g zs2=dsin(v6c) zs1=dcos(theta) cs2=(zs1*zs2)/2 cs1=(-zs1*zs2)/2 p2=plamda(fm52n2,fm29n2,fmun2) a=((fm52**2+2*fm52*fmu+fmu**2-fm29**2)*cs2**2+(fm52**2-2*fm52* . fmu+fmu**2-fm29**2)*cs1**2)/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm52**2*pi) pname(nf,n)="w2ss-->dnssl + ub" endif c Start decay width for W2SS-->STSSL + CB if(fm52.ge.(fm33+fmc)) then c0=-g zs2=dsin(v6c) zs1=dcos(theta) cs2=(zs1*zs2)/2 cs1=(-zs1*zs2)/2 p2=plamda(fm52n2,fm33n2,fmcn2) a=((fm52**2+2*fm52*fmc+fmc**2-fm33**2)*cs2**2+(fm52**2-2*fm52* . fmc+fmc**2-fm33**2)*cs1**2)/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm52**2*pi) pname(nf,n)="w2ss-->stssl + cb" endif c Start decay width for W2SS-->BTSS1 + TB if(fm52.ge.(fm37+fm34)) then c0=-g zs8=dsin(v3c) zs7=dcos(v6c) zs6=dcos(v7c) zs5=dsin(v6c) zs4=dsin(beta1) zs3=dcos(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(dsqrt(2.d0)*(fn1(2)*fm34*zs1*zs3*zs6+fm35*zs4*zs7*zs8)+2* . fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs4) cs1=(dsqrt(2.d0)*(fn1(2)*fm34*zs1*zs3*zs6-fm35*zs4*zs7*zs8)-2* . fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs4) p2=plamda(fm52n2,fm37n2,fm34n2) a=(((fm34+2*fm52)*fm34-(fm37**2-fm52**2))*cs2**2+((fm34-2*fm52) . *fm34-(fm37**2-fm52**2))*cs1**2)/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm52**2*pi) pname(nf,n)="w2ss-->btss1 + tb" endif c Start decay width for W2SS-->BTSS2 + TB if(fm52.ge.(fm40+fm34)) then c0=-g zs8=dcos(v6c) zs7=dcos(v3c) zs6=dcos(v7c) zs5=dsin(v6c) zs4=dsin(v3c) zs3=dsin(beta1) zs2=dcos(theta) zs1=dcos(beta1) cs2=(dsqrt(2.d0)*(fn1(2)*fm34*zs1*zs4*zs6-fm35*zs3*zs7*zs8)+2* . fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs3) cs1=(dsqrt(2.d0)*(fn1(2)*fm34*zs1*zs4*zs6+fm35*zs3*zs7*zs8)-2* . fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs3) p2=plamda(fm52n2,fm40n2,fm34n2) a=(((fm34+2*fm52)*fm34-(fm40**2-fm52**2))*cs2**2+((fm34-2*fm52) . *fm34-(fm40**2-fm52**2))*cs1**2)/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm52**2*pi) pname(nf,n)="w2ss-->btss2 + tb" endif decay_f9=pa_width(pa,nf,n,iflag,br0) return end function decay_f10(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=10 pa="sw" c Start decay width for W1SS-->E- + ANUEL if(fm49.ge.(fme+fm13)) then c0=-g zs2=dcos(v7c) zs1=dcos(theta) cs1=(-dsqrt(2.d0)*fn1(1)*zs1*zs2)/4 p2=plamda(fm49n2,fmen2,fm13n2) a=-(fm13**2-fm49**2-fme**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->e- + anuel" endif c Start decay width for W1SS-->MU- + ANUML if(fm49.ge.(fmmu+fm17)) then c0=-g zs2=dcos(v7c) zs1=dcos(theta) cs1=(-dsqrt(2.d0)*fn1(1)*zs1*zs2)/4 p2=plamda(fm49n2,fmmun2,fm17n2) a=-(fm17**2-fm49**2-fmmu**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->mu- + anuml" endif c Start decay width for W1SS-->TAU- + ANUTL if(fm49.ge.(fm20+fm21)) then c0=-g zs4=dsin(v6c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-dsqrt(2.d0)*fn1(1)*fm45*zs1*zs2*zs3+fm20*zs4)/(4*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*fn1(1)*fm45*zs1*zs2*zs3-fm20*zs4)/(4*fm45*zs1 . ) p2=plamda(fm49n2,fm20n2,fm21n2) a=(((fm20+2*fm49)*fm20-(fm21**2-fm49**2))*cs1**2+((fm20-2*fm49) . *fm20-(fm21**2-fm49**2))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->tau- + anutl" endif c Start decay width for W1SS-->DN + UBSSL if(fm49.ge.(fmd+fm28)) then c0=-g zs2=dcos(v7c) zs1=dcos(theta) cs1=(-fn1(1)*zs1*zs2)/2 p2=plamda(fm49n2,fmdn2,fm28n2) a=-(fm28**2-fm49**2-fmd**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm49**2*pi) pname(nf,n)="w1ss-->dn + ubssl" endif c Start decay width for W1SS-->ST + CBSSL if(fm49.ge.(fms+fm32)) then c0=-g zs2=dcos(v7c) zs1=dcos(theta) cs1=(-fn1(1)*zs1*zs2)/2 p2=plamda(fm49n2,fmsn2,fm32n2) a=-(fm32**2-fm49**2-fms**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm49**2*pi) pname(nf,n)="w1ss-->st + cbssl" endif c Start decay width for W1SS-->BT + TBSS1 if(fm49.ge.(fm35+fm36)) then c0=-g zs8=dsin(v6c) zs7=dsin(v7c) zs6=dsin(v4c) zs5=dsin(beta1) zs4=dcos(v7c) zs3=dcos(v4c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(dsqrt(2.d0)*(fn1(1)*fm34*zs1*zs6*zs7+fm35*zs3*zs5*zs8)-2* . fn1(1)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs5) cs1=(dsqrt(2.d0)*(fn1(1)*fm34*zs1*zs6*zs7-fm35*zs3*zs5*zs8)-2* . fn1(1)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs5) p2=plamda(fm49n2,fm35n2,fm36n2) a=(((fm35+2*fm49)*fm35-(fm36**2-fm49**2))*cs1**2+((fm35-2*fm49) . *fm35-(fm36**2-fm49**2))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm49**2*pi) pname(nf,n)="w1ss-->bt + tbss1" endif c Start decay width for W1SS-->BT + TBSS2 if(fm49.ge.(fm35+fm43)) then c0=-g zs8=dsin(v6c) zs7=dsin(v7c) zs6=dcos(v4c) zs5=dsin(v4c) zs4=dsin(beta1) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-dsqrt(2.d0)*(fn1(1)*fm34*zs1*zs6*zs7-fm35*zs4*zs5*zs8)-2* . fn1(1)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs4) cs1=(-dsqrt(2.d0)*(fn1(1)*fm34*zs1*zs6*zs7+fm35*zs4*zs5*zs8)-2* . fn1(1)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs4) p2=plamda(fm49n2,fm35n2,fm43n2) a=(((fm35+2*fm49)*fm35-(fm43**2-fm49**2))*cs1**2+((fm35-2*fm49) . *fm35-(fm43**2-fm49**2))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm49**2*pi) pname(nf,n)="w1ss-->bt + tbss2" endif c Start decay width for W1SS-->HL0 + W2SS- if(fm49.ge.(fm8+fm52)) then c0=-g zs7=dsin(v2c) zs6=dsin(v7c) zs5=dsin(v6c) zs4=dcos(v7c) zs3=dcos(v6c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(dsqrt(2.d0)*((zs2*zs3*zs4+zs5*zs6*zs7)*fn1(2)+(zs2*zs5*zs6 . +zs3*zs4*zs7)*fn1(1))*zs1)/4 cs1=(-dsqrt(2.d0)*((zs2*zs3*zs4+zs5*zs6*zs7)*fn1(2)-(zs2*zs5* . zs6+zs3*zs4*zs7)*fn1(1))*zs1)/4 p2=plamda(fm49n2,fm8n2,fm52n2) a=(((fm49+2*fm52)*fm49+fm52**2-fm8**2)*cs1**2+((fm49-2*fm52)* . fm49+fm52**2-fm8**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->hl0 + w2ss-" endif c Start decay width for W1SS-->HH0 + W2SS- if(fm49.ge.(fm2+fm52)) then c0=-g zs7=dsin(v2c) zs6=dsin(v7c) zs5=dsin(v6c) zs4=dcos(v7c) zs3=dcos(v6c) zs2=dcos(v2c) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*((zs2*zs3*zs4-zs5*zs6*zs7)*fn1(1)+(zs2*zs5* . zs6-zs3*zs4*zs7)*fn1(2))*zs1)/4 cs1=(-dsqrt(2.d0)*((zs2*zs3*zs4-zs5*zs6*zs7)*fn1(1)-(zs2*zs5* . zs6-zs3*zs4*zs7)*fn1(2))*zs1)/4 p2=plamda(fm49n2,fm2n2,fm52n2) a=((fm49**2+2*fm49*fm52+fm52**2-fm2**2)*cs1**2+(fm49**2-2*fm49* . fm52+fm52**2-fm2**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->hh0 + w2ss-" endif c Start decay width for W1SS-->H- + Z1SS if(fm49.ge.(fm3+fm46)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(1)*v4c2(4,1)*zs1*zs3+v4c2(3,1)*zs6*zs7)*fi2(1)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fi2(1))/4 cs3=(-2*(fn1(1)*v4c2(4,1)*zs1*zs3-v4c2(3,1)*zs6*zs7)*fr2(1)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fr2(1))/4 cs2=(-2*(fn1(1)*v4c2(4,1)*zs1*zs3-v4c2(3,1)*zs6*zs7)*fi2(1)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fi2(1))/4 cs1=(-2*(fn1(1)*v4c2(4,1)*zs1*zs3+v4c2(3,1)*zs6*zs7)*fr2(1)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,1)*zs2+v4c2(1,1) . *zs5)*fr2(1))/4 p2=plamda(fm49n2,fm3n2,fm46n2) a=((fm46**2+2*fm46*fm49+fm49**2-fm3**2)*(cs1**2+cs2**2)+(fm46** . 2-2*fm46*fm49+fm49**2-fm3**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->h- + z1ss" endif c Start decay width for W1SS-->H- + Z2SS if(fm49.ge.(fm3+fm47)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(1)*v4c2(4,2)*zs1*zs3+v4c2(3,2)*zs6*zs7)*fi2(2)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fi2(2))/4 cs3=(-2*(fn1(1)*v4c2(4,2)*zs1*zs3-v4c2(3,2)*zs6*zs7)*fr2(2)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fr2(2))/4 cs2=(-2*(fn1(1)*v4c2(4,2)*zs1*zs3-v4c2(3,2)*zs6*zs7)*fi2(2)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fi2(2))/4 cs1=(-2*(fn1(1)*v4c2(4,2)*zs1*zs3+v4c2(3,2)*zs6*zs7)*fr2(2)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,2)*zs2+v4c2(1,2) . *zs5)*fr2(2))/4 p2=plamda(fm49n2,fm3n2,fm47n2) a=((fm47**2+2*fm47*fm49+fm49**2-fm3**2)*(cs1**2+cs2**2)+(fm47** . 2-2*fm47*fm49+fm49**2-fm3**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->h- + z2ss" endif c Start decay width for W1SS-->H- + Z3SS if(fm49.ge.(fm3+fm4)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(1)*v4c2(4,3)*zs1*zs3+v4c2(3,3)*zs6*zs7)*fi2(3)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fi2(3))/4 cs3=(-2*(fn1(1)*v4c2(4,3)*zs1*zs3-v4c2(3,3)*zs6*zs7)*fr2(3)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fr2(3))/4 cs2=(-2*(fn1(1)*v4c2(4,3)*zs1*zs3-v4c2(3,3)*zs6*zs7)*fi2(3)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fi2(3))/4 cs1=(-2*(fn1(1)*v4c2(4,3)*zs1*zs3+v4c2(3,3)*zs6*zs7)*fr2(3)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,3)*zs2+v4c2(1,3) . *zs5)*fr2(3))/4 p2=plamda(fm49n2,fm3n2,fm4n2) a=((fm4**2+2*fm4*fm49+fm49**2-fm3**2)*(cs1**2+cs2**2)+(fm4**2-2 . *fm4*fm49+fm49**2-fm3**2)*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->h- + z3ss" endif c Start decay width for W1SS-->H- + Z4SS if(fm49.ge.(fm3+fm10)) then c0=-g zs8=dsin(v6c) zs7=dsin(beta1) zs6=dcos(v6c) zs5=dsin(theta) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-2*(fn1(1)*v4c2(4,4)*zs1*zs3+v4c2(3,4)*zs6*zs7)*fi2(4)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fi2(4))/4 cs3=(-2*(fn1(1)*v4c2(4,4)*zs1*zs3-v4c2(3,4)*zs6*zs7)*fr2(4)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fr2(4))/4 cs2=(-2*(fn1(1)*v4c2(4,4)*zs1*zs3-v4c2(3,4)*zs6*zs7)*fi2(4)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4+zs7*zs8)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fi2(4))/4 cs1=(-2*(fn1(1)*v4c2(4,4)*zs1*zs3+v4c2(3,4)*zs6*zs7)*fr2(4)*zs2 . +dsqrt(2.d0)*(fn1(1)*zs1*zs4-zs7*zs8)*(v4c2(2,4)*zs2+v4c2(1,4) . *zs5)*fr2(4))/4 p2=plamda(fm49n2,fm3n2,fm10n2) a=(((fm10+2*fm49)*fm10-(fm3**2-fm49**2))*(cs1**2+cs2**2)+((fm10 . -2*fm49)*fm10-(fm3**2-fm49**2))*(cs3**2+cs4**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->h- + z4ss" endif c Start decay width for W1SS-->HA0 + W2SS- if(fm49.ge.(fm6+fm52)) then c0=-g zs7=dsin(beta1) zs6=dsin(v7c) zs5=dsin(v6c) zs4=dcos(v7c) zs3=dcos(v6c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(dsqrt(2.d0)*((zs1*zs3*zs4-zs5*zs6*zs7)*fn1(2)-(zs1*zs5*zs6 . -zs3*zs4*zs7)*fn1(1))*zs2)/4 cs1=(-dsqrt(2.d0)*((zs1*zs3*zs4-zs5*zs6*zs7)*fn1(2)+(zs1*zs5* . zs6-zs3*zs4*zs7)*fn1(1))*zs2)/4 p2=plamda(fm49n2,fm6n2,fm52n2) a=(((fm49+2*fm52)*fm49+fm52**2-fm6**2)*cs1**2+((fm49-2*fm52)* . fm49+fm52**2-fm6**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->ha0 + w2ss-" endif c Start decay width for W1SS-->Z0 + W2SS- if(fm49.ge.(fm45+fm52)) then c0=-g zs2=dsin(2*v6c) zs1=dsin(2*v7c) cs2=(-fn1(2)*fn1(1)*zs1+zs2)/8 cs1=(-fn1(2)*fn1(1)*zs1-zs2)/8 p2=plamda(fm49n2,fm45n2,fm52n2) a=(((fm49**4-2*fm49**2*fm52**2+fm52**4-(fm49**2+2*fm49*fm52+ . fm52**2)*fm45**2)*dfm45n2+2*(fm49**2+4*fm49*fm52+fm52**2-fm45 . **2))*cs2**2+((fm49**4-2*fm49**2*fm52**2+fm52**4-(fm49**2-2* . fm49*fm52+fm52**2)*fm45**2)*dfm45n2+2*(fm49**2-4*fm49*fm52+ . fm52**2-fm45**2))*cs1**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->z0 + w2ss-" endif c Start decay width for W1SS-->W- + Z1SS if(fm49.ge.(fm48+fm46)) then c0=-g zs5=dsin(v6c) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(v6c) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(fn1(1)*v4c2(4,1)*zs4-v4c2(3,1)*zs5)*fi2(1)* . zs1-2*(fn1(1)*zs3+zs2)*fi2(1)*v4c2(2,1)*zs1)/4 cs3=(dsqrt(2.d0)*(fn1(1)*v4c2(4,1)*zs4+v4c2(3,1)*zs5)*fr2(1)* . zs1+2*(fn1(1)*zs3-zs2)*fr2(1)*v4c2(2,1)*zs1)/4 cs2=(-dsqrt(2.d0)*(fn1(1)*v4c2(4,1)*zs4+v4c2(3,1)*zs5)*fi2(1)* . zs1-2*(fn1(1)*zs3-zs2)*fi2(1)*v4c2(2,1)*zs1)/4 cs1=(dsqrt(2.d0)*(fn1(1)*v4c2(4,1)*zs4-v4c2(3,1)*zs5)*fr2(1)* . zs1+2*(fn1(1)*zs3+zs2)*fr2(1)*v4c2(2,1)*zs1)/4 p2=plamda(fm49n2,fm48n2,fm46n2) ans=((((fm46**3+2*fm48**2*fm49)*fm46-(fm48**2-fm49**2)*fm49**2- . (fm48**2+2*fm49**2)*fm46**2)*dfm48n2+2*((fm46-4*fm49)*fm46-( . fm48**2-fm49**2)))*(cs1**2+cs2**2)+(((fm46**3-2*fm48**2*fm49)* . fm46-(fm48**2-fm49**2)*fm49**2-(fm48**2+2*fm49**2)*fm46**2)* . dfm48n2+2*((fm46+4*fm49)*fm46-(fm48**2-fm49**2)))*(cs3**2+cs4 . **2))/2 a=ans n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->w- + z1ss" endif c Start decay width for W1SS-->W- + Z2SS if(fm49.ge.(fm48+fm47)) then c0=-g zs5=dsin(v6c) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(v6c) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(fn1(1)*v4c2(4,2)*zs4-v4c2(3,2)*zs5)*fi2(2)* . zs1-2*(fn1(1)*zs3+zs2)*fi2(2)*v4c2(2,2)*zs1)/4 cs3=(dsqrt(2.d0)*(fn1(1)*v4c2(4,2)*zs4+v4c2(3,2)*zs5)*fr2(2)* . zs1+2*(fn1(1)*zs3-zs2)*fr2(2)*v4c2(2,2)*zs1)/4 cs2=(-dsqrt(2.d0)*(fn1(1)*v4c2(4,2)*zs4+v4c2(3,2)*zs5)*fi2(2)* . zs1-2*(fn1(1)*zs3-zs2)*fi2(2)*v4c2(2,2)*zs1)/4 cs1=(dsqrt(2.d0)*(fn1(1)*v4c2(4,2)*zs4-v4c2(3,2)*zs5)*fr2(2)* . zs1+2*(fn1(1)*zs3+zs2)*fr2(2)*v4c2(2,2)*zs1)/4 p2=plamda(fm49n2,fm48n2,fm47n2) ans=((((fm47**3+2*fm48**2*fm49)*fm47-(fm48**2-fm49**2)*fm49**2- . (fm48**2+2*fm49**2)*fm47**2)*dfm48n2+2*((fm47-4*fm49)*fm47-( . fm48**2-fm49**2)))*(cs1**2+cs2**2)+(((fm47**3-2*fm48**2*fm49)* . fm47-(fm48**2-fm49**2)*fm49**2-(fm48**2+2*fm49**2)*fm47**2)* . dfm48n2+2*((fm47+4*fm49)*fm47-(fm48**2-fm49**2)))*(cs3**2+cs4 . **2))/2 a=ans n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->w- + z2ss" endif c Start decay width for W1SS-->W- + Z3SS if(fm49.ge.(fm48+fm4)) then c0=-g zs5=dsin(v6c) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(v6c) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(fn1(1)*v4c2(4,3)*zs4-v4c2(3,3)*zs5)*fi2(3)* . zs1-2*(fn1(1)*zs3+zs2)*fi2(3)*v4c2(2,3)*zs1)/4 cs3=(dsqrt(2.d0)*(fn1(1)*v4c2(4,3)*zs4+v4c2(3,3)*zs5)*fr2(3)* . zs1+2*(fn1(1)*zs3-zs2)*fr2(3)*v4c2(2,3)*zs1)/4 cs2=(-dsqrt(2.d0)*(fn1(1)*v4c2(4,3)*zs4+v4c2(3,3)*zs5)*fi2(3)* . zs1-2*(fn1(1)*zs3-zs2)*fi2(3)*v4c2(2,3)*zs1)/4 cs1=(dsqrt(2.d0)*(fn1(1)*v4c2(4,3)*zs4-v4c2(3,3)*zs5)*fr2(3)* . zs1+2*(fn1(1)*zs3+zs2)*fr2(3)*v4c2(2,3)*zs1)/4 p2=plamda(fm49n2,fm48n2,fm4n2) ans=((((fm4**3+2*fm48**2*fm49)*fm4-(fm48**2-fm49**2)*fm49**2-( . fm48**2+2*fm49**2)*fm4**2)*dfm48n2+2*((fm4-4*fm49)*fm4-(fm48** . 2-fm49**2)))*(cs1**2+cs2**2)+(((fm4**3-2*fm48**2*fm49)*fm4-( . fm48**2-fm49**2)*fm49**2-(fm48**2+2*fm49**2)*fm4**2)*dfm48n2+2 . *((fm4+4*fm49)*fm4-(fm48**2-fm49**2)))*(cs3**2+cs4**2))/2 a=ans n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->w- + z3ss" endif c Start decay width for W1SS-->W- + Z4SS if(fm49.ge.(fm48+fm10)) then c0=-g zs5=dsin(v6c) zs4=dsin(v7c) zs3=dcos(v7c) zs2=dcos(v6c) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(fn1(1)*v4c2(4,4)*zs4-v4c2(3,4)*zs5)*fi2(4)* . zs1-2*(fn1(1)*zs3+zs2)*fi2(4)*v4c2(2,4)*zs1)/4 cs3=(dsqrt(2.d0)*(fn1(1)*v4c2(4,4)*zs4+v4c2(3,4)*zs5)*fr2(4)* . zs1+2*(fn1(1)*zs3-zs2)*fr2(4)*v4c2(2,4)*zs1)/4 cs2=(-dsqrt(2.d0)*(fn1(1)*v4c2(4,4)*zs4+v4c2(3,4)*zs5)*fi2(4)* . zs1-2*(fn1(1)*zs3-zs2)*fi2(4)*v4c2(2,4)*zs1)/4 cs1=(dsqrt(2.d0)*(fn1(1)*v4c2(4,4)*zs4-v4c2(3,4)*zs5)*fr2(4)* . zs1+2*(fn1(1)*zs3+zs2)*fr2(4)*v4c2(2,4)*zs1)/4 p2=plamda(fm49n2,fm48n2,fm10n2) ans=((((fm10**3+2*fm48**2*fm49)*fm10-(fm48**2-fm49**2)*fm49**2- . (fm48**2+2*fm49**2)*fm10**2)*dfm48n2+2*((fm10-4*fm49)*fm10-( . fm48**2-fm49**2)))*(cs1**2+cs2**2)+(((fm10**3-2*fm48**2*fm49)* . fm10-(fm48**2-fm49**2)*fm49**2-(fm48**2+2*fm49**2)*fm10**2)* . dfm48n2+2*((fm10+4*fm49)*fm10-(fm48**2-fm49**2)))*(cs3**2+cs4 . **2))/2 a=ans n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->w- + z4ss" endif c Start decay width for W1SS-->EL- + ANUE if(fm49.ge.(fm14+0)) then c0=-g zs2=dcos(v6c) zs1=dcos(theta) cs2=(-zs1*zs2)/2 cs1=(zs1*zs2)/2 p2=(-(fm14n2-fm49n2))/(2.d0*dsqrt(fm49n2)) a=(-(cs1**2+cs2**2)*(fm14**2-fm49**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->el- + anue" endif c Start decay width for W1SS-->MUL- + ANUM if(fm49.ge.(fm18+0)) then c0=-g zs2=dcos(v6c) zs1=dcos(theta) cs2=(-zs1*zs2)/2 cs1=(zs1*zs2)/2 p2=(-(fm18n2-fm49n2))/(2.d0*dsqrt(fm49n2)) a=(-(cs1**2+cs2**2)*(fm18**2-fm49**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->mul- + anum" endif c Start decay width for W1SS-->TAU1- + ANUT if(fm49.ge.(fm22+0)) then c0=-g zs6=dsin(v6c) zs5=dsin(v1c) zs4=dcos(v6c) zs3=dcos(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-dsqrt(2.d0)*fm20*zs5*zs6-2*fm45*zs1*zs2*zs3*zs4)/(4*fm45* . zs1) cs1=(dsqrt(2.d0)*fm20*zs5*zs6+2*fm45*zs1*zs2*zs3*zs4)/(4*fm45* . zs1) p2=(-(fm22n2-fm49n2))/(2.d0*dsqrt(fm49n2)) a=(-(cs1**2+cs2**2)*(fm22**2-fm49**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->tau1- + anut" endif c Start decay width for W1SS-->TAU2- + ANUT if(fm49.ge.(fm25+0)) then c0=-g zs6=dsin(v6c) zs5=dcos(v1c) zs4=dsin(v1c) zs3=dcos(v6c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(dsqrt(2.d0)*fm20*zs5*zs6-2*fm45*zs1*zs2*zs3*zs4)/(4*fm45* . zs1) cs1=(-dsqrt(2.d0)*fm20*zs5*zs6+2*fm45*zs1*zs2*zs3*zs4)/(4*fm45* . zs1) p2=(-(fm25n2-fm49n2))/(2.d0*dsqrt(fm49n2)) a=(-(cs1**2+cs2**2)*(fm25**2-fm49**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(4*fm49**2*pi) pname(nf,n)="w1ss-->tau2- + anut" endif c Start decay width for W1SS-->DNSSL + UB if(fm49.ge.(fm29+fmu)) then c0=-g zs2=dcos(v6c) zs1=dcos(theta) cs2=(zs1*zs2)/2 cs1=(-zs1*zs2)/2 p2=plamda(fm49n2,fm29n2,fmun2) a=((fm49**2+2*fm49*fmu+fmu**2-fm29**2)*cs2**2+(fm49**2-2*fm49* . fmu+fmu**2-fm29**2)*cs1**2)/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm49**2*pi) pname(nf,n)="w1ss-->dnssl + ub" endif c Start decay width for W1SS-->STSSL + CB if(fm49.ge.(fm33+fmc)) then c0=-g zs2=dcos(v6c) zs1=dcos(theta) cs2=(zs1*zs2)/2 cs1=(-zs1*zs2)/2 p2=plamda(fm49n2,fm33n2,fmcn2) a=((fm49**2+2*fm49*fmc+fmc**2-fm33**2)*cs2**2+(fm49**2-2*fm49* . fmc+fmc**2-fm33**2)*cs1**2)/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm49**2*pi) pname(nf,n)="w1ss-->stssl + cb" endif c Start decay width for W1SS-->BTSS1 + TB if(fm49.ge.(fm37+fm34)) then c0=-g zs8=dsin(v6c) zs7=dsin(v3c) zs6=dsin(v7c) zs5=dsin(beta1) zs4=dcos(v6c) zs3=dcos(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-dsqrt(2.d0)*(fn1(1)*fm34*zs1*zs3*zs6+fm35*zs5*zs7*zs8)+2* . fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs5) cs1=(-dsqrt(2.d0)*(fn1(1)*fm34*zs1*zs3*zs6-fm35*zs5*zs7*zs8)-2* . fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs5) p2=plamda(fm49n2,fm37n2,fm34n2) a=(((fm34+2*fm49)*fm34-(fm37**2-fm49**2))*cs2**2+((fm34-2*fm49) . *fm34-(fm37**2-fm49**2))*cs1**2)/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm49**2*pi) pname(nf,n)="w1ss-->btss1 + tb" endif c Start decay width for W1SS-->BTSS2 + TB if(fm49.ge.(fm40+fm34)) then c0=-g zs8=dsin(v6c) zs7=dcos(v3c) zs6=dsin(v7c) zs5=dsin(v3c) zs4=dsin(beta1) zs3=dcos(v6c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-dsqrt(2.d0)*(fn1(1)*fm34*zs1*zs5*zs6-fm35*zs4*zs7*zs8)+2* . fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs4) cs1=(-dsqrt(2.d0)*(fn1(1)*fm34*zs1*zs5*zs6+fm35*zs4*zs7*zs8)-2* . fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs4) p2=plamda(fm49n2,fm40n2,fm34n2) a=(((fm34+2*fm49)*fm34-(fm40**2-fm49**2))*cs2**2+((fm34-2*fm49) . *fm34-(fm40**2-fm49**2))*cs1**2)/2 n=n+1 width(nf,n)=c0**2*a*(3*p2)/(4*fm49**2*pi) pname(nf,n)="w1ss-->btss2 + tb" endif decay_f10=pa_width(pa,nf,n,iflag,br0) return end function decay_f11(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=11 pa="sgs" c Start decay width for GLSS->UP + UBSSL if(fm51.ge.(fmu+fm28)) then c0=-g3 cs1=(-dsqrt(2.d0))/2 p2=plamda(fm51n2,fmun2,fm28n2) a=-(fm28**2-fm51**2-fmu**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm51**2*pi) pname(nf,n)="glss->up + ubssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="glss->ub + upssl" endif c Start decay width for GLSS->UP + UBSSR if(fm51.ge.(fmu+fm41)) then c0=-g3 cs2=dsqrt(2.d0)/2 cs1=(-dsqrt(2.d0))/2 p2=plamda(fm51n2,fmun2,fm41n2) a=((fm51**2+2*fm51*fmu+fmu**2-fm41**2)*cs1**2+(fm51**2-2*fm51* . fmu+fmu**2-fm41**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm51**2*pi) pname(nf,n)="glss->up + ubssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="glss->ub + upssr" endif c Start decay width for GLSS->DN + DBSSL if(fm51.ge.(fmd+fm29)) then c0=-g3 cs1=(-dsqrt(2.d0))/2 p2=plamda(fm51n2,fmdn2,fm29n2) a=-(fm29**2-fm51**2-fmd**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm51**2*pi) pname(nf,n)="glss->dn + dbssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="glss->db + dnssl" endif c Start decay width for GLSS->DN + DBSSR if(fm51.ge.(fmd+fm38)) then c0=-g3 cs2=dsqrt(2.d0)/2 cs1=(-dsqrt(2.d0))/2 p2=plamda(fm51n2,fmdn2,fm38n2) a=((fm51**2+2*fm51*fmd+fmd**2-fm38**2)*cs1**2+(fm51**2-2*fm51* . fmd+fmd**2-fm38**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm51**2*pi) pname(nf,n)="glss->dn + dbssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="glss->db + dnssr" endif c Start decay width for GLSS->CH + CBSSL if(fm51.ge.(fmc+fm32)) then c0=-g3 cs1=(-dsqrt(2.d0))/2 p2=plamda(fm51n2,fmcn2,fm32n2) a=-(fm32**2-fm51**2-fmc**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm51**2*pi) pname(nf,n)="glss->ch + cbssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="glss->cb + chssl" endif c Start decay width for GLSS->CH + CBSSR if(fm51.ge.(fmc+fm42)) then c0=-g3 cs2=dsqrt(2.d0)/2 cs1=(-dsqrt(2.d0))/2 p2=plamda(fm51n2,fmcn2,fm42n2) a=((fm51**2+2*fm51*fmc+fmc**2-fm42**2)*cs1**2+(fm51**2-2*fm51* . fmc+fmc**2-fm42**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm51**2*pi) pname(nf,n)="glss->ch + cbssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="glss->cb + chssr" endif c Start decay width for GLSS->ST + SBSSL if(fm51.ge.(fms+fm33)) then c0=-g3 cs1=(-dsqrt(2.d0))/2 p2=plamda(fm51n2,fmsn2,fm33n2) a=-(fm33**2-fm51**2-fms**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm51**2*pi) pname(nf,n)="glss->st + sbssl" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="glss->sb + stssl" endif c Start decay width for GLSS->ST + SBSSR if(fm51.ge.(fms+fm39)) then c0=-g3 cs2=dsqrt(2.d0)/2 cs1=(-dsqrt(2.d0))/2 p2=plamda(fm51n2,fmsn2,fm39n2) a=((fm51**2+2*fm51*fms+fms**2-fm39**2)*cs1**2+(fm51**2-2*fm51* . fms+fms**2-fm39**2)*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm51**2*pi) pname(nf,n)="glss->st + sbssr" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="glss->sb + stssr" endif c Start decay width for GLSS->TP + TBSS1 if(fm51.ge.(fm34+fm36)) then c0=-g3 zs2=dsin(v4c) zs1=dcos(v4c) cs2=(-dsqrt(2.d0)*(zs1+zs2))/2 cs1=(-dsqrt(2.d0)*(zs1-zs2))/2 p2=plamda(fm51n2,fm34n2,fm36n2) a=(((fm34+2*fm51)*fm34-(fm36**2-fm51**2))*cs1**2+((fm34-2*fm51) . *fm34-(fm36**2-fm51**2))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm51**2*pi) pname(nf,n)="glss->tp + tbss1" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="glss->tb + tpss1" endif c Start decay width for GLSS->TP + TBSS2 if(fm51.ge.(fm34+fm43)) then c0=-g3 zs2=dsin(v4c) zs1=dcos(v4c) cs2=(dsqrt(2.d0)*(zs1-zs2))/2 cs1=(-dsqrt(2.d0)*(zs1+zs2))/2 p2=plamda(fm51n2,fm34n2,fm43n2) a=(((fm34+2*fm51)*fm34-(fm43**2-fm51**2))*cs1**2+((fm34-2*fm51) . *fm34-(fm43**2-fm51**2))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm51**2*pi) pname(nf,n)="glss->tp + tbss2" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="glss->tb + tpss2" endif c Start decay width for GLSS->BT + BBSS1 if(fm51.ge.(fm35+fm37)) then c0=-g3 zs2=dsin(v3c) zs1=dcos(v3c) cs2=(-dsqrt(2.d0)*(zs1+zs2))/2 cs1=(-dsqrt(2.d0)*(zs1-zs2))/2 p2=plamda(fm51n2,fm35n2,fm37n2) a=(((fm35+2*fm51)*fm35-(fm37**2-fm51**2))*cs1**2+((fm35-2*fm51) . *fm35-(fm37**2-fm51**2))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm51**2*pi) pname(nf,n)="glss->bt + bbss1" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="glss->bb + btss1" endif c Start decay width for GLSS->BT + BBSS2 if(fm51.ge.(fm35+fm40)) then c0=-g3 zs2=dsin(v3c) zs1=dcos(v3c) cs2=(dsqrt(2.d0)*(zs1-zs2))/2 cs1=(-dsqrt(2.d0)*(zs1+zs2))/2 p2=plamda(fm51n2,fm35n2,fm40n2) a=(((fm35+2*fm51)*fm35-(fm40**2-fm51**2))*cs1**2+((fm35-2*fm51) . *fm35-(fm40**2-fm51**2))*cs2**2)/2 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm51**2*pi) pname(nf,n)="glss->bt + bbss2" n=n+1 width(nf,n)=width(nf,n-1) pname(nf,n)="glss->bb + btss2" endif decay_f11=pa_width(pa,nf,n,iflag,br0) return end function decay_f12(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=12 pa="sqbr" c Start decay width for BTSS2->TP + W1SS- if(fm40.ge.(fm34+fm49)) then c0=-g zs8=dsin(v7c) zs7=dcos(v3c) zs6=dsin(v6c) zs5=dsin(v3c) zs4=dsin(beta1) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-dsqrt(2.d0)*(fn1(1)*fm35*zs4*zs7*zs8-fm34*zs1*zs5*zs6)-2* . fn1(1)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs4) cs1=(-dsqrt(2.d0)*(fn1(1)*fm35*zs4*zs7*zs8+fm34*zs1*zs5*zs6)-2* . fn1(1)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs4) p2=plamda(fm40n2,fm34n2,fm49n2) a=(-(((fm34+2*fm49)*fm34-(fm40**2-fm49**2))*cs2**2+((fm34-2* . fm49)*fm34-(fm40**2-fm49**2))*cs1**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm40**2*pi) pname(nf,n)="btss2->tp + w1ss-" endif c Start decay width for BTSS2->TP + W2SS- if(fm40.ge.(fm34+fm52)) then c0=-g zs8=dcos(v7c) zs7=dcos(v3c) zs6=dcos(v6c) zs5=dsin(v7c) zs4=dsin(v3c) zs3=dsin(beta1) zs2=dcos(theta) zs1=dcos(beta1) cs2=(dsqrt(2.d0)*(fn1(2)*fm35*zs3*zs7*zs8-fm34*zs1*zs4*zs6)-2* . fn1(2)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs3) cs1=(dsqrt(2.d0)*(fn1(2)*fm35*zs3*zs7*zs8+fm34*zs1*zs4*zs6)-2* . fn1(2)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs3) p2=plamda(fm40n2,fm34n2,fm52n2) a=(-(((fm34+2*fm52)*fm34-(fm40**2-fm52**2))*cs2**2+((fm34-2* . fm52)*fm34-(fm40**2-fm52**2))*cs1**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm40**2*pi) pname(nf,n)="btss2->tp + w2ss-" endif c Start decay width for BTSS2->BT + GLSS if(fm40.ge.(fm35+fm51)) then c0=-g3 zs2=dsin(v3c) zs1=dcos(v3c) cs2=(dsqrt(2.d0)*(zs1-zs2))/2 cs1=(-dsqrt(2.d0)*(zs1+zs2))/2 p2=plamda(fm40n2,fm35n2,fm51n2) a=(-(((fm35+2*fm51)*fm35-(fm40**2-fm51**2))*cs1**2+((fm35-2* . fm51)*fm35-(fm40**2-fm51**2))*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*(2*p2)/(3*fm40**2*pi) pname(nf,n)="btss2->bt + glss" endif c Start decay width for BTSS2->BT + Z1SS if(fm40.ge.(fm35+fm46)) then c0=-g zs5=dsin(theta) zs4=dcos(v3c) zs3=dsin(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,1)*zs5-3*v4c2(2,1)*zs2* . zs3)*fm45*zs1+3*(zs3+zs4)*v4c2(3,1)*fm35)*fi2(1))/(12*fm45*zs1 . ) cs3=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,1)*zs5-3*v4c2(2,1)*zs2* . zs3)*fm45*zs1-3*(zs3-zs4)*v4c2(3,1)*fm35)*fr2(1))/(12*fm45*zs1 . ) cs2=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,1)*zs5-3*v4c2(2,1)*zs2* . zs3)*fm45*zs1-3*(zs3-zs4)*v4c2(3,1)*fm35)*fi2(1))/(12*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,1)*zs5-3*v4c2(2,1)*zs2* . zs3)*fm45*zs1+3*(zs3+zs4)*v4c2(3,1)*fm35)*fr2(1))/(12*fm45*zs1 . ) p2=plamda(fm40n2,fm35n2,fm46n2) a=(-(((fm35+2*fm46)*fm35-(fm40**2-fm46**2))*(cs1**2+cs2**2)+(( . fm35-2*fm46)*fm35-(fm40**2-fm46**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm40**2*pi) pname(nf,n)="btss2->bt + z1ss" endif c Start decay width for BTSS2->BT + Z2SS if(fm40.ge.(fm35+fm47)) then c0=-g zs5=dsin(theta) zs4=dcos(v3c) zs3=dsin(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,2)*zs5-3*v4c2(2,2)*zs2* . zs3)*fm45*zs1+3*(zs3+zs4)*v4c2(3,2)*fm35)*fi2(2))/(12*fm45*zs1 . ) cs3=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,2)*zs5-3*v4c2(2,2)*zs2* . zs3)*fm45*zs1-3*(zs3-zs4)*v4c2(3,2)*fm35)*fr2(2))/(12*fm45*zs1 . ) cs2=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,2)*zs5-3*v4c2(2,2)*zs2* . zs3)*fm45*zs1-3*(zs3-zs4)*v4c2(3,2)*fm35)*fi2(2))/(12*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,2)*zs5-3*v4c2(2,2)*zs2* . zs3)*fm45*zs1+3*(zs3+zs4)*v4c2(3,2)*fm35)*fr2(2))/(12*fm45*zs1 . ) p2=plamda(fm40n2,fm35n2,fm47n2) a=(-(((fm35+2*fm47)*fm35-(fm40**2-fm47**2))*(cs1**2+cs2**2)+(( . fm35-2*fm47)*fm35-(fm40**2-fm47**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm40**2*pi) pname(nf,n)="btss2->bt + z2ss" endif c Start decay width for BTSS2->BT + Z3SS if(fm40.ge.(fm35+fm4)) then c0=-g zs5=dsin(theta) zs4=dcos(v3c) zs3=dsin(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,3)*zs5-3*v4c2(2,3)*zs2* . zs3)*fm45*zs1+3*(zs3+zs4)*v4c2(3,3)*fm35)*fi2(3))/(12*fm45*zs1 . ) cs3=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,3)*zs5-3*v4c2(2,3)*zs2* . zs3)*fm45*zs1-3*(zs3-zs4)*v4c2(3,3)*fm35)*fr2(3))/(12*fm45*zs1 . ) cs2=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,3)*zs5-3*v4c2(2,3)*zs2* . zs3)*fm45*zs1-3*(zs3-zs4)*v4c2(3,3)*fm35)*fi2(3))/(12*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,3)*zs5-3*v4c2(2,3)*zs2* . zs3)*fm45*zs1+3*(zs3+zs4)*v4c2(3,3)*fm35)*fr2(3))/(12*fm45*zs1 . ) p2=plamda(fm40n2,fm35n2,fm4n2) a=(-(((fm35+2*fm4)*fm35+fm4**2-fm40**2)*(cs1**2+cs2**2)+((fm35- . 2*fm4)*fm35+fm4**2-fm40**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm40**2*pi) pname(nf,n)="btss2->bt + z3ss" endif c Start decay width for BTSS2->BT + Z4SS if(fm40.ge.(fm35+fm10)) then c0=-g zs5=dsin(theta) zs4=dcos(v3c) zs3=dsin(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,4)*zs5-3*v4c2(2,4)*zs2* . zs3)*fm45*zs1+3*(zs3+zs4)*v4c2(3,4)*fm35)*fi2(4))/(12*fm45*zs1 . ) cs3=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,4)*zs5-3*v4c2(2,4)*zs2* . zs3)*fm45*zs1-3*(zs3-zs4)*v4c2(3,4)*fm35)*fr2(4))/(12*fm45*zs1 . ) cs2=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,4)*zs5-3*v4c2(2,4)*zs2* . zs3)*fm45*zs1-3*(zs3-zs4)*v4c2(3,4)*fm35)*fi2(4))/(12*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,4)*zs5-3*v4c2(2,4)*zs2* . zs3)*fm45*zs1+3*(zs3+zs4)*v4c2(3,4)*fm35)*fr2(4))/(12*fm45*zs1 . ) p2=plamda(fm40n2,fm35n2,fm10n2) a=(-(((fm10+2*fm35)*fm10+fm35**2-fm40**2)*(cs1**2+cs2**2)+(( . fm10-2*fm35)*fm10+fm35**2-fm40**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm40**2*pi) pname(nf,n)="btss2->bt + z4ss" endif c Start decay width for BTSS2->HL0 + BTSS1 if(fm40.ge.(fm8+fm37)) then c0=(-(dsqrt(2.d0)*(dsin(2.d0*theta+v2c+beta1)+dsin(beta1+v2c)- . dsin(2.d0*theta-v2c-beta1))*dcos(beta1)*dsin(2.d0*v3c)*fm45**2 . -6*(2*dcos(beta1)*dsin(v2c)*fm45*scm7-dsqrt(2.d0)*dcos(v2c)* . cm1*fm35)*dcos(2.d0*v3c))*g)/(12*dsqrt(2.d0)*dcos(beta1)*fm45) p2=plamda(fm40n2,fm8n2,fm37n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm40**2*pi) pname(nf,n)="btss2->hl0 + btss1" endif c Start decay width for BTSS2->HH0 + BTSS1 if(fm40.ge.(fm2+fm37)) then c0=(-(6*(2*dcos(beta1)*dcos(v2c)*fm45*scm7+dsqrt(2.d0)*dsin(v2c . )*cm1*fm35)*dcos(2.d0*v3c)-dsqrt(2.d0)*dcos(beta1+v2c)*dcos( . beta1)*dsin(2.d0*v3c)*fm45**2-dsqrt(2.d0)*dcos(2.d0*theta+v2c+ . beta1)*dcos(beta1)*dsin(2.d0*v3c)*fm45**2-dsqrt(2.d0)*dcos( . 2.d0*theta-v2c-beta1)*dcos(beta1)*dsin(2.d0*v3c)*fm45**2)*g)/( . 12*dsqrt(2.d0)*dcos(beta1)*fm45) p2=plamda(fm40n2,fm2n2,fm37n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm40**2*pi) pname(nf,n)="btss2->hh0 + btss1" endif c Start decay width for BTSS2->H- + TPSS1 if(fm40.ge.(fm3+fm36)) then c0=(-(((dsqrt(2.d0)*cm1*fm35-2*dsin(beta1)*fm45*scm7)*dcos(v4c) . *dsin(2.d0*beta1)+2*dsqrt(2.d0)*dsin(v4c)*fm34*fm35)*dcos(v3c) . -dsqrt(2.d0)*(2*dcos(v4c)*dsin(beta1)**2*fm35**2-dsin(2.d0* . beta1)*dsin(v4c)*cm1*fm34)*dsin(v3c)+dsqrt(2.d0)*dcos(theta)** . 2*dcos(v4c)*dsin(2.d0*beta1)**2*dsin(v3c)*fm45**2-2*(dsqrt( . 2.d0)*dcos(beta1)*dcos(v4c)*fm34**2+dsin(2.d0*beta1)*dsin(v4c) . *fm45*scm10)*dcos(beta1)*dsin(v3c))*g)/(2*dsin(2.d0*beta1)* . fm45) p2=plamda(fm40n2,fm3n2,fm36n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm40**2*pi) pname(nf,n)="btss2->h- + tpss1" endif c Start decay width for BTSS2->H- + TPSS2 if(fm40.ge.(fm3+fm43)) then c0=(-(((dsqrt(2.d0)*cm1*fm35-2*dsin(beta1)*fm45*scm7)*dsin(2.d0 . *beta1)*dsin(v4c)-2*dsqrt(2.d0)*dcos(v4c)*fm34*fm35)*dcos(v3c) . -dsqrt(2.d0)*(dcos(v4c)*dsin(2.d0*beta1)*cm1*fm34+2*dsin(beta1 . )**2*dsin(v4c)*fm35**2)*dsin(v3c)+dsqrt(2.d0)*dcos(theta)**2* . dsin(2.d0*beta1)**2*dsin(v3c)*dsin(v4c)*fm45**2-2*(dsqrt(2.d0) . *dcos(beta1)*dsin(v4c)*fm34**2-dcos(v4c)*dsin(2.d0*beta1)*fm45 . *scm10)*dcos(beta1)*dsin(v3c))*g)/(2*dsin(2.d0*beta1)*fm45) p2=plamda(fm40n2,fm3n2,fm43n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm40**2*pi) pname(nf,n)="btss2->h- + tpss2" endif c Start decay width for BTSS2->HA0 + BTSS1 if(fm40.ge.(fm6+fm37)) then c0=((dsqrt(2.d0)*cm1*fm35-2*dsin(beta1)*fm45*scm7)*g)/(2*dsqrt( . 2.d0)*fm45) p2=plamda(fm40n2,fm6n2,fm37n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm40**2*pi) pname(nf,n)="btss2->ha0 + btss1" endif c Start decay width for BTSS2->Z0 + BTSS1 if(fm40.ge.(fm45+fm37)) then c0=(-dsin(2.d0*v3c)*g)/4 p2=plamda(fm40n2,fm45n2,fm37n2) a=-(2*fm40**2-fm45**2+2*fm37**2-(fm37**4-2*fm37**2*fm40**2+fm40 . **4)*dfm45n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm40**2*pi) pname(nf,n)="btss2->z0 + btss1" endif c Start decay width for BTSS2->W- + TPSS1 if(fm40.ge.(fm48+fm36)) then c0=(dsqrt(2.d0)*dcos(theta)*dcos(v4c)*dsin(v3c)*g)/2 p2=plamda(fm40n2,fm48n2,fm36n2) a=-(2*fm40**2-fm48**2+2*fm36**2-(fm36**4-2*fm36**2*fm40**2+fm40 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm40**2*pi) pname(nf,n)="btss2->w- + tpss1" endif c Start decay width for BTSS2->W- + TPSS2 if(fm40.ge.(fm48+fm43)) then c0=(dsqrt(2.d0)*dcos(theta)*dsin(v3c)*dsin(v4c)*g)/2 p2=plamda(fm40n2,fm48n2,fm43n2) a=-(2*fm43**2-fm48**2+2*fm40**2-(fm40**4-2*fm40**2*fm43**2+fm43 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm40**2*pi) pname(nf,n)="btss2->w- + tpss2" endif decay_f12=pa_width(pa,nf,n,iflag,br0) return end function decay_f13(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=13 pa="sqbl" c Start decay width for BTSS1->TP + W1SS- if(fm37.ge.(fm34+fm49)) then c0=-g zs8=dsin(v7c) zs7=dsin(v3c) zs6=dsin(v6c) zs5=dsin(beta1) zs4=dcos(v7c) zs3=dcos(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(dsqrt(2.d0)*(fn1(1)*fm35*zs5*zs7*zs8+fm34*zs1*zs3*zs6)-2* . fn1(1)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs5) cs1=(dsqrt(2.d0)*(fn1(1)*fm35*zs5*zs7*zs8-fm34*zs1*zs3*zs6)-2* . fn1(1)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs5) p2=plamda(fm37n2,fm34n2,fm49n2) a=(-(((fm34+2*fm49)*fm34-(fm37**2-fm49**2))*cs2**2+((fm34-2* . fm49)*fm34-(fm37**2-fm49**2))*cs1**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm37**2*pi) pname(nf,n)="btss1->tp + w1ss-" endif c Start decay width for BTSS1->TP + W2SS- if(fm37.ge.(fm34+fm52)) then c0=-g zs8=dsin(v3c) zs7=dcos(v7c) zs6=dcos(v6c) zs5=dsin(v7c) zs4=dsin(beta1) zs3=dcos(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-dsqrt(2.d0)*(fn1(2)*fm35*zs4*zs7*zs8+fm34*zs1*zs3*zs6)-2* . fn1(2)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs4) cs1=(-dsqrt(2.d0)*(fn1(2)*fm35*zs4*zs7*zs8-fm34*zs1*zs3*zs6)-2* . fn1(2)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs4) p2=plamda(fm37n2,fm34n2,fm52n2) a=(-(((fm34+2*fm52)*fm34-(fm37**2-fm52**2))*cs2**2+((fm34-2* . fm52)*fm34-(fm37**2-fm52**2))*cs1**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm37**2*pi) pname(nf,n)="btss1->tp + w2ss-" endif c Start decay width for BTSS1->BT + GLSS if(fm37.ge.(fm35+fm51)) then c0=-g3 zs2=dsin(v3c) zs1=dcos(v3c) cs2=(-dsqrt(2.d0)*(zs1+zs2))/2 cs1=(-dsqrt(2.d0)*(zs1-zs2))/2 p2=plamda(fm37n2,fm35n2,fm51n2) a=(-(((fm35+2*fm51)*fm35-(fm37**2-fm51**2))*cs1**2+((fm35-2* . fm51)*fm35-(fm37**2-fm51**2))*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*(2*p2)/(3*fm37**2*pi) pname(nf,n)="btss1->bt + glss" endif c Start decay width for BTSS1->BT + Z1SS if(fm37.ge.(fm35+fm46)) then c0=-g zs5=dsin(v3c) zs4=dsin(theta) zs3=dcos(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,1)*zs4-3*v4c2(2,1)*zs2* . zs3)*fm45*zs1+3*(zs3-zs5)*v4c2(3,1)*fm35)*fi2(1))/(12*fm45*zs1 . ) cs3=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,1)*zs4-3*v4c2(2,1)*zs2* . zs3)*fm45*zs1-3*(zs3+zs5)*v4c2(3,1)*fm35)*fr2(1))/(12*fm45*zs1 . ) cs2=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,1)*zs4-3*v4c2(2,1)*zs2* . zs3)*fm45*zs1-3*(zs3+zs5)*v4c2(3,1)*fm35)*fi2(1))/(12*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,1)*zs4-3*v4c2(2,1)*zs2* . zs3)*fm45*zs1+3*(zs3-zs5)*v4c2(3,1)*fm35)*fr2(1))/(12*fm45*zs1 . ) p2=plamda(fm37n2,fm35n2,fm46n2) a=(-(((fm35+2*fm46)*fm35-(fm37**2-fm46**2))*(cs1**2+cs2**2)+(( . fm35-2*fm46)*fm35-(fm37**2-fm46**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm37**2*pi) pname(nf,n)="btss1->bt + z1ss" endif c Start decay width for BTSS1->BT + Z2SS if(fm37.ge.(fm35+fm47)) then c0=-g zs5=dsin(v3c) zs4=dsin(theta) zs3=dcos(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,2)*zs4-3*v4c2(2,2)*zs2* . zs3)*fm45*zs1+3*(zs3-zs5)*v4c2(3,2)*fm35)*fi2(2))/(12*fm45*zs1 . ) cs3=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,2)*zs4-3*v4c2(2,2)*zs2* . zs3)*fm45*zs1-3*(zs3+zs5)*v4c2(3,2)*fm35)*fr2(2))/(12*fm45*zs1 . ) cs2=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,2)*zs4-3*v4c2(2,2)*zs2* . zs3)*fm45*zs1-3*(zs3+zs5)*v4c2(3,2)*fm35)*fi2(2))/(12*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,2)*zs4-3*v4c2(2,2)*zs2* . zs3)*fm45*zs1+3*(zs3-zs5)*v4c2(3,2)*fm35)*fr2(2))/(12*fm45*zs1 . ) p2=plamda(fm37n2,fm35n2,fm47n2) a=(-(((fm35+2*fm47)*fm35-(fm37**2-fm47**2))*(cs1**2+cs2**2)+(( . fm35-2*fm47)*fm35-(fm37**2-fm47**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm37**2*pi) pname(nf,n)="btss1->bt + z2ss" endif c Start decay width for BTSS1->BT + Z3SS if(fm37.ge.(fm35+fm4)) then c0=-g zs5=dsin(v3c) zs4=dsin(theta) zs3=dcos(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,3)*zs4-3*v4c2(2,3)*zs2* . zs3)*fm45*zs1+3*(zs3-zs5)*v4c2(3,3)*fm35)*fi2(3))/(12*fm45*zs1 . ) cs3=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,3)*zs4-3*v4c2(2,3)*zs2* . zs3)*fm45*zs1-3*(zs3+zs5)*v4c2(3,3)*fm35)*fr2(3))/(12*fm45*zs1 . ) cs2=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,3)*zs4-3*v4c2(2,3)*zs2* . zs3)*fm45*zs1-3*(zs3+zs5)*v4c2(3,3)*fm35)*fi2(3))/(12*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,3)*zs4-3*v4c2(2,3)*zs2* . zs3)*fm45*zs1+3*(zs3-zs5)*v4c2(3,3)*fm35)*fr2(3))/(12*fm45*zs1 . ) p2=plamda(fm37n2,fm35n2,fm4n2) a=(-(((fm35+2*fm4)*fm35-(fm37**2-fm4**2))*(cs1**2+cs2**2)+(( . fm35-2*fm4)*fm35-(fm37**2-fm4**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm37**2*pi) pname(nf,n)="btss1->bt + z3ss" endif c Start decay width for BTSS1->BT + Z4SS if(fm37.ge.(fm35+fm10)) then c0=-g zs5=dsin(v3c) zs4=dsin(theta) zs3=dcos(v3c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,4)*zs4-3*v4c2(2,4)*zs2* . zs3)*fm45*zs1+3*(zs3-zs5)*v4c2(3,4)*fm35)*fi2(4))/(12*fm45*zs1 . ) cs3=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,4)*zs4-3*v4c2(2,4)*zs2* . zs3)*fm45*zs1-3*(zs3+zs5)*v4c2(3,4)*fm35)*fr2(4))/(12*fm45*zs1 . ) cs2=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,4)*zs4-3*v4c2(2,4)*zs2* . zs3)*fm45*zs1-3*(zs3+zs5)*v4c2(3,4)*fm35)*fi2(4))/(12*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,4)*zs4-3*v4c2(2,4)*zs2* . zs3)*fm45*zs1+3*(zs3-zs5)*v4c2(3,4)*fm35)*fr2(4))/(12*fm45*zs1 . ) p2=plamda(fm37n2,fm35n2,fm10n2) a=(-(((fm10+2*fm35)*fm10+fm35**2-fm37**2)*(cs1**2+cs2**2)+(( . fm10-2*fm35)*fm10+fm35**2-fm37**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm37**2*pi) pname(nf,n)="btss1->bt + z4ss" endif c Start decay width for BTSS1->HL0 + BTSS2 if(fm37.ge.(fm8+fm40)) then c0=(-(dsqrt(2.d0)*(dsin(2.d0*theta+v2c+beta1)+dsin(beta1+v2c)- . dsin(2.d0*theta-v2c-beta1))*dcos(beta1)*dsin(2.d0*v3c)*fm45**2 . -6*(2*dcos(beta1)*dsin(v2c)*fm45*scm7-dsqrt(2.d0)*dcos(v2c)* . cm1*fm35)*dcos(2.d0*v3c))*g)/(12*dsqrt(2.d0)*dcos(beta1)*fm45) p2=plamda(fm37n2,fm8n2,fm40n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm37**2*pi) pname(nf,n)="btss1->hl0 + btss2" endif c Start decay width for BTSS1->HH0 + BTSS2 if(fm37.ge.(fm2+fm40)) then c0=(-(6*(2*dcos(beta1)*dcos(v2c)*fm45*scm7+dsqrt(2.d0)*dsin(v2c . )*cm1*fm35)*dcos(2.d0*v3c)-dsqrt(2.d0)*dcos(beta1+v2c)*dcos( . beta1)*dsin(2.d0*v3c)*fm45**2-dsqrt(2.d0)*dcos(2.d0*theta+v2c+ . beta1)*dcos(beta1)*dsin(2.d0*v3c)*fm45**2-dsqrt(2.d0)*dcos( . 2.d0*theta-v2c-beta1)*dcos(beta1)*dsin(2.d0*v3c)*fm45**2)*g)/( . 12*dsqrt(2.d0)*dcos(beta1)*fm45) p2=plamda(fm37n2,fm2n2,fm40n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm37**2*pi) pname(nf,n)="btss1->hh0 + btss2" endif c Start decay width for BTSS1->H- + TPSS1 if(fm37.ge.(fm3+fm36)) then c0=((((dsqrt(2.d0)*cm1*fm35-2*dsin(beta1)*fm45*scm7)*dcos(v4c)* . dsin(2.d0*beta1)+2*dsqrt(2.d0)*dsin(v4c)*fm34*fm35)*dsin(v3c)+ . dsqrt(2.d0)*(2*dcos(v4c)*dsin(beta1)**2*fm35**2-dsin(2.d0* . beta1)*dsin(v4c)*cm1*fm34)*dcos(v3c)-dsqrt(2.d0)*dcos(theta)** . 2*dcos(v3c)*dcos(v4c)*dsin(2.d0*beta1)**2*fm45**2+2*(dsqrt( . 2.d0)*dcos(beta1)*dcos(v4c)*fm34**2+dsin(2.d0*beta1)*dsin(v4c) . *fm45*scm10)*dcos(beta1)*dcos(v3c))*g)/(2*dsin(2.d0*beta1)* . fm45) p2=plamda(fm37n2,fm3n2,fm36n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm37**2*pi) pname(nf,n)="btss1->h- + tpss1" endif c Start decay width for BTSS1->H- + TPSS2 if(fm37.ge.(fm3+fm43)) then c0=((((dsqrt(2.d0)*cm1*fm35-2*dsin(beta1)*fm45*scm7)*dsin(2.d0* . beta1)*dsin(v4c)-2*dsqrt(2.d0)*dcos(v4c)*fm34*fm35)*dsin(v3c)+ . dsqrt(2.d0)*(dcos(v4c)*dsin(2.d0*beta1)*cm1*fm34+2*dsin(beta1) . **2*dsin(v4c)*fm35**2)*dcos(v3c)-dsqrt(2.d0)*dcos(theta)**2* . dcos(v3c)*dsin(2.d0*beta1)**2*dsin(v4c)*fm45**2+2*(dsqrt(2.d0) . *dcos(beta1)*dsin(v4c)*fm34**2-dcos(v4c)*dsin(2.d0*beta1)*fm45 . *scm10)*dcos(beta1)*dcos(v3c))*g)/(2*dsin(2.d0*beta1)*fm45) p2=plamda(fm37n2,fm3n2,fm43n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm37**2*pi) pname(nf,n)="btss1->h- + tpss2" endif c Start decay width for BTSS1->HA0 + BTSS2 if(fm37.ge.(fm6+fm40)) then c0=(-(dsqrt(2.d0)*cm1*fm35-2*dsin(beta1)*fm45*scm7)*g)/(2*dsqrt . (2.d0)*fm45) p2=plamda(fm37n2,fm6n2,fm40n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm37**2*pi) pname(nf,n)="btss1->ha0 + btss2" endif c Start decay width for BTSS1->Z0 + BTSS2 if(fm37.ge.(fm45+fm40)) then c0=(-dsin(2.d0*v3c)*g)/4 p2=plamda(fm37n2,fm45n2,fm40n2) a=-(2*fm40**2-fm45**2+2*fm37**2-(fm37**4-2*fm37**2*fm40**2+fm40 . **4)*dfm45n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm37**2*pi) pname(nf,n)="btss1->z0 + btss2" endif c Start decay width for BTSS1->W- + TPSS1 if(fm37.ge.(fm48+fm36)) then c0=(dsqrt(2.d0)*dcos(theta)*dcos(v3c)*dcos(v4c)*g)/2 p2=plamda(fm37n2,fm48n2,fm36n2) a=-(2*fm37**2-fm48**2+2*fm36**2-(fm36**4-2*fm36**2*fm37**2+fm37 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm37**2*pi) pname(nf,n)="btss1->w- + tpss1" endif c Start decay width for BTSS1->W- + TPSS2 if(fm37.ge.(fm48+fm43)) then c0=(dsqrt(2.d0)*dcos(theta)*dcos(v3c)*dsin(v4c)*g)/2 p2=plamda(fm37n2,fm48n2,fm43n2) a=-(2*fm43**2-fm48**2+2*fm37**2-(fm37**4-2*fm37**2*fm43**2+fm43 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm37**2*pi) pname(nf,n)="btss1->w- + tpss2" endif decay_f13=pa_width(pa,nf,n,iflag,br0) return end function decay_f14(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=14 pa="sqtr" c Start decay width for TPSS2->TP + GLSS if(fm43.ge.(fm34+fm51)) then c0=-g3 zs2=dsin(v4c) zs1=dcos(v4c) cs2=(dsqrt(2.d0)*(zs1-zs2))/2 cs1=(-dsqrt(2.d0)*(zs1+zs2))/2 p2=plamda(fm43n2,fm34n2,fm51n2) a=(-(((fm34+2*fm51)*fm34-(fm43**2-fm51**2))*cs1**2+((fm34-2* . fm51)*fm34-(fm43**2-fm51**2))*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*(2*p2)/(3*fm43**2*pi) pname(nf,n)="tpss2->tp + glss" endif c Start decay width for TPSS2->TP + Z1SS if(fm43.ge.(fm34+fm46)) then c0=-g zs5=dsin(theta) zs4=dcos(v4c) zs3=dsin(v4c) zs2=dsin(beta1) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(((zs3+4*zs4)*v4c2(1,1)*zs5+3*v4c2(2,1)*zs1* . zs3)*fm45*zs2+3*(zs3+zs4)*v4c2(4,1)*fm34)*fi2(1))/(12*fm45*zs2 . ) cs3=(-dsqrt(2.d0)*(((zs3-4*zs4)*v4c2(1,1)*zs5+3*v4c2(2,1)*zs1* . zs3)*fm45*zs2-3*(zs3-zs4)*v4c2(4,1)*fm34)*fr2(1))/(12*fm45*zs2 . ) cs2=(-dsqrt(2.d0)*(((zs3-4*zs4)*v4c2(1,1)*zs5+3*v4c2(2,1)*zs1* . zs3)*fm45*zs2-3*(zs3-zs4)*v4c2(4,1)*fm34)*fi2(1))/(12*fm45*zs2 . ) cs1=(-dsqrt(2.d0)*(((zs3+4*zs4)*v4c2(1,1)*zs5+3*v4c2(2,1)*zs1* . zs3)*fm45*zs2+3*(zs3+zs4)*v4c2(4,1)*fm34)*fr2(1))/(12*fm45*zs2 . ) p2=plamda(fm43n2,fm34n2,fm46n2) a=(-(((fm34+2*fm46)*fm34-(fm43**2-fm46**2))*(cs1**2+cs2**2)+(( . fm34-2*fm46)*fm34-(fm43**2-fm46**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm43**2*pi) pname(nf,n)="tpss2->tp + z1ss" endif c Start decay width for TPSS2->TP + Z2SS if(fm43.ge.(fm34+fm47)) then c0=-g zs5=dsin(theta) zs4=dcos(v4c) zs3=dsin(v4c) zs2=dsin(beta1) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(((zs3+4*zs4)*v4c2(1,2)*zs5+3*v4c2(2,2)*zs1* . zs3)*fm45*zs2+3*(zs3+zs4)*v4c2(4,2)*fm34)*fi2(2))/(12*fm45*zs2 . ) cs3=(-dsqrt(2.d0)*(((zs3-4*zs4)*v4c2(1,2)*zs5+3*v4c2(2,2)*zs1* . zs3)*fm45*zs2-3*(zs3-zs4)*v4c2(4,2)*fm34)*fr2(2))/(12*fm45*zs2 . ) cs2=(-dsqrt(2.d0)*(((zs3-4*zs4)*v4c2(1,2)*zs5+3*v4c2(2,2)*zs1* . zs3)*fm45*zs2-3*(zs3-zs4)*v4c2(4,2)*fm34)*fi2(2))/(12*fm45*zs2 . ) cs1=(-dsqrt(2.d0)*(((zs3+4*zs4)*v4c2(1,2)*zs5+3*v4c2(2,2)*zs1* . zs3)*fm45*zs2+3*(zs3+zs4)*v4c2(4,2)*fm34)*fr2(2))/(12*fm45*zs2 . ) p2=plamda(fm43n2,fm34n2,fm47n2) a=(-(((fm34+2*fm47)*fm34-(fm43**2-fm47**2))*(cs1**2+cs2**2)+(( . fm34-2*fm47)*fm34-(fm43**2-fm47**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm43**2*pi) pname(nf,n)="tpss2->tp + z2ss" endif c Start decay width for TPSS2->TP + Z3SS if(fm43.ge.(fm34+fm4)) then c0=-g zs5=dsin(theta) zs4=dcos(v4c) zs3=dsin(v4c) zs2=dsin(beta1) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(((zs3+4*zs4)*v4c2(1,3)*zs5+3*v4c2(2,3)*zs1* . zs3)*fm45*zs2+3*(zs3+zs4)*v4c2(4,3)*fm34)*fi2(3))/(12*fm45*zs2 . ) cs3=(-dsqrt(2.d0)*(((zs3-4*zs4)*v4c2(1,3)*zs5+3*v4c2(2,3)*zs1* . zs3)*fm45*zs2-3*(zs3-zs4)*v4c2(4,3)*fm34)*fr2(3))/(12*fm45*zs2 . ) cs2=(-dsqrt(2.d0)*(((zs3-4*zs4)*v4c2(1,3)*zs5+3*v4c2(2,3)*zs1* . zs3)*fm45*zs2-3*(zs3-zs4)*v4c2(4,3)*fm34)*fi2(3))/(12*fm45*zs2 . ) cs1=(-dsqrt(2.d0)*(((zs3+4*zs4)*v4c2(1,3)*zs5+3*v4c2(2,3)*zs1* . zs3)*fm45*zs2+3*(zs3+zs4)*v4c2(4,3)*fm34)*fr2(3))/(12*fm45*zs2 . ) p2=plamda(fm43n2,fm34n2,fm4n2) a=(-(((fm34+2*fm4)*fm34+fm4**2-fm43**2)*(cs1**2+cs2**2)+((fm34- . 2*fm4)*fm34+fm4**2-fm43**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm43**2*pi) pname(nf,n)="tpss2->tp + z3ss" endif c Start decay width for TPSS2->TP + Z4SS if(fm43.ge.(fm34+fm10)) then c0=-g zs5=dsin(theta) zs4=dcos(v4c) zs3=dsin(v4c) zs2=dsin(beta1) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(((zs3+4*zs4)*v4c2(1,4)*zs5+3*v4c2(2,4)*zs1* . zs3)*fm45*zs2+3*(zs3+zs4)*v4c2(4,4)*fm34)*fi2(4))/(12*fm45*zs2 . ) cs3=(-dsqrt(2.d0)*(((zs3-4*zs4)*v4c2(1,4)*zs5+3*v4c2(2,4)*zs1* . zs3)*fm45*zs2-3*(zs3-zs4)*v4c2(4,4)*fm34)*fr2(4))/(12*fm45*zs2 . ) cs2=(-dsqrt(2.d0)*(((zs3-4*zs4)*v4c2(1,4)*zs5+3*v4c2(2,4)*zs1* . zs3)*fm45*zs2-3*(zs3-zs4)*v4c2(4,4)*fm34)*fi2(4))/(12*fm45*zs2 . ) cs1=(-dsqrt(2.d0)*(((zs3+4*zs4)*v4c2(1,4)*zs5+3*v4c2(2,4)*zs1* . zs3)*fm45*zs2+3*(zs3+zs4)*v4c2(4,4)*fm34)*fr2(4))/(12*fm45*zs2 . ) p2=plamda(fm43n2,fm34n2,fm10n2) a=(-(((fm10+2*fm34)*fm10+fm34**2-fm43**2)*(cs1**2+cs2**2)+(( . fm10-2*fm34)*fm10+fm34**2-fm43**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm43**2*pi) pname(nf,n)="tpss2->tp + z4ss" endif c Start decay width for TPSS2->BT + W1SS+ if(fm43.ge.(fm35+fm49)) then c0=-g zs8=dsin(v6c) zs7=dsin(v7c) zs6=dcos(v4c) zs5=dsin(v4c) zs4=dsin(beta1) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-dsqrt(2.d0)*(fn1(1)*fm34*zs1*zs6*zs7-fm35*zs4*zs5*zs8)-2* . fn1(1)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs4) cs1=(-dsqrt(2.d0)*(fn1(1)*fm34*zs1*zs6*zs7+fm35*zs4*zs5*zs8)-2* . fn1(1)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs4) p2=plamda(fm43n2,fm35n2,fm49n2) a=(-(((fm35+2*fm49)*fm35-(fm43**2-fm49**2))*cs1**2+((fm35-2* . fm49)*fm35-(fm43**2-fm49**2))*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm43**2*pi) pname(nf,n)="tpss2->bt + w1ss+" endif c Start decay width for TPSS2->BT + W2SS+ if(fm43.ge.(fm35+fm52)) then c0=-g zs8=dcos(v6c) zs7=dcos(v7c) zs6=dcos(v4c) zs5=dsin(v7c) zs4=dsin(v4c) zs3=dsin(beta1) zs2=dcos(theta) zs1=dcos(beta1) cs2=(dsqrt(2.d0)*(fn1(2)*fm34*zs1*zs6*zs7-fm35*zs3*zs4*zs8)-2* . fn1(2)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs3) cs1=(dsqrt(2.d0)*(fn1(2)*fm34*zs1*zs6*zs7+fm35*zs3*zs4*zs8)-2* . fn1(2)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs3) p2=plamda(fm43n2,fm35n2,fm52n2) a=(-(((fm35+2*fm52)*fm35-(fm43**2-fm52**2))*cs1**2+((fm35-2* . fm52)*fm35-(fm43**2-fm52**2))*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm43**2*pi) pname(nf,n)="tpss2->bt + w2ss+" endif c Start decay width for TPSS2->HL0 + TPSS1 if(fm43.ge.(fm8+fm36)) then c0=((dsqrt(2.d0)*(2*dsin(2.d0*theta+v2c+beta1)-dsin(beta1+v2c)- . 2*dsin(2.d0*theta-v2c-beta1))*dsin(2.d0*v4c)*dsin(beta1)*fm45 . **2+6*(2*dcos(v2c)*dsin(beta1)*fm45*scm10-dsqrt(2.d0)*dsin(v2c . )*cm1*fm34)*dcos(2.d0*v4c))*g)/(12*dsqrt(2.d0)*dsin(beta1)* . fm45) p2=plamda(fm43n2,fm8n2,fm36n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm43**2*pi) pname(nf,n)="tpss2->hl0 + tpss1" endif c Start decay width for TPSS2->HH0 + TPSS1 if(fm43.ge.(fm2+fm36)) then c0=((6*(dsqrt(2.d0)*dcos(v2c)*cm1*fm34+2*dsin(beta1)*dsin(v2c)* . fm45*scm10)*dcos(2.d0*v4c)+dsqrt(2.d0)*dcos(beta1+v2c)*dsin( . 2.d0*v4c)*dsin(beta1)*fm45**2-2*dsqrt(2.d0)*dcos(2.d0*theta+ . v2c+beta1)*dsin(2.d0*v4c)*dsin(beta1)*fm45**2-2*dsqrt(2.d0)* . dcos(2.d0*theta-v2c-beta1)*dsin(2.d0*v4c)*dsin(beta1)*fm45**2) . *g)/(12*dsqrt(2.d0)*dsin(beta1)*fm45) p2=plamda(fm43n2,fm2n2,fm36n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm43**2*pi) pname(nf,n)="tpss2->hh0 + tpss1" endif c Start decay width for TPSS2->HA0 + TPSS1 if(fm43.ge.(fm6+fm36)) then c0=((2*dcos(beta1)*fm45*scm10-dsqrt(2.d0)*cm1*fm34)*g)/(2*dsqrt . (2.d0)*fm45) p2=plamda(fm43n2,fm6n2,fm36n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm43**2*pi) pname(nf,n)="tpss2->ha0 + tpss1" endif c Start decay width for TPSS2->H+ + BTSS1 if(fm43.ge.(fm3+fm37)) then c0=((((dsqrt(2.d0)*cm1*fm35-2*dsin(beta1)*fm45*scm7)*dsin(2.d0* . beta1)*dsin(v4c)-2*dsqrt(2.d0)*dcos(v4c)*fm34*fm35)*dsin(v3c)+ . dsqrt(2.d0)*(dcos(v4c)*dsin(2.d0*beta1)*cm1*fm34+2*dsin(beta1) . **2*dsin(v4c)*fm35**2)*dcos(v3c)-dsqrt(2.d0)*dcos(theta)**2* . dcos(v3c)*dsin(2.d0*beta1)**2*dsin(v4c)*fm45**2+2*(dsqrt(2.d0) . *dcos(beta1)*dsin(v4c)*fm34**2-dcos(v4c)*dsin(2.d0*beta1)*fm45 . *scm10)*dcos(beta1)*dcos(v3c))*g)/(2*dsin(2.d0*beta1)*fm45) p2=plamda(fm43n2,fm3n2,fm37n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm43**2*pi) pname(nf,n)="tpss2->h+ + btss1" endif c Start decay width for TPSS2->H+ + BTSS2 if(fm43.ge.(fm3+fm40)) then c0=(-(((dsqrt(2.d0)*cm1*fm35-2*dsin(beta1)*fm45*scm7)*dsin(2.d0 . *beta1)*dsin(v4c)-2*dsqrt(2.d0)*dcos(v4c)*fm34*fm35)*dcos(v3c) . -dsqrt(2.d0)*(dcos(v4c)*dsin(2.d0*beta1)*cm1*fm34+2*dsin(beta1 . )**2*dsin(v4c)*fm35**2)*dsin(v3c)+dsqrt(2.d0)*dcos(theta)**2* . dsin(2.d0*beta1)**2*dsin(v3c)*dsin(v4c)*fm45**2-2*(dsqrt(2.d0) . *dcos(beta1)*dsin(v4c)*fm34**2-dcos(v4c)*dsin(2.d0*beta1)*fm45 . *scm10)*dcos(beta1)*dsin(v3c))*g)/(2*dsin(2.d0*beta1)*fm45) p2=plamda(fm43n2,fm3n2,fm40n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm43**2*pi) pname(nf,n)="tpss2->h+ + btss2" endif c Start decay width for TPSS2->Z0 + TPSS1 if(fm43.ge.(fm45+fm36)) then c0=(dsin(2.d0*v4c)*g)/4 p2=plamda(fm43n2,fm45n2,fm36n2) a=-(2*fm43**2-fm45**2+2*fm36**2-(fm36**4-2*fm36**2*fm43**2+fm43 . **4)*dfm45n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm43**2*pi) pname(nf,n)="tpss2->z0 + tpss1" endif c Start decay width for TPSS2->W+ + BTSS1 if(fm43.ge.(fm48+fm37)) then c0=(dsqrt(2.d0)*dcos(theta)*dcos(v3c)*dsin(v4c)*g)/2 p2=plamda(fm43n2,fm48n2,fm37n2) a=-(2*fm43**2-fm48**2+2*fm37**2-(fm37**4-2*fm37**2*fm43**2+fm43 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm43**2*pi) pname(nf,n)="tpss2->w+ + btss1" endif c Start decay width for TPSS2->W+ + BTSS2 if(fm43.ge.(fm48+fm40)) then c0=(dsqrt(2.d0)*dcos(theta)*dsin(v3c)*dsin(v4c)*g)/2 p2=plamda(fm43n2,fm48n2,fm40n2) a=-(2*fm43**2-fm48**2+2*fm40**2-(fm40**4-2*fm40**2*fm43**2+fm43 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm43**2*pi) pname(nf,n)="tpss2->w+ + btss2" endif decay_f14=pa_width(pa,nf,n,iflag,br0) return end function decay_f15(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=15 pa="sqtl" c Start decay width for TPSS1->TP + GLSS if(fm36.ge.(fm34+fm51)) then c0=-g3 zs2=dsin(v4c) zs1=dcos(v4c) cs2=(-dsqrt(2.d0)*(zs1+zs2))/2 cs1=(-dsqrt(2.d0)*(zs1-zs2))/2 p2=plamda(fm36n2,fm34n2,fm51n2) a=(-(((fm34+2*fm51)*fm34-(fm36**2-fm51**2))*cs1**2+((fm34-2* . fm51)*fm34-(fm36**2-fm51**2))*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*(2*p2)/(3*fm36**2*pi) pname(nf,n)="tpss1->tp + glss" endif c Start decay width for TPSS1->TP + Z1SS if(fm36.ge.(fm34+fm46)) then c0=-g zs5=dsin(v4c) zs4=dsin(theta) zs3=dsin(beta1) zs2=dcos(v4c) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(((zs2-4*zs5)*v4c2(1,1)*zs4+3*v4c2(2,1)*zs1* . zs2)*fm45*zs3+3*(zs2-zs5)*v4c2(4,1)*fm34)*fi2(1))/(12*fm45*zs3 . ) cs3=(-dsqrt(2.d0)*(((zs2+4*zs5)*v4c2(1,1)*zs4+3*v4c2(2,1)*zs1* . zs2)*fm45*zs3-3*(zs2+zs5)*v4c2(4,1)*fm34)*fr2(1))/(12*fm45*zs3 . ) cs2=(-dsqrt(2.d0)*(((zs2+4*zs5)*v4c2(1,1)*zs4+3*v4c2(2,1)*zs1* . zs2)*fm45*zs3-3*(zs2+zs5)*v4c2(4,1)*fm34)*fi2(1))/(12*fm45*zs3 . ) cs1=(-dsqrt(2.d0)*(((zs2-4*zs5)*v4c2(1,1)*zs4+3*v4c2(2,1)*zs1* . zs2)*fm45*zs3+3*(zs2-zs5)*v4c2(4,1)*fm34)*fr2(1))/(12*fm45*zs3 . ) p2=plamda(fm36n2,fm34n2,fm46n2) a=(-(((fm34+2*fm46)*fm34-(fm36**2-fm46**2))*(cs1**2+cs2**2)+(( . fm34-2*fm46)*fm34-(fm36**2-fm46**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm36**2*pi) pname(nf,n)="tpss1->tp + z1ss" endif c Start decay width for TPSS1->TP + Z2SS if(fm36.ge.(fm34+fm47)) then c0=-g zs5=dsin(v4c) zs4=dsin(theta) zs3=dsin(beta1) zs2=dcos(v4c) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(((zs2-4*zs5)*v4c2(1,2)*zs4+3*v4c2(2,2)*zs1* . zs2)*fm45*zs3+3*(zs2-zs5)*v4c2(4,2)*fm34)*fi2(2))/(12*fm45*zs3 . ) cs3=(-dsqrt(2.d0)*(((zs2+4*zs5)*v4c2(1,2)*zs4+3*v4c2(2,2)*zs1* . zs2)*fm45*zs3-3*(zs2+zs5)*v4c2(4,2)*fm34)*fr2(2))/(12*fm45*zs3 . ) cs2=(-dsqrt(2.d0)*(((zs2+4*zs5)*v4c2(1,2)*zs4+3*v4c2(2,2)*zs1* . zs2)*fm45*zs3-3*(zs2+zs5)*v4c2(4,2)*fm34)*fi2(2))/(12*fm45*zs3 . ) cs1=(-dsqrt(2.d0)*(((zs2-4*zs5)*v4c2(1,2)*zs4+3*v4c2(2,2)*zs1* . zs2)*fm45*zs3+3*(zs2-zs5)*v4c2(4,2)*fm34)*fr2(2))/(12*fm45*zs3 . ) p2=plamda(fm36n2,fm34n2,fm47n2) a=(-(((fm34+2*fm47)*fm34-(fm36**2-fm47**2))*(cs1**2+cs2**2)+(( . fm34-2*fm47)*fm34-(fm36**2-fm47**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm36**2*pi) pname(nf,n)="tpss1->tp + z2ss" endif c Start decay width for TPSS1->TP + Z3SS if(fm36.ge.(fm34+fm4)) then c0=-g zs5=dsin(v4c) zs4=dsin(theta) zs3=dsin(beta1) zs2=dcos(v4c) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(((zs2-4*zs5)*v4c2(1,3)*zs4+3*v4c2(2,3)*zs1* . zs2)*fm45*zs3+3*(zs2-zs5)*v4c2(4,3)*fm34)*fi2(3))/(12*fm45*zs3 . ) cs3=(-dsqrt(2.d0)*(((zs2+4*zs5)*v4c2(1,3)*zs4+3*v4c2(2,3)*zs1* . zs2)*fm45*zs3-3*(zs2+zs5)*v4c2(4,3)*fm34)*fr2(3))/(12*fm45*zs3 . ) cs2=(-dsqrt(2.d0)*(((zs2+4*zs5)*v4c2(1,3)*zs4+3*v4c2(2,3)*zs1* . zs2)*fm45*zs3-3*(zs2+zs5)*v4c2(4,3)*fm34)*fi2(3))/(12*fm45*zs3 . ) cs1=(-dsqrt(2.d0)*(((zs2-4*zs5)*v4c2(1,3)*zs4+3*v4c2(2,3)*zs1* . zs2)*fm45*zs3+3*(zs2-zs5)*v4c2(4,3)*fm34)*fr2(3))/(12*fm45*zs3 . ) p2=plamda(fm36n2,fm34n2,fm4n2) a=(-(((fm34+2*fm4)*fm34-(fm36**2-fm4**2))*(cs1**2+cs2**2)+(( . fm34-2*fm4)*fm34-(fm36**2-fm4**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm36**2*pi) pname(nf,n)="tpss1->tp + z3ss" endif c Start decay width for TPSS1->TP + Z4SS if(fm36.ge.(fm34+fm10)) then c0=-g zs5=dsin(v4c) zs4=dsin(theta) zs3=dsin(beta1) zs2=dcos(v4c) zs1=dcos(theta) cs4=(-dsqrt(2.d0)*(((zs2-4*zs5)*v4c2(1,4)*zs4+3*v4c2(2,4)*zs1* . zs2)*fm45*zs3+3*(zs2-zs5)*v4c2(4,4)*fm34)*fi2(4))/(12*fm45*zs3 . ) cs3=(-dsqrt(2.d0)*(((zs2+4*zs5)*v4c2(1,4)*zs4+3*v4c2(2,4)*zs1* . zs2)*fm45*zs3-3*(zs2+zs5)*v4c2(4,4)*fm34)*fr2(4))/(12*fm45*zs3 . ) cs2=(-dsqrt(2.d0)*(((zs2+4*zs5)*v4c2(1,4)*zs4+3*v4c2(2,4)*zs1* . zs2)*fm45*zs3-3*(zs2+zs5)*v4c2(4,4)*fm34)*fi2(4))/(12*fm45*zs3 . ) cs1=(-dsqrt(2.d0)*(((zs2-4*zs5)*v4c2(1,4)*zs4+3*v4c2(2,4)*zs1* . zs2)*fm45*zs3+3*(zs2-zs5)*v4c2(4,4)*fm34)*fr2(4))/(12*fm45*zs3 . ) p2=plamda(fm36n2,fm34n2,fm10n2) a=(-(((fm10+2*fm34)*fm10+fm34**2-fm36**2)*(cs1**2+cs2**2)+(( . fm10-2*fm34)*fm10+fm34**2-fm36**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm36**2*pi) pname(nf,n)="tpss1->tp + z4ss" endif c Start decay width for TPSS1->BT + W1SS+ if(fm36.ge.(fm35+fm49)) then c0=-g zs8=dsin(v6c) zs7=dsin(v7c) zs6=dsin(v4c) zs5=dsin(beta1) zs4=dcos(v7c) zs3=dcos(v4c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(dsqrt(2.d0)*(fn1(1)*fm34*zs1*zs6*zs7+fm35*zs3*zs5*zs8)-2* . fn1(1)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs5) cs1=(dsqrt(2.d0)*(fn1(1)*fm34*zs1*zs6*zs7-fm35*zs3*zs5*zs8)-2* . fn1(1)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs5) p2=plamda(fm36n2,fm35n2,fm49n2) a=(-(((fm35+2*fm49)*fm35-(fm36**2-fm49**2))*cs1**2+((fm35-2* . fm49)*fm35-(fm36**2-fm49**2))*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm36**2*pi) pname(nf,n)="tpss1->bt + w1ss+" endif c Start decay width for TPSS1->BT + W2SS+ if(fm36.ge.(fm35+fm52)) then c0=-g zs8=dcos(v6c) zs7=dsin(v4c) zs6=dcos(v7c) zs5=dsin(v7c) zs4=dsin(beta1) zs3=dcos(v4c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-dsqrt(2.d0)*(fn1(2)*fm34*zs1*zs6*zs7+fm35*zs3*zs4*zs8)-2* . fn1(2)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs4) cs1=(-dsqrt(2.d0)*(fn1(2)*fm34*zs1*zs6*zs7-fm35*zs3*zs4*zs8)-2* . fn1(2)*fm45*zs1*zs2*zs3*zs4*zs5)/(4*fm45*zs1*zs4) p2=plamda(fm36n2,fm35n2,fm52n2) a=(-(((fm35+2*fm52)*fm35-(fm36**2-fm52**2))*cs1**2+((fm35-2* . fm52)*fm35-(fm36**2-fm52**2))*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm36**2*pi) pname(nf,n)="tpss1->bt + w2ss+" endif c Start decay width for TPSS1->HL0 + TPSS2 if(fm36.ge.(fm8+fm43)) then c0=((dsqrt(2.d0)*(2*dsin(2.d0*theta+v2c+beta1)-dsin(beta1+v2c)- . 2*dsin(2.d0*theta-v2c-beta1))*dsin(2.d0*v4c)*dsin(beta1)*fm45 . **2+6*(2*dcos(v2c)*dsin(beta1)*fm45*scm10-dsqrt(2.d0)*dsin(v2c . )*cm1*fm34)*dcos(2.d0*v4c))*g)/(12*dsqrt(2.d0)*dsin(beta1)* . fm45) p2=plamda(fm36n2,fm8n2,fm43n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm36**2*pi) pname(nf,n)="tpss1->hl0 + tpss2" endif c Start decay width for TPSS1->HH0 + TPSS2 if(fm36.ge.(fm2+fm43)) then c0=((6*(dsqrt(2.d0)*dcos(v2c)*cm1*fm34+2*dsin(beta1)*dsin(v2c)* . fm45*scm10)*dcos(2.d0*v4c)+dsqrt(2.d0)*dcos(beta1+v2c)*dsin( . 2.d0*v4c)*dsin(beta1)*fm45**2-2*dsqrt(2.d0)*dcos(2.d0*theta+ . v2c+beta1)*dsin(2.d0*v4c)*dsin(beta1)*fm45**2-2*dsqrt(2.d0)* . dcos(2.d0*theta-v2c-beta1)*dsin(2.d0*v4c)*dsin(beta1)*fm45**2) . *g)/(12*dsqrt(2.d0)*dsin(beta1)*fm45) p2=plamda(fm36n2,fm2n2,fm43n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm36**2*pi) pname(nf,n)="tpss1->hh0 + tpss2" endif c Start decay width for TPSS1->HA0 + TPSS2 if(fm36.ge.(fm6+fm43)) then c0=(-(2*dcos(beta1)*fm45*scm10-dsqrt(2.d0)*cm1*fm34)*g)/(2* . dsqrt(2.d0)*fm45) p2=plamda(fm36n2,fm6n2,fm43n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm36**2*pi) pname(nf,n)="tpss1->ha0 + tpss2" endif c Start decay width for TPSS1->H+ + BTSS1 if(fm36.ge.(fm3+fm37)) then c0=((((dsqrt(2.d0)*cm1*fm35-2*dsin(beta1)*fm45*scm7)*dcos(v4c)* . dsin(2.d0*beta1)+2*dsqrt(2.d0)*dsin(v4c)*fm34*fm35)*dsin(v3c)+ . dsqrt(2.d0)*(2*dcos(v4c)*dsin(beta1)**2*fm35**2-dsin(2.d0* . beta1)*dsin(v4c)*cm1*fm34)*dcos(v3c)-dsqrt(2.d0)*dcos(theta)** . 2*dcos(v3c)*dcos(v4c)*dsin(2.d0*beta1)**2*fm45**2+2*(dsqrt( . 2.d0)*dcos(beta1)*dcos(v4c)*fm34**2+dsin(2.d0*beta1)*dsin(v4c) . *fm45*scm10)*dcos(beta1)*dcos(v3c))*g)/(2*dsin(2.d0*beta1)* . fm45) p2=plamda(fm36n2,fm3n2,fm37n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm36**2*pi) pname(nf,n)="tpss1->h+ + btss1" endif c Start decay width for TPSS1->H+ + BTSS2 if(fm36.ge.(fm3+fm40)) then c0=(-(((dsqrt(2.d0)*cm1*fm35-2*dsin(beta1)*fm45*scm7)*dcos(v4c) . *dsin(2.d0*beta1)+2*dsqrt(2.d0)*dsin(v4c)*fm34*fm35)*dcos(v3c) . -dsqrt(2.d0)*(2*dcos(v4c)*dsin(beta1)**2*fm35**2-dsin(2.d0* . beta1)*dsin(v4c)*cm1*fm34)*dsin(v3c)+dsqrt(2.d0)*dcos(theta)** . 2*dcos(v4c)*dsin(2.d0*beta1)**2*dsin(v3c)*fm45**2-2*(dsqrt( . 2.d0)*dcos(beta1)*dcos(v4c)*fm34**2+dsin(2.d0*beta1)*dsin(v4c) . *fm45*scm10)*dcos(beta1)*dsin(v3c))*g)/(2*dsin(2.d0*beta1)* . fm45) p2=plamda(fm36n2,fm3n2,fm40n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm36**2*pi) pname(nf,n)="tpss1->h+ + btss2" endif c Start decay width for TPSS1->Z0 + TPSS2 if(fm36.ge.(fm45+fm43)) then c0=(dsin(2.d0*v4c)*g)/4 p2=plamda(fm36n2,fm45n2,fm43n2) a=-(2*fm43**2-fm45**2+2*fm36**2-(fm36**4-2*fm36**2*fm43**2+fm43 . **4)*dfm45n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm36**2*pi) pname(nf,n)="tpss1->z0 + tpss2" endif c Start decay width for TPSS1->W+ + BTSS1 if(fm36.ge.(fm48+fm37)) then c0=(dsqrt(2.d0)*dcos(theta)*dcos(v3c)*dcos(v4c)*g)/2 p2=plamda(fm36n2,fm48n2,fm37n2) a=-(2*fm37**2-fm48**2+2*fm36**2-(fm36**4-2*fm36**2*fm37**2+fm37 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm36**2*pi) pname(nf,n)="tpss1->w+ + btss1" endif c Start decay width for TPSS1->W+ + BTSS2 if(fm36.ge.(fm48+fm40)) then c0=(dsqrt(2.d0)*dcos(theta)*dcos(v4c)*dsin(v3c)*g)/2 p2=plamda(fm36n2,fm48n2,fm40n2) a=-(2*fm40**2-fm48**2+2*fm36**2-(fm36**4-2*fm36**2*fm40**2+fm40 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm36**2*pi) pname(nf,n)="tpss1->w+ + btss2" endif decay_f15=pa_width(pa,nf,n,iflag,br0) return end function decay_f16(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=16 pa="sqcr" c Start decay width for CHSSR->CH + GLSS if(fm42.ge.(fmc+fm51)) then c0=-g3 cs2=dsqrt(2.d0)/2 cs1=(-dsqrt(2.d0))/2 p2=plamda(fm42n2,fmcn2,fm51n2) a=(-((fm51**2+2*fm51*fmc+fmc**2-fm42**2)*cs1**2+(fm51**2-2*fm51 . *fmc+fmc**2-fm42**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*(2*p2)/(3*fm42**2*pi) pname(nf,n)="chssr->ch + glss" endif c Start decay width for CHSSR->CH + Z1SS if(fm42.ge.(fmc+fm46)) then c0=-g zs1=dsin(theta) cs4=(-dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/3 cs3=(dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/3 cs2=(dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/3 cs1=(-dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/3 p2=plamda(fm42n2,fmcn2,fm46n2) a=(-((fm46**2+2*fm46*fmc+fmc**2-fm42**2)*(cs1**2+cs2**2)+(fm46 . **2-2*fm46*fmc+fmc**2-fm42**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm42**2*pi) pname(nf,n)="chssr->ch + z1ss" endif c Start decay width for CHSSR->CH + Z2SS if(fm42.ge.(fmc+fm47)) then c0=-g zs1=dsin(theta) cs4=(-dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/3 cs3=(dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/3 cs2=(dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/3 cs1=(-dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/3 p2=plamda(fm42n2,fmcn2,fm47n2) a=(-((fm47**2+2*fm47*fmc+fmc**2-fm42**2)*(cs1**2+cs2**2)+(fm47 . **2-2*fm47*fmc+fmc**2-fm42**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm42**2*pi) pname(nf,n)="chssr->ch + z2ss" endif c Start decay width for CHSSR->CH + Z3SS if(fm42.ge.(fmc+fm4)) then c0=-g zs1=dsin(theta) cs4=(-dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/3 cs3=(dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/3 cs2=(dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/3 cs1=(-dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/3 p2=plamda(fm42n2,fmcn2,fm4n2) a=(-(((fm4+2*fmc)*fm4-(fm42**2-fmc**2))*(cs1**2+cs2**2)+((fm4-2 . *fmc)*fm4-(fm42**2-fmc**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm42**2*pi) pname(nf,n)="chssr->ch + z3ss" endif c Start decay width for CHSSR->CH + Z4SS if(fm42.ge.(fmc+fm10)) then c0=-g zs1=dsin(theta) cs4=(-dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/3 cs3=(dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/3 cs2=(dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/3 cs1=(-dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/3 p2=plamda(fm42n2,fmcn2,fm10n2) a=(-(((fm10+2*fmc)*fm10-(fm42**2-fmc**2))*(cs1**2+cs2**2)+(( . fm10-2*fmc)*fm10-(fm42**2-fmc**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm42**2*pi) pname(nf,n)="chssr->ch + z4ss" endif decay_f16=pa_width(pa,nf,n,iflag,br0) return end function decay_f17(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=17 pa="squr" c Start decay width for UPSSR->UP + GLSS if(fm41.ge.(fmu+fm51)) then c0=-g3 cs2=dsqrt(2.d0)/2 cs1=(-dsqrt(2.d0))/2 p2=plamda(fm41n2,fmun2,fm51n2) a=(-((fm51**2+2*fm51*fmu+fmu**2-fm41**2)*cs1**2+(fm51**2-2*fm51 . *fmu+fmu**2-fm41**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*(2*p2)/(3*fm41**2*pi) pname(nf,n)="upssr->up + glss" endif c Start decay width for UPSSR->UP + Z1SS if(fm41.ge.(fmu+fm46)) then c0=-g zs1=dsin(theta) cs4=(-dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/3 cs3=(dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/3 cs2=(dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/3 cs1=(-dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/3 p2=plamda(fm41n2,fmun2,fm46n2) a=(-((fm46**2+2*fm46*fmu+fmu**2-fm41**2)*(cs1**2+cs2**2)+(fm46 . **2-2*fm46*fmu+fmu**2-fm41**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm41**2*pi) pname(nf,n)="upssr->up + z1ss" endif c Start decay width for UPSSR->UP + Z2SS if(fm41.ge.(fmu+fm47)) then c0=-g zs1=dsin(theta) cs4=(-dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/3 cs3=(dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/3 cs2=(dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/3 cs1=(-dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/3 p2=plamda(fm41n2,fmun2,fm47n2) a=(-((fm47**2+2*fm47*fmu+fmu**2-fm41**2)*(cs1**2+cs2**2)+(fm47 . **2-2*fm47*fmu+fmu**2-fm41**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm41**2*pi) pname(nf,n)="upssr->up + z2ss" endif c Start decay width for UPSSR->UP + Z3SS if(fm41.ge.(fmu+fm4)) then c0=-g zs1=dsin(theta) cs4=(-dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/3 cs3=(dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/3 cs2=(dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/3 cs1=(-dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/3 p2=plamda(fm41n2,fmun2,fm4n2) a=(-(((fm4+2*fmu)*fm4-(fm41**2-fmu**2))*(cs1**2+cs2**2)+((fm4-2 . *fmu)*fm4-(fm41**2-fmu**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm41**2*pi) pname(nf,n)="upssr->up + z3ss" endif c Start decay width for UPSSR->UP + Z4SS if(fm41.ge.(fmu+fm10)) then c0=-g zs1=dsin(theta) cs4=(-dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/3 cs3=(dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/3 cs2=(dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/3 cs1=(-dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/3 p2=plamda(fm41n2,fmun2,fm10n2) a=(-(((fm10+2*fmu)*fm10-(fm41**2-fmu**2))*(cs1**2+cs2**2)+(( . fm10-2*fmu)*fm10-(fm41**2-fmu**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm41**2*pi) pname(nf,n)="upssr->up + z4ss" endif decay_f17=pa_width(pa,nf,n,iflag,br0) return end function decay_f18(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=18 pa="sqsr" c Start decay width for STSSR->ST + GLSS if(fm39.ge.(fms+fm51)) then c0=-g3 cs2=dsqrt(2.d0)/2 cs1=(-dsqrt(2.d0))/2 p2=plamda(fm39n2,fmsn2,fm51n2) a=(-((fm51**2+2*fm51*fms+fms**2-fm39**2)*cs1**2+(fm51**2-2*fm51 . *fms+fms**2-fm39**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*(2*p2)/(3*fm39**2*pi) pname(nf,n)="stssr->st + glss" endif c Start decay width for STSSR->ST + Z1SS if(fm39.ge.(fms+fm46)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/6 cs3=(-dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/6 cs2=(-dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/6 cs1=(dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/6 p2=plamda(fm39n2,fmsn2,fm46n2) a=(-((fm46**2+2*fm46*fms+fms**2-fm39**2)*(cs1**2+cs2**2)+(fm46 . **2-2*fm46*fms+fms**2-fm39**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm39**2*pi) pname(nf,n)="stssr->st + z1ss" endif c Start decay width for STSSR->ST + Z2SS if(fm39.ge.(fms+fm47)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/6 cs3=(-dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/6 cs2=(-dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/6 cs1=(dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/6 p2=plamda(fm39n2,fmsn2,fm47n2) a=(-((fm47**2+2*fm47*fms+fms**2-fm39**2)*(cs1**2+cs2**2)+(fm47 . **2-2*fm47*fms+fms**2-fm39**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm39**2*pi) pname(nf,n)="stssr->st + z2ss" endif c Start decay width for STSSR->ST + Z3SS if(fm39.ge.(fms+fm4)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/6 cs3=(-dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/6 cs2=(-dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/6 cs1=(dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/6 p2=plamda(fm39n2,fmsn2,fm4n2) a=(-((fm4**2+2*fm4*fms+fms**2-fm39**2)*(cs1**2+cs2**2)+(fm4**2- . 2*fm4*fms+fms**2-fm39**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm39**2*pi) pname(nf,n)="stssr->st + z3ss" endif c Start decay width for STSSR->ST + Z4SS if(fm39.ge.(fms+fm10)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/6 cs3=(-dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/6 cs2=(-dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/6 cs1=(dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/6 p2=plamda(fm39n2,fmsn2,fm10n2) a=(-(((fm10+2*fms)*fm10-(fm39**2-fms**2))*(cs1**2+cs2**2)+(( . fm10-2*fms)*fm10-(fm39**2-fms**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm39**2*pi) pname(nf,n)="stssr->st + z4ss" endif decay_f18=pa_width(pa,nf,n,iflag,br0) return end function decay_f19(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=19 pa="sqdr" c Start decay width for DNSSR->DN + GLSS if(fm38.ge.(fmd+fm51)) then c0=-g3 cs2=dsqrt(2.d0)/2 cs1=(-dsqrt(2.d0))/2 p2=plamda(fm38n2,fmdn2,fm51n2) a=(-((fm51**2+2*fm51*fmd+fmd**2-fm38**2)*cs1**2+(fm51**2-2*fm51 . *fmd+fmd**2-fm38**2)*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*(2*p2)/(3*fm38**2*pi) pname(nf,n)="dnssr->dn + glss" endif c Start decay width for DNSSR->DN + Z1SS if(fm38.ge.(fmd+fm46)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/6 cs3=(-dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/6 cs2=(-dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/6 cs1=(dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/6 p2=plamda(fm38n2,fmdn2,fm46n2) a=(-((fm46**2+2*fm46*fmd+fmd**2-fm38**2)*(cs1**2+cs2**2)+(fm46 . **2-2*fm46*fmd+fmd**2-fm38**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm38**2*pi) pname(nf,n)="dnssr->dn + z1ss" endif c Start decay width for DNSSR->DN + Z2SS if(fm38.ge.(fmd+fm47)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/6 cs3=(-dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/6 cs2=(-dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/6 cs1=(dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/6 p2=plamda(fm38n2,fmdn2,fm47n2) a=(-((fm47**2+2*fm47*fmd+fmd**2-fm38**2)*(cs1**2+cs2**2)+(fm47 . **2-2*fm47*fmd+fmd**2-fm38**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm38**2*pi) pname(nf,n)="dnssr->dn + z2ss" endif c Start decay width for DNSSR->DN + Z3SS if(fm38.ge.(fmd+fm4)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/6 cs3=(-dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/6 cs2=(-dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/6 cs1=(dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/6 p2=plamda(fm38n2,fmdn2,fm4n2) a=(-((fm4**2+2*fm4*fmd+fmd**2-fm38**2)*(cs1**2+cs2**2)+(fm4**2- . 2*fm4*fmd+fmd**2-fm38**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm38**2*pi) pname(nf,n)="dnssr->dn + z3ss" endif c Start decay width for DNSSR->DN + Z4SS if(fm38.ge.(fmd+fm10)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/6 cs3=(-dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/6 cs2=(-dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/6 cs1=(dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/6 p2=plamda(fm38n2,fmdn2,fm10n2) a=(-(((fm10+2*fmd)*fm10-(fm38**2-fmd**2))*(cs1**2+cs2**2)+(( . fm10-2*fmd)*fm10-(fm38**2-fmd**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm38**2*pi) pname(nf,n)="dnssr->dn + z4ss" endif decay_f19=pa_width(pa,nf,n,iflag,br0) return end function decay_f20(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=20 pa="sqsl" c Start decay width for STSSL->CH + W1SS- if(fm33.ge.(fmc+fm49)) then c0=-g zs2=dcos(v7c) zs1=dcos(theta) cs1=(-fn1(1)*zs1*zs2)/2 p2=plamda(fm33n2,fmcn2,fm49n2) a=(fm33**2-fm49**2-fmc**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm33**2*pi) pname(nf,n)="stssl->ch + w1ss-" endif c Start decay width for STSSL->CH + W2SS- if(fm33.ge.(fmc+fm52)) then c0=-g zs2=dsin(v7c) zs1=dcos(theta) cs1=(-fn1(2)*zs1*zs2)/2 p2=plamda(fm33n2,fmcn2,fm52n2) a=(fm33**2-fm52**2-fmc**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm33**2*pi) pname(nf,n)="stssl->ch + w2ss-" endif c Start decay width for STSSL->ST + GLSS if(fm33.ge.(fms+fm51)) then c0=-g3 cs1=(-dsqrt(2.d0))/2 p2=plamda(fm33n2,fmsn2,fm51n2) a=(fm33**2-fm51**2-fms**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*(2*p2)/(3*fm33**2*pi) pname(nf,n)="stssl->st + glss" endif c Start decay width for STSSL->ST + Z1SS if(fm33.ge.(fms+fm46)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(dsqrt(2.d0)*(3*v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fi2(1))/12 cs1=(dsqrt(2.d0)*(3*v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fr2(1))/12 p2=plamda(fm33n2,fmsn2,fm46n2) a=(cs1**2+cs2**2)*(fm33**2-fm46**2-fms**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm33**2*pi) pname(nf,n)="stssl->st + z1ss" endif c Start decay width for STSSL->ST + Z2SS if(fm33.ge.(fms+fm47)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(dsqrt(2.d0)*(3*v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fi2(2))/12 cs1=(dsqrt(2.d0)*(3*v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fr2(2))/12 p2=plamda(fm33n2,fmsn2,fm47n2) a=(cs1**2+cs2**2)*(fm33**2-fm47**2-fms**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm33**2*pi) pname(nf,n)="stssl->st + z2ss" endif c Start decay width for STSSL->ST + Z3SS if(fm33.ge.(fms+fm4)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(dsqrt(2.d0)*(3*v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fi2(3))/12 cs1=(dsqrt(2.d0)*(3*v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fr2(3))/12 p2=plamda(fm33n2,fmsn2,fm4n2) a=(cs1**2+cs2**2)*(fm33**2-fm4**2-fms**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm33**2*pi) pname(nf,n)="stssl->st + z3ss" endif c Start decay width for STSSL->ST + Z4SS if(fm33.ge.(fms+fm10)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(dsqrt(2.d0)*(3*v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fi2(4))/12 cs1=(dsqrt(2.d0)*(3*v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fr2(4))/12 p2=plamda(fm33n2,fmsn2,fm10n2) a=-(cs1**2+cs2**2)*(fm10**2-fm33**2+fms**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm33**2*pi) pname(nf,n)="stssl->st + z4ss" endif c Start decay width for STSSL->H- + CHSSL if(fm33.ge.(fm3+fm32)) then c0=(-dsqrt(2.d0)*dcos(theta)**2*dsin(2.d0*beta1)*fm45*g)/2 p2=plamda(fm33n2,fm3n2,fm32n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm33**2*pi) pname(nf,n)="stssl->h- + chssl" endif c Start decay width for STSSL->W- + CHSSL if(fm33.ge.(fm48+fm32)) then c0=(dsqrt(2.d0)*dcos(theta)*g)/2 p2=plamda(fm33n2,fm48n2,fm32n2) a=-(2*fm33**2-fm48**2+2*fm32**2-(fm32**4-2*fm32**2*fm33**2+fm33 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm33**2*pi) pname(nf,n)="stssl->w- + chssl" endif decay_f20=pa_width(pa,nf,n,iflag,br0) return end function decay_f21(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=21 pa="sqcl" c Start decay width for CHSSL->CH + GLSS if(fm32.ge.(fmc+fm51)) then c0=-g3 cs1=(-dsqrt(2.d0))/2 p2=plamda(fm32n2,fmcn2,fm51n2) a=(fm32**2-fm51**2-fmc**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*(2*p2)/(3*fm32**2*pi) pname(nf,n)="chssl->ch + glss" endif c Start decay width for CHSSL->CH + Z1SS if(fm32.ge.(fmc+fm46)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(3*v4c2(2,1)*zs1+v4c2(1,1)*zs2)*fi2(1))/12 cs1=(-dsqrt(2.d0)*(3*v4c2(2,1)*zs1+v4c2(1,1)*zs2)*fr2(1))/12 p2=plamda(fm32n2,fmcn2,fm46n2) a=(cs1**2+cs2**2)*(fm32**2-fm46**2-fmc**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm32**2*pi) pname(nf,n)="chssl->ch + z1ss" endif c Start decay width for CHSSL->CH + Z2SS if(fm32.ge.(fmc+fm47)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(3*v4c2(2,2)*zs1+v4c2(1,2)*zs2)*fi2(2))/12 cs1=(-dsqrt(2.d0)*(3*v4c2(2,2)*zs1+v4c2(1,2)*zs2)*fr2(2))/12 p2=plamda(fm32n2,fmcn2,fm47n2) a=(cs1**2+cs2**2)*(fm32**2-fm47**2-fmc**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm32**2*pi) pname(nf,n)="chssl->ch + z2ss" endif c Start decay width for CHSSL->CH + Z3SS if(fm32.ge.(fmc+fm4)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(3*v4c2(2,3)*zs1+v4c2(1,3)*zs2)*fi2(3))/12 cs1=(-dsqrt(2.d0)*(3*v4c2(2,3)*zs1+v4c2(1,3)*zs2)*fr2(3))/12 p2=plamda(fm32n2,fmcn2,fm4n2) a=(cs1**2+cs2**2)*(fm32**2-fm4**2-fmc**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm32**2*pi) pname(nf,n)="chssl->ch + z3ss" endif c Start decay width for CHSSL->CH + Z4SS if(fm32.ge.(fmc+fm10)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(3*v4c2(2,4)*zs1+v4c2(1,4)*zs2)*fi2(4))/12 cs1=(-dsqrt(2.d0)*(3*v4c2(2,4)*zs1+v4c2(1,4)*zs2)*fr2(4))/12 p2=plamda(fm32n2,fmcn2,fm10n2) a=-(cs1**2+cs2**2)*(fm10**2-fm32**2+fmc**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm32**2*pi) pname(nf,n)="chssl->ch + z4ss" endif c Start decay width for CHSSL->ST + W1SS+ if(fm32.ge.(fms+fm49)) then c0=-g zs2=dcos(v7c) zs1=dcos(theta) cs1=(-fn1(1)*zs1*zs2)/2 p2=plamda(fm32n2,fmsn2,fm49n2) a=(fm32**2-fm49**2-fms**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm32**2*pi) pname(nf,n)="chssl->st + w1ss+" endif c Start decay width for CHSSL->ST + W2SS+ if(fm32.ge.(fms+fm52)) then c0=-g zs2=dsin(v7c) zs1=dcos(theta) cs1=(-fn1(2)*zs1*zs2)/2 p2=plamda(fm32n2,fmsn2,fm52n2) a=(fm32**2-fm52**2-fms**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm32**2*pi) pname(nf,n)="chssl->st + w2ss+" endif c Start decay width for CHSSL->H+ + STSSL if(fm32.ge.(fm3+fm33)) then c0=(-dsqrt(2.d0)*dcos(theta)**2*dsin(2.d0*beta1)*fm45*g)/2 p2=plamda(fm32n2,fm3n2,fm33n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm32**2*pi) pname(nf,n)="chssl->h+ + stssl" endif c Start decay width for CHSSL->W+ + STSSL if(fm32.ge.(fm48+fm33)) then c0=(dsqrt(2.d0)*dcos(theta)*g)/2 p2=plamda(fm32n2,fm48n2,fm33n2) a=-(2*fm33**2-fm48**2+2*fm32**2-(fm32**4-2*fm32**2*fm33**2+fm33 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm32**2*pi) pname(nf,n)="chssl->w+ + stssl" endif decay_f21=pa_width(pa,nf,n,iflag,br0) return end function decay_f22(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=22 pa="sqdl" c Start decay width for DNSSL->UP + W1SS- if(fm29.ge.(fmu+fm49)) then c0=-g zs2=dcos(v7c) zs1=dcos(theta) cs1=(-fn1(1)*zs1*zs2)/2 p2=plamda(fm29n2,fmun2,fm49n2) a=(fm29**2-fm49**2-fmu**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm29**2*pi) pname(nf,n)="dnssl->up + w1ss-" endif c Start decay width for DNSSL->UP + W2SS- if(fm29.ge.(fmu+fm52)) then c0=-g zs2=dsin(v7c) zs1=dcos(theta) cs1=(-fn1(2)*zs1*zs2)/2 p2=plamda(fm29n2,fmun2,fm52n2) a=(fm29**2-fm52**2-fmu**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm29**2*pi) pname(nf,n)="dnssl->up + w2ss-" endif c Start decay width for DNSSL->DN + GLSS if(fm29.ge.(fmd+fm51)) then c0=-g3 cs1=(-dsqrt(2.d0))/2 p2=plamda(fm29n2,fmdn2,fm51n2) a=(fm29**2-fm51**2-fmd**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*(2*p2)/(3*fm29**2*pi) pname(nf,n)="dnssl->dn + glss" endif c Start decay width for DNSSL->DN + Z1SS if(fm29.ge.(fmd+fm46)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(dsqrt(2.d0)*(3*v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fi2(1))/12 cs1=(dsqrt(2.d0)*(3*v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fr2(1))/12 p2=plamda(fm29n2,fmdn2,fm46n2) a=(cs1**2+cs2**2)*(fm29**2-fm46**2-fmd**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm29**2*pi) pname(nf,n)="dnssl->dn + z1ss" endif c Start decay width for DNSSL->DN + Z2SS if(fm29.ge.(fmd+fm47)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(dsqrt(2.d0)*(3*v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fi2(2))/12 cs1=(dsqrt(2.d0)*(3*v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fr2(2))/12 p2=plamda(fm29n2,fmdn2,fm47n2) a=(cs1**2+cs2**2)*(fm29**2-fm47**2-fmd**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm29**2*pi) pname(nf,n)="dnssl->dn + z2ss" endif c Start decay width for DNSSL->DN + Z3SS if(fm29.ge.(fmd+fm4)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(dsqrt(2.d0)*(3*v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fi2(3))/12 cs1=(dsqrt(2.d0)*(3*v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fr2(3))/12 p2=plamda(fm29n2,fmdn2,fm4n2) a=(cs1**2+cs2**2)*(fm29**2-fm4**2-fmd**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm29**2*pi) pname(nf,n)="dnssl->dn + z3ss" endif c Start decay width for DNSSL->DN + Z4SS if(fm29.ge.(fmd+fm10)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(dsqrt(2.d0)*(3*v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fi2(4))/12 cs1=(dsqrt(2.d0)*(3*v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fr2(4))/12 p2=plamda(fm29n2,fmdn2,fm10n2) a=-(cs1**2+cs2**2)*(fm10**2-fm29**2+fmd**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm29**2*pi) pname(nf,n)="dnssl->dn + z4ss" endif c Start decay width for DNSSL->H- + UPSSL if(fm29.ge.(fm3+fm28)) then c0=(-dsqrt(2.d0)*dcos(theta)**2*dsin(2.d0*beta1)*fm45*g)/2 p2=plamda(fm29n2,fm3n2,fm28n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm29**2*pi) pname(nf,n)="dnssl->h- + upssl" endif c Start decay width for DNSSL->W- + UPSSL if(fm29.ge.(fm48+fm28)) then c0=(dsqrt(2.d0)*dcos(theta)*g)/2 p2=plamda(fm29n2,fm48n2,fm28n2) a=-(2*fm29**2-fm48**2+2*fm28**2-(fm28**4-2*fm28**2*fm29**2+fm29 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm29**2*pi) pname(nf,n)="dnssl->w- + upssl" endif decay_f22=pa_width(pa,nf,n,iflag,br0) return end function decay_f23(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=23 pa="squl" c Start decay width for UPSSL->UP + GLSS if(fm28.ge.(fmu+fm51)) then c0=-g3 cs1=(-dsqrt(2.d0))/2 p2=plamda(fm28n2,fmun2,fm51n2) a=(fm28**2-fm51**2-fmu**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*(2*p2)/(3*fm28**2*pi) pname(nf,n)="upssl->up + glss" endif c Start decay width for UPSSL->UP + Z1SS if(fm28.ge.(fmu+fm46)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(3*v4c2(2,1)*zs1+v4c2(1,1)*zs2)*fi2(1))/12 cs1=(-dsqrt(2.d0)*(3*v4c2(2,1)*zs1+v4c2(1,1)*zs2)*fr2(1))/12 p2=plamda(fm28n2,fmun2,fm46n2) a=(cs1**2+cs2**2)*(fm28**2-fm46**2-fmu**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm28**2*pi) pname(nf,n)="upssl->up + z1ss" endif c Start decay width for UPSSL->UP + Z2SS if(fm28.ge.(fmu+fm47)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(3*v4c2(2,2)*zs1+v4c2(1,2)*zs2)*fi2(2))/12 cs1=(-dsqrt(2.d0)*(3*v4c2(2,2)*zs1+v4c2(1,2)*zs2)*fr2(2))/12 p2=plamda(fm28n2,fmun2,fm47n2) a=(cs1**2+cs2**2)*(fm28**2-fm47**2-fmu**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm28**2*pi) pname(nf,n)="upssl->up + z2ss" endif c Start decay width for UPSSL->UP + Z3SS if(fm28.ge.(fmu+fm4)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(3*v4c2(2,3)*zs1+v4c2(1,3)*zs2)*fi2(3))/12 cs1=(-dsqrt(2.d0)*(3*v4c2(2,3)*zs1+v4c2(1,3)*zs2)*fr2(3))/12 p2=plamda(fm28n2,fmun2,fm4n2) a=(cs1**2+cs2**2)*(fm28**2-fm4**2-fmu**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm28**2*pi) pname(nf,n)="upssl->up + z3ss" endif c Start decay width for UPSSL->UP + Z4SS if(fm28.ge.(fmu+fm10)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(3*v4c2(2,4)*zs1+v4c2(1,4)*zs2)*fi2(4))/12 cs1=(-dsqrt(2.d0)*(3*v4c2(2,4)*zs1+v4c2(1,4)*zs2)*fr2(4))/12 p2=plamda(fm28n2,fmun2,fm10n2) a=-(cs1**2+cs2**2)*(fm10**2-fm28**2+fmu**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm28**2*pi) pname(nf,n)="upssl->up + z4ss" endif c Start decay width for UPSSL->DN + W1SS+ if(fm28.ge.(fmd+fm49)) then c0=-g zs2=dcos(v7c) zs1=dcos(theta) cs1=(-fn1(1)*zs1*zs2)/2 p2=plamda(fm28n2,fmdn2,fm49n2) a=(fm28**2-fm49**2-fmd**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm28**2*pi) pname(nf,n)="upssl->dn + w1ss+" endif c Start decay width for UPSSL->DN + W2SS+ if(fm28.ge.(fmd+fm52)) then c0=-g zs2=dsin(v7c) zs1=dcos(theta) cs1=(-fn1(2)*zs1*zs2)/2 p2=plamda(fm28n2,fmdn2,fm52n2) a=(fm28**2-fm52**2-fmd**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm28**2*pi) pname(nf,n)="upssl->dn + w2ss+" endif c Start decay width for UPSSL->H+ + DNSSL if(fm28.ge.(fm3+fm29)) then c0=(-dsqrt(2.d0)*dcos(theta)**2*dsin(2.d0*beta1)*fm45*g)/2 p2=plamda(fm28n2,fm3n2,fm29n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm28**2*pi) pname(nf,n)="upssl->h+ + dnssl" endif c Start decay width for UPSSL->W+ + DNSSL if(fm28.ge.(fm48+fm29)) then c0=(dsqrt(2.d0)*dcos(theta)*g)/2 p2=plamda(fm28n2,fm48n2,fm29n2) a=-(2*fm29**2-fm48**2+2*fm28**2-(fm28**4-2*fm28**2*fm29**2+fm29 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm28**2*pi) pname(nf,n)="upssl->w+ + dnssl" endif decay_f23=pa_width(pa,nf,n,iflag,br0) return end function decay_f24(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=24 pa="staur" c Start decay width for TAU2-->NUT + W1SS- if(fm25.ge.(0+fm49)) then c0=-g zs6=dsin(v7c) zs5=dcos(v1c) zs4=dsin(v1c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs1=(-dsqrt(2.d0)*fn1(1)*fm20*zs5*zs6+2*fn1(1)*fm45*zs1*zs2*zs3 . *zs4)/(4*fm45*zs1) p2=(fm25n2-fm49n2)/(2.d0*dsqrt(fm25n2)) a=(fm25**2-fm49**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm25**2*pi) pname(nf,n)="tau2-->nut + w1ss-" endif c Start decay width for TAU2-->NUT + W2SS- if(fm25.ge.(0+fm52)) then c0=-g zs6=dcos(v7c) zs5=dcos(v1c) zs4=dsin(v7c) zs3=dsin(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs1=(dsqrt(2.d0)*fn1(2)*fm20*zs5*zs6+2*fn1(2)*fm45*zs1*zs2*zs3* . zs4)/(4*fm45*zs1) p2=(fm25n2-fm52n2)/(2.d0*dsqrt(fm25n2)) a=(fm25**2-fm52**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm25**2*pi) pname(nf,n)="tau2-->nut + w2ss-" endif c Start decay width for TAU2-->TAU- + Z1SS if(fm25.ge.(fm20+fm46)) then c0=-g zs5=dsin(theta) zs4=dcos(v1c) zs3=dsin(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,1)*zs5+v4c2(2,1)*zs2*zs3 . )*fm45*zs1-(zs3-zs4)*v4c2(3,1)*fm20)*fi2(1))/(4*fm45*zs1) cs3=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,1)*zs5+v4c2(2,1)*zs2*zs3 . )*fm45*zs1+(zs3+zs4)*v4c2(3,1)*fm20)*fr2(1))/(4*fm45*zs1) cs2=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,1)*zs5+v4c2(2,1)*zs2*zs3 . )*fm45*zs1+(zs3+zs4)*v4c2(3,1)*fm20)*fi2(1))/(4*fm45*zs1) cs1=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,1)*zs5+v4c2(2,1)*zs2*zs3 . )*fm45*zs1-(zs3-zs4)*v4c2(3,1)*fm20)*fr2(1))/(4*fm45*zs1) p2=plamda(fm25n2,fm20n2,fm46n2) a=(-(((fm20+2*fm46)*fm20-(fm25**2-fm46**2))*(cs1**2+cs2**2)+(( . fm20-2*fm46)*fm20-(fm25**2-fm46**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm25**2*pi) pname(nf,n)="tau2-->tau- + z1ss" endif c Start decay width for TAU2-->TAU- + Z2SS if(fm25.ge.(fm20+fm47)) then c0=-g zs5=dsin(theta) zs4=dcos(v1c) zs3=dsin(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,2)*zs5+v4c2(2,2)*zs2*zs3 . )*fm45*zs1-(zs3-zs4)*v4c2(3,2)*fm20)*fi2(2))/(4*fm45*zs1) cs3=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,2)*zs5+v4c2(2,2)*zs2*zs3 . )*fm45*zs1+(zs3+zs4)*v4c2(3,2)*fm20)*fr2(2))/(4*fm45*zs1) cs2=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,2)*zs5+v4c2(2,2)*zs2*zs3 . )*fm45*zs1+(zs3+zs4)*v4c2(3,2)*fm20)*fi2(2))/(4*fm45*zs1) cs1=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,2)*zs5+v4c2(2,2)*zs2*zs3 . )*fm45*zs1-(zs3-zs4)*v4c2(3,2)*fm20)*fr2(2))/(4*fm45*zs1) p2=plamda(fm25n2,fm20n2,fm47n2) a=(-(((fm20+2*fm47)*fm20-(fm25**2-fm47**2))*(cs1**2+cs2**2)+(( . fm20-2*fm47)*fm20-(fm25**2-fm47**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm25**2*pi) pname(nf,n)="tau2-->tau- + z2ss" endif c Start decay width for TAU2-->TAU- + Z3SS if(fm25.ge.(fm20+fm4)) then c0=-g zs5=dsin(theta) zs4=dcos(v1c) zs3=dsin(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,3)*zs5+v4c2(2,3)*zs2*zs3 . )*fm45*zs1-(zs3-zs4)*v4c2(3,3)*fm20)*fi2(3))/(4*fm45*zs1) cs3=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,3)*zs5+v4c2(2,3)*zs2*zs3 . )*fm45*zs1+(zs3+zs4)*v4c2(3,3)*fm20)*fr2(3))/(4*fm45*zs1) cs2=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,3)*zs5+v4c2(2,3)*zs2*zs3 . )*fm45*zs1+(zs3+zs4)*v4c2(3,3)*fm20)*fi2(3))/(4*fm45*zs1) cs1=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,3)*zs5+v4c2(2,3)*zs2*zs3 . )*fm45*zs1-(zs3-zs4)*v4c2(3,3)*fm20)*fr2(3))/(4*fm45*zs1) p2=plamda(fm25n2,fm20n2,fm4n2) a=(-(((fm20+2*fm4)*fm20-(fm25**2-fm4**2))*(cs1**2+cs2**2)+(( . fm20-2*fm4)*fm20-(fm25**2-fm4**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm25**2*pi) pname(nf,n)="tau2-->tau- + z3ss" endif c Start decay width for TAU2-->TAU- + Z4SS if(fm25.ge.(fm20+fm10)) then c0=-g zs5=dsin(theta) zs4=dcos(v1c) zs3=dsin(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,4)*zs5+v4c2(2,4)*zs2*zs3 . )*fm45*zs1-(zs3-zs4)*v4c2(3,4)*fm20)*fi2(4))/(4*fm45*zs1) cs3=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,4)*zs5+v4c2(2,4)*zs2*zs3 . )*fm45*zs1+(zs3+zs4)*v4c2(3,4)*fm20)*fr2(4))/(4*fm45*zs1) cs2=(-dsqrt(2.d0)*(((zs3+2*zs4)*v4c2(1,4)*zs5+v4c2(2,4)*zs2*zs3 . )*fm45*zs1+(zs3+zs4)*v4c2(3,4)*fm20)*fi2(4))/(4*fm45*zs1) cs1=(-dsqrt(2.d0)*(((zs3-2*zs4)*v4c2(1,4)*zs5+v4c2(2,4)*zs2*zs3 . )*fm45*zs1-(zs3-zs4)*v4c2(3,4)*fm20)*fr2(4))/(4*fm45*zs1) p2=plamda(fm25n2,fm20n2,fm10n2) a=(-(((fm10+2*fm20)*fm10+fm20**2-fm25**2)*(cs1**2+cs2**2)+(( . fm10-2*fm20)*fm10+fm20**2-fm25**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm25**2*pi) pname(nf,n)="tau2-->tau- + z4ss" endif c Start decay width for TAU2-->HL0 + TAU1- if(fm25.ge.(fm8+fm22)) then c0=(-(dsqrt(2.d0)*(dsin(2.d0*theta+v2c+beta1)-dsin(beta1+v2c)- . dsin(2.d0*theta-v2c-beta1))*dcos(beta1)*dsin(2.d0*v1c)*fm45**2 . +2*(2*dcos(beta1)*dsin(v2c)*fm45*scm4-dsqrt(2.d0)*dcos(v2c)* . cm1*fm20)*dcos(2.d0*v1c))*g)/(4*dsqrt(2.d0)*dcos(beta1)*fm45) p2=plamda(fm25n2,fm8n2,fm22n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm25**2*pi) pname(nf,n)="tau2-->hl0 + tau1-" endif c Start decay width for TAU2-->HH0 + TAU1- if(fm25.ge.(fm2+fm22)) then c0=((2*(2*dcos(beta1)*dcos(v2c)*fm45*scm4+dsqrt(2.d0)*dsin(v2c) . *cm1*fm20)*dcos(2.d0*v1c)-dsqrt(2.d0)*dcos(beta1+v2c)*dcos( . beta1)*dsin(2.d0*v1c)*fm45**2+dsqrt(2.d0)*dcos(2.d0*theta+v2c+ . beta1)*dcos(beta1)*dsin(2.d0*v1c)*fm45**2+dsqrt(2.d0)*dcos( . 2.d0*theta-v2c-beta1)*dcos(beta1)*dsin(2.d0*v1c)*fm45**2)*g)/( . 4*dsqrt(2.d0)*dcos(beta1)*fm45) p2=plamda(fm25n2,fm2n2,fm22n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm25**2*pi) pname(nf,n)="tau2-->hh0 + tau1-" endif c Start decay width for TAU2-->H- + NUTL if(fm25.ge.(fm3+fm21)) then c0=((dsqrt(2.d0)*(dcos(theta)**2*dsin(2.d0*beta1)*dsin(v1c)* . fm45**2-dcos(v1c)*cm1*fm20)*dcos(beta1)+dcos(v1c)*dsin(2.d0* . beta1)*fm45*scm4-dsqrt(2.d0)*dsin(beta1)*dsin(v1c)*fm20**2)*g) . /(2*dsqrt(2.d0)*dcos(beta1)*fm45) p2=plamda(fm25n2,fm3n2,fm21n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm25**2*pi) pname(nf,n)="tau2-->h- + nutl" endif c Start decay width for TAU2-->HA0 + TAU1- if(fm25.ge.(fm6+fm22)) then c0=(-(dsqrt(2.d0)*cm1*fm20-2*dsin(beta1)*fm45*scm4)*g)/(2*dsqrt . (2.d0)*fm45) p2=plamda(fm25n2,fm6n2,fm22n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm25**2*pi) pname(nf,n)="tau2-->ha0 + tau1-" endif c Start decay width for TAU2-->Z0 + TAU1- if(fm25.ge.(fm45+fm22)) then c0=(-dsin(2.d0*v1c)*g)/4 p2=plamda(fm25n2,fm45n2,fm22n2) a=-(2*fm25**2-fm45**2+2*fm22**2-(fm22**4-2*fm22**2*fm25**2+fm25 . **4)*dfm45n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm25**2*pi) pname(nf,n)="tau2-->z0 + tau1-" endif c Start decay width for TAU2-->W- + NUTL if(fm25.ge.(fm48+fm21)) then c0=(-dcos(theta)*dsin(v1c)*g)/2 p2=plamda(fm25n2,fm48n2,fm21n2) a=-(2*fm25**2-fm48**2+2*fm21**2-(fm21**4-2*fm21**2*fm25**2+fm25 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm25**2*pi) pname(nf,n)="tau2-->w- + nutl" endif decay_f24=pa_width(pa,nf,n,iflag,br0) return end function decay_f25(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=25 pa="staul" c Start decay width for TAU1-->NUT + W1SS- if(fm22.ge.(0+fm49)) then c0=-g zs6=dsin(v7c) zs5=dsin(v1c) zs4=dcos(v7c) zs3=dcos(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs1=(dsqrt(2.d0)*fn1(1)*fm20*zs5*zs6+2*fn1(1)*fm45*zs1*zs2*zs3* . zs4)/(4*fm45*zs1) p2=(fm22n2-fm49n2)/(2.d0*dsqrt(fm22n2)) a=(fm22**2-fm49**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm22**2*pi) pname(nf,n)="tau1-->nut + w1ss-" endif c Start decay width for TAU1-->NUT + W2SS- if(fm22.ge.(0+fm52)) then c0=-g zs6=dsin(v1c) zs5=dcos(v7c) zs4=dsin(v7c) zs3=dcos(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs1=(-dsqrt(2.d0)*fn1(2)*fm20*zs5*zs6+2*fn1(2)*fm45*zs1*zs2*zs3 . *zs4)/(4*fm45*zs1) p2=(fm22n2-fm52n2)/(2.d0*dsqrt(fm22n2)) a=(fm22**2-fm52**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm22**2*pi) pname(nf,n)="tau1-->nut + w2ss-" endif c Start decay width for TAU1-->TAU- + Z1SS if(fm22.ge.(fm20+fm46)) then c0=-g zs5=dsin(v1c) zs4=dsin(theta) zs3=dcos(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,1)*zs4+v4c2(2,1)*zs2*zs3 . )*fm45*zs1-(zs3+zs5)*v4c2(3,1)*fm20)*fi2(1))/(4*fm45*zs1) cs3=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,1)*zs4+v4c2(2,1)*zs2*zs3 . )*fm45*zs1+(zs3-zs5)*v4c2(3,1)*fm20)*fr2(1))/(4*fm45*zs1) cs2=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,1)*zs4+v4c2(2,1)*zs2*zs3 . )*fm45*zs1+(zs3-zs5)*v4c2(3,1)*fm20)*fi2(1))/(4*fm45*zs1) cs1=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,1)*zs4+v4c2(2,1)*zs2*zs3 . )*fm45*zs1-(zs3+zs5)*v4c2(3,1)*fm20)*fr2(1))/(4*fm45*zs1) p2=plamda(fm22n2,fm20n2,fm46n2) a=(-(((fm20+2*fm46)*fm20-(fm22**2-fm46**2))*(cs1**2+cs2**2)+(( . fm20-2*fm46)*fm20-(fm22**2-fm46**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm22**2*pi) pname(nf,n)="tau1-->tau- + z1ss" endif c Start decay width for TAU1-->TAU- + Z2SS if(fm22.ge.(fm20+fm47)) then c0=-g zs5=dsin(v1c) zs4=dsin(theta) zs3=dcos(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,2)*zs4+v4c2(2,2)*zs2*zs3 . )*fm45*zs1-(zs3+zs5)*v4c2(3,2)*fm20)*fi2(2))/(4*fm45*zs1) cs3=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,2)*zs4+v4c2(2,2)*zs2*zs3 . )*fm45*zs1+(zs3-zs5)*v4c2(3,2)*fm20)*fr2(2))/(4*fm45*zs1) cs2=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,2)*zs4+v4c2(2,2)*zs2*zs3 . )*fm45*zs1+(zs3-zs5)*v4c2(3,2)*fm20)*fi2(2))/(4*fm45*zs1) cs1=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,2)*zs4+v4c2(2,2)*zs2*zs3 . )*fm45*zs1-(zs3+zs5)*v4c2(3,2)*fm20)*fr2(2))/(4*fm45*zs1) p2=plamda(fm22n2,fm20n2,fm47n2) a=(-(((fm20+2*fm47)*fm20-(fm22**2-fm47**2))*(cs1**2+cs2**2)+(( . fm20-2*fm47)*fm20-(fm22**2-fm47**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm22**2*pi) pname(nf,n)="tau1-->tau- + z2ss" endif c Start decay width for TAU1-->TAU- + Z3SS if(fm22.ge.(fm20+fm4)) then c0=-g zs5=dsin(v1c) zs4=dsin(theta) zs3=dcos(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,3)*zs4+v4c2(2,3)*zs2*zs3 . )*fm45*zs1-(zs3+zs5)*v4c2(3,3)*fm20)*fi2(3))/(4*fm45*zs1) cs3=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,3)*zs4+v4c2(2,3)*zs2*zs3 . )*fm45*zs1+(zs3-zs5)*v4c2(3,3)*fm20)*fr2(3))/(4*fm45*zs1) cs2=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,3)*zs4+v4c2(2,3)*zs2*zs3 . )*fm45*zs1+(zs3-zs5)*v4c2(3,3)*fm20)*fi2(3))/(4*fm45*zs1) cs1=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,3)*zs4+v4c2(2,3)*zs2*zs3 . )*fm45*zs1-(zs3+zs5)*v4c2(3,3)*fm20)*fr2(3))/(4*fm45*zs1) p2=plamda(fm22n2,fm20n2,fm4n2) a=(-(((fm20+2*fm4)*fm20-(fm22**2-fm4**2))*(cs1**2+cs2**2)+(( . fm20-2*fm4)*fm20-(fm22**2-fm4**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm22**2*pi) pname(nf,n)="tau1-->tau- + z3ss" endif c Start decay width for TAU1-->TAU- + Z4SS if(fm22.ge.(fm20+fm10)) then c0=-g zs5=dsin(v1c) zs4=dsin(theta) zs3=dcos(v1c) zs2=dcos(theta) zs1=dcos(beta1) cs4=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,4)*zs4+v4c2(2,4)*zs2*zs3 . )*fm45*zs1-(zs3+zs5)*v4c2(3,4)*fm20)*fi2(4))/(4*fm45*zs1) cs3=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,4)*zs4+v4c2(2,4)*zs2*zs3 . )*fm45*zs1+(zs3-zs5)*v4c2(3,4)*fm20)*fr2(4))/(4*fm45*zs1) cs2=(-dsqrt(2.d0)*(((zs3-2*zs5)*v4c2(1,4)*zs4+v4c2(2,4)*zs2*zs3 . )*fm45*zs1+(zs3-zs5)*v4c2(3,4)*fm20)*fi2(4))/(4*fm45*zs1) cs1=(-dsqrt(2.d0)*(((zs3+2*zs5)*v4c2(1,4)*zs4+v4c2(2,4)*zs2*zs3 . )*fm45*zs1-(zs3+zs5)*v4c2(3,4)*fm20)*fr2(4))/(4*fm45*zs1) p2=plamda(fm22n2,fm20n2,fm10n2) a=(-(((fm10+2*fm20)*fm10+fm20**2-fm22**2)*(cs1**2+cs2**2)+(( . fm10-2*fm20)*fm10+fm20**2-fm22**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm22**2*pi) pname(nf,n)="tau1-->tau- + z4ss" endif c Start decay width for TAU1-->HL0 + TAU2- if(fm22.ge.(fm8+fm25)) then c0=(-(dsqrt(2.d0)*(dsin(2.d0*theta+v2c+beta1)-dsin(beta1+v2c)- . dsin(2.d0*theta-v2c-beta1))*dcos(beta1)*dsin(2.d0*v1c)*fm45**2 . +2*(2*dcos(beta1)*dsin(v2c)*fm45*scm4-dsqrt(2.d0)*dcos(v2c)* . cm1*fm20)*dcos(2.d0*v1c))*g)/(4*dsqrt(2.d0)*dcos(beta1)*fm45) p2=plamda(fm22n2,fm8n2,fm25n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm22**2*pi) pname(nf,n)="tau1-->hl0 + tau2-" endif c Start decay width for TAU1-->HH0 + TAU2- if(fm22.ge.(fm2+fm25)) then c0=((2*(2*dcos(beta1)*dcos(v2c)*fm45*scm4+dsqrt(2.d0)*dsin(v2c) . *cm1*fm20)*dcos(2.d0*v1c)-dsqrt(2.d0)*dcos(beta1+v2c)*dcos( . beta1)*dsin(2.d0*v1c)*fm45**2+dsqrt(2.d0)*dcos(2.d0*theta+v2c+ . beta1)*dcos(beta1)*dsin(2.d0*v1c)*fm45**2+dsqrt(2.d0)*dcos( . 2.d0*theta-v2c-beta1)*dcos(beta1)*dsin(2.d0*v1c)*fm45**2)*g)/( . 4*dsqrt(2.d0)*dcos(beta1)*fm45) p2=plamda(fm22n2,fm2n2,fm25n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm22**2*pi) pname(nf,n)="tau1-->hh0 + tau2-" endif c Start decay width for TAU1-->H- + NUTL if(fm22.ge.(fm3+fm21)) then c0=((dsqrt(2.d0)*(dcos(theta)**2*dcos(v1c)*dsin(2.d0*beta1)* . fm45**2+dsin(v1c)*cm1*fm20)*dcos(beta1)-(dsqrt(2.d0)*dcos(v1c) . *dsin(beta1)*fm20**2+dsin(2.d0*beta1)*dsin(v1c)*fm45*scm4))*g) . /(2*dsqrt(2.d0)*dcos(beta1)*fm45) p2=plamda(fm22n2,fm3n2,fm21n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm22**2*pi) pname(nf,n)="tau1-->h- + nutl" endif c Start decay width for TAU1-->HA0 + TAU2- if(fm22.ge.(fm6+fm25)) then c0=((dsqrt(2.d0)*cm1*fm20-2*dsin(beta1)*fm45*scm4)*g)/(2*dsqrt( . 2.d0)*fm45) p2=plamda(fm22n2,fm6n2,fm25n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm22**2*pi) pname(nf,n)="tau1-->ha0 + tau2-" endif c Start decay width for TAU1-->Z0 + TAU2- if(fm22.ge.(fm45+fm25)) then c0=(-dsin(2.d0*v1c)*g)/4 p2=plamda(fm22n2,fm45n2,fm25n2) a=-(2*fm25**2-fm45**2+2*fm22**2-(fm22**4-2*fm22**2*fm25**2+fm25 . **4)*dfm45n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm22**2*pi) pname(nf,n)="tau1-->z0 + tau2-" endif c Start decay width for TAU1-->W- + NUTL if(fm22.ge.(fm48+fm21)) then c0=(-dcos(theta)*dcos(v1c)*g)/2 p2=plamda(fm22n2,fm48n2,fm21n2) a=-(2*fm22**2-fm48**2+2*fm21**2-(fm21**4-2*fm21**2*fm22**2+fm22 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm22**2*pi) pname(nf,n)="tau1-->w- + nutl" endif decay_f25=pa_width(pa,nf,n,iflag,br0) return end function decay_f26(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=26 pa="smur" c Start decay width for MUR-->MU- + Z1SS if(fm24.ge.(fmmu+fm46)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/2 cs3=(-dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/2 cs2=(-dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/2 cs1=(dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/2 p2=plamda(fm24n2,fmmun2,fm46n2) a=(-((fm46**2+2*fm46*fmmu+fmmu**2-fm24**2)*(cs1**2+cs2**2)+( . fm46**2-2*fm46*fmmu+fmmu**2-fm24**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm24**2*pi) pname(nf,n)="mur-->mu- + z1ss" endif c Start decay width for MUR-->MU- + Z2SS if(fm24.ge.(fmmu+fm47)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/2 cs3=(-dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/2 cs2=(-dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/2 cs1=(dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/2 p2=plamda(fm24n2,fmmun2,fm47n2) a=(-((fm47**2+2*fm47*fmmu+fmmu**2-fm24**2)*(cs1**2+cs2**2)+( . fm47**2-2*fm47*fmmu+fmmu**2-fm24**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm24**2*pi) pname(nf,n)="mur-->mu- + z2ss" endif c Start decay width for MUR-->MU- + Z3SS if(fm24.ge.(fmmu+fm4)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/2 cs3=(-dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/2 cs2=(-dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/2 cs1=(dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/2 p2=plamda(fm24n2,fmmun2,fm4n2) a=(-((fm4**2+2*fm4*fmmu+fmmu**2-fm24**2)*(cs1**2+cs2**2)+(fm4** . 2-2*fm4*fmmu+fmmu**2-fm24**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm24**2*pi) pname(nf,n)="mur-->mu- + z3ss" endif c Start decay width for MUR-->MU- + Z4SS if(fm24.ge.(fmmu+fm10)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/2 cs3=(-dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/2 cs2=(-dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/2 cs1=(dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/2 p2=plamda(fm24n2,fmmun2,fm10n2) a=(-(((fm10+2*fmmu)*fm10-(fm24**2-fmmu**2))*(cs1**2+cs2**2)+(( . fm10-2*fmmu)*fm10-(fm24**2-fmmu**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm24**2*pi) pname(nf,n)="mur-->mu- + z4ss" endif decay_f26=pa_width(pa,nf,n,iflag,br0) return end function decay_f27(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=27 pa="ser" c Start decay width for ER-->E- + Z1SS if(fm23.ge.(fme+fm46)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/2 cs3=(-dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/2 cs2=(-dsqrt(2.d0)*fi2(1)*v4c2(1,1)*zs1)/2 cs1=(dsqrt(2.d0)*fr2(1)*v4c2(1,1)*zs1)/2 p2=plamda(fm23n2,fmen2,fm46n2) a=(-((fm46**2+2*fm46*fme+fme**2-fm23**2)*(cs1**2+cs2**2)+(fm46 . **2-2*fm46*fme+fme**2-fm23**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm23**2*pi) pname(nf,n)="er-->e- + z1ss" endif c Start decay width for ER-->E- + Z2SS if(fm23.ge.(fme+fm47)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/2 cs3=(-dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/2 cs2=(-dsqrt(2.d0)*fi2(2)*v4c2(1,2)*zs1)/2 cs1=(dsqrt(2.d0)*fr2(2)*v4c2(1,2)*zs1)/2 p2=plamda(fm23n2,fmen2,fm47n2) a=(-((fm47**2+2*fm47*fme+fme**2-fm23**2)*(cs1**2+cs2**2)+(fm47 . **2-2*fm47*fme+fme**2-fm23**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm23**2*pi) pname(nf,n)="er-->e- + z2ss" endif c Start decay width for ER-->E- + Z3SS if(fm23.ge.(fme+fm4)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/2 cs3=(-dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/2 cs2=(-dsqrt(2.d0)*fi2(3)*v4c2(1,3)*zs1)/2 cs1=(dsqrt(2.d0)*fr2(3)*v4c2(1,3)*zs1)/2 p2=plamda(fm23n2,fmen2,fm4n2) a=(-((fm4**2+2*fm4*fme+fme**2-fm23**2)*(cs1**2+cs2**2)+(fm4**2- . 2*fm4*fme+fme**2-fm23**2)*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm23**2*pi) pname(nf,n)="er-->e- + z3ss" endif c Start decay width for ER-->E- + Z4SS if(fm23.ge.(fme+fm10)) then c0=-g zs1=dsin(theta) cs4=(dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/2 cs3=(-dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/2 cs2=(-dsqrt(2.d0)*fi2(4)*v4c2(1,4)*zs1)/2 cs1=(dsqrt(2.d0)*fr2(4)*v4c2(1,4)*zs1)/2 p2=plamda(fm23n2,fmen2,fm10n2) a=(-(((fm10+2*fme)*fm10-(fm23**2-fme**2))*(cs1**2+cs2**2)+(( . fm10-2*fme)*fm10-(fm23**2-fme**2))*(cs3**2+cs4**2)))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm23**2*pi) pname(nf,n)="er-->e- + z4ss" endif decay_f27=pa_width(pa,nf,n,iflag,br0) return end function decay_f28(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=28 pa="snut" c Start decay width for NUTL->NUT + Z1SS if(fm21.ge.(0+fm46)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fi2(1))/4 cs1=(-(v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fr2(1))/4 p2=(fm21n2-fm46n2)/(2.d0*dsqrt(fm21n2)) a=(cs1**2+cs2**2)*(fm21**2-fm46**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm21**2*pi) pname(nf,n)="nutl->nut + z1ss" endif c Start decay width for NUTL->NUT + Z2SS if(fm21.ge.(0+fm47)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fi2(2))/4 cs1=(-(v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fr2(2))/4 p2=(fm21n2-fm47n2)/(2.d0*dsqrt(fm21n2)) a=(cs1**2+cs2**2)*(fm21**2-fm47**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm21**2*pi) pname(nf,n)="nutl->nut + z2ss" endif c Start decay width for NUTL->NUT + Z3SS if(fm21.ge.(0+fm4)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fi2(3))/4 cs1=(-(v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fr2(3))/4 p2=(fm21n2-fm4n2)/(2.d0*dsqrt(fm21n2)) a=(cs1**2+cs2**2)*(fm21**2-fm4**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm21**2*pi) pname(nf,n)="nutl->nut + z3ss" endif c Start decay width for NUTL->NUT + Z4SS if(fm21.ge.(0+fm10)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fi2(4))/4 cs1=(-(v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fr2(4))/4 p2=(-(fm10n2-fm21n2))/(2.d0*dsqrt(fm21n2)) a=-(cs1**2+cs2**2)*(fm10**2-fm21**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm21**2*pi) pname(nf,n)="nutl->nut + z4ss" endif c Start decay width for NUTL->TAU- + W1SS+ if(fm21.ge.(fm20+fm49)) then c0=-g zs4=dsin(v6c) zs3=dcos(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-dsqrt(2.d0)*fn1(1)*fm45*zs1*zs2*zs3+fm20*zs4)/(4*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*fn1(1)*fm45*zs1*zs2*zs3-fm20*zs4)/(4*fm45*zs1 . ) p2=plamda(fm21n2,fm20n2,fm49n2) a=(-(((fm20+2*fm49)*fm20-(fm21**2-fm49**2))*cs1**2+((fm20-2* . fm49)*fm20-(fm21**2-fm49**2))*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm21**2*pi) pname(nf,n)="nutl->tau- + w1ss+" endif c Start decay width for NUTL->TAU- + W2SS+ if(fm21.ge.(fm20+fm52)) then c0=-g zs4=dcos(v6c) zs3=dsin(v7c) zs2=dcos(theta) zs1=dcos(beta1) cs2=(-dsqrt(2.d0)*fn1(2)*fm45*zs1*zs2*zs3-fm20*zs4)/(4*fm45*zs1 . ) cs1=(-dsqrt(2.d0)*fn1(2)*fm45*zs1*zs2*zs3+fm20*zs4)/(4*fm45*zs1 . ) p2=plamda(fm21n2,fm20n2,fm52n2) a=(-(((fm20+2*fm52)*fm20-(fm21**2-fm52**2))*cs1**2+((fm20-2* . fm52)*fm20-(fm21**2-fm52**2))*cs2**2))/2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm21**2*pi) pname(nf,n)="nutl->tau- + w2ss+" endif c Start decay width for NUTL->H+ + TAU1- if(fm21.ge.(fm3+fm22)) then c0=((dsqrt(2.d0)*(dcos(theta)**2*dcos(v1c)*dsin(2.d0*beta1)* . fm45**2+dsin(v1c)*cm1*fm20)*dcos(beta1)-(dsqrt(2.d0)*dcos(v1c) . *dsin(beta1)*fm20**2+dsin(2.d0*beta1)*dsin(v1c)*fm45*scm4))*g) . /(2*dsqrt(2.d0)*dcos(beta1)*fm45) p2=plamda(fm21n2,fm3n2,fm22n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm21**2*pi) pname(nf,n)="nutl->h+ + tau1-" endif c Start decay width for NUTL->H+ + TAU2- if(fm21.ge.(fm3+fm25)) then c0=((dsqrt(2.d0)*(dcos(theta)**2*dsin(2.d0*beta1)*dsin(v1c)* . fm45**2-dcos(v1c)*cm1*fm20)*dcos(beta1)+dcos(v1c)*dsin(2.d0* . beta1)*fm45*scm4-dsqrt(2.d0)*dsin(beta1)*dsin(v1c)*fm20**2)*g) . /(2*dsqrt(2.d0)*dcos(beta1)*fm45) p2=plamda(fm21n2,fm3n2,fm25n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm21**2*pi) pname(nf,n)="nutl->h+ + tau2-" endif c Start decay width for NUTL->W+ + TAU1- if(fm21.ge.(fm48+fm22)) then c0=(-dcos(theta)*dcos(v1c)*g)/2 p2=plamda(fm21n2,fm48n2,fm22n2) a=-(2*fm22**2-fm48**2+2*fm21**2-(fm21**4-2*fm21**2*fm22**2+fm22 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm21**2*pi) pname(nf,n)="nutl->w+ + tau1-" endif c Start decay width for NUTL->W+ + TAU2- if(fm21.ge.(fm48+fm25)) then c0=(-dcos(theta)*dsin(v1c)*g)/2 p2=plamda(fm21n2,fm48n2,fm25n2) a=-(2*fm25**2-fm48**2+2*fm21**2-(fm21**4-2*fm21**2*fm25**2+fm25 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm21**2*pi) pname(nf,n)="nutl->w+ + tau2-" endif decay_f28=pa_width(pa,nf,n,iflag,br0) return end function decay_f29(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=29 pa="smul" c Start decay width for MUL-->NUM + W1SS- if(fm18.ge.(0+fm49)) then c0=-g zs2=dcos(v7c) zs1=dcos(theta) cs1=(fn1(1)*zs1*zs2)/2 p2=(fm18n2-fm49n2)/(2.d0*dsqrt(fm18n2)) a=(fm18**2-fm49**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm18**2*pi) pname(nf,n)="mul-->num + w1ss-" endif c Start decay width for MUL-->NUM + W2SS- if(fm18.ge.(0+fm52)) then c0=-g zs2=dsin(v7c) zs1=dcos(theta) cs1=(fn1(2)*zs1*zs2)/2 p2=(fm18n2-fm52n2)/(2.d0*dsqrt(fm18n2)) a=(fm18**2-fm52**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm18**2*pi) pname(nf,n)="mul-->num + w2ss-" endif c Start decay width for MUL-->MU- + Z1SS if(fm18.ge.(fmmu+fm46)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(v4c2(2,1)*zs1+v4c2(1,1)*zs2)*fi2(1))/4 cs1=(-dsqrt(2.d0)*(v4c2(2,1)*zs1+v4c2(1,1)*zs2)*fr2(1))/4 p2=plamda(fm18n2,fmmun2,fm46n2) a=(cs1**2+cs2**2)*(fm18**2-fm46**2-fmmu**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm18**2*pi) pname(nf,n)="mul-->mu- + z1ss" endif c Start decay width for MUL-->MU- + Z2SS if(fm18.ge.(fmmu+fm47)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(v4c2(2,2)*zs1+v4c2(1,2)*zs2)*fi2(2))/4 cs1=(-dsqrt(2.d0)*(v4c2(2,2)*zs1+v4c2(1,2)*zs2)*fr2(2))/4 p2=plamda(fm18n2,fmmun2,fm47n2) a=(cs1**2+cs2**2)*(fm18**2-fm47**2-fmmu**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm18**2*pi) pname(nf,n)="mul-->mu- + z2ss" endif c Start decay width for MUL-->MU- + Z3SS if(fm18.ge.(fmmu+fm4)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(v4c2(2,3)*zs1+v4c2(1,3)*zs2)*fi2(3))/4 cs1=(-dsqrt(2.d0)*(v4c2(2,3)*zs1+v4c2(1,3)*zs2)*fr2(3))/4 p2=plamda(fm18n2,fmmun2,fm4n2) a=(cs1**2+cs2**2)*(fm18**2-fm4**2-fmmu**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm18**2*pi) pname(nf,n)="mul-->mu- + z3ss" endif c Start decay width for MUL-->MU- + Z4SS if(fm18.ge.(fmmu+fm10)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(v4c2(2,4)*zs1+v4c2(1,4)*zs2)*fi2(4))/4 cs1=(-dsqrt(2.d0)*(v4c2(2,4)*zs1+v4c2(1,4)*zs2)*fr2(4))/4 p2=plamda(fm18n2,fmmun2,fm10n2) a=-(cs1**2+cs2**2)*(fm10**2-fm18**2+fmmu**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm18**2*pi) pname(nf,n)="mul-->mu- + z4ss" endif c Start decay width for MUL-->H- + NUML if(fm18.ge.(fm3+fm17)) then c0=(dcos(theta)**2*dsin(2.d0*beta1)*fm45*g)/2 p2=plamda(fm18n2,fm3n2,fm17n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm18**2*pi) pname(nf,n)="mul-->h- + numl" endif c Start decay width for MUL-->W- + NUML if(fm18.ge.(fm48+fm17)) then c0=(-dcos(theta)*g)/2 p2=plamda(fm18n2,fm48n2,fm17n2) a=-(2*fm18**2-fm48**2+2*fm17**2-(fm17**4-2*fm17**2*fm18**2+fm18 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm18**2*pi) pname(nf,n)="mul-->w- + numl" endif decay_f29=pa_width(pa,nf,n,iflag,br0) return end function decay_f30(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=30 pa="snumu" c Start decay width for NUML->NUM + Z1SS if(fm17.ge.(0+fm46)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fi2(1))/4 cs1=(-(v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fr2(1))/4 p2=(fm17n2-fm46n2)/(2.d0*dsqrt(fm17n2)) a=(cs1**2+cs2**2)*(fm17**2-fm46**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm17**2*pi) pname(nf,n)="numl->num + z1ss" endif c Start decay width for NUML->NUM + Z2SS if(fm17.ge.(0+fm47)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fi2(2))/4 cs1=(-(v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fr2(2))/4 p2=(fm17n2-fm47n2)/(2.d0*dsqrt(fm17n2)) a=(cs1**2+cs2**2)*(fm17**2-fm47**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm17**2*pi) pname(nf,n)="numl->num + z2ss" endif c Start decay width for NUML->NUM + Z3SS if(fm17.ge.(0+fm4)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fi2(3))/4 cs1=(-(v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fr2(3))/4 p2=(fm17n2-fm4n2)/(2.d0*dsqrt(fm17n2)) a=(cs1**2+cs2**2)*(fm17**2-fm4**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm17**2*pi) pname(nf,n)="numl->num + z3ss" endif c Start decay width for NUML->NUM + Z4SS if(fm17.ge.(0+fm10)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fi2(4))/4 cs1=(-(v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fr2(4))/4 p2=(-(fm10n2-fm17n2))/(2.d0*dsqrt(fm17n2)) a=-(cs1**2+cs2**2)*(fm10**2-fm17**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm17**2*pi) pname(nf,n)="numl->num + z4ss" endif c Start decay width for NUML->MU- + W1SS+ if(fm17.ge.(fmmu+fm49)) then c0=-g zs2=dcos(v7c) zs1=dcos(theta) cs1=(-dsqrt(2.d0)*fn1(1)*zs1*zs2)/4 p2=plamda(fm17n2,fmmun2,fm49n2) a=(fm17**2-fm49**2-fmmu**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm17**2*pi) pname(nf,n)="numl->mu- + w1ss+" endif c Start decay width for NUML->MU- + W2SS+ if(fm17.ge.(fmmu+fm52)) then c0=-g zs2=dsin(v7c) zs1=dcos(theta) cs1=(-dsqrt(2.d0)*fn1(2)*zs1*zs2)/4 p2=plamda(fm17n2,fmmun2,fm52n2) a=(fm17**2-fm52**2-fmmu**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm17**2*pi) pname(nf,n)="numl->mu- + w2ss+" endif c Start decay width for NUML->H+ + MUL- if(fm17.ge.(fm3+fm18)) then c0=(dcos(theta)**2*dsin(2.d0*beta1)*fm45*g)/2 p2=plamda(fm17n2,fm3n2,fm18n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm17**2*pi) pname(nf,n)="numl->h+ + mul-" endif c Start decay width for NUML->W+ + MUL- if(fm17.ge.(fm48+fm18)) then c0=(-dcos(theta)*g)/2 p2=plamda(fm17n2,fm48n2,fm18n2) a=-(2*fm18**2-fm48**2+2*fm17**2-(fm17**4-2*fm17**2*fm18**2+fm18 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm17**2*pi) pname(nf,n)="numl->w+ + mul-" endif decay_f30=pa_width(pa,nf,n,iflag,br0) return end function decay_f31(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=31 pa="sel" c Start decay width for EL-->NUE + W1SS- if(fm14.ge.(0+fm49)) then c0=-g zs2=dcos(v7c) zs1=dcos(theta) cs1=(fn1(1)*zs1*zs2)/2 p2=(fm14n2-fm49n2)/(2.d0*dsqrt(fm14n2)) a=(fm14**2-fm49**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm14**2*pi) pname(nf,n)="el-->nue + w1ss-" endif c Start decay width for EL-->NUE + W2SS- if(fm14.ge.(0+fm52)) then c0=-g zs2=dsin(v7c) zs1=dcos(theta) cs1=(fn1(2)*zs1*zs2)/2 p2=(fm14n2-fm52n2)/(2.d0*dsqrt(fm14n2)) a=(fm14**2-fm52**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm14**2*pi) pname(nf,n)="el-->nue + w2ss-" endif c Start decay width for EL-->E- + Z1SS if(fm14.ge.(fme+fm46)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(v4c2(2,1)*zs1+v4c2(1,1)*zs2)*fi2(1))/4 cs1=(-dsqrt(2.d0)*(v4c2(2,1)*zs1+v4c2(1,1)*zs2)*fr2(1))/4 p2=plamda(fm14n2,fmen2,fm46n2) a=(cs1**2+cs2**2)*(fm14**2-fm46**2-fme**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm14**2*pi) pname(nf,n)="el-->e- + z1ss" endif c Start decay width for EL-->E- + Z2SS if(fm14.ge.(fme+fm47)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(v4c2(2,2)*zs1+v4c2(1,2)*zs2)*fi2(2))/4 cs1=(-dsqrt(2.d0)*(v4c2(2,2)*zs1+v4c2(1,2)*zs2)*fr2(2))/4 p2=plamda(fm14n2,fmen2,fm47n2) a=(cs1**2+cs2**2)*(fm14**2-fm47**2-fme**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm14**2*pi) pname(nf,n)="el-->e- + z2ss" endif c Start decay width for EL-->E- + Z3SS if(fm14.ge.(fme+fm4)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(v4c2(2,3)*zs1+v4c2(1,3)*zs2)*fi2(3))/4 cs1=(-dsqrt(2.d0)*(v4c2(2,3)*zs1+v4c2(1,3)*zs2)*fr2(3))/4 p2=plamda(fm14n2,fmen2,fm4n2) a=(cs1**2+cs2**2)*(fm14**2-fm4**2-fme**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm14**2*pi) pname(nf,n)="el-->e- + z3ss" endif c Start decay width for EL-->E- + Z4SS if(fm14.ge.(fme+fm10)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-dsqrt(2.d0)*(v4c2(2,4)*zs1+v4c2(1,4)*zs2)*fi2(4))/4 cs1=(-dsqrt(2.d0)*(v4c2(2,4)*zs1+v4c2(1,4)*zs2)*fr2(4))/4 p2=plamda(fm14n2,fmen2,fm10n2) a=-(cs1**2+cs2**2)*(fm10**2-fm14**2+fme**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm14**2*pi) pname(nf,n)="el-->e- + z4ss" endif c Start decay width for EL-->H- + NUEL if(fm14.ge.(fm3+fm13)) then c0=(dcos(theta)**2*dsin(2.d0*beta1)*fm45*g)/2 p2=plamda(fm14n2,fm3n2,fm13n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm14**2*pi) pname(nf,n)="el-->h- + nuel" endif c Start decay width for EL-->W- + NUEL if(fm14.ge.(fm48+fm13)) then c0=(-dcos(theta)*g)/2 p2=plamda(fm14n2,fm48n2,fm13n2) a=-(2*fm14**2-fm48**2+2*fm13**2-(fm13**4-2*fm13**2*fm14**2+fm14 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm14**2*pi) pname(nf,n)="el-->w- + nuel" endif decay_f31=pa_width(pa,nf,n,iflag,br0) return end function decay_f32(iflag,br0) implicit real*8(a-h,o-z) implicit integer (i-n) real*8 width,br,br0 character*20 pname character*8 pa include 'inclcon.f' common /widnn/ width(50,60),br(50,60) common /wpname / pname(50,60) pi=3.1415926 n=0 nf=32 pa="snue" c Start decay width for NUEL->NUE + Z1SS if(fm13.ge.(0+fm46)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fi2(1))/4 cs1=(-(v4c2(2,1)*zs1-v4c2(1,1)*zs2)*fr2(1))/4 p2=(fm13n2-fm46n2)/(2.d0*dsqrt(fm13n2)) a=(cs1**2+cs2**2)*(fm13**2-fm46**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm13**2*pi) pname(nf,n)="nuel->nue + z1ss" endif c Start decay width for NUEL->NUE + Z2SS if(fm13.ge.(0+fm47)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fi2(2))/4 cs1=(-(v4c2(2,2)*zs1-v4c2(1,2)*zs2)*fr2(2))/4 p2=(fm13n2-fm47n2)/(2.d0*dsqrt(fm13n2)) a=(cs1**2+cs2**2)*(fm13**2-fm47**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm13**2*pi) pname(nf,n)="nuel->nue + z2ss" endif c Start decay width for NUEL->NUE + Z3SS if(fm13.ge.(0+fm4)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fi2(3))/4 cs1=(-(v4c2(2,3)*zs1-v4c2(1,3)*zs2)*fr2(3))/4 p2=(fm13n2-fm4n2)/(2.d0*dsqrt(fm13n2)) a=(cs1**2+cs2**2)*(fm13**2-fm4**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm13**2*pi) pname(nf,n)="nuel->nue + z3ss" endif c Start decay width for NUEL->NUE + Z4SS if(fm13.ge.(0+fm10)) then c0=-g zs2=dsin(theta) zs1=dcos(theta) cs2=(-(v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fi2(4))/4 cs1=(-(v4c2(2,4)*zs1-v4c2(1,4)*zs2)*fr2(4))/4 p2=(-(fm10n2-fm13n2))/(2.d0*dsqrt(fm13n2)) a=-(cs1**2+cs2**2)*(fm10**2-fm13**2) n=n+1 width(nf,n)=c0**2*a*p2/(2*fm13**2*pi) pname(nf,n)="nuel->nue + z4ss" endif c Start decay width for NUEL->E- + W1SS+ if(fm13.ge.(fme+fm49)) then c0=-g zs2=dcos(v7c) zs1=dcos(theta) cs1=(-dsqrt(2.d0)*fn1(1)*zs1*zs2)/4 p2=plamda(fm13n2,fmen2,fm49n2) a=(fm13**2-fm49**2-fme**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm13**2*pi) pname(nf,n)="nuel->e- + w1ss+" endif c Start decay width for NUEL->E- + W2SS+ if(fm13.ge.(fme+fm52)) then c0=-g zs2=dsin(v7c) zs1=dcos(theta) cs1=(-dsqrt(2.d0)*fn1(2)*zs1*zs2)/4 p2=plamda(fm13n2,fmen2,fm52n2) a=(fm13**2-fm52**2-fme**2)*cs1**2 n=n+1 width(nf,n)=c0**2*a*p2/(2*fm13**2*pi) pname(nf,n)="nuel->e- + w2ss+" endif c Start decay width for NUEL->H+ + EL- if(fm13.ge.(fm3+fm14)) then c0=(dcos(theta)**2*dsin(2.d0*beta1)*fm45*g)/2 p2=plamda(fm13n2,fm3n2,fm14n2) a=1 n=n+1 width(nf,n)=c0**2*a*p2/(8*fm13**2*pi) pname(nf,n)="nuel->h+ + el-" endif c Start decay width for NUEL->W+ + EL- if(fm13.ge.(fm48+fm14)) then c0=(-dcos(theta)*g)/2 p2=plamda(fm13n2,fm48n2,fm14n2) a=-(2*fm14**2-fm48**2+2*fm13**2-(fm13**4-2*fm13**2*fm14**2+fm14 . **4)*dfm48n2) n=n+1 width(nf,n)=c0**2*a*p2/(8*fm13**2*pi) pname(nf,n)="nuel->w+ + el-" endif decay_f32=pa_width(pa,nf,n,iflag,br0) return end