REAL*8 FUNCTION ee_bbbb(p1,p2,p3,p4,p5,p6) IMPLICIT REAL*8 (a-b,d-h,o-z) IMPLICIT double COMPLEX (c) DIMENSION p1(0:3),p2(0:3),p3(0:3),p4(0:3),p5(0:3),p6(0:3),p34(0:3) DIMENSION p56(0:3),c34h(2,2),c56h(2,2),p54(0:3),p36(0:3),c36h(2,2) DIMENSION c54h(2,2),p154(0:3),p136(0:3),p536(0:3),p312(0:3) DIMENSION p156(0:3),p134(0:3),p356(0:3),p354(0:3),p534(0:3) DIMENSION p512(0:3) DIMENSION cres1(2,2,2,2,2),cres2(2,2,2,2,2),cres3(2,2,2,2,2) DIMENSION cres4(2,2,2,2,2),cres5(2,2,2,2,2),cres6(2,2,2,2,2) DIMENSION cres7(2,2,2,2,2),cres8(2,2,2,2,2),cres9(2,2,2,2,2) DIMENSION cres10(2,2,2,2,2),cres11(2,2,2,2,2),cres12(2,2,2,2,2) DIMENSION cres13(2,2,2,2,2),cres14(2,2,2,2,2),cres15(2,2,2,2,2) DIMENSION cres16(2,2,2,2,2),cres17(2,2,2,2,2),cres18(2,2,2,2,2) DIMENSION cres19(2,2,2,2,2),cres20(2,2,2,2,2),cres21(2,2,2,2,2) DIMENSION cres22(2,2,2,2,2),cres23(2,2,2,2,2),cres24(2,2,2,2,2) DIMENSION cres25(2,2,2,2,2),cres26(2,2,2,2,2),cres27(2,2,2,2,2) DIMENSION cres28(2,2,2,2,2),cres29(2,2,2,2,2),cres30(2,2,2,2,2) DIMENSION cres31(2,2,2,2,2),cres32(2,2,2,2,2),cres33(2,2,2,2,2) DIMENSION cres34(2,2,2,2,2),cres35(2,2,2,2,2),cres36(2,2,2,2,2) DIMENSION cres17a(2,2,2,2,2),cres18a(2,2,2,2,2), & cres19a(2,2,2,2,2),cres20a(2,2,2,2,2),cres21a(2,2,2,2,2), & cres22a(2,2,2,2,2),cres23a(2,2,2,2,2),cres24a(2,2,2,2,2) DIMENSION cresp1(2,2,2),cresp2(2,2,2),cresp3(2,2,2),cresp4(2,2,2) DIMENSION cresp5(2,2,2),cresp6(2,2,2),cresp7(2,2,2),cresp8(2,2,2) DIMENSION cresp9(2,2,2),cresp10(2,2,2),cresp11(2,2,2) DIMENSION cresp12(2,2,2),cresp13(2,2,2),cresp14(2,2,2) DIMENSION cresp15(2,2,2),cresp16(2,2,2) DIMENSION cresha1(2,2,2,2,2),cresha2(2,2,2,2,2) DIMENSION cresha3(2,2,2,2,2),cresha4(2,2,2,2,2) DIMENSION c34a(2,2),c54a(2,2),c36a(2,2),c56a(2,2) STRUCTURE/polcom/ double COMPLEX e(0:3),ek0 END STRUCTURE RECORD/polcom/c12z(2),c34z(2,2),c56z(2,2),c54z(2,2),c36z(2,2), & c12f(2),c34f(2,2),c56f(2,2),c54f(2,2),c36f(2,2) STRUCTURE/tuz/ double COMPLEX a(2,2),b(2,2),c(2,2),d(2,2) END STRUCTURE RECORD/tuz/v3_4(0:3),v5_6(0:3),v3_4h,v5_6h,v3_6(0:3),v5_36h, & v5_4(0:3),v3_6h,v5_4h,v3_56h,v3_54h,v5_34h,v4_56h,v6_54h,v4_36h, & r4_12f(2),r4_12z(2),l5_12f(2),l5_12z(2),l5_36(2,2),dia1(2), & r4_36f(2,2),v6_34h,l3_12fz(2),l5_12fz(2),l3_56(2,2),l3_54(2,2), & dia(2,2,2),r4_36z(2,2),l5_34(2,2),r4_12fz(2),r6_12fz(2), & r6_12z(2),r6_12f(2),r4_56z(2,2),r6_54z(2,2),r6_34z(2,2), & l3_12z(2),l3_12f(2),r4_56f(2,2),r6_54f(2,2),r6_34f(2,2), & v3_4a,v3_6a,v5_6a,v5_4a, & v3_56a,v3_54a,v5_34a,v4_56a,v6_54a,v4_36a,v6_34a,v5_36a STRUCTURE/toz/ double COMPLEX a(2),b(2),c(2),d(2) END STRUCTURE RECORD/toz/l1_54f(2,2),l1_56f(2,2),l1_34f(2,2),l1_36f(2,2), & r2_54f(2,2),r2_36f(2,2),r2_34f(2,2),r2_56f(2,2),r2_56z(2,2), & l1_54z(2,2),l1_56z(2,2),l1_34z(2,2),l1_36z(2,2),r2_34z(2,2), & r2_54z(2,2),r2_36z(2,2) STRUCTURE/rid/ double COMPLEX id(0:1) END STRUCTURE RECORD/rid/cres_qcd(2,2,2,2,2),cres_nc(2,2,2,2,2), & cres_h(2,2,2,2,2),cres_hz(2,2,2,2,2), & cres_a(2,2,2,2,2),cres_ha(2,2,2,2,2) COMMON/abopzi/isr,ipr,ips,iccnc,iproc,ich,ichcj,ips_cc,ips_nc, & icos,icch,isusy,iha,icut,igwcomp,igzcomp,ighcomp,iswgcomp, & irmhcomp COMMON/abparb/rmw2,gamw,rmz2,rmt2,rcotw,pi,alfa_me,qcdcoupl, & qcdcor_cc,qcdcor_nc,qcdcor_h COMMON/abparc/czipr,ccz,cwipr,ccw,chipr,cch,caipr,cca COMMON/abcoup/fer,fel,zer,zel,f3l,f4l,f5l,f6l,z3l,z4l,z5l,z6l, & f3r,f4r,f5r,f6r,z3r,z4r,z5r,z6r,wcl,delz,xf,xz,yf,yz,zz COMMON/abcopl/zvl,zvr,fqdl,fqdr,zqdl,zqdr,fqul,fqur,zqul,zqur COMMON/abflag/icc,icc3,i3e,i4e,i3q,i5q,iqu,i34e,i56ve,ibbveve,iid, & imix,icoul,istrcor,idownl,idownr,ianc COMMON/abhigg/rmb,rmb2,rmh,rmh2,gamh,rhzz,rhww,rhbb COMMON/absusy/rma,rma2,rzha,rabb PARAMETER (czero=(0.d0,0.d0),cuno=(1.d0,0.d0),cim=(0.d0,1.d0)) data ifirst /1/ * p_q -- p_q=p1p2,p=p1,q=p2 p1p2=p1(0)*p2(0)-p1(1)*p2(1)-p1(2)*p2(2)-p1(3)*p2(3) s=2.d0*p1p2 ss=sqrt(s) e=ss/2.d0 quqd=s/2.d0 p1k0=p1(0)-p1(1) p2k0=p2(0)-p2(1) cdz=-1.d0/(s*czipr-rmz2+ccz) rdf=-1.d0/s fac1=(rdf*fer) fac2=(rdf*fel) cfac1z=(cdz*zer) cfac2z=(cdz*zel) p3k0=p3(0)-p3(1) p4k0=p4(0)-p4(1) p5k0=p5(0)-p5(1) p6k0=p6(0)-p6(1) *********************NUOVO AUTOM************************ * * pk0 -- p=p3 p3k0=p3(0)-p3(1) * pk0 -- p=p4 p4k0=p4(0)-p4(1) * pk0 -- p=p5 p5k0=p5(0)-p5(1) * pk0 -- p=p6 p6k0=p6(0)-p6(1) * Impulsi dei propagatori DO m=0,3 p34(m)=p3(m)+p4(m) p56(m)=p5(m)+p6(m) p36(m)=p3(m)+p6(m) p54(m)=p5(m)+p4(m) p154(m)=p54(m)-p1(m) p136(m)=p36(m)-p1(m) p156(m)=p56(m)-p1(m) p134(m)=p34(m)-p1(m) p536(m)=p36(m)+p5(m) p356(m)=p536(m) p312(m)=-(p54(m)+p6(m)) p534(m)=p34(m)+p5(m) p354(m)=p534(m) p512(m)=-p36(m)-p4(m) END DO * pk0 -- p=p154 p154k0=p154(0)-p154(1) * p.q -- p.q=p154q,p=p154,q=p154 p154q=p154(0)*p154(0)-p154(1)*p154(1)-p154(2)*p154(2)-p154 & (3)*p154(3) * pk0 -- p=p136 p136k0=p136(0)-p136(1) * p.q -- p.q=p136q,p=p136,q=p136 p136q=p136(0)*p136(0)-p136(1)*p136(1)-p136(2)*p136(2)-p136 & (3)*p136(3) * pk0 -- p=p156 p156k0=p156(0)-p156(1) * p.q -- p.q=p156q,p=p156,q=p156 p156q=p156(0)*p156(0)-p156(1)*p156(1)-p156(2)*p156(2)-p156 & (3)*p156(3) * pk0 -- p=p134 p134k0=p134(0)-p134(1) * p.q -- p.q=p134q,p=p134,q=p134 p134q=p134(0)*p134(0)-p134(1)*p134(1)-p134(2)*p134(2)-p134 & (3)*p134(3) * pk0 -- p=p536 p536k0=p536(0)-p536(1) * p.q -- p.q=p536q,p=p536,q=p536 p536q=p536(0)*p536(0)-p536(1)*p536(1)-p536(2)*p536(2)-p536 & (3)*p536(3) * pk0 -- p=p356 p356k0=p356(0)-p356(1) * p.q -- p.q=p356q,p=p356,q=p356 p356q=p356(0)*p356(0)-p356(1)*p356(1)-p356(2)*p356(2)-p356 & (3)*p356(3) * pk0 -- p=p312 p312k0=p312(0)-p312(1) * p.q -- p.q=p312q,p=p312,q=p312 p312q=p312(0)*p312(0)-p312(1)*p312(1)-p312(2)*p312(2)-p312 & (3)*p312(3) * pk0 -- p=p534 p534k0=p534(0)-p534(1) * p.q -- p.q=p534q,p=p534,q=p534 p534q=p534(0)*p534(0)-p534(1)*p534(1)-p534(2)*p534(2)-p534 & (3)*p534(3) * pk0 -- p=p354 p354k0=p354(0)-p354(1) * p.q -- p.q=p354q,p=p354,q=p354 p354q=p354(0)*p354(0)-p354(1)*p354(1)-p354(2)*p354(2)-p354 & (3)*p354(3) * pk0 -- p=p512 p512k0=p512(0)-p512(1) * p.q -- p.q=p512q,p=p512,q=p512 p512q=p512(0)*p512(0)-p512(1)*p512(1)-p512(2)*p512(2)-p512 & (3)*p512(3) * Vertici e+ e- Z,A ( leptoni non massivi ) * quqd -- p=p1,q=p2 quqd=p1(0)*p2(0)-p1(1)*p2(1)-p1(2)*p2(2)-p1(3)*p2(3) * T10 -- qu=p1,qd=p2,v=0,a=c12z(&).e(0),cr=cfac1z,cl=cfac2z,nsum=0 eps_0=-p1(2)*p2(3)+p2(2)*p1(3) ceps_0=eps_0*cim auxa=-quqd+p1k0*p2(0)+p2k0*p1(0) c12z(1).e(0)=cfac1z*(auxa+ceps_0) c12z(2).e(0)=cfac2z*(auxa-ceps_0) * T10 -- qu=p1,qd=p2,v=1,a=c12z(&).e(1),cr=cfac1z,cl=cfac2z,nsum=0 auxa=-quqd+p1k0*p2(1)+p2k0*p1(1) c12z(1).e(1)=cfac1z*(auxa+ceps_0) c12z(2).e(1)=cfac2z*(auxa-ceps_0) * T10 -- qu=p1,qd=p2,v=2,a=c12z(&).e(2),cr=cfac1z,cl=cfac2z,nsum=0 eps_0=-p1k0*p2(3)+p2k0*p1(3) ceps_0=eps_0*cim auxa=p1k0*p2(2)+p2k0*p1(2) c12z(1).e(2)=cfac1z*(auxa+ceps_0) c12z(2).e(2)=cfac2z*(auxa-ceps_0) * T10 -- qu=p1,qd=p2,v=3,a=c12z(&).e(3),cr=cfac1z,cl=cfac2z,nsum=0 eps_0=p1k0*p2(2)-p2k0*p1(2) ceps_0=eps_0*cim auxa=p1k0*p2(3)+p2k0*p1(3) c12z(1).e(3)=cfac1z*(auxa+ceps_0) c12z(2).e(3)=cfac2z*(auxa-ceps_0) DO i=1,2 * pk0 -- p=c12z(i).e c12z(i).ek0=c12z(i).e(0)-c12z(i).e(1) END DO * T10 -- qu=p1,qd=p2,v=0,a=c12f(&).e(0),cr=fac1,cl=fac2,nsum=0 eps_0=-p1(2)*p2(3)+p2(2)*p1(3) ceps_0=eps_0*cim auxa=-quqd+p1k0*p2(0)+p2k0*p1(0) c12f(1).e(0)=fac1*(auxa+ceps_0) c12f(2).e(0)=fac2*(auxa-ceps_0) * T10 -- qu=p1,qd=p2,v=1,a=c12f(&).e(1),cr=fac1,cl=fac2,nsum=0 auxa=-quqd+p1k0*p2(1)+p2k0*p1(1) c12f(1).e(1)=fac1*(auxa+ceps_0) c12f(2).e(1)=fac2*(auxa-ceps_0) * T10 -- qu=p1,qd=p2,v=2,a=c12f(&).e(2),cr=fac1,cl=fac2,nsum=0 eps_0=-p1k0*p2(3)+p2k0*p1(3) ceps_0=eps_0*cim auxa=p1k0*p2(2)+p2k0*p1(2) c12f(1).e(2)=fac1*(auxa+ceps_0) c12f(2).e(2)=fac2*(auxa-ceps_0) * T10 -- qu=p1,qd=p2,v=3,a=c12f(&).e(3),cr=fac1,cl=fac2,nsum=0 eps_0=p1k0*p2(2)-p2k0*p1(2) ceps_0=eps_0*cim auxa=p1k0*p2(3)+p2k0*p1(3) c12f(1).e(3)=fac1*(auxa+ceps_0) c12f(2).e(3)=fac2*(auxa-ceps_0) DO i=1,2 * pk0 -- p=c12f(i).e c12f(i).ek0=c12f(i).e(0)-c12f(i).e(1) END DO * Vertice b b~ Z ( quarks massivi ) * quqd -- p=p5,q=p6 quqd=p5(0)*p6(0)-p5(1)*p6(1)-p5(2)*p6(2)-p5(3)*p6(3) cdz=-(2.d0*(quqd+rmb2)*czipr-rmz2+ccz) * T -- qu=p5,qd=p6,v=0,a=v5_6(0).a,b=v5_6(0).b,c=v5_6(0).c,d=v5_6(0).d,cr=z * qdr,cl=zqdl,nsum=0 eps_0=-p5(2)*p6(3)+p6(2)*p5(3) ceps_0=eps_0*cim ceps_1=p5(3)*cim ceps_2=p6(3)*cim auxa=-quqd+p5k0*p6(0)+p6k0*p5(0) v5_6(0).a(1,1)=zqdr*(auxa+ceps_0) v5_6(0).a(2,2)=zqdl*(auxa-ceps_0) v5_6(0).b(1,2)=-zqdl*(p6(2)+ceps_2) v5_6(0).b(2,1)=zqdr*(p6(2)-ceps_2) v5_6(0).c(1,2)=zqdr*(p5(2)+ceps_1) v5_6(0).c(2,1)=zqdl*(-p5(2)+ceps_1) v5_6(0).d(1,1)=zqdl v5_6(0).d(2,2)=zqdr * T -- qu=p5,qd=p6,v=1,a=v5_6(1).a,b=v5_6(1).b,c=v5_6(1).c,d=v5_6(1).d,cr=z * qdr,cl=zqdl,nsum=0 auxa=-quqd+p5k0*p6(1)+p6k0*p5(1) v5_6(1).a(1,1)=zqdr*(auxa+ceps_0) v5_6(1).a(2,2)=zqdl*(auxa-ceps_0) v5_6(1).b(1,2)=-zqdl*(p6(2)+ceps_2) v5_6(1).b(2,1)=zqdr*(p6(2)-ceps_2) v5_6(1).c(1,2)=zqdr*(p5(2)+ceps_1) v5_6(1).c(2,1)=zqdl*(-p5(2)+ceps_1) v5_6(1).d(1,1)=zqdl v5_6(1).d(2,2)=zqdr * T -- qu=p5,qd=p6,v=2,a=v5_6(2).a,b=v5_6(2).b,c=v5_6(2).c,d=v5_6(2).d,cr=z * qdr,cl=zqdl,nsum=0 eps_0=-p5k0*p6(3)+p6k0*p5(3) ceps_0=eps_0*cim auxa=p5k0*p6(2)+p6k0*p5(2) v5_6(2).a(1,1)=zqdr*(auxa+ceps_0) v5_6(2).a(2,2)=zqdl*(auxa-ceps_0) v5_6(2).b(1,2)=-zqdl*p6k0 v5_6(2).b(2,1)=zqdr*p6k0 v5_6(2).c(1,2)=zqdr*p5k0 v5_6(2).c(2,1)=-zqdl*p5k0 * T -- qu=p5,qd=p6,v=3,a=v5_6(3).a,b=v5_6(3).b,c=v5_6(3).c,d=v5_6(3).d,cr=z * qdr,cl=zqdl,nsum=0 eps_0=p5k0*p6(2)-p6k0*p5(2) ceps_0=eps_0*cim ceps_1=p5k0*cim ceps_2=p6k0*cim auxa=+p5k0*p6(3)+p6k0*p5(3) v5_6(3).a(1,1)=zqdr*(auxa+ceps_0) v5_6(3).a(2,2)=zqdl*(auxa-ceps_0) v5_6(3).b(1,2)=-zqdl*ceps_2 v5_6(3).b(2,1)=-zqdr*ceps_2 v5_6(3).c(1,2)=zqdr*ceps_1 v5_6(3).c(2,1)=zqdl*ceps_1 DO mu=0,3 * mline -- res=c56z(&).e(mu),abcd=v5_6(mu).,m1=rmb,m2=(-rmb),den=cdz DO iut=1,2 DO jut=1,2 c56z(iut,jut).e(mu)=(v5_6(mu).a(iut,jut)+rmb*v5_6(mu).b(iu & t,jut)+(-rmb)*v5_6(mu).c(iut,jut)+rmb*(-rmb)*v5_6(mu).d(i & ut,jut))/cdz ENDDO ENDDO END DO * Aggiungo al propagatore dello Z il termine prop. a k(mu)*k(nu) DO i1=1,2 DO i2=1,2 * p.q -- p.q=caux,p=c56z(i1,i2).e,q=p56 caux=c56z(i1,i2).e(0)*p56(0)-c56z(i1,i2).e(1)*p56(1)-c56z( & i1,i2).e(2)*p56(2)-c56z(i1,i2).e(3)*p56(3) DO m=0,3 c56z(i1,i2).e(m)=c56z(i1,i2).e(m)-caux*p56(m)/rmz2 ENDDO !m ENDDO !i2 ENDDO !i1 DO i1=1,2 DO i2=1,2 * pk0 -- p=c56z(i1,i2).e c56z(i1,i2).ek0=c56z(i1,i2).e(0)-c56z(i1,i2).e(1) END DO END DO * quqd -- p=p3,q=p4 quqd=p3(0)*p4(0)-p3(1)*p4(1)-p3(2)*p4(2)-p3(3)*p4(3) cdz=-(2.d0*(quqd+rmb2)*czipr-rmz2+ccz) * T -- qu=p3,qd=p4,v=0,a=v3_4(0).a,b=v3_4(0).b,c=v3_4(0).c,d=v3_4(0).d,cr=z * qdr,cl=zqdl,nsum=0 eps_0=-p3(2)*p4(3)+p4(2)*p3(3) ceps_0=eps_0*cim ceps_1=p3(3)*cim ceps_2=p4(3)*cim auxa=-quqd+p3k0*p4(0)+p4k0*p3(0) v3_4(0).a(1,1)=zqdr*(auxa+ceps_0) v3_4(0).a(2,2)=zqdl*(auxa-ceps_0) v3_4(0).b(1,2)=-zqdl*(p4(2)+ceps_2) v3_4(0).b(2,1)=zqdr*(p4(2)-ceps_2) v3_4(0).c(1,2)=zqdr*(p3(2)+ceps_1) v3_4(0).c(2,1)=zqdl*(-p3(2)+ceps_1) v3_4(0).d(1,1)=zqdl v3_4(0).d(2,2)=zqdr * T -- qu=p3,qd=p4,v=1,a=v3_4(1).a,b=v3_4(1).b,c=v3_4(1).c,d=v3_4(1).d,cr=z * qdr,cl=zqdl,nsum=0 auxa=-quqd+p3k0*p4(1)+p4k0*p3(1) v3_4(1).a(1,1)=zqdr*(auxa+ceps_0) v3_4(1).a(2,2)=zqdl*(auxa-ceps_0) v3_4(1).b(1,2)=-zqdl*(p4(2)+ceps_2) v3_4(1).b(2,1)=zqdr*(p4(2)-ceps_2) v3_4(1).c(1,2)=zqdr*(p3(2)+ceps_1) v3_4(1).c(2,1)=zqdl*(-p3(2)+ceps_1) v3_4(1).d(1,1)=zqdl v3_4(1).d(2,2)=zqdr * T -- qu=p3,qd=p4,v=2,a=v3_4(2).a,b=v3_4(2).b,c=v3_4(2).c,d=v3_4(2).d,cr=z * qdr,cl=zqdl,nsum=0 eps_0=-p3k0*p4(3)+p4k0*p3(3) ceps_0=eps_0*cim auxa=p3k0*p4(2)+p4k0*p3(2) v3_4(2).a(1,1)=zqdr*(auxa+ceps_0) v3_4(2).a(2,2)=zqdl*(auxa-ceps_0) v3_4(2).b(1,2)=-zqdl*p4k0 v3_4(2).b(2,1)=zqdr*p4k0 v3_4(2).c(1,2)=zqdr*p3k0 v3_4(2).c(2,1)=-zqdl*p3k0 * T -- qu=p3,qd=p4,v=3,a=v3_4(3).a,b=v3_4(3).b,c=v3_4(3).c,d=v3_4(3).d,cr=z * qdr,cl=zqdl,nsum=0 eps_0=p3k0*p4(2)-p4k0*p3(2) ceps_0=eps_0*cim ceps_1=p3k0*cim ceps_2=p4k0*cim auxa=+p3k0*p4(3)+p4k0*p3(3) v3_4(3).a(1,1)=zqdr*(auxa+ceps_0) v3_4(3).a(2,2)=zqdl*(auxa-ceps_0) v3_4(3).b(1,2)=-zqdl*ceps_2 v3_4(3).b(2,1)=-zqdr*ceps_2 v3_4(3).c(1,2)=zqdr*ceps_1 v3_4(3).c(2,1)=zqdl*ceps_1 DO mu=0,3 * mline -- res=c34z(&).e(mu),abcd=v3_4(mu).,m1=rmb,m2=(-rmb),den=cdz DO iut=1,2 DO jut=1,2 c34z(iut,jut).e(mu)=(v3_4(mu).a(iut,jut)+rmb*v3_4(mu).b(iu & t,jut)+(-rmb)*v3_4(mu).c(iut,jut)+rmb*(-rmb)*v3_4(mu).d(i & ut,jut))/cdz ENDDO ENDDO END DO * Aggiungo al propagatore dello Z il termine prop. a k(mu)*k(nu) DO i1=1,2 DO i2=1,2 * p.q -- p.q=caux,p=c34z(i1,i2).e,q=p34 caux=c34z(i1,i2).e(0)*p34(0)-c34z(i1,i2).e(1)*p34(1)-c34z( & i1,i2).e(2)*p34(2)-c34z(i1,i2).e(3)*p34(3) DO m=0,3 c34z(i1,i2).e(m)=c34z(i1,i2).e(m)-caux*p34(m)/rmz2 ENDDO !m ENDDO !i2 ENDDO !i1 DO i1=1,2 DO i2=1,2 * pk0 -- p=c34z(i1,i2).e c34z(i1,i2).ek0=c34z(i1,i2).e(0)-c34z(i1,i2).e(1) END DO END DO * quqd -- p=p3,q=p6 quqd=p3(0)*p6(0)-p3(1)*p6(1)-p3(2)*p6(2)-p3(3)*p6(3) cdz=-(2.d0*(quqd+rmb2)*czipr-rmz2+ccz) * T -- qu=p3,qd=p6,v=0,a=v3_6(0).a,b=v3_6(0).b,c=v3_6(0).c,d=v3_6(0).d,cr=z * qdr,cl=zqdl,nsum=0 eps_0=-p3(2)*p6(3)+p6(2)*p3(3) ceps_0=eps_0*cim ceps_1=p3(3)*cim ceps_2=p6(3)*cim auxa=-quqd+p3k0*p6(0)+p6k0*p3(0) v3_6(0).a(1,1)=zqdr*(auxa+ceps_0) v3_6(0).a(2,2)=zqdl*(auxa-ceps_0) v3_6(0).b(1,2)=-zqdl*(p6(2)+ceps_2) v3_6(0).b(2,1)=zqdr*(p6(2)-ceps_2) v3_6(0).c(1,2)=zqdr*(p3(2)+ceps_1) v3_6(0).c(2,1)=zqdl*(-p3(2)+ceps_1) v3_6(0).d(1,1)=zqdl v3_6(0).d(2,2)=zqdr * T -- qu=p3,qd=p6,v=1,a=v3_6(1).a,b=v3_6(1).b,c=v3_6(1).c,d=v3_6(1).d,cr=z * qdr,cl=zqdl,nsum=0 auxa=-quqd+p3k0*p6(1)+p6k0*p3(1) v3_6(1).a(1,1)=zqdr*(auxa+ceps_0) v3_6(1).a(2,2)=zqdl*(auxa-ceps_0) v3_6(1).b(1,2)=-zqdl*(p6(2)+ceps_2) v3_6(1).b(2,1)=zqdr*(p6(2)-ceps_2) v3_6(1).c(1,2)=zqdr*(p3(2)+ceps_1) v3_6(1).c(2,1)=zqdl*(-p3(2)+ceps_1) v3_6(1).d(1,1)=zqdl v3_6(1).d(2,2)=zqdr * T -- qu=p3,qd=p6,v=2,a=v3_6(2).a,b=v3_6(2).b,c=v3_6(2).c,d=v3_6(2).d,cr=z * qdr,cl=zqdl,nsum=0 eps_0=-p3k0*p6(3)+p6k0*p3(3) ceps_0=eps_0*cim auxa=p3k0*p6(2)+p6k0*p3(2) v3_6(2).a(1,1)=zqdr*(auxa+ceps_0) v3_6(2).a(2,2)=zqdl*(auxa-ceps_0) v3_6(2).b(1,2)=-zqdl*p6k0 v3_6(2).b(2,1)=zqdr*p6k0 v3_6(2).c(1,2)=zqdr*p3k0 v3_6(2).c(2,1)=-zqdl*p3k0 * T -- qu=p3,qd=p6,v=3,a=v3_6(3).a,b=v3_6(3).b,c=v3_6(3).c,d=v3_6(3).d,cr=z * qdr,cl=zqdl,nsum=0 eps_0=p3k0*p6(2)-p6k0*p3(2) ceps_0=eps_0*cim ceps_1=p3k0*cim ceps_2=p6k0*cim auxa=+p3k0*p6(3)+p6k0*p3(3) v3_6(3).a(1,1)=zqdr*(auxa+ceps_0) v3_6(3).a(2,2)=zqdl*(auxa-ceps_0) v3_6(3).b(1,2)=-zqdl*ceps_2 v3_6(3).b(2,1)=-zqdr*ceps_2 v3_6(3).c(1,2)=zqdr*ceps_1 v3_6(3).c(2,1)=zqdl*ceps_1 DO mu=0,3 * mline -- res=c36z(&).e(mu),abcd=v3_6(mu).,m1=rmb,m2=(-rmb),den=cdz DO iut=1,2 DO jut=1,2 c36z(iut,jut).e(mu)=(v3_6(mu).a(iut,jut)+rmb*v3_6(mu).b(iu & t,jut)+(-rmb)*v3_6(mu).c(iut,jut)+rmb*(-rmb)*v3_6(mu).d(i & ut,jut))/cdz ENDDO ENDDO END DO * Aggiungo al propagatore dello Z il termine prop. a k(mu)*k(nu) DO i1=1,2 DO i2=1,2 * p.q -- p.q=caux,p=c36z(i1,i2).e,q=p36 caux=c36z(i1,i2).e(0)*p36(0)-c36z(i1,i2).e(1)*p36(1)-c36z( & i1,i2).e(2)*p36(2)-c36z(i1,i2).e(3)*p36(3) DO m=0,3 c36z(i1,i2).e(m)=c36z(i1,i2).e(m)-caux*p36(m)/rmz2 ENDDO !m ENDDO !i2 ENDDO !i1 DO i1=1,2 DO i2=1,2 * pk0 -- p=c36z(i1,i2).e c36z(i1,i2).ek0=c36z(i1,i2).e(0)-c36z(i1,i2).e(1) END DO END DO * quqd -- p=p5,q=p4 quqd=p5(0)*p4(0)-p5(1)*p4(1)-p5(2)*p4(2)-p5(3)*p4(3) cdz=-(2.d0*(quqd+rmb2)*czipr-rmz2+ccz) * T -- qu=p5,qd=p4,v=0,a=v5_4(0).a,b=v5_4(0).b,c=v5_4(0).c,d=v5_4(0).d,cr=z * qdr,cl=zqdl,nsum=0 eps_0=-p5(2)*p4(3)+p4(2)*p5(3) ceps_0=eps_0*cim ceps_1=p5(3)*cim ceps_2=p4(3)*cim auxa=-quqd+p5k0*p4(0)+p4k0*p5(0) v5_4(0).a(1,1)=zqdr*(auxa+ceps_0) v5_4(0).a(2,2)=zqdl*(auxa-ceps_0) v5_4(0).b(1,2)=-zqdl*(p4(2)+ceps_2) v5_4(0).b(2,1)=zqdr*(p4(2)-ceps_2) v5_4(0).c(1,2)=zqdr*(p5(2)+ceps_1) v5_4(0).c(2,1)=zqdl*(-p5(2)+ceps_1) v5_4(0).d(1,1)=zqdl v5_4(0).d(2,2)=zqdr * T -- qu=p5,qd=p4,v=1,a=v5_4(1).a,b=v5_4(1).b,c=v5_4(1).c,d=v5_4(1).d,cr=z * qdr,cl=zqdl,nsum=0 auxa=-quqd+p5k0*p4(1)+p4k0*p5(1) v5_4(1).a(1,1)=zqdr*(auxa+ceps_0) v5_4(1).a(2,2)=zqdl*(auxa-ceps_0) v5_4(1).b(1,2)=-zqdl*(p4(2)+ceps_2) v5_4(1).b(2,1)=zqdr*(p4(2)-ceps_2) v5_4(1).c(1,2)=zqdr*(p5(2)+ceps_1) v5_4(1).c(2,1)=zqdl*(-p5(2)+ceps_1) v5_4(1).d(1,1)=zqdl v5_4(1).d(2,2)=zqdr * T -- qu=p5,qd=p4,v=2,a=v5_4(2).a,b=v5_4(2).b,c=v5_4(2).c,d=v5_4(2).d,cr=z * qdr,cl=zqdl,nsum=0 eps_0=-p5k0*p4(3)+p4k0*p5(3) ceps_0=eps_0*cim auxa=p5k0*p4(2)+p4k0*p5(2) v5_4(2).a(1,1)=zqdr*(auxa+ceps_0) v5_4(2).a(2,2)=zqdl*(auxa-ceps_0) v5_4(2).b(1,2)=-zqdl*p4k0 v5_4(2).b(2,1)=zqdr*p4k0 v5_4(2).c(1,2)=zqdr*p5k0 v5_4(2).c(2,1)=-zqdl*p5k0 * T -- qu=p5,qd=p4,v=3,a=v5_4(3).a,b=v5_4(3).b,c=v5_4(3).c,d=v5_4(3).d,cr=z * qdr,cl=zqdl,nsum=0 eps_0=p5k0*p4(2)-p4k0*p5(2) ceps_0=eps_0*cim ceps_1=p5k0*cim ceps_2=p4k0*cim auxa=+p5k0*p4(3)+p4k0*p5(3) v5_4(3).a(1,1)=zqdr*(auxa+ceps_0) v5_4(3).a(2,2)=zqdl*(auxa-ceps_0) v5_4(3).b(1,2)=-zqdl*ceps_2 v5_4(3).b(2,1)=-zqdr*ceps_2 v5_4(3).c(1,2)=zqdr*ceps_1 v5_4(3).c(2,1)=zqdl*ceps_1 DO mu=0,3 * mline -- res=c54z(&).e(mu),abcd=v5_4(mu).,m1=rmb,m2=(-rmb),den=cdz DO iut=1,2 DO jut=1,2 c54z(iut,jut).e(mu)=(v5_4(mu).a(iut,jut)+rmb*v5_4(mu).b(iu & t,jut)+(-rmb)*v5_4(mu).c(iut,jut)+rmb*(-rmb)*v5_4(mu).d(i & ut,jut))/cdz ENDDO ENDDO END DO * Aggiungo al propagatore dello Z il termine prop. a k(mu)*k(nu) DO i1=1,2 DO i2=1,2 * p.q -- p.q=caux,p=c54z(i1,i2).e,q=p54 caux=c54z(i1,i2).e(0)*p54(0)-c54z(i1,i2).e(1)*p54(1)-c54z( & i1,i2).e(2)*p54(2)-c54z(i1,i2).e(3)*p54(3) DO m=0,3 c54z(i1,i2).e(m)=c54z(i1,i2).e(m)-caux*p54(m)/rmz2 ENDDO !m ENDDO !i2 ENDDO !i1 DO i1=1,2 DO i2=1,2 * pk0 -- p=c54z(i1,i2).e c54z(i1,i2).ek0=c54z(i1,i2).e(0)-c54z(i1,i2).e(1) END DO END DO IF (imix.EQ.-1.or.imix.eq.-2) then * Vertice b b~ A ( quarks massivi ) * quqd -- p=p5,q=p6 quqd=p5(0)*p6(0)-p5(1)*p6(1)-p5(2)*p6(2)-p5(3)*p6(3) rdf=-2.d0*(quqd+rmb2) * T -- qu=p5,qd=p6,v=0,a=v5_6(0).a,b=v5_6(0).b,c=v5_6(0).c,d=v5_6(0).d,cr=f * qdr,cl=fqdl,nsum=0 eps_0=-p5(2)*p6(3)+p6(2)*p5(3) ceps_0=eps_0*cim ceps_1=p5(3)*cim ceps_2=p6(3)*cim auxa=-quqd+p5k0*p6(0)+p6k0*p5(0) v5_6(0).a(1,1)=fqdr*(auxa+ceps_0) v5_6(0).a(2,2)=fqdl*(auxa-ceps_0) v5_6(0).b(1,2)=-fqdl*(p6(2)+ceps_2) v5_6(0).b(2,1)=fqdr*(p6(2)-ceps_2) v5_6(0).c(1,2)=fqdr*(p5(2)+ceps_1) v5_6(0).c(2,1)=fqdl*(-p5(2)+ceps_1) v5_6(0).d(1,1)=fqdl v5_6(0).d(2,2)=fqdr * T -- qu=p5,qd=p6,v=1,a=v5_6(1).a,b=v5_6(1).b,c=v5_6(1).c,d=v5_6(1).d,cr=f * qdr,cl=fqdl,nsum=0 auxa=-quqd+p5k0*p6(1)+p6k0*p5(1) v5_6(1).a(1,1)=fqdr*(auxa+ceps_0) v5_6(1).a(2,2)=fqdl*(auxa-ceps_0) v5_6(1).b(1,2)=-fqdl*(p6(2)+ceps_2) v5_6(1).b(2,1)=fqdr*(p6(2)-ceps_2) v5_6(1).c(1,2)=fqdr*(p5(2)+ceps_1) v5_6(1).c(2,1)=fqdl*(-p5(2)+ceps_1) v5_6(1).d(1,1)=fqdl v5_6(1).d(2,2)=fqdr * T -- qu=p5,qd=p6,v=2,a=v5_6(2).a,b=v5_6(2).b,c=v5_6(2).c,d=v5_6(2).d,cr=f * qdr,cl=fqdl,nsum=0 eps_0=-p5k0*p6(3)+p6k0*p5(3) ceps_0=eps_0*cim auxa=p5k0*p6(2)+p6k0*p5(2) v5_6(2).a(1,1)=fqdr*(auxa+ceps_0) v5_6(2).a(2,2)=fqdl*(auxa-ceps_0) v5_6(2).b(1,2)=-fqdl*p6k0 v5_6(2).b(2,1)=fqdr*p6k0 v5_6(2).c(1,2)=fqdr*p5k0 v5_6(2).c(2,1)=-fqdl*p5k0 * T -- qu=p5,qd=p6,v=3,a=v5_6(3).a,b=v5_6(3).b,c=v5_6(3).c,d=v5_6(3).d,cr=f * qdr,cl=fqdl,nsum=0 eps_0=p5k0*p6(2)-p6k0*p5(2) ceps_0=eps_0*cim ceps_1=p5k0*cim ceps_2=p6k0*cim auxa=+p5k0*p6(3)+p6k0*p5(3) v5_6(3).a(1,1)=fqdr*(auxa+ceps_0) v5_6(3).a(2,2)=fqdl*(auxa-ceps_0) v5_6(3).b(1,2)=-fqdl*ceps_2 v5_6(3).b(2,1)=-fqdr*ceps_2 v5_6(3).c(1,2)=fqdr*ceps_1 v5_6(3).c(2,1)=fqdl*ceps_1 DO mu=0,3 * mline -- res=c56f(&).e(mu),abcd=v5_6(mu).,m1=rmb,m2=(-rmb),den=rdf DO iut=1,2 DO jut=1,2 c56f(iut,jut).e(mu)=(v5_6(mu).a(iut,jut)+rmb*v5_6(mu).b(iu & t,jut)+(-rmb)*v5_6(mu).c(iut,jut)+rmb*(-rmb)*v5_6(mu). & d(i & ut,jut))/rdf ENDDO ENDDO END DO DO i1=1,2 DO i2=1,2 * pk0 -- p=c56f(i1,i2).e c56f(i1,i2).ek0=c56f(i1,i2).e(0)-c56f(i1,i2).e(1) END DO END DO * quqd -- p=p3,q=p4 quqd=p3(0)*p4(0)-p3(1)*p4(1)-p3(2)*p4(2)-p3(3)*p4(3) rdf=-2.d0*(quqd+rmb2) * T -- qu=p3,qd=p4,v=0,a=v3_4(0).a,b=v3_4(0).b,c=v3_4(0).c,d=v3_4(0).d,cr=f * qdr,cl=fqdl,nsum=0 eps_0=-p3(2)*p4(3)+p4(2)*p3(3) ceps_0=eps_0*cim ceps_1=p3(3)*cim ceps_2=p4(3)*cim auxa=-quqd+p3k0*p4(0)+p4k0*p3(0) v3_4(0).a(1,1)=fqdr*(auxa+ceps_0) v3_4(0).a(2,2)=fqdl*(auxa-ceps_0) v3_4(0).b(1,2)=-fqdl*(p4(2)+ceps_2) v3_4(0).b(2,1)=fqdr*(p4(2)-ceps_2) v3_4(0).c(1,2)=fqdr*(p3(2)+ceps_1) v3_4(0).c(2,1)=fqdl*(-p3(2)+ceps_1) v3_4(0).d(1,1)=fqdl v3_4(0).d(2,2)=fqdr * T -- qu=p3,qd=p4,v=1,a=v3_4(1).a,b=v3_4(1).b,c=v3_4(1).c,d=v3_4(1).d,cr=f * qdr,cl=fqdl,nsum=0 auxa=-quqd+p3k0*p4(1)+p4k0*p3(1) v3_4(1).a(1,1)=fqdr*(auxa+ceps_0) v3_4(1).a(2,2)=fqdl*(auxa-ceps_0) v3_4(1).b(1,2)=-fqdl*(p4(2)+ceps_2) v3_4(1).b(2,1)=fqdr*(p4(2)-ceps_2) v3_4(1).c(1,2)=fqdr*(p3(2)+ceps_1) v3_4(1).c(2,1)=fqdl*(-p3(2)+ceps_1) v3_4(1).d(1,1)=fqdl v3_4(1).d(2,2)=fqdr * T -- qu=p3,qd=p4,v=2,a=v3_4(2).a,b=v3_4(2).b,c=v3_4(2).c,d=v3_4(2).d,cr=f * qdr,cl=fqdl,nsum=0 eps_0=-p3k0*p4(3)+p4k0*p3(3) ceps_0=eps_0*cim auxa=p3k0*p4(2)+p4k0*p3(2) v3_4(2).a(1,1)=fqdr*(auxa+ceps_0) v3_4(2).a(2,2)=fqdl*(auxa-ceps_0) v3_4(2).b(1,2)=-fqdl*p4k0 v3_4(2).b(2,1)=fqdr*p4k0 v3_4(2).c(1,2)=fqdr*p3k0 v3_4(2).c(2,1)=-fqdl*p3k0 * T -- qu=p3,qd=p4,v=3,a=v3_4(3).a,b=v3_4(3).b,c=v3_4(3).c,d=v3_4(3).d,cr=f * qdr,cl=fqdl,nsum=0 eps_0=p3k0*p4(2)-p4k0*p3(2) ceps_0=eps_0*cim ceps_1=p3k0*cim ceps_2=p4k0*cim auxa=+p3k0*p4(3)+p4k0*p3(3) v3_4(3).a(1,1)=fqdr*(auxa+ceps_0) v3_4(3).a(2,2)=fqdl*(auxa-ceps_0) v3_4(3).b(1,2)=-fqdl*ceps_2 v3_4(3).b(2,1)=-fqdr*ceps_2 v3_4(3).c(1,2)=fqdr*ceps_1 v3_4(3).c(2,1)=fqdl*ceps_1 DO mu=0,3 * mline -- res=c34f(&).e(mu),abcd=v3_4(mu).,m1=rmb,m2=(-rmb),den=rdf DO iut=1,2 DO jut=1,2 c34f(iut,jut).e(mu)=(v3_4(mu).a(iut,jut)+rmb*v3_4(mu).b(iu & t,jut)+(-rmb)*v3_4(mu).c(iut,jut)+rmb*(-rmb)*v3_4(mu). & d(i & ut,jut))/rdf ENDDO ENDDO END DO DO i1=1,2 DO i2=1,2 * pk0 -- p=c34f(i1,i2).e c34f(i1,i2).ek0=c34f(i1,i2).e(0)-c34f(i1,i2).e(1) END DO END DO * quqd -- p=p3,q=p6 quqd=p3(0)*p6(0)-p3(1)*p6(1)-p3(2)*p6(2)-p3(3)*p6(3) rdf=-2.d0*(quqd+rmb2) * T -- qu=p3,qd=p6,v=0,a=v3_6(0).a,b=v3_6(0).b,c=v3_6(0).c,d=v3_6(0).d,cr=f * qdr,cl=fqdl,nsum=0 eps_0=-p3(2)*p6(3)+p6(2)*p3(3) ceps_0=eps_0*cim ceps_1=p3(3)*cim ceps_2=p6(3)*cim auxa=-quqd+p3k0*p6(0)+p6k0*p3(0) v3_6(0).a(1,1)=fqdr*(auxa+ceps_0) v3_6(0).a(2,2)=fqdl*(auxa-ceps_0) v3_6(0).b(1,2)=-fqdl*(p6(2)+ceps_2) v3_6(0).b(2,1)=fqdr*(p6(2)-ceps_2) v3_6(0).c(1,2)=fqdr*(p3(2)+ceps_1) v3_6(0).c(2,1)=fqdl*(-p3(2)+ceps_1) v3_6(0).d(1,1)=fqdl v3_6(0).d(2,2)=fqdr * T -- qu=p3,qd=p6,v=1,a=v3_6(1).a,b=v3_6(1).b,c=v3_6(1).c,d=v3_6(1).d,cr=f * qdr,cl=fqdl,nsum=0 auxa=-quqd+p3k0*p6(1)+p6k0*p3(1) v3_6(1).a(1,1)=fqdr*(auxa+ceps_0) v3_6(1).a(2,2)=fqdl*(auxa-ceps_0) v3_6(1).b(1,2)=-fqdl*(p6(2)+ceps_2) v3_6(1).b(2,1)=fqdr*(p6(2)-ceps_2) v3_6(1).c(1,2)=fqdr*(p3(2)+ceps_1) v3_6(1).c(2,1)=fqdl*(-p3(2)+ceps_1) v3_6(1).d(1,1)=fqdl v3_6(1).d(2,2)=fqdr * T -- qu=p3,qd=p6,v=2,a=v3_6(2).a,b=v3_6(2).b,c=v3_6(2).c,d=v3_6(2).d,cr=f * qdr,cl=fqdl,nsum=0 eps_0=-p3k0*p6(3)+p6k0*p3(3) ceps_0=eps_0*cim auxa=p3k0*p6(2)+p6k0*p3(2) v3_6(2).a(1,1)=fqdr*(auxa+ceps_0) v3_6(2).a(2,2)=fqdl*(auxa-ceps_0) v3_6(2).b(1,2)=-fqdl*p6k0 v3_6(2).b(2,1)=fqdr*p6k0 v3_6(2).c(1,2)=fqdr*p3k0 v3_6(2).c(2,1)=-fqdl*p3k0 * T -- qu=p3,qd=p6,v=3,a=v3_6(3).a,b=v3_6(3).b,c=v3_6(3).c,d=v3_6(3).d,cr=f * qdr,cl=fqdl,nsum=0 eps_0=p3k0*p6(2)-p6k0*p3(2) ceps_0=eps_0*cim ceps_1=p3k0*cim ceps_2=p6k0*cim auxa=+p3k0*p6(3)+p6k0*p3(3) v3_6(3).a(1,1)=fqdr*(auxa+ceps_0) v3_6(3).a(2,2)=fqdl*(auxa-ceps_0) v3_6(3).b(1,2)=-fqdl*ceps_2 v3_6(3).b(2,1)=-fqdr*ceps_2 v3_6(3).c(1,2)=fqdr*ceps_1 v3_6(3).c(2,1)=fqdl*ceps_1 DO mu=0,3 * mline -- res=c36f(&).e(mu),abcd=v3_6(mu).,m1=rmb,m2=(-rmb),den=rdf DO iut=1,2 DO jut=1,2 c36f(iut,jut).e(mu)=(v3_6(mu).a(iut,jut)+rmb*v3_6(mu).b(iu & t,jut)+(-rmb)*v3_6(mu).c(iut,jut)+rmb*(-rmb)*v3_6(mu). & d(i & ut,jut))/rdf ENDDO ENDDO END DO DO i1=1,2 DO i2=1,2 * pk0 -- p=c36f(i1,i2).e c36f(i1,i2).ek0=c36f(i1,i2).e(0)-c36f(i1,i2).e(1) END DO END DO * quqd -- p=p5,q=p4 quqd=p5(0)*p4(0)-p5(1)*p4(1)-p5(2)*p4(2)-p5(3)*p4(3) rdf=-2.d0*(quqd+rmb2) * T -- qu=p5,qd=p4,v=0,a=v5_4(0).a,b=v5_4(0).b,c=v5_4(0).c,d=v5_4(0).d,cr=f * qdr,cl=fqdl,nsum=0 eps_0=-p5(2)*p4(3)+p4(2)*p5(3) ceps_0=eps_0*cim ceps_1=p5(3)*cim ceps_2=p4(3)*cim auxa=-quqd+p5k0*p4(0)+p4k0*p5(0) v5_4(0).a(1,1)=fqdr*(auxa+ceps_0) v5_4(0).a(2,2)=fqdl*(auxa-ceps_0) v5_4(0).b(1,2)=-fqdl*(p4(2)+ceps_2) v5_4(0).b(2,1)=fqdr*(p4(2)-ceps_2) v5_4(0).c(1,2)=fqdr*(p5(2)+ceps_1) v5_4(0).c(2,1)=fqdl*(-p5(2)+ceps_1) v5_4(0).d(1,1)=fqdl v5_4(0).d(2,2)=fqdr * T -- qu=p5,qd=p4,v=1,a=v5_4(1).a,b=v5_4(1).b,c=v5_4(1).c,d=v5_4(1).d,cr=f * qdr,cl=fqdl,nsum=0 auxa=-quqd+p5k0*p4(1)+p4k0*p5(1) v5_4(1).a(1,1)=fqdr*(auxa+ceps_0) v5_4(1).a(2,2)=fqdl*(auxa-ceps_0) v5_4(1).b(1,2)=-fqdl*(p4(2)+ceps_2) v5_4(1).b(2,1)=fqdr*(p4(2)-ceps_2) v5_4(1).c(1,2)=fqdr*(p5(2)+ceps_1) v5_4(1).c(2,1)=fqdl*(-p5(2)+ceps_1) v5_4(1).d(1,1)=fqdl v5_4(1).d(2,2)=fqdr * T -- qu=p5,qd=p4,v=2,a=v5_4(2).a,b=v5_4(2).b,c=v5_4(2).c,d=v5_4(2).d,cr=f * qdr,cl=fqdl,nsum=0 eps_0=-p5k0*p4(3)+p4k0*p5(3) ceps_0=eps_0*cim auxa=p5k0*p4(2)+p4k0*p5(2) v5_4(2).a(1,1)=fqdr*(auxa+ceps_0) v5_4(2).a(2,2)=fqdl*(auxa-ceps_0) v5_4(2).b(1,2)=-fqdl*p4k0 v5_4(2).b(2,1)=fqdr*p4k0 v5_4(2).c(1,2)=fqdr*p5k0 v5_4(2).c(2,1)=-fqdl*p5k0 * T -- qu=p5,qd=p4,v=3,a=v5_4(3).a,b=v5_4(3).b,c=v5_4(3).c,d=v5_4(3).d,cr=f * qdr,cl=fqdl,nsum=0 eps_0=p5k0*p4(2)-p4k0*p5(2) ceps_0=eps_0*cim ceps_1=p5k0*cim ceps_2=p4k0*cim auxa=+p5k0*p4(3)+p4k0*p5(3) v5_4(3).a(1,1)=fqdr*(auxa+ceps_0) v5_4(3).a(2,2)=fqdl*(auxa-ceps_0) v5_4(3).b(1,2)=-fqdl*ceps_2 v5_4(3).b(2,1)=-fqdr*ceps_2 v5_4(3).c(1,2)=fqdr*ceps_1 v5_4(3).c(2,1)=fqdl*ceps_1 DO mu=0,3 * mline -- res=c54f(&).e(mu),abcd=v5_4(mu).,m1=rmb,m2=(-rmb),den=rdf DO iut=1,2 DO jut=1,2 c54f(iut,jut).e(mu)=(v5_4(mu).a(iut,jut)+rmb*v5_4(mu).b(iu & t,jut)+(-rmb)*v5_4(mu).c(iut,jut)+rmb*(-rmb)*v5_4(mu). & d(i & ut,jut))/rdf ENDDO ENDDO END DO DO i1=1,2 DO i2=1,2 * pk0 -- p=c54f(i1,i2).e c54f(i1,i2).ek0=c54f(i1,i2).e(0)-c54f(i1,i2).e(1) END DO END DO ENDIF IF(imix.EQ.1.OR.imix.EQ.-2)THEN * Vertice b b~ H ( quarks massivi ) * quqd -- p=p5,q=p6 quqd=p5(0)*p6(0)-p5(1)*p6(1)-p5(2)*p6(2)-p5(3)*p6(3) cdh=-(2.d0*(quqd+rmb2)*chipr-rmh2+cch) * TH -- qu=p5,qd=p6,a=v5_6h.a,b=v5_6h.b,c=v5_6h.c v5_6h.a(1,2)=-p5k0*p6(2)+p6k0*p5(2)-cim*(p6(3)*p5k0-p5(3)* & p6k0) v5_6h.a(2,1)=-conjg(v5_6h.a(1,2)) v5_6h.b(1,1)=p6k0 v5_6h.b(2,2)=v5_6h.b(1,1) v5_6h.c(1,1)=p5k0 v5_6h.c(2,2)=v5_6h.c(1,1) * mline -- res=c56h(&),abcd=v5_6h.,m1=rmb,m2=(-rmb),den=cdh DO iut=1,2 DO jut=1,2 c56h(iut,jut)=(v5_6h.a(iut,jut)+rmb*v5_6h.b(iut,jut)+(-rmb & )*v5_6h.c(iut,jut)+rmb*(-rmb)*v5_6h.d(iut,jut))/cdh ENDDO ENDDO * quqd -- p=p3,q=p4 quqd=p3(0)*p4(0)-p3(1)*p4(1)-p3(2)*p4(2)-p3(3)*p4(3) cdh=-(2.d0*(quqd+rmb2)*chipr-rmh2+cch) * TH -- qu=p3,qd=p4,a=v3_4h.a,b=v3_4h.b,c=v3_4h.c v3_4h.a(1,2)=-p3k0*p4(2)+p4k0*p3(2)-cim*(p4(3)*p3k0-p3(3)* & p4k0) v3_4h.a(2,1)=-conjg(v3_4h.a(1,2)) v3_4h.b(1,1)=p4k0 v3_4h.b(2,2)=v3_4h.b(1,1) v3_4h.c(1,1)=p3k0 v3_4h.c(2,2)=v3_4h.c(1,1) * mline -- res=c34h(&),abcd=v3_4h.,m1=rmb,m2=(-rmb),den=cdh DO iut=1,2 DO jut=1,2 c34h(iut,jut)=(v3_4h.a(iut,jut)+rmb*v3_4h.b(iut,jut)+(-rmb & )*v3_4h.c(iut,jut)+rmb*(-rmb)*v3_4h.d(iut,jut))/cdh ENDDO ENDDO * quqd -- p=p5,q=p4 quqd=p5(0)*p4(0)-p5(1)*p4(1)-p5(2)*p4(2)-p5(3)*p4(3) cdh=-(2.d0*(quqd+rmb2)*chipr-rmh2+cch) * TH -- qu=p5,qd=p4,a=v5_4h.a,b=v5_4h.b,c=v5_4h.c v5_4h.a(1,2)=-p5k0*p4(2)+p4k0*p5(2)-cim*(p4(3)*p5k0-p5(3)* & p4k0) v5_4h.a(2,1)=-conjg(v5_4h.a(1,2)) v5_4h.b(1,1)=p4k0 v5_4h.b(2,2)=v5_4h.b(1,1) v5_4h.c(1,1)=p5k0 v5_4h.c(2,2)=v5_4h.c(1,1) * mline -- res=c54h(&),abcd=v5_4h.,m1=rmb,m2=(-rmb),den=cdh DO iut=1,2 DO jut=1,2 c54h(iut,jut)=(v5_4h.a(iut,jut)+rmb*v5_4h.b(iut,jut)+(-rmb & )*v5_4h.c(iut,jut)+rmb*(-rmb)*v5_4h.d(iut,jut))/cdh ENDDO ENDDO * quqd -- p=p3,q=p6 quqd=p3(0)*p6(0)-p3(1)*p6(1)-p3(2)*p6(2)-p3(3)*p6(3) cdh=-(2.d0*(quqd+rmb2)*chipr-rmh2+cch) * TH -- qu=p3,qd=p6,a=v3_6h.a,b=v3_6h.b,c=v3_6h.c v3_6h.a(1,2)=-p3k0*p6(2)+p6k0*p3(2)-cim*(p6(3)*p3k0-p3(3)* & p6k0) v3_6h.a(2,1)=-conjg(v3_6h.a(1,2)) v3_6h.b(1,1)=p6k0 v3_6h.b(2,2)=v3_6h.b(1,1) v3_6h.c(1,1)=p3k0 v3_6h.c(2,2)=v3_6h.c(1,1) * mline -- res=c36h(&),abcd=v3_6h.,m1=rmb,m2=(-rmb),den=cdh DO iut=1,2 DO jut=1,2 c36h(iut,jut)=(v3_6h.a(iut,jut)+rmb*v3_6h.b(iut,jut)+(-rmb & )*v3_6h.c(iut,jut)+rmb*(-rmb)*v3_6h.d(iut,jut))/cdh ENDDO ENDDO IF(isusy.EQ.1.AND.iha.NE.2.AND.iha.NE.4)THEN * quqd -- p=p5,q=p6 quqd=p5(0)*p6(0)-p5(1)*p6(1)-p5(2)*p6(2)-p5(3)*p6(3) cda=-(2.d0*(quqd+rmb2)*caipr-rma2+cca) * TSC -- qu=p5,qd=p6,a=v5_6a.a,b=v5_6a.b,c=v5_6a.c,cr=1.d0,cl=-1.d0 auxa=-p5k0*p6(2)+p6k0*p5(2) cauxa=-cim*(p6(3)*p5k0-p5(3)*p6k0) v5_6a.a(1,2)=-1.d0*(auxa+cauxa) v5_6a.a(2,1)=(-auxa+cauxa) v5_6a.b(1,1)=p6k0 v5_6a.b(2,2)=-1.d0*p6k0 v5_6a.c(1,1)=-1.d0*p5k0 v5_6a.c(2,2)=p5k0 * mline -- res=c56a(&),abcd=v5_6a.,m1=rmb,m2=(-rmb),den=cda DO iut=1,2 DO jut=1,2 c56a(iut,jut)=(v5_6a.a(iut,jut)+rmb*v5_6a.b(iut,jut)+(-rmb & )*v5_6a.c(iut,jut)+rmb*(-rmb)*v5_6a.d(iut,jut))/cda ENDDO ENDDO * quqd -- p=p5,q=p4 quqd=p5(0)*p4(0)-p5(1)*p4(1)-p5(2)*p4(2)-p5(3)*p4(3) cda=-(2.d0*(quqd+rmb2)*caipr-rma2+cca) * TSC -- qu=p5,qd=p4,a=v5_4a.a,b=v5_4a.b,c=v5_4a.c,cr=1.d0,cl=-1.d0 auxa=-p5k0*p4(2)+p4k0*p5(2) cauxa=-cim*(p4(3)*p5k0-p5(3)*p4k0) v5_4a.a(1,2)=-1.d0*(auxa+cauxa) v5_4a.a(2,1)=(-auxa+cauxa) v5_4a.b(1,1)=p4k0 v5_4a.b(2,2)=-1.d0*p4k0 v5_4a.c(1,1)=-1.d0*p5k0 v5_4a.c(2,2)=p5k0 * mline -- res=c54a(&),abcd=v5_4a.,m1=rmb,m2=(-rmb),den=cda DO iut=1,2 DO jut=1,2 c54a(iut,jut)=(v5_4a.a(iut,jut)+rmb*v5_4a.b(iut,jut)+(-rmb & )*v5_4a.c(iut,jut)+rmb*(-rmb)*v5_4a.d(iut,jut))/cda ENDDO ENDDO * quqd -- p=p3,q=p6 quqd=p3(0)*p6(0)-p3(1)*p6(1)-p3(2)*p6(2)-p3(3)*p6(3) cda=-(2.d0*(quqd+rmb2)*caipr-rma2+cca) * TSC -- qu=p3,qd=p6,a=v3_6a.a,b=v3_6a.b,c=v3_6a.c,cr=1.d0,cl=-1.d0 auxa=-p3k0*p6(2)+p6k0*p3(2) cauxa=-cim*(p6(3)*p3k0-p3(3)*p6k0) v3_6a.a(1,2)=-1.d0*(auxa+cauxa) v3_6a.a(2,1)=(-auxa+cauxa) v3_6a.b(1,1)=p6k0 v3_6a.b(2,2)=-1.d0*p6k0 v3_6a.c(1,1)=-1.d0*p3k0 v3_6a.c(2,2)=p3k0 * mline -- res=c36a(&),abcd=v3_6a.,m1=rmb,m2=(-rmb),den=cda DO iut=1,2 DO jut=1,2 c36a(iut,jut)=(v3_6a.a(iut,jut)+rmb*v3_6a.b(iut,jut)+(-rmb & )*v3_6a.c(iut,jut)+rmb*(-rmb)*v3_6a.d(iut,jut))/cda ENDDO ENDDO * quqd -- p=p3,q=p4 quqd=p3(0)*p4(0)-p3(1)*p4(1)-p3(2)*p4(2)-p3(3)*p4(3) cda=-(2.d0*(quqd+rmb2)*caipr-rma2+cca) * TSC -- qu=p3,qd=p4,a=v3_4a.a,b=v3_4a.b,c=v3_4a.c,cr=1.d0,cl=-1.d0 auxa=-p3k0*p4(2)+p4k0*p3(2) cauxa=-cim*(p4(3)*p3k0-p3(3)*p4k0) v3_4a.a(1,2)=-1.d0*(auxa+cauxa) v3_4a.a(2,1)=(-auxa+cauxa) v3_4a.b(1,1)=p4k0 v3_4a.b(2,2)=-1.d0*p4k0 v3_4a.c(1,1)=-1.d0*p3k0 v3_4a.c(2,2)=p3k0 * mline -- res=c34a(&),abcd=v3_4a.,m1=rmb,m2=(-rmb),den=cda DO iut=1,2 DO jut=1,2 c34a(iut,jut)=(v3_4a.a(iut,jut)+rmb*v3_4a.b(iut,jut)+(-rmb & )*v3_4a.c(iut,jut)+rmb*(-rmb)*v3_4a.d(iut,jut))/cda ENDDO ENDDO ENDIF !(isusy=1, iha=0,1,3,5,6) ENDIF !(imix=1,-2) IF(imix.EQ.-1.OR.imix.EQ.-2)THEN * quqd -- p=p1,q=p154 quqd=p1(0)*p154(0)-p1(1)*p154(1)-p1(2)*p154(2)-p1(3)*p154( & 3) DO i5=1,2 DO i4=1,2 * TL0 -- qu=p1,qd=p154,v=c54z(i5,i4).e,a=l1_54z(i5,i4).a,c=l1_54z(i5,i4).c, * cr=zer,cl=zel,nsum=0 ceps_0=-c54z(i5,i4).ek0*(p1(2)*p154(3)-p154(2)*p1(3))+p1k0 & *(c54z(i5,i4).e(2)*p154(3)-p154(2)*c54z(i5,i4).e(3))-p154 & k0*(c54z(i5,i4).e(2)*p1(3)-p1(2)*c54z(i5,i4).e(3)) ceps_0=ceps_0*cim ceps_1=-c54z(i5,i4).e(3)*p1k0+p1(3)*c54z(i5,i4).ek0 ceps_1=ceps_1*cim cvqu=c54z(i5,i4).e(0)*p1(0)-c54z(i5,i4).e(1)*p1(1)-c54z(i5 & ,i4).e(2)*p1(2)-c54z(i5,i4).e(3)*p1(3) cvqd=c54z(i5,i4).e(0)*p154(0)-c54z(i5,i4).e(1)*p154(1)-c54 & z(i5,i4).e(2)*p154(2)-c54z(i5,i4).e(3)*p154(3) cauxa=-c54z(i5,i4).ek0*quqd+p1k0*cvqd+p154k0*cvqu cauxc=+c54z(i5,i4).ek0*p1(2)-p1k0*c54z(i5,i4).e(2) l1_54z(i5,i4).a(1)=zer*(cauxa+ceps_0) l1_54z(i5,i4).a(2)=zel*(cauxa-ceps_0) l1_54z(i5,i4).c(1)=zer*(cauxc+ceps_1) l1_54z(i5,i4).c(2)=zel*(-cauxc+ceps_1) END DO END DO * quqd -- p=p154,q=p2 quqd=p154(0)*p2(0)-p154(1)*p2(1)-p154(2)*p2(2)-p154(3)*p2( & 3) DO i3=1,2 DO i6=1,2 * TR0 -- qu=p154,qd=p2,v=c36z(i3,i6).e,a=r2_36z(i3,i6).a,b=r2_36z(i3,i6).b, * cr=zer,cl=zel,nsum=0 ceps_0=-c36z(i3,i6).ek0*(p154(2)*p2(3)-p2(2)*p154(3))+p154 & k0*(c36z(i3,i6).e(2)*p2(3)-p2(2)*c36z(i3,i6).e(3))-p2k0*( & c36z(i3,i6).e(2)*p154(3)-p154(2)*c36z(i3,i6).e(3)) ceps_0=ceps_0*cim ceps_2=-c36z(i3,i6).e(3)*p2k0+p2(3)*c36z(i3,i6).ek0 ceps_2=ceps_2*cim cvqu=c36z(i3,i6).e(0)*p154(0)-c36z(i3,i6).e(1)*p154(1)-c36 & z(i3,i6).e(2)*p154(2)-c36z(i3,i6).e(3)*p154(3) cvqd=c36z(i3,i6).e(0)*p2(0)-c36z(i3,i6).e(1)*p2(1)-c36z(i3 & ,i6).e(2)*p2(2)-c36z(i3,i6).e(3)*p2(3) cauxa=-c36z(i3,i6).ek0*quqd+p154k0*cvqd+p2k0*cvqu cauxb=-c36z(i3,i6).ek0*p2(2)+p2k0*c36z(i3,i6).e(2) r2_36z(i3,i6).a(1)=zer*(cauxa+ceps_0) r2_36z(i3,i6).a(2)=zel*(cauxa-ceps_0) r2_36z(i3,i6).b(1)=zel*(cauxb-ceps_2) r2_36z(i3,i6).b(2)=zer*(-cauxb-ceps_2) END DO END DO * Diagramma ( 4 ) DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 * TLTR0 -- aa=cres1(&,i3,i4,i5,i6),a1=l1_54z(i5,i4).a,c1=l1_54z(i5,i4).c,a2 * =r2_36z(i3,i6).a,b2=r2_36z(i3,i6).b,prq=p154q,den=(p154q*p154k0),nsum=0 cres1(1,i3,i4,i5,i6)=( l1_54z(i5,i4).a(1)*r2_36z(i3,i6). & a( & 1)+l1_54z(i5,i4).c(1)*p154q*r2_36z(i3,i6).b(2) ) & /(p154q*p & 154k0) cres1(2,i3,i4,i5,i6)=( l1_54z(i5,i4).c(2) & *p154q*r2_36z(i3, & i6).b(1)+l1_54z(i5,i4).a(2)*r2_36z(i3,i6).a(2) ) & /(p154q*p & 154k0) END DO END DO END DO END DO * quqd -- p=p1,q=p136 quqd=p1(0)*p136(0)-p1(1)*p136(1)-p1(2)*p136(2)-p1(3)*p136( & 3) DO i3=1,2 DO i6=1,2 * TL0 -- qu=p1,qd=p136,v=c36z(i3,i6).e,a=l1_36z(i3,i6).a,c=l1_36z(i3,i6).c, * cr=zer,cl=zel,nsum=0 ceps_0=-c36z(i3,i6).ek0*(p1(2)*p136(3)-p136(2)*p1(3))+p1k0 & *(c36z(i3,i6).e(2)*p136(3)-p136(2)*c36z(i3,i6).e(3))-p136 & k0*(c36z(i3,i6).e(2)*p1(3)-p1(2)*c36z(i3,i6).e(3)) ceps_0=ceps_0*cim ceps_1=-c36z(i3,i6).e(3)*p1k0+p1(3)*c36z(i3,i6).ek0 ceps_1=ceps_1*cim cvqu=c36z(i3,i6).e(0)*p1(0)-c36z(i3,i6).e(1)*p1(1)-c36z(i3 & ,i6).e(2)*p1(2)-c36z(i3,i6).e(3)*p1(3) cvqd=c36z(i3,i6).e(0)*p136(0)-c36z(i3,i6).e(1)*p136(1)-c36 & z(i3,i6).e(2)*p136(2)-c36z(i3,i6).e(3)*p136(3) cauxa=-c36z(i3,i6).ek0*quqd+p1k0*cvqd+p136k0*cvqu cauxc=+c36z(i3,i6).ek0*p1(2)-p1k0*c36z(i3,i6).e(2) l1_36z(i3,i6).a(1)=zer*(cauxa+ceps_0) l1_36z(i3,i6).a(2)=zel*(cauxa-ceps_0) l1_36z(i3,i6).c(1)=zer*(cauxc+ceps_1) l1_36z(i3,i6).c(2)=zel*(-cauxc+ceps_1) END DO END DO * quqd -- p=p136,q=p2 quqd=p136(0)*p2(0)-p136(1)*p2(1)-p136(2)*p2(2)-p136(3)*p2( & 3) DO i5=1,2 DO i4=1,2 * TR0 -- qu=p136,qd=p2,v=c54z(i5,i4).e,a=r2_54z(i5,i4).a,b=r2_54z(i5,i4).b, * cr=zer,cl=zel,nsum=0 ceps_0=-c54z(i5,i4).ek0*(p136(2)*p2(3)-p2(2)*p136(3))+p136 & k0*(c54z(i5,i4).e(2)*p2(3)-p2(2)*c54z(i5,i4).e(3))-p2k0*( & c54z(i5,i4).e(2)*p136(3)-p136(2)*c54z(i5,i4).e(3)) ceps_0=ceps_0*cim ceps_2=-c54z(i5,i4).e(3)*p2k0+p2(3)*c54z(i5,i4).ek0 ceps_2=ceps_2*cim cvqu=c54z(i5,i4).e(0)*p136(0)-c54z(i5,i4).e(1)*p136(1)-c54 & z(i5,i4).e(2)*p136(2)-c54z(i5,i4).e(3)*p136(3) cvqd=c54z(i5,i4).e(0)*p2(0)-c54z(i5,i4).e(1)*p2(1)-c54z(i5 & ,i4).e(2)*p2(2)-c54z(i5,i4).e(3)*p2(3) cauxa=-c54z(i5,i4).ek0*quqd+p136k0*cvqd+p2k0*cvqu cauxb=-c54z(i5,i4).ek0*p2(2)+p2k0*c54z(i5,i4).e(2) r2_54z(i5,i4).a(1)=zer*(cauxa+ceps_0) r2_54z(i5,i4).a(2)=zel*(cauxa-ceps_0) r2_54z(i5,i4).b(1)=zel*(cauxb-ceps_2) r2_54z(i5,i4).b(2)=zer*(-cauxb-ceps_2) END DO END DO * Diagramma ( 4+8 ) DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 * TLTR0 -- aa=cres1(&,i3,i4,i5,i6),a1=l1_36z(i3,i6).a,c1=l1_36z(i3,i6).c,a2 * =r2_54z(i5,i4).a,b2=r2_54z(i5,i4).b,prq=p136q,den=(p136q*p136k0),nsum=1 cres1(1,i3,i4,i5,i6)=cres1(1,i3,i4,i5,i6)+( l1_36z(i3, & i6). & a(1)*r2_54z(i5,i4).a(1)+l1_36z(i3,i6).c(1) & *p136q*r2_54z(i & 5,i4).b(2) )/(p136q*p136k0) cres1(2,i3,i4,i5,i6)=cres1(2,i3,i4,i5,i6)+( l1_36z(i3, & i6). & c(2)*p136q*r2_54z(i5,i4).b(1)+l1_36z(i3,i6).a(2) & *r2_54z(i & 5,i4).a(2) )/(p136q*p136k0) END DO END DO END DO END DO * quqd -- p=p1,q=p156 quqd=p1(0)*p156(0)-p1(1)*p156(1)-p1(2)*p156(2)-p1(3)*p156( & 3) DO i5=1,2 DO i6=1,2 * TL0 -- qu=p1,qd=p156,v=c56z(i5,i6).e,a=l1_56z(i5,i6).a,c=l1_56z(i5,i6).c, * cr=zer,cl=zel,nsum=0 ceps_0=-c56z(i5,i6).ek0*(p1(2)*p156(3)-p156(2)*p1(3))+p1k0 & *(c56z(i5,i6).e(2)*p156(3)-p156(2)*c56z(i5,i6).e(3))-p156 & k0*(c56z(i5,i6).e(2)*p1(3)-p1(2)*c56z(i5,i6).e(3)) ceps_0=ceps_0*cim ceps_1=-c56z(i5,i6).e(3)*p1k0+p1(3)*c56z(i5,i6).ek0 ceps_1=ceps_1*cim cvqu=c56z(i5,i6).e(0)*p1(0)-c56z(i5,i6).e(1)*p1(1)-c56z(i5 & ,i6).e(2)*p1(2)-c56z(i5,i6).e(3)*p1(3) cvqd=c56z(i5,i6).e(0)*p156(0)-c56z(i5,i6).e(1)*p156(1)-c56 & z(i5,i6).e(2)*p156(2)-c56z(i5,i6).e(3)*p156(3) cauxa=-c56z(i5,i6).ek0*quqd+p1k0*cvqd+p156k0*cvqu cauxc=+c56z(i5,i6).ek0*p1(2)-p1k0*c56z(i5,i6).e(2) l1_56z(i5,i6).a(1)=zer*(cauxa+ceps_0) l1_56z(i5,i6).a(2)=zel*(cauxa-ceps_0) l1_56z(i5,i6).c(1)=zer*(cauxc+ceps_1) l1_56z(i5,i6).c(2)=zel*(-cauxc+ceps_1) END DO END DO * quqd -- p=p156,q=p2 quqd=p156(0)*p2(0)-p156(1)*p2(1)-p156(2)*p2(2)-p156(3)*p2( & 3) DO i3=1,2 DO i4=1,2 * TR0 -- qu=p156,qd=p2,v=c34z(i3,i4).e,a=r2_34z(i3,i4).a,b=r2_34z(i3,i4).b, * cr=zer,cl=zel,nsum=0 ceps_0=-c34z(i3,i4).ek0*(p156(2)*p2(3)-p2(2)*p156(3))+p156 & k0*(c34z(i3,i4).e(2)*p2(3)-p2(2)*c34z(i3,i4).e(3))-p2k0*( & c34z(i3,i4).e(2)*p156(3)-p156(2)*c34z(i3,i4).e(3)) ceps_0=ceps_0*cim ceps_2=-c34z(i3,i4).e(3)*p2k0+p2(3)*c34z(i3,i4).ek0 ceps_2=ceps_2*cim cvqu=c34z(i3,i4).e(0)*p156(0)-c34z(i3,i4).e(1)*p156(1)-c34 & z(i3,i4).e(2)*p156(2)-c34z(i3,i4).e(3)*p156(3) cvqd=c34z(i3,i4).e(0)*p2(0)-c34z(i3,i4).e(1)*p2(1)-c34z(i3 & ,i4).e(2)*p2(2)-c34z(i3,i4).e(3)*p2(3) cauxa=-c34z(i3,i4).ek0*quqd+p156k0*cvqd+p2k0*cvqu cauxb=-c34z(i3,i4).ek0*p2(2)+p2k0*c34z(i3,i4).e(2) r2_34z(i3,i4).a(1)=zer*(cauxa+ceps_0) r2_34z(i3,i4).a(2)=zel*(cauxa-ceps_0) r2_34z(i3,i4).b(1)=zel*(cauxb-ceps_2) r2_34z(i3,i4).b(2)=zer*(-cauxb-ceps_2) END DO END DO * Diagramma ( 12 ) DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 * TLTR0 -- aa=cres2(&,i3,i4,i5,i6),a1=l1_56z(i5,i6).a,c1=l1_56z(i5,i6).c,a2 * =r2_34z(i3,i4).a,b2=r2_34z(i3,i4).b,prq=p156q,den=(p156q*p156k0),nsum=0 cres2(1,i3,i4,i5,i6)=( l1_56z(i5,i6).a(1)*r2_34z(i3,i4). & a( & 1)+l1_56z(i5,i6).c(1)*p156q*r2_34z(i3,i4).b(2) ) & /(p156q*p & 156k0) cres2(2,i3,i4,i5,i6)=( l1_56z(i5,i6).c(2) & *p156q*r2_34z(i3, & i4).b(1)+l1_56z(i5,i6).a(2)*r2_34z(i3,i4).a(2) ) & /(p156q*p & 156k0) END DO END DO END DO END DO * quqd -- p=p1,q=p134 quqd=p1(0)*p134(0)-p1(1)*p134(1)-p1(2)*p134(2)-p1(3)*p134( & 3) DO i3=1,2 DO i4=1,2 * TL0 -- qu=p1,qd=p134,v=c34z(i3,i4).e,a=l1_34z(i3,i4).a,c=l1_34z(i3,i4).c, * cr=zer,cl=zel,nsum=0 ceps_0=-c34z(i3,i4).ek0*(p1(2)*p134(3)-p134(2)*p1(3))+p1k0 & *(c34z(i3,i4).e(2)*p134(3)-p134(2)*c34z(i3,i4).e(3))-p134 & k0*(c34z(i3,i4).e(2)*p1(3)-p1(2)*c34z(i3,i4).e(3)) ceps_0=ceps_0*cim ceps_1=-c34z(i3,i4).e(3)*p1k0+p1(3)*c34z(i3,i4).ek0 ceps_1=ceps_1*cim cvqu=c34z(i3,i4).e(0)*p1(0)-c34z(i3,i4).e(1)*p1(1)-c34z(i3 & ,i4).e(2)*p1(2)-c34z(i3,i4).e(3)*p1(3) cvqd=c34z(i3,i4).e(0)*p134(0)-c34z(i3,i4).e(1)*p134(1)-c34 & z(i3,i4).e(2)*p134(2)-c34z(i3,i4).e(3)*p134(3) cauxa=-c34z(i3,i4).ek0*quqd+p1k0*cvqd+p134k0*cvqu cauxc=+c34z(i3,i4).ek0*p1(2)-p1k0*c34z(i3,i4).e(2) l1_34z(i3,i4).a(1)=zer*(cauxa+ceps_0) l1_34z(i3,i4).a(2)=zel*(cauxa-ceps_0) l1_34z(i3,i4).c(1)=zer*(cauxc+ceps_1) l1_34z(i3,i4).c(2)=zel*(-cauxc+ceps_1) END DO END DO * quqd -- p=p134,q=p2 quqd=p134(0)*p2(0)-p134(1)*p2(1)-p134(2)*p2(2)-p134(3)*p2( & 3) DO i5=1,2 DO i6=1,2 * TR0 -- qu=p134,qd=p2,v=c56z(i5,i6).e,a=r2_56z(i5,i6).a,b=r2_56z(i5,i6).b, * cr=zer,cl=zel,nsum=0 ceps_0=-c56z(i5,i6).ek0*(p134(2)*p2(3)-p2(2)*p134(3))+p134 & k0*(c56z(i5,i6).e(2)*p2(3)-p2(2)*c56z(i5,i6).e(3))-p2k0*( & c56z(i5,i6).e(2)*p134(3)-p134(2)*c56z(i5,i6).e(3)) ceps_0=ceps_0*cim ceps_2=-c56z(i5,i6).e(3)*p2k0+p2(3)*c56z(i5,i6).ek0 ceps_2=ceps_2*cim cvqu=c56z(i5,i6).e(0)*p134(0)-c56z(i5,i6).e(1)*p134(1)-c56 & z(i5,i6).e(2)*p134(2)-c56z(i5,i6).e(3)*p134(3) cvqd=c56z(i5,i6).e(0)*p2(0)-c56z(i5,i6).e(1)*p2(1)-c56z(i5 & ,i6).e(2)*p2(2)-c56z(i5,i6).e(3)*p2(3) cauxa=-c56z(i5,i6).ek0*quqd+p134k0*cvqd+p2k0*cvqu cauxb=-c56z(i5,i6).ek0*p2(2)+p2k0*c56z(i5,i6).e(2) r2_56z(i5,i6).a(1)=zer*(cauxa+ceps_0) r2_56z(i5,i6).a(2)=zel*(cauxa-ceps_0) r2_56z(i5,i6).b(1)=zel*(cauxb-ceps_2) r2_56z(i5,i6).b(2)=zer*(-cauxb-ceps_2) END DO END DO * Diagramma ( 12+16 ) DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 * TLTR0 -- aa=cres2(&,i3,i4,i5,i6),a1=l1_34z(i3,i4).a,c1=l1_34z(i3,i4).c,a2 * =r2_56z(i5,i6).a,b2=r2_56z(i5,i6).b,prq=p134q,den=(p134q*p134k0),nsum=1 cres2(1,i3,i4,i5,i6)=cres2(1,i3,i4,i5,i6)+( l1_34z(i3, & i4). & a(1)*r2_56z(i5,i6).a(1)+l1_34z(i3,i4).c(1) & *p134q*r2_56z(i & 5,i6).b(2) )/(p134q*p134k0) cres2(2,i3,i4,i5,i6)=cres2(2,i3,i4,i5,i6)+( l1_34z(i3, & i4). & c(2)*p134q*r2_56z(i5,i6).b(1)+l1_34z(i3,i4).a(2) & *r2_56z(i & 5,i6).a(2) )/(p134q*p134k0) END DO END DO END DO END DO * quqd -- p=p1,q=p154 quqd=p1(0)*p154(0)-p1(1)*p154(1)-p1(2)*p154(2)-p1(3)*p154( & 3) DO i5=1,2 DO i4=1,2 * TL0 -- qu=p1,qd=p154,v=c54f(i5,i4).e,a=l1_54f(i5,i4).a,c=l1_54f(i5,i4).c, * cr=fer,cl=fel,nsum=0 ceps_0=-c54f(i5,i4).ek0*(p1(2)*p154(3)-p154(2)*p1(3))+p1k0 & *(c54f(i5,i4).e(2)*p154(3)-p154(2)*c54f(i5,i4).e(3))-p154 & k0*(c54f(i5,i4).e(2)*p1(3)-p1(2)*c54f(i5,i4).e(3)) ceps_0=ceps_0*cim ceps_1=-c54f(i5,i4).e(3)*p1k0+p1(3)*c54f(i5,i4).ek0 ceps_1=ceps_1*cim cvqu=c54f(i5,i4).e(0)*p1(0)-c54f(i5,i4).e(1)*p1(1)-c54f(i5 & ,i4).e(2)*p1(2)-c54f(i5,i4).e(3)*p1(3) cvqd=c54f(i5,i4).e(0)*p154(0)-c54f(i5,i4).e(1)*p154(1)-c54 & f(i5,i4).e(2)*p154(2)-c54f(i5,i4).e(3)*p154(3) cauxa=-c54f(i5,i4).ek0*quqd+p1k0*cvqd+p154k0*cvqu cauxc=+c54f(i5,i4).ek0*p1(2)-p1k0*c54f(i5,i4).e(2) l1_54f(i5,i4).a(1)=fer*(cauxa+ceps_0) l1_54f(i5,i4).a(2)=fel*(cauxa-ceps_0) l1_54f(i5,i4).c(1)=fer*(cauxc+ceps_1) l1_54f(i5,i4).c(2)=fel*(-cauxc+ceps_1) END DO END DO * quqd -- p=p154,q=p2 quqd=p154(0)*p2(0)-p154(1)*p2(1)-p154(2)*p2(2)-p154(3)*p2( & 3) DO i3=1,2 DO i6=1,2 * TR0 -- qu=p154,qd=p2,v=c36f(i3,i6).e,a=r2_36f(i3,i6).a,b=r2_36f(i3,i6).b, * cr=fer,cl=fel,nsum=0 ceps_0=-c36f(i3,i6).ek0*(p154(2)*p2(3)-p2(2)*p154(3))+p154 & k0*(c36f(i3,i6).e(2)*p2(3)-p2(2)*c36f(i3,i6).e(3))-p2k0*( & c36f(i3,i6).e(2)*p154(3)-p154(2)*c36f(i3,i6).e(3)) ceps_0=ceps_0*cim ceps_2=-c36f(i3,i6).e(3)*p2k0+p2(3)*c36f(i3,i6).ek0 ceps_2=ceps_2*cim cvqu=c36f(i3,i6).e(0)*p154(0)-c36f(i3,i6).e(1)*p154(1)-c36 & f(i3,i6).e(2)*p154(2)-c36f(i3,i6).e(3)*p154(3) cvqd=c36f(i3,i6).e(0)*p2(0)-c36f(i3,i6).e(1)*p2(1)-c36f(i3 & ,i6).e(2)*p2(2)-c36f(i3,i6).e(3)*p2(3) cauxa=-c36f(i3,i6).ek0*quqd+p154k0*cvqd+p2k0*cvqu cauxb=-c36f(i3,i6).ek0*p2(2)+p2k0*c36f(i3,i6).e(2) r2_36f(i3,i6).a(1)=fer*(cauxa+ceps_0) r2_36f(i3,i6).a(2)=fel*(cauxa-ceps_0) r2_36f(i3,i6).b(1)=fel*(cauxb-ceps_2) r2_36f(i3,i6).b(2)=fer*(-cauxb-ceps_2) END DO END DO * Diagramma ( 1 ) DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 * TLTR0 -- aa=cres3(&,i3,i4,i5,i6),a1=l1_54f(i5,i4).a,c1=l1_54f(i5,i4).c,a2 * =r2_36f(i3,i6).a,b2=r2_36f(i3,i6).b,prq=p154q,den=(p154q*p154k0),nsum=0 cres3(1,i3,i4,i5,i6)=( l1_54f(i5,i4).a(1)*r2_36f(i3,i6). & a( & 1)+l1_54f(i5,i4).c(1)*p154q*r2_36f(i3,i6).b(2) ) & /(p154q*p & 154k0) cres3(2,i3,i4,i5,i6)=( l1_54f(i5,i4).c(2) & *p154q*r2_36f(i3, & i6).b(1)+l1_54f(i5,i4).a(2)*r2_36f(i3,i6).a(2) ) & /(p154q*p & 154k0) END DO END DO END DO END DO * quqd -- p=p1,q=p136 quqd=p1(0)*p136(0)-p1(1)*p136(1)-p1(2)*p136(2)-p1(3)*p136( & 3) DO i3=1,2 DO i6=1,2 * TL0 -- qu=p1,qd=p136,v=c36f(i3,i6).e,a=l1_36f(i3,i6).a,c=l1_36f(i3,i6).c, * cr=fer,cl=fel,nsum=0 ceps_0=-c36f(i3,i6).ek0*(p1(2)*p136(3)-p136(2)*p1(3))+p1k0 & *(c36f(i3,i6).e(2)*p136(3)-p136(2)*c36f(i3,i6).e(3))-p136 & k0*(c36f(i3,i6).e(2)*p1(3)-p1(2)*c36f(i3,i6).e(3)) ceps_0=ceps_0*cim ceps_1=-c36f(i3,i6).e(3)*p1k0+p1(3)*c36f(i3,i6).ek0 ceps_1=ceps_1*cim cvqu=c36f(i3,i6).e(0)*p1(0)-c36f(i3,i6).e(1)*p1(1)-c36f(i3 & ,i6).e(2)*p1(2)-c36f(i3,i6).e(3)*p1(3) cvqd=c36f(i3,i6).e(0)*p136(0)-c36f(i3,i6).e(1)*p136(1)-c36 & f(i3,i6).e(2)*p136(2)-c36f(i3,i6).e(3)*p136(3) cauxa=-c36f(i3,i6).ek0*quqd+p1k0*cvqd+p136k0*cvqu cauxc=+c36f(i3,i6).ek0*p1(2)-p1k0*c36f(i3,i6).e(2) l1_36f(i3,i6).a(1)=fer*(cauxa+ceps_0) l1_36f(i3,i6).a(2)=fel*(cauxa-ceps_0) l1_36f(i3,i6).c(1)=fer*(cauxc+ceps_1) l1_36f(i3,i6).c(2)=fel*(-cauxc+ceps_1) END DO END DO * quqd -- p=p136,q=p2 quqd=p136(0)*p2(0)-p136(1)*p2(1)-p136(2)*p2(2)-p136(3)*p2( & 3) DO i5=1,2 DO i4=1,2 * TR0 -- qu=p136,qd=p2,v=c54f(i5,i4).e,a=r2_54f(i5,i4).a,b=r2_54f(i5,i4).b, * cr=fer,cl=fel,nsum=0 ceps_0=-c54f(i5,i4).ek0*(p136(2)*p2(3)-p2(2)*p136(3))+p136 & k0*(c54f(i5,i4).e(2)*p2(3)-p2(2)*c54f(i5,i4).e(3))-p2k0*( & c54f(i5,i4).e(2)*p136(3)-p136(2)*c54f(i5,i4).e(3)) ceps_0=ceps_0*cim ceps_2=-c54f(i5,i4).e(3)*p2k0+p2(3)*c54f(i5,i4).ek0 ceps_2=ceps_2*cim cvqu=c54f(i5,i4).e(0)*p136(0)-c54f(i5,i4).e(1)*p136(1)-c54 & f(i5,i4).e(2)*p136(2)-c54f(i5,i4).e(3)*p136(3) cvqd=c54f(i5,i4).e(0)*p2(0)-c54f(i5,i4).e(1)*p2(1)-c54f(i5 & ,i4).e(2)*p2(2)-c54f(i5,i4).e(3)*p2(3) cauxa=-c54f(i5,i4).ek0*quqd+p136k0*cvqd+p2k0*cvqu cauxb=-c54f(i5,i4).ek0*p2(2)+p2k0*c54f(i5,i4).e(2) r2_54f(i5,i4).a(1)=fer*(cauxa+ceps_0) r2_54f(i5,i4).a(2)=fel*(cauxa-ceps_0) r2_54f(i5,i4).b(1)=fel*(cauxb-ceps_2) r2_54f(i5,i4).b(2)=fer*(-cauxb-ceps_2) END DO END DO * Diagramma ( 1+5 ) DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 * TLTR0 -- aa=cres3(&,i3,i4,i5,i6),a1=l1_36f(i3,i6).a,c1=l1_36f(i3,i6).c,a2 * =r2_54f(i5,i4).a,b2=r2_54f(i5,i4).b,prq=p136q,den=(p136q*p136k0),nsum=1 cres3(1,i3,i4,i5,i6)=cres3(1,i3,i4,i5,i6)+( l1_36f(i3, & i6). & a(1)*r2_54f(i5,i4).a(1)+l1_36f(i3,i6).c(1) & *p136q*r2_54f(i & 5,i4).b(2) )/(p136q*p136k0) cres3(2,i3,i4,i5,i6)=cres3(2,i3,i4,i5,i6)+( l1_36f(i3, & i6). & c(2)*p136q*r2_54f(i5,i4).b(1)+l1_36f(i3,i6).a(2) & *r2_54f(i & 5,i4).a(2) )/(p136q*p136k0) END DO END DO END DO END DO * quqd -- p=p1,q=p156 quqd=p1(0)*p156(0)-p1(1)*p156(1)-p1(2)*p156(2)-p1(3)*p156( & 3) DO i5=1,2 DO i6=1,2 * TL0 -- qu=p1,qd=p156,v=c56f(i5,i6).e,a=l1_56f(i5,i6).a,c=l1_56f(i5,i6).c, * cr=fer,cl=fel,nsum=0 ceps_0=-c56f(i5,i6).ek0*(p1(2)*p156(3)-p156(2)*p1(3))+p1k0 & *(c56f(i5,i6).e(2)*p156(3)-p156(2)*c56f(i5,i6).e(3))-p156 & k0*(c56f(i5,i6).e(2)*p1(3)-p1(2)*c56f(i5,i6).e(3)) ceps_0=ceps_0*cim ceps_1=-c56f(i5,i6).e(3)*p1k0+p1(3)*c56f(i5,i6).ek0 ceps_1=ceps_1*cim cvqu=c56f(i5,i6).e(0)*p1(0)-c56f(i5,i6).e(1)*p1(1)-c56f(i5 & ,i6).e(2)*p1(2)-c56f(i5,i6).e(3)*p1(3) cvqd=c56f(i5,i6).e(0)*p156(0)-c56f(i5,i6).e(1)*p156(1)-c56 & f(i5,i6).e(2)*p156(2)-c56f(i5,i6).e(3)*p156(3) cauxa=-c56f(i5,i6).ek0*quqd+p1k0*cvqd+p156k0*cvqu cauxc=+c56f(i5,i6).ek0*p1(2)-p1k0*c56f(i5,i6).e(2) l1_56f(i5,i6).a(1)=fer*(cauxa+ceps_0) l1_56f(i5,i6).a(2)=fel*(cauxa-ceps_0) l1_56f(i5,i6).c(1)=fer*(cauxc+ceps_1) l1_56f(i5,i6).c(2)=fel*(-cauxc+ceps_1) END DO END DO * quqd -- p=p156,q=p2 quqd=p156(0)*p2(0)-p156(1)*p2(1)-p156(2)*p2(2)-p156(3)*p2( & 3) DO i3=1,2 DO i4=1,2 * TR0 -- qu=p156,qd=p2,v=c34f(i3,i4).e,a=r2_34f(i3,i4).a,b=r2_34f(i3,i4).b, * cr=fer,cl=fel,nsum=0 ceps_0=-c34f(i3,i4).ek0*(p156(2)*p2(3)-p2(2)*p156(3))+p156 & k0*(c34f(i3,i4).e(2)*p2(3)-p2(2)*c34f(i3,i4).e(3))-p2k0*( & c34f(i3,i4).e(2)*p156(3)-p156(2)*c34f(i3,i4).e(3)) ceps_0=ceps_0*cim ceps_2=-c34f(i3,i4).e(3)*p2k0+p2(3)*c34f(i3,i4).ek0 ceps_2=ceps_2*cim cvqu=c34f(i3,i4).e(0)*p156(0)-c34f(i3,i4).e(1)*p156(1)-c34 & f(i3,i4).e(2)*p156(2)-c34f(i3,i4).e(3)*p156(3) cvqd=c34f(i3,i4).e(0)*p2(0)-c34f(i3,i4).e(1)*p2(1)-c34f(i3 & ,i4).e(2)*p2(2)-c34f(i3,i4).e(3)*p2(3) cauxa=-c34f(i3,i4).ek0*quqd+p156k0*cvqd+p2k0*cvqu cauxb=-c34f(i3,i4).ek0*p2(2)+p2k0*c34f(i3,i4).e(2) r2_34f(i3,i4).a(1)=fer*(cauxa+ceps_0) r2_34f(i3,i4).a(2)=fel*(cauxa-ceps_0) r2_34f(i3,i4).b(1)=fel*(cauxb-ceps_2) r2_34f(i3,i4).b(2)=fer*(-cauxb-ceps_2) END DO END DO * Diagramma ( 9 ) DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 * TLTR0 -- aa=cres4(&,i3,i4,i5,i6),a1=l1_56f(i5,i6).a,c1=l1_56f(i5,i6).c,a2 * =r2_34f(i3,i4).a,b2=r2_34f(i3,i4).b,prq=p156q,den=(p156q*p156k0),nsum=0 cres4(1,i3,i4,i5,i6)=( l1_56f(i5,i6).a(1)*r2_34f(i3,i4). & a( & 1)+l1_56f(i5,i6).c(1)*p156q*r2_34f(i3,i4).b(2) ) & /(p156q*p & 156k0) cres4(2,i3,i4,i5,i6)=( l1_56f(i5,i6).c(2) & *p156q*r2_34f(i3, & i4).b(1)+l1_56f(i5,i6).a(2)*r2_34f(i3,i4).a(2) ) & /(p156q*p & 156k0) END DO END DO END DO END DO * quqd -- p=p1,q=p134 quqd=p1(0)*p134(0)-p1(1)*p134(1)-p1(2)*p134(2)-p1(3)*p134( & 3) DO i3=1,2 DO i4=1,2 * TL0 -- qu=p1,qd=p134,v=c34f(i3,i4).e,a=l1_34f(i3,i4).a,c=l1_34f(i3,i4).c, * cr=fer,cl=fel,nsum=0 ceps_0=-c34f(i3,i4).ek0*(p1(2)*p134(3)-p134(2)*p1(3))+p1k0 & *(c34f(i3,i4).e(2)*p134(3)-p134(2)*c34f(i3,i4).e(3))-p134 & k0*(c34f(i3,i4).e(2)*p1(3)-p1(2)*c34f(i3,i4).e(3)) ceps_0=ceps_0*cim ceps_1=-c34f(i3,i4).e(3)*p1k0+p1(3)*c34f(i3,i4).ek0 ceps_1=ceps_1*cim cvqu=c34f(i3,i4).e(0)*p1(0)-c34f(i3,i4).e(1)*p1(1)-c34f(i3 & ,i4).e(2)*p1(2)-c34f(i3,i4).e(3)*p1(3) cvqd=c34f(i3,i4).e(0)*p134(0)-c34f(i3,i4).e(1)*p134(1)-c34 & f(i3,i4).e(2)*p134(2)-c34f(i3,i4).e(3)*p134(3) cauxa=-c34f(i3,i4).ek0*quqd+p1k0*cvqd+p134k0*cvqu cauxc=+c34f(i3,i4).ek0*p1(2)-p1k0*c34f(i3,i4).e(2) l1_34f(i3,i4).a(1)=fer*(cauxa+ceps_0) l1_34f(i3,i4).a(2)=fel*(cauxa-ceps_0) l1_34f(i3,i4).c(1)=fer*(cauxc+ceps_1) l1_34f(i3,i4).c(2)=fel*(-cauxc+ceps_1) END DO END DO * quqd -- p=p134,q=p2 quqd=p134(0)*p2(0)-p134(1)*p2(1)-p134(2)*p2(2)-p134(3)*p2( & 3) DO i5=1,2 DO i6=1,2 * TR0 -- qu=p134,qd=p2,v=c56f(i5,i6).e,a=r2_56f(i5,i6).a,b=r2_56f(i5,i6).b, * cr=fer,cl=fel,nsum=0 ceps_0=-c56f(i5,i6).ek0*(p134(2)*p2(3)-p2(2)*p134(3))+p134 & k0*(c56f(i5,i6).e(2)*p2(3)-p2(2)*c56f(i5,i6).e(3))-p2k0*( & c56f(i5,i6).e(2)*p134(3)-p134(2)*c56f(i5,i6).e(3)) ceps_0=ceps_0*cim ceps_2=-c56f(i5,i6).e(3)*p2k0+p2(3)*c56f(i5,i6).ek0 ceps_2=ceps_2*cim cvqu=c56f(i5,i6).e(0)*p134(0)-c56f(i5,i6).e(1)*p134(1)-c56 & f(i5,i6).e(2)*p134(2)-c56f(i5,i6).e(3)*p134(3) cvqd=c56f(i5,i6).e(0)*p2(0)-c56f(i5,i6).e(1)*p2(1)-c56f(i5 & ,i6).e(2)*p2(2)-c56f(i5,i6).e(3)*p2(3) cauxa=-c56f(i5,i6).ek0*quqd+p134k0*cvqd+p2k0*cvqu cauxb=-c56f(i5,i6).ek0*p2(2)+p2k0*c56f(i5,i6).e(2) r2_56f(i5,i6).a(1)=fer*(cauxa+ceps_0) r2_56f(i5,i6).a(2)=fel*(cauxa-ceps_0) r2_56f(i5,i6).b(1)=fel*(cauxb-ceps_2) r2_56f(i5,i6).b(2)=fer*(-cauxb-ceps_2) END DO END DO * Diagramma ( 9+13 ) DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 * TLTR0 -- aa=cres4(&,i3,i4,i5,i6),a1=l1_34f(i3,i4).a,c1=l1_34f(i3,i4).c,a2 * =r2_56f(i5,i6).a,b2=r2_56f(i5,i6).b,prq=p134q,den=(p134q*p134k0),nsum=1 cres4(1,i3,i4,i5,i6)=cres4(1,i3,i4,i5,i6)+( l1_34f(i3, & i4). & a(1)*r2_56f(i5,i6).a(1)+l1_34f(i3,i4).c(1) & *p134q*r2_56f(i & 5,i6).b(2) )/(p134q*p134k0) cres4(2,i3,i4,i5,i6)=cres4(2,i3,i4,i5,i6)+( l1_34f(i3, & i4). & c(2)*p134q*r2_56f(i5,i6).b(1)+l1_34f(i3,i4).a(2) & *r2_56f(i & 5,i6).a(2) )/(p134q*p134k0) END DO END DO END DO END DO * Diagramma ( 2 ) DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 * TLTR0 -- aa=cres5(&,i3,i4,i5,i6),a1=l1_54f(i5,i4).a,c1=l1_54f(i5,i4).c,a2 * =r2_36z(i3,i6).a,b2=r2_36z(i3,i6).b,prq=p154q,den=(p154q*p154k0),nsum=0 cres5(1,i3,i4,i5,i6)=( l1_54f(i5,i4).a(1)*r2_36z(i3,i6). & a( & 1)+l1_54f(i5,i4).c(1)*p154q*r2_36z(i3,i6).b(2) ) & /(p154q*p & 154k0) cres5(2,i3,i4,i5,i6)=( l1_54f(i5,i4).c(2) & *p154q*r2_36z(i3, & i6).b(1)+l1_54f(i5,i4).a(2)*r2_36z(i3,i6).a(2) ) & /(p154q*p & 154k0) END DO END DO END DO END DO * Diagramma ( 2+6 ) DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 * TLTR0 -- aa=cres5(&,i3,i4,i5,i6),a1=l1_36z(i3,i6).a,c1=l1_36z(i3,i6).c,a2 * =r2_54f(i5,i4).a,b2=r2_54f(i5,i4).b,prq=p136q,den=(p136q*p136k0),nsum=1 cres5(1,i3,i4,i5,i6)=cres5(1,i3,i4,i5,i6)+( l1_36z(i3, & i6). & a(1)*r2_54f(i5,i4).a(1)+l1_36z(i3,i6).c(1) & *p136q*r2_54f(i & 5,i4).b(2) )/(p136q*p136k0) cres5(2,i3,i4,i5,i6)=cres5(2,i3,i4,i5,i6)+( l1_36z(i3, & i6). & c(2)*p136q*r2_54f(i5,i4).b(1)+l1_36z(i3,i6).a(2) & *r2_54f(i & 5,i4).a(2) )/(p136q*p136k0) END DO END DO END DO END DO * Diagramma ( 3 ) DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 * TLTR0 -- aa=cres6(&,i3,i4,i5,i6),a1=l1_36f(i3,i6).a,c1=l1_36f(i3,i6).c,a2 * =r2_54z(i5,i4).a,b2=r2_54z(i5,i4).b,prq=p136q,den=(p136q*p136k0),nsum=0 cres6(1,i3,i4,i5,i6)=( l1_36f(i3,i6).a(1)*r2_54z(i5,i4). & a( & 1)+l1_36f(i3,i6).c(1)*p136q*r2_54z(i5,i4).b(2) ) & /(p136q*p & 136k0) cres6(2,i3,i4,i5,i6)=( l1_36f(i3,i6).c(2) & *p136q*r2_54z(i5, & i4).b(1)+l1_36f(i3,i6).a(2)*r2_54z(i5,i4).a(2) ) & /(p136q*p & 136k0) END DO END DO END DO END DO * Diagramma ( 3+7 ) DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 * TLTR0 -- aa=cres6(&,i3,i4,i5,i6),a1=l1_54z(i5,i4).a,c1=l1_54z(i5,i4).c,a2 * =r2_36f(i3,i6).a,b2=r2_36f(i3,i6).b,prq=p154q,den=(p154q*p154k0),nsum=1 cres6(1,i3,i4,i5,i6)=cres6(1,i3,i4,i5,i6)+( l1_54z(i5, & i4). & a(1)*r2_36f(i3,i6).a(1)+l1_54z(i5,i4).c(1) & *p154q*r2_36f(i & 3,i6).b(2) )/(p154q*p154k0) cres6(2,i3,i4,i5,i6)=cres6(2,i3,i4,i5,i6)+( l1_54z(i5, & i4). & c(2)*p154q*r2_36f(i3,i6).b(1)+l1_54z(i5,i4).a(2) & *r2_36f(i & 3,i6).a(2) )/(p154q*p154k0) END DO END DO END DO END DO * Diagramma ( 10 ) DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 * TLTR0 -- aa=cres7(&,i3,i4,i5,i6),a1=l1_34f(i3,i4).a,c1=l1_34f(i3,i4).c,a2 * =r2_56z(i5,i6).a,b2=r2_56z(i5,i6).b,prq=p134q,den=(p134q*p134k0),nsum=0 cres7(1,i3,i4,i5,i6)=( l1_34f(i3,i4).a(1)*r2_56z(i5,i6). & a( & 1)+l1_34f(i3,i4).c(1)*p134q*r2_56z(i5,i6).b(2) ) & /(p134q*p & 134k0) cres7(2,i3,i4,i5,i6)=( l1_34f(i3,i4).c(2) & *p134q*r2_56z(i5, & i6).b(1)+l1_34f(i3,i4).a(2)*r2_56z(i5,i6).a(2) ) & /(p134q*p & 134k0) END DO END DO END DO END DO * Diagramma ( 10+14 ) DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 * TLTR0 -- aa=cres7(&,i3,i4,i5,i6),a1=l1_56z(i5,i6).a,c1=l1_56z(i5,i6).c,a2 * =r2_34f(i3,i4).a,b2=r2_34f(i3,i4).b,prq=p156q,den=(p156q*p156k0),nsum=1 cres7(1,i3,i4,i5,i6)=cres7(1,i3,i4,i5,i6)+( l1_56z(i5, & i6). & a(1)*r2_34f(i3,i4).a(1)+l1_56z(i5,i6).c(1) & *p156q*r2_34f(i & 3,i4).b(2) )/(p156q*p156k0) cres7(2,i3,i4,i5,i6)=cres7(2,i3,i4,i5,i6)+( l1_56z(i5, & i6). & c(2)*p156q*r2_34f(i3,i4).b(1)+l1_56z(i5,i6).a(2) & *r2_34f(i & 3,i4).a(2) )/(p156q*p156k0) END DO END DO END DO END DO * Diagramma ( 11 ) DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 * TLTR0 -- aa=cres8(&,i3,i4,i5,i6),a1=l1_56f(i5,i6).a,c1=l1_56f(i5,i6).c,a2 * =r2_34z(i3,i4).a,b2=r2_34z(i3,i4).b,prq=p156q,den=(p156q*p156k0),nsum=0 cres8(1,i3,i4,i5,i6)=( l1_56f(i5,i6).a(1)*r2_34z(i3,i4). & a( & 1)+l1_56f(i5,i6).c(1)*p156q*r2_34z(i3,i4).b(2) ) & /(p156q*p & 156k0) cres8(2,i3,i4,i5,i6)=( l1_56f(i5,i6).c(2) & *p156q*r2_34z(i3, & i4).b(1)+l1_56f(i5,i6).a(2)*r2_34z(i3,i4).a(2) ) & /(p156q*p & 156k0) END DO END DO END DO END DO * Diagramma ( 11+15 ) DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 * TLTR0 -- aa=cres8(&,i3,i4,i5,i6),a1=l1_34z(i3,i4).a,c1=l1_34z(i3,i4).c,a2 * =r2_56f(i5,i6).a,b2=r2_56f(i5,i6).b,prq=p134q,den=(p134q*p134k0),nsum=1 cres8(1,i3,i4,i5,i6)=cres8(1,i3,i4,i5,i6)+( l1_34z(i3, & i4). & a(1)*r2_56f(i5,i6).a(1)+l1_34z(i3,i4).c(1) & *p134q*r2_56f(i & 5,i6).b(2) )/(p134q*p134k0) cres8(2,i3,i4,i5,i6)=cres8(2,i3,i4,i5,i6)+( l1_34z(i3, & i4). & c(2)*p134q*r2_56f(i5,i6).b(1)+l1_34z(i3,i4).a(2) & *r2_56f(i & 5,i6).a(2) )/(p134q*p134k0) END DO END DO END DO END DO * quqd -- p=p5,q=p536 quqd=p5(0)*p536(0)-p5(1)*p536(1)-p5(2)*p536(2)-p5(3)*p536( & 3) DO i3=1,2 DO i6=1,2 * T -- qu=p5,qd=p536,v=c36z(i3,i6).e,a=l5_36(i3,i6).a,b=l5_36(i3,i6).b,c=l5 * _36(i3,i6).c,d=l5_36(i3,i6).d,cr=zqdr,cl=zqdl,nsum=0 ceps_0=-c36z(i3,i6).ek0*(p5(2)*p536(3)-p536(2)*p5(3))+p5k0 & *(c36z(i3,i6).e(2)*p536(3)-p536(2)*c36z(i3,i6).e(3))-p536 & k0*(c36z(i3,i6).e(2)*p5(3)-p5(2)*c36z(i3,i6).e(3)) ceps_0=ceps_0*cim ceps_1=-c36z(i3,i6).e(3)*p5k0+p5(3)*c36z(i3,i6).ek0 ceps_1=ceps_1*cim ceps_2=-c36z(i3,i6).e(3)*p536k0+p536(3)*c36z(i3,i6).ek0 ceps_2=ceps_2*cim cvqu=c36z(i3,i6).e(0)*p5(0)-c36z(i3,i6).e(1)*p5(1)-c36z(i3 & ,i6).e(2)*p5(2)-c36z(i3,i6).e(3)*p5(3) cvqd=c36z(i3,i6).e(0)*p536(0)-c36z(i3,i6).e(1)*p536(1)-c36 & z(i3,i6).e(2)*p536(2)-c36z(i3,i6).e(3)*p536(3) cauxa=-c36z(i3,i6).ek0*quqd+p5k0*cvqd+p536k0*cvqu cauxb=-c36z(i3,i6).ek0*p536(2)+p536k0*c36z(i3,i6).e(2) cauxc=+c36z(i3,i6).ek0*p5(2)-p5k0*c36z(i3,i6).e(2) l5_36(i3,i6).a(1,1)=zqdr*(cauxa+ceps_0) l5_36(i3,i6).a(2,2)=zqdl*(cauxa-ceps_0) l5_36(i3,i6).b(1,2)=zqdl*(cauxb-ceps_2) l5_36(i3,i6).b(2,1)=zqdr*(-cauxb-ceps_2) l5_36(i3,i6).c(1,2)=zqdr*(cauxc+ceps_1) l5_36(i3,i6).c(2,1)=zqdl*(-cauxc+ceps_1) l5_36(i3,i6).d(1,1)=zqdl*c36z(i3,i6).ek0 l5_36(i3,i6).d(2,2)=zqdr*c36z(i3,i6).ek0 END DO END DO * quqd -- p=p5,q=p534 quqd=p5(0)*p534(0)-p5(1)*p534(1)-p5(2)*p534(2)-p5(3)*p534( & 3) DO i3=1,2 DO i4=1,2 * T -- qu=p5,qd=p534,v=c34z(i3,i4).e,a=l5_34(i3,i4).a,b=l5_34(i3,i4).b,c=l5 * _34(i3,i4).c,d=l5_34(i3,i4).d,cr=zqdr,cl=zqdl,nsum=0 ceps_0=-c34z(i3,i4).ek0*(p5(2)*p534(3)-p534(2)*p5(3))+p5k0 & *(c34z(i3,i4).e(2)*p534(3)-p534(2)*c34z(i3,i4).e(3))-p534 & k0*(c34z(i3,i4).e(2)*p5(3)-p5(2)*c34z(i3,i4).e(3)) ceps_0=ceps_0*cim ceps_1=-c34z(i3,i4).e(3)*p5k0+p5(3)*c34z(i3,i4).ek0 ceps_1=ceps_1*cim ceps_2=-c34z(i3,i4).e(3)*p534k0+p534(3)*c34z(i3,i4).ek0 ceps_2=ceps_2*cim cvqu=c34z(i3,i4).e(0)*p5(0)-c34z(i3,i4).e(1)*p5(1)-c34z(i3 & ,i4).e(2)*p5(2)-c34z(i3,i4).e(3)*p5(3) cvqd=c34z(i3,i4).e(0)*p534(0)-c34z(i3,i4).e(1)*p534(1)-c34 & z(i3,i4).e(2)*p534(2)-c34z(i3,i4).e(3)*p534(3) cauxa=-c34z(i3,i4).ek0*quqd+p5k0*cvqd+p534k0*cvqu cauxb=-c34z(i3,i4).ek0*p534(2)+p534k0*c34z(i3,i4).e(2) cauxc=+c34z(i3,i4).ek0*p5(2)-p5k0*c34z(i3,i4).e(2) l5_34(i3,i4).a(1,1)=zqdr*(cauxa+ceps_0) l5_34(i3,i4).a(2,2)=zqdl*(cauxa-ceps_0) l5_34(i3,i4).b(1,2)=zqdl*(cauxb-ceps_2) l5_34(i3,i4).b(2,1)=zqdr*(-cauxb-ceps_2) l5_34(i3,i4).c(1,2)=zqdr*(cauxc+ceps_1) l5_34(i3,i4).c(2,1)=zqdl*(-cauxc+ceps_1) l5_34(i3,i4).d(1,1)=zqdl*c34z(i3,i4).ek0 l5_34(i3,i4).d(2,2)=zqdr*c34z(i3,i4).ek0 END DO END DO * quqd -- p=p3,q=p534 quqd=p3(0)*p534(0)-p3(1)*p534(1)-p3(2)*p534(2)-p3(3)*p534( & 3) DO i5=1,2 DO i4=1,2 * T -- qu=p3,qd=p534,v=c54z(i5,i4).e,a=l3_54(i5,i4).a,b=l3_54(i5,i4).b,c=l3 * _54(i5,i4).c,d=l3_54(i5,i4).d,cr=zqdr,cl=zqdl,nsum=0 ceps_0=-c54z(i5,i4).ek0*(p3(2)*p534(3)-p534(2)*p3(3))+p3k0 & *(c54z(i5,i4).e(2)*p534(3)-p534(2)*c54z(i5,i4).e(3))-p534 & k0*(c54z(i5,i4).e(2)*p3(3)-p3(2)*c54z(i5,i4).e(3)) ceps_0=ceps_0*cim ceps_1=-c54z(i5,i4).e(3)*p3k0+p3(3)*c54z(i5,i4).ek0 ceps_1=ceps_1*cim ceps_2=-c54z(i5,i4).e(3)*p534k0+p534(3)*c54z(i5,i4).ek0 ceps_2=ceps_2*cim cvqu=c54z(i5,i4).e(0)*p3(0)-c54z(i5,i4).e(1)*p3(1)-c54z(i5 & ,i4).e(2)*p3(2)-c54z(i5,i4).e(3)*p3(3) cvqd=c54z(i5,i4).e(0)*p534(0)-c54z(i5,i4).e(1)*p534(1)-c54 & z(i5,i4).e(2)*p534(2)-c54z(i5,i4).e(3)*p534(3) cauxa=-c54z(i5,i4).ek0*quqd+p3k0*cvqd+p534k0*cvqu cauxb=-c54z(i5,i4).ek0*p534(2)+p534k0*c54z(i5,i4).e(2) cauxc=+c54z(i5,i4).ek0*p3(2)-p3k0*c54z(i5,i4).e(2) l3_54(i5,i4).a(1,1)=zqdr*(cauxa+ceps_0) l3_54(i5,i4).a(2,2)=zqdl*(cauxa-ceps_0) l3_54(i5,i4).b(1,2)=zqdl*(cauxb-ceps_2) l3_54(i5,i4).b(2,1)=zqdr*(-cauxb-ceps_2) l3_54(i5,i4).c(1,2)=zqdr*(cauxc+ceps_1) l3_54(i5,i4).c(2,1)=zqdl*(-cauxc+ceps_1) l3_54(i5,i4).d(1,1)=zqdl*c54z(i5,i4).ek0 l3_54(i5,i4).d(2,2)=zqdr*c54z(i5,i4).ek0 END DO END DO * quqd -- p=p3,q=p536 quqd=p3(0)*p536(0)-p3(1)*p536(1)-p3(2)*p536(2)-p3(3)*p536( & 3) DO i5=1,2 DO i6=1,2 * T -- qu=p3,qd=p536,v=c56z(i5,i6).e,a=l3_56(i5,i6).a,b=l3_56(i5,i6).b,c=l3 * _56(i5,i6).c,d=l3_56(i5,i6).d,cr=zqdr,cl=zqdl,nsum=0 ceps_0=-c56z(i5,i6).ek0*(p3(2)*p536(3)-p536(2)*p3(3))+p3k0 & *(c56z(i5,i6).e(2)*p536(3)-p536(2)*c56z(i5,i6).e(3))-p536 & k0*(c56z(i5,i6).e(2)*p3(3)-p3(2)*c56z(i5,i6).e(3)) ceps_0=ceps_0*cim ceps_1=-c56z(i5,i6).e(3)*p3k0+p3(3)*c56z(i5,i6).ek0 ceps_1=ceps_1*cim ceps_2=-c56z(i5,i6).e(3)*p536k0+p536(3)*c56z(i5,i6).ek0 ceps_2=ceps_2*cim cvqu=c56z(i5,i6).e(0)*p3(0)-c56z(i5,i6).e(1)*p3(1)-c56z(i5 & ,i6).e(2)*p3(2)-c56z(i5,i6).e(3)*p3(3) cvqd=c56z(i5,i6).e(0)*p536(0)-c56z(i5,i6).e(1)*p536(1)-c56 & z(i5,i6).e(2)*p536(2)-c56z(i5,i6).e(3)*p536(3) cauxa=-c56z(i5,i6).ek0*quqd+p3k0*cvqd+p536k0*cvqu cauxb=-c56z(i5,i6).ek0*p536(2)+p536k0*c56z(i5,i6).e(2) cauxc=+c56z(i5,i6).ek0*p3(2)-p3k0*c56z(i5,i6).e(2) l3_56(i5,i6).a(1,1)=zqdr*(cauxa+ceps_0) l3_56(i5,i6).a(2,2)=zqdl*(cauxa-ceps_0) l3_56(i5,i6).b(1,2)=zqdl*(cauxb-ceps_2) l3_56(i5,i6).b(2,1)=zqdr*(-cauxb-ceps_2) l3_56(i5,i6).c(1,2)=zqdr*(cauxc+ceps_1) l3_56(i5,i6).c(2,1)=zqdl*(-cauxc+ceps_1) l3_56(i5,i6).d(1,1)=zqdl*c56z(i5,i6).ek0 l3_56(i5,i6).d(2,2)=zqdr*c56z(i5,i6).ek0 END DO END DO ENDIF * quqd -- p=p536,q=p4 quqd=p536(0)*p4(0)-p536(1)*p4(1)-p536(2)*p4(2)-p536(3)*p4( & 3) DO i1=1,2 * T -- qu=p536,qd=p4,v=c12f(i1).e,a=r4_12f(i1).a,b=r4_12f(i1).b,c=r4_12f(i1 * ).c,d=r4_12f(i1).d,cr=fqdr,cl=fqdl,nsum=0 ceps_0=-c12f(i1).ek0*(p536(2)*p4(3)-p4(2)*p536(3))+p536k0* & (c12f(i1).e(2)*p4(3)-p4(2)*c12f(i1).e(3))-p4k0*(c12f(i1). & e(2)*p536(3)-p536(2)*c12f(i1).e(3)) ceps_0=ceps_0*cim ceps_1=-c12f(i1).e(3)*p536k0+p536(3)*c12f(i1).ek0 ceps_1=ceps_1*cim ceps_2=-c12f(i1).e(3)*p4k0+p4(3)*c12f(i1).ek0 ceps_2=ceps_2*cim cvqu=c12f(i1).e(0)*p536(0)-c12f(i1).e(1)*p536(1)-c12f(i1). & e(2)*p536(2)-c12f(i1).e(3)*p536(3) cvqd=c12f(i1).e(0)*p4(0)-c12f(i1).e(1)*p4(1)-c12f(i1).e(2) & *p4(2)-c12f(i1).e(3)*p4(3) cauxa=-c12f(i1).ek0*quqd+p536k0*cvqd+p4k0*cvqu cauxb=-c12f(i1).ek0*p4(2)+p4k0*c12f(i1).e(2) cauxc=+c12f(i1).ek0*p536(2)-p536k0*c12f(i1).e(2) r4_12f(i1).a(1,1)=fqdr*(cauxa+ceps_0) r4_12f(i1).a(2,2)=fqdl*(cauxa-ceps_0) r4_12f(i1).b(1,2)=fqdl*(cauxb-ceps_2) r4_12f(i1).b(2,1)=fqdr*(-cauxb-ceps_2) r4_12f(i1).c(1,2)=fqdr*(cauxc+ceps_1) r4_12f(i1).c(2,1)=fqdl*(-cauxc+ceps_1) r4_12f(i1).d(1,1)=fqdl*c12f(i1).ek0 r4_12f(i1).d(2,2)=fqdr*c12f(i1).ek0 END DO DO i1=1,2 * T -- qu=p536,qd=p4,v=c12z(i1).e,a=r4_12z(i1).a,b=r4_12z(i1).b,c=r4_12z(i1 * ).c,d=r4_12z(i1).d,cr=zqdr,cl=zqdl,nsum=0 ceps_0=-c12z(i1).ek0*(p536(2)*p4(3)-p4(2)*p536(3))+p536k0* & (c12z(i1).e(2)*p4(3)-p4(2)*c12z(i1).e(3))-p4k0*(c12z(i1). & e(2)*p536(3)-p536(2)*c12z(i1).e(3)) ceps_0=ceps_0*cim ceps_1=-c12z(i1).e(3)*p536k0+p536(3)*c12z(i1).ek0 ceps_1=ceps_1*cim ceps_2=-c12z(i1).e(3)*p4k0+p4(3)*c12z(i1).ek0 ceps_2=ceps_2*cim cvqu=c12z(i1).e(0)*p536(0)-c12z(i1).e(1)*p536(1)-c12z(i1). & e(2)*p536(2)-c12z(i1).e(3)*p536(3) cvqd=c12z(i1).e(0)*p4(0)-c12z(i1).e(1)*p4(1)-c12z(i1).e(2) & *p4(2)-c12z(i1).e(3)*p4(3) cauxa=-c12z(i1).ek0*quqd+p536k0*cvqd+p4k0*cvqu cauxb=-c12z(i1).ek0*p4(2)+p4k0*c12z(i1).e(2) cauxc=+c12z(i1).ek0*p536(2)-p536k0*c12z(i1).e(2) r4_12z(i1).a(1,1)=zqdr*(cauxa+ceps_0) r4_12z(i1).a(2,2)=zqdl*(cauxa-ceps_0) r4_12z(i1).b(1,2)=zqdl*(cauxb-ceps_2) r4_12z(i1).b(2,1)=zqdr*(-cauxb-ceps_2) r4_12z(i1).c(1,2)=zqdr*(cauxc+ceps_1) r4_12z(i1).c(2,1)=zqdl*(-cauxc+ceps_1) r4_12z(i1).d(1,1)=zqdl*c12z(i1).ek0 r4_12z(i1).d(2,2)=zqdr*c12z(i1).ek0 END DO * quqd -- p=p534,q=p6 quqd=p534(0)*p6(0)-p534(1)*p6(1)-p534(2)*p6(2)-p534(3)*p6( & 3) DO i1=1,2 * T -- qu=p534,qd=p6,v=c12f(i1).e,a=r6_12f(i1).a,b=r6_12f(i1).b,c=r6_12f(i1 * ).c,d=r6_12f(i1).d,cr=fqdr,cl=fqdl,nsum=0 ceps_0=-c12f(i1).ek0*(p534(2)*p6(3)-p6(2)*p534(3))+p534k0* & (c12f(i1).e(2)*p6(3)-p6(2)*c12f(i1).e(3))-p6k0*(c12f(i1). & e(2)*p534(3)-p534(2)*c12f(i1).e(3)) ceps_0=ceps_0*cim ceps_1=-c12f(i1).e(3)*p534k0+p534(3)*c12f(i1).ek0 ceps_1=ceps_1*cim ceps_2=-c12f(i1).e(3)*p6k0+p6(3)*c12f(i1).ek0 ceps_2=ceps_2*cim cvqu=c12f(i1).e(0)*p534(0)-c12f(i1).e(1)*p534(1)-c12f(i1). & e(2)*p534(2)-c12f(i1).e(3)*p534(3) cvqd=c12f(i1).e(0)*p6(0)-c12f(i1).e(1)*p6(1)-c12f(i1).e(2) & *p6(2)-c12f(i1).e(3)*p6(3) cauxa=-c12f(i1).ek0*quqd+p534k0*cvqd+p6k0*cvqu cauxb=-c12f(i1).ek0*p6(2)+p6k0*c12f(i1).e(2) cauxc=+c12f(i1).ek0*p534(2)-p534k0*c12f(i1).e(2) r6_12f(i1).a(1,1)=fqdr*(cauxa+ceps_0) r6_12f(i1).a(2,2)=fqdl*(cauxa-ceps_0) r6_12f(i1).b(1,2)=fqdl*(cauxb-ceps_2) r6_12f(i1).b(2,1)=fqdr*(-cauxb-ceps_2) r6_12f(i1).c(1,2)=fqdr*(cauxc+ceps_1) r6_12f(i1).c(2,1)=fqdl*(-cauxc+ceps_1) r6_12f(i1).d(1,1)=fqdl*c12f(i1).ek0 r6_12f(i1).d(2,2)=fqdr*c12f(i1).ek0 END DO DO i1=1,2 * T -- qu=p534,qd=p6,v=c12z(i1).e,a=r6_12z(i1).a,b=r6_12z(i1).b,c=r6_12z(i1 * ).c,d=r6_12z(i1).d,cr=zqdr,cl=zqdl,nsum=0 ceps_0=-c12z(i1).ek0*(p534(2)*p6(3)-p6(2)*p534(3))+p534k0* & (c12z(i1).e(2)*p6(3)-p6(2)*c12z(i1).e(3))-p6k0*(c12z(i1). & e(2)*p534(3)-p534(2)*c12z(i1).e(3)) ceps_0=ceps_0*cim ceps_1=-c12z(i1).e(3)*p534k0+p534(3)*c12z(i1).ek0 ceps_1=ceps_1*cim ceps_2=-c12z(i1).e(3)*p6k0+p6(3)*c12z(i1).ek0 ceps_2=ceps_2*cim cvqu=c12z(i1).e(0)*p534(0)-c12z(i1).e(1)*p534(1)-c12z(i1). & e(2)*p534(2)-c12z(i1).e(3)*p534(3) cvqd=c12z(i1).e(0)*p6(0)-c12z(i1).e(1)*p6(1)-c12z(i1).e(2) & *p6(2)-c12z(i1).e(3)*p6(3) cauxa=-c12z(i1).ek0*quqd+p534k0*cvqd+p6k0*cvqu cauxb=-c12z(i1).ek0*p6(2)+p6k0*c12z(i1).e(2) cauxc=+c12z(i1).ek0*p534(2)-p534k0*c12z(i1).e(2) r6_12z(i1).a(1,1)=zqdr*(cauxa+ceps_0) r6_12z(i1).a(2,2)=zqdl*(cauxa-ceps_0) r6_12z(i1).b(1,2)=zqdl*(cauxb-ceps_2) r6_12z(i1).b(2,1)=zqdr*(-cauxb-ceps_2) r6_12z(i1).c(1,2)=zqdr*(cauxc+ceps_1) r6_12z(i1).c(2,1)=zqdl*(-cauxc+ceps_1) r6_12z(i1).d(1,1)=zqdl*c12z(i1).ek0 r6_12z(i1).d(2,2)=zqdr*c12z(i1).ek0 END DO DO i1=1,2 DO iut=1,2 DO jut=1,2 r4_12fz(i1).a(iut,jut)=r4_12f(i1).a(iut,jut)+ 1 r4_12z(i1).a(iut,jut) r4_12fz(i1).b(iut,jut)=r4_12f(i1).b(iut,jut)+ 1 r4_12z(i1).b(iut,jut) r4_12fz(i1).c(iut,jut)=r4_12f(i1).c(iut,jut)+ 1 r4_12z(i1).c(iut,jut) r4_12fz(i1).d(iut,jut)=r4_12f(i1).d(iut,jut)+ 1 r4_12z(i1).d(iut,jut) r6_12fz(i1).a(iut,jut)=r6_12f(i1).a(iut,jut)+ 1 r6_12z(i1).a(iut,jut) r6_12fz(i1).b(iut,jut)=r6_12f(i1).b(iut,jut)+ 1 r6_12z(i1).b(iut,jut) r6_12fz(i1).c(iut,jut)=r6_12f(i1).c(iut,jut)+ 1 r6_12z(i1).c(iut,jut) r6_12fz(i1).d(iut,jut)=r6_12f(i1).d(iut,jut)+ 1 r6_12z(i1).d(iut,jut) ENDDO !i1 ENDDO !iut ENDDO !jut IF (imix.EQ.-1.or.imix.eq.-2) then * Diagramma (18+21) Risonante Z su (36) DO i1=1,2 DO i3=1,2 DO i6=1,2 * TT -- aa=dia(i1,i3,i6).a,bb=dia(i1,i3,i6).b,cc=dia(i1,i3,i6).c,dd=dia(i1, * i3,i6).d,a1=l5_36(i3,i6).a,b1=l5_36(i3,i6).b,c1=l5_36(i3,i6).c,d1=l5_36(i3 * ,i6).d,a2=r4_12fz(i1).a,b2=r4_12fz(i1).b,c2=r4_12fz(i1).c,d2=r4_12fz(i1).d * ,prq=p536q,m=rmb dia(i1,i3,i6).a(1,1)=l5_36(i3,i6).a(1,1)*r4_12fz(i1).a(1,1 & )+l5_36(i3,i6).c(1,2)*p536q*r4_12fz(i1).b(2,1) dia(i1,i3,i6).b(1,1)=rmb*(l5_36(i3,i6).d(1,1)*r4_12fz(i1). & a(1,1)+l5_36(i3,i6).b(1,2)*r4_12fz(i1).b(2,1)) dia(i1,i3,i6).c(1,1)=rmb*(l5_36(i3,i6).a(1,1)*r4_12fz(i1). & d(1,1)+l5_36(i3,i6).c(1,2)*r4_12fz(i1).c(2,1)) dia(i1,i3,i6).d(1,1)=l5_36(i3,i6).d(1,1)*p536q*r4_12fz(i1) & .d(1,1)+l5_36(i3,i6).b(1,2)*r4_12fz(i1).c(2,1) dia(i1,i3,i6).a(1,2)=rmb*(l5_36(i3,i6).a(1,1)*r4_12fz(i1). & b(1,2)+l5_36(i3,i6).c(1,2)*r4_12fz(i1).a(2,2)) dia(i1,i3,i6).b(1,2)=l5_36(i3,i6).d(1,1)*p536q*r4_12fz(i1) & .b(1,2)+l5_36(i3,i6).b(1,2)*r4_12fz(i1).a(2,2) dia(i1,i3,i6).c(1,2)=l5_36(i3,i6).a(1,1)*r4_12fz(i1).c(1,2 & )+l5_36(i3,i6).c(1,2)*p536q*r4_12fz(i1).d(2,2) dia(i1,i3,i6).d(1,2)=rmb*(l5_36(i3,i6).d(1,1)*r4_12fz(i1). & c(1,2)+l5_36(i3,i6).b(1,2)*r4_12fz(i1).d(2,2)) dia(i1,i3,i6).a(2,1)=rmb*(l5_36(i3,i6).c(2,1)*r4_12fz(i1). & a(1,1)+l5_36(i3,i6).a(2,2)*r4_12fz(i1).b(2,1)) dia(i1,i3,i6).b(2,1)=l5_36(i3,i6).b(2,1)*r4_12fz(i1).a(1,1 & )+l5_36(i3,i6).d(2,2)*p536q*r4_12fz(i1).b(2,1) dia(i1,i3,i6).c(2,1)=l5_36(i3,i6).c(2,1)*p536q*r4_12fz(i1) & .d(1,1)+l5_36(i3,i6).a(2,2)*r4_12fz(i1).c(2,1) dia(i1,i3,i6).d(2,1)=rmb*(l5_36(i3,i6).b(2,1)*r4_12fz(i1). & d(1,1)+l5_36(i3,i6).d(2,2)*r4_12fz(i1).c(2,1)) dia(i1,i3,i6).a(2,2)=l5_36(i3,i6).c(2,1)*p536q*r4_12fz(i1) & .b(1,2)+l5_36(i3,i6).a(2,2)*r4_12fz(i1).a(2,2) dia(i1,i3,i6).b(2,2)=rmb*(l5_36(i3,i6).b(2,1)*r4_12fz(i1). & b(1,2)+l5_36(i3,i6).d(2,2)*r4_12fz(i1).a(2,2)) dia(i1,i3,i6).c(2,2)=rmb*(l5_36(i3,i6).c(2,1)*r4_12fz(i1). & c(1,2)+l5_36(i3,i6).a(2,2)*r4_12fz(i1).d(2,2)) dia(i1,i3,i6).d(2,2)=l5_36(i3,i6).b(2,1)*r4_12fz(i1).c(1,2 & )+l5_36(i3,i6).d(2,2)*p536q*r4_12fz(i1).d(2,2) END DO END DO END DO DO i1=1,2 DO i3=1,2 DO i6=1,2 * mline -- res=cres9(i1,i3,i6,&),abcd=dia(i1,i3,i6).,m1=rmb,m2=(-rmb),den=( * (p536q-rmb2)*p536k0) DO iut=1,2 DO jut=1,2 cres9(i1,i3,i6,iut,jut)=(dia(i1,i3,i6).a(iut,jut) & +rmb*dia( & i1,i3,i6).b(iut,jut)+(-rmb)*dia(i1,i3,i6).c(iut,jut) & +rmb* & (-rmb)*dia(i1,i3,i6).d(iut,jut))/((p536q-rmb2) & *p536k0) ENDDO ENDDO END DO END DO END DO * Diagramma (64+67) Risonante Z su (34) DO i1=1,2 DO i3=1,2 DO i4=1,2 * TT -- aa=dia(i1,i3,i4).a,bb=dia(i1,i3,i4).b,cc=dia(i1,i3,i4).c,dd=dia(i1, * i3,i4).d,a1=l5_34(i3,i4).a,b1=l5_34(i3,i4).b,c1=l5_34(i3,i4).c,d1=l5_34(i3 * ,i4).d,a2=r6_12fz(i1).a,b2=r6_12fz(i1).b,c2=r6_12fz(i1).c,d2=r6_12fz(i1).d * ,prq=p534q,m=rmb dia(i1,i3,i4).a(1,1)=l5_34(i3,i4).a(1,1)*r6_12fz(i1).a(1,1 & )+l5_34(i3,i4).c(1,2)*p534q*r6_12fz(i1).b(2,1) dia(i1,i3,i4).b(1,1)=rmb*(l5_34(i3,i4).d(1,1)*r6_12fz(i1). & a(1,1)+l5_34(i3,i4).b(1,2)*r6_12fz(i1).b(2,1)) dia(i1,i3,i4).c(1,1)=rmb*(l5_34(i3,i4).a(1,1)*r6_12fz(i1). & d(1,1)+l5_34(i3,i4).c(1,2)*r6_12fz(i1).c(2,1)) dia(i1,i3,i4).d(1,1)=l5_34(i3,i4).d(1,1)*p534q*r6_12fz(i1) & .d(1,1)+l5_34(i3,i4).b(1,2)*r6_12fz(i1).c(2,1) dia(i1,i3,i4).a(1,2)=rmb*(l5_34(i3,i4).a(1,1)*r6_12fz(i1). & b(1,2)+l5_34(i3,i4).c(1,2)*r6_12fz(i1).a(2,2)) dia(i1,i3,i4).b(1,2)=l5_34(i3,i4).d(1,1)*p534q*r6_12fz(i1) & .b(1,2)+l5_34(i3,i4).b(1,2)*r6_12fz(i1).a(2,2) dia(i1,i3,i4).c(1,2)=l5_34(i3,i4).a(1,1)*r6_12fz(i1).c(1,2 & )+l5_34(i3,i4).c(1,2)*p534q*r6_12fz(i1).d(2,2) dia(i1,i3,i4).d(1,2)=rmb*(l5_34(i3,i4).d(1,1)*r6_12fz(i1). & c(1,2)+l5_34(i3,i4).b(1,2)*r6_12fz(i1).d(2,2)) dia(i1,i3,i4).a(2,1)=rmb*(l5_34(i3,i4).c(2,1)*r6_12fz(i1). & a(1,1)+l5_34(i3,i4).a(2,2)*r6_12fz(i1).b(2,1)) dia(i1,i3,i4).b(2,1)=l5_34(i3,i4).b(2,1)*r6_12fz(i1).a(1,1 & )+l5_34(i3,i4).d(2,2)*p534q*r6_12fz(i1).b(2,1) dia(i1,i3,i4).c(2,1)=l5_34(i3,i4).c(2,1)*p534q*r6_12fz(i1) & .d(1,1)+l5_34(i3,i4).a(2,2)*r6_12fz(i1).c(2,1) dia(i1,i3,i4).d(2,1)=rmb*(l5_34(i3,i4).b(2,1)*r6_12fz(i1). & d(1,1)+l5_34(i3,i4).d(2,2)*r6_12fz(i1).c(2,1)) dia(i1,i3,i4).a(2,2)=l5_34(i3,i4).c(2,1)*p534q*r6_12fz(i1) & .b(1,2)+l5_34(i3,i4).a(2,2)*r6_12fz(i1).a(2,2) dia(i1,i3,i4).b(2,2)=rmb*(l5_34(i3,i4).b(2,1)*r6_12fz(i1). & b(1,2)+l5_34(i3,i4).d(2,2)*r6_12fz(i1).a(2,2)) dia(i1,i3,i4).c(2,2)=rmb*(l5_34(i3,i4).c(2,1)*r6_12fz(i1). & c(1,2)+l5_34(i3,i4).a(2,2)*r6_12fz(i1).d(2,2)) dia(i1,i3,i4).d(2,2)=l5_34(i3,i4).b(2,1)*r6_12fz(i1).c(1,2 & )+l5_34(i3,i4).d(2,2)*p534q*r6_12fz(i1).d(2,2) END DO END DO END DO DO i1=1,2 DO i3=1,2 DO i4=1,2 * mline -- res=cres10(i1,i3,i4,&),abcd=dia(i1,i3,i4).,m1=rmb,m2=(-rmb),den= * ((p534q-rmb2)*p534k0) DO iut=1,2 DO jut=1,2 cres10(i1,i3,i4,iut,jut)=(dia(i1,i3,i4).a(iut,jut) & +rmb*dia & (i1,i3,i4).b(iut,jut)+(-rmb)*dia(i1,i3,i4).c(iut, & jut)+rmb & *(-rmb)*dia(i1,i3,i4).d(iut,jut))/((p534q-rmb2) & *p534k0) ENDDO ENDDO END DO END DO END DO * Diagramma (24+27) Risonante Z su (56) DO i1=1,2 DO i5=1,2 DO i6=1,2 * TT -- aa=dia(i1,i5,i6).a,bb=dia(i1,i5,i6).b,cc=dia(i1,i5,i6).c,dd=dia(i1, * i5,i6).d,a1=l3_56(i5,i6).a,b1=l3_56(i5,i6).b,c1=l3_56(i5,i6).c,d1=l3_56(i5 * ,i6).d,a2=r4_12fz(i1).a,b2=r4_12fz(i1).b,c2=r4_12fz(i1).c,d2=r4_12fz(i1).d * ,prq=p536q,m=rmb dia(i1,i5,i6).a(1,1)=l3_56(i5,i6).a(1,1)*r4_12fz(i1).a(1,1 & )+l3_56(i5,i6).c(1,2)*p536q*r4_12fz(i1).b(2,1) dia(i1,i5,i6).b(1,1)=rmb*(l3_56(i5,i6).d(1,1)*r4_12fz(i1). & a(1,1)+l3_56(i5,i6).b(1,2)*r4_12fz(i1).b(2,1)) dia(i1,i5,i6).c(1,1)=rmb*(l3_56(i5,i6).a(1,1)*r4_12fz(i1). & d(1,1)+l3_56(i5,i6).c(1,2)*r4_12fz(i1).c(2,1)) dia(i1,i5,i6).d(1,1)=l3_56(i5,i6).d(1,1)*p536q*r4_12fz(i1) & .d(1,1)+l3_56(i5,i6).b(1,2)*r4_12fz(i1).c(2,1) dia(i1,i5,i6).a(1,2)=rmb*(l3_56(i5,i6).a(1,1)*r4_12fz(i1). & b(1,2)+l3_56(i5,i6).c(1,2)*r4_12fz(i1).a(2,2)) dia(i1,i5,i6).b(1,2)=l3_56(i5,i6).d(1,1)*p536q*r4_12fz(i1) & .b(1,2)+l3_56(i5,i6).b(1,2)*r4_12fz(i1).a(2,2) dia(i1,i5,i6).c(1,2)=l3_56(i5,i6).a(1,1)*r4_12fz(i1).c(1,2 & )+l3_56(i5,i6).c(1,2)*p536q*r4_12fz(i1).d(2,2) dia(i1,i5,i6).d(1,2)=rmb*(l3_56(i5,i6).d(1,1)*r4_12fz(i1). & c(1,2)+l3_56(i5,i6).b(1,2)*r4_12fz(i1).d(2,2)) dia(i1,i5,i6).a(2,1)=rmb*(l3_56(i5,i6).c(2,1)*r4_12fz(i1). & a(1,1)+l3_56(i5,i6).a(2,2)*r4_12fz(i1).b(2,1)) dia(i1,i5,i6).b(2,1)=l3_56(i5,i6).b(2,1)*r4_12fz(i1).a(1,1 & )+l3_56(i5,i6).d(2,2)*p536q*r4_12fz(i1).b(2,1) dia(i1,i5,i6).c(2,1)=l3_56(i5,i6).c(2,1)*p536q*r4_12fz(i1) & .d(1,1)+l3_56(i5,i6).a(2,2)*r4_12fz(i1).c(2,1) dia(i1,i5,i6).d(2,1)=rmb*(l3_56(i5,i6).b(2,1)*r4_12fz(i1). & d(1,1)+l3_56(i5,i6).d(2,2)*r4_12fz(i1).c(2,1)) dia(i1,i5,i6).a(2,2)=l3_56(i5,i6).c(2,1)*p536q*r4_12fz(i1) & .b(1,2)+l3_56(i5,i6).a(2,2)*r4_12fz(i1).a(2,2) dia(i1,i5,i6).b(2,2)=rmb*(l3_56(i5,i6).b(2,1)*r4_12fz(i1). & b(1,2)+l3_56(i5,i6).d(2,2)*r4_12fz(i1).a(2,2)) dia(i1,i5,i6).c(2,2)=rmb*(l3_56(i5,i6).c(2,1)*r4_12fz(i1). & c(1,2)+l3_56(i5,i6).a(2,2)*r4_12fz(i1).d(2,2)) dia(i1,i5,i6).d(2,2)=l3_56(i5,i6).b(2,1)*r4_12fz(i1).c(1,2 & )+l3_56(i5,i6).d(2,2)*p536q*r4_12fz(i1).d(2,2) END DO END DO END DO DO i1=1,2 DO i5=1,2 DO i6=1,2 * mline -- res=cres11(i1,i5,i6,&),abcd=dia(i1,i5,i6).,m1=rmb,m2=(-rmb),den= * ((p536q-rmb2)*p536k0) DO iut=1,2 DO jut=1,2 cres11(i1,i5,i6,iut,jut)=(dia(i1,i5,i6).a(iut,jut) & +rmb*dia & (i1,i5,i6).b(iut,jut)+(-rmb)*dia(i1,i5,i6).c(iut, & jut)+rmb & *(-rmb)*dia(i1,i5,i6).d(iut,jut))/((p536q-rmb2) & *p536k0) ENDDO ENDDO END DO END DO END DO * Diagramma (38+41) Risonante Z su (54) DO i1=1,2 DO i5=1,2 DO i4=1,2 * TT -- aa=dia(i1,i5,i4).a,bb=dia(i1,i5,i4).b,cc=dia(i1,i5,i4).c,dd=dia(i1, * i5,i4).d,a1=l3_54(i5,i4).a,b1=l3_54(i5,i4).b,c1=l3_54(i5,i4).c,d1=l3_54(i5 * ,i4).d,a2=r6_12fz(i1).a,b2=r6_12fz(i1).b,c2=r6_12fz(i1).c,d2=r6_12fz(i1).d * ,prq=p534q,m=rmb dia(i1,i5,i4).a(1,1)=l3_54(i5,i4).a(1,1)*r6_12fz(i1).a(1,1 & )+l3_54(i5,i4).c(1,2)*p534q*r6_12fz(i1).b(2,1) dia(i1,i5,i4).b(1,1)=rmb*(l3_54(i5,i4).d(1,1)*r6_12fz(i1). & a(1,1)+l3_54(i5,i4).b(1,2)*r6_12fz(i1).b(2,1)) dia(i1,i5,i4).c(1,1)=rmb*(l3_54(i5,i4).a(1,1)*r6_12fz(i1). & d(1,1)+l3_54(i5,i4).c(1,2)*r6_12fz(i1).c(2,1)) dia(i1,i5,i4).d(1,1)=l3_54(i5,i4).d(1,1)*p534q*r6_12fz(i1) & .d(1,1)+l3_54(i5,i4).b(1,2)*r6_12fz(i1).c(2,1) dia(i1,i5,i4).a(1,2)=rmb*(l3_54(i5,i4).a(1,1)*r6_12fz(i1). & b(1,2)+l3_54(i5,i4).c(1,2)*r6_12fz(i1).a(2,2)) dia(i1,i5,i4).b(1,2)=l3_54(i5,i4).d(1,1)*p534q*r6_12fz(i1) & .b(1,2)+l3_54(i5,i4).b(1,2)*r6_12fz(i1).a(2,2) dia(i1,i5,i4).c(1,2)=l3_54(i5,i4).a(1,1)*r6_12fz(i1).c(1,2 & )+l3_54(i5,i4).c(1,2)*p534q*r6_12fz(i1).d(2,2) dia(i1,i5,i4).d(1,2)=rmb*(l3_54(i5,i4).d(1,1)*r6_12fz(i1). & c(1,2)+l3_54(i5,i4).b(1,2)*r6_12fz(i1).d(2,2)) dia(i1,i5,i4).a(2,1)=rmb*(l3_54(i5,i4).c(2,1)*r6_12fz(i1). & a(1,1)+l3_54(i5,i4).a(2,2)*r6_12fz(i1).b(2,1)) dia(i1,i5,i4).b(2,1)=l3_54(i5,i4).b(2,1)*r6_12fz(i1).a(1,1 & )+l3_54(i5,i4).d(2,2)*p534q*r6_12fz(i1).b(2,1) dia(i1,i5,i4).c(2,1)=l3_54(i5,i4).c(2,1)*p534q*r6_12fz(i1) & .d(1,1)+l3_54(i5,i4).a(2,2)*r6_12fz(i1).c(2,1) dia(i1,i5,i4).d(2,1)=rmb*(l3_54(i5,i4).b(2,1)*r6_12fz(i1). & d(1,1)+l3_54(i5,i4).d(2,2)*r6_12fz(i1).c(2,1)) dia(i1,i5,i4).a(2,2)=l3_54(i5,i4).c(2,1)*p534q*r6_12fz(i1) & .b(1,2)+l3_54(i5,i4).a(2,2)*r6_12fz(i1).a(2,2) dia(i1,i5,i4).b(2,2)=rmb*(l3_54(i5,i4).b(2,1)*r6_12fz(i1). & b(1,2)+l3_54(i5,i4).d(2,2)*r6_12fz(i1).a(2,2)) dia(i1,i5,i4).c(2,2)=rmb*(l3_54(i5,i4).c(2,1)*r6_12fz(i1). & c(1,2)+l3_54(i5,i4).a(2,2)*r6_12fz(i1).d(2,2)) dia(i1,i5,i4).d(2,2)=l3_54(i5,i4).b(2,1)*r6_12fz(i1).c(1,2 & )+l3_54(i5,i4).d(2,2)*p534q*r6_12fz(i1).d(2,2) END DO END DO END DO DO i1=1,2 DO i5=1,2 DO i4=1,2 * mline -- res=cres12(i1,i5,i4,&),abcd=dia(i1,i5,i4).,m1=rmb,m2=(-rmb),den= * ((p534q-rmb2)*p534k0) DO iut=1,2 DO jut=1,2 cres12(i1,i5,i4,iut,jut)=(dia(i1,i5,i4).a(iut,jut) & +rmb*dia & (i1,i5,i4).b(iut,jut)+(-rmb)*dia(i1,i5,i4).c(iut, & jut)+rmb & *(-rmb)*dia(i1,i5,i4).d(iut,jut))/((p534q-rmb2) & *p534k0) ENDDO ENDDO END DO END DO END DO ENDIF * quqd -- p=p5,q=p512 quqd=p5(0)*p512(0)-p5(1)*p512(1)-p5(2)*p512(2)-p5(3)*p512( & 3) DO i1=1,2 * T -- qu=p5,qd=p512,v=c12f(i1).e,a=l5_12f(i1).a,b=l5_12f(i1).b,c=l5_12f(i1 * ).c,d=l5_12f(i1).d,cr=fqdr,cl=fqdl,nsum=0 ceps_0=-c12f(i1).ek0*(p5(2)*p512(3)-p512(2)*p5(3))+p5k0*(c & 12f(i1).e(2)*p512(3)-p512(2)*c12f(i1).e(3))-p512k0*(c12f( & i1).e(2)*p5(3)-p5(2)*c12f(i1).e(3)) ceps_0=ceps_0*cim ceps_1=-c12f(i1).e(3)*p5k0+p5(3)*c12f(i1).ek0 ceps_1=ceps_1*cim ceps_2=-c12f(i1).e(3)*p512k0+p512(3)*c12f(i1).ek0 ceps_2=ceps_2*cim cvqu=c12f(i1).e(0)*p5(0)-c12f(i1).e(1)*p5(1)-c12f(i1).e(2) & *p5(2)-c12f(i1).e(3)*p5(3) cvqd=c12f(i1).e(0)*p512(0)-c12f(i1).e(1)*p512(1)-c12f(i1). & e(2)*p512(2)-c12f(i1).e(3)*p512(3) cauxa=-c12f(i1).ek0*quqd+p5k0*cvqd+p512k0*cvqu cauxb=-c12f(i1).ek0*p512(2)+p512k0*c12f(i1).e(2) cauxc=+c12f(i1).ek0*p5(2)-p5k0*c12f(i1).e(2) l5_12f(i1).a(1,1)=fqdr*(cauxa+ceps_0) l5_12f(i1).a(2,2)=fqdl*(cauxa-ceps_0) l5_12f(i1).b(1,2)=fqdl*(cauxb-ceps_2) l5_12f(i1).b(2,1)=fqdr*(-cauxb-ceps_2) l5_12f(i1).c(1,2)=fqdr*(cauxc+ceps_1) l5_12f(i1).c(2,1)=fqdl*(-cauxc+ceps_1) l5_12f(i1).d(1,1)=fqdl*c12f(i1).ek0 l5_12f(i1).d(2,2)=fqdr*c12f(i1).ek0 END DO DO i1=1,2 * T -- qu=p5,qd=p512,v=c12z(i1).e,a=l5_12z(i1).a,b=l5_12z(i1).b,c=l5_12z(i1 * ).c,d=l5_12z(i1).d,cr=zqdr,cl=zqdl,nsum=0 ceps_0=-c12z(i1).ek0*(p5(2)*p512(3)-p512(2)*p5(3))+p5k0*(c & 12z(i1).e(2)*p512(3)-p512(2)*c12z(i1).e(3))-p512k0*(c12z( & i1).e(2)*p5(3)-p5(2)*c12z(i1).e(3)) ceps_0=ceps_0*cim ceps_1=-c12z(i1).e(3)*p5k0+p5(3)*c12z(i1).ek0 ceps_1=ceps_1*cim ceps_2=-c12z(i1).e(3)*p512k0+p512(3)*c12z(i1).ek0 ceps_2=ceps_2*cim cvqu=c12z(i1).e(0)*p5(0)-c12z(i1).e(1)*p5(1)-c12z(i1).e(2) & *p5(2)-c12z(i1).e(3)*p5(3) cvqd=c12z(i1).e(0)*p512(0)-c12z(i1).e(1)*p512(1)-c12z(i1). & e(2)*p512(2)-c12z(i1).e(3)*p512(3) cauxa=-c12z(i1).ek0*quqd+p5k0*cvqd+p512k0*cvqu cauxb=-c12z(i1).ek0*p512(2)+p512k0*c12z(i1).e(2) cauxc=+c12z(i1).ek0*p5(2)-p5k0*c12z(i1).e(2) l5_12z(i1).a(1,1)=zqdr*(cauxa+ceps_0) l5_12z(i1).a(2,2)=zqdl*(cauxa-ceps_0) l5_12z(i1).b(1,2)=zqdl*(cauxb-ceps_2) l5_12z(i1).b(2,1)=zqdr*(-cauxb-ceps_2) l5_12z(i1).c(1,2)=zqdr*(cauxc+ceps_1) l5_12z(i1).c(2,1)=zqdl*(-cauxc+ceps_1) l5_12z(i1).d(1,1)=zqdl*c12z(i1).ek0 l5_12z(i1).d(2,2)=zqdr*c12z(i1).ek0 END DO * quqd -- p=p3,q=p312 quqd=p3(0)*p312(0)-p3(1)*p312(1)-p3(2)*p312(2)-p3(3)*p312( & 3) DO i1=1,2 * T -- qu=p3,qd=p312,v=c12f(i1).e,a=l3_12f(i1).a,b=l3_12f(i1).b,c=l3_12f(i1 * ).c,d=l3_12f(i1).d,cr=fqdr,cl=fqdl,nsum=0 ceps_0=-c12f(i1).ek0*(p3(2)*p312(3)-p312(2)*p3(3))+p3k0*(c & 12f(i1).e(2)*p312(3)-p312(2)*c12f(i1).e(3))-p312k0*(c12f( & i1).e(2)*p3(3)-p3(2)*c12f(i1).e(3)) ceps_0=ceps_0*cim ceps_1=-c12f(i1).e(3)*p3k0+p3(3)*c12f(i1).ek0 ceps_1=ceps_1*cim ceps_2=-c12f(i1).e(3)*p312k0+p312(3)*c12f(i1).ek0 ceps_2=ceps_2*cim cvqu=c12f(i1).e(0)*p3(0)-c12f(i1).e(1)*p3(1)-c12f(i1).e(2) & *p3(2)-c12f(i1).e(3)*p3(3) cvqd=c12f(i1).e(0)*p312(0)-c12f(i1).e(1)*p312(1)-c12f(i1). & e(2)*p312(2)-c12f(i1).e(3)*p312(3) cauxa=-c12f(i1).ek0*quqd+p3k0*cvqd+p312k0*cvqu cauxb=-c12f(i1).ek0*p312(2)+p312k0*c12f(i1).e(2) cauxc=+c12f(i1).ek0*p3(2)-p3k0*c12f(i1).e(2) l3_12f(i1).a(1,1)=fqdr*(cauxa+ceps_0) l3_12f(i1).a(2,2)=fqdl*(cauxa-ceps_0) l3_12f(i1).b(1,2)=fqdl*(cauxb-ceps_2) l3_12f(i1).b(2,1)=fqdr*(-cauxb-ceps_2) l3_12f(i1).c(1,2)=fqdr*(cauxc+ceps_1) l3_12f(i1).c(2,1)=fqdl*(-cauxc+ceps_1) l3_12f(i1).d(1,1)=fqdl*c12f(i1).ek0 l3_12f(i1).d(2,2)=fqdr*c12f(i1).ek0 END DO DO i1=1,2 * T -- qu=p3,qd=p312,v=c12z(i1).e,a=l3_12z(i1).a,b=l3_12z(i1).b,c=l3_12z(i1 * ).c,d=l3_12z(i1).d,cr=zqdr,cl=zqdl,nsum=0 ceps_0=-c12z(i1).ek0*(p3(2)*p312(3)-p312(2)*p3(3))+p3k0*(c & 12z(i1).e(2)*p312(3)-p312(2)*c12z(i1).e(3))-p312k0*(c12z( & i1).e(2)*p3(3)-p3(2)*c12z(i1).e(3)) ceps_0=ceps_0*cim ceps_1=-c12z(i1).e(3)*p3k0+p3(3)*c12z(i1).ek0 ceps_1=ceps_1*cim ceps_2=-c12z(i1).e(3)*p312k0+p312(3)*c12z(i1).ek0 ceps_2=ceps_2*cim cvqu=c12z(i1).e(0)*p3(0)-c12z(i1).e(1)*p3(1)-c12z(i1).e(2) & *p3(2)-c12z(i1).e(3)*p3(3) cvqd=c12z(i1).e(0)*p312(0)-c12z(i1).e(1)*p312(1)-c12z(i1). & e(2)*p312(2)-c12z(i1).e(3)*p312(3) cauxa=-c12z(i1).ek0*quqd+p3k0*cvqd+p312k0*cvqu cauxb=-c12z(i1).ek0*p312(2)+p312k0*c12z(i1).e(2) cauxc=+c12z(i1).ek0*p3(2)-p3k0*c12z(i1).e(2) l3_12z(i1).a(1,1)=zqdr*(cauxa+ceps_0) l3_12z(i1).a(2,2)=zqdl*(cauxa-ceps_0) l3_12z(i1).b(1,2)=zqdl*(cauxb-ceps_2) l3_12z(i1).b(2,1)=zqdr*(-cauxb-ceps_2) l3_12z(i1).c(1,2)=zqdr*(cauxc+ceps_1) l3_12z(i1).c(2,1)=zqdl*(-cauxc+ceps_1) l3_12z(i1).d(1,1)=zqdl*c12z(i1).ek0 l3_12z(i1).d(2,2)=zqdr*c12z(i1).ek0 END DO DO i1=1,2 DO iut=1,2 DO jut=1,2 l3_12fz(i1).a(iut,jut)=l3_12f(i1).a(iut,jut)+ 1 l3_12z(i1).a(iut,jut) l3_12fz(i1).b(iut,jut)=l3_12f(i1).b(iut,jut)+ 1 l3_12z(i1).b(iut,jut) l3_12fz(i1).c(iut,jut)=l3_12f(i1).c(iut,jut)+ 1 l3_12z(i1).c(iut,jut) l3_12fz(i1).d(iut,jut)=l3_12f(i1).d(iut,jut)+ 1 l3_12z(i1).d(iut,jut) l5_12fz(i1).a(iut,jut)=l5_12f(i1).a(iut,jut)+ 1 l5_12z(i1).a(iut,jut) l5_12fz(i1).b(iut,jut)=l5_12f(i1).b(iut,jut)+ 1 l5_12z(i1).b(iut,jut) l5_12fz(i1).c(iut,jut)=l5_12f(i1).c(iut,jut)+ 1 l5_12z(i1).c(iut,jut) l5_12fz(i1).d(iut,jut)=l5_12f(i1).d(iut,jut)+ 1 l5_12z(i1).d(iut,jut) ENDDO !i1 ENDDO !jut ENDDO !iut IF (imix.EQ.-1.or.imix.eq.-2) then * quqd -- p=p512,q=p4 quqd=p512(0)*p4(0)-p512(1)*p4(1)-p512(2)*p4(2)-p512(3)*p4( & 3) DO i3=1,2 DO i6=1,2 * T -- qu=p512,qd=p4,v=c36f(i3,i6).e,a=r4_36f(i3,i6).a,b=r4_36f(i3,i6).b,c= * r4_36f(i3,i6).c,d=r4_36f(i3,i6).d,cr=fqdr,cl=fqdl,nsum=0 ceps_0=-c36f(i3,i6).ek0*(p512(2)*p4(3)-p4(2)*p512(3))+p512 & k0*(c36f(i3,i6).e(2)*p4(3)-p4(2)*c36f(i3,i6).e(3))-p4k0*( & c36f(i3,i6).e(2)*p512(3)-p512(2)*c36f(i3,i6).e(3)) ceps_0=ceps_0*cim ceps_1=-c36f(i3,i6).e(3)*p512k0+p512(3)*c36f(i3,i6).ek0 ceps_1=ceps_1*cim ceps_2=-c36f(i3,i6).e(3)*p4k0+p4(3)*c36f(i3,i6).ek0 ceps_2=ceps_2*cim cvqu=c36f(i3,i6).e(0)*p512(0)-c36f(i3,i6).e(1)*p512(1)-c36 & f(i3,i6).e(2)*p512(2)-c36f(i3,i6).e(3)*p512(3) cvqd=c36f(i3,i6).e(0)*p4(0)-c36f(i3,i6).e(1)*p4(1)-c36f(i3 & ,i6).e(2)*p4(2)-c36f(i3,i6).e(3)*p4(3) cauxa=-c36f(i3,i6).ek0*quqd+p512k0*cvqd+p4k0*cvqu cauxb=-c36f(i3,i6).ek0*p4(2)+p4k0*c36f(i3,i6).e(2) cauxc=+c36f(i3,i6).ek0*p512(2)-p512k0*c36f(i3,i6).e(2) r4_36f(i3,i6).a(1,1)=fqdr*(cauxa+ceps_0) r4_36f(i3,i6).a(2,2)=fqdl*(cauxa-ceps_0) r4_36f(i3,i6).b(1,2)=fqdl*(cauxb-ceps_2) r4_36f(i3,i6).b(2,1)=fqdr*(-cauxb-ceps_2) r4_36f(i3,i6).c(1,2)=fqdr*(cauxc+ceps_1) r4_36f(i3,i6).c(2,1)=fqdl*(-cauxc+ceps_1) r4_36f(i3,i6).d(1,1)=fqdl*c36f(i3,i6).ek0 r4_36f(i3,i6).d(2,2)=fqdr*c36f(i3,i6).ek0 END DO END DO * quqd -- p=p512,q=p4 quqd=p512(0)*p4(0)-p512(1)*p4(1)-p512(2)*p4(2)-p512(3)*p4( & 3) DO i3=1,2 DO i6=1,2 * T -- qu=p512,qd=p4,v=c36z(i3,i6).e,a=r4_36z(i3,i6).a,b=r4_36z(i3,i6).b,c= * r4_36z(i3,i6).c,d=r4_36z(i3,i6).d,cr=zqdr,cl=zqdl,nsum=0 ceps_0=-c36z(i3,i6).ek0*(p512(2)*p4(3)-p4(2)*p512(3))+p512 & k0*(c36z(i3,i6).e(2)*p4(3)-p4(2)*c36z(i3,i6).e(3))-p4k0*( & c36z(i3,i6).e(2)*p512(3)-p512(2)*c36z(i3,i6).e(3)) ceps_0=ceps_0*cim ceps_1=-c36z(i3,i6).e(3)*p512k0+p512(3)*c36z(i3,i6).ek0 ceps_1=ceps_1*cim ceps_2=-c36z(i3,i6).e(3)*p4k0+p4(3)*c36z(i3,i6).ek0 ceps_2=ceps_2*cim cvqu=c36z(i3,i6).e(0)*p512(0)-c36z(i3,i6).e(1)*p512(1)-c36 & z(i3,i6).e(2)*p512(2)-c36z(i3,i6).e(3)*p512(3) cvqd=c36z(i3,i6).e(0)*p4(0)-c36z(i3,i6).e(1)*p4(1)-c36z(i3 & ,i6).e(2)*p4(2)-c36z(i3,i6).e(3)*p4(3) cauxa=-c36z(i3,i6).ek0*quqd+p512k0*cvqd+p4k0*cvqu cauxb=-c36z(i3,i6).ek0*p4(2)+p4k0*c36z(i3,i6).e(2) cauxc=+c36z(i3,i6).ek0*p512(2)-p512k0*c36z(i3,i6).e(2) r4_36z(i3,i6).a(1,1)=zqdr*(cauxa+ceps_0) r4_36z(i3,i6).a(2,2)=zqdl*(cauxa-ceps_0) r4_36z(i3,i6).b(1,2)=zqdl*(cauxb-ceps_2) r4_36z(i3,i6).b(2,1)=zqdr*(-cauxb-ceps_2) r4_36z(i3,i6).c(1,2)=zqdr*(cauxc+ceps_1) r4_36z(i3,i6).c(2,1)=zqdl*(-cauxc+ceps_1) r4_36z(i3,i6).d(1,1)=zqdl*c36z(i3,i6).ek0 r4_36z(i3,i6).d(2,2)=zqdr*c36z(i3,i6).ek0 END DO END DO * quqd -- p=p312,q=p4 quqd=p312(0)*p4(0)-p312(1)*p4(1)-p312(2)*p4(2)-p312(3)*p4( & 3) DO i5=1,2 DO i6=1,2 * T -- qu=p312,qd=p4,v=c56f(i5,i6).e,a=r4_56f(i5,i6).a,b=r4_56f(i5,i6).b,c= * r4_56f(i5,i6).c,d=r4_56f(i5,i6).d,cr=fqdr,cl=fqdl,nsum=0 ceps_0=-c56f(i5,i6).ek0*(p312(2)*p4(3)-p4(2)*p312(3))+p312 & k0*(c56f(i5,i6).e(2)*p4(3)-p4(2)*c56f(i5,i6).e(3))-p4k0*( & c56f(i5,i6).e(2)*p312(3)-p312(2)*c56f(i5,i6).e(3)) ceps_0=ceps_0*cim ceps_1=-c56f(i5,i6).e(3)*p312k0+p312(3)*c56f(i5,i6).ek0 ceps_1=ceps_1*cim ceps_2=-c56f(i5,i6).e(3)*p4k0+p4(3)*c56f(i5,i6).ek0 ceps_2=ceps_2*cim cvqu=c56f(i5,i6).e(0)*p312(0)-c56f(i5,i6).e(1)*p312(1)-c56 & f(i5,i6).e(2)*p312(2)-c56f(i5,i6).e(3)*p312(3) cvqd=c56f(i5,i6).e(0)*p4(0)-c56f(i5,i6).e(1)*p4(1)-c56f(i5 & ,i6).e(2)*p4(2)-c56f(i5,i6).e(3)*p4(3) cauxa=-c56f(i5,i6).ek0*quqd+p312k0*cvqd+p4k0*cvqu cauxb=-c56f(i5,i6).ek0*p4(2)+p4k0*c56f(i5,i6).e(2) cauxc=+c56f(i5,i6).ek0*p312(2)-p312k0*c56f(i5,i6).e(2) r4_56f(i5,i6).a(1,1)=fqdr*(cauxa+ceps_0) r4_56f(i5,i6).a(2,2)=fqdl*(cauxa-ceps_0) r4_56f(i5,i6).b(1,2)=fqdl*(cauxb-ceps_2) r4_56f(i5,i6).b(2,1)=fqdr*(-cauxb-ceps_2) r4_56f(i5,i6).c(1,2)=fqdr*(cauxc+ceps_1) r4_56f(i5,i6).c(2,1)=fqdl*(-cauxc+ceps_1) r4_56f(i5,i6).d(1,1)=fqdl*c56f(i5,i6).ek0 r4_56f(i5,i6).d(2,2)=fqdr*c56f(i5,i6).ek0 END DO END DO * quqd -- p=p312,q=p4 quqd=p312(0)*p4(0)-p312(1)*p4(1)-p312(2)*p4(2)-p312(3)*p4( & 3) DO i5=1,2 DO i6=1,2 * T -- qu=p312,qd=p4,v=c56z(i5,i6).e,a=r4_56z(i5,i6).a,b=r4_56z(i5,i6).b,c= * r4_56z(i5,i6).c,d=r4_56z(i5,i6).d,cr=zqdr,cl=zqdl,nsum=0 ceps_0=-c56z(i5,i6).ek0*(p312(2)*p4(3)-p4(2)*p312(3))+p312 & k0*(c56z(i5,i6).e(2)*p4(3)-p4(2)*c56z(i5,i6).e(3))-p4k0*( & c56z(i5,i6).e(2)*p312(3)-p312(2)*c56z(i5,i6).e(3)) ceps_0=ceps_0*cim ceps_1=-c56z(i5,i6).e(3)*p312k0+p312(3)*c56z(i5,i6).ek0 ceps_1=ceps_1*cim ceps_2=-c56z(i5,i6).e(3)*p4k0+p4(3)*c56z(i5,i6).ek0 ceps_2=ceps_2*cim cvqu=c56z(i5,i6).e(0)*p312(0)-c56z(i5,i6).e(1)*p312(1)-c56 & z(i5,i6).e(2)*p312(2)-c56z(i5,i6).e(3)*p312(3) cvqd=c56z(i5,i6).e(0)*p4(0)-c56z(i5,i6).e(1)*p4(1)-c56z(i5 & ,i6).e(2)*p4(2)-c56z(i5,i6).e(3)*p4(3) cauxa=-c56z(i5,i6).ek0*quqd+p312k0*cvqd+p4k0*cvqu cauxb=-c56z(i5,i6).ek0*p4(2)+p4k0*c56z(i5,i6).e(2) cauxc=+c56z(i5,i6).ek0*p312(2)-p312k0*c56z(i5,i6).e(2) r4_56z(i5,i6).a(1,1)=zqdr*(cauxa+ceps_0) r4_56z(i5,i6).a(2,2)=zqdl*(cauxa-ceps_0) r4_56z(i5,i6).b(1,2)=zqdl*(cauxb-ceps_2) r4_56z(i5,i6).b(2,1)=zqdr*(-cauxb-ceps_2) r4_56z(i5,i6).c(1,2)=zqdr*(cauxc+ceps_1) r4_56z(i5,i6).c(2,1)=zqdl*(-cauxc+ceps_1) r4_56z(i5,i6).d(1,1)=zqdl*c56z(i5,i6).ek0 r4_56z(i5,i6).d(2,2)=zqdr*c56z(i5,i6).ek0 END DO END DO * quqd -- p=p312,q=p6 quqd=p312(0)*p6(0)-p312(1)*p6(1)-p312(2)*p6(2)-p312(3)*p6( & 3) DO i5=1,2 DO i4=1,2 * T -- qu=p312,qd=p6,v=c54f(i5,i4).e,a=r6_54f(i5,i4).a,b=r6_54f(i5,i4).b,c= * r6_54f(i5,i4).c,d=r6_54f(i5,i4).d,cr=fqdr,cl=fqdl,nsum=0 ceps_0=-c54f(i5,i4).ek0*(p312(2)*p6(3)-p6(2)*p312(3))+p312 & k0*(c54f(i5,i4).e(2)*p6(3)-p6(2)*c54f(i5,i4).e(3))-p6k0*( & c54f(i5,i4).e(2)*p312(3)-p312(2)*c54f(i5,i4).e(3)) ceps_0=ceps_0*cim ceps_1=-c54f(i5,i4).e(3)*p312k0+p312(3)*c54f(i5,i4).ek0 ceps_1=ceps_1*cim ceps_2=-c54f(i5,i4).e(3)*p6k0+p6(3)*c54f(i5,i4).ek0 ceps_2=ceps_2*cim cvqu=c54f(i5,i4).e(0)*p312(0)-c54f(i5,i4).e(1)*p312(1)-c54 & f(i5,i4).e(2)*p312(2)-c54f(i5,i4).e(3)*p312(3) cvqd=c54f(i5,i4).e(0)*p6(0)-c54f(i5,i4).e(1)*p6(1)-c54f(i5 & ,i4).e(2)*p6(2)-c54f(i5,i4).e(3)*p6(3) cauxa=-c54f(i5,i4).ek0*quqd+p312k0*cvqd+p6k0*cvqu cauxb=-c54f(i5,i4).ek0*p6(2)+p6k0*c54f(i5,i4).e(2) cauxc=+c54f(i5,i4).ek0*p312(2)-p312k0*c54f(i5,i4).e(2) r6_54f(i5,i4).a(1,1)=fqdr*(cauxa+ceps_0) r6_54f(i5,i4).a(2,2)=fqdl*(cauxa-ceps_0) r6_54f(i5,i4).b(1,2)=fqdl*(cauxb-ceps_2) r6_54f(i5,i4).b(2,1)=fqdr*(-cauxb-ceps_2) r6_54f(i5,i4).c(1,2)=fqdr*(cauxc+ceps_1) r6_54f(i5,i4).c(2,1)=fqdl*(-cauxc+ceps_1) r6_54f(i5,i4).d(1,1)=fqdl*c54f(i5,i4).ek0 r6_54f(i5,i4).d(2,2)=fqdr*c54f(i5,i4).ek0 END DO END DO * quqd -- p=p312,q=p6 quqd=p312(0)*p6(0)-p312(1)*p6(1)-p312(2)*p6(2)-p312(3)*p6( & 3) DO i5=1,2 DO i4=1,2 * T -- qu=p312,qd=p6,v=c54z(i5,i4).e,a=r6_54z(i5,i4).a,b=r6_54z(i5,i4).b,c= * r6_54z(i5,i4).c,d=r6_54z(i5,i4).d,cr=zqdr,cl=zqdl,nsum=0 ceps_0=-c54z(i5,i4).ek0*(p312(2)*p6(3)-p6(2)*p312(3))+p312 & k0*(c54z(i5,i4).e(2)*p6(3)-p6(2)*c54z(i5,i4).e(3))-p6k0*( & c54z(i5,i4).e(2)*p312(3)-p312(2)*c54z(i5,i4).e(3)) ceps_0=ceps_0*cim ceps_1=-c54z(i5,i4).e(3)*p312k0+p312(3)*c54z(i5,i4).ek0 ceps_1=ceps_1*cim ceps_2=-c54z(i5,i4).e(3)*p6k0+p6(3)*c54z(i5,i4).ek0 ceps_2=ceps_2*cim cvqu=c54z(i5,i4).e(0)*p312(0)-c54z(i5,i4).e(1)*p312(1)-c54 & z(i5,i4).e(2)*p312(2)-c54z(i5,i4).e(3)*p312(3) cvqd=c54z(i5,i4).e(0)*p6(0)-c54z(i5,i4).e(1)*p6(1)-c54z(i5 & ,i4).e(2)*p6(2)-c54z(i5,i4).e(3)*p6(3) cauxa=-c54z(i5,i4).ek0*quqd+p312k0*cvqd+p6k0*cvqu cauxb=-c54z(i5,i4).ek0*p6(2)+p6k0*c54z(i5,i4).e(2) cauxc=+c54z(i5,i4).ek0*p312(2)-p312k0*c54z(i5,i4).e(2) r6_54z(i5,i4).a(1,1)=zqdr*(cauxa+ceps_0) r6_54z(i5,i4).a(2,2)=zqdl*(cauxa-ceps_0) r6_54z(i5,i4).b(1,2)=zqdl*(cauxb-ceps_2) r6_54z(i5,i4).b(2,1)=zqdr*(-cauxb-ceps_2) r6_54z(i5,i4).c(1,2)=zqdr*(cauxc+ceps_1) r6_54z(i5,i4).c(2,1)=zqdl*(-cauxc+ceps_1) r6_54z(i5,i4).d(1,1)=zqdl*c54z(i5,i4).ek0 r6_54z(i5,i4).d(2,2)=zqdr*c54z(i5,i4).ek0 END DO END DO * quqd -- p=p512,q=p6 quqd=p512(0)*p6(0)-p512(1)*p6(1)-p512(2)*p6(2)-p512(3)*p6( & 3) DO i3=1,2 DO i4=1,2 * T -- qu=p512,qd=p6,v=c34f(i3,i4).e,a=r6_34f(i3,i4).a,b=r6_34f(i3,i4).b,c= * r6_34f(i3,i4).c,d=r6_34f(i3,i4).d,cr=fqdr,cl=fqdl,nsum=0 ceps_0=-c34f(i3,i4).ek0*(p512(2)*p6(3)-p6(2)*p512(3))+p512 & k0*(c34f(i3,i4).e(2)*p6(3)-p6(2)*c34f(i3,i4).e(3))-p6k0*( & c34f(i3,i4).e(2)*p512(3)-p512(2)*c34f(i3,i4).e(3)) ceps_0=ceps_0*cim ceps_1=-c34f(i3,i4).e(3)*p512k0+p512(3)*c34f(i3,i4).ek0 ceps_1=ceps_1*cim ceps_2=-c34f(i3,i4).e(3)*p6k0+p6(3)*c34f(i3,i4).ek0 ceps_2=ceps_2*cim cvqu=c34f(i3,i4).e(0)*p512(0)-c34f(i3,i4).e(1)*p512(1)-c34 & f(i3,i4).e(2)*p512(2)-c34f(i3,i4).e(3)*p512(3) cvqd=c34f(i3,i4).e(0)*p6(0)-c34f(i3,i4).e(1)*p6(1)-c34f(i3 & ,i4).e(2)*p6(2)-c34f(i3,i4).e(3)*p6(3) cauxa=-c34f(i3,i4).ek0*quqd+p512k0*cvqd+p6k0*cvqu cauxb=-c34f(i3,i4).ek0*p6(2)+p6k0*c34f(i3,i4).e(2) cauxc=+c34f(i3,i4).ek0*p512(2)-p512k0*c34f(i3,i4).e(2) r6_34f(i3,i4).a(1,1)=fqdr*(cauxa+ceps_0) r6_34f(i3,i4).a(2,2)=fqdl*(cauxa-ceps_0) r6_34f(i3,i4).b(1,2)=fqdl*(cauxb-ceps_2) r6_34f(i3,i4).b(2,1)=fqdr*(-cauxb-ceps_2) r6_34f(i3,i4).c(1,2)=fqdr*(cauxc+ceps_1) r6_34f(i3,i4).c(2,1)=fqdl*(-cauxc+ceps_1) r6_34f(i3,i4).d(1,1)=fqdl*c34f(i3,i4).ek0 r6_34f(i3,i4).d(2,2)=fqdr*c34f(i3,i4).ek0 END DO END DO * quqd -- p=p512,q=p6 quqd=p512(0)*p6(0)-p512(1)*p6(1)-p512(2)*p6(2)-p512(3)*p6( & 3) DO i3=1,2 DO i4=1,2 * T -- qu=p512,qd=p6,v=c34z(i3,i4).e,a=r6_34z(i3,i4).a,b=r6_34z(i3,i4).b,c= * r6_34z(i3,i4).c,d=r6_34z(i3,i4).d,cr=zqdr,cl=zqdl,nsum=0 ceps_0=-c34z(i3,i4).ek0*(p512(2)*p6(3)-p6(2)*p512(3))+p512 & k0*(c34z(i3,i4).e(2)*p6(3)-p6(2)*c34z(i3,i4).e(3))-p6k0*( & c34z(i3,i4).e(2)*p512(3)-p512(2)*c34z(i3,i4).e(3)) ceps_0=ceps_0*cim ceps_1=-c34z(i3,i4).e(3)*p512k0+p512(3)*c34z(i3,i4).ek0 ceps_1=ceps_1*cim ceps_2=-c34z(i3,i4).e(3)*p6k0+p6(3)*c34z(i3,i4).ek0 ceps_2=ceps_2*cim cvqu=c34z(i3,i4).e(0)*p512(0)-c34z(i3,i4).e(1)*p512(1)-c34 & z(i3,i4).e(2)*p512(2)-c34z(i3,i4).e(3)*p512(3) cvqd=c34z(i3,i4).e(0)*p6(0)-c34z(i3,i4).e(1)*p6(1)-c34z(i3 & ,i4).e(2)*p6(2)-c34z(i3,i4).e(3)*p6(3) cauxa=-c34z(i3,i4).ek0*quqd+p512k0*cvqd+p6k0*cvqu cauxb=-c34z(i3,i4).ek0*p6(2)+p6k0*c34z(i3,i4).e(2) cauxc=+c34z(i3,i4).ek0*p512(2)-p512k0*c34z(i3,i4).e(2) r6_34z(i3,i4).a(1,1)=zqdr*(cauxa+ceps_0) r6_34z(i3,i4).a(2,2)=zqdl*(cauxa-ceps_0) r6_34z(i3,i4).b(1,2)=zqdl*(cauxb-ceps_2) r6_34z(i3,i4).b(2,1)=zqdr*(-cauxb-ceps_2) r6_34z(i3,i4).c(1,2)=zqdr*(cauxc+ceps_1) r6_34z(i3,i4).c(2,1)=zqdl*(-cauxc+ceps_1) r6_34z(i3,i4).d(1,1)=zqdl*c34z(i3,i4).ek0 r6_34z(i3,i4).d(2,2)=zqdr*c34z(i3,i4).ek0 END DO END DO * Diagramma ( 50+53 ) Risonante Z su (36) DO i1=1,2 DO i3=1,2 DO i6=1,2 * TT -- aa=dia(i1,i3,i6).a,bb=dia(i1,i3,i6).b,cc=dia(i1,i3,i6).c,dd=dia(i1, * i3,i6).d,a1=l5_12fz(i1).a,b1=l5_12fz(i1).b,c1=l5_12fz(i1).c,d1=l5_12fz(i1) * .d,a2=r4_36z(i3,i6).a,b2=r4_36z(i3,i6).b,c2=r4_36z(i3,i6).c,d2=r4_36z(i3,i * 6).d,prq=p512q,m=rmb dia(i1,i3,i6).a(1,1)=l5_12fz(i1).a(1,1)*r4_36z(i3,i6).a(1, & 1)+l5_12fz(i1).c(1,2)*p512q*r4_36z(i3,i6).b(2,1) dia(i1,i3,i6).b(1,1)=rmb*(l5_12fz(i1).d(1,1)*r4_36z(i3,i6) & .a(1,1)+l5_12fz(i1).b(1,2)*r4_36z(i3,i6).b(2,1)) dia(i1,i3,i6).c(1,1)=rmb*(l5_12fz(i1).a(1,1)*r4_36z(i3,i6) & .d(1,1)+l5_12fz(i1).c(1,2)*r4_36z(i3,i6).c(2,1)) dia(i1,i3,i6).d(1,1)=l5_12fz(i1).d(1,1)*p512q*r4_36z(i3,i6 & ).d(1,1)+l5_12fz(i1).b(1,2)*r4_36z(i3,i6).c(2,1) dia(i1,i3,i6).a(1,2)=rmb*(l5_12fz(i1).a(1,1)*r4_36z(i3,i6) & .b(1,2)+l5_12fz(i1).c(1,2)*r4_36z(i3,i6).a(2,2)) dia(i1,i3,i6).b(1,2)=l5_12fz(i1).d(1,1)*p512q*r4_36z(i3,i6 & ).b(1,2)+l5_12fz(i1).b(1,2)*r4_36z(i3,i6).a(2,2) dia(i1,i3,i6).c(1,2)=l5_12fz(i1).a(1,1)*r4_36z(i3,i6).c(1, & 2)+l5_12fz(i1).c(1,2)*p512q*r4_36z(i3,i6).d(2,2) dia(i1,i3,i6).d(1,2)=rmb*(l5_12fz(i1).d(1,1)*r4_36z(i3,i6) & .c(1,2)+l5_12fz(i1).b(1,2)*r4_36z(i3,i6).d(2,2)) dia(i1,i3,i6).a(2,1)=rmb*(l5_12fz(i1).c(2,1)*r4_36z(i3,i6) & .a(1,1)+l5_12fz(i1).a(2,2)*r4_36z(i3,i6).b(2,1)) dia(i1,i3,i6).b(2,1)=l5_12fz(i1).b(2,1)*r4_36z(i3,i6).a(1, & 1)+l5_12fz(i1).d(2,2)*p512q*r4_36z(i3,i6).b(2,1) dia(i1,i3,i6).c(2,1)=l5_12fz(i1).c(2,1)*p512q*r4_36z(i3,i6 & ).d(1,1)+l5_12fz(i1).a(2,2)*r4_36z(i3,i6).c(2,1) dia(i1,i3,i6).d(2,1)=rmb*(l5_12fz(i1).b(2,1)*r4_36z(i3,i6) & .d(1,1)+l5_12fz(i1).d(2,2)*r4_36z(i3,i6).c(2,1)) dia(i1,i3,i6).a(2,2)=l5_12fz(i1).c(2,1)*p512q*r4_36z(i3,i6 & ).b(1,2)+l5_12fz(i1).a(2,2)*r4_36z(i3,i6).a(2,2) dia(i1,i3,i6).b(2,2)=rmb*(l5_12fz(i1).b(2,1)*r4_36z(i3,i6) & .b(1,2)+l5_12fz(i1).d(2,2)*r4_36z(i3,i6).a(2,2)) dia(i1,i3,i6).c(2,2)=rmb*(l5_12fz(i1).c(2,1)*r4_36z(i3,i6) & .c(1,2)+l5_12fz(i1).a(2,2)*r4_36z(i3,i6).d(2,2)) dia(i1,i3,i6).d(2,2)=l5_12fz(i1).b(2,1)*r4_36z(i3,i6).c(1, & 2)+l5_12fz(i1).d(2,2)*p512q*r4_36z(i3,i6).d(2,2) END DO END DO END DO DO i1=1,2 DO i3=1,2 DO i6=1,2 * mline -- res=cres13(i1,i3,i6,&),abcd=dia(i1,i3,i6).,m1=rmb,m2=(-rmb),den= * ((p512q-rmb2)*p512k0) DO iut=1,2 DO jut=1,2 cres13(i1,i3,i6,iut,jut)=(dia(i1,i3,i6).a(iut,jut) & +rmb*dia & (i1,i3,i6).b(iut,jut)+(-rmb)*dia(i1,i3,i6).c(iut, & jut)+rmb & *(-rmb)*dia(i1,i3,i6).d(iut,jut))/((p512q-rmb2) & *p512k0) ENDDO ENDDO END DO END DO END DO * Diagramma ( 32+35 ) Risonante Z su (56) DO i1=1,2 DO i5=1,2 DO i6=1,2 * TT -- aa=dia(i1,i5,i6).a,bb=dia(i1,i5,i6).b,cc=dia(i1,i5,i6).c,dd=dia(i1, * i5,i6).d,a1=l3_12fz(i1).a,b1=l3_12fz(i1).b,c1=l3_12fz(i1).c,d1=l3_12fz(i1) * .d,a2=r4_56z(i5,i6).a,b2=r4_56z(i5,i6).b,c2=r4_56z(i5,i6).c,d2=r4_56z(i5,i * 6).d,prq=p312q,m=rmb dia(i1,i5,i6).a(1,1)=l3_12fz(i1).a(1,1)*r4_56z(i5,i6).a(1, & 1)+l3_12fz(i1).c(1,2)*p312q*r4_56z(i5,i6).b(2,1) dia(i1,i5,i6).b(1,1)=rmb*(l3_12fz(i1).d(1,1)*r4_56z(i5,i6) & .a(1,1)+l3_12fz(i1).b(1,2)*r4_56z(i5,i6).b(2,1)) dia(i1,i5,i6).c(1,1)=rmb*(l3_12fz(i1).a(1,1)*r4_56z(i5,i6) & .d(1,1)+l3_12fz(i1).c(1,2)*r4_56z(i5,i6).c(2,1)) dia(i1,i5,i6).d(1,1)=l3_12fz(i1).d(1,1)*p312q*r4_56z(i5,i6 & ).d(1,1)+l3_12fz(i1).b(1,2)*r4_56z(i5,i6).c(2,1) dia(i1,i5,i6).a(1,2)=rmb*(l3_12fz(i1).a(1,1)*r4_56z(i5,i6) & .b(1,2)+l3_12fz(i1).c(1,2)*r4_56z(i5,i6).a(2,2)) dia(i1,i5,i6).b(1,2)=l3_12fz(i1).d(1,1)*p312q*r4_56z(i5,i6 & ).b(1,2)+l3_12fz(i1).b(1,2)*r4_56z(i5,i6).a(2,2) dia(i1,i5,i6).c(1,2)=l3_12fz(i1).a(1,1)*r4_56z(i5,i6).c(1, & 2)+l3_12fz(i1).c(1,2)*p312q*r4_56z(i5,i6).d(2,2) dia(i1,i5,i6).d(1,2)=rmb*(l3_12fz(i1).d(1,1)*r4_56z(i5,i6) & .c(1,2)+l3_12fz(i1).b(1,2)*r4_56z(i5,i6).d(2,2)) dia(i1,i5,i6).a(2,1)=rmb*(l3_12fz(i1).c(2,1)*r4_56z(i5,i6) & .a(1,1)+l3_12fz(i1).a(2,2)*r4_56z(i5,i6).b(2,1)) dia(i1,i5,i6).b(2,1)=l3_12fz(i1).b(2,1)*r4_56z(i5,i6).a(1, & 1)+l3_12fz(i1).d(2,2)*p312q*r4_56z(i5,i6).b(2,1) dia(i1,i5,i6).c(2,1)=l3_12fz(i1).c(2,1)*p312q*r4_56z(i5,i6 & ).d(1,1)+l3_12fz(i1).a(2,2)*r4_56z(i5,i6).c(2,1) dia(i1,i5,i6).d(2,1)=rmb*(l3_12fz(i1).b(2,1)*r4_56z(i5,i6) & .d(1,1)+l3_12fz(i1).d(2,2)*r4_56z(i5,i6).c(2,1)) dia(i1,i5,i6).a(2,2)=l3_12fz(i1).c(2,1)*p312q*r4_56z(i5,i6 & ).b(1,2)+l3_12fz(i1).a(2,2)*r4_56z(i5,i6).a(2,2) dia(i1,i5,i6).b(2,2)=rmb*(l3_12fz(i1).b(2,1)*r4_56z(i5,i6) & .b(1,2)+l3_12fz(i1).d(2,2)*r4_56z(i5,i6).a(2,2)) dia(i1,i5,i6).c(2,2)=rmb*(l3_12fz(i1).c(2,1)*r4_56z(i5,i6) & .c(1,2)+l3_12fz(i1).a(2,2)*r4_56z(i5,i6).d(2,2)) dia(i1,i5,i6).d(2,2)=l3_12fz(i1).b(2,1)*r4_56z(i5,i6).c(1, & 2)+l3_12fz(i1).d(2,2)*p312q*r4_56z(i5,i6).d(2,2) END DO END DO END DO DO i1=1,2 DO i5=1,2 DO i6=1,2 * mline -- res=cres14(i1,i5,i6,&),abcd=dia(i1,i5,i6).,m1=rmb,m2=(-rmb),den= * ((p312q-rmb2)*p312k0) DO iut=1,2 DO jut=1,2 cres14(i1,i5,i6,iut,jut)=(dia(i1,i5,i6).a(iut,jut) & +rmb*dia & (i1,i5,i6).b(iut,jut)+(-rmb)*dia(i1,i5,i6).c(iut, & jut)+rmb & *(-rmb)*dia(i1,i5,i6).d(iut,jut))/((p312q-rmb2) & *p312k0) ENDDO ENDDO END DO END DO END DO * Diagramma ( 44+47 ) Risonante Z su (54) DO i1=1,2 DO i5=1,2 DO i4=1,2 * TT -- aa=dia(i1,i5,i4).a,bb=dia(i1,i5,i4).b,cc=dia(i1,i5,i4).c,dd=dia(i1, * i5,i4).d,a1=l3_12fz(i1).a,b1=l3_12fz(i1).b,c1=l3_12fz(i1).c,d1=l3_12fz(i1) * .d,a2=r6_54z(i5,i4).a,b2=r6_54z(i5,i4).b,c2=r6_54z(i5,i4).c,d2=r6_54z(i5,i * 4).d,prq=p312q,m=rmb dia(i1,i5,i4).a(1,1)=l3_12fz(i1).a(1,1)*r6_54z(i5,i4).a(1, & 1)+l3_12fz(i1).c(1,2)*p312q*r6_54z(i5,i4).b(2,1) dia(i1,i5,i4).b(1,1)=rmb*(l3_12fz(i1).d(1,1)*r6_54z(i5,i4) & .a(1,1)+l3_12fz(i1).b(1,2)*r6_54z(i5,i4).b(2,1)) dia(i1,i5,i4).c(1,1)=rmb*(l3_12fz(i1).a(1,1)*r6_54z(i5,i4) & .d(1,1)+l3_12fz(i1).c(1,2)*r6_54z(i5,i4).c(2,1)) dia(i1,i5,i4).d(1,1)=l3_12fz(i1).d(1,1)*p312q*r6_54z(i5,i4 & ).d(1,1)+l3_12fz(i1).b(1,2)*r6_54z(i5,i4).c(2,1) dia(i1,i5,i4).a(1,2)=rmb*(l3_12fz(i1).a(1,1)*r6_54z(i5,i4) & .b(1,2)+l3_12fz(i1).c(1,2)*r6_54z(i5,i4).a(2,2)) dia(i1,i5,i4).b(1,2)=l3_12fz(i1).d(1,1)*p312q*r6_54z(i5,i4 & ).b(1,2)+l3_12fz(i1).b(1,2)*r6_54z(i5,i4).a(2,2) dia(i1,i5,i4).c(1,2)=l3_12fz(i1).a(1,1)*r6_54z(i5,i4).c(1, & 2)+l3_12fz(i1).c(1,2)*p312q*r6_54z(i5,i4).d(2,2) dia(i1,i5,i4).d(1,2)=rmb*(l3_12fz(i1).d(1,1)*r6_54z(i5,i4) & .c(1,2)+l3_12fz(i1).b(1,2)*r6_54z(i5,i4).d(2,2)) dia(i1,i5,i4).a(2,1)=rmb*(l3_12fz(i1).c(2,1)*r6_54z(i5,i4) & .a(1,1)+l3_12fz(i1).a(2,2)*r6_54z(i5,i4).b(2,1)) dia(i1,i5,i4).b(2,1)=l3_12fz(i1).b(2,1)*r6_54z(i5,i4).a(1, & 1)+l3_12fz(i1).d(2,2)*p312q*r6_54z(i5,i4).b(2,1) dia(i1,i5,i4).c(2,1)=l3_12fz(i1).c(2,1)*p312q*r6_54z(i5,i4 & ).d(1,1)+l3_12fz(i1).a(2,2)*r6_54z(i5,i4).c(2,1) dia(i1,i5,i4).d(2,1)=rmb*(l3_12fz(i1).b(2,1)*r6_54z(i5,i4) & .d(1,1)+l3_12fz(i1).d(2,2)*r6_54z(i5,i4).c(2,1)) dia(i1,i5,i4).a(2,2)=l3_12fz(i1).c(2,1)*p312q*r6_54z(i5,i4 & ).b(1,2)+l3_12fz(i1).a(2,2)*r6_54z(i5,i4).a(2,2) dia(i1,i5,i4).b(2,2)=rmb*(l3_12fz(i1).b(2,1)*r6_54z(i5,i4) & .b(1,2)+l3_12fz(i1).d(2,2)*r6_54z(i5,i4).a(2,2)) dia(i1,i5,i4).c(2,2)=rmb*(l3_12fz(i1).c(2,1)*r6_54z(i5,i4) & .c(1,2)+l3_12fz(i1).a(2,2)*r6_54z(i5,i4).d(2,2)) dia(i1,i5,i4).d(2,2)=l3_12fz(i1).b(2,1)*r6_54z(i5,i4).c(1, & 2)+l3_12fz(i1).d(2,2)*p312q*r6_54z(i5,i4).d(2,2) END DO END DO END DO DO i1=1,2 DO i5=1,2 DO i4=1,2 * mline -- res=cres15(i1,i5,i4,&),abcd=dia(i1,i5,i4).,m1=rmb,m2=(-rmb),den= * ((p312q-rmb2)*p312k0) DO iut=1,2 DO jut=1,2 cres15(i1,i5,i4,iut,jut)=(dia(i1,i5,i4).a(iut,jut) & +rmb*dia & (i1,i5,i4).b(iut,jut)+(-rmb)*dia(i1,i5,i4).c(iut, & jut)+rmb & *(-rmb)*dia(i1,i5,i4).d(iut,jut))/((p312q-rmb2) & *p312k0) ENDDO ENDDO END DO END DO END DO * Diagramma ( 58+61 ) Risonante Z su (34) DO i1=1,2 DO i3=1,2 DO i4=1,2 * TT -- aa=dia(i1,i3,i4).a,bb=dia(i1,i3,i4).b,cc=dia(i1,i3,i4).c,dd=dia(i1, * i3,i4).d,a1=l5_12fz(i1).a,b1=l5_12fz(i1).b,c1=l5_12fz(i1).c,d1=l5_12fz(i1) * .d,a2=r6_34z(i3,i4).a,b2=r6_34z(i3,i4).b,c2=r6_34z(i3,i4).c,d2=r6_34z(i3,i * 4).d,prq=p512q,m=rmb dia(i1,i3,i4).a(1,1)=l5_12fz(i1).a(1,1)*r6_34z(i3,i4).a(1, & 1)+l5_12fz(i1).c(1,2)*p512q*r6_34z(i3,i4).b(2,1) dia(i1,i3,i4).b(1,1)=rmb*(l5_12fz(i1).d(1,1)*r6_34z(i3,i4) & .a(1,1)+l5_12fz(i1).b(1,2)*r6_34z(i3,i4).b(2,1)) dia(i1,i3,i4).c(1,1)=rmb*(l5_12fz(i1).a(1,1)*r6_34z(i3,i4) & .d(1,1)+l5_12fz(i1).c(1,2)*r6_34z(i3,i4).c(2,1)) dia(i1,i3,i4).d(1,1)=l5_12fz(i1).d(1,1)*p512q*r6_34z(i3,i4 & ).d(1,1)+l5_12fz(i1).b(1,2)*r6_34z(i3,i4).c(2,1) dia(i1,i3,i4).a(1,2)=rmb*(l5_12fz(i1).a(1,1)*r6_34z(i3,i4) & .b(1,2)+l5_12fz(i1).c(1,2)*r6_34z(i3,i4).a(2,2)) dia(i1,i3,i4).b(1,2)=l5_12fz(i1).d(1,1)*p512q*r6_34z(i3,i4 & ).b(1,2)+l5_12fz(i1).b(1,2)*r6_34z(i3,i4).a(2,2) dia(i1,i3,i4).c(1,2)=l5_12fz(i1).a(1,1)*r6_34z(i3,i4).c(1, & 2)+l5_12fz(i1).c(1,2)*p512q*r6_34z(i3,i4).d(2,2) dia(i1,i3,i4).d(1,2)=rmb*(l5_12fz(i1).d(1,1)*r6_34z(i3,i4) & .c(1,2)+l5_12fz(i1).b(1,2)*r6_34z(i3,i4).d(2,2)) dia(i1,i3,i4).a(2,1)=rmb*(l5_12fz(i1).c(2,1)*r6_34z(i3,i4) & .a(1,1)+l5_12fz(i1).a(2,2)*r6_34z(i3,i4).b(2,1)) dia(i1,i3,i4).b(2,1)=l5_12fz(i1).b(2,1)*r6_34z(i3,i4).a(1, & 1)+l5_12fz(i1).d(2,2)*p512q*r6_34z(i3,i4).b(2,1) dia(i1,i3,i4).c(2,1)=l5_12fz(i1).c(2,1)*p512q*r6_34z(i3,i4 & ).d(1,1)+l5_12fz(i1).a(2,2)*r6_34z(i3,i4).c(2,1) dia(i1,i3,i4).d(2,1)=rmb*(l5_12fz(i1).b(2,1)*r6_34z(i3,i4) & .d(1,1)+l5_12fz(i1).d(2,2)*r6_34z(i3,i4).c(2,1)) dia(i1,i3,i4).a(2,2)=l5_12fz(i1).c(2,1)*p512q*r6_34z(i3,i4 & ).b(1,2)+l5_12fz(i1).a(2,2)*r6_34z(i3,i4).a(2,2) dia(i1,i3,i4).b(2,2)=rmb*(l5_12fz(i1).b(2,1)*r6_34z(i3,i4) & .b(1,2)+l5_12fz(i1).d(2,2)*r6_34z(i3,i4).a(2,2)) dia(i1,i3,i4).c(2,2)=rmb*(l5_12fz(i1).c(2,1)*r6_34z(i3,i4) & .c(1,2)+l5_12fz(i1).a(2,2)*r6_34z(i3,i4).d(2,2)) dia(i1,i3,i4).d(2,2)=l5_12fz(i1).b(2,1)*r6_34z(i3,i4).c(1, & 2)+l5_12fz(i1).d(2,2)*p512q*r6_34z(i3,i4).d(2,2) END DO END DO END DO DO i1=1,2 DO i3=1,2 DO i4=1,2 * mline -- res=cres16(i1,i3,i4,&),abcd=dia(i1,i3,i4).,m1=rmb,m2=(-rmb),den= * ((p512q-rmb2)*p512k0) DO iut=1,2 DO jut=1,2 cres16(i1,i3,i4,iut,jut)=(dia(i1,i3,i4).a(iut,jut) & +rmb*dia & (i1,i3,i4).b(iut,jut)+(-rmb)*dia(i1,i3,i4).c(iut, & jut)+rmb & *(-rmb)*dia(i1,i3,i4).d(iut,jut))/((p512q-rmb2) & *p512k0) ENDDO ENDDO END DO END DO END DO ENDIF IF((imix.EQ.1.AND.(icch.EQ.3.OR.(icch.EQ.1.AND.iha.EQ.1). & OR.(icch.EQ.1.AND.isusy.EQ.1.AND.iha.EQ.2))).OR. & imix.EQ.-2)THEN * Vertice b b~ H ( quarks massivi ) * TH -- qu=p5,qd=p536,a=v5_36h.a,b=v5_36h.b,c=v5_36h.c v5_36h.a(1,2)=-p5k0*p536(2)+p536k0*p5(2)-cim*(p536(3)*p5k0 & -p5(3)*p536k0) v5_36h.a(2,1)=-conjg(v5_36h.a(1,2)) v5_36h.b(1,1)=p536k0 v5_36h.b(2,2)=v5_36h.b(1,1) v5_36h.c(1,1)=p5k0 v5_36h.c(2,2)=v5_36h.c(1,1) DO i1=1,2 * TSCT -- aa=dia1(i1).a,bb=dia1(i1).b,cc=dia1(i1).c,dd=dia1(i1).d,a1=v5_36h * .a,b1=v5_36h.b,c1=v5_36h.c,a2=r4_12fz(i1).a,b2=r4_12fz(i1).b,c2=r4_12fz(i1 * ).c,d2=r4_12fz(i1).d,prq=p536q,m=rmb dia1(i1).a(2,1)=v5_36h.a(2,1)*r4_12fz(i1).a(1,1)+v5_36h.c( & 2,2)*p536q*r4_12fz(i1).b(2,1) dia1(i1).b(2,1)=rmb*v5_36h.b(2,2)*r4_12fz(i1).b(2,1) dia1(i1).c(2,1)=rmb*(v5_36h.a(2,1)*r4_12fz(i1).d(1,1)+v5_3 & 6h.c(2,2)*r4_12fz(i1).c(2,1)) dia1(i1).d(2,1)=v5_36h.b(2,2)*r4_12fz(i1).c(2,1) dia1(i1).a(2,2)=rmb*(v5_36h.a(2,1)*r4_12fz(i1).b(1,2)+v5_3 & 6h.c(2,2)*r4_12fz(i1).a(2,2)) dia1(i1).b(2,2)=v5_36h.b(2,2)*r4_12fz(i1).a(2,2) dia1(i1).c(2,2)=v5_36h.a(2,1)*r4_12fz(i1).c(1,2)+v5_36h.c( & 2,2)*p536q*r4_12fz(i1).d(2,2) dia1(i1).d(2,2)=rmb*v5_36h.b(2,2)*r4_12fz(i1).d(2,2) dia1(i1).a(1,1)=rmb*(v5_36h.c(1,1)*r4_12fz(i1).a(1,1)+v5_3 & 6h.a(1,2)*r4_12fz(i1).b(2,1)) dia1(i1).b(1,1)=v5_36h.b(1,1)*r4_12fz(i1).a(1,1) dia1(i1).c(1,1)=v5_36h.c(1,1)*p536q*r4_12fz(i1).d(1,1)+v5_ & 36h.a(1,2)*r4_12fz(i1).c(2,1) dia1(i1).d(1,1)=rmb*v5_36h.b(1,1)*r4_12fz(i1).d(1,1) dia1(i1).a(1,2)=v5_36h.c(1,1)*p536q*r4_12fz(i1).b(1,2)+v5_ & 36h.a(1,2)*r4_12fz(i1).a(2,2) dia1(i1).b(1,2)=rmb*v5_36h.b(1,1)*r4_12fz(i1).b(1,2) dia1(i1).c(1,2)=rmb*(v5_36h.c(1,1)*r4_12fz(i1).c(1,2)+v5_3 & 6h.a(1,2)*r4_12fz(i1).d(2,2)) dia1(i1).d(1,2)=v5_36h.b(1,1)*r4_12fz(i1).c(1,2) END DO * Diagramma ( 19+22 ) DO i1=1,2 * mline -- res=cresp1(i1,&),abcd=dia1(i1).,m1=rmb,m2=(-rmb),den=((p536q-rmb * 2)*p536k0) DO iut=1,2 DO jut=1,2 cresp1(i1,iut,jut)=(dia1(i1).a(iut,jut)+rmb*dia1(i1).b(iut & ,jut)+(-rmb)*dia1(i1).c(iut,jut)+rmb*(-rmb)*dia1(i1). & d(iu & t,jut))/((p536q-rmb2)*p536k0) ENDDO ENDDO END DO DO i1=1,2 DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 cres17(i1,i3,i4,i5,i6)=rhbb*cresp1(i1,i5,i4)*c36h(i3, & i6) ENDDO !i6 ENDDO !i5 ENDDO !i4 ENDDO !i3 ENDDO !i1 * TH -- qu=p3,qd=p356,a=v3_56h.a,b=v3_56h.b,c=v3_56h.c v3_56h.a(1,2)=-p3k0*p356(2)+p356k0*p3(2)-cim*(p356(3)*p3k0 & -p3(3)*p356k0) v3_56h.a(2,1)=-conjg(v3_56h.a(1,2)) v3_56h.b(1,1)=p356k0 v3_56h.b(2,2)=v3_56h.b(1,1) v3_56h.c(1,1)=p3k0 v3_56h.c(2,2)=v3_56h.c(1,1) DO i1=1,2 * TSCT -- aa=dia1(i1).a,bb=dia1(i1).b,cc=dia1(i1).c,dd=dia1(i1).d,a1=v3_56h * .a,b1=v3_56h.b,c1=v3_56h.c,a2=r4_12fz(i1).a,b2=r4_12fz(i1).b,c2=r4_12fz(i1 * ).c,d2=r4_12fz(i1).d,prq=p356q,m=rmb dia1(i1).a(2,1)=v3_56h.a(2,1)*r4_12fz(i1).a(1,1)+v3_56h.c( & 2,2)*p356q*r4_12fz(i1).b(2,1) dia1(i1).b(2,1)=rmb*v3_56h.b(2,2)*r4_12fz(i1).b(2,1) dia1(i1).c(2,1)=rmb*(v3_56h.a(2,1)*r4_12fz(i1).d(1,1)+v3_5 & 6h.c(2,2)*r4_12fz(i1).c(2,1)) dia1(i1).d(2,1)=v3_56h.b(2,2)*r4_12fz(i1).c(2,1) dia1(i1).a(2,2)=rmb*(v3_56h.a(2,1)*r4_12fz(i1).b(1,2)+v3_5 & 6h.c(2,2)*r4_12fz(i1).a(2,2)) dia1(i1).b(2,2)=v3_56h.b(2,2)*r4_12fz(i1).a(2,2) dia1(i1).c(2,2)=v3_56h.a(2,1)*r4_12fz(i1).c(1,2)+v3_56h.c( & 2,2)*p356q*r4_12fz(i1).d(2,2) dia1(i1).d(2,2)=rmb*v3_56h.b(2,2)*r4_12fz(i1).d(2,2) dia1(i1).a(1,1)=rmb*(v3_56h.c(1,1)*r4_12fz(i1).a(1,1)+v3_5 & 6h.a(1,2)*r4_12fz(i1).b(2,1)) dia1(i1).b(1,1)=v3_56h.b(1,1)*r4_12fz(i1).a(1,1) dia1(i1).c(1,1)=v3_56h.c(1,1)*p356q*r4_12fz(i1).d(1,1)+v3_ & 56h.a(1,2)*r4_12fz(i1).c(2,1) dia1(i1).d(1,1)=rmb*v3_56h.b(1,1)*r4_12fz(i1).d(1,1) dia1(i1).a(1,2)=v3_56h.c(1,1)*p356q*r4_12fz(i1).b(1,2)+v3_ & 56h.a(1,2)*r4_12fz(i1).a(2,2) dia1(i1).b(1,2)=rmb*v3_56h.b(1,1)*r4_12fz(i1).b(1,2) dia1(i1).c(1,2)=rmb*(v3_56h.c(1,1)*r4_12fz(i1).c(1,2)+v3_5 & 6h.a(1,2)*r4_12fz(i1).d(2,2)) dia1(i1).d(1,2)=v3_56h.b(1,1)*r4_12fz(i1).c(1,2) END DO * Diagramma ( 25+28 ) DO i1=1,2 * mline -- res=cresp2(i1,&),abcd=dia1(i1).,m1=rmb,m2=(-rmb),den=((p356q-rmb * 2)*p356k0) DO iut=1,2 DO jut=1,2 cresp2(i1,iut,jut)=(dia1(i1).a(iut,jut)+rmb*dia1(i1).b(iut & ,jut)+(-rmb)*dia1(i1).c(iut,jut)+rmb*(-rmb)*dia1(i1). & d(iu & t,jut))/((p356q-rmb2)*p356k0) ENDDO ENDDO END DO DO i1=1,2 DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 cres18(i1,i3,i4,i5,i6)=rhbb*cresp2(i1,i3,i4)*c56h(i5, & i6) ENDDO !i6 ENDDO !i5 ENDDO !i4 ENDDO !i3 ENDDO !i1 * TH -- qu=p3,qd=p354,a=v3_54h.a,b=v3_54h.b,c=v3_54h.c v3_54h.a(1,2)=-p3k0*p354(2)+p354k0*p3(2)-cim*(p354(3)*p3k0 & -p3(3)*p354k0) v3_54h.a(2,1)=-conjg(v3_54h.a(1,2)) v3_54h.b(1,1)=p354k0 v3_54h.b(2,2)=v3_54h.b(1,1) v3_54h.c(1,1)=p3k0 v3_54h.c(2,2)=v3_54h.c(1,1) DO i1=1,2 * TSCT -- aa=dia1(i1).a,bb=dia1(i1).b,cc=dia1(i1).c,dd=dia1(i1).d,a1=v3_54h * .a,b1=v3_54h.b,c1=v3_54h.c,a2=r6_12fz(i1).a,b2=r6_12fz(i1).b,c2=r6_12fz(i1 * ).c,d2=r6_12fz(i1).d,prq=p354q,m=rmb dia1(i1).a(2,1)=v3_54h.a(2,1)*r6_12fz(i1).a(1,1)+v3_54h.c( & 2,2)*p354q*r6_12fz(i1).b(2,1) dia1(i1).b(2,1)=rmb*v3_54h.b(2,2)*r6_12fz(i1).b(2,1) dia1(i1).c(2,1)=rmb*(v3_54h.a(2,1)*r6_12fz(i1).d(1,1)+v3_5 & 4h.c(2,2)*r6_12fz(i1).c(2,1)) dia1(i1).d(2,1)=v3_54h.b(2,2)*r6_12fz(i1).c(2,1) dia1(i1).a(2,2)=rmb*(v3_54h.a(2,1)*r6_12fz(i1).b(1,2)+v3_5 & 4h.c(2,2)*r6_12fz(i1).a(2,2)) dia1(i1).b(2,2)=v3_54h.b(2,2)*r6_12fz(i1).a(2,2) dia1(i1).c(2,2)=v3_54h.a(2,1)*r6_12fz(i1).c(1,2)+v3_54h.c( & 2,2)*p354q*r6_12fz(i1).d(2,2) dia1(i1).d(2,2)=rmb*v3_54h.b(2,2)*r6_12fz(i1).d(2,2) dia1(i1).a(1,1)=rmb*(v3_54h.c(1,1)*r6_12fz(i1).a(1,1)+v3_5 & 4h.a(1,2)*r6_12fz(i1).b(2,1)) dia1(i1).b(1,1)=v3_54h.b(1,1)*r6_12fz(i1).a(1,1) dia1(i1).c(1,1)=v3_54h.c(1,1)*p354q*r6_12fz(i1).d(1,1)+v3_ & 54h.a(1,2)*r6_12fz(i1).c(2,1) dia1(i1).d(1,1)=rmb*v3_54h.b(1,1)*r6_12fz(i1).d(1,1) dia1(i1).a(1,2)=v3_54h.c(1,1)*p354q*r6_12fz(i1).b(1,2)+v3_ & 54h.a(1,2)*r6_12fz(i1).a(2,2) dia1(i1).b(1,2)=rmb*v3_54h.b(1,1)*r6_12fz(i1).b(1,2) dia1(i1).c(1,2)=rmb*(v3_54h.c(1,1)*r6_12fz(i1).c(1,2)+v3_5 & 4h.a(1,2)*r6_12fz(i1).d(2,2)) dia1(i1).d(1,2)=v3_54h.b(1,1)*r6_12fz(i1).c(1,2) END DO * Diagramma ( 39+42 ) DO i1=1,2 * mline -- res=cresp3(i1,&),abcd=dia1(i1).,m1=rmb,m2=(-rmb),den=((p354q-rmb * 2)*p354k0) DO iut=1,2 DO jut=1,2 cresp3(i1,iut,jut)=(dia1(i1).a(iut,jut)+rmb*dia1(i1).b(iut & ,jut)+(-rmb)*dia1(i1).c(iut,jut)+rmb*(-rmb)*dia1(i1). & d(iu & t,jut))/((p354q-rmb2)*p354k0) ENDDO ENDDO END DO DO i1=1,2 DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 cres19(i1,i3,i4,i5,i6)=rhbb*cresp3(i1,i3,i6)*c54h(i5, & i4) ENDDO !i6 ENDDO !i5 ENDDO !i4 ENDDO !i3 ENDDO !i1 * TH -- qu=p5,qd=p534,a=v5_34h.a,b=v5_34h.b,c=v5_34h.c v5_34h.a(1,2)=-p5k0*p534(2)+p534k0*p5(2)-cim*(p534(3)*p5k0 & -p5(3)*p534k0) v5_34h.a(2,1)=-conjg(v5_34h.a(1,2)) v5_34h.b(1,1)=p534k0 v5_34h.b(2,2)=v5_34h.b(1,1) v5_34h.c(1,1)=p5k0 v5_34h.c(2,2)=v5_34h.c(1,1) DO i1=1,2 * TSCT -- aa=dia1(i1).a,bb=dia1(i1).b,cc=dia1(i1).c,dd=dia1(i1).d,a1=v5_34h * .a,b1=v5_34h.b,c1=v5_34h.c,a2=r6_12fz(i1).a,b2=r6_12fz(i1).b,c2=r6_12fz(i1 * ).c,d2=r6_12fz(i1).d,prq=p534q,m=rmb dia1(i1).a(2,1)=v5_34h.a(2,1)*r6_12fz(i1).a(1,1)+v5_34h.c( & 2,2)*p534q*r6_12fz(i1).b(2,1) dia1(i1).b(2,1)=rmb*v5_34h.b(2,2)*r6_12fz(i1).b(2,1) dia1(i1).c(2,1)=rmb*(v5_34h.a(2,1)*r6_12fz(i1).d(1,1)+v5_3 & 4h.c(2,2)*r6_12fz(i1).c(2,1)) dia1(i1).d(2,1)=v5_34h.b(2,2)*r6_12fz(i1).c(2,1) dia1(i1).a(2,2)=rmb*(v5_34h.a(2,1)*r6_12fz(i1).b(1,2)+v5_3 & 4h.c(2,2)*r6_12fz(i1).a(2,2)) dia1(i1).b(2,2)=v5_34h.b(2,2)*r6_12fz(i1).a(2,2) dia1(i1).c(2,2)=v5_34h.a(2,1)*r6_12fz(i1).c(1,2)+v5_34h.c( & 2,2)*p534q*r6_12fz(i1).d(2,2) dia1(i1).d(2,2)=rmb*v5_34h.b(2,2)*r6_12fz(i1).d(2,2) dia1(i1).a(1,1)=rmb*(v5_34h.c(1,1)*r6_12fz(i1).a(1,1)+v5_3 & 4h.a(1,2)*r6_12fz(i1).b(2,1)) dia1(i1).b(1,1)=v5_34h.b(1,1)*r6_12fz(i1).a(1,1) dia1(i1).c(1,1)=v5_34h.c(1,1)*p534q*r6_12fz(i1).d(1,1)+v5_ & 34h.a(1,2)*r6_12fz(i1).c(2,1) dia1(i1).d(1,1)=rmb*v5_34h.b(1,1)*r6_12fz(i1).d(1,1) dia1(i1).a(1,2)=v5_34h.c(1,1)*p534q*r6_12fz(i1).b(1,2)+v5_ & 34h.a(1,2)*r6_12fz(i1).a(2,2) dia1(i1).b(1,2)=rmb*v5_34h.b(1,1)*r6_12fz(i1).b(1,2) dia1(i1).c(1,2)=rmb*(v5_34h.c(1,1)*r6_12fz(i1).c(1,2)+v5_3 & 4h.a(1,2)*r6_12fz(i1).d(2,2)) dia1(i1).d(1,2)=v5_34h.b(1,1)*r6_12fz(i1).c(1,2) END DO * Diagramma ( 65+68 ) DO i1=1,2 * mline -- res=cresp4(i1,&),abcd=dia1(i1).,m1=rmb,m2=(-rmb),den=((p534q-rmb * 2)*p534k0) DO iut=1,2 DO jut=1,2 cresp4(i1,iut,jut)=(dia1(i1).a(iut,jut)+rmb*dia1(i1).b(iut & ,jut)+(-rmb)*dia1(i1).c(iut,jut)+rmb*(-rmb)*dia1(i1). & d(iu & t,jut))/((p534q-rmb2)*p534k0) ENDDO ENDDO END DO DO i1=1,2 DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 cres20(i1,i3,i4,i5,i6)=rhbb*cresp4(i1,i5,i6)*c34h(i3, & i4) ENDDO !i6 ENDDO !i5 ENDDO !i4 ENDDO !i3 ENDDO !i1 * TH -- qu=p312,qd=p4,a=v4_56h.a,b=v4_56h.b,c=v4_56h.c v4_56h.a(1,2)=-p312k0*p4(2)+p4k0*p312(2)-cim*(p4(3)*p312k0 & -p312(3)*p4k0) v4_56h.a(2,1)=-conjg(v4_56h.a(1,2)) v4_56h.b(1,1)=p4k0 v4_56h.b(2,2)=v4_56h.b(1,1) v4_56h.c(1,1)=p312k0 v4_56h.c(2,2)=v4_56h.c(1,1) DO i1=1,2 * TTSC -- aa=dia1(i1).a,bb=dia1(i1).b,cc=dia1(i1).c,dd=dia1(i1).d,a1=l3_12f * z(i1).a,b1=l3_12fz(i1).b,c1=l3_12fz(i1).c,d1=l3_12fz(i1).d,a2=v4_56h.a,b2= * v4_56h.b,c2=v4_56h.c,prq=p312q,m=rmb dia1(i1).a(1,2)=l3_12fz(i1).a(1,1)*v4_56h.a(1,2)+l3_12fz(i & 1).c(1,2)*p312q*v4_56h.b(2,2) dia1(i1).b(1,2)=rmb*(l3_12fz(i1).d(1,1)*v4_56h.a(1,2)+l3_1 & 2fz(i1).b(1,2)*v4_56h.b(2,2)) dia1(i1).c(1,2)=rmb*l3_12fz(i1).c(1,2)*v4_56h.c(2,2) dia1(i1).d(1,2)=l3_12fz(i1).b(1,2)*v4_56h.c(2,2) dia1(i1).a(1,1)=rmb*(l3_12fz(i1).a(1,1)*v4_56h.b(1,1)+l3_1 & 2fz(i1).c(1,2)*v4_56h.a(2,1)) dia1(i1).b(1,1)=l3_12fz(i1).d(1,1)*p312q*v4_56h.b(1,1)+l3_ & 12fz(i1).b(1,2)*v4_56h.a(2,1) dia1(i1).c(1,1)=l3_12fz(i1).a(1,1)*v4_56h.c(1,1) dia1(i1).d(1,1)=rmb*l3_12fz(i1).d(1,1)*v4_56h.c(1,1) dia1(i1).a(2,2)=rmb*(l3_12fz(i1).c(2,1)*v4_56h.a(1,2)+l3_1 & 2fz(i1).a(2,2)*v4_56h.b(2,2)) dia1(i1).b(2,2)=l3_12fz(i1).b(2,1)*v4_56h.a(1,2)+l3_12fz(i & 1).d(2,2)*p312q*v4_56h.b(2,2) dia1(i1).c(2,2)=l3_12fz(i1).a(2,2)*v4_56h.c(2,2) dia1(i1).d(2,2)=rmb*l3_12fz(i1).d(2,2)*v4_56h.c(2,2) dia1(i1).a(2,1)=l3_12fz(i1).c(2,1)*p312q*v4_56h.b(1,1)+l3_ & 12fz(i1).a(2,2)*v4_56h.a(2,1) dia1(i1).b(2,1)=rmb*(l3_12fz(i1).b(2,1)*v4_56h.b(1,1)+l3_1 & 2fz(i1).d(2,2)*v4_56h.a(2,1)) dia1(i1).c(2,1)=rmb*l3_12fz(i1).c(2,1)*v4_56h.c(1,1) dia1(i1).d(2,1)=l3_12fz(i1).b(2,1)*v4_56h.c(1,1) END DO * Diagramma ( 33+36 ) DO i1=1,2 * mline -- res=cresp5(i1,&),abcd=dia1(i1).,m1=rmb,m2=(-rmb),den=((p312q-rmb * 2)*p312k0) DO iut=1,2 DO jut=1,2 cresp5(i1,iut,jut)=(dia1(i1).a(iut,jut)+rmb*dia1(i1).b(iut & ,jut)+(-rmb)*dia1(i1).c(iut,jut)+rmb*(-rmb)*dia1(i1). & d(iu & t,jut))/((p312q-rmb2)*p312k0) ENDDO ENDDO END DO * TH -- qu=p312,qd=p6,a=v6_54h.a,b=v6_54h.b,c=v6_54h.c v6_54h.a(1,2)=-p312k0*p6(2)+p6k0*p312(2)-cim*(p6(3)*p312k0 & -p312(3)*p6k0) v6_54h.a(2,1)=-conjg(v6_54h.a(1,2)) v6_54h.b(1,1)=p6k0 v6_54h.b(2,2)=v6_54h.b(1,1) v6_54h.c(1,1)=p312k0 v6_54h.c(2,2)=v6_54h.c(1,1) DO i1=1,2 * TTSC -- aa=dia1(i1).a,bb=dia1(i1).b,cc=dia1(i1).c,dd=dia1(i1).d,a1=l3_12f * z(i1).a,b1=l3_12fz(i1).b,c1=l3_12fz(i1).c,d1=l3_12fz(i1).d,a2=v6_54h.a,b2= * v6_54h.b,c2=v6_54h.c,prq=p312q,m=rmb dia1(i1).a(1,2)=l3_12fz(i1).a(1,1)*v6_54h.a(1,2)+l3_12fz(i & 1).c(1,2)*p312q*v6_54h.b(2,2) dia1(i1).b(1,2)=rmb*(l3_12fz(i1).d(1,1)*v6_54h.a(1,2)+l3_1 & 2fz(i1).b(1,2)*v6_54h.b(2,2)) dia1(i1).c(1,2)=rmb*l3_12fz(i1).c(1,2)*v6_54h.c(2,2) dia1(i1).d(1,2)=l3_12fz(i1).b(1,2)*v6_54h.c(2,2) dia1(i1).a(1,1)=rmb*(l3_12fz(i1).a(1,1)*v6_54h.b(1,1)+l3_1 & 2fz(i1).c(1,2)*v6_54h.a(2,1)) dia1(i1).b(1,1)=l3_12fz(i1).d(1,1)*p312q*v6_54h.b(1,1)+l3_ & 12fz(i1).b(1,2)*v6_54h.a(2,1) dia1(i1).c(1,1)=l3_12fz(i1).a(1,1)*v6_54h.c(1,1) dia1(i1).d(1,1)=rmb*l3_12fz(i1).d(1,1)*v6_54h.c(1,1) dia1(i1).a(2,2)=rmb*(l3_12fz(i1).c(2,1)*v6_54h.a(1,2)+l3_1 & 2fz(i1).a(2,2)*v6_54h.b(2,2)) dia1(i1).b(2,2)=l3_12fz(i1).b(2,1)*v6_54h.a(1,2)+l3_12fz(i & 1).d(2,2)*p312q*v6_54h.b(2,2) dia1(i1).c(2,2)=l3_12fz(i1).a(2,2)*v6_54h.c(2,2) dia1(i1).d(2,2)=rmb*l3_12fz(i1).d(2,2)*v6_54h.c(2,2) dia1(i1).a(2,1)=l3_12fz(i1).c(2,1)*p312q*v6_54h.b(1,1)+l3_ & 12fz(i1).a(2,2)*v6_54h.a(2,1) dia1(i1).b(2,1)=rmb*(l3_12fz(i1).b(2,1)*v6_54h.b(1,1)+l3_1 & 2fz(i1).d(2,2)*v6_54h.a(2,1)) dia1(i1).c(2,1)=rmb*l3_12fz(i1).c(2,1)*v6_54h.c(1,1) dia1(i1).d(2,1)=l3_12fz(i1).b(2,1)*v6_54h.c(1,1) END DO * Diagramma ( 45+48 ) DO i1=1,2 * mline -- res=cresp6(i1,&),abcd=dia1(i1).,m1=rmb,m2=(-rmb),den=((p312q-rmb * 2)*p312k0) DO iut=1,2 DO jut=1,2 cresp6(i1,iut,jut)=(dia1(i1).a(iut,jut)+rmb*dia1(i1).b(iut & ,jut)+(-rmb)*dia1(i1).c(iut,jut)+rmb*(-rmb)*dia1(i1). & d(iu & t,jut))/((p312q-rmb2)*p312k0) ENDDO ENDDO END DO * TH -- qu=p512,qd=p4,a=v4_36h.a,b=v4_36h.b,c=v4_36h.c v4_36h.a(1,2)=-p512k0*p4(2)+p4k0*p512(2)-cim*(p4(3)*p512k0 & -p512(3)*p4k0) v4_36h.a(2,1)=-conjg(v4_36h.a(1,2)) v4_36h.b(1,1)=p4k0 v4_36h.b(2,2)=v4_36h.b(1,1) v4_36h.c(1,1)=p512k0 v4_36h.c(2,2)=v4_36h.c(1,1) DO i1=1,2 * TTSC -- aa=dia1(i1).a,bb=dia1(i1).b,cc=dia1(i1).c,dd=dia1(i1).d,a1=l5_12f * z(i1).a,b1=l5_12fz(i1).b,c1=l5_12fz(i1).c,d1=l5_12fz(i1).d,a2=v4_36h.a,b2= * v4_36h.b,c2=v4_36h.c,prq=p512q,m=rmb dia1(i1).a(1,2)=l5_12fz(i1).a(1,1)*v4_36h.a(1,2)+l5_12fz(i & 1).c(1,2)*p512q*v4_36h.b(2,2) dia1(i1).b(1,2)=rmb*(l5_12fz(i1).d(1,1)*v4_36h.a(1,2)+l5_1 & 2fz(i1).b(1,2)*v4_36h.b(2,2)) dia1(i1).c(1,2)=rmb*l5_12fz(i1).c(1,2)*v4_36h.c(2,2) dia1(i1).d(1,2)=l5_12fz(i1).b(1,2)*v4_36h.c(2,2) dia1(i1).a(1,1)=rmb*(l5_12fz(i1).a(1,1)*v4_36h.b(1,1)+l5_1 & 2fz(i1).c(1,2)*v4_36h.a(2,1)) dia1(i1).b(1,1)=l5_12fz(i1).d(1,1)*p512q*v4_36h.b(1,1)+l5_ & 12fz(i1).b(1,2)*v4_36h.a(2,1) dia1(i1).c(1,1)=l5_12fz(i1).a(1,1)*v4_36h.c(1,1) dia1(i1).d(1,1)=rmb*l5_12fz(i1).d(1,1)*v4_36h.c(1,1) dia1(i1).a(2,2)=rmb*(l5_12fz(i1).c(2,1)*v4_36h.a(1,2)+l5_1 & 2fz(i1).a(2,2)*v4_36h.b(2,2)) dia1(i1).b(2,2)=l5_12fz(i1).b(2,1)*v4_36h.a(1,2)+l5_12fz(i & 1).d(2,2)*p512q*v4_36h.b(2,2) dia1(i1).c(2,2)=l5_12fz(i1).a(2,2)*v4_36h.c(2,2) dia1(i1).d(2,2)=rmb*l5_12fz(i1).d(2,2)*v4_36h.c(2,2) dia1(i1).a(2,1)=l5_12fz(i1).c(2,1)*p512q*v4_36h.b(1,1)+l5_ & 12fz(i1).a(2,2)*v4_36h.a(2,1) dia1(i1).b(2,1)=rmb*(l5_12fz(i1).b(2,1)*v4_36h.b(1,1)+l5_1 & 2fz(i1).d(2,2)*v4_36h.a(2,1)) dia1(i1).c(2,1)=rmb*l5_12fz(i1).c(2,1)*v4_36h.c(1,1) dia1(i1).d(2,1)=l5_12fz(i1).b(2,1)*v4_36h.c(1,1) END DO * Diagramma ( 51+54 ) DO i1=1,2 * mline -- res=cresp7(i1,&),abcd=dia1(i1).,m1=rmb,m2=(-rmb),den=((p512q-rmb * 2)*p512k0) DO iut=1,2 DO jut=1,2 cresp7(i1,iut,jut)=(dia1(i1).a(iut,jut)+rmb*dia1(i1).b(iut & ,jut)+(-rmb)*dia1(i1).c(iut,jut)+rmb*(-rmb)*dia1(i1). & d(iu & t,jut))/((p512q-rmb2)*p512k0) ENDDO ENDDO END DO * TH -- qu=p512,qd=p6,a=v6_34h.a,b=v6_34h.b,c=v6_34h.c v6_34h.a(1,2)=-p512k0*p6(2)+p6k0*p512(2)-cim*(p6(3)*p512k0 & -p512(3)*p6k0) v6_34h.a(2,1)=-conjg(v6_34h.a(1,2)) v6_34h.b(1,1)=p6k0 v6_34h.b(2,2)=v6_34h.b(1,1) v6_34h.c(1,1)=p512k0 v6_34h.c(2,2)=v6_34h.c(1,1) DO i1=1,2 * TTSC -- aa=dia1(i1).a,bb=dia1(i1).b,cc=dia1(i1).c,dd=dia1(i1).d,a1=l5_12f * z(i1).a,b1=l5_12fz(i1).b,c1=l5_12fz(i1).c,d1=l5_12fz(i1).d,a2=v6_34h.a,b2= * v6_34h.b,c2=v6_34h.c,prq=p512q,m=rmb dia1(i1).a(1,2)=l5_12fz(i1).a(1,1)*v6_34h.a(1,2)+l5_12fz(i & 1).c(1,2)*p512q*v6_34h.b(2,2) dia1(i1).b(1,2)=rmb*(l5_12fz(i1).d(1,1)*v6_34h.a(1,2)+l5_1 & 2fz(i1).b(1,2)*v6_34h.b(2,2)) dia1(i1).c(1,2)=rmb*l5_12fz(i1).c(1,2)*v6_34h.c(2,2) dia1(i1).d(1,2)=l5_12fz(i1).b(1,2)*v6_34h.c(2,2) dia1(i1).a(1,1)=rmb*(l5_12fz(i1).a(1,1)*v6_34h.b(1,1)+l5_1 & 2fz(i1).c(1,2)*v6_34h.a(2,1)) dia1(i1).b(1,1)=l5_12fz(i1).d(1,1)*p512q*v6_34h.b(1,1)+l5_ & 12fz(i1).b(1,2)*v6_34h.a(2,1) dia1(i1).c(1,1)=l5_12fz(i1).a(1,1)*v6_34h.c(1,1) dia1(i1).d(1,1)=rmb*l5_12fz(i1).d(1,1)*v6_34h.c(1,1) dia1(i1).a(2,2)=rmb*(l5_12fz(i1).c(2,1)*v6_34h.a(1,2)+l5_1 & 2fz(i1).a(2,2)*v6_34h.b(2,2)) dia1(i1).b(2,2)=l5_12fz(i1).b(2,1)*v6_34h.a(1,2)+l5_12fz(i & 1).d(2,2)*p512q*v6_34h.b(2,2) dia1(i1).c(2,2)=l5_12fz(i1).a(2,2)*v6_34h.c(2,2) dia1(i1).d(2,2)=rmb*l5_12fz(i1).d(2,2)*v6_34h.c(2,2) dia1(i1).a(2,1)=l5_12fz(i1).c(2,1)*p512q*v6_34h.b(1,1)+l5_ & 12fz(i1).a(2,2)*v6_34h.a(2,1) dia1(i1).b(2,1)=rmb*(l5_12fz(i1).b(2,1)*v6_34h.b(1,1)+l5_1 & 2fz(i1).d(2,2)*v6_34h.a(2,1)) dia1(i1).c(2,1)=rmb*l5_12fz(i1).c(2,1)*v6_34h.c(1,1) dia1(i1).d(2,1)=l5_12fz(i1).b(2,1)*v6_34h.c(1,1) END DO * Diagramma ( 59+62 ) DO i1=1,2 * mline -- res=cresp8(i1,&),abcd=dia1(i1).,m1=rmb,m2=(-rmb),den=((p512q-rmb * 2)*p512k0) DO iut=1,2 DO jut=1,2 cresp8(i1,iut,jut)=(dia1(i1).a(iut,jut)+rmb*dia1(i1).b(iut & ,jut)+(-rmb)*dia1(i1).c(iut,jut)+rmb*(-rmb)*dia1(i1). & d(iu & t,jut))/((p512q-rmb2)*p512k0) ENDDO ENDDO END DO DO i1=1,2 DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 cres21(i1,i3,i4,i5,i6)=rhbb*cresp5(i1,i3,i4)*c56h(i5, & i6) cres22(i1,i3,i4,i5,i6)=rhbb*cresp6(i1,i3,i6)*c54h(i5, & i4) cres23(i1,i3,i4,i5,i6)=rhbb*cresp7(i1,i5,i4)*c36h(i3, & i6) cres24(i1,i3,i4,i5,i6)=rhbb*cresp8(i1,i5,i6)*c34h(i3, & i4) ENDDO !i6 ENDDO !i5 ENDDO !i4 ENDDO !i3 ENDDO !i1 ENDIF IF((imix.EQ.1.AND.isusy.EQ.1.AND.(icch.EQ.3.OR.(icch.EQ.1.AND. & (iha.EQ.1.OR.iha.EQ.3)))).OR.(imix.EQ.-2.AND.isusy.EQ.1))THEN * inizio codice phact single_A.ph * TSC -- qu=p5,qd=p536,a=v5_36a.a,b=v5_36a.b,c=v5_36a.c,cr=1.d0,cl=-1.d0 auxa=-p5k0*p536(2)+p536k0*p5(2) cauxa=-cim*(p536(3)*p5k0-p5(3)*p536k0) v5_36a.a(1,2)=-1.d0*(auxa+cauxa) v5_36a.a(2,1)=(-auxa+cauxa) v5_36a.b(1,1)=p536k0 v5_36a.b(2,2)=-1.d0*p536k0 v5_36a.c(1,1)=-1.d0*p5k0 v5_36a.c(2,2)=p5k0 do i1=1,2 * TSCT -- aa=dia1(i1).a,bb=dia1(i1).b,cc=dia1(i1).c,dd=dia1(i1).d,a1=v5_36a * .a,b1=v5_36a.b,c1=v5_36a.c,a2=r4_12fz(i1).a,b2=r4_12fz(i1).b,c2=r4_12fz(i1 * ).c,d2=r4_12fz(i1).d,prq=p536q,m=rmb,nsum=0 dia1(i1).a(2,1)=v5_36a.a(2,1)*r4_12fz(i1).a(1,1)+v5_36a.c( & 2,2)*p536q*r4_12fz(i1).b(2,1) dia1(i1).b(2,1)=rmb*v5_36a.b(2,2)*r4_12fz(i1).b(2,1) dia1(i1).c(2,1)=rmb*(v5_36a.a(2,1)*r4_12fz(i1).d(1,1)+v5_3 & 6a.c(2,2)*r4_12fz(i1).c(2,1)) dia1(i1).d(2,1)=v5_36a.b(2,2)*r4_12fz(i1).c(2,1) dia1(i1).a(2,2)=rmb*(v5_36a.a(2,1)*r4_12fz(i1).b(1,2)+v5_3 & 6a.c(2,2)*r4_12fz(i1).a(2,2)) dia1(i1).b(2,2)=v5_36a.b(2,2)*r4_12fz(i1).a(2,2) dia1(i1).c(2,2)=v5_36a.a(2,1)*r4_12fz(i1).c(1,2)+v5_36a.c( & 2,2)*p536q*r4_12fz(i1).d(2,2) dia1(i1).d(2,2)=rmb*v5_36a.b(2,2)*r4_12fz(i1).d(2,2) dia1(i1).a(1,1)=rmb*(v5_36a.c(1,1)*r4_12fz(i1).a(1,1)+v5_3 & 6a.a(1,2)*r4_12fz(i1).b(2,1)) dia1(i1).b(1,1)=v5_36a.b(1,1)*r4_12fz(i1).a(1,1) dia1(i1).c(1,1)=v5_36a.c(1,1)*p536q*r4_12fz(i1).d(1,1)+v5_ & 36a.a(1,2)*r4_12fz(i1).c(2,1) dia1(i1).d(1,1)=rmb*v5_36a.b(1,1)*r4_12fz(i1).d(1,1) dia1(i1).a(1,2)=v5_36a.c(1,1)*p536q*r4_12fz(i1).b(1,2)+v5_ & 36a.a(1,2)*r4_12fz(i1).a(2,2) dia1(i1).b(1,2)=rmb*v5_36a.b(1,1)*r4_12fz(i1).b(1,2) dia1(i1).c(1,2)=rmb*(v5_36a.c(1,1)*r4_12fz(i1).c(1,2)+v5_3 & 6a.a(1,2)*r4_12fz(i1).d(2,2)) dia1(i1).d(1,2)=v5_36a.b(1,1)*r4_12fz(i1).c(1,2) end do do i1=1,2 * mline -- res=cresp9(i1,&1,&2),abcd=dia1(i1).,m1=rmb,m2=(-rmb),den=((p536q * -rmb2)*p536k0),nsum=0 do iut=1,2 do jut=1,2 cresp9(i1,iut,jut)=(dia1(i1).a(iut,jut)+rmb*dia1(i1).b(iut & ,jut)+(-rmb)*dia1(i1).c(iut,jut)+rmb*(-rmb)*dia1(i1).d(iu & t,jut))/((p536q-rmb2)*p536k0) enddo enddo end do * TSC -- qu=p3,qd=p356,a=v3_56a.a,b=v3_56a.b,c=v3_56a.c,cr=1.d0,cl=-1.d0 auxa=-p3k0*p356(2)+p356k0*p3(2) cauxa=-cim*(p356(3)*p3k0-p3(3)*p356k0) v3_56a.a(1,2)=-1.d0*(auxa+cauxa) v3_56a.a(2,1)=(-auxa+cauxa) v3_56a.b(1,1)=p356k0 v3_56a.b(2,2)=-1.d0*p356k0 v3_56a.c(1,1)=-1.d0*p3k0 v3_56a.c(2,2)=p3k0 do i1=1,2 * TSCT -- aa=dia1(i1).a,bb=dia1(i1).b,cc=dia1(i1).c,dd=dia1(i1).d,a1=v3_56a * .a,b1=v3_56a.b,c1=v3_56a.c,a2=r4_12fz(i1).a,b2=r4_12fz(i1).b,c2=r4_12fz(i1 * ).c,d2=r4_12fz(i1).d,prq=p356q,m=rmb,nsum=0 dia1(i1).a(2,1)=v3_56a.a(2,1)*r4_12fz(i1).a(1,1)+v3_56a.c( & 2,2)*p356q*r4_12fz(i1).b(2,1) dia1(i1).b(2,1)=rmb*v3_56a.b(2,2)*r4_12fz(i1).b(2,1) dia1(i1).c(2,1)=rmb*(v3_56a.a(2,1)*r4_12fz(i1).d(1,1)+v3_5 & 6a.c(2,2)*r4_12fz(i1).c(2,1)) dia1(i1).d(2,1)=v3_56a.b(2,2)*r4_12fz(i1).c(2,1) dia1(i1).a(2,2)=rmb*(v3_56a.a(2,1)*r4_12fz(i1).b(1,2)+v3_5 & 6a.c(2,2)*r4_12fz(i1).a(2,2)) dia1(i1).b(2,2)=v3_56a.b(2,2)*r4_12fz(i1).a(2,2) dia1(i1).c(2,2)=v3_56a.a(2,1)*r4_12fz(i1).c(1,2)+v3_56a.c( & 2,2)*p356q*r4_12fz(i1).d(2,2) dia1(i1).d(2,2)=rmb*v3_56a.b(2,2)*r4_12fz(i1).d(2,2) dia1(i1).a(1,1)=rmb*(v3_56a.c(1,1)*r4_12fz(i1).a(1,1)+v3_5 & 6a.a(1,2)*r4_12fz(i1).b(2,1)) dia1(i1).b(1,1)=v3_56a.b(1,1)*r4_12fz(i1).a(1,1) dia1(i1).c(1,1)=v3_56a.c(1,1)*p356q*r4_12fz(i1).d(1,1)+v3_ & 56a.a(1,2)*r4_12fz(i1).c(2,1) dia1(i1).d(1,1)=rmb*v3_56a.b(1,1)*r4_12fz(i1).d(1,1) dia1(i1).a(1,2)=v3_56a.c(1,1)*p356q*r4_12fz(i1).b(1,2)+v3_ & 56a.a(1,2)*r4_12fz(i1).a(2,2) dia1(i1).b(1,2)=rmb*v3_56a.b(1,1)*r4_12fz(i1).b(1,2) dia1(i1).c(1,2)=rmb*(v3_56a.c(1,1)*r4_12fz(i1).c(1,2)+v3_5 & 6a.a(1,2)*r4_12fz(i1).d(2,2)) dia1(i1).d(1,2)=v3_56a.b(1,1)*r4_12fz(i1).c(1,2) end do do i1=1,2 * mline -- res=cresp10(i1,&1,&2),abcd=dia1(i1).,m1=rmb,m2=(-rmb),den=((p356 * q-rmb2)*p356k0),nsum=0 do iut=1,2 do jut=1,2 cresp10(i1,iut,jut)=(dia1(i1).a(iut,jut)+rmb*dia1(i1).b(iu & t,jut)+(-rmb)*dia1(i1).c(iut,jut)+rmb*(-rmb)*dia1(i1).d(i & ut,jut))/((p356q-rmb2)*p356k0) enddo enddo end do * TSC -- qu=p3,qd=p354,a=v3_54a.a,b=v3_54a.b,c=v3_54a.c,cr=1.d0,cl=-1.d0 auxa=-p3k0*p354(2)+p354k0*p3(2) cauxa=-cim*(p354(3)*p3k0-p3(3)*p354k0) v3_54a.a(1,2)=-1.d0*(auxa+cauxa) v3_54a.a(2,1)=(-auxa+cauxa) v3_54a.b(1,1)=p354k0 v3_54a.b(2,2)=-1.d0*p354k0 v3_54a.c(1,1)=-1.d0*p3k0 v3_54a.c(2,2)=p3k0 do i1=1,2 * TSCT -- aa=dia1(i1).a,bb=dia1(i1).b,cc=dia1(i1).c,dd=dia1(i1).d,a1=v3_54a * .a,b1=v3_54a.b,c1=v3_54a.c,a2=r6_12fz(i1).a,b2=r6_12fz(i1).b,c2=r6_12fz(i1 * ).c,d2=r6_12fz(i1).d,prq=p354q,m=rmb,nsum=0 dia1(i1).a(2,1)=v3_54a.a(2,1)*r6_12fz(i1).a(1,1)+v3_54a.c( & 2,2)*p354q*r6_12fz(i1).b(2,1) dia1(i1).b(2,1)=rmb*v3_54a.b(2,2)*r6_12fz(i1).b(2,1) dia1(i1).c(2,1)=rmb*(v3_54a.a(2,1)*r6_12fz(i1).d(1,1)+v3_5 & 4a.c(2,2)*r6_12fz(i1).c(2,1)) dia1(i1).d(2,1)=v3_54a.b(2,2)*r6_12fz(i1).c(2,1) dia1(i1).a(2,2)=rmb*(v3_54a.a(2,1)*r6_12fz(i1).b(1,2)+v3_5 & 4a.c(2,2)*r6_12fz(i1).a(2,2)) dia1(i1).b(2,2)=v3_54a.b(2,2)*r6_12fz(i1).a(2,2) dia1(i1).c(2,2)=v3_54a.a(2,1)*r6_12fz(i1).c(1,2)+v3_54a.c( & 2,2)*p354q*r6_12fz(i1).d(2,2) dia1(i1).d(2,2)=rmb*v3_54a.b(2,2)*r6_12fz(i1).d(2,2) dia1(i1).a(1,1)=rmb*(v3_54a.c(1,1)*r6_12fz(i1).a(1,1)+v3_5 & 4a.a(1,2)*r6_12fz(i1).b(2,1)) dia1(i1).b(1,1)=v3_54a.b(1,1)*r6_12fz(i1).a(1,1) dia1(i1).c(1,1)=v3_54a.c(1,1)*p354q*r6_12fz(i1).d(1,1)+v3_ & 54a.a(1,2)*r6_12fz(i1).c(2,1) dia1(i1).d(1,1)=rmb*v3_54a.b(1,1)*r6_12fz(i1).d(1,1) dia1(i1).a(1,2)=v3_54a.c(1,1)*p354q*r6_12fz(i1).b(1,2)+v3_ & 54a.a(1,2)*r6_12fz(i1).a(2,2) dia1(i1).b(1,2)=rmb*v3_54a.b(1,1)*r6_12fz(i1).b(1,2) dia1(i1).c(1,2)=rmb*(v3_54a.c(1,1)*r6_12fz(i1).c(1,2)+v3_5 & 4a.a(1,2)*r6_12fz(i1).d(2,2)) dia1(i1).d(1,2)=v3_54a.b(1,1)*r6_12fz(i1).c(1,2) end do do i1=1,2 * mline -- res=cresp11(i1,&1,&2),abcd=dia1(i1).,m1=rmb,m2=(-rmb),den=((p354 * q-rmb2)*p354k0),nsum=0 do iut=1,2 do jut=1,2 cresp11(i1,iut,jut)=(dia1(i1).a(iut,jut)+rmb*dia1(i1).b(iu & t,jut)+(-rmb)*dia1(i1).c(iut,jut)+rmb*(-rmb)*dia1(i1).d(i & ut,jut))/((p354q-rmb2)*p354k0) enddo enddo end do * TSC -- qu=p5,qd=p534,a=v5_34a.a,b=v5_34a.b,c=v5_34a.c,cr=1.d0,cl=-1.d0 auxa=-p5k0*p534(2)+p534k0*p5(2) cauxa=-cim*(p534(3)*p5k0-p5(3)*p534k0) v5_34a.a(1,2)=-1.d0*(auxa+cauxa) v5_34a.a(2,1)=(-auxa+cauxa) v5_34a.b(1,1)=p534k0 v5_34a.b(2,2)=-1.d0*p534k0 v5_34a.c(1,1)=-1.d0*p5k0 v5_34a.c(2,2)=p5k0 do i1=1,2 * TSCT -- aa=dia1(i1).a,bb=dia1(i1).b,cc=dia1(i1).c,dd=dia1(i1).d,a1=v5_34a * .a,b1=v5_34a.b,c1=v5_34a.c,a2=r6_12fz(i1).a,b2=r6_12fz(i1).b,c2=r6_12fz(i1 * ).c,d2=r6_12fz(i1).d,prq=p534q,m=rmb,nsum=0 dia1(i1).a(2,1)=v5_34a.a(2,1)*r6_12fz(i1).a(1,1)+v5_34a.c( & 2,2)*p534q*r6_12fz(i1).b(2,1) dia1(i1).b(2,1)=rmb*v5_34a.b(2,2)*r6_12fz(i1).b(2,1) dia1(i1).c(2,1)=rmb*(v5_34a.a(2,1)*r6_12fz(i1).d(1,1)+v5_3 & 4a.c(2,2)*r6_12fz(i1).c(2,1)) dia1(i1).d(2,1)=v5_34a.b(2,2)*r6_12fz(i1).c(2,1) dia1(i1).a(2,2)=rmb*(v5_34a.a(2,1)*r6_12fz(i1).b(1,2)+v5_3 & 4a.c(2,2)*r6_12fz(i1).a(2,2)) dia1(i1).b(2,2)=v5_34a.b(2,2)*r6_12fz(i1).a(2,2) dia1(i1).c(2,2)=v5_34a.a(2,1)*r6_12fz(i1).c(1,2)+v5_34a.c( & 2,2)*p534q*r6_12fz(i1).d(2,2) dia1(i1).d(2,2)=rmb*v5_34a.b(2,2)*r6_12fz(i1).d(2,2) dia1(i1).a(1,1)=rmb*(v5_34a.c(1,1)*r6_12fz(i1).a(1,1)+v5_3 & 4a.a(1,2)*r6_12fz(i1).b(2,1)) dia1(i1).b(1,1)=v5_34a.b(1,1)*r6_12fz(i1).a(1,1) dia1(i1).c(1,1)=v5_34a.c(1,1)*p534q*r6_12fz(i1).d(1,1)+v5_ & 34a.a(1,2)*r6_12fz(i1).c(2,1) dia1(i1).d(1,1)=rmb*v5_34a.b(1,1)*r6_12fz(i1).d(1,1) dia1(i1).a(1,2)=v5_34a.c(1,1)*p534q*r6_12fz(i1).b(1,2)+v5_ & 34a.a(1,2)*r6_12fz(i1).a(2,2) dia1(i1).b(1,2)=rmb*v5_34a.b(1,1)*r6_12fz(i1).b(1,2) dia1(i1).c(1,2)=rmb*(v5_34a.c(1,1)*r6_12fz(i1).c(1,2)+v5_3 & 4a.a(1,2)*r6_12fz(i1).d(2,2)) dia1(i1).d(1,2)=v5_34a.b(1,1)*r6_12fz(i1).c(1,2) end do do i1=1,2 * mline -- res=cresp12(i1,&1,&2),abcd=dia1(i1).,m1=rmb,m2=(-rmb),den=((p534 * q-rmb2)*p534k0),nsum=0 do iut=1,2 do jut=1,2 cresp12(i1,iut,jut)=(dia1(i1).a(iut,jut)+rmb*dia1(i1).b(iu & t,jut)+(-rmb)*dia1(i1).c(iut,jut)+rmb*(-rmb)*dia1(i1).d(i & ut,jut))/((p534q-rmb2)*p534k0) enddo enddo end do * TSC -- qu=p4,qd=p312,a=v4_56a.a,b=v4_56a.b,c=v4_56a.c,cr=1.d0,cl=-1.d0 auxa=-p4k0*p312(2)+p312k0*p4(2) cauxa=-cim*(p312(3)*p4k0-p4(3)*p312k0) v4_56a.a(1,2)=-1.d0*(auxa+cauxa) v4_56a.a(2,1)=(-auxa+cauxa) v4_56a.b(1,1)=p312k0 v4_56a.b(2,2)=-1.d0*p312k0 v4_56a.c(1,1)=-1.d0*p4k0 v4_56a.c(2,2)=p4k0 do i1=1,2 * TTSC -- aa=dia1(i1).a,bb=dia1(i1).b,cc=dia1(i1).c,dd=dia1(i1).d,a1=l3_12f * z(i1).a,b1=l3_12fz(i1).b,c1=l3_12fz(i1).c,d1=l3_12fz(i1).d,a2=v4_56a.a,b2= * v4_56a.b,c2=v4_56a.c,prq=p312q,m=rmb,nsum=0 dia1(i1).a(1,2)=l3_12fz(i1).a(1,1)*v4_56a.a(1,2)+l3_12fz(i & 1).c(1,2)*p312q*v4_56a.b(2,2) dia1(i1).b(1,2)=rmb*(l3_12fz(i1).d(1,1)*v4_56a.a(1,2)+l3_1 & 2fz(i1).b(1,2)*v4_56a.b(2,2)) dia1(i1).c(1,2)=rmb*l3_12fz(i1).c(1,2)*v4_56a.c(2,2) dia1(i1).d(1,2)=l3_12fz(i1).b(1,2)*v4_56a.c(2,2) dia1(i1).a(1,1)=rmb*(l3_12fz(i1).a(1,1)*v4_56a.b(1,1)+l3_1 & 2fz(i1).c(1,2)*v4_56a.a(2,1)) dia1(i1).b(1,1)=l3_12fz(i1).d(1,1)*p312q*v4_56a.b(1,1)+l3_ & 12fz(i1).b(1,2)*v4_56a.a(2,1) dia1(i1).c(1,1)=l3_12fz(i1).a(1,1)*v4_56a.c(1,1) dia1(i1).d(1,1)=rmb*l3_12fz(i1).d(1,1)*v4_56a.c(1,1) dia1(i1).a(2,2)=rmb*(l3_12fz(i1).c(2,1)*v4_56a.a(1,2)+l3_1 & 2fz(i1).a(2,2)*v4_56a.b(2,2)) dia1(i1).b(2,2)=l3_12fz(i1).b(2,1)*v4_56a.a(1,2)+l3_12fz(i & 1).d(2,2)*p312q*v4_56a.b(2,2) dia1(i1).c(2,2)=l3_12fz(i1).a(2,2)*v4_56a.c(2,2) dia1(i1).d(2,2)=rmb*l3_12fz(i1).d(2,2)*v4_56a.c(2,2) dia1(i1).a(2,1)=l3_12fz(i1).c(2,1)*p312q*v4_56a.b(1,1)+l3_ & 12fz(i1).a(2,2)*v4_56a.a(2,1) dia1(i1).b(2,1)=rmb*(l3_12fz(i1).b(2,1)*v4_56a.b(1,1)+l3_1 & 2fz(i1).d(2,2)*v4_56a.a(2,1)) dia1(i1).c(2,1)=rmb*l3_12fz(i1).c(2,1)*v4_56a.c(1,1) dia1(i1).d(2,1)=l3_12fz(i1).b(2,1)*v4_56a.c(1,1) end do do i1=1,2 * mline -- res=cresp13(i1,&1,&2),abcd=dia1(i1).,m1=rmb,m2=(-rmb),den=((p312 * q-rmb2)*p312k0),nsum=0 do iut=1,2 do jut=1,2 cresp13(i1,iut,jut)=(dia1(i1).a(iut,jut)+rmb*dia1(i1).b(iu & t,jut)+(-rmb)*dia1(i1).c(iut,jut)+rmb*(-rmb)*dia1(i1).d(i & ut,jut))/((p312q-rmb2)*p312k0) enddo enddo end do * TSC -- qu=p6,qd=p312,a=v6_54a.a,b=v6_54a.b,c=v6_54a.c,cr=1.d0,cl=-1.d0 auxa=-p6k0*p312(2)+p312k0*p6(2) cauxa=-cim*(p312(3)*p6k0-p6(3)*p312k0) v6_54a.a(1,2)=-1.d0*(auxa+cauxa) v6_54a.a(2,1)=(-auxa+cauxa) v6_54a.b(1,1)=p312k0 v6_54a.b(2,2)=-1.d0*p312k0 v6_54a.c(1,1)=-1.d0*p6k0 v6_54a.c(2,2)=p6k0 do i1=1,2 * TTSC -- aa=dia1(i1).a,bb=dia1(i1).b,cc=dia1(i1).c,dd=dia1(i1).d,a1=l3_12f * z(i1).a,b1=l3_12fz(i1).b,c1=l3_12fz(i1).c,d1=l3_12fz(i1).d,a2=v6_54a.a,b2= * v6_54a.b,c2=v6_54a.c,prq=p312q,m=rmb,nsum=0 dia1(i1).a(1,2)=l3_12fz(i1).a(1,1)*v6_54a.a(1,2)+l3_12fz(i & 1).c(1,2)*p312q*v6_54a.b(2,2) dia1(i1).b(1,2)=rmb*(l3_12fz(i1).d(1,1)*v6_54a.a(1,2)+l3_1 & 2fz(i1).b(1,2)*v6_54a.b(2,2)) dia1(i1).c(1,2)=rmb*l3_12fz(i1).c(1,2)*v6_54a.c(2,2) dia1(i1).d(1,2)=l3_12fz(i1).b(1,2)*v6_54a.c(2,2) dia1(i1).a(1,1)=rmb*(l3_12fz(i1).a(1,1)*v6_54a.b(1,1)+l3_1 & 2fz(i1).c(1,2)*v6_54a.a(2,1)) dia1(i1).b(1,1)=l3_12fz(i1).d(1,1)*p312q*v6_54a.b(1,1)+l3_ & 12fz(i1).b(1,2)*v6_54a.a(2,1) dia1(i1).c(1,1)=l3_12fz(i1).a(1,1)*v6_54a.c(1,1) dia1(i1).d(1,1)=rmb*l3_12fz(i1).d(1,1)*v6_54a.c(1,1) dia1(i1).a(2,2)=rmb*(l3_12fz(i1).c(2,1)*v6_54a.a(1,2)+l3_1 & 2fz(i1).a(2,2)*v6_54a.b(2,2)) dia1(i1).b(2,2)=l3_12fz(i1).b(2,1)*v6_54a.a(1,2)+l3_12fz(i & 1).d(2,2)*p312q*v6_54a.b(2,2) dia1(i1).c(2,2)=l3_12fz(i1).a(2,2)*v6_54a.c(2,2) dia1(i1).d(2,2)=rmb*l3_12fz(i1).d(2,2)*v6_54a.c(2,2) dia1(i1).a(2,1)=l3_12fz(i1).c(2,1)*p312q*v6_54a.b(1,1)+l3_ & 12fz(i1).a(2,2)*v6_54a.a(2,1) dia1(i1).b(2,1)=rmb*(l3_12fz(i1).b(2,1)*v6_54a.b(1,1)+l3_1 & 2fz(i1).d(2,2)*v6_54a.a(2,1)) dia1(i1).c(2,1)=rmb*l3_12fz(i1).c(2,1)*v6_54a.c(1,1) dia1(i1).d(2,1)=l3_12fz(i1).b(2,1)*v6_54a.c(1,1) end do do i1=1,2 * mline -- res=cresp14(i1,&1,&2),abcd=dia1(i1).,m1=rmb,m2=(-rmb),den=((p312 * q-rmb2)*p312k0),nsum=0 do iut=1,2 do jut=1,2 cresp14(i1,iut,jut)=(dia1(i1).a(iut,jut)+rmb*dia1(i1).b(iu & t,jut)+(-rmb)*dia1(i1).c(iut,jut)+rmb*(-rmb)*dia1(i1).d(i & ut,jut))/((p312q-rmb2)*p312k0) enddo enddo end do * TSC -- qu=p4,qd=p512,a=v4_36a.a,b=v4_36a.b,c=v4_36a.c,cr=1.d0,cl=-1.d0 auxa=-p4k0*p512(2)+p512k0*p4(2) cauxa=-cim*(p512(3)*p4k0-p4(3)*p512k0) v4_36a.a(1,2)=-1.d0*(auxa+cauxa) v4_36a.a(2,1)=(-auxa+cauxa) v4_36a.b(1,1)=p512k0 v4_36a.b(2,2)=-1.d0*p512k0 v4_36a.c(1,1)=-1.d0*p4k0 v4_36a.c(2,2)=p4k0 do i1=1,2 * TTSC -- aa=dia1(i1).a,bb=dia1(i1).b,cc=dia1(i1).c,dd=dia1(i1).d,a1=l5_12f * z(i1).a,b1=l5_12fz(i1).b,c1=l5_12fz(i1).c,d1=l5_12fz(i1).d,a2=v4_36a.a,b2= * v4_36a.b,c2=v4_36a.c,prq=p512q,m=rmb,nsum=0 dia1(i1).a(1,2)=l5_12fz(i1).a(1,1)*v4_36a.a(1,2)+l5_12fz(i & 1).c(1,2)*p512q*v4_36a.b(2,2) dia1(i1).b(1,2)=rmb*(l5_12fz(i1).d(1,1)*v4_36a.a(1,2)+l5_1 & 2fz(i1).b(1,2)*v4_36a.b(2,2)) dia1(i1).c(1,2)=rmb*l5_12fz(i1).c(1,2)*v4_36a.c(2,2) dia1(i1).d(1,2)=l5_12fz(i1).b(1,2)*v4_36a.c(2,2) dia1(i1).a(1,1)=rmb*(l5_12fz(i1).a(1,1)*v4_36a.b(1,1)+l5_1 & 2fz(i1).c(1,2)*v4_36a.a(2,1)) dia1(i1).b(1,1)=l5_12fz(i1).d(1,1)*p512q*v4_36a.b(1,1)+l5_ & 12fz(i1).b(1,2)*v4_36a.a(2,1) dia1(i1).c(1,1)=l5_12fz(i1).a(1,1)*v4_36a.c(1,1) dia1(i1).d(1,1)=rmb*l5_12fz(i1).d(1,1)*v4_36a.c(1,1) dia1(i1).a(2,2)=rmb*(l5_12fz(i1).c(2,1)*v4_36a.a(1,2)+l5_1 & 2fz(i1).a(2,2)*v4_36a.b(2,2)) dia1(i1).b(2,2)=l5_12fz(i1).b(2,1)*v4_36a.a(1,2)+l5_12fz(i & 1).d(2,2)*p512q*v4_36a.b(2,2) dia1(i1).c(2,2)=l5_12fz(i1).a(2,2)*v4_36a.c(2,2) dia1(i1).d(2,2)=rmb*l5_12fz(i1).d(2,2)*v4_36a.c(2,2) dia1(i1).a(2,1)=l5_12fz(i1).c(2,1)*p512q*v4_36a.b(1,1)+l5_ & 12fz(i1).a(2,2)*v4_36a.a(2,1) dia1(i1).b(2,1)=rmb*(l5_12fz(i1).b(2,1)*v4_36a.b(1,1)+l5_1 & 2fz(i1).d(2,2)*v4_36a.a(2,1)) dia1(i1).c(2,1)=rmb*l5_12fz(i1).c(2,1)*v4_36a.c(1,1) dia1(i1).d(2,1)=l5_12fz(i1).b(2,1)*v4_36a.c(1,1) end do do i1=1,2 * mline -- res=cresp15(i1,&1,&2),abcd=dia1(i1).,m1=rmb,m2=(-rmb),den=((p512 * q-rmb2)*p512k0),nsum=0 do iut=1,2 do jut=1,2 cresp15(i1,iut,jut)=(dia1(i1).a(iut,jut)+rmb*dia1(i1).b(iu & t,jut)+(-rmb)*dia1(i1).c(iut,jut)+rmb*(-rmb)*dia1(i1).d(i & ut,jut))/((p512q-rmb2)*p512k0) enddo enddo end do * TSC -- qu=p6,qd=p512,a=v6_34a.a,b=v6_34a.b,c=v6_34a.c,cr=1.d0,cl=-1.d0 auxa=-p6k0*p512(2)+p512k0*p6(2) cauxa=-cim*(p512(3)*p6k0-p6(3)*p512k0) v6_34a.a(1,2)=-1.d0*(auxa+cauxa) v6_34a.a(2,1)=(-auxa+cauxa) v6_34a.b(1,1)=p512k0 v6_34a.b(2,2)=-1.d0*p512k0 v6_34a.c(1,1)=-1.d0*p6k0 v6_34a.c(2,2)=p6k0 do i1=1,2 * TTSC -- aa=dia1(i1).a,bb=dia1(i1).b,cc=dia1(i1).c,dd=dia1(i1).d,a1=l5_12f * z(i1).a,b1=l5_12fz(i1).b,c1=l5_12fz(i1).c,d1=l5_12fz(i1).d,a2=v6_34a.a,b2= * v6_34a.b,c2=v6_34a.c,prq=p512q,m=rmb,nsum=0 dia1(i1).a(1,2)=l5_12fz(i1).a(1,1)*v6_34a.a(1,2)+l5_12fz(i & 1).c(1,2)*p512q*v6_34a.b(2,2) dia1(i1).b(1,2)=rmb*(l5_12fz(i1).d(1,1)*v6_34a.a(1,2)+l5_1 & 2fz(i1).b(1,2)*v6_34a.b(2,2)) dia1(i1).c(1,2)=rmb*l5_12fz(i1).c(1,2)*v6_34a.c(2,2) dia1(i1).d(1,2)=l5_12fz(i1).b(1,2)*v6_34a.c(2,2) dia1(i1).a(1,1)=rmb*(l5_12fz(i1).a(1,1)*v6_34a.b(1,1)+l5_1 & 2fz(i1).c(1,2)*v6_34a.a(2,1)) dia1(i1).b(1,1)=l5_12fz(i1).d(1,1)*p512q*v6_34a.b(1,1)+l5_ & 12fz(i1).b(1,2)*v6_34a.a(2,1) dia1(i1).c(1,1)=l5_12fz(i1).a(1,1)*v6_34a.c(1,1) dia1(i1).d(1,1)=rmb*l5_12fz(i1).d(1,1)*v6_34a.c(1,1) dia1(i1).a(2,2)=rmb*(l5_12fz(i1).c(2,1)*v6_34a.a(1,2)+l5_1 & 2fz(i1).a(2,2)*v6_34a.b(2,2)) dia1(i1).b(2,2)=l5_12fz(i1).b(2,1)*v6_34a.a(1,2)+l5_12fz(i & 1).d(2,2)*p512q*v6_34a.b(2,2) dia1(i1).c(2,2)=l5_12fz(i1).a(2,2)*v6_34a.c(2,2) dia1(i1).d(2,2)=rmb*l5_12fz(i1).d(2,2)*v6_34a.c(2,2) dia1(i1).a(2,1)=l5_12fz(i1).c(2,1)*p512q*v6_34a.b(1,1)+l5_ & 12fz(i1).a(2,2)*v6_34a.a(2,1) dia1(i1).b(2,1)=rmb*(l5_12fz(i1).b(2,1)*v6_34a.b(1,1)+l5_1 & 2fz(i1).d(2,2)*v6_34a.a(2,1)) dia1(i1).c(2,1)=rmb*l5_12fz(i1).c(2,1)*v6_34a.c(1,1) dia1(i1).d(2,1)=l5_12fz(i1).b(2,1)*v6_34a.c(1,1) end do do i1=1,2 * mline -- res=cresp16(i1,&1,&2),abcd=dia1(i1).,m1=rmb,m2=(-rmb),den=((p512 * q-rmb2)*p512k0),nsum=0 do iut=1,2 do jut=1,2 cresp16(i1,iut,jut)=(dia1(i1).a(iut,jut)+rmb*dia1(i1).b(iu & t,jut)+(-rmb)*dia1(i1).c(iut,jut)+rmb*(-rmb)*dia1(i1).d(i & ut,jut))/((p512q-rmb2)*p512k0) enddo enddo end do do i1=1,2 do i3=1,2 do i4=1,2 do i5=1,2 do i6=1,2 cres17a(i1,i3,i4,i5,i6)=rabb*cresp9(i1,i5,i4)*c36a(i3,i6) cres18a(i1,i3,i4,i5,i6)=rabb*cresp10(i1,i3,i4)*c56a(i5,i6) cres19a(i1,i3,i4,i5,i6)=rabb*cresp11(i1,i3,i6)*c54a(i5,i4) cres20a(i1,i3,i4,i5,i6)=rabb*cresp12(i1,i5,i6)*c34a(i3,i4) cres21a(i1,i3,i4,i5,i6)=rabb*cresp13(i1,i3,i4)*c56a(i5,i6) cres22a(i1,i3,i4,i5,i6)=rabb*cresp14(i1,i3,i6)*c54a(i5,i4) cres23a(i1,i3,i4,i5,i6)=rabb*cresp15(i1,i5,i4)*c36a(i3,i6) cres24a(i1,i3,i4,i5,i6)=rabb*cresp16(i1,i5,i6)*c34a(i3,i4) enddo !i6 enddo !i5 enddo !i4 enddo !i3 enddo !i1 ENDIF !(imix=1,-2; isusy=1; iha=1,3) IF(imix.EQ.-1.OR.imix.EQ.-2)THEN * quqd -- p=p5,q=p536 quqd=p5(0)*p536(0)-p5(1)*p536(1)-p5(2)*p536(2)-p5(3)*p536( & 3) DO i3=1,2 DO i6=1,2 * T -- qu=p5,qd=p536,v=c36f(i3,i6).e,a=l5_36(i3,i6).a,b=l5_36(i3,i6).b,c=l5 * _36(i3,i6).c,d=l5_36(i3,i6).d,cr=fqdr,cl=fqdl,nsum=0 ceps_0=-c36f(i3,i6).ek0*(p5(2)*p536(3)-p536(2)*p5(3))+p5k0 & *(c36f(i3,i6).e(2)*p536(3)-p536(2)*c36f(i3,i6).e(3))-p536 & k0*(c36f(i3,i6).e(2)*p5(3)-p5(2)*c36f(i3,i6).e(3)) ceps_0=ceps_0*cim ceps_1=-c36f(i3,i6).e(3)*p5k0+p5(3)*c36f(i3,i6).ek0 ceps_1=ceps_1*cim ceps_2=-c36f(i3,i6).e(3)*p536k0+p536(3)*c36f(i3,i6).ek0 ceps_2=ceps_2*cim cvqu=c36f(i3,i6).e(0)*p5(0)-c36f(i3,i6).e(1)*p5(1)-c36f(i3 & ,i6).e(2)*p5(2)-c36f(i3,i6).e(3)*p5(3) cvqd=c36f(i3,i6).e(0)*p536(0)-c36f(i3,i6).e(1)*p536(1)-c36 & f(i3,i6).e(2)*p536(2)-c36f(i3,i6).e(3)*p536(3) cauxa=-c36f(i3,i6).ek0*quqd+p5k0*cvqd+p536k0*cvqu cauxb=-c36f(i3,i6).ek0*p536(2)+p536k0*c36f(i3,i6).e(2) cauxc=+c36f(i3,i6).ek0*p5(2)-p5k0*c36f(i3,i6).e(2) l5_36(i3,i6).a(1,1)=fqdr*(cauxa+ceps_0) l5_36(i3,i6).a(2,2)=fqdl*(cauxa-ceps_0) l5_36(i3,i6).b(1,2)=fqdl*(cauxb-ceps_2) l5_36(i3,i6).b(2,1)=fqdr*(-cauxb-ceps_2) l5_36(i3,i6).c(1,2)=fqdr*(cauxc+ceps_1) l5_36(i3,i6).c(2,1)=fqdl*(-cauxc+ceps_1) l5_36(i3,i6).d(1,1)=fqdl*c36f(i3,i6).ek0 l5_36(i3,i6).d(2,2)=fqdr*c36f(i3,i6).ek0 END DO END DO * quqd -- p=p5,q=p534 quqd=p5(0)*p534(0)-p5(1)*p534(1)-p5(2)*p534(2)-p5(3)*p534( & 3) DO i3=1,2 DO i4=1,2 * T -- qu=p5,qd=p534,v=c34f(i3,i4).e,a=l5_34(i3,i4).a,b=l5_34(i3,i4).b,c=l5 * _34(i3,i4).c,d=l5_34(i3,i4).d,cr=fqdr,cl=fqdl,nsum=0 ceps_0=-c34f(i3,i4).ek0*(p5(2)*p534(3)-p534(2)*p5(3))+p5k0 & *(c34f(i3,i4).e(2)*p534(3)-p534(2)*c34f(i3,i4).e(3))-p534 & k0*(c34f(i3,i4).e(2)*p5(3)-p5(2)*c34f(i3,i4).e(3)) ceps_0=ceps_0*cim ceps_1=-c34f(i3,i4).e(3)*p5k0+p5(3)*c34f(i3,i4).ek0 ceps_1=ceps_1*cim ceps_2=-c34f(i3,i4).e(3)*p534k0+p534(3)*c34f(i3,i4).ek0 ceps_2=ceps_2*cim cvqu=c34f(i3,i4).e(0)*p5(0)-c34f(i3,i4).e(1)*p5(1)-c34f(i3 & ,i4).e(2)*p5(2)-c34f(i3,i4).e(3)*p5(3) cvqd=c34f(i3,i4).e(0)*p534(0)-c34f(i3,i4).e(1)*p534(1)-c34 & f(i3,i4).e(2)*p534(2)-c34f(i3,i4).e(3)*p534(3) cauxa=-c34f(i3,i4).ek0*quqd+p5k0*cvqd+p534k0*cvqu cauxb=-c34f(i3,i4).ek0*p534(2)+p534k0*c34f(i3,i4).e(2) cauxc=+c34f(i3,i4).ek0*p5(2)-p5k0*c34f(i3,i4).e(2) l5_34(i3,i4).a(1,1)=fqdr*(cauxa+ceps_0) l5_34(i3,i4).a(2,2)=fqdl*(cauxa-ceps_0) l5_34(i3,i4).b(1,2)=fqdl*(cauxb-ceps_2) l5_34(i3,i4).b(2,1)=fqdr*(-cauxb-ceps_2) l5_34(i3,i4).c(1,2)=fqdr*(cauxc+ceps_1) l5_34(i3,i4).c(2,1)=fqdl*(-cauxc+ceps_1) l5_34(i3,i4).d(1,1)=fqdl*c34f(i3,i4).ek0 l5_34(i3,i4).d(2,2)=fqdr*c34f(i3,i4).ek0 END DO END DO * quqd -- p=p3,q=p534 quqd=p3(0)*p534(0)-p3(1)*p534(1)-p3(2)*p534(2)-p3(3)*p534( & 3) DO i5=1,2 DO i4=1,2 * T -- qu=p3,qd=p534,v=c54f(i5,i4).e,a=l3_54(i5,i4).a,b=l3_54(i5,i4).b,c=l3 * _54(i5,i4).c,d=l3_54(i5,i4).d,cr=fqdr,cl=fqdl,nsum=0 ceps_0=-c54f(i5,i4).ek0*(p3(2)*p534(3)-p534(2)*p3(3))+p3k0 & *(c54f(i5,i4).e(2)*p534(3)-p534(2)*c54f(i5,i4).e(3))-p534 & k0*(c54f(i5,i4).e(2)*p3(3)-p3(2)*c54f(i5,i4).e(3)) ceps_0=ceps_0*cim ceps_1=-c54f(i5,i4).e(3)*p3k0+p3(3)*c54f(i5,i4).ek0 ceps_1=ceps_1*cim ceps_2=-c54f(i5,i4).e(3)*p534k0+p534(3)*c54f(i5,i4).ek0 ceps_2=ceps_2*cim cvqu=c54f(i5,i4).e(0)*p3(0)-c54f(i5,i4).e(1)*p3(1)-c54f(i5 & ,i4).e(2)*p3(2)-c54f(i5,i4).e(3)*p3(3) cvqd=c54f(i5,i4).e(0)*p534(0)-c54f(i5,i4).e(1)*p534(1)-c54 & f(i5,i4).e(2)*p534(2)-c54f(i5,i4).e(3)*p534(3) cauxa=-c54f(i5,i4).ek0*quqd+p3k0*cvqd+p534k0*cvqu cauxb=-c54f(i5,i4).ek0*p534(2)+p534k0*c54f(i5,i4).e(2) cauxc=+c54f(i5,i4).ek0*p3(2)-p3k0*c54f(i5,i4).e(2) l3_54(i5,i4).a(1,1)=fqdr*(cauxa+ceps_0) l3_54(i5,i4).a(2,2)=fqdl*(cauxa-ceps_0) l3_54(i5,i4).b(1,2)=fqdl*(cauxb-ceps_2) l3_54(i5,i4).b(2,1)=fqdr*(-cauxb-ceps_2) l3_54(i5,i4).c(1,2)=fqdr*(cauxc+ceps_1) l3_54(i5,i4).c(2,1)=fqdl*(-cauxc+ceps_1) l3_54(i5,i4).d(1,1)=fqdl*c54f(i5,i4).ek0 l3_54(i5,i4).d(2,2)=fqdr*c54f(i5,i4).ek0 END DO END DO * quqd -- p=p3,q=p536 quqd=p3(0)*p536(0)-p3(1)*p536(1)-p3(2)*p536(2)-p3(3)*p536( & 3) DO i5=1,2 DO i6=1,2 * T -- qu=p3,qd=p536,v=c56f(i5,i6).e,a=l3_56(i5,i6).a,b=l3_56(i5,i6).b,c=l3 * _56(i5,i6).c,d=l3_56(i5,i6).d,cr=fqdr,cl=fqdl,nsum=0 ceps_0=-c56f(i5,i6).ek0*(p3(2)*p536(3)-p536(2)*p3(3))+p3k0 & *(c56f(i5,i6).e(2)*p536(3)-p536(2)*c56f(i5,i6).e(3))-p536 & k0*(c56f(i5,i6).e(2)*p3(3)-p3(2)*c56f(i5,i6).e(3)) ceps_0=ceps_0*cim ceps_1=-c56f(i5,i6).e(3)*p3k0+p3(3)*c56f(i5,i6).ek0 ceps_1=ceps_1*cim ceps_2=-c56f(i5,i6).e(3)*p536k0+p536(3)*c56f(i5,i6).ek0 ceps_2=ceps_2*cim cvqu=c56f(i5,i6).e(0)*p3(0)-c56f(i5,i6).e(1)*p3(1)-c56f(i5 & ,i6).e(2)*p3(2)-c56f(i5,i6).e(3)*p3(3) cvqd=c56f(i5,i6).e(0)*p536(0)-c56f(i5,i6).e(1)*p536(1)-c56 & f(i5,i6).e(2)*p536(2)-c56f(i5,i6).e(3)*p536(3) cauxa=-c56f(i5,i6).ek0*quqd+p3k0*cvqd+p536k0*cvqu cauxb=-c56f(i5,i6).ek0*p536(2)+p536k0*c56f(i5,i6).e(2) cauxc=+c56f(i5,i6).ek0*p3(2)-p3k0*c56f(i5,i6).e(2) l3_56(i5,i6).a(1,1)=fqdr*(cauxa+ceps_0) l3_56(i5,i6).a(2,2)=fqdl*(cauxa-ceps_0) l3_56(i5,i6).b(1,2)=fqdl*(cauxb-ceps_2) l3_56(i5,i6).b(2,1)=fqdr*(-cauxb-ceps_2) l3_56(i5,i6).c(1,2)=fqdr*(cauxc+ceps_1) l3_56(i5,i6).c(2,1)=fqdl*(-cauxc+ceps_1) l3_56(i5,i6).d(1,1)=fqdl*c56f(i5,i6).ek0 l3_56(i5,i6).d(2,2)=fqdr*c56f(i5,i6).ek0 END DO END DO * Diagramma (17+20) non risonante gamma DO i1=1,2 DO i3=1,2 DO i6=1,2 * TT -- aa=dia(i1,i3,i6).a,bb=dia(i1,i3,i6).b,cc=dia(i1,i3,i6).c,dd=dia(i1, * i3,i6).d,a1=l5_36(i3,i6).a,b1=l5_36(i3,i6).b,c1=l5_36(i3,i6).c,d1=l5_36(i3 * ,i6).d,a2=r4_12fz(i1).a,b2=r4_12fz(i1).b,c2=r4_12fz(i1).c,d2=r4_12fz(i1).d * ,prq=p536q,m=rmb dia(i1,i3,i6).a(1,1)=l5_36(i3,i6).a(1,1)*r4_12fz(i1).a(1,1 & )+l5_36(i3,i6).c(1,2)*p536q*r4_12fz(i1).b(2,1) dia(i1,i3,i6).b(1,1)=rmb*(l5_36(i3,i6).d(1,1)*r4_12fz(i1). & a(1,1)+l5_36(i3,i6).b(1,2)*r4_12fz(i1).b(2,1)) dia(i1,i3,i6).c(1,1)=rmb*(l5_36(i3,i6).a(1,1)*r4_12fz(i1). & d(1,1)+l5_36(i3,i6).c(1,2)*r4_12fz(i1).c(2,1)) dia(i1,i3,i6).d(1,1)=l5_36(i3,i6).d(1,1)*p536q*r4_12fz(i1) & .d(1,1)+l5_36(i3,i6).b(1,2)*r4_12fz(i1).c(2,1) dia(i1,i3,i6).a(1,2)=rmb*(l5_36(i3,i6).a(1,1)*r4_12fz(i1). & b(1,2)+l5_36(i3,i6).c(1,2)*r4_12fz(i1).a(2,2)) dia(i1,i3,i6).b(1,2)=l5_36(i3,i6).d(1,1)*p536q*r4_12fz(i1) & .b(1,2)+l5_36(i3,i6).b(1,2)*r4_12fz(i1).a(2,2) dia(i1,i3,i6).c(1,2)=l5_36(i3,i6).a(1,1)*r4_12fz(i1).c(1,2 & )+l5_36(i3,i6).c(1,2)*p536q*r4_12fz(i1).d(2,2) dia(i1,i3,i6).d(1,2)=rmb*(l5_36(i3,i6).d(1,1)*r4_12fz(i1). & c(1,2)+l5_36(i3,i6).b(1,2)*r4_12fz(i1).d(2,2)) dia(i1,i3,i6).a(2,1)=rmb*(l5_36(i3,i6).c(2,1)*r4_12fz(i1). & a(1,1)+l5_36(i3,i6).a(2,2)*r4_12fz(i1).b(2,1)) dia(i1,i3,i6).b(2,1)=l5_36(i3,i6).b(2,1)*r4_12fz(i1).a(1,1 & )+l5_36(i3,i6).d(2,2)*p536q*r4_12fz(i1).b(2,1) dia(i1,i3,i6).c(2,1)=l5_36(i3,i6).c(2,1)*p536q*r4_12fz(i1) & .d(1,1)+l5_36(i3,i6).a(2,2)*r4_12fz(i1).c(2,1) dia(i1,i3,i6).d(2,1)=rmb*(l5_36(i3,i6).b(2,1)*r4_12fz(i1). & d(1,1)+l5_36(i3,i6).d(2,2)*r4_12fz(i1).c(2,1)) dia(i1,i3,i6).a(2,2)=l5_36(i3,i6).c(2,1)*p536q*r4_12fz(i1) & .b(1,2)+l5_36(i3,i6).a(2,2)*r4_12fz(i1).a(2,2) dia(i1,i3,i6).b(2,2)=rmb*(l5_36(i3,i6).b(2,1)*r4_12fz(i1). & b(1,2)+l5_36(i3,i6).d(2,2)*r4_12fz(i1).a(2,2)) dia(i1,i3,i6).c(2,2)=rmb*(l5_36(i3,i6).c(2,1)*r4_12fz(i1). & c(1,2)+l5_36(i3,i6).a(2,2)*r4_12fz(i1).d(2,2)) dia(i1,i3,i6).d(2,2)=l5_36(i3,i6).b(2,1)*r4_12fz(i1).c(1,2 & )+l5_36(i3,i6).d(2,2)*p536q*r4_12fz(i1).d(2,2) END DO END DO END DO DO i1=1,2 DO i3=1,2 DO i6=1,2 * mline -- res=cres25(i1,i3,i6,&),abcd=dia(i1,i3,i6).,m1=rmb,m2=(-rmb),den= * ((p536q-rmb2)*p536k0) DO iut=1,2 DO jut=1,2 cres25(i1,i3,i6,iut,jut)=(dia(i1,i3,i6).a(iut,jut) & +rmb*dia & (i1,i3,i6).b(iut,jut)+(-rmb)*dia(i1,i3,i6).c(iut, & jut)+rmb & *(-rmb)*dia(i1,i3,i6).d(iut,jut))/((p536q-rmb2) & *p536k0) ENDDO ENDDO END DO END DO END DO * Diagramma (63+66) non risonante gamma DO i1=1,2 DO i3=1,2 DO i4=1,2 * TT -- aa=dia(i1,i3,i4).a,bb=dia(i1,i3,i4).b,cc=dia(i1,i3,i4).c,dd=dia(i1, * i3,i4).d,a1=l5_34(i3,i4).a,b1=l5_34(i3,i4).b,c1=l5_34(i3,i4).c,d1=l5_34(i3 * ,i4).d,a2=r6_12fz(i1).a,b2=r6_12fz(i1).b,c2=r6_12fz(i1).c,d2=r6_12fz(i1).d * ,prq=p534q,m=rmb dia(i1,i3,i4).a(1,1)=l5_34(i3,i4).a(1,1)*r6_12fz(i1).a(1,1 & )+l5_34(i3,i4).c(1,2)*p534q*r6_12fz(i1).b(2,1) dia(i1,i3,i4).b(1,1)=rmb*(l5_34(i3,i4).d(1,1)*r6_12fz(i1). & a(1,1)+l5_34(i3,i4).b(1,2)*r6_12fz(i1).b(2,1)) dia(i1,i3,i4).c(1,1)=rmb*(l5_34(i3,i4).a(1,1)*r6_12fz(i1). & d(1,1)+l5_34(i3,i4).c(1,2)*r6_12fz(i1).c(2,1)) dia(i1,i3,i4).d(1,1)=l5_34(i3,i4).d(1,1)*p534q*r6_12fz(i1) & .d(1,1)+l5_34(i3,i4).b(1,2)*r6_12fz(i1).c(2,1) dia(i1,i3,i4).a(1,2)=rmb*(l5_34(i3,i4).a(1,1)*r6_12fz(i1). & b(1,2)+l5_34(i3,i4).c(1,2)*r6_12fz(i1).a(2,2)) dia(i1,i3,i4).b(1,2)=l5_34(i3,i4).d(1,1)*p534q*r6_12fz(i1) & .b(1,2)+l5_34(i3,i4).b(1,2)*r6_12fz(i1).a(2,2) dia(i1,i3,i4).c(1,2)=l5_34(i3,i4).a(1,1)*r6_12fz(i1).c(1,2 & )+l5_34(i3,i4).c(1,2)*p534q*r6_12fz(i1).d(2,2) dia(i1,i3,i4).d(1,2)=rmb*(l5_34(i3,i4).d(1,1)*r6_12fz(i1). & c(1,2)+l5_34(i3,i4).b(1,2)*r6_12fz(i1).d(2,2)) dia(i1,i3,i4).a(2,1)=rmb*(l5_34(i3,i4).c(2,1)*r6_12fz(i1). & a(1,1)+l5_34(i3,i4).a(2,2)*r6_12fz(i1).b(2,1)) dia(i1,i3,i4).b(2,1)=l5_34(i3,i4).b(2,1)*r6_12fz(i1).a(1,1 & )+l5_34(i3,i4).d(2,2)*p534q*r6_12fz(i1).b(2,1) dia(i1,i3,i4).c(2,1)=l5_34(i3,i4).c(2,1)*p534q*r6_12fz(i1) & .d(1,1)+l5_34(i3,i4).a(2,2)*r6_12fz(i1).c(2,1) dia(i1,i3,i4).d(2,1)=rmb*(l5_34(i3,i4).b(2,1)*r6_12fz(i1). & d(1,1)+l5_34(i3,i4).d(2,2)*r6_12fz(i1).c(2,1)) dia(i1,i3,i4).a(2,2)=l5_34(i3,i4).c(2,1)*p534q*r6_12fz(i1) & .b(1,2)+l5_34(i3,i4).a(2,2)*r6_12fz(i1).a(2,2) dia(i1,i3,i4).b(2,2)=rmb*(l5_34(i3,i4).b(2,1)*r6_12fz(i1). & b(1,2)+l5_34(i3,i4).d(2,2)*r6_12fz(i1).a(2,2)) dia(i1,i3,i4).c(2,2)=rmb*(l5_34(i3,i4).c(2,1)*r6_12fz(i1). & c(1,2)+l5_34(i3,i4).a(2,2)*r6_12fz(i1).d(2,2)) dia(i1,i3,i4).d(2,2)=l5_34(i3,i4).b(2,1)*r6_12fz(i1).c(1,2 & )+l5_34(i3,i4).d(2,2)*p534q*r6_12fz(i1).d(2,2) END DO END DO END DO DO i1=1,2 DO i3=1,2 DO i4=1,2 * mline -- res=cres26(i1,i3,i4,&),abcd=dia(i1,i3,i4).,m1=rmb,m2=(-rmb),den= * ((p534q-rmb2)*p534k0) DO iut=1,2 DO jut=1,2 cres26(i1,i3,i4,iut,jut)=(dia(i1,i3,i4).a(iut,jut) & +rmb*dia & (i1,i3,i4).b(iut,jut)+(-rmb)*dia(i1,i3,i4).c(iut, & jut)+rmb & *(-rmb)*dia(i1,i3,i4).d(iut,jut))/((p534q-rmb2) & *p534k0) ENDDO ENDDO END DO END DO END DO * Diagramma (23+26) non risonante gamma DO i1=1,2 DO i5=1,2 DO i6=1,2 * TT -- aa=dia(i1,i5,i6).a,bb=dia(i1,i5,i6).b,cc=dia(i1,i5,i6).c,dd=dia(i1, * i5,i6).d,a1=l3_56(i5,i6).a,b1=l3_56(i5,i6).b,c1=l3_56(i5,i6).c,d1=l3_56(i5 * ,i6).d,a2=r4_12fz(i1).a,b2=r4_12fz(i1).b,c2=r4_12fz(i1).c,d2=r4_12fz(i1).d * ,prq=p536q,m=rmb dia(i1,i5,i6).a(1,1)=l3_56(i5,i6).a(1,1)*r4_12fz(i1).a(1,1 & )+l3_56(i5,i6).c(1,2)*p536q*r4_12fz(i1).b(2,1) dia(i1,i5,i6).b(1,1)=rmb*(l3_56(i5,i6).d(1,1)*r4_12fz(i1). & a(1,1)+l3_56(i5,i6).b(1,2)*r4_12fz(i1).b(2,1)) dia(i1,i5,i6).c(1,1)=rmb*(l3_56(i5,i6).a(1,1)*r4_12fz(i1). & d(1,1)+l3_56(i5,i6).c(1,2)*r4_12fz(i1).c(2,1)) dia(i1,i5,i6).d(1,1)=l3_56(i5,i6).d(1,1)*p536q*r4_12fz(i1) & .d(1,1)+l3_56(i5,i6).b(1,2)*r4_12fz(i1).c(2,1) dia(i1,i5,i6).a(1,2)=rmb*(l3_56(i5,i6).a(1,1)*r4_12fz(i1). & b(1,2)+l3_56(i5,i6).c(1,2)*r4_12fz(i1).a(2,2)) dia(i1,i5,i6).b(1,2)=l3_56(i5,i6).d(1,1)*p536q*r4_12fz(i1) & .b(1,2)+l3_56(i5,i6).b(1,2)*r4_12fz(i1).a(2,2) dia(i1,i5,i6).c(1,2)=l3_56(i5,i6).a(1,1)*r4_12fz(i1).c(1,2 & )+l3_56(i5,i6).c(1,2)*p536q*r4_12fz(i1).d(2,2) dia(i1,i5,i6).d(1,2)=rmb*(l3_56(i5,i6).d(1,1)*r4_12fz(i1). & c(1,2)+l3_56(i5,i6).b(1,2)*r4_12fz(i1).d(2,2)) dia(i1,i5,i6).a(2,1)=rmb*(l3_56(i5,i6).c(2,1)*r4_12fz(i1). & a(1,1)+l3_56(i5,i6).a(2,2)*r4_12fz(i1).b(2,1)) dia(i1,i5,i6).b(2,1)=l3_56(i5,i6).b(2,1)*r4_12fz(i1).a(1,1 & )+l3_56(i5,i6).d(2,2)*p536q*r4_12fz(i1).b(2,1) dia(i1,i5,i6).c(2,1)=l3_56(i5,i6).c(2,1)*p536q*r4_12fz(i1) & .d(1,1)+l3_56(i5,i6).a(2,2)*r4_12fz(i1).c(2,1) dia(i1,i5,i6).d(2,1)=rmb*(l3_56(i5,i6).b(2,1)*r4_12fz(i1). & d(1,1)+l3_56(i5,i6).d(2,2)*r4_12fz(i1).c(2,1)) dia(i1,i5,i6).a(2,2)=l3_56(i5,i6).c(2,1)*p536q*r4_12fz(i1) & .b(1,2)+l3_56(i5,i6).a(2,2)*r4_12fz(i1).a(2,2) dia(i1,i5,i6).b(2,2)=rmb*(l3_56(i5,i6).b(2,1)*r4_12fz(i1). & b(1,2)+l3_56(i5,i6).d(2,2)*r4_12fz(i1).a(2,2)) dia(i1,i5,i6).c(2,2)=rmb*(l3_56(i5,i6).c(2,1)*r4_12fz(i1). & c(1,2)+l3_56(i5,i6).a(2,2)*r4_12fz(i1).d(2,2)) dia(i1,i5,i6).d(2,2)=l3_56(i5,i6).b(2,1)*r4_12fz(i1).c(1,2 & )+l3_56(i5,i6).d(2,2)*p536q*r4_12fz(i1).d(2,2) END DO END DO END DO DO i1=1,2 DO i5=1,2 DO i6=1,2 * mline -- res=cres27(i1,i5,i6,&),abcd=dia(i1,i5,i6).,m1=rmb,m2=(-rmb),den= * ((p536q-rmb2)*p536k0) DO iut=1,2 DO jut=1,2 cres27(i1,i5,i6,iut,jut)=(dia(i1,i5,i6).a(iut,jut) & +rmb*dia & (i1,i5,i6).b(iut,jut)+(-rmb)*dia(i1,i5,i6).c(iut, & jut)+rmb & *(-rmb)*dia(i1,i5,i6).d(iut,jut))/((p536q-rmb2) & *p536k0) ENDDO ENDDO END DO END DO END DO * Diagramma (37+40) non risonante gamma DO i1=1,2 DO i5=1,2 DO i4=1,2 * TT -- aa=dia(i1,i5,i4).a,bb=dia(i1,i5,i4).b,cc=dia(i1,i5,i4).c,dd=dia(i1, * i5,i4).d,a1=l3_54(i5,i4).a,b1=l3_54(i5,i4).b,c1=l3_54(i5,i4).c,d1=l3_54(i5 * ,i4).d,a2=r6_12fz(i1).a,b2=r6_12fz(i1).b,c2=r6_12fz(i1).c,d2=r6_12fz(i1).d * ,prq=p534q,m=rmb dia(i1,i5,i4).a(1,1)=l3_54(i5,i4).a(1,1)*r6_12fz(i1).a(1,1 & )+l3_54(i5,i4).c(1,2)*p534q*r6_12fz(i1).b(2,1) dia(i1,i5,i4).b(1,1)=rmb*(l3_54(i5,i4).d(1,1)*r6_12fz(i1). & a(1,1)+l3_54(i5,i4).b(1,2)*r6_12fz(i1).b(2,1)) dia(i1,i5,i4).c(1,1)=rmb*(l3_54(i5,i4).a(1,1)*r6_12fz(i1). & d(1,1)+l3_54(i5,i4).c(1,2)*r6_12fz(i1).c(2,1)) dia(i1,i5,i4).d(1,1)=l3_54(i5,i4).d(1,1)*p534q*r6_12fz(i1) & .d(1,1)+l3_54(i5,i4).b(1,2)*r6_12fz(i1).c(2,1) dia(i1,i5,i4).a(1,2)=rmb*(l3_54(i5,i4).a(1,1)*r6_12fz(i1). & b(1,2)+l3_54(i5,i4).c(1,2)*r6_12fz(i1).a(2,2)) dia(i1,i5,i4).b(1,2)=l3_54(i5,i4).d(1,1)*p534q*r6_12fz(i1) & .b(1,2)+l3_54(i5,i4).b(1,2)*r6_12fz(i1).a(2,2) dia(i1,i5,i4).c(1,2)=l3_54(i5,i4).a(1,1)*r6_12fz(i1).c(1,2 & )+l3_54(i5,i4).c(1,2)*p534q*r6_12fz(i1).d(2,2) dia(i1,i5,i4).d(1,2)=rmb*(l3_54(i5,i4).d(1,1)*r6_12fz(i1). & c(1,2)+l3_54(i5,i4).b(1,2)*r6_12fz(i1).d(2,2)) dia(i1,i5,i4).a(2,1)=rmb*(l3_54(i5,i4).c(2,1)*r6_12fz(i1). & a(1,1)+l3_54(i5,i4).a(2,2)*r6_12fz(i1).b(2,1)) dia(i1,i5,i4).b(2,1)=l3_54(i5,i4).b(2,1)*r6_12fz(i1).a(1,1 & )+l3_54(i5,i4).d(2,2)*p534q*r6_12fz(i1).b(2,1) dia(i1,i5,i4).c(2,1)=l3_54(i5,i4).c(2,1)*p534q*r6_12fz(i1) & .d(1,1)+l3_54(i5,i4).a(2,2)*r6_12fz(i1).c(2,1) dia(i1,i5,i4).d(2,1)=rmb*(l3_54(i5,i4).b(2,1)*r6_12fz(i1). & d(1,1)+l3_54(i5,i4).d(2,2)*r6_12fz(i1).c(2,1)) dia(i1,i5,i4).a(2,2)=l3_54(i5,i4).c(2,1)*p534q*r6_12fz(i1) & .b(1,2)+l3_54(i5,i4).a(2,2)*r6_12fz(i1).a(2,2) dia(i1,i5,i4).b(2,2)=rmb*(l3_54(i5,i4).b(2,1)*r6_12fz(i1). & b(1,2)+l3_54(i5,i4).d(2,2)*r6_12fz(i1).a(2,2)) dia(i1,i5,i4).c(2,2)=rmb*(l3_54(i5,i4).c(2,1)*r6_12fz(i1). & c(1,2)+l3_54(i5,i4).a(2,2)*r6_12fz(i1).d(2,2)) dia(i1,i5,i4).d(2,2)=l3_54(i5,i4).b(2,1)*r6_12fz(i1).c(1,2 & )+l3_54(i5,i4).d(2,2)*p534q*r6_12fz(i1).d(2,2) END DO END DO END DO DO i1=1,2 DO i5=1,2 DO i4=1,2 * mline -- res=cres28(i1,i5,i4,&),abcd=dia(i1,i5,i4).,m1=rmb,m2=(-rmb),den= * ((p534q-rmb2)*p534k0) DO iut=1,2 DO jut=1,2 cres28(i1,i5,i4,iut,jut)=(dia(i1,i5,i4).a(iut,jut) & +rmb*dia & (i1,i5,i4).b(iut,jut)+(-rmb)*dia(i1,i5,i4).c(iut, & jut)+rmb & *(-rmb)*dia(i1,i5,i4).d(iut,jut))/((p534q-rmb2) & *p534k0) ENDDO ENDDO END DO END DO END DO * Diagramma ( 31+34 ) non risonante gamma DO i1=1,2 DO i5=1,2 DO i6=1,2 * TT -- aa=dia(i1,i5,i6).a,bb=dia(i1,i5,i6).b,cc=dia(i1,i5,i6).c,dd=dia(i1, * i5,i6).d,a1=l3_12fz(i1).a,b1=l3_12fz(i1).b,c1=l3_12fz(i1).c,d1=l3_12fz(i1) * .d,a2=r4_56f(i5,i6).a,b2=r4_56f(i5,i6).b,c2=r4_56f(i5,i6).c,d2=r4_56f(i5,i * 6).d,prq=p312q,m=rmb dia(i1,i5,i6).a(1,1)=l3_12fz(i1).a(1,1)*r4_56f(i5,i6).a(1, & 1)+l3_12fz(i1).c(1,2)*p312q*r4_56f(i5,i6).b(2,1) dia(i1,i5,i6).b(1,1)=rmb*(l3_12fz(i1).d(1,1)*r4_56f(i5,i6) & .a(1,1)+l3_12fz(i1).b(1,2)*r4_56f(i5,i6).b(2,1)) dia(i1,i5,i6).c(1,1)=rmb*(l3_12fz(i1).a(1,1)*r4_56f(i5,i6) & .d(1,1)+l3_12fz(i1).c(1,2)*r4_56f(i5,i6).c(2,1)) dia(i1,i5,i6).d(1,1)=l3_12fz(i1).d(1,1)*p312q*r4_56f(i5,i6 & ).d(1,1)+l3_12fz(i1).b(1,2)*r4_56f(i5,i6).c(2,1) dia(i1,i5,i6).a(1,2)=rmb*(l3_12fz(i1).a(1,1)*r4_56f(i5,i6) & .b(1,2)+l3_12fz(i1).c(1,2)*r4_56f(i5,i6).a(2,2)) dia(i1,i5,i6).b(1,2)=l3_12fz(i1).d(1,1)*p312q*r4_56f(i5,i6 & ).b(1,2)+l3_12fz(i1).b(1,2)*r4_56f(i5,i6).a(2,2) dia(i1,i5,i6).c(1,2)=l3_12fz(i1).a(1,1)*r4_56f(i5,i6).c(1, & 2)+l3_12fz(i1).c(1,2)*p312q*r4_56f(i5,i6).d(2,2) dia(i1,i5,i6).d(1,2)=rmb*(l3_12fz(i1).d(1,1)*r4_56f(i5,i6) & .c(1,2)+l3_12fz(i1).b(1,2)*r4_56f(i5,i6).d(2,2)) dia(i1,i5,i6).a(2,1)=rmb*(l3_12fz(i1).c(2,1)*r4_56f(i5,i6) & .a(1,1)+l3_12fz(i1).a(2,2)*r4_56f(i5,i6).b(2,1)) dia(i1,i5,i6).b(2,1)=l3_12fz(i1).b(2,1)*r4_56f(i5,i6).a(1, & 1)+l3_12fz(i1).d(2,2)*p312q*r4_56f(i5,i6).b(2,1) dia(i1,i5,i6).c(2,1)=l3_12fz(i1).c(2,1)*p312q*r4_56f(i5,i6 & ).d(1,1)+l3_12fz(i1).a(2,2)*r4_56f(i5,i6).c(2,1) dia(i1,i5,i6).d(2,1)=rmb*(l3_12fz(i1).b(2,1)*r4_56f(i5,i6) & .d(1,1)+l3_12fz(i1).d(2,2)*r4_56f(i5,i6).c(2,1)) dia(i1,i5,i6).a(2,2)=l3_12fz(i1).c(2,1)*p312q*r4_56f(i5,i6 & ).b(1,2)+l3_12fz(i1).a(2,2)*r4_56f(i5,i6).a(2,2) dia(i1,i5,i6).b(2,2)=rmb*(l3_12fz(i1).b(2,1)*r4_56f(i5,i6) & .b(1,2)+l3_12fz(i1).d(2,2)*r4_56f(i5,i6).a(2,2)) dia(i1,i5,i6).c(2,2)=rmb*(l3_12fz(i1).c(2,1)*r4_56f(i5,i6) & .c(1,2)+l3_12fz(i1).a(2,2)*r4_56f(i5,i6).d(2,2)) dia(i1,i5,i6).d(2,2)=l3_12fz(i1).b(2,1)*r4_56f(i5,i6).c(1, & 2)+l3_12fz(i1).d(2,2)*p312q*r4_56f(i5,i6).d(2,2) END DO END DO END DO DO i1=1,2 DO i5=1,2 DO i6=1,2 * mline -- res=cres29(i1,i5,i6,&),abcd=dia(i1,i5,i6).,m1=rmb,m2=(-rmb),den= * ((p312q-rmb2)*p312k0) DO iut=1,2 DO jut=1,2 cres29(i1,i5,i6,iut,jut)=(dia(i1,i5,i6).a(iut,jut) & +rmb*dia & (i1,i5,i6).b(iut,jut)+(-rmb)*dia(i1,i5,i6).c(iut, & jut)+rmb & *(-rmb)*dia(i1,i5,i6).d(iut,jut))/((p312q-rmb2) & *p312k0) ENDDO ENDDO END DO END DO END DO * Diagramma ( 43+46 ) non risonante gamma DO i1=1,2 DO i5=1,2 DO i4=1,2 * TT -- aa=dia(i1,i5,i4).a,bb=dia(i1,i5,i4).b,cc=dia(i1,i5,i4).c,dd=dia(i1, * i5,i4).d,a1=l3_12fz(i1).a,b1=l3_12fz(i1).b,c1=l3_12fz(i1).c,d1=l3_12fz(i1) * .d,a2=r6_54f(i5,i4).a,b2=r6_54f(i5,i4).b,c2=r6_54f(i5,i4).c,d2=r6_54f(i5,i * 4).d,prq=p312q,m=rmb dia(i1,i5,i4).a(1,1)=l3_12fz(i1).a(1,1)*r6_54f(i5,i4).a(1, & 1)+l3_12fz(i1).c(1,2)*p312q*r6_54f(i5,i4).b(2,1) dia(i1,i5,i4).b(1,1)=rmb*(l3_12fz(i1).d(1,1)*r6_54f(i5,i4) & .a(1,1)+l3_12fz(i1).b(1,2)*r6_54f(i5,i4).b(2,1)) dia(i1,i5,i4).c(1,1)=rmb*(l3_12fz(i1).a(1,1)*r6_54f(i5,i4) & .d(1,1)+l3_12fz(i1).c(1,2)*r6_54f(i5,i4).c(2,1)) dia(i1,i5,i4).d(1,1)=l3_12fz(i1).d(1,1)*p312q*r6_54f(i5,i4 & ).d(1,1)+l3_12fz(i1).b(1,2)*r6_54f(i5,i4).c(2,1) dia(i1,i5,i4).a(1,2)=rmb*(l3_12fz(i1).a(1,1)*r6_54f(i5,i4) & .b(1,2)+l3_12fz(i1).c(1,2)*r6_54f(i5,i4).a(2,2)) dia(i1,i5,i4).b(1,2)=l3_12fz(i1).d(1,1)*p312q*r6_54f(i5,i4 & ).b(1,2)+l3_12fz(i1).b(1,2)*r6_54f(i5,i4).a(2,2) dia(i1,i5,i4).c(1,2)=l3_12fz(i1).a(1,1)*r6_54f(i5,i4).c(1, & 2)+l3_12fz(i1).c(1,2)*p312q*r6_54f(i5,i4).d(2,2) dia(i1,i5,i4).d(1,2)=rmb*(l3_12fz(i1).d(1,1)*r6_54f(i5,i4) & .c(1,2)+l3_12fz(i1).b(1,2)*r6_54f(i5,i4).d(2,2)) dia(i1,i5,i4).a(2,1)=rmb*(l3_12fz(i1).c(2,1)*r6_54f(i5,i4) & .a(1,1)+l3_12fz(i1).a(2,2)*r6_54f(i5,i4).b(2,1)) dia(i1,i5,i4).b(2,1)=l3_12fz(i1).b(2,1)*r6_54f(i5,i4).a(1, & 1)+l3_12fz(i1).d(2,2)*p312q*r6_54f(i5,i4).b(2,1) dia(i1,i5,i4).c(2,1)=l3_12fz(i1).c(2,1)*p312q*r6_54f(i5,i4 & ).d(1,1)+l3_12fz(i1).a(2,2)*r6_54f(i5,i4).c(2,1) dia(i1,i5,i4).d(2,1)=rmb*(l3_12fz(i1).b(2,1)*r6_54f(i5,i4) & .d(1,1)+l3_12fz(i1).d(2,2)*r6_54f(i5,i4).c(2,1)) dia(i1,i5,i4).a(2,2)=l3_12fz(i1).c(2,1)*p312q*r6_54f(i5,i4 & ).b(1,2)+l3_12fz(i1).a(2,2)*r6_54f(i5,i4).a(2,2) dia(i1,i5,i4).b(2,2)=rmb*(l3_12fz(i1).b(2,1)*r6_54f(i5,i4) & .b(1,2)+l3_12fz(i1).d(2,2)*r6_54f(i5,i4).a(2,2)) dia(i1,i5,i4).c(2,2)=rmb*(l3_12fz(i1).c(2,1)*r6_54f(i5,i4) & .c(1,2)+l3_12fz(i1).a(2,2)*r6_54f(i5,i4).d(2,2)) dia(i1,i5,i4).d(2,2)=l3_12fz(i1).b(2,1)*r6_54f(i5,i4).c(1, & 2)+l3_12fz(i1).d(2,2)*p312q*r6_54f(i5,i4).d(2,2) END DO END DO END DO DO i1=1,2 DO i5=1,2 DO i4=1,2 * mline -- res=cres30(i1,i5,i4,&),abcd=dia(i1,i5,i4).,m1=rmb,m2=(-rmb),den= * ((p312q-rmb2)*p312k0) DO iut=1,2 DO jut=1,2 cres30(i1,i5,i4,iut,jut)=(dia(i1,i5,i4).a(iut,jut) & +rmb*dia & (i1,i5,i4).b(iut,jut)+(-rmb)*dia(i1,i5,i4).c(iut, & jut)+rmb & *(-rmb)*dia(i1,i5,i4).d(iut,jut))/((p312q-rmb2) & *p312k0) ENDDO ENDDO END DO END DO END DO * Diagramma ( 49+52 ) non risonante gamma DO i1=1,2 DO i3=1,2 DO i6=1,2 * TT -- aa=dia(i1,i3,i6).a,bb=dia(i1,i3,i6).b,cc=dia(i1,i3,i6).c,dd=dia(i1, * i3,i6).d,a1=l5_12fz(i1).a,b1=l5_12fz(i1).b,c1=l5_12fz(i1).c,d1=l5_12fz(i1) * .d,a2=r4_36f(i3,i6).a,b2=r4_36f(i3,i6).b,c2=r4_36f(i3,i6).c,d2=r4_36f(i3,i * 6).d,prq=p512q,m=rmb dia(i1,i3,i6).a(1,1)=l5_12fz(i1).a(1,1)*r4_36f(i3,i6).a(1, & 1)+l5_12fz(i1).c(1,2)*p512q*r4_36f(i3,i6).b(2,1) dia(i1,i3,i6).b(1,1)=rmb*(l5_12fz(i1).d(1,1)*r4_36f(i3,i6) & .a(1,1)+l5_12fz(i1).b(1,2)*r4_36f(i3,i6).b(2,1)) dia(i1,i3,i6).c(1,1)=rmb*(l5_12fz(i1).a(1,1)*r4_36f(i3,i6) & .d(1,1)+l5_12fz(i1).c(1,2)*r4_36f(i3,i6).c(2,1)) dia(i1,i3,i6).d(1,1)=l5_12fz(i1).d(1,1)*p512q*r4_36f(i3,i6 & ).d(1,1)+l5_12fz(i1).b(1,2)*r4_36f(i3,i6).c(2,1) dia(i1,i3,i6).a(1,2)=rmb*(l5_12fz(i1).a(1,1)*r4_36f(i3,i6) & .b(1,2)+l5_12fz(i1).c(1,2)*r4_36f(i3,i6).a(2,2)) dia(i1,i3,i6).b(1,2)=l5_12fz(i1).d(1,1)*p512q*r4_36f(i3,i6 & ).b(1,2)+l5_12fz(i1).b(1,2)*r4_36f(i3,i6).a(2,2) dia(i1,i3,i6).c(1,2)=l5_12fz(i1).a(1,1)*r4_36f(i3,i6).c(1, & 2)+l5_12fz(i1).c(1,2)*p512q*r4_36f(i3,i6).d(2,2) dia(i1,i3,i6).d(1,2)=rmb*(l5_12fz(i1).d(1,1)*r4_36f(i3,i6) & .c(1,2)+l5_12fz(i1).b(1,2)*r4_36f(i3,i6).d(2,2)) dia(i1,i3,i6).a(2,1)=rmb*(l5_12fz(i1).c(2,1)*r4_36f(i3,i6) & .a(1,1)+l5_12fz(i1).a(2,2)*r4_36f(i3,i6).b(2,1)) dia(i1,i3,i6).b(2,1)=l5_12fz(i1).b(2,1)*r4_36f(i3,i6).a(1, & 1)+l5_12fz(i1).d(2,2)*p512q*r4_36f(i3,i6).b(2,1) dia(i1,i3,i6).c(2,1)=l5_12fz(i1).c(2,1)*p512q*r4_36f(i3,i6 & ).d(1,1)+l5_12fz(i1).a(2,2)*r4_36f(i3,i6).c(2,1) dia(i1,i3,i6).d(2,1)=rmb*(l5_12fz(i1).b(2,1)*r4_36f(i3,i6) & .d(1,1)+l5_12fz(i1).d(2,2)*r4_36f(i3,i6).c(2,1)) dia(i1,i3,i6).a(2,2)=l5_12fz(i1).c(2,1)*p512q*r4_36f(i3,i6 & ).b(1,2)+l5_12fz(i1).a(2,2)*r4_36f(i3,i6).a(2,2) dia(i1,i3,i6).b(2,2)=rmb*(l5_12fz(i1).b(2,1)*r4_36f(i3,i6) & .b(1,2)+l5_12fz(i1).d(2,2)*r4_36f(i3,i6).a(2,2)) dia(i1,i3,i6).c(2,2)=rmb*(l5_12fz(i1).c(2,1)*r4_36f(i3,i6) & .c(1,2)+l5_12fz(i1).a(2,2)*r4_36f(i3,i6).d(2,2)) dia(i1,i3,i6).d(2,2)=l5_12fz(i1).b(2,1)*r4_36f(i3,i6).c(1, & 2)+l5_12fz(i1).d(2,2)*p512q*r4_36f(i3,i6).d(2,2) END DO END DO END DO DO i1=1,2 DO i3=1,2 DO i6=1,2 * mline -- res=cres31(i1,i3,i6,&),abcd=dia(i1,i3,i6).,m1=rmb,m2=(-rmb),den= * ((p512q-rmb2)*p512k0) DO iut=1,2 DO jut=1,2 cres31(i1,i3,i6,iut,jut)=(dia(i1,i3,i6).a(iut,jut) & +rmb*dia & (i1,i3,i6).b(iut,jut)+(-rmb)*dia(i1,i3,i6).c(iut, & jut)+rmb & *(-rmb)*dia(i1,i3,i6).d(iut,jut))/((p512q-rmb2) & *p512k0) ENDDO ENDDO END DO END DO END DO * Diagramma ( 57+60 ) non risonante gamma DO i1=1,2 DO i3=1,2 DO i4=1,2 * TT -- aa=dia(i1,i3,i4).a,bb=dia(i1,i3,i4).b,cc=dia(i1,i3,i4).c,dd=dia(i1, * i3,i4).d,a1=l5_12fz(i1).a,b1=l5_12fz(i1).b,c1=l5_12fz(i1).c,d1=l5_12fz(i1) * .d,a2=r6_34f(i3,i4).a,b2=r6_34f(i3,i4).b,c2=r6_34f(i3,i4).c,d2=r6_34f(i3,i * 4).d,prq=p512q,m=rmb dia(i1,i3,i4).a(1,1)=l5_12fz(i1).a(1,1)*r6_34f(i3,i4).a(1, & 1)+l5_12fz(i1).c(1,2)*p512q*r6_34f(i3,i4).b(2,1) dia(i1,i3,i4).b(1,1)=rmb*(l5_12fz(i1).d(1,1)*r6_34f(i3,i4) & .a(1,1)+l5_12fz(i1).b(1,2)*r6_34f(i3,i4).b(2,1)) dia(i1,i3,i4).c(1,1)=rmb*(l5_12fz(i1).a(1,1)*r6_34f(i3,i4) & .d(1,1)+l5_12fz(i1).c(1,2)*r6_34f(i3,i4).c(2,1)) dia(i1,i3,i4).d(1,1)=l5_12fz(i1).d(1,1)*p512q*r6_34f(i3,i4 & ).d(1,1)+l5_12fz(i1).b(1,2)*r6_34f(i3,i4).c(2,1) dia(i1,i3,i4).a(1,2)=rmb*(l5_12fz(i1).a(1,1)*r6_34f(i3,i4) & .b(1,2)+l5_12fz(i1).c(1,2)*r6_34f(i3,i4).a(2,2)) dia(i1,i3,i4).b(1,2)=l5_12fz(i1).d(1,1)*p512q*r6_34f(i3,i4 & ).b(1,2)+l5_12fz(i1).b(1,2)*r6_34f(i3,i4).a(2,2) dia(i1,i3,i4).c(1,2)=l5_12fz(i1).a(1,1)*r6_34f(i3,i4).c(1, & 2)+l5_12fz(i1).c(1,2)*p512q*r6_34f(i3,i4).d(2,2) dia(i1,i3,i4).d(1,2)=rmb*(l5_12fz(i1).d(1,1)*r6_34f(i3,i4) & .c(1,2)+l5_12fz(i1).b(1,2)*r6_34f(i3,i4).d(2,2)) dia(i1,i3,i4).a(2,1)=rmb*(l5_12fz(i1).c(2,1)*r6_34f(i3,i4) & .a(1,1)+l5_12fz(i1).a(2,2)*r6_34f(i3,i4).b(2,1)) dia(i1,i3,i4).b(2,1)=l5_12fz(i1).b(2,1)*r6_34f(i3,i4).a(1, & 1)+l5_12fz(i1).d(2,2)*p512q*r6_34f(i3,i4).b(2,1) dia(i1,i3,i4).c(2,1)=l5_12fz(i1).c(2,1)*p512q*r6_34f(i3,i4 & ).d(1,1)+l5_12fz(i1).a(2,2)*r6_34f(i3,i4).c(2,1) dia(i1,i3,i4).d(2,1)=rmb*(l5_12fz(i1).b(2,1)*r6_34f(i3,i4) & .d(1,1)+l5_12fz(i1).d(2,2)*r6_34f(i3,i4).c(2,1)) dia(i1,i3,i4).a(2,2)=l5_12fz(i1).c(2,1)*p512q*r6_34f(i3,i4 & ).b(1,2)+l5_12fz(i1).a(2,2)*r6_34f(i3,i4).a(2,2) dia(i1,i3,i4).b(2,2)=rmb*(l5_12fz(i1).b(2,1)*r6_34f(i3,i4) & .b(1,2)+l5_12fz(i1).d(2,2)*r6_34f(i3,i4).a(2,2)) dia(i1,i3,i4).c(2,2)=rmb*(l5_12fz(i1).c(2,1)*r6_34f(i3,i4) & .c(1,2)+l5_12fz(i1).a(2,2)*r6_34f(i3,i4).d(2,2)) dia(i1,i3,i4).d(2,2)=l5_12fz(i1).b(2,1)*r6_34f(i3,i4).c(1, & 2)+l5_12fz(i1).d(2,2)*p512q*r6_34f(i3,i4).d(2,2) END DO END DO END DO DO i1=1,2 DO i3=1,2 DO i4=1,2 * mline -- res=cres32(i1,i3,i4,&),abcd=dia(i1,i3,i4).,m1=rmb,m2=(-rmb),den= * ((p512q-rmb2)*p512k0) DO iut=1,2 DO jut=1,2 cres32(i1,i3,i4,iut,jut)=(dia(i1,i3,i4).a(iut,jut) & +rmb*dia & (i1,i3,i4).b(iut,jut)+(-rmb)*dia(i1,i3,i4).c(iut, & jut)+rmb & *(-rmb)*dia(i1,i3,i4).d(iut,jut))/((p512q-rmb2) & *p512k0) ENDDO ENDDO END DO END DO END DO ENDIF IF((imix.EQ.1.AND.iha.NE.3.AND.iha.NE.5).OR.imix.EQ.-2)THEN * Diagramma (29) DO i1=1,2 DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 cres33(i1,i3,i4,i5,i6)=rhzz*(c54z(i5,i4).e(0)* & c12z(i1).e(0)-c54z(i5,i4).e(1)*c12z(i1).e(1)- & c54z(i5,i4).e(2)*c12z(i1).e(2)-c54z(i5,i4).e(3)* & c12z(i1).e(3))*c36h(i3,i6) ENDDO !i6 ENDDO !i5 ENDDO !i4 ENDDO !i3 ENDDO !i1 * Diagramma (30) DO i1=1,2 DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 cres34(i1,i3,i4,i5,i6)=rhzz*(c36z(i3,i6).e(0)* & c12z(i1).e(0)-c36z(i3,i6).e(1)*c12z(i1).e(1)- & c36z(i3,i6).e(2)*c12z(i1).e(2)-c36z(i3,i6).e(3)* & c12z(i1).e(3))*c54h(i5,i4) ENDDO !i6 ENDDO !i5 ENDDO !i4 ENDDO !i3 ENDDO !i1 * Diagramma (55) DO i1=1,2 DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 cres35(i1,i3,i4,i5,i6)=rhzz*(c34z(i3,i4).e(0)* & c12z(i1).e(0)-c34z(i3,i4).e(1)*c12z(i1).e(1)- & c34z(i3,i4).e(2)*c12z(i1).e(2)-c34z(i3,i4).e(3)* & c12z(i1).e(3))*c56h(i5,i6) ENDDO !i6 ENDDO !i5 ENDDO !i4 ENDDO !i3 ENDDO !i1 * Diagramma (56) DO i1=1,2 DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 cres36(i1,i3,i4,i5,i6)=rhzz*(c56z(i5,i6).e(0)* & c12z(i1).e(0)-c56z(i5,i6).e(1)*c12z(i1).e(1)- & c56z(i5,i6).e(2)*c12z(i1).e(2)-c56z(i5,i6).e(3)* & c12z(i1).e(3))*c34h(i3,i4) ENDDO !i6 ENDDO !i5 ENDDO !i4 ENDDO !i3 ENDDO !i1 ENDIF * el1 IF((imix.EQ.1.AND.isusy.EQ.1.AND.(iproc.EQ.39.OR.iproc.EQ.43.OR. & iproc.EQ.51).AND.(icch.EQ.3.OR.(icch.EQ.1.AND.iha.NE.2.AND. & iha.NE.4))).OR.(imix.EQ.-2.AND.isusy.EQ.1))THEN * endel1 DO i1=1,2 DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 cresha1(i1,i3,i4,i5,i6)=rzha*(c12z(i1).e(0)* & (p34(0)-p56(0))- & c12z(i1).e(1)*(p34(1)-p56(1))-c12z(i1).e(2)*(p34(2) & -p56(2))-c12z(i1).e(3)*(p34(3)-p56(3)))*c56a(i5,i6)* & c34h(i3,i4) cresha2(i1,i3,i4,i5,i6)=rzha*(c12z(i1).e(0)* & (p36(0)-p54(0))- & c12z(i1).e(1)*(p36(1)-p54(1))-c12z(i1).e(2)*(p36(2) & -p54(2))-c12z(i1).e(3)*(p36(3)-p54(3)))*c54a(i5,i4)* & c36h(i3,i6) cresha3(i1,i3,i4,i5,i6)=rzha*(c12z(i1).e(0)* & (p54(0)-p36(0))- & c12z(i1).e(1)*(p54(1)-p36(1))-c12z(i1).e(2)*(p54(2) & -p36(2))-c12z(i1).e(3)*(p54(3)-p36(3)))*c36a(i3,i6)* & c54h(i5,i4) cresha4(i1,i3,i4,i5,i6)=rzha*(c12z(i1).e(0)* & (p56(0)-p34(0))- & c12z(i1).e(1)*(p56(1)-p34(1))-c12z(i1).e(2)*(p56(2) & -p34(2))-c12z(i1).e(3)*(p56(3)-p34(3)))*c34a(i3,i4)* & c56h(i5,i6) ENDDO ENDDO ENDDO ENDDO ENDDO ENDIF ************************************************************************ if (ifirst.eq.1) then IF(istrcor.EQ.1)THEN qcdcor=qcdcor_nc fatcor_qcd=1.d0/(1.d0+qcdcor)**2 fatcor_hh=(1.d0+qcdcor)*(1.d0+qcdcor_h) & /(1.d0+qcdcor)**2 fatcor_hz=(1.d0+qcdcor)*sqrt((1.d0+qcdcor)*(1.d0+qcdcor_h)) & /(1.d0+qcdcor)**2 fatcor_ampha=sqrt((1.d0+qcdcor_h)/(1.d0+qcdcor)) ELSE fatcor_qcd=1.d0 fatcor_hh=1.d0 fatcor_hz=1.d0 fatcor_ampha=1.d0 ENDIF ifirst=0 endif res=0.d0 DO i1=1,2 DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 IF(imix.EQ.-1.OR.imix.EQ.-2)THEN cres_nc(i1,i3,i4,i5,i6).id(0)=cres7(i1,i3,i4,i5,i6)+ & cres8(i1,i3,i4,i5,i6)+cres10(i1,i3,i4,i5,i6)+ & cres11(i1,i5,i6,i3,i4)+cres14(i1,i5,i6,i3,i4)+ & cres16(i1,i3,i4,i5,i6)+cres4(i1,i3,i4,i5,i6)+ & cres26(i1,i3,i4,i5,i6)+cres27(i1,i5,i6,i3,i4)+ & cres29(i1,i5,i6,i3,i4)+cres32(i1,i3,i4,i5,i6)+ & cres2(i1,i3,i4,i5,i6) cres_nc(i1,i3,i4,i5,i6).id(1)=cres5(i1,i3,i4,i5,i6)+ & cres6(i1,i3,i4,i5,i6)+cres9(i1,i3,i6,i5,i4)+ & cres12(i1,i5,i4,i3,i6)+cres13(i1,i3,i6,i5,i4)+ & cres15(i1,i5,i4,i3,i6)+cres3(i1,i3,i4,i5,i6)+ & cres25(i1,i3,i6,i5,i4)+cres28(i1,i5,i4,i3,i6)+ & cres30(i1,i5,i4,i3,i6)+cres31(i1,i3,i6,i5,i4)+ & cres1(i1,i3,i4,i5,i6) IF(iqu.EQ.1)THEN cres_qcd(i1,i3,i4,i5,i6).id(0)=(cres26(i1,i3,i4,i5, & i6)+ & cres27(i1,i5,i6,i3,i4)+cres29(i1,i5,i6,i3,i4)+ & cres32(i1,i3,i4,i5,i6))*qcdcoupl/(fqdl**2) cres_qcd(i1,i3,i4,i5,i6).id(1)=(cres25(i1,i3,i6,i5, & i4)+ & cres28(i1,i5,i4,i3,i6)+cres30(i1,i5,i4,i3,i6)+ & cres31(i1,i3,i6,i5,i4))*qcdcoupl/(fqdl**2) ENDIF ENDIF IF((imix.EQ.1.AND.(icch.EQ.3.OR.(icch.EQ.1.AND.iha.EQ.1) & .OR.(icch.EQ.1.AND.isusy.EQ.1.AND.iha.EQ.2))).OR. & imix.EQ.-2)THEN cres_h(i1,i3,i4,i5,i6).id(0)=cres18(i1,i3,i4,i5,i6)+ & cres20(i1,i3,i4,i5,i6)+cres21(i1,i3,i4,i5,i6)+ & cres24(i1,i3,i4,i5,i6) cres_h(i1,i3,i4,i5,i6).id(1)=cres17(i1,i3,i4,i5,i6)+ & cres19(i1,i3,i4,i5,i6)+cres22(i1,i3,i4,i5,i6)+ & cres23(i1,i3,i4,i5,i6) ENDIF IF((icch.EQ.1.AND.imix.EQ.1.AND.iha.NE.3.AND.iha.NE.5). & OR.imix.EQ.-2)THEN cres_hz(i1,i3,i4,i5,i6).id(0)=cres35(i1,i3,i4,i5,i6)+ & cres36(i1,i3,i4,i5,i6) cres_hz(i1,i3,i4,i5,i6).id(1)=cres33(i1,i3,i4,i5,i6)+ & cres34(i1,i3,i4,i5,i6) ENDIF IF(isusy.EQ.1.AND.((imix.EQ.1.AND.(icch.EQ.3.OR. & (icch.EQ.1.AND.(iha.EQ.1.OR.iha.EQ.3)))).OR. & imix.EQ.-2))THEN cres_a(i1,i3,i4,i5,i6).id(0)=cres18a(i1,i3,i4,i5,i6)+ & cres20a(i1,i3,i4,i5,i6)+cres21a(i1,i3,i4,i5,i6)+ & cres24a(i1,i3,i4,i5,i6) cres_a(i1,i3,i4,i5,i6).id(1)=cres17a(i1,i3,i4,i5,i6)+ & cres19a(i1,i3,i4,i5,i6)+cres22a(i1,i3,i4,i5,i6)+ & cres23a(i1,i3,i4,i5,i6) ENDIF IF(isusy.EQ.1.AND.((imix.EQ.1.AND.(icch.EQ.3.OR. & (icch.EQ.1.AND.iha.NE.2.AND.iha.NE.4))).OR. & imix.EQ.-2))THEN cres_ha(i1,i3,i4,i5,i6).id(0)=cresha1(i1,i3,i4,i5,i6)+ & cresha4(i1,i3,i4,i5,i6) cres_ha(i1,i3,i4,i5,i6).id(1)=cresha2(i1,i3,i4,i5,i6)+ & cresha3(i1,i3,i4,i5,i6) ENDIF ENDDO !i6 ENDDO !i5 ENDDO !i4 ENDDO !i3 ENDDO !i1 DO i1=1,2 DO i3=1,2 DO i4=1,2 DO i5=1,2 DO i6=1,2 IF (imix.EQ.-1.OR.imix.EQ.-2) THEN cresa=cres_nc(i1,i3,i4,i5,i6).id(0) cresb=cres_nc(i1,i3,i4,i5,i6).id(1) res=res+2.d0*(cresa*conjg(cresa-cresb/3.d0)) IF (iqu.EQ.1) THEN rc=2.d0/9.d0 cresc=cres_qcd(i1,i3,i4,i5,i6).id(0) cresd=cres_qcd(i1,i3,i4,i5,i6).id(1) res=res+(2.d0*rc*(dreal(cresc)**2+dimag(cresc)**2)+ & rc*(cresc*conjg(cresd)+cresd*conjg(cresc))/3.d0 & -4.d0*rc*(cresa*conjg(cresd)+cresd*conjg(cresa)))* & fatcor_qcd ENDIF IF (imix.EQ.-2) THEN res=res-2.d0*fatcor_hz*(cres_nc(i1,i3,i4,i5,i6). & id(0)* & conjg(cres_h(i1,i3,i4,i5,i6).id(0))+ & cres_h(i1,i3,i4,i5,i6).id(0)* & conjg(cres_nc(i1,i3,i4,i5,i6).id(0))) & +2.d0*fatcor_hz*(cres_nc(i1,i3,i4,i5,i6).id(0) & *conjg(cres_h(i1,i3,i4,i5,i6).id(1))+ & cres_h(i1,i3,i4,i5,i6).id(1)* & conjg(cres_nc(i1,i3,i4,i5,i6).id(0)))/3.d0 res=res+2.d0*fatcor_hz*(cres_nc(i1,i3,i4,i5,i6). & id(0)*conjg(cres_hz(i1,i3,i4,i5,i6).id(0))+ & cres_hz(i1,i3,i4,i5,i6).id(0)* & conjg(cres_nc(i1,i3,i4,i5,i6).id(0))) & -2.d0*fatcor_hz*(cres_nc(i1,i3,i4,i5,i6).id(0) & *conjg(cres_hz(i1,i3,i4,i5,i6).id(1))+ & cres_hz(i1,i3,i4,i5,i6).id(1)* & conjg(cres_nc(i1,i3,i4,i5,i6).id(0)))/3.d0 IF(isusy.EQ.1)THEN res=res-2.d0*fatcor_hh*(cres_nc(i1,i3,i4,i5,i6). & id(0)* & conjg(cres_a(i1,i3,i4,i5,i6).id(0))+ & cres_a(i1,i3,i4,i5,i6).id(0)* & conjg(cres_nc(i1,i3,i4,i5,i6).id(0))) & +2.d0*fatcor_hz*(cres_nc(i1,i3,i4,i5,i6).id(0) & *conjg(cres_a(i1,i3,i4,i5,i6).id(1))+ & cres_a(i1,i3,i4,i5,i6).id(1)* & conjg(cres_nc(i1,i3,i4,i5,i6).id(0)))/3.d0 res=res+2.d0*fatcor_hh*(cres_nc(i1,i3,i4,i5,i6). & id(0)*conjg(cres_ha(i1,i3,i4,i5,i6).id(0))+ & cres_ha(i1,i3,i4,i5,i6).id(0)* & conjg(cres_nc(i1,i3,i4,i5,i6).id(0))) & -2.d0*fatcor_hh*(cres_nc(i1,i3,i4,i5,i6).id(0) & *conjg(cres_ha(i1,i3,i4,i5,i6).id(1))+ & cres_ha(i1,i3,i4,i5,i6).id(1)* & conjg(cres_nc(i1,i3,i4,i5,i6).id(0)))/3.d0 ENDIF IF (iqu.EQ.1) THEN rc=4.d0/9.d0 res=res+2.d0*rc*(cres_h(i1,i3,i4,i5,i6).id(0)* & conjg(cres_qcd(i1,i3,i4,i5,i6).id(1))+ & cres_qcd(i1,i3,i4,i5,i6).id(1)* & conjg(cres_h(i1,i3,i4,i5,i6).id(0)))*fatcor_qcd res=res-2.d0*rc*(cres_hz(i1,i3,i4,i5,i6).id(0)* & conjg(cres_qcd(i1,i3,i4,i5,i6).id(1))+ & cres_qcd(i1,i3,i4,i5,i6).id(1)* & conjg(cres_hz(i1,i3,i4,i5,i6).id(0)))*fatcor_qcd IF(isusy.EQ.1)THEN res=res+2.d0*rc*(cres_a(i1,i3,i4,i5,i6).id(0)* & conjg(cres_qcd(i1,i3,i4,i5,i6).id(1))+ & cres_qcd(i1,i3,i4,i5,i6).id(1)* & conjg(cres_a(i1,i3,i4,i5,i6).id(0)))*fatcor_qcd res=res-2.d0*rc*(cres_ha(i1,i3,i4,i5,i6).id(0)* & conjg(cres_qcd(i1,i3,i4,i5,i6).id(1))+ & cres_qcd(i1,i3,i4,i5,i6).id(1)* & conjg(cres_ha(i1,i3,i4,i5,i6).id(0)))*fatcor_qcd ENDIF !isusy ENDIF !iqu ENDIF !imix=-2 ENDIF !imix=-1,-2 IF (imix.EQ.1) THEN IF(icch.EQ.1.AND.((isusy.EQ.0.AND.iha.EQ.2).OR. & (isusy.EQ.1.AND.iha.EQ.4)))THEN cresa=cres36(i1,i3,i4,i5,i6) cresb=cres35(i1,i3,i4,i5,i6) cresc=cres33(i1,i3,i4,i5,i6)+cres34(i1,i3,i4,i5,i6) res=res+4.d0*fatcor_hh*(cresa*conjg(cresa)+ & cresa*conjg(cresb)-cresa*conjg(cresc)/3.d0) ELSE IF(icch.EQ.1.AND.((isusy.EQ.0.AND.iha.EQ.1).OR. & (isusy.EQ.1.AND.iha.EQ.2)))THEN cresa=cres36(i1,i3,i4,i5,i6)-cres20(i1,i3,i4,i5,i6) & -cres24(i1,i3,i4,i5,i6) cresb=cres35(i1,i3,i4,i5,i6)-cres18(i1,i3,i4,i5,i6) & -cres21(i1,i3,i4,i5,i6) cresc=cres33(i1,i3,i4,i5,i6)+cres34(i1,i3,i4,i5,i6) & -cres_h(i1,i3,i4,i5,i6).id(1) res=res+4.d0*fatcor_hh*(cresa*conjg(cresa)+ & cresa*conjg(cresb)-cresa*conjg(cresc)/3.d0) * da controllare ELSE IF(icch.EQ.1.AND.isusy.EQ.1.AND.iha.EQ.5)THEN cresa=cresha1(i1,i3,i4,i5,i6)*fatcor_ampha cresb=cresha4(i1,i3,i4,i5,i6)*fatcor_ampha cresc=(cresha2(i1,i3,i4,i5,i6)+ & cresha3(i1,i3,i4,i5,i6))*fatcor_ampha res=res+4.d0*fatcor_hh*(cresa*conjg(cresa)+ & cresa*conjg(cresb)-cresa*conjg(cresc)/3.d0) ELSE IF(icch.EQ.1.AND.isusy.EQ.1.AND.iha.EQ.3)THEN cresa=fatcor_ampha*(cresha1(i1,i3,i4,i5,i6)- & cres18a(i1,i3,i4,i5,i6)-cres21a(i1,i3,i4,i5,i6)) cresb=fatcor_ampha*(cresha4(i1,i3,i4,i5,i6)- & cres20a(i1,i3,i4,i5,i6)-cres24a(i1,i3,i4,i5,i6)) cresc=fatcor_ampha*(cresha2(i1,i3,i4,i5,i6)+ & cresha3(i1,i3,i4,i5,i6)-cres17a(i1,i3,i4,i5,i6)- & cres19a(i1,i3,i4,i5,i6)-cres22a(i1,i3,i4,i5,i6)- & cres23a(i1,i3,i4,i5,i6)) res=res+4.d0*fatcor_hh*(cresa*conjg(cresa)+ & cresa*conjg(cresb)-cresa*conjg(cresc)/3.d0) ELSE IF(icch.EQ.1.AND.isusy.EQ.1.AND.iha.EQ.6)THEN cresa=cres36(i1,i3,i4,i5,i6) & +fatcor_ampha*cresha1(i1,i3,i4,i5,i6) cresb=cres35(i1,i3,i4,i5,i6) & +fatcor_ampha*cresha4(i1,i3,i4,i5,i6) cresc=cres33(i1,i3,i4,i5,i6)+cres34(i1,i3,i4,i5,i6) & +fatcor_ampha* & (cresha2(i1,i3,i4,i5,i6)+cresha3(i1,i3,i4,i5,i6)) res=res+4.d0*(cresa*conjg(cresa)+cresa*conjg(cresb)- & cresa*conjg(cresc)/3.d0)*fatcor_hh ELSE IF(icch.EQ.1.AND.isusy.EQ.1.AND.iha.EQ.1)THEN cresa=cres36(i1,i3,i4,i5,i6)-cres20(i1,i3,i4,i5,i6)- & cres24(i1,i3,i4,i5,i6)+fatcor_ampha* & (cresha1(i1,i3,i4,i5,i6)-cres18a(i1,i3,i4,i5,i6)- & cres21a(i1,i3,i4,i5,i6)) cresb=cres35(i1,i3,i4,i5,i6)-cres18(i1,i3,i4,i5,i6)- & cres21(i1,i3,i4,i5,i6)+fatcor_ampha* & (cresha4(i1,i3,i4,i5,i6)-cres20a(i1,i3,i4,i5,i6)- & cres24a(i1,i3,i4,i5,i6)) cresc=cres33(i1,i3,i4,i5,i6)+cres34(i1,i3,i4,i5,i6) & -cres_h(i1,i3,i4,i5,i6).id(1)+fatcor_ampha* & (cresha2(i1,i3,i4,i5,i6)+cresha3(i1,i3,i4,i5,i6) & -cres17a(i1,i3,i4,i5,i6)-cres19a(i1,i3,i4,i5,i6) & -cres22a(i1,i3,i4,i5,i6)-cres23a(i1,i3,i4,i5,i6)) res=res+4.d0*(cresa*conjg(cresa)+cresa*conjg(cresb)- & cresa*conjg(cresc)/3.d0)*fatcor_hh ELSE IF(icch.EQ.3.AND.isusy.EQ.0)THEN cresa=cres36(i1,i3,i4,i5,i6)-cres20(i1,i3,i4,i5,i6)- & cres24(i1,i3,i4,i5,i6) cresb=cres35(i1,i3,i4,i5,i6)-cres18(i1,i3,i4,i5,i6)- & cres21(i1,i3,i4,i5,i6) cresc=cres33(i1,i3,i4,i5,i6)+cres34(i1,i3,i4,i5,i6)- & cres_h(i1,i3,i4,i5,i6).id(1) res=res+4.d0*(cresa*conjg(cresa)+cresa*conjg(cresb)- & cresa*conjg(cresc)/3.d0)*fatcor_hh ELSE IF(icch.EQ.3.AND.isusy.EQ.1)THEN cresa=cres36(i1,i3,i4,i5,i6) & -cres20(i1,i3,i4,i5,i6)-cres24(i1,i3,i4,i5,i6) & +fatcor_ampha*(cresha1(i1,i3,i4,i5,i6)- & cres18a(i1,i3,i4,i5,i6)-cres21a(i1,i3,i4,i5,i6)) cresb=cres35(i1,i3,i4,i5,i6) & -cres18(i1,i3,i4,i5,i6)-cres21(i1,i3,i4,i5,i6) & +fatcor_ampha*(cresha4(i1,i3,i4,i5,i6)- & cres20a(i1,i3,i4,i5,i6)-cres24a(i1,i3,i4,i5,i6)) cresc=cres33(i1,i3,i4,i5,i6)+cres34(i1,i3,i4,i5,i6)- & cres_h(i1,i3,i4,i5,i6).id(1)+fatcor_ampha* & (cresha2(i1,i3,i4,i5,i6)+cresha3(i1,i3,i4,i5,i6)- & cres17a(i1,i3,i4,i5,i6)-cres19a(i1,i3,i4,i5,i6)- & cres22a(i1,i3,i4,i5,i6)-cres23a(i1,i3,i4,i5,i6)) res=res+4.d0*(cresa*conjg(cresa)+cresa*conjg(cresb)- & cresa*conjg(cresc)/3.d0)*fatcor_hh * fine ENDIF ENDIF c IF(imix.EQ.3)THEN c cresa=cresha1(i1,i3,i4,i5,i6) c cresb=cresha4(i1,i3,i4,i5,i6) c cresc=cresha2(i1,i3,i4,i5,i6)+cresha3(i1,i3,i4,i5,i6) c res=res+4.d0*fatcor_hh*(cresa*conjg(cresa)+ c & cresa*conjg(cresb)-cresa*conjg(cresc)/3.d0) c ENDIF ENDDO !i6 ENDDO !i5 ENDDO !i4 ENDDO !i3 ENDDO !i1 * el1 IF(i3q.EQ.1.AND.i5q.EQ.1)THEN rc=9.d0 ELSE rc=1.d0 ENDIF * endel1 ee_bbbb=rc*res/p1k0/p2k0/p3k0/p4k0/p5k0/p6k0/16.d0 IF (istrcor.EQ.1) THEN ee_bbbb=ee_bbbb*(1.d0+qcdcor)**2 ENDIF RETURN END