"lycRZ @QL-- `htut}  32<  ")/14<>FRTXz ?ATVaf  !(}QL-- `htut}  32<'<EyI$,1DN--------------  ht?H???D >?~C--- ht@--htHU8S--hty1BT------}uj  ht  A+TIT LE. DLEPT OP 2.00/03 08/09/98 23.49.32A+TIT LE. ELEPT OP 2.00/04 21/04/2000 16.10.36 C--- htuj|M@Y2ZZZ ?I$,1DN--------------' ;<TUklNO12DEjk}CV 5------y8M-------u 5 ------q+P,deltac. Ƃ CMZ : 2.00/02 06/07/98 10.24.47 by A.Rozanov Ă -- Author : A.Rozanov 06/07/98 COMMON/DELTAC/X,Yv 06/07/98>+K,MAIN. Ƃ CMZ : 1.30/07 17/02/95 22.30.55 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 23.19.33 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : === =================================================================*  program LEPTOP F* calculation of the electroweak corrections for LEP with formulas from V.A.Novikov, L.B.Okun and M.I.Vysotsky * F* ITEP, Moscow, Russia  F* Author: A.Rozanov , rozanov@cernvm.cern.ch === =================================================================*  CALL LTTEST ; >+K,LTSCAN. Ƃ CMZ : 2.00/00 28/01/96 15.19.46 by A.Rozanov Ƃ CMZ : 1.30/07 15/02/95 00.29.13 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- MVMn U1ZV ` p XTH.^nG*7~)?>9E`Rw劁*h/KC\utYٷ)G\2exbZ'+BNu<6M8hkT\zT쐻gMHgA !ӆ[ y<^u'7W;ªnUE^WmC9 3MrS.N4,Y_dh9>׽Wɯj2ƫ;~9Fl:- 7;޶rXϨ ~B-/)Oyf.Xfc|5IoyɌP~/~>+K,LTFOUR. Ƃ CMZ : 2.00/02 03/07/98 19.37.43 by A.Rozanov Ƃ CMZ : ------i-------e%-------aQ5 ------]0u 6%rh PЁ!B@B9jbxc+? T*u<_BU:C6x8<"^߉y0c1(eZ[xSws*0SᵉGd}< IRX`k-l"Z:Y{{i#2h839zzIa:(; fnhӸ^Ch D5x` +ꤧ?a֊_u##(0q;o'Xz/d"FQ-Gnn 8xʩ rz\{\j RuԞ;F1,vl{s VGF/tm˸/۟ie?%}v =5=ӠaǸ|/$`LJ'粫|#be.a#2kJ2 xaz!]#]kj<,X@'Eb$`fKH88Wj" mmpM)N )SD:FT A۫#vy(K( Y)j|C%Ы釼y[_0?bO{/sw+Nz!fPi0kob 7#Gr%{aX qkC:W7硷!#m:\HO5u>ax1"ohT)1~m)L` vֹuO # M1f눱Pl&cea y20<}ns!.w+/۫ջmyqA=FO3(,v_hba? 2kl!D!h[7ɫdp/+}RQf&SG9\9Kmpq7`N*g ĵvq?K/J@QM`3htجL+6l,5AYIpь삌n;/>6Q݀S<hHo5QV?̇,^ Yl}`3t؟!D30v?6`f)p@x ɫumHS(ODw|a7]aLovP|[x~O:_"?f ]XjC,%ey,c <PSS<XH ^Sx :>1Z-+2ENDl!1LW ~G~P:.7eTA2pLt;(X7}J>94z+cVt+9̱b<+SĊ.`EhE!W' cr0\L3\٩J\-reUɕ:ˊJٮrE`0Xu$rCYanu$垆m56J(Y|Q6Vl>F*_Ǵ*6J3kK>9-yulkew ??l`cEL$$9 |^מ[ :^r>FwZU+Osz>8е!]Nj\ށё:7(:͖A$d+㙃~]K8Tó3Hf#d+)UxB#ۙQx]]',naoϣCUg'3}8/t6a <O?ĵ9Ԅ R $ U9]Xh,E_b)zX y~]wrDžϕ g~\ 뱰ұbWXטM$ޫ!ڭ &|M>+K,ZVM. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION ZVM(AMT,I) =+,DOUBLE.=+,CONST. =+,ZVALUE. T=(AMT/AMZ)**2 H=(ZZMH/AMZ)**2  ZVM=ZZVM-VM(T,H,ZZALSB) ; >+K,ZVA. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION ZVA(AMT,I) =+,DOUBLE.=+,CONST. =+,ZVALUE. T=(AMT/AMZ)**2 H=(ZZMH/AMZ)**2  ZVA=ZZVA-VAL(T,H,ZZALSB) ; >+K,ZVR. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION ZVR(AMT,I) =+,DOUBLE.=+,CONST. =+,ZVALUE. T=(AMT/AMZ)**2 H=(ZZMH/AMZ)**2  ZVR=ZZVR-VRL(T,H,ZZALSB) ; >+K,LTSTRT. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : SUBROUTINE LTSTRT =+,DOUBLE.=+,DEBUG.  --- --initialisations  DO I=1,10  PRTFLG(I)=-1.  ENDDO  CALL LTINIT(0); >+K,LTGLASGOW.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : SUBROUTINE LTGLASGOW =+,DOUBLE.=+,CONST. =+,SMITH.  calculate tables for GLASGOW-94 coMUMk@ inI eI"h* ^BQ|j{P{ofz1s%X2Z4ܻ̠Tp8vQMo!6dUd&z!1W`na7qCVi ajzbk}q *D@J񢔶*nc&@9J.eb\MT``3qRPRЯ^$*"_jz0`Їº-YW?VWH^Tf؃`wb+K,LTISOLINE.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : SUBROUTINE LTISOLINE =+,DOUBLE.=+,CONST. =+,SMITH. calculate isolines for GLASGOW-94 MT]o0v~5i;M5- ONCTZ*ŹX2, +>o#seڜ֝: ./P_ +8Hɣm_͔ߵ{=GM5.Zu|U[%5?<q̢q$AFcuÕZyJ'Z[h;b- ?v6\A=K]6כc\fKz>}7_y8j| p9~?orP?ƥcΩҾs߬V 6\TEv%5tjbW P>+o\)vObV2XXO:rMYZ>jp@6j(ν'jYCWSN͊EL&~5.Z&=B[}$$WG]1}Nt8tf[νbi,>3j>[<}8$Z ^<;=^CCf9p,v>+K,LTCHCK. Ƃ CMZ : 2.00/03 08/09/98 21.57.28 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.40.56 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- M@ `$Y_owK!bH+%(%mMZ C祝VEq>Igfw)lzC8op9fI :,Nڽ{Ƀw '!`}_`=I|o$1( Lҏh3sԍϏ GI@-_A @c >-{/p %K<"zmcת!6[]*`0p@Z@,5aeAIH!jl`B-mI!l,*RiV M%TXtP]Q%L=0Ljd1k(,6х,f ]y аqy[WQ67og4oن-Λlî&Y$n~cYMO*Y:[VN,#?/rg77SՊh.\mߺZw8{I `^z}fٻ)CnF J*ho͟t2ː,S>,pg(鈱{Hg bklQAL0dkqd^`k:2/"@xtT1n}"Df_.^5Nqe'Vz;!d)$8FKjF`~mso1Xm*Z V S4. pA^qd:q&^dm/ Dy/&pW.z-bra Ǐ.fӛtVÝ\AkʯUU~eǵCϗ!(Ev*C㠚aN6IZ>HZ>Hm&KywY;K`?^-KQnj #p\6?zJXo3vQ ;*a?/W5[R`O{taJ!& 7q}-예*cBUl/>.""n[~Y cgu * iPDPpWugt :Tdc$׉ǝ gqـkq͍8'-38ߓ~RB4{JЊ)1z\&3J\ qV^C<.ƾ"Z5Q{Xꕯf^)buXb1!&3CWmpm'To&3i(O^tۂ*Z6U j49X*zPs12-_v#eFu*>81qsD)G(|^Y|)c[IbmHGzo_?_|i?|L[%ƅ:#)CM|[[ w$_$UO E@E;rզstxQ9Q|s9•Q}[^D_IpUųKE.%<-9$Ө"$y`+ߩP!ey,Ӭ"&JWv!Fv{l]G ٹ0(eٹWѺC ]]G2I36vQN'@Bf #,x9'jbݰ=vÞ#Wba jT5:A\\&jAKfxS~9Q{T}OqV߂/5$-ؘ5-m:&M-D7'UKq.^-*z+TjRrD_Qjױo?? *2>+K,LTBOOK. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author :  SUBROUTINE LTBOOK =+,DOUBLE.=+,PAWC.  real*4 AMTMIN,AMTMAX,ALSMIN,ALSMAX,AMHMIN,AMHMMN@~ b q[w[Ӌ*1%`1ܢ A}Qęm 2u@ygMEF4<^.aZ\k1u C!˸Q7P0}n'+QM2o(֢7 U='Nh.lG5q0jʨْm4Y};Y}:̌5|N7xc2TYI'SȂ2Rـ7̼SY9<Cxʡǐ팺̃9f,]zK2r$ gפ~W<_f%Ƙ/j-^=!,Ѕ<:9Yهlv 4t h̯Ahq"AH!""h (S.i&5b+K,LTFMTH. Ƃ CMZ : 2.00/02 03/07/98 18.44.31 by A.Rozanov Ƃ CMZ : 1.30/07 18/02/95 00.59.31 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- MAlC\nʕJ1D{D]%QQJr):qMDm ok%-nQ,P`EϐR$'E X$gΙ3sΜ3$~}fSlWN8>'?c$C9row1m{^ٖI'L:'G&wǣIG*F^e[pQnTzn+a4xrOLNx7pxӅP> 6ۙ@ kz? ^eP7-W,Rw @SL?G(,P5N4FQe/rG!ד($Onxƾ!O#$6ՅxÈp9Eiؖ%ϐ}qcat%"gInvy}#0v|Aipl)" &$pX)7t# \1"!ڤ `|waQlHՍ\Յer@cZ:(!ZT+BSFuYnpPQzz{2{Lك3rY;K}Y; B5dٳcFá&(An e;nȇV= pwB>돳35n:lݴM/w6QB}aeQ0e:x,"ź>h`1Wd0~#0L푲A6N`+W!B(Зmpi1D{6`=MէScXq$ޯPІP ]vO 8QGݰP_CP B('< Ɲn؉`.BŔKQ*'oYWn ƀHnt9~ycG?6ah87/ZmQQ_L!{WmZ _SvƠ_lԴm3\j5~ @FnC0A"Gc0JI` .xme#`.)_Un5\Ҩ {!<ϩ=Myӗ0apI ~ؗf6%H Z%yv",u}1}'Dx#kto%m66H(vMwÛ !|؁Q2R\{3V-m{`<' pwmJ>Դ}&P~l?9w.$ 3sx- \r f$j\Ո*w^pRjan@4ycV10=#ZıebS+gmՂ ë?VŚ5j q*-&bXl!֓#Qy Yͫ,mc;d47̠rCh)1O?u4mH' 80[9N(fN9WK4\̜Vn&wp!uZAHv|nYjϹCnXq'O%OP4Zޤ*+i29$]ja2yB<@9ebYm[[1Fa%"*QKm ?L9oI[%o~e$Q $ Q%\!'oރ#o[&(^ro$0gȶ똘i_ +K u]Օ>KOBDVdh6u9utku!]Rjϳac"7nΪGØ#OZ5p .y hcrFƸM.y]c|3E80FT9^<"]0|R4YÇu`.gdfn8f Ӛ '-G{Cv $tE̞٬L4e'?_?XZLaf^]߈7.q~5qN^f0Se)To7Y^Ïgw5;(yFx1u\[0*[pލYP?^ C^Z w `^hEo ej t31_W gy7 ?t?|gG!8Lo赜; w!wkjsPnuMϴΛ5|q~E5'^w Q$}qP咃tOZlO Z&U70О!xWߕcA_nrֈ g7cz ; %I/qi4, $w;|]_>}xv"+uCq%^<%Q|2MmvMjO} {ş7"vͧDЭ7L t*^D%ɒA'j/גxn۽H?zA84Fٕ=$QJ +K,LTFIT.Ƃ CMZ : 2.00/00 28/01/96 15.19.46 by A.Rozanov Ƃ CMZ : 1.30/07 17/02/95 22.19.11 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTFIT(CHKEY,FMT,FALS,EFMT,EFALS,RHO,CHI2S,NDF) H* --- ------------MTn@^%-};:qVm$rumvqU8%qix+fv*!`${gۙo+)Ķs_ lH?v`6W~FY"ড়v*se>Ƙ~3Đ`` L'Q:Γ 'yr{ma 7FuWy6m#$+$'^jfV5%\_q8  2Llҧ~Ywa3<8}M/륊lדl ^Z5G9 OCFM`4k5&Lp0!Ӎ;~[ KP!}_civ&"FZIvw%%H!0Zuc/T׭Q_+6<\>+K,PRTERR. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : SUBROUTINE PRTERR =+,DOUBLE. CHARACTER*10 CHNAM CALL MNSTAT(FMIN,FEDM,ERRDEF,NPARI,NPARX,ISTAT)  DO 50 I=1,NPARI  DO 50 I=1,3  CALL MNPOUT(I,CHNAM,VALUE ,ERROR,BND1,BND2,IVARBL) CALL MNERRS(I,EPLUS,EMINUS,EPARAB,GLOBCC)  WRITE(6,45) I,CHNAM,VALUE,ERROR,EPLUS,EMINUS,EPARAB,GLOBCCE 4 5 FORMAT(1X,I2,1X,A10,F9.4,' +-',F9.4,  1 ' E+,E-,EPAR,GLOBCC',4F9.4)z0 5 ; >+K,FCNLB.Ƃ CMZ : 2.00/02 03/07/98 19.41.59 by A.Rozanov Ƃ CMZ : 2.00/01 18/07/97 19.57.45 by A.Rozanov Ƃ CMZ : 2.00/00 24/06/97 17.32.47 by A.Rozanov Ƃ CMZ : 2.00/01 07/03/95 21.28.17 by A.Rozanov Ƃ CMZ : 1.30/01 M[WnFe$;.P?O"ejMR_  %RZA) e@QԏS7 Q) ;'%iq腀D̙Y ƶeo; gEW+FlQUmvYj{R/.&oƳg BJ1Z_aFa48yC {zxEff`L.-58>L>m&{Qc9Øz[C>a [‡{bRVZ{r mfk ;ŘOm7 T*t1_LNjlcAaxy[GQ97LP(jh]t-(sk;] q=X/&~7X;f3߲ߡ=BBZ Nuga KZC͐oD>ḋ.!U&kZ͡>vE5 n$]K5V3[ ِ~k bf 4W_ȿ$ýk)R7pƴw~Y.-gY38x l,0A.OGQںfiq>a6#4^  ^G%r?r˶i&Ku2ěSFIIGSk|x1)؇Aw<eٖ!Za5F #xJʿ*h$n+XƷ| #\^_&nkH"rP7bGt(a*n>{5/&`#$7yx=t1~a纻nr~z6*nĸ7<"r+};x=\\cMcH],X RrY??x:<P_z5&f-kw c1vĜ=|yL564XKdmt1^.Kʼ!BH6C隧&9iJ!qQxkPd}dZ N*17L)RtcւVE?D|%'c4-9x={# D^? }X懝Գ-@@ED5 ] >+K,FT. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FT(T) =+,DOUBLE. if(t.ge.0.25)then  os4t=1./dsqrt(4.*t)  ft=2*(1.-dsqrt(4.*t-1.)*dasin(os4t)) elseif(t.gt.0.)then  root=dsqrt(1.-4.*t)  os4t=1./dsqrt(4.*t)  ft=2*(1.-root*dlog((1+root)*os4t)) 6  ft=-100000000. 6 ; >+K,F1T. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION F1T(T) =+,DOUBLE. data eps/0.00001/  if(t.ne.0.25)then  f1t=(1.-2*t*ft(t))/(4.*t-1.)6  f1t=(1.-2*t*ft(t))/eps 6 ; >+K,FH. Ƃ CMZ : 1.30/02 17/01/95 12.55.56 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FH(H) =+,DOUBLE. if(h.ge.4.)then  br1=(h/(h-1)-0.5*h)*dlog(h)  br2=dsqrt(h/4.-1.)+dsqrt(h/4.)  fh=1.+br1+h*dsqrt(1.-4./h)*dlog(br2) elseif(h.lt.4.)then  br1=(h/(h-1)-0.5*h)*dlog(h)  br2=dsqrt(4./h-1.)  fh=1.+br1-h*dsqrt(4./h-1.)*datan(br2) 6 ; >+K,F1H. Ƃ CMZ : 1.30/02 17/01/95 12.51.48 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION F1H(H) =+,DOUBLE. if(h.gt.4.)then  br1=0.5*(h-1.)*dlog(h)  br2=dsqrt(h/4.-1.)+dsqrt(h/4.)  f1h=-1.+br1+(3.-h)*dsqrt(h/(h-4.))*dlog(br2) elseif(h.lt.4.)then  br1=0.5*(h-1.)*dlog(h)  br2=dsqrt(4./h-1.)  f1h=-1.+br1+(3.-h)*dsqrt(h/(4.-h))*datan(br2) 6  f1h=-2.+3.*dlog(2.d0) 6 ; >+K,TM. Ƃ CMZ : 2.00/00 05/01/96 18.49.33 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION TM(TP) ‚ --- --formula (42) =+,DOUBLE.=+,CONST.  if(tp.gt.0.)then  t=tp6  t=0.000000016  alc2t=dlog(abs(1.-c2/t))  br1=(0.666666666-(8./9.)*s2)*dlog(t)-4./3.+(32./9.)*s2 br2=0.66666666666*(c2-s2)*(t**3/c2**3-3*t/c2+2)*alc2t  br3=0.66666666666*(c2-s2)*(t**2/c2**2)+0.333333*(c2-s2)*(t/c2) br4=0.66666666666-(16./9.)*s2-0.66666666*t-(32./9.)*s2*t  TM=br1+br2+br3+br4*ft(t) ; >+K,TA. Ƃ CMZ : 1.30/02 17/01/95 12.33.45 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION TA(T) ‚ --- --formula (79) =+,DOUBLE.=+,CONST.  br1=2./3.-(8./9.)*s2+(16./27.)*s2**2-f1t(t)  br2=(32./9.)*s2**2-(8./3.)*s2-0.5  br3=(4./3.)*t*ft(t)-(2./3.)*(1.+2.*t)*f1t(t)  TA=br1+br2*br3; >+K,TR. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION TR(T) ‚ --- --formula (104) =+,DOUBLE.=+,CONST.  if(t.gt.0.)then  dlogt=dlog(t) 6  dlogt=-100000000. 6  TR=4./9.+(2./9.)*dlogt-(2./9.)*(1.+11.*t)*ft(t) ; >+K,TTM. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION TTM(T) =+,DOUBLE.=+,CONST.  PARAMETER ---------"-------I3------I3U------SA-------qV-------mĖ-------iV-------;SV------S-------eV--------------PV-------@V-------T-------D------- |Մ-------0Մ------qDՄ------}%------- 1%------E%------|-------0------mD-------------%-------Մ-------Մ(NP=31,MPOL=2)  REAL*4M.XEN0 >(M"EH6ŁəqKҌ|،sݜmW祍n:|Owcq: RA P'F,fBD!!%ĄrA/%udUJV*Ydq`uî\:xQN)x-/v}Yx;loyeEwW;up/O3D鉞5V|QKχ~cU3I{B?\e?}}|Mݾs:/cS}Nmqk+>+K,TTA. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION TTA(T) =+,DOUBLE.=+,CONST.  PARAMETER (NP=31,MPOL=2)  REAL*4M!XEj0-\ju&F^PW ;g9!"JS.nKYبR~~um^Ϯg}zpYݷ L{5謓>HpQ+ ^7wG!j~g-m(G#jYG[? V仯쮁';Drk~swЯRl;3-GIo0>+K,TTR. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION TTR(T) =+,DOUBLE.=+,CONST.  PARAMETER (NP=31,MPOL=2)  REAL*4M,XEN0D ~lPzחB}!U%>/gfSJ3QsMk725mMujx|wέWqw@ (B P'N<ބBBJ 9!($eFgVU;UJV*Y%wlpv|f޷Pm%Z^_m>X"p pe+V?spO^’ZNuULj)|d 1US^Q+{X>+K,HM. Ƃ CMZ : 1.30/02 17/01/95 12.31.18 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION HM(H) ‚ --- --formula (E.10)=+,DOUBLE.=+,CONST.  if(h.gt.0.)then  br1=-h/(h-1.)*dlog(h)+(c2*h/(h-c2))*dlog(h/c2)-(s2*h)/(18.*c2) br2=-8*s2/3.+(h**2/9.-(4./9.)*h+4./3.)*fh(h)  br3=-(c2-s2)*(h**2/(9.*c2**2)-(4.*h)/(9.*c2)+4./3.)*fh(h/c2) HM=br1+br2+br3+0.5040041+2.07995*(c2-0.7688)! up to 17.01.95  HM=br1+br2+br3+1.1205-2.59*(0.23117-s2) ! MIV 17.01.956  HM=0. 6 ; >+K,HR. Ƃ CMZ : 1.30/02 17/01/95 17.31.25 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION HR(H) ‚ --- --formula (E.17)=+,DOUBLE.=+,CONST.  if(h.gt.0)then br1=-4./3.-h/18.+(c2*h/(h-c2))*dlog(h/c2)  br1= -h/18.+(c2*h/(h-c2))*dlog(h/c2)  br2=(h**2/9.-(4./9.)*h+4./3.)*fh(h)  br3=(h/(1-h))*dlog(h) HR=br1+br2+br3+0.0256256-0.00698*(c2-0.7688)  HR=br1+br2+br3+1.3590+0.51*(0.23117-s2) 6  HR=0. 6 ; >+K,HA. Ƃ CMZ : 1.30/02 17/01/95 12.43.27 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION HA(H) ‚ --- --formula (E.13)=+,DOUBLE.=+,CONST.  if(h.gt.0.)then  br1=(c2*h/(h-c2))*dlog(h/c2)  br2=(h**2*2./9.-(2./3.)*h+4./3.)*fh(h) br3=-(8./9.)*(h/(h-1))*dlog(h) br4=-(h**2/9.-(4./9.)*h+4./3.)*f1h(h)-h/18.  HA=br1+br2+br3+br4+0.7750503+1.40732*(c2-0.7688)  HA=br1+br2+br3+br4+0.7751+1.07*(0.23117-s2) ! MIV 17.01.956  HA=0. 6 ; >+K,CM. Ƃ CMZ : 1.30/02 17/01/95 14.49.49 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION CM(T)  --- -- =+,DOUBLE.=+,CONST.  CM=-1.3500+4.13*(0.23117-s2) ! MIV 17.01.95 Ă *** * CM=-1.35011+4.1352*(c2-0.7688)Ȃ *** *1-1.3333333333*s2**2*0.7248 ! gamma-ww-gamma 09.11.93 van  *** *1-1.3333333333*s2**2*0.8626 ! gamma-ww-gamma ; >+K,CA. Ƃ CMZ : 1.30/02 17/01/95 15.50.51 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION CA(T)  --- -- =+,DOUBLE.=+,CONST. CA=-2.26185+1.3082*(c2-0.7688) CA=-2.2619-2.63*(0.23117-s2) ; >+K,CR. Ƃ CMZ : 1.30/02 17/01/95 17.49.23 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION CR(T)  --- -- =+,DOUBLE.=+,CONST. CR=-3.50415-4.3408*(c2-0.7688) CR=-3.5041 -5.7200*(0.23117-s2) Ȃ *** *1-1.3333333333*s2*c2*0.7248 ! gamma-ww-gamma 09.11.93 van Ƃ *** *1-1.3333333333*s2*c2*0.8626 ! gamma-ww-gamma; >+K,HHM. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION HHM(H) =+,DOUBLE.=+,CONST.  PARAMETER (NP=24,MPOL=2)  REAL*4 AMH(NP),HMP(NP),AMHIGG,DIVDIF  DATA AMH/0.01,0.1,1.,10.,50.,100.,150.,200.,250.,300., 1 350.,400.,450.,500.,550.,600.,650.,700.,750.,800.,  2 850.,900.,950.,1000./ DATA HMP/1.121,1.120,1.104,0.980,0.661,  1 0.433,0.274,0.150,0.049,-.038,  2 -.113,-.180,-.239,-.294,-.343,  3 -.389,-.431,-.471,-.508,-.542,  4 -.575,-.606,-.635,-.663/  AMHIGG=DSQRT(H)*AMZ  HHM=DIVDIF(HMP,AMH,NP,AMHIGG,MPOL); >+K,HHA. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION HHA(H) =+,DOUBLE.=+,CONST.  PARAMETER (NP=24,MPOL=2)  REAL*4 AMH(NP),HAP(NP),AMHIGG,DIVDIF  DATA AMH/0.01,0.1,1.,10.,50.,100.,150.,200.,250.,300., 1 350.,400.,450.,500.,550.,600.,650.,700.,750.,800.,  2 850.,900.,950.,1000./ DATA HAP/-8.717,-5.654,-2.653,-0.133, 0.645,  1 0.652, 0.587, 0.517, 0.451, 0.391,  2 0.337, 0.287, 0.242, 0.201, 0.162,  3 0.126, 0.093, 0.062, 0.033, 0.005,  4 -0.021,-0.046,-0.069,-0.092/  AMHIGG=DSQRT(H)*AMZ  HHA=DIVDIF(HAP,AMH,NP,AMHIGG,MPOL); >+K,HHR. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION HHR(H) =+,DOUBLE.=+,CONST.  PARAMETER (NP=24,MPOL=2)  REAL*4 AMH(NP),HRP(NP),AMHIGG,DIVDIF  DATA AMH/0.01,0.1,1.,10.,50.,100.,150.,200.,250.,300., 1 350.,400.,450.,500.,550.,600.,650.,700.,750.,800.,  2 850.,900.,950.,1000./ DATA HRP/ 1.358, 1.354, 1.315, 1.016, 0.359,  1 -0.022,-0.258,-0.431,-0.567,-0.680,  2 -0.777,-0.862,-0.937,-1.005,-1.067,  3 -1.124,-1.176,-1.225,-1.271,-1.310,  4 -1.353,-1.392,-1.428,-1.462/  AMHIGG=DSQRT(H)*AMZ  HHR=DIVDIF(HRP,AMH,NP,AMHIGG,MPOL); >+K,ALSRUN. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION ALSRUN(Q2,ALS)  running alsbar according (27) of Chetyrkin and KwiMTAo0u4yk,.m$6 qUĿN.g)_}~yn}0ƄER,K(4!rM|y(5ٲ޴ྟ]cG+ըJ!~\Z-K)(97Ve0ٖj}#[UnZy͋sx8/W",Fk`BS3dhG8m/uGuS2c\/td "g#PFK3Q2'@c>30B)ĈKYH>I" StA_ `,C;\B6@ё`}ǛaC"\L3|!p+030'5>!5@՘~X;o)Z€XB+}Бuw8 =>Kbbk!%)$9COTPYxPDfB:}}LɡN͕!vxyavԂb;yb 55Hs$ `G==xEdH^`# ޡl1F}5\`]C$tw,^mtFm\: kAuӢH4`ap}V꽄Co_yo1,G>+K,ALSRU2. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION ALSRU2(Q2,ALAQCD)  running alsbar according (27) of Chetyrkin andM, }PO0^ Ļu]GCaĸ om_7#.}yzۮWCtfkn^6?"l&2A, Zr4J& !^R 6FT[бQf^ 5$/SĿѨWJDap5̫x?/| AA?~Û;f+pFFeD ܖLbZEۭvƁ{\yʝCi-]~w f%z\]؟=t*A>+K,AMU. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION AMU(ALS) running AMU=MB(MZ2)/MB(phys)  according (28-29) of ChetMu]K0K7?.nMfMC$!NPp `xS/מ&Eb(|v7p]/|ﾷp~咃N6Iȃv$;-\ꅬ;Am}<N wifƕzZk \ǔں$ר &0 +Rr7Y(iJsZ ok|lV, Pj:?ɸH9͆[5X0P+K,VAL. Ƃ CMZ : 2.00/02 02/09/98 22.37.46 by A.Rozanov Ƃ CMZ : 1.30/02 17/01/95 15.24.44 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VAL(T,H,ALSBAR) =+,DOUBLE. VAL=T+TA(T)+HA(H)-2.26+DVA(T,ALSBAR) TP=TPRIME(T,H) VAL=TP+TA(TP)+HA(H)+CA(T)+DVA(T,ALSBAR)+D1VA(T) ! bug MIV 16.11.94 VAL=T+TA(T )+HA(H)+CA(T)+DVA(T,H,ALSBAR)+DTTVA(T)  1 +DSUSYLRVA(T,H,ALSBAR); >+K,VRL. Ƃ CMZ : 2.00/02 02/09/98 22.37.46 by A.Rozanov Ƃ CMZ : 1.30/02 17/01/95 15.25.37 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VRL(T,H,ALSBAR) =+,DOUBLE. VRL=T+TR(T)+HR(H)-3.50+DVR(T,H,ALSBAR) TP=TPRIME(T,H) VRL=TP+TR(TP)+HR(H)+CR(T)+DVR(T,ALSBAR)+D1VR(T) !bug MIV 16.11.9  VRL=T+TR(T )+HR(H)+CR(T)+DVR(T,H,ALSBAR)+DTTVR(T)  1 +DSUSYLRVR(T,H,ALSBAR) +DDGVR(T,H,ALSBAR) ; >+K,VM. Ƃ CMZ : 2.00/02 02/09/98 22.37.46 by A.Rozanov Ƃ CMZ : 1.30/02 17/01/95 15.23.32 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VM(T,H,ALSBAR) =+,DOUBLE. VM=T+TM(T)+HM(H)-1.36+DVM(T,ALSBAR) TP=TPRIME(T,H) VM=TP+TM(TP)+HM(H)+CM(T)+DVM(T,ALSBAR)+D1VM(T) ! bug MIV 16.11.94  VM=T+TM(T )+HM(H)+CM(T)+DVM(T,H,ALSBAR)+DTTVM(T)  1 +DSUSYLRVM(T,H,ALSBAR) +DDGVM(T,H,ALSBAR) ; >+K,VM_NOB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VM_NOB(T,H,ALSBAR) no Barbieri 2 loop corrections=+,DOUBLE. VM=T+TM(T)+HM(H)-1.36+DVM(T,ALSBAR)  TP=T  VM_NOB=TP+TM(TP)+HM(H)+CM(T)+DVM(T,ALSBAR)+D1VM(T) ! bug 16.11.94  VM_NOB=TP+TM(T )+HM(H)+CM(T)+DVM(T,H,ALSBAR)+D1VM(T) ; >+K,VNU. Ƃ CMZ : 1.30/02 17/01/95 16.04.31 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VNU(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  *** * VNU=VAL(T,H,ALSBAR)+1.0981551-4.0646*(c2-0.7688)  VNU=VAL(T,H,ALSBAR)-CA(T)-1.1638-4.88*(0.23117-s2) ! MIV 17.01.95; >+K,VAQ. Ƃ CMZ : 2.00/02 04/07/98 21.29.46 by A.Rozanov Ƃ CMZ : ------- %--------------}5g-------yg-------uIg-------q-------m ------i5------e-------a-------] ------Y-------U5------Q-------M ------I5a-------Ea-------AIa-------=--------------5PD------1--------A-------)!-------%%G-------!$------- -------%----1.30/06 19/01/95 20.35.38 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VAQ(T,H,ALSBAR,IFLAV) =+,DOUBLE. IF(IFLAV.EQ.1.OR.IFLAV.EQ.3)THEN  VAQ=VAD(T,H,ALSBAR)  ELSEIF(IFLAV.EQ.2.OR.IFLAV.EQ.4.OR.IFLAV.EQ.6)THEN VAQ=VAU(T,H,ALSBAR)  ELSEIF(IFLAV.EQ.5)THEN VAQ=VAB(T,H,ALSBAR) ? ; >+K,VRQ. Ƃ CMZ : 2.00/02 04/07/98 21.30.12 by A.Rozanov Ƃ CMZ : 1.30/06 19/01/95 20.36.59 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VRQ(T,H,ALSBAR,IFLAV) =+,DOUBLE. IF(IFLAV.EQ.1.OR.IFLAV.EQ.3)THEN  VRQ=VRD(T,H,ALSBAR)  ELSEIF(IFLAV.EQ.2.OR.IFLAV.EQ.4.OR.IFLAV.EQ.6)THEN VRQ=VRU(T,H,ALSBAR)  ELSEIF(IFLAV.EQ.5)THEN VRQ=VRB(T,H,ALSBAR) ? ; >+K,VAU. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VAU(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  DATA FAL/0.00186/,FAU/-0.00165/,FAD/0.00137/  DATA FVL/0.00197/,FVU/-0.00169/,FVD/0.00138/  VAU=VAL(T,H,ALSBAR)+(128*PI*S2*DSQRT(S2)*C2*DSQRT(C2)*(FAU+FAL))/  1 (3*ALBAR) ; >+K,VAD. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VAD(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  DATA FAL/0.00186/,FAU/-0.00165/,FAD/0.00137/  DATA FVL/0.00197/,FVU/-0.00169/,FVD/0.00138/  VAD=VAL(T,H,ALSBAR)+(128*PI*S2*DSQRT(S2)*C2*DSQRT(C2)*(-FAD+FAL))/ 1 (3*ALBAR) ; >+K,VRU. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VRU(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  DATA FAL/0.00186/,FAU/-0.00165/,FAD/0.00137/  DATA FVL/0.00197/,FVU/-0.00169/,FVD/0.00138/  VRU=VRL(T,H,ALSBAR)+(16*PI*DSQRT(S2)*DSQRT(C2)*(C2-S2))*  1 (FVL-(1.-4*S2)*FAL+1.5*(-(1.-(8./3.)*S2)*FAU+FVU))/  2 (3*ALBAR) ; >+K,VRD. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VRD(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  DATA FAL/0.00186/,FAU/-0.00165/,FAD/0.00137/  DATA FVL/0.00197/,FVU/-0.00169/,FVD/0.00138/  VRD=VRL(T,H,ALSBAR)+(16*PI*DSQRT(S2)*DSQRT(C2)*(C2-S2))*  1 (FVL-(1.-4*S2)*FAL+ 3.*( (1.-(4./3.)*S2)*FAD-FVD))/  1 (3*ALBAR) ; >+K,DVM4. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVM4(T,ALSBAR)  from draft TH preprint 11.05.94 =+,DOUBLE.=+,CONST. =+,FOURTH. IF(AML4.GT.0.000001.OR.AMQ4.GT.0.000001)THEN  DVM4=DVML4(T,ALSBAR)+DVMQ4(T,ALSBAR)?  DVM4=0. ? ; >+K,DVML4.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVML4(T,ALSBAR)  from draft TH preprint 11.05.94 =+,DOUBLE.=+,CONST. =+,FOURTH. DATA NC/1/,QU/0.0000000/,QD/ 1.0000000/  IF(AML4.GT.0.000001)THEN  P=(AML4/AMZ)**2  D=(1-P)*FP(P)-(1-P/C2)+2*S2*((1-P/C2)*FP(P/C2)-(1+2*P)*FP(P)) CORRECT BACK TO OLD FORMULA 12.05.94 D=(1-P)*FP(P)-(1-P/C2)*FP(P/C2)  1 +2*S2*((1-P/C2)*FP(P/C2)-(1+2*P)*FP(P))  2 +4*S2**2*(QU**2+QD**2)*((1+2*P)*FP(P)-0.3333333333)  DVML4=(4./9.)*NC*D*NL4 ?  DVML4=0.? ; >+K,DVMQ4.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVMQ4(T,ALSBAR)  from draft TH preprint 11.05.94 =+,DOUBLE.=+,CONST. =+,FOURTH. DATA NC/3/,QU/0.6666666/,QD/-0.3333333/  IF(AMQ4.GT.0.000001)THEN  P=(AMQ4/AMZ)**2  D=(1-P)*FP(P)-(1-P/C2)+2*S2*((1-P/C2)*FP(P/C2)-(1+2*P)*FP(P)) CORRECT BACK TO OLD FORMULA 12.05.94 D=(1-P)*FP(P)-(1-P/C2)*FP(P/C2)  1 +2*S2*((1-P/C2)*FP(P/C2)-(1+2*P)*FP(P))  2 +4*S2**2*(QU**2+QD**2)*((1+2*P)*FP(P)-0.3333333333)  DVMQ4=(4./9.)*NC*D*NQ4 ?  DVMQ4=0.? ; >+K,DVR4. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVR4(T,ALSBAR)  from draft TH preprint 11.05.94 =+,DOUBLE.=+,CONST. =+,FOURTH. IF(AML4.GT.0.000001.OR.AMQ4.GT.0.000001)THEN  DVR4=DVRL4(T,ALSBAR)+DVRQ4(T,ALSBAR)?  DVR4=0. ? ; >+K,DVRL4.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVRL4(T,ALSBAR)  from draft TH preprint 11.05.94 =+,DOUBLE.=+,CONST. =+,FOURTH. DATA NC/1/,QU/0.0000000/,QD/ 1.0000000/  IF(AML4.GT.0.000001)THEN  P=(AML4/AMZ)**2  D=-3*P*FP(P)+4*S2*C2*(QU**2+QD**2)*((1+2*P)*FP(P)-0.333333333)  DVRL4=(4./9.)*NC*D*NL4 ?  DVRL4=0.? ; >+K,DVRQ4.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVRQ4(T,ALSBAR)  from draft TH preprint 11.05.94 =+,DOUBLE.=+,CONST. =+,FOURTH. DATA NC/3/,QU/0.6666666/,QD/-0.3333333/  IF(AMQ4.GT.0.000001)THEN  P=(AMQ4/AMZ)**2  D=-3*P*FP(P)+4*S2*C2*(QU**2+QD**2)*((1+2*P)*FP(P)-0.333333333)  DVRQ4=(4./9.)*NC*D*NQ4 ?  DVRQ4=0.? ; >+K,DVA4. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVA4(T,ALSBAR)  from draft TH preprint 11.05.94 =+,DOUBLE.=+,CONST. =+,FOURTH. IF(AML4.GT.0.000001.OR.AMQ4.GT.0.000001)THEN  DVA4=DVAL4(T,ALSBAR)+DVAQ4(T,ALSBAR)?  DVA4=0. ? ; >+K,DVAL4.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVAL4(T,ALSBAR)  from draft TH preprint 11.05.94 =+,DOUBLE.=+,CONST. =+,FOURTH. DATA NC/1/,QU/0.0000000/,QD/ 1.0000000/  IF(AML4.GT.0.000001)THEN  P=(AML4/AMZ)**2  D=(1-P)+(6*P**2-3*P)*FP(P)  1 +(4*S2**2*(QU**2+QD**2)-2*S2)*((2*P+1)-12*P**2*FP(P))  PPRIME=4*P-1.  IF(DABS(PPRIME).LE.1.D-6)PPRIME=1.D-6  DVAL4=(-4./9.)*NC*D*NL4/PPRIME ?  DVAL4=0.? ; >+K,DVAQ4.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVAQ4(T,ALSBAR)  from draft TH preprint 11.05.94 =+,DOUBLE.=+,CONST. =+,FOURTH. DATA NC/3/,QU/0.6666666/,QD/-0.3333333/  IF(AMQ4.GT.0.000001)THEN  P=(AMQ4/AMZ)**2  D=(1-P)+(6*P**2-3*P)*FP(P)  1 +(4*S2**2*(QU**2+QD**2)-2*S2)*((2*P+1)-12*P**2*FP(P))  PPRIME=4*P-1.  IF(DABS(PPRIME).LE.1.D-6)PPRIME=1.D-6  DVAQ4=(-4./9.)*NC*D*NQ4/PPRIME ?  DVAQ4=0.? ; >+K,DVA5. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVA5(AMB5,AMT5)  from VAN E-MAIL 12.05.94 for new generation with MT5>>MZ and MB5>>MZ  correction by L.B. fax 21.06.94 =+,DOUBLE.=+,CONST.  X=(AMT5/AMB5)**2-1.  IF(DABS(X).LT.0.00000001)X=0.00000001  DVAQ5=(AMB5/AMZ)**2*(2+X-2*(1+1/X)*DLOG(1.+X)) DVA5=(4./3.)*DVAQ5; >+K,DVR5. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVR5(AMB5,AMT5)  from VAN E-MAIL 12.05.94 for new generation with MT5>>MZ and MB5>>MZ  correction by L.B. fax 21.06.94 =+,DOUBLE.=+,CONST.  IF(DABS(X).LT.0.00000001)X=0.00000001  * DVRQ5=0.75*DVA5(AMB5,AMT5)-2./3.+(2./9)*DLOG(1.+X) * DVR5=(4./3.)*DVRQ5 DVR5 = DVA5(AMB5,AMT5) -8./9. ; >+K,DVM5. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVM5(AMB5,AMT5)  from VAN E-MAIL 12.05.94 for new generation with MT5>>MZ and MB5>>MZ  correction by L.B. fax 21.06.94 =+,DOUBLE.=+,CONST.  X=(AMT5/AMB5)**2-1.  IF(DABS(X).LT.0.00000001)X=0.00000001  DVMQ5=0.75*DVA5(AMB5,AMT5)-2./3.+(4./9)*DLOG(1.+X) 1+(4./3.)*(S2-C2)*(0.25-3/X-3/X**2+(3/X**3)*(1+X/2)*(1+X-X**2/3) 2*DLOG(1.+X))  DVM5=(4./3.)*DVMQ5 DVM5=DVA5(AMB5,AMT5)-8./9.+(16./9.)*(S2-C2)*  1(0.333333-(2/X**2)*(1+X)+(3./X**3)*(X+2./3.-X**3/6.)*DLOG(1+X)) ; >+K,DVM. Ƃ CMZ : 2.00/02 02/09/98 22.51.20 by A.Rozanov Ƃ CMZ : 1.30/04 18/01/95 16.34.21 by A.Rozanov Ƃ CMZ : 1.30/03 18/01/95 14.45.22 by A.Rozanov Ƃ CMZ : 1.30/02 17/01/95 23.50.21 by A.Rozanov Ƃ CMZ : 1.30/01 M@TnLRԂԇv=޵Ђ,:)wnKmH\;<iЖf̙sf#j.^@԰a pta'yalw >w9WyX:*+f,8yV<߬tZo5oAہ8͒Ý5؏& pT$ϓvSbxInOؿVm(NBZun1M&~U6yQ;O q/b6ˎIÈ|bt~`公UM'2(b aozzQa)xx 3Z.UɈ5uS01,ǙԼ0$wYV"5^Y:J(OtNxEN?Ӓ;ښ1Obal 9ެ *Kq/* 1!Qj"dH2zZu`B[C8O>^|b#Ϯ[%a|&U[ƦUZ2Qu\uwr{p]{b=ûGߣ_׸ruMFg?'}V*30QZ F/Ĵ@:5^%PDq/dj'&+P9% +HҟC XTuPua6y|@9сiօMoDb bٮvycY$Y I%v6'<ևʊ#P&zzV)D}!ý]'W on߇ ޽2`K>5Zɰmi0u!: xA(t>+K,DVR. Ƃ CMZ : 2.00/02 02/09/98 22.51.20 by A.Rozanov Ƃ CMZ : 1.30/04 18/01/95 16.36.18 by A.Rozanov Ƃ CMZ : 1.30/03 18/01/95 14.50.18 by A.Rozanov Ƃ CMZ : 1.30/02 17/01/95 23.51.21 by A.Rozanov Ƃ CMZ : 1.30/01 MlTMo@M)?br ^چ&P`Vq8PNRVO4@찢N~T`ER0up~`/D-I'wELS "P(D?iy HhuZg' J&TϚe'ZޮwNlO\p"V7ܦ%----------------- !------- ------- a-------a-------]G-------Y-------U-------Q-------MG-------ц-------------- -------I-------"-------E-------PV ------#-------IG-------=SG-------T-------S------- S-------E-------&-------A-------#-------=[md9v/ϡmW4дMd FI,œIKq}T?at q<0| /> oBHx I lj135b5e\ѧx8PFj"߰/icdP%\<+,NQ}qp4K\;+A0N$1H}ɪo>QeB(y@dBZ˳e,}%ׄ:aY f}P`gƱk&8f!Q^ +K,DVA. Ƃ CMZ : 2.00/02 02/09/98 22.51.20 by A.Rozanov Ƃ CMZ : 1.30/04 18/01/95 16.35.27 by A.Rozanov Ƃ CMZ : 1.30/03 18/01/95 14.46.55 by A.Rozanov Ƃ CMZ : 1.30/02 17/01/95 23.50.46 by A.Rozanov Ƃ CMZ : 1.30/01 MrUoH.M7{׻kÅҠ$&Xv Nu[!wYY7`;},ƭzhUPk_B;htx^fc=Fy0E񦉜78۽ާF{uSA3t;{ܥV9ݩ7zݡOu6ח!EK]|4sZ6GIj34;4[2Hg"F|v$qr+K,D1VM. Ƃ CMZ : 1.30/02 17/01/95 16.35.46 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.57.55 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION D1VM(T) =+,DOUBLE.=+,CONST.  D1VM=-16.*PI*s2**2*(DWAA(C2)+DTAA(T))/3. ; >+K,D1VA. Ƃ CMZ : 1.30/02 17/01/95 15.37.56 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 17.00.40 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION D1VA(T) =+,DOUBLE.=+,CONST.  D1VA=0.D0 ; >+K,D1VR. Ƃ CMZ : 1.30/02 17/01/95 16.36.44 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 17.01.39 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION D1VR(T) =+,DOUBLE.=+,CONST.  D1VR=-16.*PI*s2*c2*(DWAA(c2)+DTAA(T))/3. ; >+K,V1. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION V1(R) =+,DOUBLE. DATA DZ2/1.644934067/  DATA DZ3/1.2020569/  V1=R*(4*DZ3-(5./6.))+R**2*(328./81.)+  1R**3*(1796./(25.*27.)); >+K,V1mcad. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION V1mcad(R)  --- --from V.A.Novikov MATHCAD 26.07.93 =+,DOUBLE. R1=DMAX1(1.D-6,1.D0-R) Y=DSQRT(R1)  V1mcad=-6.57977*(3.-5.*Y**2)*DLOG(2.*Y)+1.0829 1 +25.1327*Y+8.4465*Y**2-66.3929*Y**3+22.6086*Y**4; >+K,V11mcd. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION V11mcd(R)  --- --from V.A.Novikov MATHCAD 26.07.93 =+,DOUBLE. R1=DMAX1(1.D-6,1.D0-R) Y=DSQRT(R1)  V11mcd=9.8696/Y**2-12.56637/Y-24.8958-32.89868*DLOG(2*Y)  + +99.58845*Y-45.2172*Y**2 ; >+K,V11. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION V11(R) =+,DOUBLE. DATA DZ2/1.644934067/  DATA DZ3/1.2020569/  V11=(4*DZ3-(5./6.))+2*R*(328./81.)+3*R**2*(1796./(25.*27.)) ; >+K,A1. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION A1(R) =+,DOUBLE. DATA DZ2/1.644934067/  DATA DZ3/1.2020569/ Ȃ --- --A1prep=(-6*DZ3-3*DZ2+21./4.)+R*(4*DZ3-5./6.)+R**2*(689./405.)+ A1=(-6*DZ3-3*DZ2+21./4.)+R*(4*DZ3-49./18.)+R**2*(689./405.)+  1 R**3*(3382./(7.*25.*27.)) ; >+K,A1mcad. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION A1mcad(R)  --- --from V.A.Novikov MATHCAD 26.07.93 =+,DOUBLE. R1=DMAX1(1.D-6,1.D0-R) Y=DSQRT(R1)  A1mcad=13.1595*Y**2*DLOG(2.*Y)-0.6043-9.7824*Y**2-6.5179*Y**3  1 +0.8861*Y**4; >+K,A11. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION A11(R) =+,DOUBLE. DATA DZ2/1.644934067/  DATA DZ3/1.2020569/ ł --- --A11prep=(4*DZ3-5./6.)+2*R*(689./405.)+ A11=(4*DZ3-49./18.)+2*R*(689./405.)+  1 3*R**2*(3382./(7.*25.*27.)); >+K,A11mcd. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION A11mcd(R)  --- --from V.A.Novikov MATHCAD 26.07.93 =+,DOUBLE. R1=DMAX1(1.D-6,1.D0-R) Y=DSQRT(R1)  A11mcd=-13.1595*DLOG(2*Y)+3.2027+9.7769*Y-1.7722*Y**2 ; >+K,F1. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION F1(X)  --- --formula (40) from TH6696 =+,DOUBLE. DATA DZ2/1.644934067/  DATA DZ3/1.2020569/  --- --F1prep=(-1.5*DZ3-0.5*DZ2+23./16.) + X*(DZ3-(1./9.)*DZ2+23./16.)+  F1=(-1.5*DZ3-0.5*DZ2+23./16.) + X*(DZ3-(1./9.)*DZ2-25./72.)+  1 X**2*((1./8.)*DZ2+25./(3.*64.))+X**3*(DZ2/30.+5./72.) ; >+K,F1mcad. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION F1mcad(X)  --- --formula from MATCAD ov V.Novikov 27.07.93 =+,DOUBLE. DL1X=DLOG(1.D0-X)  F1mcad = -1.1881 - 2.0979*X  1+ 4.1157*X**2 - 2.2082*X**3  2+ 3.6968*X**4 - 2.1815*X**5  3+ (1.-X)**2*DL1X*((3./8.)*DL1X-1.64493-9./8.); >+K,DDVM. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DDVM(T,ALSBAR)  --- -- short formula (41) from TH-6696 =+,DOUBLE.=+,CONST. Ȃ --- --DVM=(ALSBAR/PI)*(-2.86*T+0.46*DLOG(T)-1.92-0.68/T-0.21/T**2)  DDVM=(ALSBAR/PI)*(-2.8599*T+0.4612*DLOG(T) 1-1.9174-0.6765/T-0.2083/T**2) ; >+K,DDVA. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DDVA(T,ALSBAR)  --- -- short formula (42) from TH-6696 =+,DOUBLE.=+,CONST.  DDVA=(ALSBAR/PI)*(-2.8599*T+2.2432 1 -0.1911/T-0.0461/T**2); >+K,DDVR. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DDVR(T,ALSBAR)  --- -- short formula (43) from TH-6696 =+,DOUBLE.=+,CONST.  DDVR=(ALSBAR/PI)*(-2.8599*T+0.2222*DLOG(T) 1-1.5129-0.4207/T-0.0775/T**2) ; >+K,G.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION G(T,ALSBAR) =+,DOUBLE.=+,CONST.  KUHN CORRECTION 1.4 => 1.4+ (44/675.+... D.B.+M.I.V. 04.07.94  BRA=1.40923+(44./675.+(2./135.)*DLOG(T))/T G=1.+ALSBAR/PI+BRA*(ALSBAR/PI)**2-12.76706*(ALSBAR/PI)**3 ; >+K,PHI. Ƃ CMZ : 1.30/05 18/01/95 19.03.32 by A.Rozanov Ƃ CMZ : 1.30/02 17/01/95 23.36.30 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- AuthM4TKW@An217/=9@@MdGh9Eb.ܵw&Pb2ssoIRxSyYWuQaleEvX҅ \3wJF=- s3 [ 8 aGue]m_̂X%iNhhf"Ǚr0 ;TsqKJu)&iRp^$ "6ZlŹpFxi/nm^|k⦆@ҘF,!W"[׹pǸ+(gnV &>bsVJy"Cao&勒b.-Wc:Gh.PyST#\)ֆƎв]3frOAlˣwኘ9yP,'.+_)en#YH}OWir Q ƃ$9ȃ?n/YEUT Wjt8Bq(C8$N>߭~@/IӸ7~rŴGHMԸ4N,[RyDBOnto=DبRC ȢYZAGꣵ-_PDl"%3TEױMAyiҿQoD2@p<c覝x:PhZe[6ՆB"@#Ku*iQBM:9_=bm+zO}E?"^xO? >+K,PHItest. Ƃ ------- -------9-------5 rS------- rS------!-------S-------1-------!------tS------!------y !------u!-------q#-------m5sA------i5sA------e7SVW------a5sA------TS------Y0PG------U0PG------QL------MT------I------E-------A۹pشi>E.j:A1=le3|*2U=-?`y:Vp-FZ-@6 sa *V޼?H\vc&)-}/Y ټPscCP$HIh7cDOK|R8YWέSeuCvZwu6 ~_اY_>+K,PHIA. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION PHIA(T,H,ALSBAR)Ƃ --- --phi(t) for amplitude, like AFBBB, sin2bb etc  M}Rn@ENf E8vxS(0>Ƈ&?Xv vޛ7K)Jʪ\d }eմXpzΰpjt3Z $2kLuL|8r#0?)w R ׷Iܗk@^GE#N ,teJ51~X6qznk?'-ȺqhZ$Mf)̪r"s䳲ʁpW/-O$3{FY,u\h8EN/t7˺x>>׏f2e˯P 'Y j-=8MB݀e%7;OHƑ`|kw/T勬z9 yQo9Vz3Ԕך'>H7ble>+K,AI. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION AI(T) =+,DOUBLE. IF(T.GE.1)THEN AI=-9.25-3*DLOG(T)+0.26/T+0.04/T**2 ?  AI=0. ? ; >+K,GDB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GDB(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  SBRA=1.-4*S2/3.  BRA=1.+SBRA**2 GDB=3*GO*G(T,ALSBAR)*  1BRA*(1.+ALBAR/(12.*PI)-ALBAR*ALSBAR/(36*PI**2)) ; >+K,GUB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GUB(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  SBRA=1.-8*S2/3.  BRA=1.+SBRA**2 GUB=3*GO*G(T,ALSBAR)*  1BRA*(1.+ALBAR/(3.*PI)-ALBAR*ALSBAR/(9*PI**2)) ; >+K,GSB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GSB(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  GSB=GDB(T,H,ALSBAR) ; >+K,GCB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GCB(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  GCB=GUB(T,H,ALSBAR) ; >+K,GTB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GTB(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  GTB=0.D0 ; >+K,GT. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GT(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  GT=0.D0 ; >+K,GG. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GG(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  GG=0.D0 ; >+K,GGB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GGB(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  GGB=0.D0 ; >+K,DGAB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DGAB(T,ALSBAR) =+,DOUBLE.=+,CONST. =+,CAFBBB. D.Y.B.+M.I.V. redeMO]QJ@ SMv7I %[``"4mZ5%o,3[(%P|{^C"}/{[]>`<ˢnjfMD iEI`x ~Zg ?:8@!]Oniix躑:|)P7U^a e^}Zif31nx"nK}k`4 !fRll54NP1qd +t@"A8<y(Ѧ~yG*<\G\h1 ~ ё}w?LSB>+K,DGVB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DGVB(T,ALSBAR) =+,DOUBLE.=+,CONST. =+,CAFBBB. BRA=1+8.7*(ALSBAR/PI)+45.3*(ALSBAR/PI)**2  BRA=1.+8.7*(ALSBAR/PI)+45.15*(ALSBAR/PI)**2  AMU22=AMU2 AMU22=AMU(ALSBAR)**2 ! running b mass WRITE(6,*)'ALSBAR,AMU22',ALSBAR,AMU22  f032=12*(amb0/amz)**2  DGVB=f032*AMU22*(ALSBAR/PI)*BRA ; >+K,GD. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GD(T,H,ALSBAR) =+,DOUBLE.=+,CONST. =+,CAFBBB.=+,MASSES. DATA AIQ3/-0.5/,QQ/-0.33333333333333/  --- --use Kuhn formulas checked by L.B. 29.09.94 --- --from a piece of paper given by D,Bardine  IFLAV=1  GD=GQQ(T,H,ALSBAR,AIQ3,QQ,AMDOWN,IFLAV) ; >+K,GU. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GU(T,H,ALSBAR) =+,DOUBLE.=+,CONST. =+,CAFBBB.=+,MASSES. DATA AIQ3/+0.5/,QQ/0.66666666666666/  --- --use Kuhn formulas checked by L.B. 29.09.94 --- --from a piece of paper given by D,Bardine  IFLAV=2  GU=GQQ(T,H,ALSBAR,AIQ3,QQ,AMUP,IFLAV) ; >+K,GS. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GS(T,H,ALSBAR) =+,DOUBLE.=+,CONST. =+,CAFBBB.=+,MASSES. DATA AIQ3/-0.5/,QQ/-0.33333333333333/  --- --use Kuhn formulas checked by L.B. 29.09.94 --- --from a piece of paper given by D,Bardine  AMSRUN=0.  IFLAV=3  GS=GQQ(T,H,ALSBAR,AIQ3,QQ,AMSRUN,IFLAV) ; >+K,GC. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GC(T,H,ALSBAR) =+,DOUBLE.=+,CONST. =+,CAFBBB.=+,MASSES. DATA AIQ3/+0.5/,QQ/0.66666666666666/  --- --use Kuhn formulas checked by L.B. 29.09.94 --- --from a piece of paper given by D,Bardine  AMCRUN=AMCHRM  IF(ALSBAR.GT.0.001)AMCRUN=0.52*AMCHRM  IFLAV=4  GC=GQQ(T,H,ALSBAR,AIQ3,QQ,AMCRUN,IFLAV) ; >+K,GB. Ƃ CMZ : 2.00/01 08/03/95 11.51.24 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GB(T,H,ALSBAR) =+M EQMS@M{G=- !ĵJY3{AʀU\ՋLku~Zybՠ?9R]RYȷD, z΢N[u](n)Y>&=9;tko"VHj-N*ǽ~Rij1s*^WEw$Őwװv*/DoC8> |:ze oaOcF0=6P9pIpFqwdЉjn~-+#~+8%5 rp=W 6L0bk sIg-bJRw3<dR\F(d}.(Z >+K,GQQ. Ƃ CMZ : 2.00/03 08/09/98 20.16.44 by A.Rozanov Ƃ CMZ : 2.00/02 02/09/98 23.09.17 by A.Rozanov Ƃ CMZ : 1.30/06 18/01/95 23.46.51 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 MTn@ԏ8[;dUέpI#85 gv5A `̞3;{fƊ|*+ Ted`y͡‰$l:||[2 z \6Fzm7 %jU3%LnV+֎K!!!X.fALk4〟-Afg=Ͽ :sty:+0$Lγ|[zq9$l;tK beebr "@/-UΟ XۤYk%UVB3jꅶSP`'d?W 8lKSݬ- ·UW {jXh&Ɯ15{eC_l: eǪpَ:?׵aQ3q oPŶVfWoSETӪ:)̰Ju%H2eGKeY&=|~a]w|?,.=0Mأ4Z;s1ބvviv_O{wib8 KG.gcH3POKљҩ ـr ZK=@ž#(Otܥł5;lf6ŷ*BqdzjꊓrXXDp46jc$?_ɄՎ紈!YHS >+K,FF2. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FF2(X) =+,DOUBLE. FF----10 T-------T-------)------%4A------uu-------%$M------!------!CA------!E------ P&D------ -------P------Q!D-------------S-------G-------55 ------|G-------55 ------95 ------95 ------}G------- C------<5  --------------------YE ------YE------2=-37./12.+DLOG(X)+(7./81.)*X+0.0132*X**2 ; >+K,FF3. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FF3(X) =+,DOUBLE. DATA DZ2/1.644934067/  DATA DZ3/1.2020569/  FF3=-5651./216.+8./3.+23*PI**2/36.+DZ3 1+67.*DLOG(X)/18.+23*(DLOG(X))**2/12. ; >+K,GBB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GBB(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  BRA1=1.  BRA2=(1.-4.*S2/3.)**2  G2=3*GO*(1+ALBAR/(12*PI)-ALBAR*ALSBAR/(36*PI**2))  GBB=G2*(G(T,ALSBAR)+  1G(T,ALSBAR)*BRA2) ; >+K,GH. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GH(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  --- --G1=GO*G(T,ALSBAR)*(20.2288+0.05268*VAL(T,H,ALSBAR) --- -1+0.02487*VRL(T,H,ALSBAR))  --- --G2=GO*(-(ALBAR/PI)*PHI(T)+(ALSBAR/PI)**2*AI(T)-0.05*AMU2)  --- - GH=G1+G2  GH=GU(T,H,ALSBAR)+GD(T,H,ALSBAR)+GC(T,H,ALSBAR)+  1 GS(T,H,ALSBAR)+GT(T,H,ALSBAR)+GB(T,H,ALSBAR)+GG(T,H,ALSBAR); >+K,GHB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GHB(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  GHB=GUB(T,H,ALSBAR)+GDB(T,H,ALSBAR)+GCB(T,H,ALSBAR)+  1GSB(T,H,ALSBAR)+GTB(T,H,ALSBAR)+GBB(T,H,ALSBAR)+GGB(T,H,ALSBAR) ; >+K,GL. Ƃ CMZ : 1.30/06 18/01/95 21.06.33 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GL(T,H,ALSBAR) =+,DOUBLE. GL=GELE(T,H,ALSBAR) ; >+K,VA_GL.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VA_GL(GL,VR)=+,DOUBLE.=+,CONST.  SBRA=1.-4*S2  BRA=1.+SBRA**2+(3*ALBAR*SBRA*VR)/(2*PI*(C2-S2))  VA_GL=(GL/(GO*BRA*(1.+(3.*ALBAR)/(4.*PI)))-1.) 1*((16*PI*S2*C2)/(3*ALBAR)); >+K,GLB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GLB(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  SBRA=1.-4*S2  BRA=1.+SBRA**2 GLB=GO*  1BRA*(1.+(3.*ALBAR)/(4.*PI)) ; >+K,GELE. Ƃ CMZ : 1.30/06 18/01/95 21.02.49 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GELE(T,H,ALSBAR)=+,DOUBLE.=+,MASSES. GELE=GLEPTON(T,H,ALSBAR,AMMU) ; >+K,GMUO. Ƃ CMZ : 1.30/06 18/01/95 21.04.11 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GMUO(T,H,ALSBAR)=+,DOUBLE.=+,MASSES. GMUO=GLEPTON(T,H,ALSBAR,AMMU) ; >+K,GTAU. Ƃ CMZ : 1.30/06 18/01/95 21.05.15 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 22.50.18 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GTAU(T,H,ALSBAR)=+,DOUBLE.=+,MASSES. GTAU=GLEPTON(T,H,ALSBAR,AMTAU); >+K,GNU. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GNU(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  GNU=8*GO*(0.5+(3*ALBAR*VNU(T,H,ALSBAR))/(64*PI*S2*C2))**2 ; >+K,GNUB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GNUB(T,H,ALSBAR)=+,DOUBLE.=+,CONST.  GNUB=2*GO ; >+K,GZ. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GZ(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  GZ=GH(T,H,ALSBAR)+ 1 GELE(T,H,ALSBAR)+GMUO(T,H,ALSBAR)+GTAU(T,H,ALSBAR)+ 2 3*GNU(T,H,ALSBAR) ; >+K,GZB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GZB(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  GZB=GHB(T,H,ALSBAR)+  1 3*GLB(T,H,ALSBAR)+  2 3*GNUB(T,H,ALSBAR) ; >+K,RL. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION RL(T,H,ALSBAR) =+,DOUBLE. RL=GH(T,H,ALSBAR)/GL(T,H,ALSBAR) ; >+K,RLB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION RLB(T,H,ALSBAR) =+,DOUBLE. RLB=GHB(T,H,ALSBAR)/GLB(T,H,ALSBAR) ; >+K,RB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION RB(T,H,ALSBAR) =+,DOUBLE. RB=GB(T,H,ALSBAR)/GH(T,H,ALSBAR) ; >+K,RBB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION RBB(T,H,ALSBAR) =+,DOUBLE. RBB=GBB(T,H,ALSBAR)/GHB(T,H,ALSBAR) ; >+K,RC. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION RC(T,H,ALSBAR) =+,DOUBLE. RC=GC(T,H,ALSBAR)/GH(T,H,ALSBAR) ; >+K,SIGH. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.YE------%g-------5h-------h-------Ih-------@S-------G-------D--------------R------- V-------$-------$------$------QbM------ E ------4AI T------uPT$5------U ------9u ------u0e ------q ------m@e ------i$e ------e@e ------a"------]@e U------Y e -------$e -50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION SIGH(T,H,ALSBAR)=+,DOUBLE.=+,CONST.  AMZ102=(AMZ/100.D0)**2 TONB10=TONB/10000. GLL=GL(T,H,ALSBAR) GHH=GH(T,H,ALSBAR) GZZ=GZ(T,H,ALSBAR) IF(GLL.GT.1000..OR.GZZ.GT.1000.OR.GZZ.LT.0.01)THEN WRITE(6,*)'AMZ,DAMZ,GMU,AL,ALBAR,C2,S2,TONB,PI,F2,GO',  1 AMZ,DAMZ,GMU,AL,ALBAR,C2,S2,TONB,PI,F2,GO WRITE(6,*)'GLL,GHH,GZZ,T,H,ALSBAR',  1 GLL,GHH,GZZ,T,H,ALSBAR ?  SH=(12*PI*GLL*GHH)/  1(AMZ102*GZZ**2)  SIGH=SH*TONB10; >+K,SIGHB.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION SIGHB(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  AMZ102=(AMZ/100.D0)**2 TONB10=TONB/10000. GLL=GLB(T,H,ALSBAR)  GHH=GHB(T,H,ALSBAR)  GZZ=GZB(T,H,ALSBAR)  IF(GLL.GT.1000..OR.GZZ.GT.1000.OR.GZZ.LT.0.01)THEN WRITE(6,*)'AMZ,DAMZ,GMU,AL,ALBAR,C2,S2,TONB,PI,F2,GO',  1 AMZ,DAMZ,GMU,AL,ALBAR,C2,S2,TONB,PI,F2,GO WRITE(6,*)'GLL,GHH,GZZ,T,H,ALSBAR',  1 GLL,GHH,GZZ,T,H,ALSBAR ?  SH=(12*PI*GLL*GHH)/  1(AMZ102*GZZ**2)  SIGHB=SH*TONB10 ; >+K,AFB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION AFB(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  DATA T3/-0.5/  DATA QF/1./  GA=T3*(1.+(3*ALBAR*VAL(T,H,ALSBAR))/(32*PI*S2*C2)) GV=GA*(1-4*QF*S2+(3*ALBAR*QF*VRL(T,H,ALSBAR))/(4*PI*(C2-S2)))  AFB=0.75*(2*GA*GV/(GV**2+GA**2))**2 ; >+K,ALE. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION ALE(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  DATA T3/-0.5/  DATA QF/1./  GA=T3*(1.+(3*ALBAR*VAL(T,H,ALSBAR))/(32*PI*S2*C2)) GV=GA*(1-4*QF*S2+(3*ALBAR*QF*VRL(T,H,ALSBAR))/(4*PI*(C2-S2)))  ALE=2*GA*GV/(GV**2+GA**2) ; >+K,AF. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION AF(T,H,ALSBAR,T3,QF) --- --introduce ALSBAR as argument 26.05.95 A.R.=+,DOUBLE.=+,CONST. ‚ --- --???????????  IF(QF.GT.0.3.AND.QF.LT.0.4)THEN  VAF=VAD(T,H,ALSBAR)  VRF=VRD(T,H,ALSBAR)  ELSEIF(QF.GT.0.6.AND.QF.LT.0.7)THEN à bug VAF=VAD(T,H,ALSBAR) à bug VRF=VRD(T,H,ALSBAR)  VAF=VAU(T,H,ALSBAR)  VRF=VRU(T,H,ALSBAR) ?  VAF=VAL(T,H,ALSBAR)  VRF=VRL(T,H,ALSBAR) ? ‚ --- --????????????  GA=T3*(1.+(3*ALBAR*VAF)/(32*PI*S2*C2)) GV=GA*(1-4*QF*S2+(3*ALBAR*QF*VRF)/(4*PI*(C2-S2)))  AF=2*GA*GV/(GV**2+GA**2) ; >+K,AFBBB.Ƃ CMZ : 2.00/00 26/01/96 09.05.47 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION AFBBB(T,H,ALSBAR) =+,DOUBLE.=+,DEBUG.  AFBBB=0.75*ALE(T,H,ALSBAR)*AB(T,H,ALSBAR)  IF(PRTFLG(1).GT.0.)THEN  WRITE(6,*)'++AFBBB: T,H,ALSBAR', 1 T,H,ALSBAR  WRITE(6,*)'AFBBB',  1 AFBBB? ; >+K,SIN2B.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION SIN2B(T,H,ALSBAR) =+,DOUBLE.=+,CONST. =+,CAFBBB.=+,DEBUG.  DAMJ0T!wif6ِ)H1]Wz_uc"`V6RΗs$ՐʐE^=jÈ˭'W3WX'F'VY,=Zz $Rz.q0/t]G (230P?c^vɹ`x0ƀբ=,ʜ/!XܗY>+HH5rQ^f.`$gfUiT?z+6SVSv[h _GWDP6ʄMb&xEՁ`$I]fA>+K,AFBBBP. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION AFBBBP(T,H,ALSBAR) =+,DOUBLE.=+,CONST. =+,CAFBBB.=+,DEBUG.  MN11^|.M-H!! IWb9&g?h鑆X_EP)ڠո#ћ-|ce^Aڔ{)L9FEHՁƘHE$?y S2)>+K,AFBCC.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION AFBCC(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  DATA T3/+0.5/  DATA QF/0.66666666666666/  AFBCC=0.75*ALE(T,H,ALSBAR)*AF(T,H,ALSBAR,T3,QF) ; >+K,QFB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION QFB(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  DATA T3/-0.5/  DATA QF/1./  --- --QFB=0.25*(1.-GV/GA)  QFB= QF*S2-(3*ALBAR*QF*VRL(T,H,ALSBAR))/(16*PI*(C2-S2)) ; >+K,ALR. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION ALR(T,H,ALSBAR) Ă --- --left-right asymmetry for SLD =+,DOUBLE.=+,CONST.  DATA QF/1./  --- --QFB=0.25*(1.-GV/GA)  QFB= QF*S2-(3*ALBAR*QF*VRL(T,H,ALSBAR))/(16*PI*(C2-S2))  alr=(2*(1.-4.*qfb))/(1+(1.-4*qfb)**2) ; >+K,AMWMZ.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION AMWMZ(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  C=DSQRT(C2)  VMTHA=VM(T,H,ALSBAR)  AMWMZ=C+(3*C*ALBAR*VMTHA)/(32*PI*S2*(C2-S2)) ; >+K,AMWMZNOB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION AMWMZNOB(T,H,ALSBAR) MW/MZ WITHOUR BARBIERI CORRECTION =+,DOUBLE.=+,CONST.  C=DSQRT(C2)  AMWMZNOB=C+(3*C*ALBAR*VM_NOB(T,H,ALSBAR))/(32*PI*S2*(C2-S2)) ; >+K,VM_MWMZ. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VM_MWMZ(AMWMZ)  to calculate VM from Mw/Mz=+,DOUBLE.=+,CONST.  C=DSQRT(C2)  VM_MWMZ=((AMWMZ-C)/(3*C*ALBAR))*(32*PI*S2*(C2-S2)); >+K,AMWMZB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION AMWMZB(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  C=DSQRT(C2)  AMWMZB=C ; >+K,S2NUN.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION S2NUN(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  C=DSQRT(C2)  AMWMZ=C+(3*C*ALBAR*VM(T,H,ALSBAR))/(32*PI*S2*(C2-S2))  S2NUN=1.-AMWMZ**2 ; >+K,GAELE.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GAELE(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  DATA T3/-0.5/  DATA QF/1./  GA=T3*(1.+(3*ALBAR*VAL(T,H,ALSBAR))/(32*PI*S2*C2)) GAELE=GA ; >+K,GAELEB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GAELEB(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  GAELEB=-0.5 ; >+K,GVAELE. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GVAELE(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  DATA T3/-0.5/  DATA QF/1./  GVAELE=1.-4*QF*S2+(3*ALBAR*QF*VRL(T,H,ALSBAR))/(4*PI*(C2-S2)) ; >+K,VR_GVGA. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VR_GVGA(GVGA) =+,DOUBLE.=+,CONST.  DATA T3/-0.5/  DATA QF/1./  VR_GVGA=((GVGA-1.+4*QF*S2)/(3*ALBAR*QF))*(4*PI*(C2-S2)) ; ----- <5 ------MTe S------Ie ------Ee ------Ae E------=$e T------9Pe ------5$e ------1<  ------]e  -------HU ------11 ------%1 ------!%  ------$e ------xe -------U ------H EO------y1 %e------ `SV------`T------`PV------#u4------WSHR-------------E B------E pS------E pS ---->+K,GVAELB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GVAELB(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  DATA T3/-0.5/  DATA QF/1./  GVAELB=1.-4*QF*S2 ; >+K,FP. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FP(P) formula F.2 on page 78 of Novikov et al, NP B397 (1993)35-83. =+,DOUBLE. OS4P=1./DSQRT(4.*P)  IF(4*P.GE.1)THEN  FP=2.*(1.-DSQRT(4.*P-1.)*DASIN(OS4P)) ?  T1=DSQRT(1.-4.*P)  T2=(1.+T1)*OS4P  FP=2.*(1.-T1*DLOG(T2)) ? ; >+K,THEORY. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION THEORY(I,T,H,ALSBAR)=+,DOUBLE.=+,CONST.  IF(I.EQ.2)THEN THEOM 0 ТF'3DZ[p=W&/ 91!C<C2R&hSn6jڭ|2_5el8[0.F`n9V[mNaT9e4M$D%nW .uڻНH[JCwqUkk~#ٟ\d>+K,THMSM.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION THMSM(I,T,H,ALSBAR) =+,DOUBLE.=+,CONST.  IF(I.EQ.1)THEN THMSM=AMWMZ(T,H,ALSBAR)  ELSEIF(I.EQ.2)THEN THMSM=GAELE(T,H,ALSBAR)  ELSEIF(I.EQ.3)THEN THMSM=GVAELE(T,H,ALSBAR) ELSEIF(I.EQ.4)THEN THMSM=GELE(T,H,ALSBAR)  ELSEIF(I.EQ.5)THEN THMSM=GH(T,H,ALSBAR) ELSEIF(I.EQ.6)THEN THMSM=GZ(T,H,ALSBAR) ELSEIF(I.EQ.7)THEN THMSM=SIGH(T,H,ALSBAR)  ELSEIF(I.EQ.8)THEN THMSM=RL(T,H,ALSBAR) ELSEIF(I.EQ.9)THEN THMSM=RB(T,H,ALSBAR) ELSEIF(I.EQ.10)THEN  THMSM=QFB(T,H,ALSBAR) ?  THMSM=0.? ; >+K,THBORN. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION THBORN(I,T,H,ALSBAR)=+,DOUBLE.=+,CONST.  IF(I.EQ.1)THEN THBOMK 0 ^#JI`44b<]yk"1Lpnn Js^,`CeEWG n22:y%XȻ9qnqaD͒5+bgP& 6>ϖYFׅ.)oxԟ>+K,LTINIT. Ƃ CMZ : 2.00/03 08/09/98 23.19.23 by A.Rozanov Ƃ CMZ : 2.00/02 05/07/98 19.32.28 by A.Rozanov Ƃ CMZ : 2.00/01 18/03/98 21.07.32 by A.Rozanov Ƃ CMZ : 2.00/00 16/04/97 18.36.25 by A.Rozanov Ƃ CMZ : 2.00M':rX׭'?"BH^LE`f&%O3Ꞙڇ؉s$$Bf{r7㴷 PptgqQ9ydwgٜ,k"'ְ ~yp>" R=̞́ mz4pl#7u୼ U}k>o`}xw7h{,i9u׾0Cr]aZQZPVUn~r| ˀ~&Ke6q>|},6%[mיPOG,e)R(f%$TCp^}=`}w` k 9#d#x=}xwf>te96_s;׫(iZVlIpaؒ=ADo5;w..lgM7~?ӡyqs^dY#N.rzJRwx9' tpEu6yméBAf3 AF?í7O4pVi>@R}',K=ٷ*D7_=|} or]ܸү9܃:V׿}5߉l6`w'@OWkEW/Bz5ې|/pw?3nm0s3njEg6C >rl%#L %{X|sxGFDi[w 6]s)>%42ew:nPs ad iši"m^ΐ ֢mȑCWz[*>~vٝiX1-QjښZ۝@d uZ3gŝ]3XCu t=\;j=Q{ǝ LWڷv߾_45Iȱ[[w6O6_VtM0Y9&jIIrε rP7d܏fh}xYX>7f_u5~ڠuH=j%QI18ZdXonxfR.}`3'pDkWf9bsܟX6IQV2%e`-4T9_϶Sچ=FQuv&RCi8L⌖~ph}ySӺM_חz u8~&1QFv9&eڃ!g, ɑ˦g -k{^{8/0隀 [><2 }9 VPu-*_FOm+Y,d+Y842騔#&6?ڑ 6VU yjS[H{3w3"Wl QG=U=pDRWo! |XM{3ţݱ.+L}RXyh)zz^I%96P e4{cᄸ{Z[0Dst*~'/P6e?p$9Y^ ]q[3G {hEVx_~^97{p¯qj.\Z8uġvƪfgVW$,# iE^0<qS.EF _0iyB ݸERvq~B%]xCpÑX_bp_^\s!^ỿCK],='DLt*IazRhC%V:WP=:W y=]`}6٣ y?C#`R8B+}A;55*3RQ&%]-i9NR8sq"y[B?+fX x`:|ǔnT?ҝEp,؝x(>%D]3?^ IY39W}<ʋLK&d&v=>Rf |lLJz922G"G˝"®2Q"gCĜqKCW+E:j I|V= 5OIbO'_hC7uaf[8f㊙ħ S<&>j'e՞_ˑNFVˑ_wp]75S"|5]:5܏q5QLFT'2`漼˸|3uNSKV+$#j0p/yf+'4:\|6զ}%BW" &|^/TTPUK4Opay٨ZNVMOvN~ ]4 B6Sa 'i*M/=CmxT] y&k1xj!zŗKwy"<V|p6wK'hNx.0|+/bx_V?|09P>֎0r捻y4 _5y/qX}xb_EΧ :%MEMO#<1 A)+$]3p2%mƑB;l0e!T% _ۯ_$gͦ;;30 >׬_BӡA9Mc[XF6H_uq ¶ص2!9LF4-֟⛮w_]E} B>]4#|!Tí]GDc9<>mBpNY3Ƞ <'G"=0g(ShB[J gQ zG]9"(ҾIҶ ed(MC ژS>̞bx'yRSRD{52\G-O XPLyeZ WyC>44ܤ;&VoАQ0co'x'WPge /-+o BE>+K,TABLE.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : SUBROUTINE TABLE(AMTP,DAMT1P,DAMT2P,DT1,DT2,  1ALSBAP,DALS1H,DALS2H,AMHP,EMAT) =+,DOUBLE.=+Mj \)ZnHZ8 !FҢ;AH lM{Y(Y,&km/EZ!4Lr|wDh9>qhpz8UG'`4NEoY@#5-IyG2qJÑ6!l~HQ&QF!)M΋t|88fCԦF@~(C{6u$Jd ? FcK.p7ގ;#JD``c s*uqb0__ҍ/Z˂2MxO[ي~烮g ϜBie8,cqնN#1Q_]qCX E6ʸ6q o'ݽ ;MnF :MϴmM!ٻ9X5l>jsXD r>[ s CY#OB vk +fA,2]EE/;`Ӵn˘r%fu8^q6Ttqj*~|\}f6_޼w#c-ӫ9TVp/n%,zn^g' |^Fq>xy^?b(5as|ǹ%M .Md9rKbYbu2?B/%E4gHw> JsM8ɯ?~uiCN& rLPZK U2,VBHq dۙ)L]#v=`]S &5_ު̧FKAi] 3bZT(ZS`m٘⭌fA,ƴBtD]G\Ϙ ŃЦ P,1ImzW­y&"_T?B[&UˡaՒEcuv㽗VM]8;6mpol[A qD檙Q~oxqDE[|KY|i.XsuVw[ϴ-g`i4_L1X=4!P@k%—{eKZwu}1K1i/ǐkpu⿋V=Ot6[17w7brj2V C#~|a[v럇:#Oy; UĔ :akqA> :ϡz+D65(ROPSlL[v_:jrJ;"60Q8lMÈlmDڔWlSqIbkpoft_Iu8Iĺ/:Guк޹M0cEuggב<ì {.qۿLUpUZǷUenc  wWyN\Ceĕ`}iGY]̡m^qo|y z3W.|;A|)R8}&E;/fq~r\"QvAN\6XX`'թ9V!Z#R-PiϪvҜ(Aw^9Զ`>Wق҅: 8v3mTۑ}mq o;c][9ߚPGHr뤕x62B;ǟ^,.J|8 +xڬP:ۨsi%^KuP85D9Gz'ky֗J<= -zL,|&|+K,TEQ. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : SUBROUTINE TEQ(IT,VEXP,TOPMAS,H,ALSBAR) =+,DOUBLE.=+,CONST. =+,CITAB.  EXTERNAL FTHEOR  DATA A0/60.D0/ DATA B0/600.D0/  DATA EPS/1.D-4/  DATA MAXF/10000/  IF(IT.EQ.9)THEN  A=50. ?  A=A0?  B=B0  ITABLE=IT  VALUE=VEXP HCI=H  ALSBCI=ALSBAR - ---  IF(ITABLE.EQ.9)THEN  DO I=1,100 AMT=30.D0+10.*(I-1)  T=(AMT/AMZ)**2  TH=THMSM(ITABLE,T,HCI,ALSBCI)  WRITE(6,*)I,AMT,T,VALUE,TH  ENDDO ? - ---  CALL DZERO(A,B,TOPMAS,RESID,EPS,MAXF,FTHEOR) ; >+K,FTHEOR. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FTHEOR(X,I) =+,DOUBLE.=+,CONST. =+,CITAB.  T=(X/AMZ)**2  TH=THMSM(ITABLE,T,HCI,ALSBCI)  FTHEOR=TH-VALUE ; >+K,AMHMT.Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION AMHMT(T,H) x**2 coefficient of 1/rho-1 expansion (apart of Nc=3 factoMKP]o6 HwݬB! BnlIfM@>Ue)8d7JR,9X,VVcU0xO <'xoxހ7 xހ7 xުr:ī?S3yI}/}XGPi=N[),joLSGT X9ňi:jAv|Pj8D2") j*Ԯv|TALtY oTܘ*pc yaGh縉6J{a?<紫!G1Znpぷ!FR~?OÙ˗F;dlʥi_#_A8+! a˕wk{ЗaYq qqS⽦;_Sʻ3パhn@H?G?z1`b }m<;ժSL? :=ŬIQvA?!XR6LξDŇ]v">!x{ p^1[luqoSQ$QM:Z/2jJ*/Xz55~DV|w1 x89wh*Z AC5|g6@6jBL҉2i7H^X5szַNj? DA>+K,Z1Z2. Ƃ CMZ : 2.00/03 05/09/98 13.02.10 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION Z1Z2(T,H) Z1M'eo6 ?VQ)H}a ervfMݜ-@J6e*"{ Lo}'5ͺwk ЩWR2;N#wjӃ߇ydZ0zuuX]n\ݜ'Zܬ բDr]եG7jZR%!ݠ4,/N1wNkawvz:0rYWpc NX*$1$$!II2V_x4͑ĐX$%HrB3Gx$Gx$7xC!o7 xCUq6DeXf쩈y41G 6thPWf$ZlUש2XGF5RIaz^Fફj+yg?~!m~nn2o|7|_>B}ze?}}+]tA,׋'ߗbx/)N`4U}& {OԆMx7|o`ggB6S-ƅtxS09-<9}ۛ` uS8VES> >+K,TPRIME. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION TPRIME(T,H)  FORMULA (48) FROM TH-6696 =+,DOUBLE.=+,CONST. =+,OPTIONS. if(ioption(2).eq.0.and.ioption(3).eq.0)then  fac=0. elseif(ioption(2).ne.0)then  fac=1. elseif(ioption(3).ne.0)then  fac=-1.  endif  albar=gmu*sqrt(2)*mz**2*(4*s2*c2)/(4*pi)  TPRIM=T*(1.-ALBAR*AMHMT(T,H)*T*(1.+fac*2./t)/(PI*16*S2*C2))  TPRIME=TPRIM ; >+K,ALPHAT. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION ALPHAT(T,ALSBAR) running of alsbar according to Politzer-Gross-Terentiev =+,DOUBLE.=+,CONST. =+,SMITH.  ALPHAT=ALSBAR/(1.+(23./(12.*PI))*ALSBAR*DLOG(T)) a la Smith-Voloshin  ALPHAT=ALSBAR/(1.+(23./(12.*PI))*ALSBAR*DLOG(T*VOLOSHIN**2)) ; >+K,ALPHAMT. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION ALPHAMT(T,ALSBAR)  running of alsbar according to Politzer-Gross-Terentiev =+,DOUBLE.=+,CONST.  ALPHAMT=ALSBAR/(1.+(23./(12.*PI))*ALSBAR*DLOG(T)) ; >+K,ALPHATT. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION ALPHATT(T,ALSBAR)  running of alsbar according to Politzer-Gross-Terentiev =+,DOUBLE.=+,CONST. =+,AVDEEV. a la AVDEEV BY L.B. 25.09.94  ALSMT=ALPHAMT(T,ALSBAR)  ALPHATT=ALSMT*(1.+AVDEEV*ALSMT) ; >+K,DYBTAB. Ƃ CMZ : 1.30/07 17/02/95 22.34.33 by A.Rozanov Ƃ CMZ : 1.30/05 18/01/95 19.19.54 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- M\XnFU8n|".S Ŗ]or4l˵SkH~V)΅HG Ӡ.gع]卒bttE;GAWѸ F[G mG*ߠǗeլWz.=;)V9x>>V0WjAm'QЩ&}Zglj f(cHCV1Kq4  F]v9,b33ZVO$ GʈO6!8:`>\ -4<ޓStlMOt3~v19LCėҏF)~JήD|(.֒UcPu3'94+dcHEAIlgC?"@ X0y ]_o iziî3aC |D4ߒٕ}+z%aH҉mS6nM| 쵔IҀD}EV' vݠ]H_ O/vѤ:ܵs %T$kUS3& b {W BʥVlELVČm 5'<ҫUi}S=y` Z,;1n<^I1 Usadcj|dcKuJz:mkgF7ozl)]ڞK}믢Q~rF jV5SxO;~w{x],G:`Ї9Ub}dal.qT$I:r':tA;<`HΦ"xcz7%2dыk2doWYm]6hlTus|t q#}=^Ý˯ ?nE ux@r](t!nʥ/8@1%ʑX{0 io k9>:_tҦ@&됵o/9&ߧy-EITdoŒ Cm(NKlHMb^bfm)NKlJo%v`_%K^!v/+B>b[ o%n"oB:݄@szni1 Ybl`G5`,0fqMW NIAfX7ae{kUq{-@3Ie$x8,t[g?xǘenv|YqfqYgv[/u~tv|9t[DEy9`ՔXb ~AX?eosL^ϦrxVd}pUin[OJ o$oԊ@ IJM_ΎmZ=]̧3w?T.^gOoJT,U#D]u"a𝈕t&?FRj%M%iؙL_ S}3{>mCYDv݃4OvGPr'FRΦ}yT9sթ;R^֟t16>z@YCA\܂uwQ75`[Wm]͗u [1YϷ mp#C[7./cQ6(g[z3nހU]'-\Je|%4؝5i=SGHRϥoIh{MU :ZbMd߼ྙ-n˻ciw9z?DbmݘL~l]a|϶h/9Ch3Ys8k?ކ Que:u[% >+K,FTAB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FTAB(T,H,ALSBAR,I) fill FTAB with observable I =+,DOUBLE.=+,CONM8n@`&M>D$xkL4Mpkwen.I!~ߺ98_EW{2u^FOG wMC v|Wխ(t by{قH2 UX兲ᅞoL1#d#^ZSaLHi&pʰa1$C%1 %2-0`p[ a,pᨍ0 E }vAlڮ0xakl^bHQfeɄҕn^zJä9\ܙ%YQNNyQkʚ>PvTlyӏ_#E9,5qhy^R6r̫n F2`eegsثj<<S9M_!}x/Q*»gqOYZa~>ab>+K,LBOTAB. Ƃ CMZ : 2.00/00 28/01/96 15.19.46 by A.Rozanov Ƃ CMZ : 1.30/07 15/02/95 00.31.33 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.51 by Rozanov Alexandre -- MXn65@>bH)툔/I =H|Au1dyطh">nj?RHY+Uz3C-|=`to Wl(yQaj$vg~af%~=?^ތ%aŞk+&&MrkKl<|`%ikysB$ BKe|Z(R/1sħiL9 ({>3Z8 G6j&;=?pusozg]e imК3 yww7w0~)8諜Rl3\,_F+ 7#-Lϳp8_;Ag$Q:i(w }8w58O=$|ɥn>٣@ڣ^bEM[ Ô c5l,Hw͊=e9qP0|Eʄs{ xT2jM gSlӑL(ۚlF\ 93BjЎ3bPC-0 ~ЗkX#zL{KnQ,jlM3ΌmZ[/X US(||G';:Ʃߟz'* 9)@}5X1UGC28hhtHP|9H0tvxcǭq 6vҊ)bxi!va`gY@^b/ %b{ي$,sgM"hxpǖx^B6Qh24h EQu۱’9 5_SU |TFemrS+]hB&y _?]g‘lI^iv b+%D;^Lβu۱MVSQy]zvXj|x\>sb+ȡֵxMl~ǠINw[AҥV'{͋ ALS>+K,DERTAB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.51 by Rozanov Alexandre -- Author : SUBROUTINE DERTAB =+,DOUBLE.=+,CONST. =+,CAFBBB.=+,DEBUG.  PARAMETER (NOBS=23)  M/0Tn@4bzMlk D XJz#MT!QrɩM}>J36ҴQ}yo,I ey!-8p->.V+Zl啻:'W%*Gn9HR%7<@O/zL vۂRtj#B,# oV`A)|<3L_6`>Ga*J:v~i xfV9ɘxoSLbƁΗIBG^cAy f.3f1n``*2SLs)*e3m&&hm0KΑ.orNǓ:u:z'WF{h7R$; T Tp:tcMFAyT|y\ty}Rs=Iӡ~N~ݭW˛ yG=>U+]JRo2i 0&E8nhcɻhFߌV˂ISiq񖔠L ysb/AR=>+K,ETAB. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.51 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION ETAB(CERR,DALBAR,T,H,ALSBAR,I) fill ETAB with observable I =+,DOUMreR=O0JN&@ n몑T$X{ osg;&Hzݻm-0U 2L!-----e `Ud----- )------ee )------ $e ------ |e -------%------%u E------u A------E tS------E xS------< BR------U5 S------ U5 'VSBN-----%MT------!MT------ MTY#----- MTY#----- MTY# -----)MTd------PD------ U5 US-----}MT------Xq------Xq ------PD------%g-------Y ------Y:j.I!~+9'kS[3 L ]ݦ[\U oS[aVFDimv`>>C?N @DC|,BFʆaberE8[͝m/K9+rT4)7tf/Ha~9'OCk {9ϨLn]-{r1aklƩM+SeX=%Mp^H?bح:l۷I ͪv`@8g ~xF τqjN`L>+K,SM4. Ƃ CMZ : 1.30/07 03/02/95 13.04.53 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.51 by Rozanov Alexandre -- Author : SUBROUTINE SM4(CM4) =+,DOUBLE.=+,FOURTH. DATA N/0/  N=N+1  AM4=CM4 IF(N.EQ.1)WRITE(6,*)'SET AM4= ',AM4 ; >+K,GM4. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.51 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GM4(IDUMMY) =+,DOUBLE.=+,FOURTH. GM4=AM4 ; >+K,LTSML4. Ƃ CMZ : 1.30/07 03/02/95 13.04.53 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.51 by Rozanov Alexandre -- Author : SUBROUTINE LTSML4(CM4)=+,DOUBLE.=+,FOURTH. DATA N/0/  N=N+1  AML4=CM4 IF(N.EQ.1)WRITE(6,*)'SET AML4= ',AML4; >+K,GML4. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.51 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GML4(IDUMMY)=+,DOUBLE.=+,FOURTH. GML4=AML4 ; >+K,LTSMQ4. Ƃ CMZ : 1.30/07 03/02/95 13.04.53 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.51 by Rozanov Alexandre -- Author : SUBROUTINE LTSMQ4(CM4)=+,DOUBLE.=+,FOURTH. DATA N/0/  N=N+1  AMQ4=CM4 IF(N.EQ.1)WRITE(6,*)'SET AMQ4= ',AMQ4; >+K,LTSNQ4. Ƃ CMZ : 1.30/07 03/02/95 13.04.53 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.51 by Rozanov Alexandre -- Author : SUBROUTINE LTSNQ4(N4) =+,DOUBLE.=+,FOURTH. DATA N/0/  N=N+1  NQ4=N4 IF(N.EQ.1)WRITE(6,*)'SET NQ4= ',N4 ; >+K,LTSNL4. Ƃ CMZ : 1.30/07 03/02/95 13.04.53 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.51 by Rozanov Alexandre -- Author : SUBROUTINE LTSNL4(N4) =+,DOUBLE.=+,FOURTH. DATA N/0/  N=N+1  NL4=N4 IF(N.EQ.1)WRITE(6,*)'SET NL4= ',N4 ; >+K,GMQ4. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.51 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GMQ4(IDUMMY)=+,DOUBLE.=+,FOURTH. GMQ4=AMQ4 ; >+K,CA2CA1. Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.51 by Rozanov Alexandre -- Author : FUNCTION CA2CA1(X) FUNCTION AFMT3(ALST) =+,DOUBLE.  NU MERICAL CONSTANTS  MMQn1M*ԏxk|Xj"%[V K%@;-͌wqf3&C/L¥r S(ES'|qȽ"$l|4qܺ;[ۏ =pMĊ<: ^m;ٮ 4{6U"b06|v{v„F &$Z|o"V_:6Ǜ/{5_Y[UTʼV b5eO4l˥"-J4wpx*9»)Npy sh'3Tq&2ZK.~ 'zy2$ xYegRJc`#ec~$ ý7k~ RE)tB- X&2]}9>+K,ltcomp. Ƃ CMZ : 2.00/03 08/09/98 21.57.30 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.35.43 by A.Rozanov Ƃ CMZ : 1.30/06 18/01/95 23.43.33 by A.Rozanov Ƃ CMZ : 1.30/02 17/01/95 18.00.07 by A.Rozanov Ƃ CMZ : 1.30MVmo66?P`E ;0 l1PK$i}ҭžv$%Kjl#]Bxܑt֬յ ]MCK] | wvP7Oa-T]QuzYg1>g PaZ*sKc޾ ;3+t 'wxaoO$wb['x>Kb)~\321ܫOtr8>νp`5.h]H -Y\iosKo6#."c6xqY ߨlscʔ"MVкe$Ћ<\IpCި[kֆͰB #~aD/+3bQywVI 6B6kq!:X>zH9Lhc=/b0l9%f_/}*r0n^*Ǜ pLTFnKڗ`Pظ'u]!-|x[pLe7mqlz.yl SvצzUeZ9dz;{~W],*9m֗<}k/b^di|@?ZW*T˜H-+*B#we0"*})E4|\͘,ڧALS>+K,dwaa. Ƃ CMZ : 1.30/02 17/01/95 15.01.44 by A.Rozanov Ă -- Author : A.Rozanov 17/01/95 DOUBLE PRECISION FUNCTION DWAA(CW2) H* --- -------------------------------------------------------------------* H* Na H*M`SA/@nMK[%b=vZf43tZ‰u¿fDK7MM A`tkƺ$Q>d&b4a@@eƧY,8WcB,h3!q{*4>ās9/~Lzn˜*(#sUct`dnX.NӶmwJ{cbھWsL[vz]gŻU%3KPQb$ܕ9M@lz`8B^//D!x'}1cn>hnnҙ:x͠ڔ*#;k %U+t Γc4hR[nϱ#yfDVDe &ݚc*  vc->+K,dtaa. Ƃ CMZ : 1.30/03 18/01/95 16.15.26 by A.Rozanov Ƃ CMZ : 1.30/02 17/01/95 18.33.33 by A.Rozanov Ă -- Author : A.Rozanov 17/01/95 DOUBLE PRECISION FUNCTION DTAA(T) H* --- ------------------------------------MSN@]Tmچ"H N) \rXXz S pZ.]cӢRUjdj<3o̬m;D}5O@S mBUŘKL@uLd"SL8a) O.a@qOIT>?)D.p=oBU$4D{> /lڲQhL6\V2VA/o{u_0.%x]5oq= z^-u䀒$-e$TIPg}O|XÚTr3>?c<hi%4Rqc}sb3 ?b ϖQ)r;[0eKֻM 6e}ؖv#uV.v=w h:asHE[uaBoPNO`9PG/9>+K,DTTVM.Ƃ CMZ : 1.30/02 17/01/95 16.05.09 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.57.55 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DTTVM(T)=+,DOUBLE.=+,CONST. =+,TTBAR.  gamma=PI*EPSIL/(2*AMZ) DTTVM=-GAMMA*DSQRT(T)*(1.+(-1.+16*S2/3.)/(4*T-1.)); >+K,DTTVA.Ƃ CMZ : 1.30/02 17/01/95 16.05.38 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 17.00.40 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DTTVA(T)=+,DOUBLE.=+,CONST. =+,TTBAR.  gamma=PI*EPSIL/(2*AMZ) DTTVA=-GAMMA*DSQRT(T)*(1.+(1.-8*S2/3.)/(4*T-1.)**2) ; >+K,DTTVR.Ƃ CMZ : 1.30/02 17/01/95 16.06.09 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 17.01.39 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DTTVR(T)=+,DOUBLE.=+,CONST. =+,TTBAR.  gamma=PI*EPSIL/(2*AMZ) DTTVR=-GAMMA*DSQRT(T)*(1.+(5./3.)/(4*T-1.)) ; >+K,d3vi. Ƃ CMZ : 1.30/09 04/03/95 16.03.00 by A.Rozanov Ƃ CMZ : 1.30/04 18/01/95 16.34.45 by A.Rozanov Ƃ CMZ : 1.30/02 17/01/95 23.48.57 by A.Rozanov Ă -- Author : A.Rozanov 17/01/95 DOUBLE PRECISION FUNCTION D3VIM\SMo@809K QH98uV$S$-[5'ʝ Rdx޼73g^&OJ]QяR{CE/bQ>?MԈyːrĤn,0.K o ʣt! R&x> BIHV7OOs,v yD̗C +zjѺPGBw .Hz/S!Bvƥ|,팭I,:s$2u;p7b* KtE}ӘDt&o;Yy9K<7KfOvzUɞU4*Lwt~|W>G&ķ5|=4iaC3çh2l"8ƎZ[q"qoqЀ94(5 $sHk@FKHr%}0*2"*F >+K,d5vm. Ƃ CMZ : 2.00/03 05/09/98 13.02.10 by A.Rozanov Ƃ CMZ : 1.30/03 18/01/95 16.00.32 by A.Rozanov Ă -- Author : A.Rozanov 18/01/95 DOUBLE PRECISION FUNCTION D5VM(T,H,ALSBAR) --- ------------------------------------MSn@%6DMD"#9jU-ԞĦ8'#U6:tSwe{|}MоHFqAt;R0P[LELrm&KXެP%.,)D4MaSIr'  ) E$o)VцMTN ࠂh& wۼc)Ù _u;P.|*KRP2~^C7N YچG+K,D5VA. Ƃ CMZ : 2.00/03 05/09/98 13.07.25 by A.Rozanov Ƃ CMZ : 1.30/03 18/01/95 16.01.02 by A.Rozanov Ă -- Author : A.Rozanov 18/01/95 DOUBLE PRECISION FUNCTION D5VA(T,H,ALSBAR) --- ------------------------------------MSn@%-Heg/ERGrDU-ԞĦ8x& ؑo+:tSwe{|}C -S Rڳ.lI@Ip0뱒+<^8˧-͚9q![120@r) BM_Y 3ʑC/~ 0g,)_7/q)֣iQTΥ1T_(`]e4޺^jyD%dѹW5+aLeD>< g D-eOFYv[7<*YiNΰ[H%Ƌ82K3NSvQf09DW]+Vau6.yM^t05bG5 xp#; ] eP9)馊4IT\&47v+K,D5VR. Ƃ CMZ : 2.00------MY------  #------ E S------E S!-----QU5 S------MTdC-----yPD------%U5 vS-----PR#------u0A-------Q3A------UQ3A------ | ------} #-----U -----u <-T-----ԒC------$-------F-------ņ-------PF-------U-------@F-------E------- TQ3V----- TQ3-----0Մ0_-----DՄ0_---/03 05/09/98 13.07.25 by A.Rozanov Ƃ CMZ : 1.30/03 18/01/95 16.01.34 by A.Rozanov Ă -- Author : A.Rozanov 18/01/95 DOUBLE PRECISION FUNCTION D5VR(T,H,ALSBAR) --- ------------------------------------MSn@%-Hegv )M$/:#ڐm$63D~ _qmǡ"$%̙sk?Bj0@ 4ސZ'*b*b9a9WxiaʧfE- E pS!$)HO}Sܯ~U̸EnI$ B*H[g^,dnwp:/k κv˻ -:d"n~- hR'Bb/!迅#y I܎~|+K,GLEPTON. Ƃ CMZ : 1.30/06 18/01/95 21.14.03 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GLEPTON(T,H,ALSBAR,AMLEPT) =+,DOUBLE.=+,CONST.  ga=GAELE(T,H,ALSBAR)  gv=GVAELE(T,H,ALSBAR)*ga  GLEPTON=4*GO*(gv**2*(1.+3*ALBAR/(4*PI))  1 +ga**2*(1.-6*(AMLEPT/AMZ)**2+3*ALBAR/(4*PI))); >+K,GAQ. Ƃ CMZ : 1.30/06 19/01/95 20.31.04 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GAQ(T,H,ALSBAR,AIQ3,QQ,IFLAV) =+,DOUBLE.=+,CONST.  IF(IFLAV.EQ.5)THEN LBOT=1 ELSE  LBOT=0  ENDIF  GAQ=AIQ3*(1.+3*ALBAR*VAQ(T,H,ALSBAR,IFLAV)/(32*PI*S2*C2))  *** *1+LBOT*ALBAR*PHI(T,H,ALSBAR)/(8*PI*(3.-2.*S2)) ! 19.01.95 ; >+K,GVAQ. Ƃ CMZ : 1.30/06 19/01/95 20.32.59 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GVAQ(T,H,ALSBAR,AIQ3,QQ,IFLAV) =+,DOUBLE.=+,CONST.  IF(IFLAV.EQ.5)THEN LBOT=1 ELSE  LBOT=0  ENDIF  Q=DABS(QQ) GVAQ=1.-4.*S2*Q  1+(3*ALBAR*Q*VRQ(T,H,ALSBAR,IFLAV))/(4*PI*(C2-S2)) Ȃ *** *2-LBOT*ALBAR*s2*PHI(T,H,ALSBAR)/(3*PI*(3.-2.*S2)) ! 19.01.95 ; >+K,RVQ. Ƃ CMZ : 2.00/02 03/07/98 17.35.24 by A.Rozanov Ƃ CMZ : 1.30/06 18/01/95 22.58.37 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- AuthMi8uQMo@%Ϥ?b hiE[R4ioVV1wuӔξfޛ%/]? vQ~;pKzzaĖǪ׋5Xn~DݏnG$E M@v v5b{laȦ  upѵ?{E sL6YOlښ:E=饴iX¢>Zz4N8Hu`8)qk%njR$/d ~kV1כ#N.ߓDpE$FpP(0?n$[`Q?d-sۄJ؁9KlT1b;Xw3j+K,RAQ. Ƃ CMZ : 2.00/02 03/07/98 17.36.34 by A.Rozanov Ƃ CMZ : 1.30/06 18/01/95 22.57.34 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- AuthMuN@E  >lI@Yt^5Nc v@@-|]e43޸Zu[eJ8:x5?uN8'cƽJYn*ɺjj84(c+K,VAB. Ƃ CMZ : 1.30/06 19/01/95 20.42.59 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VAB(T,H,ALSBAR) =+,DOUBLE. VAB=VAD(T,H,ALSBAR)+DPHIA(T,H,ALSBAR) ; >+K,VRB. Ƃ CMZ : 1.30/06 19/01/95 20.17.30 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VRB(T,H,ALSBAR) =+,DOUBLE. VRB=VRD(T,H,ALSBAR)+DPHIR(T,H,ALSBAR) ; >+K,DPHIA.Ƃ CMZ : 1.30/06 19/01/95 20.39.05 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DPHIA(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  DPHIA=-8*s2*c2*PHI(T,H,ALSBAR)/(3*(3.-2.*S2)) ; >+K,DPHIR.Ƃ CMZ : 1.30/06 19/01/95 20.40.32 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DPHIR(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  DPHIR=-4*s2*(c2-s2)*PHI(T,H,ALSBAR)/(3*(3.-2.*S2)); >+K,MIVTAB. Ƃ CMZ : 1.30/07 20/01/95 22.22.10 by A.Rozanov Ƃ CMZ : 1.30/05 18/01/95 19.19.54 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- MP V]oF`ӴR~v2 629&X"8kV}k{6HHg wf>i g^0Iƣjg7y~dܝNCW&f*{yY}!(<@Lknhם=E8b{@N[hǜH&I׀1gLmژcss,K"2OhUD9<jH-乐l tlXQFCM+or?dm??}E`onՊ&%B$q(mqjU8,< qQ+'y[!]@cM ҰsT? RLNӲcnU::6qzj6$poyCˑfCEöIx}gmcϲsC*͉jMoIp8.lu_ډ4 a6a0h D[Wxp qϊ^/w GxsZ&\&vXc% 3F(; -bP@@۔?‡"]0sPl]): nFAWՑF|GHuU=pd:] :*hֱ7¶x*'K=KfŴ!^+GٟQVpI8>xWB]6!gs \UT$?s\[lx IW땆:im\[|eyZtxX@Ay:IS>z]8SgƗtчb("(תvG䱺ՒtׂP-D%$ $IPޫniш*/&Y#Xf7îՄ޵ Q{utů&9 8jcg7Q?4IC~j_UrA0 =[qjiY ] eàQ(Xizr.f[,?Fo˴ŲcM>pn+K,lttest. Ƃ CMZ : 22/09/98 17.22.39 by A.Rozanov Ƃ CMZ : 2.00/03 05/09/98 11.25.05 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.32.35 by A.Rozanov Ƃ CMZ : 2.00/01 17/03/98 21.57.20 by A.Rozanov Ƃ CMZ : 2.00M= &YIsfў* Xpc_R ..}Jd<ت,*@lryrqPe{}б3xeƌ.55.49 by A.Rozanov -- Author : PARAMETER (NL=24)  CHARACTER*10 CHLEP COMMON/LEPFIT/VLEP(NL),ELEP(NL),RLEP(NL,NL),WLEP(NL,NL),  1FLEP(NL),NLEP,NPLEP,CHLEP(NL) >+P,LEPFIT. Ƃ CMZ : 2.00/04 15/04/99 22.19.00 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 18.42.13 by A.Rozanov Ƃ CMZ : 2.00/01 27/06/97 11.59.25 by A.Rozanov Ƃ CMZ : 2.00/00 28/01/96 15.04.55 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 10.55.49 by A.Rozanov -- Author : PARAME : 2.00/04 11/04/99 21.01.26 by A.Rozanov Ƃ CMZ : 1.30/06 18/01/95 21.06.33 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GL(T,H,ALSBAR) =+,DOUBLE. GL=GLEPTON(T,H,ALSBAR,0.D0) ; >+K,ltpredmt. Ƃ CMZ : 11/04/99 21.05.50 by A.Rozanov Ƃ CMZ : 2.00/02 05/07/98 20.03.51 by A.Rozanov Ƃ CMZ : 2.00/01 03/11/97 19.33.54 by SiA?d"2STVO/pmCd 1-94Voa5TWx|1=2+O1 yNQ"?pPZ4yBV13s;'N0 ~.ӯ͸ew6[sK4][6?358w̝)"s ǜX;|q5}|kXceYbf# 6qm5CY [1mm-}IeҼ 9!L}[5tsy=Lsa+K,ltxQ?3նMW,xfuQ \`%-$= ~3v4^^~}8N YnxPHS+3X%+hpڞacjKؖK8fm#Jz#j*︩I6hGow ne)5.f6T琤UY(t||vp\rW\`f5~=(A>+K,DVMF4.(;>k7^׾7h'\xTvDuј~ Eo6NI|bs="&̖"DMj ^c p'>+K,AMHMT_PR. Ƃ CMZ : 2.00/02 03/07/98 19.32.06 by A.Rozanov Ƃ CMZ : 1.30/07 01/02/95 21.02.54 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- M'eMk@95Vl->(ĐBՁފjKDZFuh)쾫:iwfglqzz8"O7gՌ|eQ"qiMӮz!uv'mvT۪VSMMu}Tot&*d \^8mz۷(\m/ ?@Ϊk[-ՠΈC Aў:F.,嬜\-Rb2z9|jTv8̠ *>[( s^, l<DSwRB2!YA P̅x%b4d 9C_ 3x\rD.O bH9lrCNikxHGĴ*VkD~GG zك՛5}x362,>+K,TAU2_PR. Ƃ CMZ : 2.00/02 03/07/98 19.31.26 by A.Rozanov Ƃ CMZ : 1.30/07 01/02/95 21.11.11 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Mt]MO@ЏKĜ]mlm#R*@:R-],9rJ&P;y⶿j;x0dq,OPK6_zu=5v kn۵B fE uM5P|Gtdsp7˼X'rNg1t^ _=p}1-f4%PW( zwQ?f{UuJ׹m{'K꨼xTGVM,}%xd""$)&dH9&BFxIzF"iRJH<#H<#H<^xE"^W+x%1;1fGGN69WuɌ編^F&iλh[)y34NyTa~\)g^#;E1Z]u}sOڔM]EC5)dM¤x ZhRln܊^?gUàZ& Cw49ҿs0j/,>+K,LTPUT.Ƃ CMZ : 2.00/00 05/01/96 19.19.02 by A.Rozanov Ƃ CMZ : 1.30/08 22/02/95 16.28.16 by A.Rozanov Ƃ CMZ : 1.30/07 18/02/95 01.20.15 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTPUT(CHKEY,VALUE) MU]s@̀}DBC$TfN a}mh3BBC֧ꨯW@{=WaS̏fs&M0` vc\]vJ0)3< A>B?&"0pBFn8n%MѼY|3ڈkNQC4 9~VZ䶟3>y~c40,V!"`Fpn<˜Sx7W<Ä5fGjUZBIaK.7:(|^jm[xwaFcJcٺ0YZ&VFHV'/q5mh&^XV0 a#Ǐ*h]R3%mi։aFy< %Mx}!pO22U(e_6xN+x55;4,ei_\3m7 rIB17SVeԖtݰucFgyc]M_J ԋnENLZ+Z3VO$k"[_ϿBo7o{,j6w䌔⭥akiy& 3\{~wo= iawb%=rjNe!FJB`.cehem;'3( E)LyN.c]TT%%fƓ0}O >+K,LTGET.Ƃ CMZ : 2.00/00 29/01/96 11.43.05 by A.Rozanov Ƃ CMZ : 1.30/09 23/02/95 02.17.30 by A.Rozanov Ƃ CMZ : 1.30/07 17/02/95 23.53.32 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTGET(CHKEY,VALUE) MT[sF5`ypH Y"K‘=Bd )`'Sھ~ ^vGEgWH%UkP>.C87xC~.@a wdKh<70i0cpf:^ x ab'Qo&S h`Q a7-T# *v>"(]޾1zX_YF_i"]ғ`4QMT몯vUby_VTI#+o23pbQjkVLg$ŃVSĠ B`P |=/sh݁$ AE$0vb72;1Z Y9 Z=sl{YyJ.%k% ;A,7)ϰf2)F(`I&õvax=^f( wc߸³Em]RO2E~qg)RBJ}B1.8.v=r=/J@ɪ1UX6rnBj (ƕIhؤU' :4뼥 \t2[vU_A6Ig.-l'E戠e--Zl.+_xdI`OpPa]'{Lc7|:nڽ4>Nɬ8t$;R̬KR.7O U @A~^#epu^rud˜o",ޅ\:ڱI4 /?XuУ{s|Z=Q"z;ކkT(g ;Y=qQHl_^e.x5LK;:R:}&~AM}WTUZ?ѾcIM1j |8c@:>O!OLU>+K,LTFLAG. Ƃ CMZ : 2.00/01 09/03/95 13.43.52 by A.Rozanov Ƃ CMZ : 1.30/07 19/02/95 23.12.03 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTFLAG(KEY,ICODE) H* --- ------------------------------------M N@J!1Jd!cNhU!Vb "4 Dt&QMV3c jgcsgΙGṙ† f~ }Xz#>eؼn2Lhizn ;(,FӶ~t[3O"nqo\gA3֑ ῍7eկk<"x{a}novZ<^0i$z/q~28aGq'^?G|;MtG_3(k5}(Жqc$fsUT:1%`t{zNBXdWeI U,bK1^35S߯If1 Kv@HUJI]OCb8 j4!Tk8`};> z_YªP k6p! jU#_(yE Ѡ߀nGѬ>I\>a<{Xc7Y'lFNo3/m.[05fPtm{߄(d2;c҇c-[GyޙR-9isr4vpcGl3[ !_Aq<xP0V楊n˲Pgبba-KΙJc؈[frI c@aƟ`P3iupnIΒ^ϯCe! />+K,LTMAIN. Ƃ CMZ : 2.00/02 03/07/98 19.30.30 by A.Rozanov Ƃ CMZ : 1.30/07 11/02/95 23.09.39 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 23.19.33 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- MSˎ06wv-$3 "Ie&4Fjf@|b_a'3Ccw8v+6w]{lYXOVGvg]{idE]u!mAl*b %eL)Tz@F!;, ({{Bd6P4 BZ]q* o; R"Kz0 k9'{v(EC`Voʊ5R*7;F{f̒z_Ic4;33Y&s0.c/rM1ML4D&˳?Ǚwv>Oi2FpJGw8I=f瓳e!SH#4s 1*GhyI@>EaQAA}<]wN 625^?@NS{$vƵg^6`'=;Se]+߼Fb?Yf>+K,LTFPUT. Ƃ CMZ : 2.00/00 20/01/96 23.00.58 by A.Rozanov Ƃ CMZ : 1.30/07 19/02/95 19.39.18 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTFPUT(TKEY,VKEY,VALUE) H* --- --------------------------------MzTn0N{8B;JӔZKKhKMJ'{?b k; a\5{u77/d}U @HGP.مɃ5NOFj(L&1~xrA2lrY80 aYOt{0 ϟ:A[\cP;{BjA.4a|lߓo +я 09Grep90 oreXUZsou3'=~>+K,LTFITT. Ƃ CMZ : 2.00/02 03/07/98 19.29.55 by A.Rozanov Ƃ CMZ : 2.00/00 28/01/96 15.08.55 by A.Rozanov Ƃ CMZ : 1.30/07 18/02/95 01.02.09 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30M V[6F쮴?%5!s+Tp Rnrhȴ}d4mV[O}/鱝KՕZ$s|NӲZM6ۧl'mO;pӏ77SeS{h8밁 x5uy4J^N0 %qŷD =9 =}(sujoI?u}f*uGS{QuYSCR:ZN΋h @Ӳ#&^Bs@')O>D?T3c7f,zC[EoQFzb(KU"港@c%_OO-l椎ĵ`@ PrGF4\ |Cy)7e-b>űen-HN)K.xҀF#[fy6Yd&yZ6sbK;wQђwP3uu|C/߹o,p )nOգFAMxY"]҇h K!2`XrBǸ u[k0d|_1uD' 퀚ߍ~.TQ$>?+4tJ$iUéXj[G+22! Q{K~F m: !\j_TXl. 'T?F{h泰^mTIW~}sܢ<7-@v.R1Gbs8{]?/ e"'c ý qsV ݰO&{w}cn㤅kgIb]:vYG}tUQeQOTuVFX~to | /I;珰^l p9q75ӍN:pJ4wcPWqqiEݑc/ڏE<*d'VȅdΩ~V"ޘee{.{m56,>+K,LTFPUV. Ƃ CMZ : 1.30/07 19/02/95 22.24.44 by A.Rozanov Ă -- -- Մ------1%0_-----E%0_-----00_-----D0_-----a------ %------a------- 0a------8,Q ------e%$M------AI P------i4u ------Y 5 0-----=L ------5L $c-----U5 ------!U6M9T------ TR------M ------| $------ 5 ------ | ------ M %----- 5 $t----- | ------ | TM------ 5 ------ | Author : A.Rozanov 01/02/95 SUBROUTINE LTFPUV(VKEY,VALUE) H* --- -------------------------------------------------------------------* H* Na H*me :M  n@W1K)v,vD"^'V'#Tq6vlh RDŕ7*\୘*!ȖW8Q+OH,,c )s_+dz1ΓHZi'IKy'89L"4ˁa044jрƿǭwm- nAZ`Q?{[3HXi4 MCLq$]YNrFUzwl]XqEOP빁m!W? 93ZKX:n@ 9Nzo̯u >{YY˼,^ G D2a3O9]&* h ,1:,T,^uTvmR˳KZcrE D>6?U z]p'@ZpZPQ}O0a'$j]kXTչ&\ J9]HFw_!w aK T,՜ TRG%4++K,dble7.Ƃ CMZ : 1.30/07 19/02/95 18.24.18 by A.Rozanov Ă -- Author : A.Rozanov 18/02/95 DOUBLE PRECISION FUNCTION DBLE7(VALUE) H* --- -------------------------------------------------------------------* H* Na H*MS_k@_[4'ګ=M@RhJBnH6I+x}7rv*fg~7K y>MG&c/V~MHXJ2R+twȴjDi*!)jRdg,@F˹4U'%Pȿn&," J14vq7 tmHvqm=zl# C R5h&с~Ǖn\1Cpw;~ ;n7:3q #aKqBMIst??e̟nݹ RL?=܂!&r T{Iװ1d>H'S<.k_Xy /j)őoϠoWc^0i|v z{}.$TƳ{<8Uӫe q((KSHb!pt?!H*>+K,LTFPUE. Ƃ CMZ : 1.30/07 19/02/95 18.34.51 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTFPUE(VKEY,VALUE) H* --- -------------------------------------------------------------------* H* Na H*me :M,0Sn@].? ةb)zXYrPJhІHWpbNx͛;Cw8b"γ<ӷ*FA$O"Rz{&IK <.qTD0D,Ά`DlHjAo/KҰA1Jp918|ߋgpv!qyT"Kf$xN4oJmS m5Wگ.|_ .= u(pjj+@wh峓QB㵺^H>N{v`,hM }ټ6͙L V<ߩswE6a (<(kz.&}zI\ {W0zZAՒyD`]䉈#5(Xҷ>^Y}O0a$-մ70jsMʾ云9UAzQQP!*BL0 m{1@Fd v:.Gتp4}h 6zyD5|%wWo; +>+K,LTFCOR. Ƃ CMZ : 1.30/07 19/02/95 19.25.07 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTFCOR(KEY1,KEY2,VALUE) H* --- -------------------------------------------------------------------* H* Na H*MvXTn0ڱ iS. IcTq!Y B-tc)k/Pz~sgȼygUڣ4q_c{NmTX P썡⟉+_6+3%Zqmhʳ2t6v=*gC9w$>+K,LTFIND. Ƃ CMZ : 2.00/01 09/10/97 22.50.37 by A.Rozanov Ƃ CMZ : 2.00/00 26/01/96 09.10.11 by A.Rozanov Ƃ CMZ : 1.30/07 19/02/95 17.44.45 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 INTEGER FUNCTION LTFIND(KEMPn@W'>.$ٰƨJ`MBO-{ߨ}f[~o3GWA{roEkahщ5E:[\}Sw>:wM൳;u}^n8wowpt˪bzw[c,477y[0&ԽYV=s.y]Lh{k}YQAOhU6}h,:(u5qW'޷l}{-l 90>bkd"IZ|~3}M2(([%7|+X=l@&S;<&#Mة~d%&8h&5cQh _ęZ80ӘSPi]}T+t,ک\%{GrIRQB,TK%֑ZPa J2u9c%FD`kܩSqptjCr6B*ɰi\Mbq%빲Ko}7pR;tΛb&J˲=2bQ8{@nc/L=g-->+K,LTCONF. Ƃ CMZ : 2.00/03 08/09/98 22.12.46 by A.Rozanov Ƃ CMZ : 2.00/02 20/03/98 01.34.41 by A.Rozanov Ƃ CMZ : 2.00/01 19/03/98 01.29.40 by A.Rozanov Ƃ CMZ : 2.00/00 16/04/97 17.40.38 by A.Rozanov Ƃ CMZ : 2.00M]YsGfP<yahG0< 2HjHJFTK )i1?k-WUguÒm2&4 bZ ' P.~a:{nyq˛{;o \}wno7f;åE8{Yz%p;j;+K }vQ7wwjt˟7G:MDN{GTuj`mwc1SM}z1h)w4xx 7f/SmwX/J|KI<e7FnXLw7GoN7.MuܤWno!LuD|겖:(fM{}^Ȗ`woo`fA=sgϘOfQBla ||<{9hf%HqXy3VH_QKlr9'6@e _ mj̥`MI:ndRT[v>r~f>v7 b=F|V1Dp0tI-Et C߽u^VD \ :kSAB3E{tGqnQ[Bn lViO{U3//qg*to8?_}~%0q? br+ u!+{5$4غ n\ga.mD aoPus\c_幁Q>V씶IX"%YGTq_QWe.a:¼7ί(<+(#u:- S|K´ soQoQoa:N-?:r=ic2ON]Ϗ~~00G1UGҸ|||ƝQ|Ɲ4QW(wҸd4*( vcPQ1Y%z .,P#3 4mZ`wvm1jA Y >9bs.ufcm%bj2b`)2e1#$PM~ٜ1_2`cL؉(O1N~۷aƳ8 cNyKr,sgN{E8o{5g'Eq^eGǎHl2"E)xёx#bQޤ|OH.d=ž՞.Cxr7C^PtH~0#tq(ܙ錋Wǡ9.\4瞁C q%i:^) ^$Gg+! !h+!RL2=o;e:%{hYm1CLUƴ 4 c4q 4aW$<1χi`bp}d7G`:[qRU啸b;D'W+=*(DKt]0/Uw^q 58} %RxmeTQt-=Sr]c:3.^wwt9\ɧ)d.ǜB2[4.1Ktc.8c 5=6=b'B=A2OgӘe5TLH1ʟ64IQ#Gw8K 66ޠ5Y6aO˸Hodcvqfek}:gO?;̙n)qwsk|7L)NR>#wf%PǺv3CJo(ayT ]Ka[ߒgp <$Cru5OpB |?%" i0NwZHbjM"+yMq-fNk 1,0ŖkY/'cs"#ٜQ&aDwRNp9'Jk\ɉh *X O\ZBKK2#]&3~TJ茉lE&15Izk2ϫ0}0&;<?R,O[Lj%9S NK'\S5^-Oq9O߾;S ]c׿fzD >II/ ɛd|' I\\74Ns!s/I<,Ψx/{vl~sss|NL)ܘ1znŠ\•p 6FgJF#&|7kc02_S2Rɕ2*HI-בۼB 9W:2Ċc9=,Y&ݸޫ 1&SrjQO8F-=ɗWb>gXV'c :BARX•pu0;^PFmp9Jq)N[D6o'pl Sx]/˙ThdC(Uc*.<\V/R-?sfSI8 s'-^ Oy5tndvRua-!T5´5}bܩ˫/+dhC?n !w7wo^bh '6lVQ)kZ?Ux".7$$w:+=97Nc%ij2&=qY?2)ݘ9ޙ9; ]>\[ &4')x"gEbXLA;HNAn^SN,1ӏT,q33g!_P:(5(Y^k='֞>8g1®ԝv?ldެZSѹZӎ1ԙ|415't5`|6η/ G4z?^9+5y,I,ZғՑ*lr PG=9(oh?dzѱ\LE՗g' ([0.h=$gE/tLNe Itg`saf՛ ۫55יJ&%3LWJI+GDe XejbK>>[~Zg}%R1֌3kGk@ TRnY/`[ ռ:T>x= _py;S!4NCw${n-:?%n󡶧qXSy1|7~Ȕ|֟pӱ $BV>DJt%>PCN8_>R  X>ZcGrO8{K4~c/oe $|W_+L+hymNg N!kygP n`DGkn}kh{=/i|TxYq^795(aw9? {,>e7s#e&lXO>:ԧAŒ/Lqj\9.~#qoԷ6M/糌sqO9ǚ,P8\x xuIJĪa\ߓa'J L7SULz_B4`^u/ĮC͹Y%ϩKs>^H )#'B۷n޷]w,݈<[?lݾ;0}H}Ca;ҁb@;۔&> [0&%v}W?rØP<Rb'??SN>摱YclG)SdS)a+uapd?4? paHg,W q(RHɡq#z2\Gɐ5H…<\U$7M;'?ć:Ӻ& DJ(rLBddZ ?G1}7q/ZΤ~9Ax^䠃 X-g22Q\GA!-(^; NcL%f_A<'{%2~lgǯ'Qk'5"dJkgz<ڛHlm=1أ5ǓH>3I1Nj|qV|{{%N=Z6=b&|?Z9 }rU$}#d!ïqS{m9>}\u+w'bJ~c/<| ?>t\ W 4&xi/{)Gtu/店bס\Rh,HΒ%9C/Eblk=hy56naiwW廋bbG `ğ>+K,LTFUSE. Ƃ CMZ : 1.30/07 19/02/95 22.33.35 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTFUSE(KEY1,KEY2) H* --- -------------------------------------------------------------------* H* Na H*me :Mz<TQO04 Ԥ^iZB/a!hUB4UVljgIbvjj˾lInԋd8?4-[^"`G 4q2&|cdB2,yd)p0D6: ̟5Su|=fv?S7_V:)`(*3\q":e!E4LCD^(K\ujlpF99Rsㆴ\"ȻkV'dAUj53qG‡- *Zv}}h4_Mdf- Θm5T]%dua-鵐Ky8Glڣ/ 3bn\-F3q{AmbU΀dOD J~:֨Ǩ.+YSV=1tе{xY+TUǐFɩL P-%mkxf>+K,LTFGET. Ƃ CMZ : 2.00/01 17/07/97 16.20.30 by A.Rozanov Ƃ CMZ : 2.00/00 20/01/96 23.00.24 by A.Rozanov Ƃ CMZ : 2.00/01 08/03/95 10.35.27 by A.Rozanov Ƃ CMZ : 1.30/07 19/02/95 23.36.27 by A.Rozanov Ă -- Author :M@UmoP'Z(]6 TjRPӰA'tn2WW{o!~$rs -6ww)n{Pzzעϔ>v￐ B_)^,xs/r~K p|`8r\>H0K1fcf( 4c 8 pQ0I0 `ӎp%^}ڍc^{ +)_f~ĸAոpgY^[8I G13HX?sux]`|E~%x?; c6΋uzr_%M Umrv bV{Gu'ΠҮ^kQ󨛗2>9wa緁=rbny:eYk,^;|B&G]Q @9`bPȟD31<EV7jdIL@Ͱmkv^n۽.]m}Yƈ  Mh:D01cvCڕUZ+sNkyTz蚦kr1-~>2+K,LTFGEV. Ƃ CMZ : 1.30/07 19/02/95 23.44.30 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTFGEV(VKEY,VALUE) H* --- -------------------------------------------------------------------* H* Na H*me :MRMo@] .NSg+hrubeq"1B+q#gN"*ޤ@`ՌƳ}#bX]BzMg45WV#; Ÿ"+rh͞RX`e6Ks$ L8F!L3{Y#V[RsVoQI8{MDK\(?a4'ҕ/'y2K_Wǚ 9EQNTw_=Hru4kgThԥPxQF='t#6qd?do>#^"~,w(~&\Gw]¢0FE<8}OiQ:K}"nD=hQU|χ<"pQf"ͦUֵWo]lC ߆t+kREs^B 9<}F *MeG m˲-c ӼՈ  'KNkt,\{>M_Ț.  >+K,LTFGEE. Ƃ CMZ : 1.30/07 19/02/95 23.46.38 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTFGEE(VKEY,VALUE) H* --- -------------------------------------------------------------------* H* Na H*me :M Sj@]^,9V mh &(JF.% l%#)^Gi/_uVPAb7O;Ce 6d~E6[|V71ȸR$Y ]$r% CY^2ΓEf`(`OAN:nw?%kUF,d4͎D3|^N>T-{ YO<&p'"Vگ֠,}uZ:֖&3II5Hĺ!,<9QGApW=ҨϨQr_^Ȱiw<P5rW[ނFyH_jpl90߆;{*w >+K,LTFIT2. Ƃ CMZ : 2.00/00 28/01/96 15.03.21 by A.Rozanov Ƃ CMZ : 1.30/08 22/02/95 21.45.15 by A.Rozanov Ƃ CMZ : 1.30/07 17/02/95 22.19.11 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95  SUBROUTINE LTFIT2(CHKEY,PAMS Un@.B*0g. xl=^%9zIAam܀UzyHd(!F y̐ʇ{$blq{^g++xn zu&ww= XiwǾc{2CDPLσQZX߳Fc(\Qlmy4a:g^Q6W] uc5զ*&bU85 7G˺B7ѾMׄ]n}o~Qn_moO Z#j'ʲ/޵=.=t1"\Хވw${?]5Ko_Vr]{s&kjM9#m8γcxyjCVÜAq;;+ĨCϥn ݺ Pūn2So(jw4KReīߡ| qZ8 gyFq;>KuC{e0LC[;o9j2Ew  Ar?|;Vl}٦Ai4(oHr9kST_D"O[qD,#i7XӬsDw/*.yЃV}`\S,P>+K,LTFTWO. Ƃ CMZ : 2.00/02 03/07/98 19.29.08 by A.Rozanov Ƃ CMZ : 2.00/01 26/06/97 13.25.17 by A.Rozanov Ƃ CMZ : 2.00/01 09/03/95 11.18.27 by A.Rozanov Ƃ CMZ : 1.30/08 22/02/95 21.20.00 by A.Rozanov Ƃ CMZ : 1.30MZ@XnFVnG^>:p1 />rbj&ٰdXI>vjm0@0i ӆְGhh] gh}-^[U[˙ #x_kB9M|zM?a~!lmS7CC>XxC(\_MV!6 #(amN#qb;u O5yqU%(.H <\tkRFz5RCb?j3ұ ݟ/xt; EE:NEYON 3;,K%V ;wW]`5XßQ⋘܄ UUoku >oPV1I1%Z&{"q.ٺ!A$;kkIzV$R}FdAˎ ;rjoW-\3v(m㑬o׉Aϐoq3axx0Vh> pT[yĽ0HWfYs2 "Ҫ V 9{z<[dOO2L|+B6pE vS=_CZHWǚK,iNK'Ԅv *N\: zb05w]r7C Xyb]fbx]uݎvdG H;cFҎIvV~O^B) 3t2Qdm-$̓wwW44'h8}ht/m3H ,Ҥ sei҆% ښ!5y^LLSK|xL-r\anW]+Ү6n+۸5qJ+[Jl*-pr}ɂgt* yIuQ9dsh7{kgEVvǦj\VuA!i=5<:836rŞbk1O0i\ -<8G[-xa|A_>+K,LTFIT1. Ƃ CMZ : 2.00/00 28/01/96 15.19.47 by A.Rozanov Ƃ CMZ : 1.30/08 22/02/95 21.47.46 by A.Rozanov Ƃ CMZ : 1.30/07 17/02/95 22.19.11 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTFIT1(CHKEY,PAMUN@(x)vpj"E$NEB=XĴQILS('T^Fm/[uv7Zt3Ndus"3@^gFw*u(a&Ty> ^@Dj붦QH,nDZ9/cU+ M De!%/P:)mPR/YZY3Q(QNUJyAE4x_Ҕ^[Zu (1x[Rn<3A~; -:S` {~o`Y@h&.V8|~)8k"P^c0yh[K4+zwkQo=l G^ڴ4c(1O4-S[HHkT`vSsƒl%h qd&+K,LTMOR95. Ƃ CMZ : 2.00/00 28/01/96 15.19.47 by A.Rozanov Ƃ CMZ : 2.00/03 09/05/95 22.48.37 by A.Rozanov Ƃ CMZ : 2.00/02 11/03/95 11.36.18 by A.Rozanov Ƃ CMZ : 2.00/01 08/03/95 21.56.25 by A.Rozanov Ƃ CMZ : 1.30M0XYoF$n?L(*ÇT@r|mز( ZD%!8SkhڦE:%N@ $woXahnt\tço0uhM,)gҺnFnV*gkn,u\ $Ya r NN7O[k?VzT*-:IKz2-ys+P Sѳ-eлG_*ȋa0ܮCL~'^"ﰎ=  ΤLjs}Ov#ז6FðfX+pb@мw2J/o}gʾZ޷"JߠWA8D?K̻1} vto;.jXTz(D^8!F~^WЛ2?p4[՘9jͼݟ3M՜ yDD b@wx08ѨrCvrt|W4C?H=gE|y~Bjk;qUz? E>{4q U׵8轢! }eu%[[Hk F11Hc)tǚ?*&nUA﷏(*Q46/٘x *31!B\U\s ԖW'qCm{>4Uk[5'^_xrMٳKhꆭy= Ga7 5})ue5̻5>ӛ=%mARz5D"qŎSmFokBS"ƨm&,+7\N]GAp]?q4҄k?60} Įȶ#l+o wٙ`kUZNtkx{@-c)~~-9nomR=\v/ycjZ8ZfQ5څWznLV[tK2YWQV}6vN8U:9Hjcp]m<8/Gybxf$VԶC'B]m\dkb*q:#`#e򹓟2g0?3>TL6bIz 1RYwqSV&g8mgp-^'ui͎,dڦ-.γ{EKh9i"&ivBf[!y\9W aנG:?i<,Igc. gLˢ R$#2KsBF vD`+frn)'ȸNIMBPT;+Ļ\?.1I ҜK~7WdϹ~2[}3-\ A.~ر)HI$MPa߰ ^Жbo:W_2ny&!I{MƗ*Otvo};|9T\K(a% yf>^#Ӆ&g;T )ʎc<xs뤧}H_H8MCtKش?{1UUK:sH#ycLJUd9;(P v8YءvTeNCz'gɸS.`7WQS5lJ_[⑖=#3Q*X|Z>؂z IS޾ CA>+K,LTFFIP. Ƃ CMZ : 27/09/98 15.57.47 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 21.57.31 by A.Rozanov Ƃ CMZ : 2.00/02 02/09/98 23.09.19 by A.Rozanov Ƃ CMZ : 2.00/01 15/07/97 17.38.32 by A.Rozanov Ƃ CMZ : 2.00MoTn@AtAv#0 Ȁ c",( 7J1M%JUf+ƞ;sSJEaXZ*QAxP齶K$f @ @PDEA.VˈiI?D*#"$dVOψ+pmy>CĐckIM3,MK[v驏oޓ]Bo Y¿Gn1Av=OVU͟;(ccZN}"p)BW;xc\ goOa{ _L2lh5?C/gq=;3Dx.p#wzL;Mʰ)ؾ"p黁0W5o ΝE ydN2"lĺ\6>Pè 4.oJ%=7 >+K,lterr.Ƃ CMZ : 2.00/00 20/01/96 21.06.38 by A.Rozanov Ƃ CMZ : 2.00/03 01/05/95 20.21.34 by A.Rozanov Ƃ CMZ : 1.30/09 23/02/95 02.17.30 by A.Rozanov Ƃ CMZ : 1.30/07 17/02/95 23.53.32 by A.Rozanov Ă -- Author : MR Vn@QT) c#5H2`!1(; Ck(M_uvƠ$jxgb_L@TVdz6,K,׎Oralt h|Ͷ!waWj a'BWz#!B= x d0ꐡ ^+-<5cVs /UXc@<krG! ~PFG ws81k"c DM ;xfݖyhbRfV> QMze\֫RI*_L[z2-EP)p-{G3opt䕊pk:ճCu5ߣU]μcz>20!0N.x'\Gg4Vd;Yw"~Kps1)۟xaxJIg$:$gNbf]l [2[13:\Vڜw'cd^#ߟpDzp].ROzԇaEچȇS.\%*~=} y2S \cC5@3,rD7zy\g9]M&?ef1|0 D9HtAHmo {錧ӹ̼{|UIJx )]3[I>Zu󲦪*E`I hcۢv%2jRT[ }ff 13>+K,ltplot2. Ƃ CMZ : 2.00/02 03/07/98 19.27.53 by A.Rozanov Ƃ CMZ : 2.00/00 22/01/96 16.45.50 by A.Rozanov Ƃ CMZ : 2.00/03 09/05/95 22.43.16 by A.Rozanov Ƃ CMZ : 1.30/08 22/02/95 21.45.15 by A.Rozanov Ƃ CMZ : 1.30MP VOFT ;8&v',d;/=SRQ!A!SKhy[xhphofggoJVj9__Ngx ?jmg6tgsWΊݭN{W$yI3v4-1^F\D1POEd ~a\#HS[4mY\R^=N+ĎoJxU:[+ W&-$2aRlg nͅm˻.L %[?`e@rY*8e/OjGFGʴ'YNx&t&nCJ-org4о4}Np66{-Mб[X޳( Zc2QGm/<`36C-A1"/o\'KIrnc'aZ̕,Ty*O&/xҕh+[D_>Δ?'e㹉AuUEށ0>W(O֑$eNHn|$/؇.ۦX~/1rRh ]+K,ltplot1. Ƃ CMZ : 2.00/02 03/07/98 19.19.05 by A.Rozanov Ƃ CMZ : 2.00/03 01/05/95 22.12.18 by A.Rozanov Ƃ CMZ : 1.30/08 22/02/95 21.47.46 by A.Rozanov Ƃ CMZ : 1.30/07 17/02/95 22.19.11 by A.Rozanov Ă -- Author :MM<Sn@^\w~J -vj/ 02&isJ*kߨ}ήqJF9ڙo? /P/WΊ Z3MJmV"zb~*dT*A縷}}4FZ&4-'g1xSf31~O8`x>p]gq#Й]YE OYO`ѓ}R/>ǺwFtXO  k.Ⲥ׋['Ӟΰkode4'pF#|;ɋx<&hYlfA ZjRo;5Hp6-CgZV!MEmtl2bt dO| mKS/ iH7]S!#s'*jSx۱ƫ3!^|#1LY۲우+aݤ|F_j9TnPo ʎ̣bU)IeT=%{CkrQ,72 go] [_9׏?OOfA3OO/ >+K,ltbei95. Ƃ CMZ : 2.00/00 28/01/96 15.19.47 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.52.39 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTBEI95 H* --- ------------------------------------------------MTWnF&I'EZxkV*)L`ŀ?۞ A{5}},IԨKlgLNߗg0p>N;'vPh|3 >Lģwɽ(Dן30vn4~%8^pW^xQm( ]6e-b/,I/7nbAD|)C[F?:aٯ%9`<9T=rò\M.XȦ,&X|5( *tf{vwе5w\|zcQF~%r;tJ];1Csj8˩rp}"FJ~<t8e{B^,UiJM}y;8nʚzY;ؤ/U> 4" ٔPU.|8MƇ5 Ӎ*RhJU?>I8\5wmFʠTLYς>n{h<գk׳==݆I鳭(}:~4<ui^C~Tu60ƭs-%JʓZeA  ýt8aFbCK=|[4ȇX%$H]>~C)Pۄ_br4Θ-AR.g=Qh6w L_yt}ol?QFSOĭ;nL\]Iψ ]03tp3 0T(>+K,ltfit3. Ƃ CMZ : 2.00/01 15/07/97 18.27.47 by A.Rozanov Ƃ CMZ : 2.00/00 24/06/97 17.03.06 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.42.02 by A.Rozanov Ƃ CMZ : 1.30/08 22/02/95 21.45.15 by A.Rozanov Ƃ CMZ : 1.30M U[sFVq'$K aźP!Oi:S zCz؉^vF='5'4-z`&o| 5t6~_i.o 8BӍ------ @ $------ qXS:  qXN0  qXER& Q qX3S|0 qUStS qU't& qUK@K qU8~8 qU~ qU>0 <qU0z  0EqU#}}#yqU }(q'P#q("\P)"@(q!8@0* qUjq v@_  0{q qpq ` q cq SS t` 0m mfq;mP5qcfqJq@  2qd8e@2qZaRO2qY\qY x!PoxqY -0thch |c@ U$/'=/qT|nGmcd #<"Ygg큦 Vd hQ/sZ@\O3DVke}:_ lFL7"g.c'9WsH4˳~|[؂\tpO!{y-&l/`)ZW <2&IJ[r%=WMs-7W/s@'Dtp] =zD-k^]cY{0&:z/kWC֍N|aҺ'gb$/؉IpE!t|lr(-1q7_zyxen@>U`N"^7S!P} R!ō$(@ͮF?zWHWHO4#۷dGHz)>3kA° 5#6YuJپ%;J_ՠ.- t-!POQli[zQÞ b&n 8{|_c/cV7j GpϾo3~*ӏ :֊3Fm6FvHvNC /[:]qθ![}n3ݹaDvU y-E驔ki{j)Nъ|HR%mVwOptm`zP3I-ÜeE_-[t88#/+:,K}ȟ#WLVEq&:ɶWc.X ڸ:ׇ )|XFդWzI&wo'#G_cckDPbf|R~>+K,ltf3. Ƃ CMZ : 2.00/02 03/07/98 19.17.43 by A.Rozanov Ƃ CMZ : 2.00/01 18/03/98 21.11.42 by A.Rozanov Ƃ CMZ : 2.00/00 24/06/97 17.16.18 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.36.27 by A.Rozanov  -- Author : A.RM!Wn7U%_Z1oZ9z/6[wW_XJV( G+iZ ԗ~Ig{")&p8Z^/=vpxtOIlhkCIZ[ dس:ަ@ѤK]e2ҕ|i}L r9 M"/2A[,ǦqM{9]Mg+qYz6@ gz S/ !2,Y bd{vǶ5qM>OBaia!z!By(!Zؼm'(-B9h 1+3т=do`Q` dmv`>y<<5tnZ}ԱЃ'fd.U/E.j~^,wXX9j7ԂpC]󼓍eh'eL<ǸvIk6= yN?EStN)r2ԁ }P bS@} 2M<:g1}1=\֫urxr9'^RT_% u[nr߲Hk8@?KLjgӞfI"p-djb).VR\{eRX ۪sb9r+;IeimLY| VGMu_TZg |.>Mgz&Ǒ@HE(]M^[0fXYzMҹAs+j9]㍈%NY0?o=C-H s=}Q0VHϋ\r-x&z3Wv)ba*KRam% ZS(9`<s=L  k=mf#%[.(4$ag,w sl=,PJCLT)Qբ>I?^*?lG'\ G5:>*XZW/0/0BAxm`JAFųJ7NPj6\+[.M!.7:I+$)grG~?g-ƲK-PX²be݅e:)ٌeZle VX֭uT|AU&#dWW2x, JX} OsKYCd ǪpPp Osro '8JYCnd ǮpPp '8Zپ,rwףm|=B`Uoӡ*aobs:G2TuC3?T(e{dzʤ>vICuRs, >+K,ltufn96. Ƃ CMZ : 2.00/00 29/01/96 11.33.06 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.52.39 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTUFN96 H* --- ------------------------------------------------M %YKsFJT9s >$SYRrQP\ @>$HN)^mև?c1 (d7%1u7ݍV[ʗJw뗍ʗpɓC/8;xԾ~0'qd@Ng'b<>KU:'|R9IGqtm6*q<+O_Ǘc^;aBwZێ ?nOZ$DMkQr6?7҇6ޟ1zgW}u_#8G'kwvcwv`};N96\N~x]٧Kb^cቂ_ :_xM ٴh J ݤ$PsHpg4eiץB$}Vu2PO/:vqic*;4&(DZ|c>#48|pc}@b4v,)IFOk: .qm{2`:obZCq'4q2|%MwkFE[)2`p8HqD772yYiwqń8X KVM0EiQVsu2| 53VWhIpwl f5p*i8NYI,5 ab(8[,V=AO :|KA e/T dF\՜zqGENj (ޚ.ò8pŽ"k 2垟Ue;h.k.+aKWrO~M+3ז8ĉ:tQX_ƦdwgZX|ݰw?YP 4~+߭oCGlI {t!D"cV)N[Ka3#t]ᬪ6t1Q} o{?]R'( ȯ-&>lT S\N+ESظ!tc08 DE:%XaYXN8A-N_+;)X/رMdom!_}͉{vsl!hzTc%6J/ o4:4@֏y߱- THbI[@|y>k'yVgVpn#OƳ"K9?ɞV۸=r98~= kmQ-w?~_d=jtJj51vpelC nPl-s-jsu58oE;OKl]vvwD6/}=lߺ2/qW[䥶#:l-F Kq}o37eǔU.A[ Z YesƏ)iJrTլ;]e@^5}{ijQhpm)v.u<3U]d8G :- Z~w~10t=ɬA! йxU{64 [l&W;~e{I11Q'QesYpZel.3@r~ߪ{Fπ~i%&ʤPYS4YNwtss%Ǫ4kmNk^;^ \GJ<70 Fx=l-غv ;z?UvyOμG=KYgXYmkFP5L`wfIT a5TĊ8y8'TW>R繽Ǐ4':DՐڕ܊3Z[wzCͭ~vr|>'Sy!C| !IK :;#cH/TFjI <>R"ɉ#ÀߏcW[Vx<'^ᬛ ~r~o?q'ܥbsG?!|]cw˾R|9U?ĝʎw)rQr'EK%ExkyKִ5o\[~Gu8oq4u8(o3WlQH.EAH+cr |z\(7ڦ9JtW̵+qKYZ˗@Ŏ tJdƞ&Grη{o:-,>+K,LTHROUT. Ƃ CMZ : 2.00/00 22/06/97 15.02.45 by A.Rozanov Ă -- Author : A.Rozanov 21/01/96 SUBROUTINE LTHROUT H* --- -------------------------------------------------------------------* H* Na H*me : LTHROUT Mn@ǗRp:·P$,P"PUE9lM8@@p獀 8-!$ޏYBN[dZ o>{_jbv׆KWJq KEWНrqX1a4z#X1fqA\tp2R/f?-39|a/xɅv&N}F݆[b~s.FISk^<MrGelI-?՛8wZ7<+R$ov%+_4\'1 ɋ'!F{p[H$Y $G>yB2%Lif#[ ){A`Sӄz[ݦɘ_'A&ϧR >)rps*݀'I+K,ltplotvi. Ƃ CMZ : 2.00/00 23/01/96 20.40.46 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : SUBROUTINE LTPLOTVI  DOUBLE PRECISIM œj@U9%>ܤu6JC谭 %D^ۘ:Ԏzo.yJeC h53ooo@se>!Kn nʜ=pLDq2-̫0(.{=qcS]\ߤ \LD#汚|hn3#*NS9|0C:y5.<ͫh̷si{z)\݌q5 v&36Ciz= dFf7;W]6|u6J{ZF[Fl iģ2a{jVķj8@ޝ- YȱvU}~?>+K,vmexp.Ƃ CMZ : 2.00/00 25/01/96 10.00.49 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION vmexp(AMWMZ)=+,DOUBLE.=+,CONST.  C=DSQRT(C2) AMWMZ=C+(3*C*ALBAR*VMTHA)/(32*PI*S2*(C2-S2))  vmexp=(AMWMZ-C)*(32*PI*S2*(C2-S2))/(3*C*ALBAR); >+K,vrexp.Ƃ CMZ : 2.00/00 24/01/96 22.04.50 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION vrexp(QFB) =+,DOUBLE.=+,CONST.  --- --QFB=0.25*(1.-GV/GA)  QFB=S2-(3*ALBAR*VRL(T,H,ALSBAR))/(16*PI*(C2-S2))  vrexp=(S2-QFB)*(16*PI*(C2-S2))/(3*ALBAR) ; >+K,vaexp.Ƃ CMZ : 2.00/00 25/01/96 10.01.11 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION vaexp(GA) =+,DOUBLE.=+,CONST.  DATA T3/-0.5/  GA=T3*(1.+(3*ALBAR*VAL(T,H,ALSBAR))/(32*PI*S2*C2)) vaexp=(GA-T3)*(32*PI*S2*C2)/(3*ALBAR*T3) ; >+K,alr_frs2. Ƃ CMZ : 2.00/00 25/01/96 18.44.14 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : FUNCTION ALR_FRS2(SIN2) Ă --- --left-right asymmetry for SLD  --- --s2=0.25*(1.-GV/GA) --- --sin2=S2-(3*ALBAR*VRL(T,H,ALSBAR))/(16*PI*(C2-S2))  alr_frs2=(2*(1.-4.*sin2))/(1+(1.-4*sin2)**2) ; >+K,s2_fralr. Ƃ CMZ : 2.00/00 25/01/96 18.43.25 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : FUNCTION S2_FRALR(ALR)Ă --- --left-right asymmetry for SLD  --- --sin2=0.25*(1.-GV/GA)  --- --sin2=S2-(3*ALBAR*VRL(T,H,ALSBAR))/(16*PI*(C2-S2))  --- --alr=(2*(1.-4.*sin2))/(1+(1.-4*sin2)**2)  xalr=(1.D0-dsqrt(1.D0-alr**2))/alr s2_fralr=(1.D0-xalr)/4.D0 ; >+K,ab. Ƃ CMZ : 2.00/00 26/01/96 09.03.02 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION AB(T,H,ALSBAR) =+MjSR0M>#OȲ2OG"L1sH 58:Bu%'@zƶ{uNTvZFJzU'CHH[|;Zm,]-X9TvH+;;bؚŴ $E*EA{X]8?l - &ϷYhutTh( 24:OC%׳ X) T^kmңP`၊Epz/4'pS_"oW5%]ŨRԣ0-`k|xz%^~P-s>F3t )Ґ.s[_?2|Ie9^ֱO>7>+K,lttab2. Ƃ CMZ : 2.00/00 28/01/96 14.50.28 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.52.39 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE lttab2(amt,eamt,als,eals,  1 sin2te,dsin2te,dsin2MtUn@оprS''MAH%۲F o\୘ڮJ+ywvvuElA'[5+Ý/DN6LpN;Oٝ%DҌs#(Ɵc>Ϛ {g4:pr1{6'IƱ~Wi3vgK.{r}~S|5/][ q⦔bl@\_G`W8K[CO0*d|p=;˫K x|Qv.8G[.imzMU[DzW?` ]kVbN-W򃁣>[w>`l R/iZp:ј!L5ʺtS DP4AzǍ4;Iw @7j ma #](b|Ģole<׽#fEvVTj:nqCrML|Yg[{uĮiCңzGQvB:V"^leZTmDNkDh#lbv_Y%N P:..K8WWWk([?l5ĺb[1Uw4f+K,lttable1. Ƃ CMZ : 2.00/00 05/02/96 15.54.14 by A.Rozanov Ă -- Author : A.Rozanov 20/01/96 SUBROUTINE LTTABLE1(AMH,AMHMIN,AMHMAX) H* --- -------------------------------------------------------------------* H*‚ Na M W[OGHDw.ӦA1^ww 4C RW=̬׋H왙s330J-hwv;aؓ`<] ԏ{;J0@ ڧ'D{hõ aɾ#8q܋/$Ƭ[KyPp"\ oI݋|9Ã?i|o \.SE障—g<هavMc\.CR^1cLaK۬t"h]n[PUkNus28|z=Cm:i$[Zaȓ=j uX}]yj훃 "sG[gF"Bf ͨἠ\d]oJ8lGG`m.V{LHYp+Q#gfP-+ヽ}6~Yt'$ZJv6<\tV(m%h+;Oɧζi`mvK厒2Qz/1 ^!\rY*t6b#h]EQAvv['7At= E"(P u&ܰK2bxNW+7bzDVU HJ9! &^8z`( fU2vq m3mK϶t&11kz6M1OlŶ^/"7tv`Xe7k1oI:/2uܨ(&xx)`9`]J_͂G3g+쾋Żn ?s`Z 5[k}`B#O'H?2Q褦D@l"j8SYyQƮJmf=Ͱ(Ε^BCkM},RVU>\@V25"KB@qS$vJ4oN:-s: WNoh2ӕm,y._(.tk*ׅ5weAuR)Ak<6ky|5O5TC2ɗL%Tl,_ҘOY{=O͔S Zg6*j#یz"m%wp-Vӗ՜Un ѣT54"[NpW.'7^Oot(OהzP]QVPA"1VYWj٢3q.L0w >+K,lttable1_bac. Ƃ CMZ : 2.00/00 29/01/96 11.40.13 by A.Rozanov Ă -- Author : A.Rozanov 20/01/96 SUBROUTINE LTTABLE1_bac(AMH,AMHMIN,AMHMAX) H* --- -------------------------------------------------------------------* H*Ml W[OGv $A"ɻfm@ 8bԘ6 B`8kQZ/9gf^B^Fb̜͜1P(} [m)́ᇃ'M75|v%'n^DB"< XF4MF0gی8ėAc-5< ~h .7$y Ag㻁O}3q>9jc=]@8'LbЕ5XXT*P筜wQ6KZO]-5۩mn@1Sܶ'O_ޢ'O5]{w2@y:sT5U 0FO.;u~)ྮlAg?\vqpSY"#0y=n8h/Y: N," Xb)RLmImE"J{oJV`oEm1(Q>J_a]T.u3Y?6\PM~~ C(~$xy???L?:)?緄9ۙNԟWonTk]7mqEFl*I .w7H5]sqbFXwp̪|[UεA,7h'tZt]2ӫe^+IKX.|U\^Ԉ? ^ EIuذejzTj*e/IؚYqO>eL>5SI5j Ptf| V4az;f)­%^jYz\G3s.^NoŴ-˧E=~)9WX`0|ε%֭cW׬~Ul|ҟz[]/AC>+K,ltellis96.Ƃ CMZ : 2.00/02 03/07/98 19.14.56 by A.Rozanov Ƃ CMZ : 2.00/00 27/02/96 17.03.05 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.52.39 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTELLIS96 Mh V]oHEvRn{p q:HĴX6~ا!kFn;]Ha9~͌#I酦iRB/7Kp<7G`}۶&6-ǀHWWA^NgKz$F3U)f[a4 ?v4w9Ќ!tb6C:1N>zq+{Mce]1e6!", lOV뷼fDlr,|ϧ4Nm }]zQHA7 0#\8 ޥ矘WGcǕ *|a|ͨ4/JgY+MI)}ud"wONNㄸ+:1#>n$被7tuu3cs, k]}XÕc7^${{""C)d&l;аcq3mBcڜxl= "X0F~<@`ξЉu^%uNKJwt9vb~B;=u:##2A/"2Oa=V5E/A"ޖmeb;w9ưz?1W줋dϧ.ϕ)} 1?.>+K,ltvertex96. Ƃ CMZ : 2.00/02 03/07/98 18.19.45 by A.Rozanov Ƃ CMZ : 2.00/00 08/06/96 16.47.42 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.52.39 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTVERTEX96 Md VrFր$3;\I#3\(&B0Btګ RS!H'Jio4[-"AgR+H%iP"=k4Qt-=Iz[[zp]vwF`@YƋS`ë _<{u͙2ts~<|oEsqŚ M;ōP:znJЏZuIE>S>I5~+j*^-[^'ZCMY6WYz-lTAȗ]苣臱nRkhjMk$B~J66LݕZ=.ҥyȘŏ}ۮYL/$cQF޻ka Zb~B3;;'GDeC:1xLK@X A 64 _S3o+Ikݻib c[.x9'kSV6'!ƿ >+K,ltyad97. Ƃ CMZ : 2.00/00 23/06/97 11.09.11 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.52.39 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTYAD97 H* --- ------------------------------------------------M (Z_sg%Gvf ,$S-)y((K1$$9~j5CE9@eN< nwqZ]GRJ+8Q?olo]]K?Gah@Fg'd4:UuN0'Sxq^0 /2eSR]x["80x5Ic}t@bl<eGc(F34"lO46FqXnZXՀƓK6540.wBWa\6muw >~gXY{ F*X&K"_`Rq"27hV3^ԩe_ H͌DB+[ƆhI[w4wll&5p*igvXZ0ר3LLR}SE,Hcފr? RBV=%=)WUi;"S5o aip@}b#mDqȖpOe;h.O).+ae WrO~IK%3ז0Eqٱwű "ƣ?<통s>7G =>-Jo _zNmql7~qKj2[G-,u1QȘw e`0w֑K.JqVQ7=´mKjwmR+z(:E|Z^z]_ƞZu 5#q 4."ʪ:5 jnϱk(5^DosIl~)mD:EvӜssc~ I9,Zj`gD]@y`Pj0hH)"՘8D/u} JDD~g[u[hh*a$6'>,ynyړ<<9>\ç&m8ik>< |}!˱ YUvۄή`nw<\_=?8Hilyam_|La*wQ>(x,<% .xi `(ǔЍs%9|DNEc: Oԯ^?ӛ:S+pmwT7 ^4Ũɾ'~ nk~2#@ާj{5 zfYP)WՊҦ4ڽc_*Ә5:j9|~(Mg@^<:Gt!Y=u2Qio =_0nN7c䤡5Rn9"( &-.j012?t:i1:s[9=7tj Q7ki̲r29:3=/Ҥg;&odԑ;)"D]"i/[= Hayk(޸4Џ.R)phdqPަܤ2HڃͬhM@^<&AWڹ\q/B%|T[Yh5W%0r&9Ze?;\_:| ? >+K,ltvys97. Ƃ CMZ : 2.00/02 03/07/98 18.20.31 by A.Rozanov Ƃ CMZ : 2.00/01 13/09/97 10.03.55 by A.Rozanov Ƃ CMZ : 2.00/00 24/06/97 18.51.22 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.52.39 by A.Rozanov Ă -- Author :M2 P&XnM0{Q)ZՅ;P6d9@$""^v^: Z{=:3)MEwa6y7#^;wکTv>]\]ۧGy{ᏥoJmW*ז7pg@o[bY0zZ9'usd\NuO/N#ˋ#]heݿpPf 47Cŧ`)}%??;a0soDL̜u WdJZb+M9c0 G0+ \Oc?Ģf+|ll۸zzO" xgjf1fXdvO4UUkje,x}A ݪe:O 7:[^jЏ=}24TLAK~4ŭV_GѾJi[;s`42<\x ? 7Gl>ť&G V$`,0"Nc4pd 6O —h& hj$cb&d1Qzfu{WhS ;$a$"֫GB:睳T UKru<ڴ%Ǻ?-ۈ' SY ޛF^BdTj@o[}]'R3 G@%\PQz;/}LaN؁f8)$;RU= ObWKUӅLViSvi\i6UBv5(i֖8*!_BK%2Er H)&%).W,'Y+B/d8[gQDjzN3DTY,QKz[T񲙒YpR.vx5:tĜ|*?o3H"PdUG "(~جXȞ: ݙ{!O՗&p)m간Mr\7}W/̳X݇|(|@3Vf^Bc|H>hF mZOk~Ji@j瀡X6N uR^$_%K=GO+FS}hs]=JXgW{źmd-+I~=L!p4fQXoނsκ,!W; ˄j:@jMltGdϪ*}6-x.R 2] ]8RnD)Iz3>unΩlDfCFd{yB'7{Et|E|^O2R$Ɗxq)%!i-;OBޠ9sȿ=8MEsxת;YpƇL+>~ȜBۦ&(Qw>_?Cԝͭif!bV$k"Ɣb`xzpwPHDÐ XāMzh.7K Ŷ"%doHUwK $u$YN޿N2R Ϲ1PS5bse2|ʟ+K,ltfit4. Ƃ CMZ : 2.00/01 28/07/97 23.20.50 by A.Rozanov Ƃ CMZ : 2.00/00 24/06/97 17.03.06 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.42.02 by A.Rozanov Ƃ CMZ : 1.30/08 22/02/95 21.45.15 by A.Rozanov Ƃ CMZ : 1.30M V[oFv! Od0ۛHVo|QUn`5@jޞZR)kQ/93lm;3˜15a0k'9wL'B٫Vv55Ig I~AVS+uޣ%fJ CwObŒPOI$;$Q/j4'屢t*(*T,<0G2vX\K>@Cn4Bg"]G ^/u9 W\x0d z'nW̽x`M0x{9Fd޿;^۱y5rdԌZ>._@s6Lh8zѧ Pn9z6|-Na>Pvi8f?=)õE9Ee5㳓žGTIN>LÎH'.yh8sfZVqᆴYrx<]aݾWW>5:hzIEh =e B&8u/MAynW5 F"en"=n|'%7@jAܠ CMxW`%}VQpzYAv0UҎkeeݸ]<[%,(͜&&&QE14 zq{ݵknbhH-pC>:Dzʧ`l<@zh}/M6oAmQ@v i Q2sh^aS`s-w9}U8}s|dߺŷŷo_ӌw8^I!zJxM+K,ltf4. Ƃ CMZ : 2.00/02 03/07/98 18.39.38 by A.Rozanov Ƃ CMZ : 2.00/01 18/07/97 19.58.44 by A.Rozanov Ƃ CMZ : 2.00/00 24/06/97 17.16.18 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.36.27 by A.Rozanov  -- Author : A.RM$XnFUi|ļ)PHb$UDky>_һ r`y=g.3?nGQ̆y:+D{8'F~O>\|xH1^\w #i&&GiR=8,Y'NFi eav<)ehC@g["KXt!vr|ľ:mOpjl -ʁk黄L0MD`<-ʼḛ̇I@{da:Y@+7> я 8혁>_^_LGiُ @0S8(jcKkkPa[[Q5z7"a |cHG-4 udZ:kq2K a)^Ne"4=r/gŠWrM{?uTNI BX\^˟ mGt  c݇v 4*6g2dYXd{\_/˷_W :YX*^\l}eW|YTrgSVrwSUrHPj Ŕ]#4*|Mp LZTlQ"c,D*C00h0N͹8̅lŭLŵڊѷc>^ǫ xćkS2zi&Ζ.(fs^sVc(h5z0^ }(oTN5,&~\? q&՛7kqcLjlg0Hk^ϛ\< ϭ߃ǣOYfף87뎁̊|9TksD{|i< -Hی^;Q',!\UMGz#bS%;hL#AK-Aaeqo騝D>=S\ˬ[0&R+du2&'Z} in;S~\ uϟ||&0ږ4}&WfqHԥEek9 yzq{M =G >\CdTȰ޿'e;O[74ψj,cmWk@-|wYE7G?t67ދ btR5<1BTX$%r s!A#`}ŵ@~R'r ?mDx,&ϩDí1Xt?t",Xc9c9wa{]C]r0XnX]X_뷱xcye1ƘcF]MTnp!ZZ$FE,ZzqH8ldM2h[QT(2hd48 c .lS'*tE#c N(ZR}UB}{♢eg*[L.2eTUTmN'ګ{'\9Bj>} >+K,mn   R SR0qUStSqU't&qUK@8K~8~>0 0>  #0} #} p`P@0 | |u rͻ"0arͻA0arͺ40 mrͫ7P5rEtP\mXm fXerE @0 hmbhPbKP eCKR@rB?54?%4#r?04,0",p"`P@@V  0 Rpp0[ [`Ppint. Ƃ CMZ : 2.00/01 18/07/97 14.50.54 by A.Rozanov Ă -- Author : A.Rozanov 18/07/97 ǂ $I d: mnpint.F,v 1.1.1.1 1996/03/07 14:31:31 mclareni Exp $ ‚ $L og: mnpint.F,v $Ƃ Re vision 1.1.1.1 1996/03/07 14:31:31 mclMWioFVm"?d:( !HJג/`ɭ[2l%6-ET!e9u~(J[zϙ傈~کH n=XX_F:EC' DD2c]su#(/=7d*7(#md%u6)9c|K\.Xg_d-z#G݊+ߟh-e;岰S{iI&]Y)"^:G4쇎JxC}S2/轊[jD/"li?D=eL:cbpqKwmLڭ`7aKܶ4n7jZQ ۳%b&FN s |Lͪϲ2$K= Gt{#O GXo~~=Vr_vQz>hs]%v8D.ʞA 08< 8L3q = z8P5}v=Uwp87b?BC'h1dqGA~KFCծl0 ]g RF"gqRs)`p"ObıgX2G!$}3GI:'tlCh}ĀC PjB&|$9GyILqKb>bފyc9"I8l^S vSUspXj<,dU45Q'Y林yYG eZ %5~Z[MB&=T=T=`=,{P¸w]iSlՠ%Sś^ jNKk?ktV}?_]2sOVt\o@ݭ_dA]h8̘C&]kX}~_iuCI-ОL,˦9:z~ Y2RA:ɄjA^F{b=7eV{PװT m1(d7?ԧ+, b&QőCNN20!QEkU?Ryڻm ~[?TK<*p5  lIOsW iS-Oi(O O!̪I߶b{ۙo^?cuYZċ7QUڭ~-TuL&&=OB'*)>B/M>+K,ltwint97. Ƃ CMZ : 2.00/02 03/07/98 18.21.10 by A.Rozanov Ƃ CMZ : 2.00/01 05/08/97 12.41.29 by A.Rozanov Ƃ CMZ : 2.00/00 24/06/97 18.51.22 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.52.39 by A.Rozanov Ă -- Author :MWnF$NnIy$ۑQ-QI6d9E)(idE師iPt?jEyHEim3.U ōBus:OgQk/Z&~CI&su) GVi)Z㰅z_wo9߿q+f'$r1[V<=gԻ9C_~rO X6FC4a+-c׉g!! #@p܁Sn !bPL}.>JL80tr&Fe}Y}A}"+fU,so85KEnI*cp#cINP^Ea|o}1q3p6Y’eM`2`8r=72" 3 9D@Ǎ Lw`䜇_CL %,SbTd=h77Ġ_AEmx$tO;dx]*Iq8b+bd0;0!_m+1K==|c%j]K:T: UAI"FESriC|p"D9ӋA_ }[iU_kh(_ƽhwc~~+Ac{Fz>"5b(vf@E %wH[<""i΃v .KPb6+}(dpa6ܺruБENkr}AѮ,wc"S7;]P^ة0*m(0ao2Os&=>I.3G}ZgQ'%h\OvCx8Vb%&@+ӥ0[лh)CAƚo` X/բV*&7z #`aBiqi* ) Q|9-ՂLGmڟ uґkWUw > +ϒusc nDDĭ >|wMyװ!lл!xнrLtY qe&vyRݛYcEE kż5*gӅphepo~Ml$桵<ߏw}ދ5y ʞYwx b軤 n#7?ҷ)9niwRT8Ep;/qFa<}uvz!!pwokoTY*k?o; N)Ǝ ~lK~^'C;=*<e !BQBUðhW׋+;,m8KQɞ+(πcdBXSK7/HZ6 bTͫ(Ǩ_ob1Jc ih 8an\~ǵkW|}0 A1]v~QFEJy(SщoA[}lR/&K1 q Kjz}ru'jpc5Z}h1H'swIZj߿/tJ-WÅ2ajʏ cB]mV)_ZD(SП@=4E>+K,ltward97. Ƃ CMZ : 2.00/02 03/07/98 18.21.36 by A.Rozanov Ƃ CMZ : 2.00/01 03/11/97 22.38.45 by A.Rozanov Ƃ CMZ : 2.00/00 24/06/97 18.51.22 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.52.39 by A.Rozanov Ă -- Author :M 8,YKsfIuڇ zp+.TX-P5p^$#y둰|r{^]E?A-+;]\z?01쟞"ݑCϟ D &=c"ۛl{44;9מt` }g-0t7z/X\(o~CݭQ;fѹ}^Uy:~PT@}o,&!EZTͪ]lQ3kvͲݑ9ޘe^G?̗U&E;BvfVcwpM~o׷ @a]۟YW &#oES' ȭS I{Ii9z>iv 57*ưC}5醣y͟tԷm芞K\^^K ۿwX OR9O䬝ݳK2l]M1KL!^[z`;AQq<.pXRQ H=5=gϮᘵr6fXh ˥Mrɂc*S10=)Y.'Im9fQ.9ΎmEܲ,odBJϜH:lk`~ȣHΕh TvJ;Z.@w:+Xb4ڂFg,'t2Nwd-Os—&sxcȘG@K~[+?`>o1;xC>LedDQ Xm;>hl S 'AwHa,GCQ>$<[0i^i$hHpT#ycWayF%eɱsDfP$o*bTF.[r[r!gC#5LPQyw9_>ü9A\Lxr[5/z1H/QMT۳霩VV&NJz6yRwg _Q:5TC.6,E4#o4ب^YUjTH95F Glt-?hncDdlUjsg.qY D˲J2l^5h!Kn'4}F$ȮUၘ>AP ,|R&oxؿasp{x}Sv~\]ρpKݢ{fQņ >G%Nk::ŘRcb'NQyD*-_4*+Rk^7q ouoѲvլWuWnE$!z3ioS5.E- 8&J&2l-,uYLiV1":(39ciHtn= |rb63w?ݚʳl}v,=֮iskONRPء5% ɖЍ*ϒh&9ßD4>$lw?7=hƬ.r6:{d̼Ӏ 2Ҧ R8yx:&O2x9xjiLwϵFe3jɄSG :Ԗ%N5BzNk>AtΧ ^*X[ŮҕNLTGrx'zDUfRސҌr|Fڴl9fNi e=Pp(jB;:ݑ*,V(HTLHJaJES~+HVڢf)>;" ӌ/FA:pwP-bFZH9%oHf9tMNf7 ۇp}u"^.=QHpfWYH`\rL*:xH$F@o`TsWSq1 u`3o[ qԏ*a(JDC/ -XXፉ^wJ[5. 4Me|1YArn?D/JNN%h d:.}5YEY0>Pew);,m7R$J{zAϟQX> vĄ{2QyoL q-U͋rxP%UJ;?e4Q~l3nMIPX' 8Muwq8 AU)ܰN٪S<ԗrٓ&lZ1kG|ˇb[x(iKUs^x%lZ$Z#f*G|P=f1Q?yA(?Hf]ch>1[IT(>+K,lttable2. Ƃ CMZ : 2.00/01 02/11/97 18.05.52 by A.Rozanov Ƃ CMZ : 2.00/00 05/02/96 15.54.14 by A.Rozanov Ă -- Author : A.Rozanov 25/09/97 SUBROUTINE LTTABLE2(AMH,AMT,ALS,ALB) H* --- ----------------------------MH VOVZVgO)56M& N6*n/sGPUڦ])> OZ5Fۭae`ápV5Mx+>g40Q]YɌh4΀gdY+:ep lH2[B|b]Y:xU09 #/ ހ j+1:H]Z c"mI-Ӂd˃2{R% ^>E٤/TvbI'itmU=vwzﻰ  d+L ˷W|l6|b;G*@ao|: 98LupF4;7qEs-LoзRa"IRQ6Cny>![6Ox3OE;JQbny@ my"B=nԊԗ!E^Q&fɃUT8R[Is/]k[5=R/ʈ:BRUʚVF+X/Y׮l c#h)ME0Kh^!Le0I䑱/[h kQM|E) IPOppYuwbE]^0,m/Ϳ+6UԊvMU#MuAJKS7[_҈|LlD^6ȂÑKsR-ev5^.:LE[wU]v UPINWo`ٚxuwiLwz٭1 7b}Q?_ALR>+K,lttable3. Ƃ CMZ : 17/09/98 07.30.20 by A.Rozanov Ƃ CMZ : 2.00/02 05/07/98 20.03.51 by A.Rozanov Ƃ CMZ : 2.00/01 03/11/97 19.33.54 by A.Rozanov Ƃ CMZ : 2.00/00 05/02/96 15.54.14 by A.Rozanov Ă -- Author :MWnGt v.Oea%% &q Ʃ˪0m.$Qo/_33`DjĞssGop4yyX+]0put\k?>ΓIa?MNSɲcwfӅfsnK2 Ͱt&8<dZWr]K;+K,ltobzor. Ƃ CMZ : 04/02/99 15.28.20 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTOBZOR H* --- ------------------------------------------------)gAb)9[@L *so>-Q)9 '4s'@|f+%?eLʫXy/ L=yh:P:TT̐o[T%jE)(6)hSp+]G{h.%Ũ+mcq[rPT HcI~o,6KN\7FaRJMReLEI#vԦhڮ4Ųf(rCsA`HƫwD?U _㧢YMzM dJne~]2-"!-f>. eΰE/f/M27|p"^T3Gjmo%goǡ#0EKcPol| I >+K,ltmori98. Ƃ CMZ : 2.00/02 03/07/98 18.37.01 by A.Rozanov Ƃ CMZ : 2.00/01 19/03/98 00.47.55 by A.Rozanov Ƃ CMZ : 2.00/00 24/06/97 18.51.22 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.52.39 by A.Rozanov Ă -- Author :M 4,Y_o8aP)Yd:Dg ,H^ JZYD$!iܧw F {{tfv"EJiKLggog)R;g8v{; tqy96ώmw}|>)NV,P߯-'p''#yrG~]G?EoLo.T\~AӡĴ/n}d MNcuF,AYoK1 ZsVr;N*S\jy.iYko.up:~VV@o"!EYTͪ]lQ3kvͲݱ5Jٲ##Z &xS"{!;eAVc'w/qMAx~vT7le%u˚DhMtt9Cu{ op^QJ}g:g]F ehKӰH~yqllw 1}`GpvzO^3%R߷'.xx!.( gb@B͙Zyv.g^^aK:/+" U=haӁ `'#^E!e G5l.v% Lla"(B{Rb\+O 4s.:rqn/枽e8}ð%,I]Ͳ2̏ytɥ=qv~iQټ2Zg[r\\dd #8 e`cŒHڒ>͡W_žᩒEG@Ktl~[Lk?`9o1;WxS=LedDmM9Q m;>hl S 'AwHQ,GCQ>$<]1i^i'ydzRSjf$F8qñ^ohzXHLa `¹A"3ߋq(b(o*bTFr{z!gG#5LPQyw9_>{ü9I\Lxr[5/z1H/QMTV,V&NJz6eRwg _Q:-T'C.6,E4#o<ب^YUjTH95F Gl|-?hnDdUj;s.qY+D˲J2^5h!K~0JXmM$`v"NTb:@HAF~bamΙ•/>RMmڭsr9t=Q.]Sڧ*6T >G%Nkjvk1iԘ؉}7a=j1H`ekqQf[bԽ>WeEj&A=ZpuпuSߓҿ ܉D@2$~Q`W1m=ҥ4(˱qDD9^MuN=+)*FQXEg%zb36Y=wl# ibܺ]_Э5~gޅKAON :NK[SyvX؎U~5-x6 ;$q31@Y${8?hƇdWf%'ØjCn|؆TgϖYvP{AVF4AXJӘ$OOXO1t Bc/\8X "S}B߱tFZ;phARQtސ'sy|yQ3TI}-ڧst TK|kҶA2ډHqm٪gG]na=0-Ui"x ,9{iMѶjc&PcJ &Z}jzaEŤ$Qd0巂$ou)-j#f~-6 7L,)ZĖr?"Jnߐr; !nOE].{ Ye=F 9T~̮ڳ$YqvlUt{H.ԣorb^u5[. q*a(JTCo -XXDwo;A^K o6~E&06#|'@dN䔽~PAϥ#j ~0A1\u[E[{v3-E!Z@9 #&?3cʗ7ohkl^dÃbT/(ǨR5(yes}qk:H5&W8ai쯙A+0W+î;%gJ_NP֧S_eOYk&, lL /RRLbn)>/l1o/Wx)㕰Yk bjX1A)D=#f1i }wFr|vD| l-]L>+K,ltsusy. Ƃ CMZ : 2.00/02 06/07/98 16.56.47 by A.Rozanov Ă -- Author : A.Rozanov 24/06/97 SUBROUTINE LTSUSY H* --- -------------------------------------------------------------------* H* Na H*me : LTSUSY M L1ZnV$w(H-Rc'QNmefAIE(:$\vEoF[{=zΙr(R&9?s|stvXgz._k`okoپ>ED3t6˩ s6\Z^`tܻ$;I{i֛EsR8Vsgsm%]?e` rj:,=WQ<-9uGG}gw:~S{i<Yc g Fo-e~[omy8N0;sEr` |@2y3). f,Ho$5hћmu Ez'`~gW35gs0?$MA ][Cy҈zLh I7DK]ےK}r8l<<&2uq_3!3nQL 3Y!|@Jj4_hfQ.A2b =F1̨kB = R$FoA0G(t:9 9OϺаvqGDYf{G߳ռoh0CO;󭼦1eNV87%Fql9;1@yi#)8(ѡۆ0h=:܄m G[o7ۦYobfTfӢ>.eh.e ֛0.ݴL?8~'J3Q.%JNIY=bAP1.r R`HG}Oq0FP>xO"hi;FfJ[;= ~^D/m3|{弤m9ffg˸5ɤCf= H\ÄM29 ~4dwV+Z} btO$87d= ɳ>}-)lZ-)n*N'GTu!0Qk۔r;)7`ڏmڋq{R(A ѻEavObGYS0oRmw9 W\حrzl$?̀ąΗ ;K:gix&@Oj|yL!)0{yUªUV^"-Z(~3vpUiwДVjXSq+n8.˨y].Kf i'[qE{qIVE'$y6`D8{ҷE4H 2Q;M 3HF\s>D|HP [ғ%gvHUg,?y;xS?3T]UIԇ  ++㐟x-JMGvC%BBoP|ZM&( [%"niiQjV+Ǵ=,{uw| X{}O S͛P8%dP62`Igz?|fO<xnvj6b=ǝw?.綪N0:R6DTL7 sM-1W,C"O )/I1ԶJ҉Jug?9' .b6޶Zo}V뛜4)Mh4r5ͱppX)z"Z\>@<*^GPi cFb c-',l߲G]&5¹޴vE>a(_ƑsI& o09fo[~-8 $8C8a#z:6F{Ðv@´AXH;F&p& h,Z^X ,2yQRn%T#%Ũ2;A/(4>+K,LTSUSY_INIT. Ƃ CMZ : 27/09/98 15.20.35 by A.Rozanov Ƃ CMZ 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FFFLOG(x)  from VAN draft 18.01.99 =+,DOUBLE. common/cfff/s,am12,am22  FFFLOG=DLOG(x*x*s-x*(s+am12-am22)+am12) ; >+K,ltn4m4. Ƃ CMZ : 2.00/04 10/11/99 02.27.18 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4M4(amh0,am40,iopt,lS;ZST:[p]hY;Χ9LЇ 4c0`68Sd\"6X(W <(~kk'ww)s!gGtGE﮴ ]=5s+K,gsusy.Ƃ CMZ : 2.00/02 03/07/98 18.52.38 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION GSUSY(AM1,AM2) H* --- -------------------------------------------------------------------* H* Na MSN1zzKB4ЍDZ:`KE ĕ?^ڿbKԎd{<~fl3;acw 0` 0:+spv3lMZc+MւIy 4H>jCZ]` aF%S$G9ʩP֐*]S1ډT]Z 9dI&jyT:Ȅ{| eDȈ4~fȉOQjVKRz/}߸'-p}ak7:|IFu;qU1)9slڷsZkŷpDܯ;7= #hZh*,rXDXn8$-vW|H8Ý @sc >+K,hsusy.Ƃ CMZ : 26/09/98 20.11.55 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 18.53.00 by A.Rozanov Ă -- $͎J0 (:fv1ƒ!?2Sp+WD]ΛL[jgRVA43*k +8(χX0FU'ȉ8I9wk>*goO g".V+Y^XLc1˲ukc$uycƆ6"WN袿B\MN9Ƥm8.O=bTq3)M߷R:z1ܙD>+P,LEPFIT. Ƃ CMZ : 11/04/99 20.43.22 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 18.42.13 by A.Rozanov Ƃ CMZ : 2.00/01 27/06/97 11.59.25 by A.Rozanov Ƃ CMZ : 2.00/00 28/01/96 15.04.55 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 10 AMWMZ=C+(3*C*ALBAR*VM(T,H,ALSBAR))/(32*PI*S2*(C2-S2))  S2NUN=1.-AMWMZ**2  + -0.00142*(T*AMZ**2-175.**2)/(100.**2) + +0.00048*dlog(DSQRT(H)*AMZ/150.) ; >+K,S2NUN.Ƃ CMZ : 2.00/04 11/01/99 01.30.01 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION S2NUN(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  C=DSQRT(C2)  AMWMZ=C+(3*C*ALBAR*VM(T,H,ALSBAR))A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 10.55.49 by A.Rozanov -- Author : REAL*4 AM4,AML4,AMQ4,NL4,NQ4,AMN4,AME4,AMU4,AMD4  COMMON/FOURTH/AM4,AML4,AMQ4,NL4,NQ4,AMN4,AME4,AMU4,AMD4 >+P,FOURTH. Ƃ CMZ : 18/12/98 06.50.26 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 10.55.49 by A.Rozanov -- Author : REAL*8 AM4,AML4,AMQ4,NL4,NQ4,AMN4,AME4,AMU4,AMD4  COMMON/FOURTH/AM4,AML4,AMQ4,NL4,NQ4,AMN4,AME4,AMU4,AMD4 >+P,FOURTH. Ƃ CMZ : Hs팦cHɥdh骫 웹謊{"Οs(5 L;¹x+P,CONFER. Ƃ CMZ : 16/12/99 21.06.06 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 22.10.39 by A.Rozanov Ƃ CMZ : 2.00/01 17/03/98 22.26.45 by A.Rozanov Ƃ CMZ : 2.00/00 16/04/97 17.41.55 by A.Rozanov Ƃ CMZ : 2.00M,ՎJ1AP!jRբeR˰v$(ܔ9Ϭ%SE;loVjfhCxbϓ'<A%ml%rF%r5^:6xMMYG;2xJ7Q^巔WhqRgg}e)nU#0݅sQs֌o>+K,DVRF4.Ƃ CMZ : 14/11/99 00.08.27 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author :  DOUBLE PRECISION FUNCTION DVRF4(T,ALSBAR,NC,QUM7S]o0A5i?;ѬB5 I-4T%$4X/Xj_s}OܞF$ڇģ]djBN*G֑Y9˴+)qaZU7SωR>UfUE|PhsާYF"^8g[7grB- 5ͨ& k3q3Ct2vW9BfrqTc?Bm ?*6S[`:Fx ɤL%`@ [=aEU'VRe"pPJlgDg \ӬOEBVO_ߤ鴯ЗZs.m?=i8Kx3_rRJ߱k mPQ VoɋFAwM?DŽWO~꒿nR+/NҿXIJcVOZfl8iy7Vʈ?agQHGw E; US>+K,DSUSYLRVA.Ƃ CMZ : 2.00/(32*PI*S2*(C2-S2))  S2NUN=1.-AMWMZ**2  + +0.00142*(T*AMZ**2-175.**2)/(100.**2) + -0.00048*dlog(DSQRT(H)*AMZ/150.) ; >+K,ltobzor. Ƃ CMZ : 11/01/99 02.17.53 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTOBZOR H* --- ------------------------------------------------MOrȑ+ٱ EW ˶ uD}قHPD$O|l5<$E*>fA|m^"8ttn6K?UWb+K,DELTA.Ƃ CMZ : 2.00/02 06/07/98 12.32.26 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DELTA(Z1) H* --- -------------------------------------------------------------------* H* Na H*MSN@C8 AF@b9D nySs\3Tu`Gď\@RlD>v-N2c/8yևǖ(clLh8:x$ _IN2 Dr*=+eF+Y^9 2|:C+K,ltsusyput.Ƃ CMZ : 27/09/98 15.21.25 by A.Rozanov Ƃ CMZ : 2.00/02 04/07/98 21.21.03 by A.Rozanov Ƃ CMZ : 2.00/00 05/01/96 19.19.02 by A.Rozanov Ƃ CMZ : or : DOUBLE PRECISION FUNCTION DPHI(T,H,ALSBAR)=+,DOUBLE.=+,CONST. =+,OPTIONS.  OSPI=PI**2/3.  Z1Z2V=Z1Z2(T,H)  IF(Z1Z2V.EQ.0.)Z1Z2V=0.00000001  CONST=(3-2*S2)/(2*S2*C2)  ALPHAS=ALPHAMT(T,ALSBAR)  IF(IOPTION(7).NE.0)ALPHAS=ALPHATT(T,ALSBAR)  IF(T.GE.1.)THEN  DPHI=CONST*(-OSPI*(ALPHAS/PI)*T + (Z1Z2V-1.)*T) ?  DPHI=0. ? ; >+K,SIN2B.Ƃ CMZ : 2.00/04 14/01/99 18.27.08 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanoؕ4: kZF+l{=]962+5NjǶ},ؚ{_O1mpl߱} |[|q_oCj4vc8β#/ r6|ͭ*14I>j**99{zN ^ fY%$H\7V'>mѢQKِJjRUEK5M;>'| h|ܵ:#o>*FQSPqM;|_--->+K,DSUSYRA. Ƃ CMZ : 2.00/02 03/07/98 19.50.13 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DSUSYRA(T,H,ALSBAR) H* --- -------------------------------------------------------------------* H*MSIK@jA?|ښ!mR iB!6S ɢ(W$7y-Ls!iQn<%Wim*֨b$|Ɨfk4yWF!L3$(uL2 9#p ?cU> 1iݷk@%u5mt,I\4ItKi@nLfmLCёԹ+K,ddgvr.Ƃ CMZ : 2.00/03 08/09/98 20.16.47 by A.Rozanov Ƃ CMZ : 2.00/02 05/07/98 22.37.33 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DDGVR(T,H,ALSBAR) H* --- ------------------------MkTn@AtAvgfl7X<cGID;vUؘZU+yי 9$|ːCh[ s6yܷ.`LJ'e~ή|V:]%[ c?XC9R!Grq799Ɓg@8|xNpץ"s7Iҿwj5ry&q]ncE Ln)x?3$B~/`-Ͽ٘K~Uæ0Z3: l:%xܕk?1n .x7'*9iNo 7<+K,ddgvm.Ƃ CMZ : 2.00/03 08/09/98 20.16.47 by A.Rozanov Ƃ CMZ : 2.00/02 05/07/98 23.03.41 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DDGVM(T,H,ALSBAR) H* --- ------------------------MnTMo@]A@vG 585!4ql(U-@!R${F3o̮VU wɘ̱M<̱~u~ }H7qZӜJ|yq# 1 ; 0xW5>//o<98Ȯ׫Git̃$&5{_hޘ_R4\N?Ju*]r^}4=bƩ} 9V"dFz]; {Ax-z;l/iu[U,5./{'~^v@{ Y;kUuZcF5^gw&zx:W<['V=gEQxp:s'mI+K,delta1. Ƃ CMZ : 2.00/02 06/07/98 12.44.06 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DELTA1(Z1) H* --- -------------------------------------------------------------------* H* Na MRMO@݈&?ZJJ,D"4]ucKH8(Dԋ+g ~Ř;tӝL]#PVoU}`w}@wPr'"`8 roU@])r rͻ"0arͻA0arͺ40rͫ7P5rEtP\rE @@rB?5#r?04r'"`r'QROr'~TnqsMR3qr0quqyq pWqz&Aq4pF#q("\P) qUjq qpq Sq;m5qcfqd8e@qY x!PoxqY -0tqUStSqU't&qUK@bo o Uk0mm@#m pAmж)`QmiJ UmU70Z)m@[Y+9m@(&pym?F s`fm?+pPm>lWm>d| Zm>d ]lyV lrlq_PLl8nPXli@lf kGekePkܡ~k5tk52t!k_g@( k"p  k @ц#'-~Pƹ9<&Lp,Mj!^Oi%qA#v#czOHi!IJpպ i@s4':,]7?wиw >4VND:GL02<&g"+}7kVqڄ,>K8s~@_#&z3zx?.E#ts:u_vC deiڪZԘ@Nm5Ⱦ%]6V ڴW4۔zFué7v0' M'8jL<7nov>+K,d4vi. Ƃ CMZ : 2.00/03 05/09/98 13.02.12 by A.Rozanov Ƃ CMZ : 2.00/02 02/09/98 22.41.40 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION D4VI(T,H)  FORMULA (48) FROM TH-6696 =+,DOUBLE.=+,CONST. =+,OPTIONS. if(ioption(2).eq.0.and.ioption(3).eq.0)then  fac=0. elseif(ioption(2).ne.0)then  fac=1. elseif(ioption(3).ne.0)then  fac=-1. endif  albar=gmu*sqrt(2)*mz**2*(4*s2*c2)/(4*pi)  if(IOPTION(10).eq.0)then  D4VI=-ALBAR*AMHMT(T,H)*T**2*(1.+fac*2./t)/(PI*16*S2*C2) 6  D4VI=0. 6 ; >+K,d4pvm.Ƃ CMZ : 2.00/03 05/09/98 13.02.12 by A.Rozanov Ƃ CMZ : 2.00/02 02/09/98 22.47.13 by A.Rozanov  -- Author : A.Rozanov  DOUBLE PRECISION FUNCTION D4PVM(T,H) FORMULA from MIV fax 7.08.98 =+,DOUBLE.=+,CONST. =+,OPTIONS.  if(IOPTION(10).eq.0)then  D4PVM=(3*c2*(3-10*s2)/(4*(c2-s2)**2))*ALBAR*T**2/(PI*16*S2*C2) 6  D4PVM=0.6 ; >+K,d4pva.Ƃ CMZ : 2.00/03 05/09/98 13.02.12 by A.Rozanov Ƃ CMZ : 2.00/02 02/09/98 22.48.29 by A.Rozanov  -- Author : A.Rozanov  DOUBLE PRECISION FUNCTION D4PVA(T,H) FORMULA from MIV fax 7.08.98 =+,DOUBLE.=+,CONST. =+,OPTIONS.  if(IOPTION(10).eq.0)then  D4PVA=(9./4.)*ALBAR*T**2/(PI*16*S2*C2) 6  D4PVA=0.6 ; >+K,d4pvr.Ƃ CMZ : 2.00/03 05/09/98 13.02.12 by A.Rozanov Ƃ CMZ : 2.00/02 03/09/98 10.50.19 by A.Rozanov  -- Author : A.Rozanov  DOUBLE PRECISION FUNCTION D4PVR(T,H) FORMULA from MIV fax 7.08.98 =+,DOUBLE.=+,CONST. =+,OPTIONS.  if(IOPTION(10).eq.0)then  D4PVR=-(3*c2*s2/((c2-s2)**2))*ALBAR*T**2/(PI*16*S2*C2) 6  D4PVR=0.6 ; >+K,ltobzor. Ƃ CMZ : 17/09/98 07.37.27 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTOBZOR H* --- ------------------------------------------------M8 2rƕm˞qB!RS>Ȳ,kJ]݉_2@ݧV>G9 ʲ؎0#w .08.01 by A.Rozanov Ƃ CMZ : 2.00/02 05/07/98 20.18.46 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION AMST1F(T) H* --- ----------------------------MJSMo@]aRT C$&JTJ* b։?Z吂ڴ_uvmC@EJݝyfxRԻoDȱ#GJpfO)4u|Al>S`-Ǣ"'c')(l]P# v3E<ڄS:.[.fC- rbaoh؄Y+yA8wܱKQ"#E=Ζ%Ǣ77\fzZ;Uvab&|ɓRu>9x܁3?pyyg4 #){Yݎ;ձ'ke:+kH9'G  :k a[ybG@`%c]_Sô8y|NxDH(#DN^d܆i]x}m qdN!yO+Qt(,p#*74U/'&0:+wC64,mk>2B)2-jsUSRP}/Ŋ mR7 |6QΙK{[n>+K,amst2f. Ƃ CMZ : 08/12/98 16.16.12 by A.Rozanov Ƃ CMZ : 2.00/02 05/07/98 20.18.46 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION AMST2F(T) H*/04 09/11/99 23.58.08 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 20.16.17 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DSUSYLRVA(T,H,ALSBAR) H* --- ----------------MSn@@90l^ZRɇ4NIETKQq:v嵡8@GY;qZ)}o޼lC~QXy&AO)l98<5fTWBI3sb$s 9$DqL~~7 S&xEahO@!(MULF\ХEky{;)u o%a=̹i1D1 |i'7=Pkj1,5./Β<7e ]\GEO34^E[Ӽ6[a( uwi,o@F }kp5T Mvp S EsC-R#fMJ&4,ڝa[V- 4tl"?dYGX<=64et^ojNKٙqٖZYPp+9oJ{kܸ2~5"@pvsEMHHI:=an4C|B.86!vK=Ҙ2gb^VB&`z9r2Qڦ*8of<7<5|+8ܣB>b"%$D#$~-Oq6RPDEHazH;MGBL}U4IELқ"rJNhU>yv'Mœ>On-@iuM(OU>+K,DSUSYLRVR.Ƃ CMZ : 2.00/04 09/11/99 23.58.08 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.50.12 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DSUSYLRVR(T,H,ALSBAR) H* --- ----------------MSKO@azĎM j ^# UQG}Y;N@ꋑ|37zM~Qy.l~ 7ٟ&*14 ,J#Ysb,#}@'cw6g^0|mu1vHĩO5Di>UrěAdY#ocwr^}ւ;'~SH?񉛕(𾗄u 2ϖY,ѥMϭg'|NM6q9w,8v>jJk+m+`sv ;+^ R #Luc;r*]ܩ)}Gpھۏj7 x4j|k=k)^nB]+?幀j'"/3TF}HɌPrYk04֠oCS$(_ ۽x"G+PBRn;;v0O5-fVmP3aJUpn*;.2PHUvۯ/𠄹WK"GK&l] P P\|I %JcՇ>=47 } c3 Pb#|7{\$Mb; gl6u PA}h݁a>U;E_}EQR(eGEQ/;{"u9֊VlHMXͬ?~->+K,DSUSYLRVM.Ƃ CMZ : 2.00/04 09/11/99 23.58.08 by +PA TCH,//LEPTOP/CODE >+K,FFFLOG. Ƃ CMZ : 10/11/99 02.27.45 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FFFLOG(x)  from VAN draft 18.01.99 =+,DOUBLE. common/cfff/s,am12,am22  FFFLOG=DLOG(x*x*s-x*(s+am12-am22)+am12) ; >+K,lt4susyino. Ƃ CMZ : 10/11/99 02.32.37 by A.Rozanov Ƃ CMZ : 2.00/03 08/0>+K,lt4susyino. Ƃ CMZ : 14/11/99 14.41.21 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/11/99 SUBROUTINE LT4SUSYINO H* --- ----------------------------------------MWKoF&RIy)2tmE*Ɇ$#)X+i>ZI{?jOͿaYR&ogv!?ִv{59hZ xݑ3/!ŀ&J8B}ǓH.8׭l̄{ǩ;p 'QCݻuz XQ~q0 #[F0XR/<Q&sdbDOD,aVTER (NL=25)  CHARACTER*10 CHLEP COMMON/LEPFIT/VLEP(NL),ELEP(NL),RLEP(NL,NL),WLEP(NL,NL),  1FLEP(NL),NLEP,NPLEP,CHLEP(NL) >+P,susy. Ƃ CMZ : 06/05/99 19.36.20 by A.Rozanov Ƃ CMZ : 2.00/02 04/07/98 21.17.58 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 10.55.49 by A.Rozanov  -- Author : A.Rozanov  COMMON/SUSY/SUSYFL,YL,AMST1,AMST2,AMSB,AMSQ,AMGLUINO,  1 AMHIGGS,BETA,DMST1,DMST2,IMST1,IMST2,  2 SUSY_M0,SUSY_MHF,SUSY_A0,SUSY_SGNMRwK`%FA+K,lttable66.Ƃ CMZ : 2.00/04 15/09/98 09.37.59 by A.Rozanov Ă -- Author : A.Rozanov 13/09/98 SUBROUTINE LTTABLE66(AMH,AMT0,ALS,ALB0,V) H* --- -------------------------------------------------------------------* H*‚ MLkoV $?~vcHH|$ki^ ]]ns! Jc8v@Q tvs{BP(M}Ws+@z !'xߝNBT#"79gAv ^敍-;V5Zb`Qg=d:ӑ;#¯Q PY.R3ǟ (tt nR(8q[NYGRA>t @l|# =guѬ8sߋc'tFnѼߖ>~m1G3ycdy {B~i lYQ֋"KN01u$x猃'}ʭ][N6O'mGOסL}YsOoғy尗E}]lc&a!IR:vNj;Z!"׫6b"oUF"lN$h; F`SZlE5ɆC ":h'Z")mѺ,~" KVf=y.Vtv&>!\xMxJh]#9h(v2E6mYw${Iϡ(e$~3v U ]+lʗ.t[e`_V0Ap9bg|G; w//: Oʺ3kLk%/pgmJ˴詢ēTJn|`n gLd8is.1lzœLwb.#qunwڪ}x3Oj<^'h''ߞdiY#-^d&0'&j%H}I^+z3|p>hyqr6bmhISb+x ڴ5JLh1#lJu33I g8?B)ϣ!Fe6VUЕQ辦+X|.)OeU|l5Eo*'R%?gK5  9Qs -]g"/EF.TN/*Pqe*RBewgvw/Y>ludI3 ,fOEY[(dYF}?K߅^QZT_,97W9gjU]]dٔ\HZ'!c/sl O.%) 912ۋ1 [+R6 Ra/e7Q-"LmA<؄cmi&_FbpJ~,KGt$l%| Ò,e6`h ;pyCdQ\JKүڧ'<^xav)W̏<^'}H{ ?eit>+K,ltsusy2. Ƃ CMZ : 27/09/98 17.45.37 by A.Rozanov Ƃ CMZ : 2.00/02 06/07/98 16.56.47 by A.Rozanov Ă -- Author : A.Rozanov 24/06/97 SUBROUTINE LTSUSY2 H* --- ------------------------------------------------M<XYoV$z'r %{FA{l#lH%,"<$ٙdټ%CnRwf)8z4>F?M;?SkJsktOz'JRwpa@^=ש^Xl5ᆴQs [ZV 'e~ESղaS<x|4z_9n;!M<-ogB<5 xZ2"7hs\ 7* 5R/da S%-m{ڻRָ nnP*Qi2ih] wA5X$`,nʋcG11y~\ 6PWz+k@y{z<~%2X<Ǧ[[sl l ,!x*g\\\[KtY+t{N$ѥ?gS|*^}TsNjT$uQ~!DVk^òu'zZ=ЍfRk>0 ZNh*c2+K,lt4susyino. Ƃ CMZ : 1.99=+,DOUBLE.=+,CONST. =+,FOURTH. DATA NC/3/,QU/0.6666666/,QD/-0.3333333/  DVMQ4=DVMF4(T,ALSBAR,NC,QU,QD,NQ4,AMU4,AMD4,AMQ4) ; >+K,DVRQ4.Ƃ CMZ : 07/02/99 23.49.20 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVRQ4(T,ALSBAR) from draft TH-7252/94 preprint 11.05.94 and VAN draft 18.01.99=+,DOUBLE.=+,CONST. =+,FOURTH. DA.mB6,"U9S  [7ui:F.c=qN*gkI4 ,WfUkDb9#a< P /gdO jJ- o,uďX+`S5ja5"Ѥ2Ț9P b$kr35 "YAfƻT\LZtv#Estst_L )GW!.7;w}Ƹ֯9tx@iHԍ6\< @֏sO~w o`^iYETuÈ|kƵO`8%U$ 8JtE s wOqo4O=1R֥{5hg5_?Wݑw3? c ̌6O&}%잯!^9Պ>+K,dsusyrv_old. Ƃ CMZ : 2.00/04 22/09/98 19.16.31 by A.Rozanov Ƃ CMZ : 2.00/02 06/07/98 12.39.45 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DSUSYRV_OLD(T,H,ALSBAR) H* --- ------------M2SQ@%7y$aFx8y]<%x> Wp0 Cx"H1Ks*6\Rhu=f3""lܛz%6x? W,?\V ׬_$䇒|,<-5$g⤧tWZV^γ>,߄^46Rj#W ]huM''hSZ"@@~-S11<`o#l{+V˛'h,VK "fY鼐V:Ӿt1`N{#Q> / S}ykjud^R6p1ggݰUŒڕvm'(* " \vdh^Anw7>+K,delta11. Ƃ CMZ : 22/09/98 19.24.17 by A.Rozanov Ƃ CMZ : 2.00/02 06/07/98 12.44.06 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DELTA11(X,Y) H* --- ----------------------------M* VkGrh7۽X~p*CƅTA NC/3/,QU/0.6666666/,QD/-0.3333333/  DVRQ4=DVRF4(T,ALSBAR,NC,QU,QD,NQ4,AMU4,AMD4,AMQ4) ; >+K,DVAQ4.Ƃ CMZ : 2.00/04 07/02/99 23.49.20 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVAQ4(T,ALSBAR) from draft TH-7252/94 preprint 11.05.94 and VAN draft 18.01.99=+,DOUBLE.=+,CONST. =+,FOURTH. DATA NC/3/,QU/0.6666666/,QD/-0.3333333/  DV]/\i]PHujApVaE(Vj,V6L7ڽXNOu{otS}sZ4pe* 㹴.KDzf'@ɞ(S9sK$0X?w~}TLFL"GOBa?$א'$X\?rGsc zI BwΠQMkήNk:.l^|J7]ͩ!yٶū iiyղ/eoLU.4/ >+K,lt4m4.Ƃ CMZ : 23/11/99 12.19.17 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LT4M4 H* --- --------------------nZ֛gg^< 6 W[5f޳3veh ز_p8) (\430[R9 -sMr~ɦ\2dd`K#Ǽǥߟ$~8oW 9Pi}!+[*IcÑ9,B%8n=IpjC|{]acHq]|g?+^ɐf;_0+1Xtzp=5ijhܴ[>+K,DPHIA.Ƃ CMZ : 2.00/04 14/01/99 18.27.08 by A.Rozanov Ƃ CMZ : 1.30/06 19/01/95 20.39.05 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre AQ4=DVAF4(T,ALSBAR,NC,QU,QD,NQ4,AMU4,AMD4,AMQ4) ; >+K,DVMF4.Ƃ CMZ : 07/02/99 23.49.24 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author :  DOUBLE PRECISION FUNCTION DVMF4(T,ALSBAR,NC,QUMeSMo@B>.sûflҠʊ$ QrjC#HiáٝJKyo޾WnJ71F';6@;#ϛs 0^̟![Sxu/e4+ tDc$epS3] tFKf;j{ZpSiѹ׷3@qv?H>Ę|%Bx-zanov  -- Author : A.Rozanov  DOUBLE PRECISION FUNCTION D4PVR(T,H) FORMULA from MIV fax 7.08.98 =+,DOUBLE.=+,CONST. =+,OPTIONS.  if(IOPTION(10).eq.0)then  D4PVR=-(3/((c2-s2)**2))*ALBAR*T**2/(PI*16) 6  D4PVR=0.6 ; >+K,lttest. Ƃ CMZ : 11/04/99 19.12.32 by A.Rozanov Ƃ CMZ : 2.00/03 05/09/98 11.25.05 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.32.35 by A.Rozanov Ƃ CMZ : 2.00/01 17/03/98 21.57.20 by A.Rozanov Ƃ CMZ : -- Author :  DOUBLE PRECISION FUNCTION DVRF4(T,ALSBAR,NC,QUM6 S]o0A5i?;ѬB5 I-4L%į^-KMsӨA{p/3 0ܜ.qٚFd4=A+:AvFɐGOP>(Bp#!rϚI5jK2eX;Gg֒A k(4.@9Y*ZP6k=GPmIrɵǬmQIo\MStcZ75>f,/KW>9$iGyPRr>6>UTTt.Gh+.0wX3>+K,FFFLOG. Ƃ CMZ : 2.00/04 14/11/99 11.51.24 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FFFLOG(x)  from VAN draft 18.01.99 =+,DOUBLE. common/cfff/s,am12,am22  FFFLOG=DLOG(x*x*s-x*(s+am12-am22)+am12) ; @-- htuj| 892888"I$,1DN--------------}CV 5------y0Q+0T------ MT------uP1R------q kO------m5CkH------iHU ------8!F------a5+CH,DCDES. Ƃ CMZ : 2.00/00 25/06/97 09.22.36 by A.Rozanov >+P,DELTAC. Ƃ CMZ : 2.00/02 03/07/98 18.24.49 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 COMMON/DELTAC/X,Y >+P,susy. Ƃ CMZ : 27/09/98 15.17.38 by A.Rozanov Ƃ CMZ : 2.00/02 04/07/98 21.17.58 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 10.55.49 by A.Rozanov  -- Author : A.Rozanov  COMMON/SUSY/SUSYFL,YL,AMST1,AMST2,AMSB,AMSQ,AMGLUINO,  1 AMHIGGS,BETA >+P,FITRES. Ƃ CMZ : 2.00/01 26/06/97 13.23.37 by A.Rozanov Ƃ CMZ : 2.00/01 08/03/95 10.50.38 by A.Rozanov Ă -- Author : A.Rozanov 08/03/95 COMMON/FITRES/AMTFIT,AMTERR,AMTEPL,AMTEMI,AMTGLB,  1 ALSFIT,ALSERR,ALSEPL,ALSEMI,ALSGLB,  2 AMHFIT,AMHERR,AMHEPL,AMHEMI,AMHGLB,  3 ALBARFIT,ALBARERR,ALNAREPL,ALBAREMI,ALBARGLB DIMENSION FITPAR(5,4)  EQUIVALENCE(AMTFIT,FITPAR)>+P,mncom.Ƃ CMZ : 2.00/01 09/03/95 11.04.42 P------]`kaE------T------U$+a------QLk1S------ @S+BF------IP#+------EQL------A&T------=\+------9 E+------5$------1fUL-------T+S------)8------% ------!Q+------ +------J> J&Jw!JhT#Jq7JoJq+JoI(fRGJ *XfEeJo.Jou"JoT!J7J"hi^JBJ&Kt(^#sh 5Lf"^by A.Rozanov Ă -- Author : A.Rozanov 07/03/95 COMMON/MNCOM/MNPRNT,MNREAD,MNUNIT,MNSAVE,EPSMN>+P,MTMHAL. Ƃ CMZ : 1.30/07 02/02/95 09.38.09 by A.Rozanov Ă -- Author : A.Rozanov 02/02/95 COMMON/MTMHAL/AMTCOM,AMHCOM,ALSCOM>+P,VERLT.Ƃ CMZ : 1.30/01 16/01/95 16.19.51 by A.Rozanov -- Author : COMMON/VERLT/VERSION >+P,CONFER. Ƃ CMZ : 2.00/03 08/09/98 22.10.39 by A.Rozanov Ƃ CMZ : 2.00/01 17/03/98 22.26.45 by A.Rozanov Ƃ CMZ : 2.00/00 16/04/97 17.41.55 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 12.13.01 by A.Rozanov Ƃ CMZ : 2.00/02 09/03/95 21.13.23 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.19.51 by A.Rozanov -- Author : LOGICAL MARSEILLE,MORIOND94,GLASGOW,MORIOND95,BEIJING95,  1 MORIOND96,MORIOND97,MORIALL97,JERUSALEM97,MORIOND98, 2 VANCOUVER98  COMMON/CONFER/MARSEILLE,MORIOND94,GLASGOW,MORIOND95,BEIJING95,  1 MORIOND96,MORIOND97,MORIALL97,JERUSALEM97,MORIOND98, 2 VANCOUVER98 >+P,CITAB.Ƃ CMZ : 1.30/01 16/01/95 16.19.51 by A.Rozanov -- Author : COMMON/CITAB/ITABLE,II,VALUE,TCI,HCI,ALSBCI >+P,AVDEEV. Ƃ CMZ : 1.30/01 16/01/95 16.21.29 by A.Rozanov -- Author : COMMON/AVDEEV/AVDEEV >+P,FOURTH. Ƃ CMZ : 1.30/01 16/01/95 10.55.49 by A.Rozanov -- Author : COMMON/FOURTH/AM4,AML4,AMQ4,NL4,NQ4 >+P,TMINDV. Ƃ CMZ : 1.30/01 16/01/95 10.55.49 by A.Rozanov -- Author : COMMON/TMINDV/TMIN,DELTVM,DELTVA,DELTVR >+P,MASSES. Ƃ CMZ : 1.30/01 16/01/95 10.55.49 by A.Rozanov -- Author : COMMON/MASSES/AMEL,AMMU,AMTAU,AMUP,AMDOWN,AMCHRM,AMSTRN,AMTOP, 1 AMBOTT >+P,LEPFIT. Ƃ CMZ : 2.00/02 03/07/98 18.42.13 by A.Rozanov Ƃ CMZ : 2.00/01 27/06/97 11.59.25 by A.Rozanov Ƃ CMZ : 2.00/00 28/01/96 15.04.55 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 10.55.49 by A.Rozanov -- Author : PARAMETER (NL=22)  CHARACTER*10 CHLEP COMMON/LEPFIT/VLEP(NL),ELEP(NL),RLEP(NL,NL),WLEP(NL,NL),  1FLEP(NL),NLEP,NPLEP,CHLEP(NL) >+P,LBTABL. Ƃ CMZ : 1.30/01 16/01/95 17.46.58 by A.Rozanov -- Author : PARAMETER (NT=10)  CHARACTER*16 TCH  COMMON/LBTABL/TCH(NT),TEXP(NT,3),TMSM(NT,3),TBORN(NT,3),  1TCOR(NT,3),TDMT(NT,2),TMSM2(NT,3),TCOR2(NT,3),ECOR2(NT,3,2)  2,ttborn(nt)  3,t2born(nt,3)  4,EMSM(NT,3),EBORN(NT,3),TMSM_ALB(NT,3)>+P,OPTIONS. Ƃ CMZ : 2.00/02 05/07/98 19.30.46 by A.Rozanov Ƃ CMZ : 1.30/07 19/02/95 23.08.36 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 10.55.49 by A.Rozanov  -- Author : A.Rozanov  PARAMETER (NOPTIONS=20)  COMMON/OPTIONS/IOPTION(NOPTIONS) >+P,CHETYR. Ƃ CMZ : 1.30/01 16/01/95 10.55.49 by A.Rozanov -- Author :  COMMON/CHETYR/BETA0,BETA1,BETA2,GAMMA0,GAMMA1,GAMMA2,AKBOT,FERMI >+P,PAWC. Ƃ CMZ : 1.30/01 16/01/95 17.40.42 by A.Rozanov  15/01/95 23.13.46 by A.Rozanov -- Author : REAL*4 PAW COMMON/PAWC/PAW(100000) >+P,TTBAR.Ƃ CMZ : 1.30/01 16/01/95 10.55.49 by A.Rozanov -- Author : COMMON/TTBAR/EPSIL>+P,SMITH.Ƃ CMZ : 1.30/01 15/01/95 22.09.24 by A.Rozanov -- Author : COMMON/SMITH/VOLOSHIN >+P,ZVALUE. Ƃ CMZ : 1.30/01 15/01/95 22.00.03 by A.Rozanov -- Author : COMMON/ZVALUE/ZZVM,ZZVA,ZZVR,ZZMH,ZZALSB >+P,DOUBLE. Ƃ CMZ : 1.30/01 12/01/95 17.47.54 by A.Rozanov -- Author : IMPLICIT DOUBLE PRECISION (A-H,O-Z) >+P,CONST.Ƃ CMZ : 1.30/01 12/01/95 17.47.54 by A.Rozanov -- Author : COMMON/CONST/AMZ,DAMZ,GMU,AL,ALBAR,C2,S2,TONB,PI,F2,GO,AMU2 >+P,CAFBBB. Ƃ CMZ : 1.30/01 12/01/95 17.47.54 by A.Rozanov -- Author : COMMON/CAFBBB/EB,AMB,AMB0,VELOB >+P,DEBUG.Ƃ CMZ : 1.30/01 15/01/95 22.00.03 by A.Rozanov -- Author : COMMON/DEBUG/PRTFLG(10) >+P,DYBCOM. Ƃ CMZ mи #@_MmU 00s sek)C @ }q pUpfp`fr;0~qpUpfMmU00sek)C @ }Yj1zPFhӑj f{Jh^J> J&Jw!JhT#Jq7JoJq+JoI(fRGJ *XfEeJo.Jou"JoT!J7J"hi^JBJ&Kt(^#sf"^ : 2.00/02 03/07/98 19.02.06 by A.Rozanov Ƃ CMZ : 1.30/07 03/02/95 11.48.30 by A.Rozanov Ƃ CMZ : 1.30/01 12/01/95 17.47.54 by A.Rozanov -- Author : COMMON/DYBCOM/TABLE,TABMI,TABMA,IPAMI,IPAMA,ARAL,AMUMo0 -_w;N AXd i(ݱ|dI HQ$#%+ZB,OU5WPY F-Qݳc볤JfTTr }RF߹49Xf^Z]nT*g;ܧ|f9z`O%=()Q3r`D`K< Vd=g GpK `7$tZ&# ͯ&glIL 5嚄4uqy{r%"ag׋v9:l{js*CR]3.#RidQLS^ƿ)E/ws8oݻsO|,Dd'9YSb䜔ûwt]0ޫI&ӽ8C4=W+m=xa=DDe5>GTiFاp)0kBHZ/|C`oȕ}ɩWx-dn*y%h@{x?Lӭ9[p6Y|z{^Fx @$2x=hZE{X[JͲwv"[àwʞ'zr70, }AֆPlL1c+nِ%=ZtBc#!npFd46lJbѾ >+P,DYBCOM. Ƃ CMZ : 2.00/04 27/09/98 18.25.38 by A.Rozanov Ƃ CMZ : 2.00/02 HU8S-- htul|]^.2444FuI$,1DN--------------}CV 5------uoWV------yulo hi^5+CH,$VERSION.Ƃ CMZ : 2.00/00 25/06/97 09.27.09 by A.Rozanov >+K,V2_00.Ƃ CMZ : 2.00/03 08/09/98 23.49.32 by A.Rozanov Ƃ CMZ : 2.00/02 03/09/98 12.20.48 by A.Rozanov Ƃ CMZ : 2.00/01 19/03/98 20.03.12 by A.Rozanov Ƃ CMZ : 2.00/00 25/06/97 09.27.09 by A.Rozanov Ă -- Author : MfDSn@P|Y&Ɔ68J A Rf{ g IVmǟK!$m*e^ܹs=yǦN{ zobA׷ytNl496yw{mƬ dB&ZnѿJ6k ICbI)!JX#[`4xAX{!'a#xrp"WC<r4z,AaS9n ySHri*J s6\nk5tP{}HW}@ 08#FP}#p19Ll$mj Ht1k1xQ0bg^QJD*u%':W(-(WBk :wRHHTRf {?ad1 ҖD|j /=ZG! 6(U^h) AQ'`KIE* 4F"ѽhOϰfH- H[Q%;ٻJaLo~3ĭBU:&o+3Ce?"b'-KdJKu}|=Ʌ+S ǫy~wT - *$[>+K,V2_00.Ƃ CMZ : 2.00/04 21/04/2000 16.10.36 by A.Rozanov Ƃ 03/07/98 19.02.06 by A.Rozanov Ƃ CMZ : 1.30/07 03/02/95 11.48.30 by A.Rozanov Ƃ CMZ : 1.30/01 12/01/95 17.47.54 by A.Rozanov -- Author : COMMON/DYBCOM/TABLE,TABMI,TABMA,IPAMI,IPAMA,ARAL,ARMT,ARMH DIMENSION AMHIG(4),AMTOP(4)  PARAMETER(NALSM=4,NAMTM=7,NAMHM=3) DIMENSION ARAL(NALSM),ARMT(NAMTM),ARMH(NAMHM)  PARAMETER (NOBS=23)  DIMENSION TABLE(NOBS,NALSM,NAMHM,NAMTM)  DIMENSION TABMI(NOBS,NALSM,NAMHM,NAMTM)  DIMENSION TABMA(NOBS,NALSM,NAMHM,NAMTM)  DIMENSION IPAMI(NOBS,NALSM,NAMHM,NAMTM)  DIMENSION IPAMA(NOBS,NALSM,NAMHM,NAMTM) >+P,susy. Ƃ CMZ : 30/09/98 11.46.18 by A.Rozanov Ƃ CMZ : 2.00/02 04/07/98 21.17.58 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 10.55.49 by A.Rozanov  -- Author : A.Rozanov  COMMON/SUSY/SUSYFL,YL,AMST1,AMST2,AMSB,AMSQ,AMGLUINO,  1 AMHIGGS,BETA,IMST1,IMST2 >+P,susy. Ƃ CMZ : 01/10/98 20.44.25 by A.Rozanov Ƃ CMZ : 2.00---------------------------------------* H* Na M hn@q.w8]&`Qbɪe Dͦ"(D\UkomߨEV߰ShF|@QwCtGEhLmQut~;Y~-h^8I([ɞ L|H"P8;wp"AGNn\ʽJTVAnj; fQ˂}r9nf$>jrud/<7Mhwc+b}aF>1MU]ޣ̥IS|HȮ[}v uk14Y'k ٶ=Y/wEJ# ;sX֏:ki%dq _=Ț_#>,qdܹq  =^SG&XKii2ƎlWԵ-i/8DD 6#5+CjTYGC&ݠ)bݔTa^eMXwIdn'YVqLԂ&IR߅,U+ fR)$ yt DL-Cvr]䑴+Yϩm:C@Xca6^wKCHK>+K,PHI_OLD. Ƃ CMZ : 2.00/04 14/01/99 18.27.07 by A.Rozanov Ƃ CMZ : 1.30/05 18/01/95 19.03.32 by A.Rozanov Ƃ CMZ : 1.30/02 17/01/95 23.36.30 by A.Ro-- Author : DOUBLE PRECISION FUNCTION DPHIA(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  DPHIA=-8*s2*c2*(PHI(T,H,ALSBAR)+DPHI(T,H,ALSBAR))  1 /(3*(3.-2.*S2)) ; >+K,DPHIR.Ƃ CMZ : 2.00/04 14/01/99 18.27.08 by A.Rozanov Ƃ CMZ : 1.30/06 19/01/95 20.40.32 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DPHIR(T,H,ALSBAR) =+tine LTGMU =+,DOUBLE.=+,DEBUG. =+,CONST.  ame=0.000510999D0  amu=0.105658389D0  hcgevsec=6.5821220D0 ! in units 10**-25 GeV sec  taMG}r02Y!!A RfbZFxQʌ<ϵPmx\] \b=8ϼU5ٙ0rf\)9j+^-vr%+CLccƣm*6pM֌qLёiL5kJƷXj%K=W4*U3XgB7iAW֗\oXXdu8{dly`msՊBf#5B^G2S}uWM|,9B2SX{12ھL >+K,ltgmu.Ƃ CMZ : 2.00/04 10/02/99 21.53.54 by A.Rozanov -- Author : subroutine LTGMU =+,DOUBLE.=+,DEBUG. =+,CONST.  ame=0.000510999D0  amu=0.105658389D0  hcgevsec=6.5821220D0 ! in units 10**-25 GeV sec  taM5H}r0 EPW؂رCx,GM2>+K,ltobzor. Ƃ CMZ : 10/02/99 21.54.11 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTOBZOR H* --- ------------------------------------------------MP]-ȕZ4(IIAa. '1#˟_>+K,ltn4m4. Ƃ CMZ : 15/04/99zw| wb-|g9lFKJQ6['q4fykW1nH-<&/:zFgg-L4νU'8Z<| ,r=m:bƼMX פ9W恨'm!BD+1L^;˰O:ng3>uӌ&cq]h gv-:+BҢఱ*Y F<+{4\yvY)j_JQJa4ku?->+K,ltn4mnmd. Ƃ CMZ : 23/11/99 09.57.52 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MEMU(amh0,am40,iopt,lvoA.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE lttab2(amt,eamtMUn@оprةJK BLKڲF o\୘Ǝ"ҕ;3̎ 7H &Ђzdu$PMҫÝ͍">3c<\yEW;KE3:G$͸iDD)J욦 G]QQ`3:FqY8<}^9N2(C_ ׁK \1\{7761"k_:;`7qljB\]G`W8 C0 *x|dzvʗ|9_O](vqoMxaU=6OڡQ׵(괫(h9g~ZkaTs#v^)7t^F< FzY~w:64h/$L&5@;fiS4@ZǍTw]hz6LF6`4W~XmIx; xoD?V~α=$]W~ ?kXM(_b=[C3ZLT6TEYGĴQI:V:Ý\vHQ-ΨdSrNr^mL7[Mu)VuI_svFul?&!Dx,|X L?/" ӈ08a݋iT¬i_T%Qir]U$$Vg6 ٸHZ^X 8 >+K,ltobzorfig. Ƃ CMZ : 20/01/99 17.14.09 by A.Rozanov Ƃ CMZ : 2.00/00 23/06/97 11.09.11 by A.Rozanov Ƃ ,DOUBLE.=+,CONST.  DPHIR=-4*s2*(c2-s2)*(PHI(T,H,ALSBAR)+DPHI(T,H,ALSBAR)) 1 /(3*(3.-2.*S2)) ; >+K,ab. Ƃ CMZ : 14/01/99 18.27.10 by A.Rozanov Ƃ CMZ : 2.00/00 26/01/96 09.03.02 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- AuthMmS]S@Շ'7d!Lg bmTC_ӏֻQ0X{ٳ7w5hD'aH- յx$xh5*˙^Qĺl8<}*7o>+K,ltsusyput.Ƃ CMZ : 01/10/98 20.45.25 by A.Rozanov Ƃ CMZ : 2.00/02 04/07/98 21.21.03 by A.Rozanov Ƃ CMZ : 2.00/00 05/01/96 19.19.02 by A.Rozanov Ƃ CMZ : 1.30/08 22/02/95 16.28.16 by A.Rozanov Ƃ CMZ : 1.30Mr@3ЪNHh jKa diK+$WJu7zoMBcug=|9 RA.ȊT%GsU2{ \&,xMuY 5S,jv[3XcVŧ}v8y}Ś_.h^G@@K.\}8d:Coǘ'3r0qiKJ%;kˍ0a> [ &b/4q}Q< ɪEHCKW9Itt[ wF|PN Glv{Jt< u샹]9Ū(*⥀3,NVaAvݚUE.MԎ.+b䇢sX8H')AO0u/(7h~3ʀp*4>g'a` : Fכϭ5bjKcc``#&R|3Zl$o^uA!rͭ}d JmjmdVxN*~p6GP\ >!n->+K,FPRIME. Ƃ CMZ : 2.00/04 11/02/99 17.00.55 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 FLOG=DLOG(x*x*s-x*(s+am12-am22)+am12) ; >+K,mysugrun. Ƃ CMZ : 2.00/04 07/05/99 14.19.32 by A.Rozanov Ă -- Author : A.Rozanov 05/05/99 SUBROUTINE MYSUGRUN(M0,MHF,A0,TANB,SGNMU,MT,IMODEL) H* --- -------------------------------------------------------------------*MWi;koVvZ{Y`?HrhId]h3"Hqű+QB?LYIC?-Cz/Y&-L$ys=SK[߿MN8=cO i[kw!+yY}m]#lx ڔ4_1#؛s/>dN?‡pzanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30MDU[sFfy8y]‚.8&e9bF"~KFT3}jM~V&3]$[Jt`|߹iY ,a @i08g/_٬HӍo xѠYp'/Xn~*FGVjWn8w#qdm(p^0f/sO>%1Ew-Nk7[q9 t|mkSE@$CLcOj#;Oe͑%{~_GlFĵ37hKY:ߥCS{nm o'B'67cSSdwr2k3G!<6$ź6:1>Hl*3}xt Vhh{"I%OԌK.K'\mjn1I[MG95Û>+=n$S~PDp{L(%j$x5#d$cCy*LZ]èQ]fUCqaqϯ˼*__Ӽ(i|9Y$x'0^qa^P%媞 #ONc]㰇= @L̟8R r}+ {fJ S șga 9CUE>[N1W)(J0>iV&x:J WVۨ -v$%tx/,V^91xWi 8!m"ۢ2Eq"S@<RuG'FƯGlՕXC8bw/={Y(soqg5qCE i 8\^e[e1x]G_.)>+K,PH8Gqؑ+7=01 VWҗ6}$ heq)bp]GY-B'}@Olʠ*sc^q'-rml;_$t|\dK7iq;M|mRRe_fZc6vY3kh31^N9WI^@eɵZRSwf3leY0cwyV0͒Y Sk엠_su`c#e2%71b|<{RDeLN(D%x?8 IM w˅σw0 8k2#vn[؋:Тƾirq\G)p-U\ll8;_R*KYdzdlIHUU7uۏ|-b o}Tj >+K,ab. Ƃ CMZ : 2.00/04 14/01/99 19.09.53 by A.Rozano2.00/04 24/12/98 15.45.37 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 10.55.49 by A.Rozanov -- Author : REAL*8 AM4,AML4,AMQ4,NL4,NQ4,AMN4,AME4,AMU4,AMD4,AMDG2  COMMON/FOURTH/AM4,AML4,AMQ4,NL4,NQ4,AMN4,AME4,AMU4,AMD4,AMDG2 >+P,CONFER. Ƃ CMZ : 10/01/99 00.35.36 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 22.10.39 by A.Rozanov Ƃ CMZ : 2.00/01 17/03/98 22.26.45 by A.Rozanov Ƃ CMZ : 2.00/00 16/04/97 17.41.55 by A.Rozanov Ƃ CMZ : 2.00MCMZ : 2.00/03 08/09/98 23.49.32 by A.Rozanov Ƃ CMZ : 2.00/02 03/09/98 12.20.48 by A.Rozanov Ƃ CMZ : 2.00/01 19/03/98 20.03.12 by A.Rozanov Ƃ CMZ : 2.00/00 MTMo@"X*evB{@")KɊID|1CuZh%$#Λ捣G]~Ѝ8=C"tRkQITk)2Yb2j&r2Z;i ޻=XYhWIHDDg BBb%G=^ )*9^L\z99x@Zb󸃵ӈ$kp74)l.Q*S2cL%&'"AyWc_g3¯-["o1_ >J|1>γ )ƴ; i'Q7]cǿ]y18n?w;(\c8@Z'M.XX]$ЯjiZ-bI~ corCe?"b'-KdJKu}|=Ʌ+S ǫy~wT - *$[>+K,V2_00.Ƃ CMZ : 2.00/04 21/04/2000 16.10.36 by A.Rozanov Ƃ by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FPRIME(P) MN@E'btӏ˙ Đ$2~ TULSYkѿv.Ϝ/JFс㸸/a T$+M3u4,Wbe'T$r EtаC27ZF_L ez/2%ǿS/s8<.+T>+K,DVAF4.Ƃ CMZ : 2.00/04 11/02/99 17.43.31 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by zanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FFFLOG(x)  from VAN draft 18.01.99 =+,DOUBLE. common/cfff/s,am12,am22  FFFLOG=DLOG(x*x*s-x*(s+am12-am22)+am12) ; C +PA TCH,//LEPTOP/CODE >+K,ltn4msb. Ƃ CMZ : 02/08/99 16.46.32 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 02/08/99 SUBROUTINE LTN4MSB(amh0,am40,amgluino0) I. Ƃ CMZ : 2.00/04 14/01/99 18.27.07 by A.Rozanov Ƃ CMZ : 1.30/05 18/01/95 19.03.32 by A.Rozanov Ƃ CMZ : 1.30/02 17/01/95 23.36.30 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION PHI(T,H,ALSBAR) =+,DOUBLE.=+,CONST. =+,OPTIONS.  CONST=(3-2*S2)/(2*S2*C2)  CLOG=DLOG(T/C2)  BRA1= -6.716+(8.368*C2*CLOG-3.408*C2)/T 1 +(9.126*C2**2*CLOG+2.26*C2**2)/T**2  2 +(4.043*C2**3*CLOG+7.41*C2**3)/T**3  BRA=2.88*CLOG+BRA1 IF(T.GE.1.)THEN  PHI=CONST*(T+C2*BRA)?  PHI=0. ? ; >+K,DPHI. Ƃ CMZ : 2.00/04 14/01/99 18.27.07 by A.Rozanov Ƃ CMZ : 1.30/05 18/01/95 19.03.32 by A.Rozanov Ƃ CMZ : 1.30/02 17/01/95 23.36.30 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Authby Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VAU(T,H,ALSBAR) =+,DOUBLE.=+,CONST. DATA FAL/0.00186/,FAU/-0.00165/,FAD/0.00137/ DATA FVL/0.00197/,FVU/-0.00169/,FVD/0.00138/  VAU=VAL(T,H,ALSBAR)+(128*PI*S2*DSQRT(S2)*C2*DSQRT(C2)* 1 (FAU(albar,s2)+FAL(albar,s2)))/  1 (3*ALBAR) ; >+K,VAD. Ƃ CMZ : 2.00/04 15/01/99 09.33.58 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by =+,CONST. =+,FOURTH. DATA NC/1/,QU/0.0000000/,QD/-1.0000000/  DVAL4=DVAF4(T,ALSBAR,NC,QU,QD,NL4,AMN4,AME4,AML4) ; >+K,DVMF4.Ƃ CMZ : 22/01/99 12.30.33 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author :  DOUBLE PRECISION FUNCTION DVMF4(T,ALSBAR,NC,QUMeSn@ UG5*7!)oVm(m~vgf E%wf眙9;~b^25Pxey&3dtRJc,lQ@ from VAN draft 18.01.99 =+,DOUBLE. common/cfff/s,am12,am22  FFFLOG=DLOG(x*x*s-x*(s+am12-am22)+am12) ; >+K,ltn4msb. Ƃ CMZ : 2.00/04 03/08/99 19.50.27 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 02/08/99 SUBROUTINE LTN4MSB(amh0,am40,amgluino0) H* --- ------------------------M@WrVv6W@8uft 1LNO&Wah$Dq;W̓=Ga ә.A?gݳ{(Uܣ\Qs/л {m=]J:~8O\ xT$ULX?qȵynʯ[EnG۶zN}E1n8=QhS EXMXY*?0' #/Ḻ>+K,ltf3. Ƃ CMZ : 2.00/04 28/09/98 09.50.07 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.17.43 by A.Rozanov Ƃ CMZ : 2.00/01 18/03/98 21.11.42 by A.Rozanov Ƃ CMZ : 2.00/00 24/06/97 17.16.18 by A.Rozanov Ƃ CMZ : 2.00/03 MQWnFU[ #MCQ B0(q%1$UXk yE?+@O}tf7+1`.93;u {r `4 `kz>7d<+렮7 L8n KG2ٱӠIK8VlW> Oh] cMʇa'J?~.Ga,\Y*`4 ˆ2DCؾb!^uE6_n8A`J}KooEaAci)$iD=7Qz 쫚n@6o4z"S1t]:(J_?w~+zؼQvv{ioK3+Z3т]ik6/y*I PPl(ݖԖ%' ːt{G47L:_8&kyK.4 #yہNgqYX^wbmfhr~ uH>-r7gKe~z^/~NͿe;=]kI,KX;h@1ܾbOeq DY])~0 z8i #('v:Mdp9אNߵ K6ErG2:|$SѮs& [.|`ߣ*[ͮ;[܄sX^w9/YF/ (JYrc|+Jщ{m}}Q]1\iAmg [ iQ+fܱ.b\L+ߚ):Kr .V?7zd𱘏ќO"RWiaCM.&<[Nnzj%r5J}+?G })UN*,2o~"{qiz9`&{&uоAя+raEDq%rbdbLρ1@WP~-RހoRQ> guos($wboqd^#L8/U l~^J|@XE="ΚTx&JY#lbG|٩xtxtt%_~Ժ|cK;cv e&6^[&ɶ{x\+//}&ؔN(全|H%<)jv2߭dHe8p$ǡb)q(TL$YxIC_)q(LLX$UBK8pVgM_϶mzN]ߢMmWa8r]tV'@WPL4Eفj94NiAqc {;{ ˏ X,>+K,lttest. Ƃ CMZ : v ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION SIN2B(T,H,ALSBAR) Mmj03w#7};Id[j)Ѕ'j $>M3蚐v`;搖l_WNox ?Y- Z8SJSUsqPfP/ N1CݘԽϬ(V Y}]+F V4#J/#6/)9XbZ?O1RT*]c_;f^3ve *EJB_:pR0Pδ& ($.hTDo[]q)ʐA>lB3?Kybs|Y.V{|[ɞ7CVRrQ^q>` .zt8j%(>֦fӸk3` )~?+^ɐ5f7G0+1Xtz&\\]ہ>+K,AFBBBP. Ƃ CMZ : 2.00/04 14/01/99 18.27.08 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION AFBBBP(T,H,ALSBAM mn0i։=`EW&`P)!R"uv`{ "%?rI[+EMngXkc۹0Je+28O SfkS3̚7DV~dsFW\D13FЊfDIv7b3z_/A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author :  DOUBLE PRECISION FUNCTION DVAF4(T,ALSBAR,NC,QUMUUS]o0_;8lˊ4hZ{CsʐhXlu2"ŎϹBpg ̭&F@Wq~?0(ɞ7˼U\!2-<5U_Vn.?]+}u;LU J\rJQrqZEV"zCkLrBftdV5/f9lf^de-I%0R[EAU/nM&jSa $L˔#Rd[\ R'XL"ngp2B "KfruTj,C\WhVFvxMv"<__ #paEW:{~9^j_ kLU9/3;'ƅeN y_6xI7(MVzgXi90aB9<+dO!fPzڒjS[7CFx |~*MܶrKM;m&؅U!+l8C5z6! sA_TgZ>+K,ltobzor. Ƃ CMZ : 18/02/99 12.19.24 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTOBZOR H* --- ------------------------------------------------MT]+K,VRU. Ƃ CMZ : 2.00/04 15/01/99 09.33.58 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Roza--------------------------------MSn@'sH$"%[APϫxd{ `vmF"'81wwvfӺ߳_Søq<,j^͔b-X.ϰ騩Yd]&D]#B" D0G#4B"} ".+lhFEY3)5c $wpЦD*.{tv]PHujApVQZ͗EXٸgzyW1nloVOLWI2Kһp,;kNqT<| K칎23wD c`Ĥ~ 2~D-CHryB2ɕkH#gxTz6HRpH/0z;t._sv-t\cBtap)R N꜆p^{۪V=z].M٭m~,x)~`"uߍ~>+K,lt4m4.Ƃ CMZ : 2.00/04 23/11/99 14.56.51 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LT4M4 H* --- ----------------------------------------------------M Tn@]9iO='jr^VzZ{=)A*ݝ7VngrBW@DAS=L`ơLXj3sEMfeBub[AL) ooGn$˅Ts!+%,XdӜm`X/ zoh& ҭH^_Dbm^ 絜zH#V3%GźY ~ᒙg£lO Q(iIj *KB(Sɴemn2c Mx*H٭XJbr7"熝8[Z\|9D/era>+K,DVAL4.Ƃ CMZ : 2.00/04 22/01/99 08.48.49 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVAL4(T,ALSBAR) from draft TH-7252/94 preprint 11.05.94 and VAN draft 18.01.99=+,DOUBLE.MLm9Vي ቢ;_mSsT7oHیw*Xپ|ˣ9@el=o sr0tGnwGc8ǒe7[ϟԯ2a~]o-&E `w\Z1%m5b70CuQ#=G`K35['}tOkK_) զS։X~iZP%e._6OMڹlv1`smG8Wz3xxe#z݁?[ՂYHob1rUb$ KUt ^#EVXrBٓde9oc뺣9E .GpIik1u ˖C?; _܄. P 7CQ~m?<z7捸bpV⪭+Z3[v}w<iԵ^VBEz0.5Z?z~R__CE ^ [upT2YlIs矶5dٝ.G^v!/?sκp;?Sp={&%^,,I" GDͶYA)JBJ#x@9)Ƭ¼ĿUS>+K,ltsusyget.Ƃ CMZ : 2.00/04 06/05/99 19.34.58 by A.Rozanov Ƃ CMZ : 2.00/02 04/07/98 21.21.03 by A.Rozanov Ƃ CMZ : 2.00/00 05/01/96 19.19.02 by A.Rozanov Ƃ CMZ : 1.30/08 22/02/95 16.28.16 by A.Rozanov Ƃ CMZ : 1.30MJt VrFրiow8B"4c{,HW–V7`iId\sUϮ[x΀sM1X;MntWTQBڳ-¨(Xa} 5BPS]xBjGԧ)tϕvN=9&hj&}j]hL֑g%d ϏKOFIJ\|WewxM@S x?}Џnd}gNV@cͳVݑǬ=N11&5fNŨDq.S>+܅A aK݈.y?_B̶oG/ZzzC<"NyE%ؽ!cEmZW]>+K,ltobzorfig. Ƃ CMZ : 2.00/00 23/06/97 11.09.11 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.52.39 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTYAD97 H* --- --------------------------------------------M (Z_sg%Gvf ,$S-)y((K1$$9~j5CE9@eN< nwqZ-WR{WpɣB޺~(&N:itG1UÓa@3O<8 `/z`^DeʦgtE~q aj~\x; 6'ҏQ0f+iť t2sS{"KzRKi#vmvENj (80gFڈ^wq- 2ស{+rw\*p|J2g-a4cEc]D|G?x k}n{|[6(@c+'چ>=n^t$e=:ZXEcx1+ V;Sa5#t]⬢6x1Q= o{?iudV"P2 DWu6m61`Q=54A8kAG\-A8i]EhVUuj;ܞcPj^哂R^;6u9疧hCrlYhJ8(|c\aѐS8>E1q_ꆗ-4ZC֏yb϶6- THlJO|Y>|i'yyr|ćOMpҎ|y>λyS$8SD68L2$e0UH =8>0̥GG7>e~钵,;8SYM+kLXan8VbkB69W9.KA<i'6𨴶==nͻ}juhFEks=.ӨwA^j+dF-VqV3sWyLiPK_TXebXmHJ(c?ze(QUb~,ƧgZE>~kRwver2yv2"jcX;Z;q;1T;w鏨 ^g?*oPH!t.)T[p U*e+_G-1:hQAZwpe}?P=6Iהz^e0Fl LlLG}>Cc ;]w<#ny.{XXq(rz2T |Q:Yx/7J\F Q8)C'9JsǺuV껟_~.7u>Wi^I6ni0Q'}O2.>f.>eFOiN$6kT xsC׏ fW$P;)@ZC۲} EU*4cnKn+%m ri:Ax=tUW6G6_ٖcm96_ԹW[TkK|eT5ೠS=Mi{ǾU%1k t=,HgjTK6aZMr~vv u~ >+K,ltobzor. Ƃ CMZ H* --- -------------------------------------------------------------------* H*‚ Mj X_oF b;OY]Ne[`+gW,zX[mߨFl'ݑ?Hy '6hQq,`^4J$:c0u_?״M8,g9osLvS׎5?E(!!h p<&mn<9*.uR}3[9݃;[GH.lw*‘30P*'R2Zݳ[e(}/l/z6P}V"vb  ߮k_==* 4+ 9 (؁=Řzab_y(@6t\ Ӑ'tgsY6J>}NS{8ڃj\-yޮ=b6ejn9p@#=Tm F.&YlIH=H=C?zunu1ܵpBgk|u+wH@:_>+K,S2NUN.Ƃ CMZ : 11/01/99 01.10.39 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION S2NUN(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  C=DSQRT(C2) K,DVRL4.Ƃ CMZ : 11/10/99 23.28.39 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVRL4(T,ALSBAR) from draft TH-7252/94 preprint 11.05.94 and VAN draft 18.01.99=+,DOUBLE.=+,CONST. =+,FOURTH. DATA NC/1/,QU/0.0000000/,QD/-1.0000000/  DVRL4=DVRF4(T,ALSBAR,NC,QU,QD,NL4,AMN4,AME4,AML4) Dwrit e(6,*)'+DVRL4:DVRL4=',DVRL4 ; >+K,DVRQ4.Ƃ q *<[%P9M&MM6|ki<X+*inb{"sXQ}C Fg1Oa[:9yFQob?VJ[xU:=ۃP@VjJGd<Ǧ[[sl l ,t*g\n.MfЭ%ŬDҟF|3|)>D F>{9BvE db*x(=ĉ׭؟Իy=雅\u&rߍfRk>膰 ZNhdNyVtE$:E\e?T!`N_,wJ GϾQh$,WSp-wo}$aG.% 6ᖘoi*/da>7)wEP>+K,ltf4. Ƃ CMZ : 02/03/99 21.23.44 by A.Rozanonov Alexandre -- Author : DOUBLE PRECISION FUNCTION VRU(T,H,ALSBAR) =+,DOUBLE.=+,CONST. DATA FAL/0.00186/,FAU/-0.00165/,FAD/0.00137/ DATA FVL/0.00197/,FVU/-0.00169/,FVD/0.00138/  VRU=VRL(T,H,ALSBAR)+(16*PI*DSQRT(S2)*DSQRT(C2)*(C2-S2))*  1 (FVL(albar,s2)-(1.-4*S2)*FAL(albar,s2) 1 +1.5*(-(1.-(8./3.)*S2)*FAU(albar,s2)+FVU(albar,s2)))/  2 (3*ALBAR) ; >+K,VRD. Ƃ CMZ : 2.00/04 15/01/99 09.33.58 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.?  DVM4=0. ? ; >+K,DVR4. Ƃ CMZ : 2.00/04 10/12/98 20.23.37 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVR4(T,ALSBAR)  from draft TH preprint 11.05.94 =+,DOUBLE.=+,CONST. =+,FOURTH. IF(AML4.GT.0.000001.OR.AMQ4.GT.0.000001)THEN  DVR4=DVRL4(T,ALSBAR)+DVRQ4(T,ALSBAR)?  DVR4=0. ? ; >+K,DVA4. Ƃ CMZ : 2.00/04 10/12/98 2048 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VRD(T,H,ALSBAR) =+,DOUBLE.=+,CONST. DATA FAL/0.00186/,FAU/-0.00165/,FAD/0.00137/ DATA FVL/0.00197/,FVU/-0.00169/,FVD/0.00138/  VRD=VRL(T,H,ALSBAR)+(16*PI*DSQRT(S2)*DSQRT(C2)*(C2-S2))*  1 (FVL(albar,s2)-(1.-4*S2)*FAL(albar,s2) 1 + 3.*( (1.-(4./3.)*S2)*FAD(albar,s2)-FVD(albar,s2)))/ 1 (3*ALBAR) ; >+K,FAL. Ƃ CMZ : 15/03;ZgBLUiQ‹Psv6dG׉yIzx4vfjjDb,{1k¹c?D`ţQ_YHQ@dUh 窠0܁6Eݭ*pStR zǩΥꞩu[n#QV]~yom- ԄI*Mh$#nǦP-Z`@v>+K,ltsusy. Ƃ CMZ : 2.00/04 28/09/98 17.41.17 by A.Rozanov Ƃ CMZ : 2.00/02 06/07/98 16.56.47 by A.Rozanov Ă -- Author : A.Rozanov 24/06/97 SUBROUTINE LTSUSY H* --- ------------------------------------------------M 1[[sf%rfy@)Ye[+љI^2 @VkQ:}h??z. L3&=={.ߞVr5'I/[Oę'>c^\ܾchr3 !DI'di-@{DDSAQcuo5]ϮLΣ3E1xd]Dxh)^^~p{탽#QgI*A4>&%/E[[Q<-﷙8=;}|E_G/@oh7X6ClAm-*i$`y_]QhIWDK]R3g](m8#xG~^-t2\]:88O6B3CD"pMx]fJFnд0=]/x2ğnu8l:`,}_qN 6m,^&ml9`Υ* <]%qFWiamh ihτd[ff#8c}sG/E*"ӹw6嘨܃ԵgC̸̈́G1)g g5V|k;jь}`XDC/F|3oP3ޡ i6'HEbߛ`GŸ,<;Y/\ak:bDw v2N?}d<> e˥ Ǜl:& H9y&>\YBȇr;Y^0-\.X.ms!Xזm N\fiܡqHA\aCxT xq≁$aѵ=LzJhRK3*bp*NѪ/7ȏEG_Xl8dzs0u׉K'X(ۏږw=۪[m9-{׆:Zv d9Gzǝ|q ηrT9Y0nk>f3uķT{S@5V8siCQۅ==مmL睍+[ﶻYobfTfۢ>ϲ'e.-1 o[,_B-eVS0=&3 bXPo /XuG 1.rRՏQ:O$ΐap}.EԻ4_/iʁ# [; ~^Gmy&^ygw˼m.nf1+ؿvL3$/ arLm-yUPoUΑy! N UO~rqj(dcz=kVGlo2M6ҙ6<3y牟;̏=b_nF]%wqcuqئGT F :U >xA^tȁfEVLx| R5 )T|RU+@V.^iO6uO30qakRa4n>KC6zjPyJVVVYScxpdkaċN#p4*e[yǘ2 ^̔N.f⊬NHl p*?ohH *Q%p)bᛝ6ig$h#`9=+{ rKz}tƢSWЙ3?CQtE}Ҳ zK4'٧S 5I;NQmW,iTVMtVfid|' ,^fn~ϸ>jL=R {nCm@jCF$y0W;xQ2T͉ ܻkT@ )dAm;«X=l[xǟlt[Y[s[i?|R]hhTh4r5ͱr8Br=@HNACs QVan!L3dɅmnղHb}g[`25.(ޮ E|?@ Q~+ &_} ¥޵nE>ow,'ЯH%$ys)LŖ`4B1 f?NğN |AQyvnH6?kH:~#^3=_  j^T;Ũg(ȱbT R ZWZr&'8|KZz[1p8IJfl>H?{" MH>+K,DSUSYLRVA.83. =+,DOUBLE. OS4P=1./DSQRT(4.*P)  IF(4*P.GE.1)THEN  FPRIME=1.-4*P*DASIN(OS4P)/DSQRT(4.*P-1.)?  T1=DSQRT(1.-4.*P)  T2=(1.+T1)*OS4P  FPRIME=1.+4.*P*DLOG(T2)/T1 ? ; >+K,FFF. Ƃ CMZ : 2.00/04 22/01/99 17.04.06 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FFF(sp,am12p,am22p)  from VAN draft 18.01.99 =+,DOUBLE. coCMZ : 11/10/99 23.29.51 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVRQ4(T,ALSBAR) from draft TH-7252/94 preprint 11.05.94 and VAN draft 18.01.99=+,DOUBLE.=+,CONST. =+,FOURTH. DATA NC/3/,QU/0.6666666/,QD/-0.3333333/  DVRQ4=DVRF4(T,ALSBAR,NC,QU,QD,NQ4,AMU4,AMD4,AMQ4) Dwrit e(6,*)'+DVRQ4: DVRQ4=',DVRQ4; >+K,DVR. Ƃ CMZ : Ckp/4 kn.0tkehV  kdBk_vk_-k_yk_Dk[k[?kZwpkUH@kT/kH6 IkH{@;mkG}WfJkG}WIWkG}VSJkG}V JVkG}F@I'kG}%g@%kG}V@kG}W@kG}EX@DkDq@kC2 pkCC o}kC kCc kC39kC0kCU*k3OP]k/,0vk.Y k oUj&v0oj&0ojsHNuP}j\# h.@ha@h߾;0h߾S0h߾G0h߾0h߾A0Mh߾t0Mh߾'0Mh߾E0bh߾20h߾00h߾0h߾u0h߾p0h߾p0h߾o0h߾d0h߾H0h߾,0h߾0hgE hGt O\hu[& A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.50.12 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DSUSYLRVM(T,H,ALSBAR) H* --- ----------------M;HSMO@_ӛvQCHB"8{I,yPmz?ǡWZڕ]ΛͮP~%~Jбch]u8pW - cpB|>ߧ*M@'Cо*{F-k 1'w+p81?<@M \ap<̻]0,dE>>F#bHN=i {62a l?xE {B}*Q~3WNɭN:PȦ5=RMdmk'}hPwy( Ue)ErG._ٝ::I蘆ꪔ/4[f]Bw/aBќExrS Nen띦^ԕɐVݫZUkdKܵ}VmԻ}64 +,`qSp;vY6Kb,!G IZi qf4{tUBPkj=%/3 ftEE`q"2-ǜJ^܍0*y0EQcPDRNY(y<fa(-g @# ̲0&clHwjQX`ԗi*mo>椵7 ƞS.ނ3&k>&=5(,,^UV|5Ue:g (Fe&X^0O3 OQd25enhṗl'E { T>֒_":yݦn݅fx2 CD>+K,FFFLOG. Ƃ CMZ : 09/11/99 23.58.09 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FFFLOG(x)  from VAN draft 18.01.99 =+,DOUBLE. common/cfff/s,am12,am22  FFFLOG=DLOG(x*x*s-x*(s+am12-am22)+am12) ; C +PA TCH,//LEPTOP/CODE >+K,lt4susyino. Ƃ CMZ : 09/11/99 23.58.10 by A.Rozanov Ƃ CMZ : 'q e` ұHJ,01?[ A4 }plI)IA6ed{vIU}gW+-븎+'!7VʻgeoVmOֺ<s&*sڦ7pͰ}5ƢRf]xίz ْOU9wS>fmqCFKC^ݨ\Jue>Ќ_T(E2^s gj%sYcՍ(_VTi`sSSS]]gP69Y!4vڱZVߥI7mNjI9E:< ]A3-n.#(Xr4!bEn;_zCh51t!T/?ұ5D_d.e[̹]|%@yÏWn(ᴖRS : E#ړu릇8Hz._wXex_އC\oe,\']~?l~U Ӛ?|s L5_q}>+K,LTFIND. Ƃ CMZ : 2.00/04 15/04/99 22.26.58 by A.Rozanov Ƃ CMZ : 2.00/01 09/10/97 22.50.37 by A.Rozanov Ƃ CMZ : 2.00/00 26/01/96 09.10.11 by A.Rozanov Ƃ CMZ : 1.30/07 19/02/95 17.44.45 by A.Rozanov Ă -- Author :Mn0#hή(P-HU"LizFdlڨlo5q2#R䏜6Z4xGa~|THϴd v V'C/ (-({r_oe,h{A+'q:_סL?BROUTINE LTLP99 H* --- ------------------------------------------------MRrƕșqa!4AJ)$ٖ=.d D"PHkv5]zy (f"g$ Ob?qğI i.Hܣ^tn.$~tOb3qyCƨchMoٲWM1GtLD +-tTӴW:m>i..voFS5/6OshX41E΃!sv0 Z&M(!P9В}6fY yTfs"|8S~B6,i7A-\e02[ʇIL`5`)O%mCxgk;]*aj'֟OLx!FN&ae߀] !f3MNBzܖxǵxrV'>Me kRI2eѐDʧJ4,SFrY?EVn{Ir4+ɀJ=oQ} 8GHL2Ͷ)&<RQ3۴3byىTM[luLPE2GY$>nP[ߐ^\ģ%fyZ`jNL`ùG9)h^2pd**%אT.y0PSJϖ඾vO`FM_WT&*+fVi25]?@gwC>]:"D `po~=ƶLj\Tu^!Xõz#NAO`lRf-/Ś́4³7MIЂuYͤ[Rt6\٘ݐ΅%!/M{*pmk̆'1JK{JTLs~zn`O9$|P▫Bq*:*u*#\x쪇)D|:XoPN\Hsdk!yHGa4u&n{_~>Mp'mK٣|p( / (JaURu$f(P-\5p1Qm eK>+P],U-Ede|!)`^~0#/P Y#${x*ٯd^|}'NYgOV+(C86v9=otL pm8]h7C<Uab(Ho%|#" gGz}lޓ3q.p^ֽ kXu׍i$Nȝz!/Կ W&LJ Zk|{++ܙԿ=vByHVp"NYϰrEq휉65JigC38'G?}M<:_8y g#X(?/̭{kW[AivQ<ug-u/zts\p|OI7dCpw_7z0SVpYcߏ. L]3ߏ 7H7@V*,ai.*J'7P?x:77g?Dkz𫲹2yjCeo=˰讥hs@<|ǵydߐc^҄ ְbe:l#׭+|uK ;Qmuq GI*z^UFrr6{>WwU4u]HUch;]I ?f0obIva[QY&y=Pas\iy:r14e7`}wՏ簿݃#Vm74#MlYX{Pt+t7ho-A9 rsGTP-Y<,FK=HN 1N- mѷ|f"/"R,Dl>u$/ZFg88z!zA1)!&P95WPUTWPzHMJ&ޜe:b1dwfLVs.f+Tq2S/>ʗP/WJbEHNhC|! LӴ2ʒK qXOڤ]-v6d&[#Ӧ|.|ql<rpKێ> 5|qL_f#um5QKc}q ȝy ΁\AgNӵ~8'JS6 <mHUsZe={> rgg *n8/ղVk/bllP L|q.5LbQ|,qTHI<0zCoMw5T!S5<`9Y'u0BAT:qeb"J :&oҝMF6.aV핵_lUm[D[zR*2=0.ӯ#DhIŦ>p}E~dٕp~ ^CبԊ3pUn2!ؿ۔+T߂z|EںQqy(k)WۣdSO+'A )fvWR=pMRz}>p5=RVO躿K۪lV녺uq 7QAZϫ ",kɰ;\a$/=FF+Ӫ* j3jj8 ]ڎʘXQKU ~w\ACmh  (a@3>3qvbO]w^xi XM*`Y`cbe$Rc1zfԽ]׸K}WURV; ö=BZ#={դ]XE}_i\-EcT_MoS? 2}/VưqSTO8 qws^)< o+9^2ݛ8|<8a Ļj96Lk.8ZO{iSN2B/Lyz,oB >B9aA΁eA+#AѓHd.銞DoZy=<$I>Y:}!2? ASu[ohGy4¿N⬼xd2z8 ;SÔڵ5e6]=?>+K,ltsugra. Ƃ CMZ : 06/05/99 19.47.18 by A.Rozanov Ƃ CMZ : 2.00/02 06/07/98 16.56.47 by A.Rozanov Ă -- Author : A.Rozanov 24/06/97 SUBROUTINE LTSUGRA H* --- ------------------------------------------------M(Wmmon/cfff/s,am12,am22  save FFFLAST  external FFFLOG  data A/0.D0/,B/1.D0/,EPS/1.D-3/  if(sp.eq.s.and.am12p.eq.am12.and.am22p.eq.am22)then  FFF=FFFLAST 6  s=sp am12=am12p  am22=am22p  FI=DGAUSS(FFFLOG,A,B,EPS)  FFF=-1+(am12+am22)*DLOG(am12/am22)/(2*(AM12-AM22))-FI  1 +0.5*DLOG(AM12*AM22) FFFLAST=FFF 6 ; >+K,DVMF4.Ƃ CMZ : 22/01/99 17.30.40 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30v Ƃ CMZ : 2.00/00 26/01/96 09.03.02 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- AuthMmS]S@Շ'7BkG;.4!ڨD;j?w70X{ν 8ܮ=8GVw!"5ugڵm!efnUe\XYsq?;)V93+t =||&r|X73pc%|٩>+K,VAU. Ƃ CMZ : 2.00/04 15/01/99 09.33.58 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 1/99 09.33.58 by A.Rozanov  -- Author : A.Rozanov  DOUBLE PRECISION FUNCTION FAL(ALBAR,S2) =+,DOUBLE. functions from UFN 39 (5) 1996 p.517 AR 15.01.99  DATA PI/3.141592654/  FAL=albar*(3.0099+16.4*(0.2311-s2)) ; >+K,FVL. Ƃ CMZ : 2.00/04 15/01/99 09.33.58 by A.Rozanov  -- Author : A.Rozanov  DOUBLE PRECISION FUNCTION FVL(ALBAR,S2) =+,DOUBLE. functions from UFN 39 (5) 1996 p.517 AR 15.01.99  DATA PI/3.141592654/  FVL=albar*(3.1 13/11/99 20.14.24 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/11/99 SUBROUTINE LT4SUSYINO H* --- ----------------------------------------MW[oFER?<&c*x @" ZjX&Q&ͶGS_}ڑb;s9 qCy(_;sPNpݑ5~1:JR}GYN߶5N.)lsZ)b14oL" `"Lн[Bk#L<9~per?щH|RR0vw#ߔR!gШ q#z|h[R]01`3Iy&|e'Ǥ^wAh,Q1|u}#_ﻍOWVsVPNIX`3Z36BDp.K[ru<'*^QVȹЉvʺ:pzF4wNmv*\Sl! ;7[R]:1Sߞ+e\7͌׫g|)+(G:2$-<+Ar+)vY]b*C5:9Gu; l<ۨ`txuF*1$^zm:o J̈D f_cT PVC\^ jbT5r3Gtݬˉm1d]!HrqTSs08@n /^װFaw vsl{Cg.2aOT$w2N}S8w-8Cސ1z)v85}(Sge(DEad,%԰zs\ uQ5pmajԃ_ia^=ace>d/}Qú`]79^xLYW\FpTʔ<Ȭy@\^td3 ("}UPkvaCݗO'YmږtɃ&ݡVZ+nr-2Û M<5ݶLl05jٯ ju-q-VY+TAW$c4OMT6+K,fsugrun. Ƃ CMZ : 06/05/99 19.31.08 by A.Rozanov Ă -- Author : A.Rozanov 05/05/99 SUBROUTINE FSUGRUN(AMT,IERR,AMH) H* --- -------------------------------------------------------------------* 4,AMQ4)  write(6,*)'+DVRQ4: DVRQ4=',DVRQ4 ; >+K,DVR. Ƃ CMZ : 2.00/04 11/10/99 23.43.08 by A.Rozanov Ƃ CMZ : 2.00/02 02/09/98 22.51.20 by A.Rozanov Ƃ CMZ : 1.30/04 18/01/95 16.36.18 by A.Rozanov Ƃ CMZ : 1.30/03 18/01/95 14.50.18 by A.Rozanov Ƃ CMZ : 1.30/02 M TMO@ďn^ ULjz3 A7RV/mVgAzfޛ7vt{E"C8'_8_iR2c%,h~ `vѲhd3("Okqޤdk9nV_xmـF%ɶSk:CMZ : 2.00/02 05/07/98 20.18.46 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION AMST2F(T) H* --- ----------------------------M9Sn@])Ré8CS"-I(ěԪnv#H+\௘] Tw޼y3dBȱ@*pxQhB?`LN6iPǑ%˜Qrn0NW/(89&O;I>Skނv-"Ou-S(~++e0EE,dNi4AQ4h|! jqe%= Ci Nq}nh6C7$U_d\veo)Q֑e>Uj;ĽmܦeX ߶QȦ c;Ck9G!n >+K,FFFLOG. Ƃ CMZ : 09/03/99 14.53.14 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FFFLOG(x)  from Vzﱶu?~+5UgzF=}f}7;˽w|7<ʆ$[:.jQ͕T5Ǒ/]տ)_z.R~#N)%JRjh= UixFM5l)%-pPõ0a C[m\\ы_| x _T;]{`3;+-\#MV⪧TTxǣ %a ԩ5\=v>\]-ݹJ<~Z&~N;_I~g!Mw"WwA%=~y3ñ΁ճeDSe,;+N!ܝ{3ygMnyI?4!= ?*ƓVP{f9hå8uݤ2)uT]/4s&LF5këQRo$ش{> >+K,amst1f. Ƃ CMZ : 2.00/04 08/12/98 16Ƃ CMZ : 2.00/04 14/11/99 11.51.24 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author :  DOUBLE PRECISION FUNCTION DVMF4(T,ALSBAR,NC,QUMC}UQOH (Ik_ȤItV݆VoIե-&{{wp?lO ]&36.F?^Z| "pEIa1yyPRn+UX5=urz#:~>;UW v|͒ ݻײc~ C1g>!,E)7,ŷljfy1g}p>4z7KVm:ޝpX6Q/3֏[POӞ0vԿ Gz: Qkֶܖb{Y۔tj&=:8u.摸rG;K< @Py&Ǖfl-"P/B c+,)qA r8plQp BHZ_oi{PoGƀy:wr9O2· 격ZG/PND2 klf3:'?|(5ߙd)ˢj[a馚?i>>v }:-TW2 0[6twG`.Upn1q_x5s|0ؐEZw8|5*hy'K?)r:@$xgU uKw)$@S!@ xE\ӨQ1NQ+C᭣ F dkbA\{MRw]2Jvh hmF}%֪iC>;%qG)0uu_b2Y!졘@@P!)SU {{K%{<+IS O 3WU^oB-zU8qbb5-U\ Xt֗1- ?wdc1x?0:2jˏ c=rBz)Sg3y'YS}ʬW2=A>+K,DVRF4.Ƃ CMZ : 2.00/04 14/11/99 11.51.24 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre I zW/[I낫6-b'&4?2q6o깡ٜb+NS@ ^ul({0M]2h4V"8YV=訏m"pRΏwZ"%D0?GO+kx%3ʃdc/2 ?hEg9?b@6Ug/fi>+K,LTSUSY_INIT. Ƃ CMZ : 06/05/99 19.47.58 by A.Rozanov Ƃ CMZ : 2.00/02 05/07/98 20.18.46 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 SUBROUTINE LTSUSY_INIT(ist) H* --- --------------------------------M=TMo@]A\ %1%H>1m0,QD,NL4,AMN4,AME4,AML4) ; >+K,DVRQ4.Ƃ CMZ : 2.00/04 11/10/99 23.44.16 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVRQ4(T,ALSBAR) from draft TH-7252/94 preprint 11.05.94 and VAN draft 18.01.99=+,DOUBLE.=+,CONST. =+,FOURTH. DATA NC/3/,QU/0.6666666/,QD/-0.3333333/  DVRQ4=DVRF4(T,ALSBAR,NC,QU,QD,NQ4,AMU4,AMD4,AMQ4) ; >+K,lt4mn50. Ƃ Q~+ &_} ¥޵nE>ow,'ЯH%$ys)LŖ`4B1 f?NğN |AQyvnH6?kH:~#^3=_  j^T;Ũg(ȱbT R ZWZr&'8|KZz[1p8IJfl>H?{" MH>+K,lttest. Ƃ CMZ : 05/05/99 23.15.26 by A.Rozanov Ƃ CMZ : 2.00/03 05/09/98 11.25.05 by A.Ro.23.37 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVA4(T,ALSBAR)  from draft TH preprint 11.05.94 =+,DOUBLE.=+,CONST. =+,FOURTH. IF(AML4.GT.0.000001.OR.AMQ4.GT.0.000001)THEN  DVA4=DVAL4(T,ALSBAR)+DVAQ4(T,ALSBAR)?  DVA4=0. ? ; >+K,DVAL4.Ƃ CMZ : 10/12/98 20.31.46 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by 878+14.9*(0.2311-s2))/(4*PI); >+K,FAU. Ƃ CMZ : 2.00/04 15/01/99 09.33.58 by A.Rozanov  -- Author : A.Rozanov  DOUBLE PRECISION FUNCTION FAU(ALBAR,S2) =+,DOUBLE. functions from UFN 39 (5) 1996 p.517 AR 15.01.99  DATA PI/3.141592654/  FAU=-albar*(2.6802+14.7*(0.2311-s2))/(4*PI) ; >+K,FVU. Ƃ CMZ : 2.00/04 15/01/99 09.33.58 by A.Rozanov  -- Author : A.Rozanov  DOUBLE PRECISION FUNCTION FVU(ALBAR,S2) =+,DOUBLE. functions from UFN 39 (5) 1996 p.517 AR 15.01.99  DATA PI/3.141592654/  FVU=-albar*(2.7329+14.2*(0.2311-s2))/(4*PI) ; >+K,FAD. Ƃ CMZ : 2.00/04 15/01/99 09.33.58 by A.Rozanov  -- Author : A.Rozanov  DOUBLE PRECISION FUNCTION FAD(ALBAR,S2) =+,DOUBLE. functions from UFN 39 (5) 1996 p.517 AR 15.01.99  DATA PI/3.141592654/  FAD=albar*(2.2221+13.5*(0.2311-s2))/(4*PI); >+K,FVD. Ƃ CMZ : 2.00/04 15/01/99 09.33.58 by A.Rozanov  -- Author : A.Rozanov  DOUBLE7/98 20.03.51 by A.Rozanov Ƃ CMZ : 2.00/01 03/11/97 19.33.54 by A.Rozanov Ƃ CMZ : 2.00/00 05/02/96 15.54.14 by A.Rozanov Ă -- Author :M U[oFv!^D\Dh *0Zc#$-ۗ_ *I+2=gΙ̹5ҵgYi>puvޞ:. csdۺyg~m;E;Դ~+JP磘aā襀-m7[;"mˇ :BႩ/W\0?cL_apGSA%;|5w<r>`Ƀ X*BeQL;!wßZTDpB>|/"Sf%-P`}c֎ *rD1K|pr _qPwԄItMul )MC7Vi6aoc2JzA3Ti".$ΗoQ{3Լዷ"]¿5ۅ1F'e⍠' 9NL2US J@Ls+ BFaa46'- zC$GvFo`qm3/ Fe=l$vz@h c qU6!\dOFV pi?r6#H@ٝ6'(w 2׬XKHZ;N]?|U0 \eNѷzB#d]'ڛW <>jtjS]jQ(eèAfKah$oO"5[HpbAz<Đ "/0vٝjPZc8|u%TH#γY ީC a#{F1wf/|y?"*w+K,ltsusy2. Ƃ CMZ : 09/03/99 12.31.37 by A.Rozanov Ƃ CMZ : 2.00/02 06/07/98 16.56.47 by A.Rozanov Ă -- Author : A.Rozanov 24/06/97 SUBROUTINE LTSUSY2 H* --- ------------------------------------------------M4E[_sgDrfp~AAR<Ȗ,kJIN&}@d!Hd;OkQsߣ=Οퟻݽ6.11.94  write(6,*)'+VM: T=',T  VM=T+TM(T )+HM(H)+CM(T)+DVM(T,H,ALSBAR)+DTTVM(T)  1 +DSUSYLRVM(T,H,ALSBAR) +DDGVM(T,H,ALSBAR) ; >+K,DSUSYRA. Ƃ CMZ : 2.00/04 29/09/98 12.37.25 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.50.13 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DSUSYRA(T,H,ALSBAR) H* --- --------------------MSJ@jэ㮭iZ\&`hEBjHB[{H_94i} H0swP7$CH="4LRˏ(*PaKOudG i3*{}>mwAM>w\źCqC`D 1Yfo"D2Ey=wUx٩WGCUp{`́n %bY5CX!K?sO[Wse2\x69YwϟQ*\o13,{kEp\3'8\Z[L%٭ꚴl;hIcQYȔ!tķ4&ܿ= .74$ʀd'َT]UZ9=%(DZCEx*>+K,VAU. Ƃ CMZ : 29/09/98 12.47.02 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- >+K,lttest. Ƃ CMZ : 13/11/99 22.25.32 by A.Rozanov Ƃ CMZ : 2.00/03 05/09/98 11.25.05 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.32.35 by A.Rozanov Ƃ CMZ : 2.00/01 17/03/98 21.57.20 by A.Rozanov Ƃ CMZ : 2.00M` `'Y[sfHKv%d1S.KGLqrI'o- grj&u[{K>4fq˜^R M-eT;{1kƞ3fvQ>ֵ ըE>z:jzETTOt=]-Bƌfp=PЫ2 *}*Lzjw+po.i.l?ݖc(|2T 4ٯ3OWOkG?no߬1,-y ٨l Mk-zsՂzﳑ{/VZ1İ &{/^4-VV z0#랽Z{ze+vDc;tfeGe/i-q"$;_ylLG׃h.Gk5}";{s{1FF Gbj7YgïWpx#t%A>\$\(_< qJ5٬1F4'앷叮׹~ d˺n>lLЇ~%qsTrUA^j573{h@UC{nCg;`ܖk7alz y{%r䞽\RI19F3w UɇkOɃ<eưY ƭ8(] EM%/ 5h;ZCLݲqc0A *gb}Φ(;8 QƹztI cT_s9AWTܡOVdoUɪwXWJ} |D_W*5Q]a,HZj/"rЏ~ӸFa 5XM%j$ %q @q$>[T #o=𛀣bbIE%ۈRr>0x׵]>1W?u!B*D9_ܽg oB韥i'bOy)rNJJbDŽ9ߢD|?zF|L&/zbp<*]1[(ւmw66mZzEo?9_rV+zjеEZ ɖh+l/2z$;IѦAqkt_WDW V9%ϋIS$ro? y>r&pl7@]k9NH ]`xnOV7has÷m w{Bz(Ůi":NCDc˦o[LH‹ ύ0]sW_=b 'KrWd-KƋ. 0L@rA<1T#וě0&Hߘ{+^f_B+K,DVRF4.Ƃ CMZ : 13/11/99 23.42.15 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/0LSBAR)  DVM4=DL+DQ ?  DVM4=0. ?  write(6,*)'DVM4,DL,DQ=',DVM4,DL,DQ; >+K,DVML4.Ƃ CMZ : 12/10/99 13.45.27 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVML4(T,ALSBAR) from draft TH-7252/94 preprint 11.05.94 and VAN draft 18.01.99=+,DOUBLE.=+,CONST. =+,FOURTH. DATA NC/1/,QU/0.0000000/,QD/-1.0000000/  DVML4=DVMF4(T,#<5"^Çtr z = {.G: k7Tcfsp^4[*aBI(Aࡨg:j:n_$ŁAHXط ko-AM>+K,GELE. Ƃ CMZ : 2.00/04 11/04/99 20.59.49 by A.Rozanov Ƃ CMZ : 1.30/06 18/01/95 21.02.49 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GELE(T,H,ALSBAR)=+,DOUBLE.=+,MASSES. GELE=GLEPTON(T,H,ALSBAR,AMEL) ; >+K,GL. Ƃ CMZ sQK:(}3W@ZGˠs0lmsr rRәW36} 3$~fw=wZϱȳ\W/mzMi]:,{b;#</lОl,$b_))1d?EsQcxϰuMo-{t+wJX=uD᪟+(@$|ٝ#R@gѽyȞhʢ}2$N#3fu`S7Sq )0.B ArjZ(2@:%dIBJ.a@j)uJENcuFUC9BF5S3D{M;aL怖*UkQǝuQf_Hayr$ZNI$ }S%bPrt⻚}c I!C6;öѣ*41-8^^hMAFy0gYr#8Ƒ{qj:$v'=` >+K,ltsugra. Ƃ CMZ : 12/05/99 17.40.48 by A.Rozanov Ƃ CMZ : 2.00/02 06/07/98 16.56.47 by A.Rozanov Ă -- Author : A.Rozanov 24/06/97 SUBROUTINE LTSUGRA H* --- ------------------------------------------------MWKoFVm'N?O$B2%[$z4ȩdF$]JZz?jOmG?:3KJ-ԅMr絳vU<PzV*Uz;iם)>a|9:qs7&aOH/[= ػ76&?]t[}1{SuzlbA]ˤyA?@rv&y>?lwtɪsO=Æa4 βC\/"}D>+K,Z1Z2. Ƃ CMZ : 2.00/04 04/02/99 15.27.35 by A.Rozanov Ƃ CMZ : 2.00/03 05/09/98 13.02.10 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- AuthMenF9I{KQKD@[BRVM$T+@RJi{m{uf)J`췳3?wwۗn/CëbQ̦p};2܉;oĐz|w>Uv+VՇîagUծAALSBAR,NC,QU,QD,NL4,AMN4,AME4,AML4)  write(6,*)'dvml4=',dvml4 ; >+K,ltn4mn4. Ƃ CMZ : 12/10/99 13.47.45 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------M^<XKoVyPs")Q(h<6"i&~`\ʤ,b)3Sb'kQr jR"mi@r[Bnvn~?jjǍk%^G>{'=JyDT9fvY iInx9]ޚQ2leg<0h4~ʠ+(z0߇o~:(7BDOyY=/,Ip^1wQޕ(:/%d#/YMsC҇2K3$ 6l m: /h=̧߱ ;Aa5ltCwJWfpD9-?$96l2ݼ0yQGvbl." m"KVs:&UU׆G~Ў!\Cס>~e"7*V^7[f1qA!OOcӵ=gP i'`4_6oĴL4(PK|G$dC>ѽ]{frJ~?M;6^`& h@\ͺ]^qua=~uwa>+K,ltfit4. Ƃ CMZ : 03/03/99 09.32.36 by A.RozanoJLRSyJJ.iJBlJJgJ(?Jh@J)?Ji@J*?J]MJ TJM<JHJ6OJgOJOJIOJj_J JJGYJBJd^J WJM@hi RKg/J,J5wJCrJPsJPJ9J}<JA<J<JI<J ?JK?JtWJXJUGJ!J~|}J|}J|e|J{@X{JzkUJzjJypyJx~xJw8[wJvWavJuubJunuJt5RtJsPesJrigJrSrJdqFPqJ)p~HJcp.P8S !)~f0霴TzZ~<#4)sOeE Y]@cN._ CZuq+Zd谒х+ ք7+3-,A sXP_2~|qC* k$;!1\`X. 'W*iEUFR9VM*,$բ~ K A &a4p {Ж95- ѧ2'+ ^p{ ,'R>+K,ltpredmt. Ƃ CMZ : 2.00/04 11/04/99 21.08.40 by A.Rozanov Ƃ CMZ : 2.00/02 05/07/98 20.03.51 by A.Rozanov Ƃ CMZ : 2.00/01 03/11/97 19.33.54 PRECISION FUNCTION FVD(ALBAR,S2) =+,DOUBLE. functions from UFN 39 (5) 1996 p.517 AR 15.01.99  DATA PI/3.141592654/  FVD=albar*(2.2287+13.5*(0.2311-s2))/(4*PI); >+K,ltobzor. Ƃ CMZ : 15/01/99 09.34.02 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTOBZOR H* --- ------------------------------------------------MOrȑ+ٱ EW ˶ uD}قHPD$O|l5u 0%dOd;kQ.^$m3"===qv;]qRc4Ϩ2|Stjyt=m"َE8'$XC: GgףCC\tgzL|B4tgXszY%a<Ұ(b}azѡ6%煰1:msO.j>#/'̗+G2e$S6"0[{cZ5gJV+bFK|뿐k"szܣaH^5ֽTEo_K1!.d$~&JݤJ?nYoU-z#R??q#ϟYkuqkaac9dppFIgMmZ+N^맳nY2iÓmǣqD8GOi2qQQ8QĵJnc6Vozc3R] ⸩7qz p|Ξ,+k9 bLӲ5>&d9˒k M̻H% "ay@_֒xj,) ^v"-mKt%gO_nnZŃ*\⋑>Դ>?Xkqv0xy a!]I{)۞4-`Nwҏ%D/2{7g(?-ٌAu@gdj.,WdӴذ?YD8\|]sScR2HdX3WFLÔʐ [iTDR,pSUVYBp `j#E=/I񤩁!2ΝN#b=?u88oܠ~8'VY_Vƾ.ɤonAǪ]̋R[鲶/EcmEԟ}/--a{Ʊ:SlNJ;K 0@nӐ#gv;Cvrz'J T7l '/lT$4+f^Oa*RYJ݊f_QB4WOjb|Qꮋ̹ 7*{1Cdw 7ض.] Noe&O:v둫ug6p& 1&B&B&1hK˿DlD^l9xsGwε=3Ce N{{.j6A0N!NV_ᜒ}T; 3X;-;z;1h>=N@CV4a<"ͨLb]FY28mh?@ꜮAMd@ ?(QrĩQ2.5ŀg3ow<6JYLEŴ٣_S6D 55=w÷[`>Qr5jqD-'Z]3 2ᲄ%Gr>opsjuM78Rⴉso̫| d2 㞻鹨iTA%Illm/hWBZDxX p&h"ILp{9ר" Df kֶCc/jہ>/mok*`̢F``НDê;׷NAT-r+7dh[EE](ec`Qғ{džlB6;ݎks{dz:?ȸ'|rvM/G=E6{TiL.xWǏ,)%~/u.x??T _K1gʿ9e>)B3S*CڝԮ7=BW-P-aFkVSlg@MM8&]tiZIvz{ ;nƤ>0ASŶfK=x- Z}w u팂3U9b0p.bv ܦ刍VyTQl,:-q 7jFG |K%)c&WZsDyNCj&.9%kp 5X2ʳ {hiȴ.dIbcِ؇ud\֖QWY7}gXwf2, 6]-;VPWWSO~u ~q15sdVu1XYCrȟ/5A]Nr))}S-DqqǮJQgP$)㡧q͇=vyUlSy}B|gCAL>+K,FFFLOG. Ƃ CMZ : 10/11/99 02.27.19 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FFFLOG(x)  from VAN draft 18.01.99 =+,DOUBLE. common/cfff/s,am12,am22  FFFLOG=DLOG(x*x*s-x*(s+am12-am22)+am12) ; C X*9N 4*G7]Y=>Cq[R]r*'o/~:6\1;;#VSmB)o?k{m]^:a4| FI|ɼ {E{ avn>sO21*Gy V5_H&8aeSNx=kE42 \"IMeߕG'856UpEMC:t`}X_unH{K\-qM%NXL8 LB,҈=׿L#Άs95Rf&{hϭg{hb>1;AyGE[ݍ<*p&wPg*^׮vk2k O%2 rVlebE1T+IcՏvԘ\`.gul/h\UJ`w+)?;'1ANAUrv. Q` _3UG3TQ$(@RJ 纥0ʁl}PeZ uzƠЍ xNz64̅6xA1X8^=<:# u/[6~5%a$"31  ‹lxwՄaMp?x n戮r9uyUH9:f96Ԇ,KXkawVVμ1]"UeB)w*"fI#VĐGlzRԮUjL^/<"=Sf.R:s?^^MY/i:+t֧OZ"㴎׾ Q)%:u6(miV7E gAwM?DŽW"4ء9H~(4z{?-̿VS"o6&qxg8;P7v̨CGG2IAmV~i7wr>+K,lttest. Ƃ CMZ : 14/11/99 16.47.48 by A.Rozanov Ƃ CMZ : 2.00/03 05/09/98 11.25.05 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.32.35 by A.Rozanov Ƃ CMZ : 2.00/01 17/03/98 21.57.20 by A.Rozanov Ƃ CMZ : 2.00MZ `'YIsfў* Xpc_R ..}Jd<ت,*@lryrqPe{б3xeƌfZ-c]Wc<>of9czcC?gjfU+L-xXNt2pQՌ/ 3̀gVI+T+3dA%qo,CONST. =+,FOURTH. DATA NC/1/,QU/0.0000000/,QD/-1.0000000/  DVML4=DVMF4(T,ALSBAR,NC,QU,QD,NL4,AMN4,AME4,AML4) ; >+K,DVM4. Ƃ CMZ : 2.00/04 12/10/99 14.02.18 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVM4(T,ALSBAR)  from draft TH preprint 11.05.94 =+,DOUBLE.=+,CONST. =+,FOURTH. IF(AML4.GT.0.000001.OR.AMQ4.GT.0.000001)THEN  .r:d3u;~]c~볿=$z,ɳ_O'm3toz]8 ҜZR=E-<@>N)'5fЈ愽6Q:Z@Vu[*>i^=cՅ Pدd7sJj(ZOYNhE {(i5g/nfvO1(i\oY`ؖk7ۡoZyk!rր䞽\I1 dU=#p)9C]c5*wMܐ*T ҿ&kwi{Hҡ$O ]0h?/h 1+r-.7?FC@{0ۼA6+q뭇ǎ.V4EU%O 9(;ZCLt}C RT=s6}G~O!gyloNPM-K_K"}\/m'oڒe?VjO=]POH}G>iA+^X{95<ͱVweA70弿сY*D?愡RZ˟@;{7nfo7-Bǰu6/IVg%YrY%E&Z"CM,'!ìhC\)29S1*dI$l Ìd1Q e:$١FDtdLȇ2uy>'ÅܶRAm-u:m+ri:Ka7!^Kv2C.iz=m| &ÄuBrYW^Q*rLп:998rN4Psdi6ΰajLys4Mϣ:šolfsS]'0<c@mNć!K:rI'l&B '1 }O,W&ȄW|.TZ£L*7ڬa^G-y&&<ԼܘXI)Ϟs?()7Opd(f7V)TK)ꨶi(Ipўhw~qYy]˄q.#BEsx%S{ɡ!feGP\;ߠ!_ۀ'zwxꦞf w&H'zTp&ŃK{>>OfJ;~U=Q I轀{b9-fo>ͫ*KQĥ>8Y41b詵L}P#g9רjdѻ]SuE蝉7sAqV">+o<ښjD'RT$hJ+lS1HnB2kn Ef#1XJBRer&p7@]k9NH ]`xnOZoĒo%'?6 ᅸFٛQl>]9Dly.3*ɗM+'_T&lDփ^Q$EF.T9/ G>Hq~~%9+R;4y"{Kw&P9h9Wo˜#~ދ^7 /e7_2(+K,lt4susyino. Ƃ CMZ : 14/11/99 18.31.45 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/11/99 SUBROUTINE LT4SUSYINO H* --- ----------------------------------------MWKoF&RIy)2tmE*Ɇ$#)X+IpOݤ=_ufeJ" wۇ,kc+Z?ir tGzӿ#ܥ/L(ƕp܅N&H(nec&ܟ,}N DS-<0޵S"S[i2E,/DؿWdFK>Gy<04>~$8%ms׵RqoQD?0gm" so$tTTnE/sλN3bn5Zv-WըsVNIçXh2Fj2&BDp>p[/5*Gj} ㄕM}8!z\)pc'5RgMD>:*Ԭ>Tb$)Kt,YnF turqXCG:,6 7҉a ),q Ɖ?bKNMXL8 /c;D K#cd2^RE 4sj(f&{hϭg{ha> ;AyGE[ݍ|*t&7pPg2^׮vk2/k O2 rVlejE1T+QBU\;rJ.0fulQѸ::֣xDsL^ Bw kݶsokYJӖ.vhVb]z~O|=_կUΟ""V_qú<OtlzS=tശnnjA:zdy-Suj/hNwr>+K,lttest. Ƃ CMZ : 14/11/99 21.07.09 by A.Rozanov Ƃ CMZ : 2.00 KL|: ^m.)f8g&qS&1>f є#@!ho n*y\c§LS=&#<4q}9b+GȴnVY?ԘE3(o%{A>5It$" _ Tt:g5g+K,ltsugra. Ƃ CMZ : 2.00/04 14/05/99 14.38.27 by A.Rozanov Ƃ CMZ : 2.00/02 06/07/98 16.56.47 by A.Rozanov Ă -- Author : A.Rozanov 24/06/97 SUBROUTINE LTSUGRA H* --- ------------------------------------------------MgWrJҾC@VV(vT|JA(N$\\Fn#y| M槒SP?7Z|S\W4W/{ã=Mn!5Xt\t2BgMI䔒E&y<4ĥ^~x]K?B.^h|yqܗ/hЗݶ ; SRT2%SlÝlm#PfVs>KAF~ [ 뷛`v_EAm%L_JIv;+{~|JZ@5 }ë.ǖ긝H}&|UL(M |8]y2lzG d>}HjXDtJW#(Ìr캖cn:}h?j{c3Q +yRCXVZm Sy?s>D~AMC +PA TCH,//LEPTOP/CODE >+K,ltobzorfig. Ƃ CMZ : 20/01/99 14.58.22 by A.Rozanov Ƃ CMZ : 2.00/00 23/06/97 11.09.11 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.52.39 by A.Rozanov Ă -- Author : A.Rozanov 01/0by A.Rozanov Ƃ CMZ : 2.00/00 05/02/96 15.54.14 by A.Rozanov Ă -- Author :M V_sFWi'ID$=Ã0xN tӇ֙i~/d{tMoۻ \ޮ{+7 '˓Qq56p:5Sߔ Ei*(J*~S(s>h{)SW@\ \< fNG"6ďe|(!|hᾙ^'z/> 8q @ pDNaN |7ra0Idc< W Ee1G1.5'F ev 7`,yWx1gQ|;f m\bR_hgo:E%?<M<6>sٟ"sa# #Li-M}aս=lL#}yȕնLk #l|yㅬ߅5/{-g'eՂccQD ?4qSoȲ @ լn(%]"s6XQS7haԽRBhSxR.w1UC;89 "-I ՀU˂PӐvMX;m!i :v ih;D}SȧC=$6͇Zy{!O<~—@Ѷ-jβ.0IfY\K&E!%S)ĹsQ>G\>` I@ iX5,l6iڢIpwĴ.6H.=#3Z&M6iIMlR*ެ^-AWc8hO~Y'ǪY%ZBԯ{dAA:$Of]aO26'!Tf$bEzkr|N}>+K,ltisolfig.Ƃ CMZ : 01/02/99 18.08.27 by A.Rozanov Ƃ CMZ : 2.00/00 23/06/97 11.09.11 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.52.39 /L(ƕp܅N&H(nec&ܟ,}N DS-<0޵S"S[i2E,/DؿWdFK>Gy<04>~$8%ms׵RqoQD?0gm" so$tTTnE/sλN3bn5Zv-WըsVNIçXh2Fj2&BDp>p[/5*Gj} ㄕM}8!z\)pc'5RgMD>:*Ԭ>Tb$)Kt,YnF turqXCG:,6 7҉a ),q Ɖ?bKNMXL8 /c;D K#cd2^RE 4sj(f&{hϭg{ha> ;AyGE[ݍ|*t&7pPg2^׮vk2/k O2 rVlejE1T+QBU\;rJ.0fulQѸ::֣xDsL^ Bw kݶsokYJӖ.vhVb]z~O|=_կUΟ""V_qú<OtlzS=tശnnjA:zdy-Suj/hNwr>+K,ltchargino. Ƃ CMZ : 20/11/99 13.02.03 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/11/99 SUBROUTINE LTCHARGINO H* --- ----------------------------------------M_ V[oFE[)Nl1,D$H`KE}Z x#!>O3cS#v|s7c,VZ?75Crj?ĒVsۄe`,쌱CXnLW{01sb!`,܌\쌉1f`$: @dW˲eQC/I Im< wLr2Ʊk1]D%l3V3KQǩq@8N$._/ɕ{d B=3,ؕ3"߮\B|E]=ؑyS.ߌ}h:.YA 腖wu!cr--;kƁc`KEvɃLaݹvFAd{y__@qA^zIT>+K,FCNLB.Ƃ CMZ : 09/11/99 18.52.22 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.41.59 by A.Rozanov Ƃ CMZ : 2.00/01 18/07/97 19.57.45 v Ƃ CMZ : 2.00/00 23/01/96 20.40.46 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- M?œn@]hKbndE|0h-8r *Q!HQ%>vgvmH*Fٝobo0M2!Q"J%a4t|fa2 l,YF,aێ;q]lec^ǂtH{Zw[Cg.?Εf(>:+sUX=溜yf_ܶZ|n7;|}5|Yf/M;u'lY(0k|ޤ=j;i7*$m뚧4+.hHeVMZ5{RO0wuLPLbʗ籟,֧x#`H |Hk|=C6ܼa}#o VP MN jf^]=/:e%rY@dWy_Y+ZgͫTNGJ\;W5YfgʦKrfʊmUmFlKV>W{U-oQqȷ|P̒-AcnwW_kz滍/-0,2>+K,LTCONF. Ƃ CMZ : 02/02/99 16.17.52 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 22.12.46 by A.Rozanov Ƃ CMZ : 2.00/02 20/03/98 01.34.41 by A.Rozanov Ƃ CMZ : 2.00/01 19/03/98 01.29.40 by A.Rozanov Ƃ CMZ `n9*;x̂7XC"U* F 5L5wb@_&ŀ!Z\#-ģ[N#i4q4|Gza_z![nEEklEN/ÛQ)88I>bg; \lB\.xpL)5mLb6&dt5&&d[) SoOYcGQTuĦϥ/oC#aG̘4z#՝plCa` ߒ9(>(B=0 >+K,tabconstvi. Ƃ 05/09/98 SUBROUTINE LT4SUSY H* --- ------------------------------------------------MpSMo@? 7;lRCIUq\MV #80=9x;{OƁa}1(u` ˵:[_uR ̔U"]񂜜'jLOYVi`#kDF6a&44\&aj^$IbMTp65℧\YCGƙD kwg+R9AxyB3:`[:Z#SնI3NΙD 9KQZ,}<YI>+K,ltn4msb. Ƃ CMZ : 05/05/99 23.59.57 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4M4(amh0,am40) H* --- ------------------------------------MD )ZrfNfw\t@ Рy-֔SYnWH%LHP" U+Is7j{t= 9I73?gwzuGοZ("~E"'mӾތm?ihx|03*ւB*pe\'>-A:{wy=E='LxqGыG-n-Q1+eZ66VěELzv+Bf%6ۋ7D6vkf:%ϤY_ME fe-GZT*1Ff]Dq"8|H>N$'Oȧg` rXDXVs<29S q\.vq| .&$?ᢎ7 DŽ;NYcDN!&jX@.lclBI7XcbBI065xt`NUGl <\J64+ČI7=[iG7& N A=)R~ί`}?Ϯ! 1>+K,FAL. Ƃ CMZ : 2.00/04 15/01/99 15.49.08 by A.Rozanov  -- Author : A.Rozanov  DOUBLE PRECISION FUNCTION FAL(ALBAR,S2) =+,DOUBLE. functions from UFN 39 (5) 1996 p.517 AR 15.01.99  DATA PI/3.141592654/  FAL=albar*(3.0099+16.4*(0.2311-s2))/(4*PI); >+K,lt뀀H9uD%B+6VuQ+\௘]nC#wf͛ʼw_ 11+`i.ٙΤϮӆJX BgIΑHl^3ZBpDsS<_ ^_ƅq\.Њ  3go!KMĽX8<:Y%\ ѽ\*0ES[r4S5V>a 17Ls۟-bA8xWV+}Öeޜ_^>kj}]Qx- NA=sKM[6rpDPcBBm>&L]6Aаش07nppoYW֧-φztYǖV~Pupb >+K,delta11. Ƃ CMZ : 2.00/04 29/09/98 20.23.39 by A.Rozanov Ƃ CMZ : 2.00/02 06/07/98 12.44.06 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DELTA11(X,Y) H* --- ----------------------------M0 V[k[GrhXwPqID:Js.nlиkQۗ_uvHvA{F;}̞(_}Xs=L$,MƓj|u;N㟬oI?.k.?5v*W"r\=yE|r ?jpb_x39SW5e_J|gcg`E1㣽nf겇oVSrfFN1iUl?{WQJz-AG}e_)W='̓ɓ͓˓SSSrp:n93JE6 NiцؚtVs<>]L CWΆL x9hhuTl%Tޘ6}J*h]<\ckEάZZqIȲIk3YFŰv Ev=U(梽 "/$!%: 脡'h(yPŨ:qQy6$桵NM^^ .L^ - mȃȬ\]ZT#|oOr`TSI (Qzsh:!!95[51*I&) >HLͻ%'YmT-fLo@RyX2 GAɱ!J [Ooǔ[LRxIo+jMV_̀6IV\0V[bQ7kBUNVP#rëNc":#VPF7k.9uE|ҔaCgo'JIr;s:Igw.GJwؼ롢_n=f r띃Ww]naW,b$ѓ#!kG'XW[;.0>+K,thetalr. Ƃ CMZ : 29/09/98 20.27.37 by A.Rozanov Ƃ CMZ : 2.00/02 05/07/98 20.18.46 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION THETALR(T) H* --- --------------------7vYA{=֮Bg nڽ+xxL1` ^ w2.g:c> \.9L(/yK[$oT"V`"NؿWdBc#g.i; QwCk g[hwyr2pcNM< lKdF`M }&1OZ l*$P1N}q|3'uvv~0sЯ0ʭ'6n熎4ꔃAw.`%,[c1K]b0cN̄=`%{Zw?tNɩ>Rf&yF3xQKO6H^$ 6(/ncBnpyku/mrNf뫲v/u|eH?fĄ0ϖ]bAp j{!˙P _`\?9_z\굇.+K,FCNLB.Ƃ CMZ : 2.00/04 09/11/99 19.17.19 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.41.59 by A.Rozanov Ƃ CMZ : 2.00/01 18/07/97 19.57.45 by A.Rozanov Ƃ CMZ : 2.00/00 24/06/97 17.32.47 by A.Rozanov Ƃ CMZ : 2.00/01 M XrFED)J*zO}"@ Gx%RA"@E]oLKȎΪ]5 x7$bW ƪ $%qEmTkmK<jP cz3\DAjMW9NQ|-.0*UC+(-ᖀ*gVG9ήRg*<8M&7{ه؄+_ALL>+K,fsugrun. Ƃ CMZ : 07/05/99 12.19.07 by A.Rozanov Ă -- Author : A.Rozanov 05/05/99 SUBROUTINE FSUGRUN(AMT0,IERR,AMH) H* --- -------------------------------------------------------------------* H* Na H*M8;ksHr^?UrHB$H$kkWE2EHkb+_Og$$(JM6UAYDVM4=DVML4(T,ALSBAR)+DVMQ4(T,ALSBAR)?  DVM4=0. ? ; >+K,DVRF4.Ƃ CMZ : 12/10/99 15.24.13 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author :  DOUBLE PRECISION FUNCTION DVRF4(T,ALSBAR,NC,QUM3 S]o0q;ĉC@S()++uo -M=Mջ׆R{㸞z?sBbHUunAmEk}pxv /F\m7CeKRrp~J0΄,]^v٣T-\)L6hؓv׭RD9*~ԆЕE;A9cQfM?k  fM& &jJV N^И;?5n5 BW6]rsdLyۚdLxڛ{[E C[GzSzθۊ|,,Fqp{('^9'4k"ŷF*җX/N*HQ ۰FzOan ,ץ5_>3pw5A8X*dA6]4XR#4?p`>1o@PʑQXH^[cMK>ƕTj5KK}/q5Dmv /׵o+5 ue}rR%U#^Lb Mƙ&&9iC~=+K,ltisol. Ƃ CMZ : 2.00/04 11/04/99 22.35.47 by A.Rozano5 |y_ߋ󋏰fXδ3:f@D@˔Exr$KY"%H̓MYLZdR0wa# J@sɬ`213V\3R2|vsWҴ|f7 h@/Yg8Wuaa3.X%kcxXJq vuݲ`cO!nOi,႑$CG@=N+/0J>_2ʉ#~?ppجb&W #4.owfr@@5#.U\ؽ866'uŐmBvjh9/J#h5 @ y"zK6ڶ^^`+߆5bK\Q٬A7=!&IOr({v}UQ5bDo V?3mr\y@ߡi5]u >+K,tabconstlb. Ƃ CMZ : 2.00/04 :/lQE~WQ#s^f49H]6ӞmqeS}}e8UKKRhP!p :$˿M\DvUr {""Tӟj;?%IC ̷"Ӌ!@6lgLĺIg4r^[&\0Rl?Is 95W,eW9^^V˳xTA\eveղ2ܒgf7!ǃ52'" >+K,amll. Ƃ CMZ : 2.00/04 29/09/98 20.55.08 by A.Rozanov Ƃ CMZ : 2.00/02 05/07/98 20.18.46 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION AMLL(T) H* --- ------------------------------------MRN@ uזvtBmXT:hL m5 #u!&zsg9g)VB{By C6`Ai0G C2\Q1{)u9|y)睅L:1= X.[€.I_/ڍ2+}:~ ;Cw<U}&]pD=rO7~7e.wx{yUTwaq$2]-z6kOOgc?z+oPX#}G9ekhbSfe}jk5OfhAdJr~ +6y7Zf]%629McdAمU`ImSDI.|lSTk \B,huTHɏ Z >+K,DSUSYLRVM.Ƃ CMZ : 29/09/98 20.58.03 by PTQr8)v?aOX^PE fOLwt7_-iIk\{msǴqV]lYp&XV=Y¥(w<|=2]\pqh(Avf _MyжEwrNRwg~^؏%|μW#{*}-oY\+ly[dl2Mws߇aA A/sd&[^/n ,㑮kǩͪs;*D5mk9Xˉ n\=tz.@mA"Ί72p_Ve(Gb4l@ƺ BvE  nЀDfZAELDŽ~7z cPcǾKS m 3\C8f§gi>%X{9D_&qIC8Zh',hKn 76rXנD,Tīm7VQ6oeNH6p.qR{ ~,8MwxgѲt!Am7Exbg~Ո =igQ{z]"B&\Jߣ(;MN5Ny +pE0nCχ^ycQp^5Cpv;4@y}l(qC$xqs{pU* T=!yIVc^^o:E:Cђ(9,L%>v lg_=2 3@KIF#Wbz"&WE1x&WOJ踙(l5֢V:<4S]9lvbN"ZKmΣ -G@ΜsQ{;-!hZ9 ǔ4KM)pufWzAWU y,}p\(׳u%Or˔~7Kgܖs2=`D[EdOgք^}Qv#9L޸c?79e n$̠rѱ24_br]%rǾxT>gp;QFI9}Y;C*Ͷ^5L|0m=U*pT"3ggmaJ%Sz;gs;<*KtMoཛ`--˅+K,ltf4. Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LT4SUSY H* --- ------------------------------------------------M ݓN@7o 9(I$ bBV D̰hS]iӭo9Um4nñkk,*bq%0td^@ >+K,ltn4msb. Ƃ CMZ : 02/08/99 14.09.23 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 02/08/99 SUBROUTINE LTN4MSB(amh0,am40,amgluino0) H* --- ------------------------M WrVɌ+Ip Qܒ]`C SSUG" ǽjګA#0L{͠=*{q.*=AOnn%T?-g< y˅70@֏\:̡1S.  K.4qw אgE*b 6rK ҄nE:ZOnԟw<8ݣBa^cgٱ߼sXS*~oALZ;F]<!9 {4I}@_2:ݨ;g3v|t)E~Z _Wϟj-"uWM(Mpg\n[r.gDj>Hd-}F>%cȃ/F8FFI׊FAudd_Nc׍ a\$DW qrފjp.pyd LWݡW{],.L{02DoLnZ÷3G}s|ѳADX(5̚girE?o$m2npG]%~lrv>+K,ltscanalb.Ƃ CMZ : 2.00/04 09/03/99 12.09.38 by A.Rozanov Ƃ CMZ : 2.00/02 05/0Lpb]eWӈeY̒f0flL@pZ{+ e&KXW)4`kn*UP%1h65X= uYPS=c)fpY+ɞ_`3a u;xتm)v:Ny1 3XGUWձ'n%Iǟ.~LMax?eH$A 9D⯬}:Sf2N) :.Fz/4.,k T;uV]_ߙbKu]uW[YSE+K,DVML4.Ƃ CMZ : 18/01/99 23.35.U~᫩iZP!i}ȱɮ8ҕ*4`{D Pct\T#aDE< 0 G>6\*'wE,A!SLIц S̮ ˍ3< 8\1^pAD-6>+K,LTPUT.Ƃ CMZ : 2.00/04 04/12/98 16.01.15 by A.Rozanov Ƃ CMZ : 2.00/00 05/01/96 19.19.02 by A.Rozanov Ƃ CMZ : 1.30/08 22/02/95 16.28.16 by A.Rozanov Ƃ CMZ : 1.30/07 18/02/95 01.20.15 by A.Rozanov Ă -- Author : MI [oHǭKw8<Q@)$:vuEcn7^[qf&w#Y9s# ̻{wݿv`kx|eҧc[bWݽ=:g~)) 4>;98=FzfcEfrgy&h+K,lttest. Ƃ CMZ : 04/12/98 16.04.33 by A.Rozanov Ƃ CMZ : 2.00/03 05/09/98 11.25.05 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.32.35 by A.Rozanov Ƃ CMZ : 2.00/01 17/03/98 21.57.20 by A.Rozanov Ƃ CMZ : 2.00M; &YIsfў* v Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTISOL H* --- ------------------------------------------------MW[sV8f&'I$xF-SG#$" SK}jGBN3ttrJJw +AO$Cwzyކ%}3_ds$&D4M?n6|c7΢d/}5l jM^zҬGߍE.~Z3+*w!nGNByY4c췭r' M>;$`qf!ˋ,Gfٲ^4Znآ} 422*u5vϻisWq6q|ŵmUƋ#2uq,F/;DMs}S}tHKIi0 krՍrqOMxgNF^WN:^^O^젅8h2&Y*D<eZVxR}Ƽ_W;4@7-Q[EYc۩?1af-g9n-_0of;S!'4Dm- hI`:MLƶeno+N)n{C_IY+ %8T9dS]-״H=Bz꽱e/r[v>W4(!ӫH`rf!aJ1*3mcLQnd!\DcYgMpOH+~2BV󑶃x*1͒ȬaTeiBkXaH;̛}$6hbW;4TG{pZ˕`[ <^; mu[T^XjWhN=f16S{(lΗ ZYLojWNhMRO4U1[*M/k:NTʄAXzAj@jeP@z5KJ)ӫWjoIZ4$77K|S+K,ltisolfig.Ƃ CMZ : 11/04/99 22.49.24 by A.Rozanov Ƃ CMZ : 2.00/00 23/06/97 11.09.11 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.52.39 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTISOLFIG MWrFI$pD3zP#T4O!"P[MZ'Q<{wdXp9,ܽꖼ"I^ʦv]S>tiO?]Ѵ@/L^Ozy`&UE+M#I2Iԭ"y3ijR ,plwk^^,T^%Qx^ >OqYMAn+K/2).>+K,DVRL4.Ƃ CMZ : 11/10/99 23.33.09 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVRL4(T,ALSBAR) from draft TH-7252/94 preprint 11.05.94 and VAN draft 18.01.99=+,DOUBLE.=+,CONST. =+,FOURTH. DATA NC/1/,QU/0.0000000/,QD/-1.0000000/  DVRL4=DVRF4(T,ALSBAR,NC,QU,QD,NL4,\r|v\aOB{o {7qC:ߑځߑο9;iT#Ǟo >+K,VAL. Ƃ CMZ : 2.00/04 29/09/98 22.22.49 by A.Rozanov Ƃ CMZ : 2.00/02 02/09/98 22.37.46 by A.Rozanov Ƃ CMZ : 1.30/02 17/01/95 15.24.44 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VAL(T,H,ALSBAR) =+,DOUBLE. VAL=T+TA(T)+HA(H)-2.26+DVA(T,ALSBAR) TP=TPRIME(T,H) VAL=TP+TA(TP)+HA(H)+CA(T)+DVA(T,ALSBAR)+D1VA(T) ! bug MIV 16.11.94 VAL=T+TA(T )+HA(H)+CA(T)+DVA(T,H,ALSBAR)+DTTVA(T)  1 +DSUSYLRVA(T,H,ALSBAR); >+K,VRL. Ƃ CMZ : 2.00/04 29/09/98 22.22.49 by A.Rozanov Ƃ CMZ : 2.00/02 02/09/98 22.37.46 by A.Rozanov Ƃ CMZ : 1.30/02 17/01/95 15.25.37 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VRL(T,H,ALSBAR) =+,DOUBLE. VRL=T+TR(T)+HR(H)-3.50+DVR(T,H,ALSBAR) TP=TPRIME(T,H) VRL=TP+TR(TP)+HR(H)+CR(T)+DVR(T,ALSBAR)+D1VR(T) !bug MIV 16.11.9  VRL=T+TR(T )+HR(H)+CR(T)+DVR(T,H,ALSBAR)+DTTVR(T)  1 +DSUSYLRVR(T,H,ALSBAR) +DDGVR(T,H,ALSBAR) ; >+K,VM. Ƃ CMZ : 2.00/04 29/09/98 22.22.49 by A.Rozanov Ƃ CMZ : 2.00/02 02/09/98 22.37.46 by A.Rozanov Ƃ CMZ : 1.30/02 17/01/95 15.23.32 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Ro)h(: C h. "0hhhhVHahVk]hVchVVf\+hi Mhi of&BfPf1gX-?foaw0ffofv_~f}w|_Q{0Gwfv!q^p%nfmz+lfkL.iS<hTxfS9eX|dS ZcVbRayaRc`}|Rd`j`RY_/d_R^Hg^RX]dd]R\"[^ZfVS5U#RfQXP_M 8KS wJHXIfHrGfFjDRCq>S w=U=<S w;U8f7|6S g5d5K]43K]2S1_0@/K]i._hiu`:K\>K\zpK\p8K]`mfjRD"fh Kw c S? X Rzanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VM(T,H,ALSBAR) =+,DOUBLE. VM=T+TM(T)+HM(H)-1.36+DVM(T,ALSBAR) TP=TPRIME(T,H) VM=TP+TM(TP)+HM(H)+CM(T)+DVM(T,ALSBAR)+D1VM(T) ! bug MIV 16.11.94  VM=T+TM(T )+HM(H)+CM(T)+DVM(T,H,ALSBAR)+DTTVM(T)  1 +DSUSYLRVM(T,H,ALSBAR) +DDGVM(T,H,ALSBAR) ; >+K,VAQ. Ƃ CMZ : 2.00/04 29/09/98 22.22.49 by A.Rozanov Ƃ CMZ : 2.00/02 04/07/98 21.29.46 by A.Rozanov Ƃ CMZ : 1.30/06 19/01/95 20.35.38 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VAQ(T,H,ALSBAR,IFLAV) =+,DOUBLE. IF(IFLAV.EQ.1.OR.IFLAV.EQ.3)THEN  VAQ=VAD(T,H,ALSBAR)  ELSEIF(IFLAV.EQ.2.OR.IFLAV.EQ.4.OR.IFLAV.EQ.6)THEN VAQ=VAU(T,H,ALSBAR)  ELSEIF(IFLAV.EQ.5)THEN VAQ=VAB(T,H,ALSBAR) ? ; >+K,VAU. Ƃ CMZ : 29/09/98[Q>;ZA9c&lrWg/F|!xo'ϔzӥGlfQCÇU@a$0fa,` `QFٯY0ui4AxXDv5i;(䡶T<KZaD :V͵m_# I tީ X_Cd^U9sygG͆=})ohSG~oXg9 <8p!NjQ*{JH\ĨlI_w(6\\vQ^<7*$o) kfŅ(pA#3E͸jr2F;U"X]gvZlTHPt$ȹ}QDǗ:ݏfcÙ7 vy"x0t`HKqO7l pB@,q &7a${\R R @&x 98k̑ {Q'΃,hMqp̞u3e}#{OL`dcY.?<*(S _F|njB4kԫ'e 2l0x=.HL+]{G.cԱ>q(uC,Q?;9% ່3\˴nۙ؏d|ɬReI=$ȇ£j&5Da+C,X1r,|o^3;b:0&wB W@RejʧLx󼳵Ge >"(47-| dA}o ˃' 'b$l{/93Yr"j$NT=dBup7tSc0Bm0_,[XkĞb-tMm#.SE&+'pviRA`KfvP",pPJI|2ShV'"VvSwk=ogFR$ߺFu {ned>+K,ltchargino. Ƃ CMZ : 20/11/99 14.30.25 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/11/99 SUBROUTINE LTCHARGINO H* --- ----------------------------------------M` V[oFE[)Nl1,D$H`KE}Z x#!>O3cS#v|s7c,VZ?7[Q>;ZA9c&lrWg/F|!xo'ϔzӥGlfQCÇU@a$0fa,` `QFٯY0ui4AxXDv5i;(1/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION VRD(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  DATA FAL/0.00186/,FAU/-0.00165/,FAD/0.00137/  DATA FVL/0.00197/,FVU/-0.00169/,FVD/0.00138/  VRD=VRL(T,H,ALSBAR)+(16*PI*DSQRT(S2)*DSQRT(C2)*(C2-S2))*  1 (FVL-(1.-4*S2)*FAL+ 3.*( (1.-(4./3.)*S2)*FAD-FVD))/  1 (3*ALBAR) ; >+K,GD. Ƃ CMZ : 2.00/04 29/09/98 22.22.49 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GD(T,H,ALSBAR) =+,DOUBLE.=+,CONST. =+,CAFBBB.=+,MASSES. DATA AIQ3/-0.5/,QQ/-0.33333333333333/  --- --use Kuhn formulas checked by L.B. 29.09.94 --- --from a piece of paper given by D,Bardine  IFLAV=1  GD=GQQ(T,H,ALSBAR,AIQ3,QQ,AMDOWN,IFLAV) ; >+K,GU. Ƃ CMZ : 2.00/04 29/09/98 22.22.49 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GU(T,H,ALSBAR) =+,DOUBLE.=+,CONST. =+,CAFBBB.=+,MASSES. DATA AIQ3/+0.5/,QQ/0.66666666666666/  --- --use Kuhn formulas checked by L.B. 29.09.94 --- --from a piece of paper given by D,Bardine  IFLAV=2  GU=GQQ(T,H,ALSBAR,AIQ3,QQ,AMUP,IFLAV) ; >+K,GS. Ƃ CMZ : 2.00/04 29/09/98 22.22.49 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GS(T,H,ALSBAR) =+,DOUBLE.=+,CONST. =+,CAFBBB.=+,MASSES. DATA AIQ3/-0.5/,QQ/-0.33333333333333/  --- --use Kuhn formulas checked by L.B. 29.09.94 --- --from a piece of paper given by D,Bardine  AMSRUN=0.  IFLAV=3  GS=GQQ(T,H,ALSBAR,AIQ3,QQ,AMSRUN,IFLAV) ; >+K,GC. Ƃ CMZ : 2.00/04 29/09/98 22.22.49 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GC(T,H,ALSBAR) =+,DOUBLE.=+,CONST. =+,CAFBBB.=+,MASSES. DATA AIQ3/+0.5/,QQ/0.66666666666666/  --- --use Kuhn formulas checked by L.B. 29.09.94 --- --from a piece of paper given by D,Bardine  AMCRUN=AMCHRM  IF(ALSBAR.GT.0.001)AMCRUN=0.52*AMCHRM  IFLAV=4  GC=GQQ(T,H,ALSBAR,AIQ3,QQ,AMCRUN,IFLAV) ; >+K,GB. Ƃ CMZ : 2.00/04 29/09/98 22.22.49 by A.Rozanov Ƃ CMZ : 2.00/01 08/03/95 11.51.24 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- AuthMDMQr06#NWi&OFO`1dmMH6}h9s%5 錍 !j0bԾ8a46hu:po&)=:dM'DUT) ˶E\=mjq)I,7|WX1&Kq֥".K.3/4o\>Vza%1A~^ |uLȋ,ͤTp:qA', s~iQ>6Nt_*TaQ縭 SVu%"(:~-˂Q+-n̑xO2{E:8Mo™W EQ"& OZUjw>+K,GQQ. Ƃ CMZ : 2.00/04 29/09/98 22.22.49 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 20.16.44 by A.Rozanov Ƃ CMZ : 2.00/02 02/09/98 23.09.17 by A.Rozanov Ƃ CMZ : 1.30/06 18/01/95 23.46.51 by A.Rozanov Ƃ CMZ : 1.30/01 M,Tn@BR><7ZY%cC7@!81yjC꬝РU3YE?(:Tg7^~ & E^,eX{Oė$9_.퓢UAӭj@QjsqmX4VtEdDͺZ2;)c)q %j3_ȶ\IPS4 0t[߱(@OiW"Q)(d.br':nb]\ϼb{mJbq5IM5rr\K,?OrjC8t5iius2R,GSJxV>+K,GH. Ƃ CMZ : 2.00/04 29/09/98 22.22.49 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GH(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  --- --G1=GO*G(T,ALSBAR)*(20.2288+0.05268*VAL(T,H,ALSBAR) --- -1+0.02487*VRL(T,H,ALSBAR))  --- --G2=GO*(-(ALBAR/PI)*PHI(T)+(ALSBAR/PI)**2*AI(T)-0.05*AMU2)  --- - GH=G1+G2  GH=GU(T,H,ALSBAR)+GD(T,H,ALSBAR)+GC(T,H,ALSBAR)+  1 GS(T,H,ALSBAR)+GT(T,H,ALSBAR)+GB(T,H,ALSBAR)+GG(T,H,ALSBAR); >+K,GZ. Ƃ CMZ : 2.00/04 29/09/98 22.22.49 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GZ(T,H,ALSBAR) =+,DOUBLE.=+,CONST.  GZ=GH(T,H,ALSBAR)+ 1 GELE(T,H,ALSBAR)+GMUO(T,H,ALSBAR)+GTAU(T,H,ALSBAR)+ 2 3*GNU(T,H,ALSBAR) ; >+K,RL. Ƃ CMZ : 2.00/04 29/09/98 22.22.49 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION RL(T,H,ALSBAR) =+,DOUBLE. RL=GH(T,H,ALSBAR)/GL(T,H,ALSBAR) ; >+K,RB. Ƃ CMZ : 2.00/04 29/09/98 22.22.49 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION RB(T,H,ALSBAR) =+,DOUBLE. RB=GB(T,H,ALSBAR)/GH(T,H,ALSBAR) ; >+K,RC. Ƃ CMZ : 2.00/04 29/09/98 22.22.49 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION RC(T,H,ALSBAR) =+,DOUBLE. RC=GC(T,H,ALSBAR)/GH(T,H,ALSBAR) ; >+K,SIGH. Ƃ CMZ : 2.00/04 29/09/98 22.22.49 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION SIGH(T,H,ALSBAR)=+,DOUBLE.=+,CONST.  AMZ102=(AMZ/100.D0)**2 TONB10=TONB/10000. GLL=GL(T,H,ALSBAR) GHH=GH(T,H,ALSBAR) GZZ=GZ(T,H,ALSBAR) IF(GLL.GT.1000..OR.GZZ.GT.1000.OR.GZZ.LT.0.01)THEN WRITE(6,*)'AMZ,DAMZ,GMU,AL,ALBAR,C2,S2,TONB,PI,F2,GO',  1 AMZ,DAMZ,GMU,AL,ALBAR,C2,S2,TONB,PI,F2,GO WRITE(6,*)'GLL,GHH,GZZ,T,H,ALSBAR',  1 GLL,GHH,GZZ,T,H,ALSBAR ?  SH=(12*PI*GLL*GHH)/  1(AMZ102*GZZ**2)  SIGH=SH*TONB10; >+K,AF. Ƃ CMZ : 2.00/04 29/09/98 22.22.49 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION AF(T,H,ALSBAR,T3,QF)M&(mn0 #6ą1 $B)іنck\3Xߎj)!޶e F#V}݃n_>AP)iۛϢX5,ki@4JGXbdQ7)Dn4nO,Cò^?}}Wރ;%æ/Wѣi_A[LYHpyvc;٢) X:?Mykd{6k4֊_* =R3D=%"f8&PpZpO>+K,GAQ. Ƃ CMZ : 2.00/04 29/09/98 22.22.50 by A.Rozanov Ƃ CMZ : 1.30/06 19/01/95 20.31.04 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION GAQ(T,H,ALSBAR,AIQ3,QQ,IFLAV) =+,DOUBLE.=+,CONST.  IF(IFLAV.EQ.5)THEN LBOT=1 ELSE  LBOT=0  ENDIF  GAQ=AIQ3*(1.+3*ALBAR*VAQ(T,H,ALSBAR,IFLAV)/(32*PI*S2*C2))  *** *1+LBOT*ALBAR*PHI(T,H,ALSBAR)/(8*PI*(3.-2.*S2)) ! 19.01.95 ; >+K,DSUSYLRVA.Ƃ CMZ : 29/09/98 22.22.52 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 20.16.17 by A.Rozanov Ƃ CMZ : 2.00/00 29/01/96 11.43.05 by A.Rozanov Ƃ CMZ : 1.30/09 23/02/95 02.17.30 by A.Rozanov Ƃ CMZ : 1.30/07 17/02/95 23.53.32 by A.Rozanov Ă -- Author : MKSFU6=ߡsBvXr!ɬ$C֫e] 6&IFyoyXҌl$TMK_̀`]<7G[ +v0Qs ģUrG[tFF°<ҬxAsH?\q(%$ƀͰ>qyt_So?NgoqHOI]y[aad^~"A.CatF%MKYAF8К l{+2`>%tDҺ'9!g5\܇{zb"5jNȋoyvdֱ{.j`<=( l3vCNwD݅wٌtGGnH!UpsJa"0 **rb)Bb22%J9VA0"&Dd E&TZ˰6bt21:kY#m0Q| lbQ*YEJ)t Q D 7؀aAbRA FDbŰo;VRΛRxv_@t-6TB(nedH)ed(d qq86}|?_hj^ ^Ӫ!0U* %H9 $T#Igb dX|&J:b.ׅK@.(rm_Iu˵/{:f(I>) ׈'5bgGd8(jP~ x+^e%X&Trئ_3FU3c|'h"9JB} 騂a;F@kU`EjV1]TpcRחET+c.|:176JFwFO`q`!kI/?SXM2\7uMm`c8N}®Y˟w8Y\y0YH2͖ tXG`Jox(j>ڦ[W*|!?<[{7LU>+K,ltisolfig.Ƃ CMZ : 12/04/99 01.38.56 by A.Rozanov Ƃ CMZ : 2.00/00 23/06/97 11.09.11 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16n݇n,"(as&ʁvR(7ǎBҦ֫Jt^ͳ1;tV+mC#9ʢ[AWT2j]UGZfl3de+|Wt>ӭy]@o.:1}8~2D"K/.I a˓*J2j%*f0 M{RwlɊk%u&L"d`*jtAMR_Lw5ɏk -Iy'3H%8}ymMkD<7%ś^hB|AOal>+K,ltget_born. Ƃ CMZ : 2.00/04 11/01/99 20.32.37 by A.Rozanov Ă -- Author : A.Rozanov 08/01/99 SUBROUTINE LTGET_BORN(CHKEY,VALUE) H* --- ----------------------------82N<_ASIu! -{[V"I-rn$.EByH-~KTz@H;7R'CU'P< j{s >+K,DSUSYRV. Ƃ CMZ : 2.00/04 29/09/98 22.22.52 by A.Rozanov Ƃ CMZ : 2.00/02 06/07/98 12.39.45 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DSUSYRV(T,H,ALSBAR) H* --- --------------------MSn@<6?vIm7HF©]Zu8) Q&P M*ʺԲbƎR{{kk Y%dWU>QuX^붎&"yو*Xb ]F* + (@sq6S&<[uc2\ R7} G/sy^vUvm͈&u|~ 8s 7C%߷ Y3C>|_sYczܺ>΄_Sg\|EE:$ෘjw;:xgߙ)-b}]Gijv]n^*.&tGP`۲?4!q8ĎfhJzB I[yZ75HSn{tfkg:^l{jN\_]e㚠2]v-, >+K,ltf4. Ƃ CMZ : 29/09/98 22.23.38 by A.Rozano/03 05/09/98 11.25.05 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.32.35 by A.Rozanov Ƃ CMZ : 2.00/01 17/03/98 21.57.20 by A.Rozanov Ƃ CMZ : 2.00MZ `'YIsfў* Xpc_R ..}Jd<ت,*@lryrqPe{}б3xeƌfZ-c]Wc<>of9czcC?gjfU+L-pXNt2pQՌ/ 3gVI+T+3dA%qo.r6d3u;~]c~볿=$z,ɳ_O'm3tz]8 "a.ٌ7_xfa{qS^2orx.n֮kvclO"S֖Ft) yPlW3m:n<'M~}yغzzo_;ℾq ufaoA͛F_g?ia7_3mέfjfW-Fu?VK!ʺiUKK{NQWsݻԻ޽"f^}3˅5ڝ\NsF?ʰ_1CM[&sG6XDp+Mt֓ QT]a|^7bS7'`A7_ c* 㭶07FsjIIZN׮{d8l֘A#GWj^Ym5ry0c5Ϭ.LЇ~%qsTRsG9z}reE+0HkFI9{q3{ f*98ym QU(p,rFr;UkvV"o :$_nryܳKj#)&"l4sʰg$=cfk&Z塩<;RI# lv/*5,/'|Jc1 ~P>eưY ƭ8(] EU%/ 9h;ZCZ:)%O3>gwRxg\ QŹɭ3Ğ rVK JkZ"ªm5WtEnBdX,~ {(7ԥC9L ԅVp/(N_(>9 98rN:hla}՘|AQeoF7=:Mu5A<^z4  d !F;Z Yɶ |f S+Vx}.;shyqL1]y'_a3l֍r|_CLg4_9\qJG!'W q.O7+8Cvl!_'8wxꦞ w|f~_8>I cT;>QuzrVTcCOVdoUUTB ,'{s#1b9-gB?r%('q)8+9 #犞c_4"2qnc.\\YW$ޙx3$H7n=/8yᵨ+\̓VCJlr]"N}LR^o"!$>T #]@[o!--F,su*i';Վr>(<#wd#Qw"*ǂ-Z4Y:OOSS4J #9Kщ@L_Ğy3bQp߭1mÍmdUj&|U}Wՠmt^[h6$[\$n$EF_ԛVy_]Z:+K,lttest. Ƃ CMZ : 20/11/99 12.28.31 by A.Rozanov Ƃ CMZ : 2.00/03 05/09/98 11.25.05 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.32.35 by A.Rozanov Ƃ CMZ : 2.00/01 17/03/98 21.57.20 by A.Rozanov Ƃ CMZ : 2.00Mc x'Y[sfHKv%d)W@#LqrI'o- grj&ַn{}koǚƌұV>UK2c~g?3yy|ys Uӎ"3Ǻv\;PZәVZj8]-WcFX38N3T_'pUfZWaz-!ȢIW(֛]B.lOXۯOֵ}_:y^r}]8 "a.ٌ7_xfa{qS^2oͮz\ݮ_ zWٞ:E-_R$\pخgux EOc*0|zo_;ℾq uf^߂1A:˶ـߴ<ݢ;7mۭ~>n CLyA$vūE{ժU+c;{ݳ ܻW"NDc, ku{Epտ4^Qf`=3;q"$;_ylLHߴG+;5}";{s{1FK4i5_ϛNW/J||YI\(_< qJ5٬14?앷n׹y d˺i쾎>3-J~{=稜X)/j)j>g/nfvO#CJNs:CT<mv#֩Q;{!,w=/k|`I[%Y`I6K@e3֞1^35Vyy(/L9 &kwi{(ҡ"OtM0X?//X 1+j-.7?C@{3ۼ_f `zC#e{)yaX\9}GrS8ct>UrfMQwHYqu&dh6Fҗ~R {Kl=Z, Nʉg #m5M$fk/6'񼹮7M؆~}97UAÁ`N^.k L麣wfv}~"u [g#tcy%iL$22[.$nQdF@h }7X 1Rdr>+bTl4Ivu 3fJK#aL 2̗d[]n+ÑB3!xbOF omQC,XuCVI!Mg X&xiNF\~%r^K+ާri'ɂVp/(N_(>9 98rN:hala}5 Σ!oz C_lnW8HK1ႁL _6h'C4a<\9+v >`Z%`{Ptb3/5SK:ru%NLJ)Nb>X4l]I_`ZGTla]DŽq; O^bj]p wPI95ξs??΅ ^.VR5XGo|=c@?:<0)jVN@M#FOŴD{ˍΗ%.s= IF𓫆8'_ڛq!Z;OPMm;}5CKwFF;>I u/x`rq_s9+x*!'+V27*Wɪw*\`!V˓9KڑjZ[ jZR}sv듸KÜsUKeCDѯr׈8z1QO.,+FLy޳KN^x-i}a 5\HQ6)yH-#~(z-HW7=GņŒzK| }]JŤ|\ B."H{ʱx2 2'bOyT9M'%%~1Rca(:(;>&=Czzn!rT}b0#yzٴrm X.τz+$}QƵuNc>Q R=~B~_׏%~&m ~zK; A<\O ȱxB}5s/zk4SȓG.h*_;C|qbZ:hLb?߷_$>kfKkc]& 1aqo L L>+K,ltchargino. Ƃ CMZ : 14/11/99 18.31.45 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/11/99 SUBROUTINE LT4SUSYINO H* --- ----------------------------------------MWKoF&RIy)2tmE*Ɇ$#)X+IpOݤ=_ufeJ" wۇ,kc+Z?ir tGzӿ#ܥ\qY.&̕X!oЫ>@-` gwj2fa Gp )|Y{%5FeX|yn8IJ!/9Wv{7F\%f?_msq Փ 3[Oʑ8T-Q;r3?9"rYL=?ePJ#$ ";|佯 1m(&!eQ(aws d)'H5}m{ ֽ/Cd.dw lJvԞ(_CGBflt;+qe»HH e]ZUxэʶ,̞I.=45vnh{އx 6^:1]1ԟCҊI'61wI6]$;8_t*}fudG?_hp.[Kʑݚ(W9dnP|,W4\x٥*& \$_ |<ڦ7^Jui]u1˖ M=T8<xq!odt PͬAoy _#+?x^sWA2,H'ekxQf!]WUdm]N@hMM 0$z X lzP9]Vj,)GDV'" RgT*ZN'~}kbO *J^+*l#3ѭV7t!-E~m𔜗<(pzn7maahGUKٶһH>d+O|=--AV2L8yNq4t2g|Rw1uN;']J')>+K,fsugrun. Ƃ CMZ : 12/05/99 09.15.48 by A.Rozanov Ă -- Author : A.Rozanov 05/05/99q7/9~ U8zN ȝxlSUc3UC5t,)s|RI{ܖ{}|mpuep%Oup_}g$#r;>+K,LTFFIP. Ƃ CMZ : 2.00/04 04/03/99 11.37.50 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 21.57.31 by A.Rozanov Ƃ CMZ : 2.00/02 02/09/98 23.09.19 by A.Rozanov Ƃ CMZ : 2.00/01 15/07/97 17.38.32 by A.Rozanov Ƃ CMZ : 2.00Mu0Tn@AtAv#0 Ȁyc"bmLcة1M%ޙJUf+ƞ;sǓ$P yi/_.%Z(PIx6c{+ z)@@dyI͗F6|KE3ky7'FN/gϻbGӆ62as@F(b3{b )q^ޅݱ{7lgP?l tF+K,lttable6. Ƃ CMZ : 2.00/04 11/01/99 00.56.03 by A.Rozanov Ă -- Author : A.Rozanov 13/09/98 SUBROUTINE LTTABLE6(AMH,AMT0,ALS,ALB0,V) /04 09/11/99 19.17.46 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 18.39.38 by A.Rozanov Ƃ CMZ : 2.00/01 18/07/97 19.58.44 by A.Rozanov Ƃ CMZ : 2.00/00 24/06/97 17.16.18 by A.Rozanov Ƃ CMZ : 2.00/03 MXnFJ !Wm柕PP"%_I*ȍժJf>-z'I[ !Ϝ97gΜ9c{pfgBXc!_-? !޶[}>_og?m@t^I r&73/b|ZAYhk;;֩QS4)J$,Y'Ni, ̃h ċdD33e,➫ qL73tjlnn\!:%zIVS;& ?D$YK|) /Fax@1Y&%7G~g>o$q ^vtfi`*%깺ޔXᜑx^4 . G:n\vg:G$f@3yBL&v?۬~ R<,<8Xڐ7r[Qr)w64p9qbR 4n-G|MgHj;5|e'ZwxE ?qA$(Z]\\lb+.6s \V\a.lڋU>;gnWgGeOa Ofjjb[xrLp9{tD]/FEM?~ƕl)/߽܊v1!Zɟ]X/ <4 %.=lKD;fb9uAVhw+(*uh&!e->cBIxH )|ȳyn[A:PUґ[Sq 9&ޠ2ۑ9@ZiH>!id\̤X,k=cp{n@-aCygؙ{׻n;(-|zGѾ}yҧ5 M>Ugࣲ3Ʃ9BilPs' ~=>F=&!'q2˻ݟsMCױCr\ָ^BnsOvMyH L]G 3ΥATᮎU׳vq=3"t^dh7BBPjlᓋZMa]> X8t<"Cz^!,r? hZM5҅עu%N-P"j␿i4Ք6af,;c,!,罰xc9dzXe,7c,:11 ;Pgܢₕ1;h *Y,!Ⱂ4ɠQ!q.I\J8v2Ʊ+85x&q *x&qp)*8ǩpe^"rL"BrFM9#5RuUp /:ގϛwѾzGxЩw1Ⱥ?/vP@/o_ kniZj./ٵ'2̓{ugs5FAd{y__~OqA^>BL>+K,ltfit4. Ƃ CMZ : 2.00/04 09/11/99 19.18.09 by A.Rozanov Ƃ CMZ : 2.00/01 28/07/97 23.20.50 by A.Rozanov Ƃ CMZ : 2.00/00 24/06/97 17.03.06 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.42.02 by A.Rozanov Ƃ CMZ : 1.30MP V[oFv!M!N`<,؆ڎvvC d ^ZR)kQ/sf 6٦H7~U f0mq-ǣwklonUc2.00/02 03/07/98 19.32.35 by A.Rozanov Ƃ CMZ : 2.00/01 17/03/98 21.57.20 by A.Rozanov Ƃ CMZ : 2.00Mc x'Y[sfHKv%d)W@#LqrI'o- grj&u[{K>4fq˜^R M-eT;{1kƞ3fvQ>ֵ ըE>z:jzETTOt=]-Bƌfp=PЫ2 *}*Lzjw+po.i.lOXۯOֵ}_:y^r}]8 "\8\g3v7|,ow=u%YWϥՠwn_oՈ.EuAQ?j|~&mQǍPd>2h_f<6OkG?no߬kX[P6:5QWCq6f _vկg#^ԭA2ba_4Mb^{iZV_{=k^ذ̽{%R޿h Np'yӴ~Fk{G#kda |žnz2!]n3,G{\^S'3_7 olO]r)(Nuz|'} ,w|AWCJ~|Q+U#~TiL^yXvXx˛װ@ָ[V./>i=ci}(Ww9G|(:OY.YUKyuV9{q3G{j(98ym Qp,rFr;SovCX" {$_nrܳKj')&"='x.*=#h)5C_c5yyZdkB_Ѕ&kwi{(ҡ"OtM0X?//X BcVZ\oB)~?Fʇցfy616kG$rm+HQS=w ljsSc%LP§J،;{)<+0g{k-lBfncq.}9O,%Ϫjv>ݣ%xT{`zx:@=lirlk/6'9l&l_k_ FUbp`#ZpS9Nw9'ixy{24`gX0{uMys4MϣwC:?͍zx<&` W 1ډ"$mA^= T`:m%j׉5sxί $W05+F<ZpYl\ZGm&)yKM$c$oBea%~9X5K.--F,sdŤ|aQg!RTl$=SDXT}2M,]O}>|%+OOtRR(?&\?X?̑E'z3{gg2I|{)T9wF~vf;8F_uL_o'kz\U^V{Q+}5彁V`kD% K^&NRdiPAm>:HUpN{Cpwi[`O+wB^絜 ,% "tz.k74i?Ăo,UX$y|&!w({?-D+gm`FX%i?j<>"A(s#kW?N|Q R_?_~k$ׯ$~m&_2^TowIxa" ≡r@$ބ1PEGb܋^ڷ: /2|<.YLTk^gIXk'6/`rlm,KԤ޽`;&0L L>+K,lt4susyino. Ƃ CMZ : 21/11/99 19.48.18 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/11/99 SUBROUTINE LT4SUSYINO H* --- ----------------------------------------MIW[oFvd61&GOK+uKrխ !nvW0V<$ Χzcd6==>+K,FCNLB.Ƃ CMZ : 12/05/99 18.06.52 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.41.59 by A.Rozanov Ƃ CMZ : 2.00/01 18/07/97 19.57.45 by A.Rozanov Ƃ CMZ : 2.00/00 24/06/97 17.32.47 by A.Rozanov Ƃ CMZ : 2.00/01 MXYsƊ[C~B5#RA"@E^:7 KLx(QnG9J~BOPx+5Lw1+;5ےvn8}׶,Y1wL :Ϫ˚-{OߞTeu_\8~7ey͘l8)f͂6g> )M;]_%zuw/`ĺ@Aܮjl6-2>ep:#C4UEYhY E{c_7 >+K,ltn4mn4. Ƃ CMZ : 12/10/99 15.29.57 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă {$[(qL\ɽ9Ne>4!NL=DJnfXn%qjqm E9eX vC*IV|KTLs wRаCۉmS;;.\.)l{ԇ]>Ymc+oާS 5~RpϾ$ˌrlԏl?D:~y]e^+DL ?7Q6GWPK_n=Hƅh6acH zX4Bh_va^ 3˱^ECT[؋dYۨ3u߰Bj4=|nk| >+K,lttab2. Ƃ CMZ : 2.00/04 20/01/99 17.12.00 by A.Rozanov Ƃ CMZ : 2.00/00 28/01/96 14.50.28 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.52.39 by &$x MPhO`6ҧ6}?j؄!}vΜo9Cvxi?ndb ڃZս;!+ܹ/l"Z+`݉ bozQ<֌?\N')8:}TS,fQBb&"R@3>c\ O4xn(i}|‰D`l!vRwc?est YE0Yu]e]ߔPo썲t*%OO.u!y{ Sz}^3O0vA/Cf ST50êVl_e_@n%.'Qjgjdi{ZNE{BV_Ku:%\{T3pcN0)H-Uݦ DLb$j1rT+,f-s[LLykg182_!ʍ:.tZyڽ[c܈-aP wKb%>( ^(\7*{ mwoKԈuFTKJRānxF7B6Id^T%PG]%5LkvS)쫲vMCi2OneĤj:v* *mk[3p}y๓S/zn/Ż9u\X߿P.-Oy팇B%8@V Q$W +i|g=LB]eU_ј!!8[}x [U~m=Y$[ݥߪO#c>*"b)d]WH}xcKB}ٱq$Y2?ZP{9k#;ǖT3=~GsĢsZmZj_t>+K,ltn4mc. Ƃ CMZ : 10/11/99 02.27.18 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4M4(amh0,am40,iopt,lvopt,nopt) H* --- --------------------M; $-Z[sfXJgpAArtFdISJ%>u 0%dOd;kQ.^$m3"===qv;]qRc4Ϩ2|Stjyt=m"َE8'$XC: GgףCC\tgzL|B4tgXszY%a<Ұ(b}azѡ6%煰1:msO.j>#/'̗+G2e$S6"0[{cZ5gJV+bFK|뿐k"szܣaH^5ֽTEo_K1!.d$~&JݤJ?nYoU-z#R??q#ϟYkuqkaac9dppFIgMmZ+N^맳nY2iÓmǣqD8GOi2qQQ8QĵJnc6Vozc3R] ⸩7qz p|Ξ,+k9 bLӲ5>&d9˒k M̻H% "ay@_֒xj,) ^v"-mKt%gO_nnZŃ*\⋑>Դ>?Xkqv0xy a!]I{)۞4-`Nwҏ%D/2{7g(?-ٌAu@gdj.,WdӴذ?YD8\|]sScR2HdX3WFLÔʐ [iTDR,pSUVYBp `j#E=/I񤩁!2ΝN#b=?u88oܠ~8'VY_Vƾ.ɤonAǪ]̋R[鲶/EcmEԟ}/--a{Ʊ:SlNJ;K 0@nӐ#gv;Cvrz'J T7l '/lT$4+f^Oa*RYJ݊f_QB4WOjb|Qꮋ̹ 7*{1Cdw 7ض.] Noe&O:v둫ug6p& 1&B&B&1hK˿DlD^l9xsGwε=3Ce N{{.j6A0N!NV_ᜒ}T; 3X;-;z;1h>=N@CV4a<"ͨLb]FY28mh?@ꜮAMd@ ?(QrĩQ2.5ŀg3ow<6JYLEŴ٣_S6D 55=w÷[`>Qr5jqD-'Z]3 2ᲄ%Gr>opsjuM78Rⴉso̫| d2 㞻鹨iTA%Illm/hWBZDxX p&h"ILp{9ר" Df kֶCc/jہ>/mok*`̢F``НDê;׷NAT-r+7dh[EE](ec`Qғ{džlB6;ݎks{dz:?ȸ'|rvM/G=E6{TiL.xWǏ,)%~/u.x??T _K1gʿ9e>)B3S*CڝԮ7=BW-P-aFkVSlg@MM8&]tiZIvz{ ;nƤ>0ASŶfK=x- Z}w u팂3U9b0p.bv ܦ刍VyTQl,:-q 7jFG |K%)c&WZsDyNCj&.9%kp 5X2ʳ {hiȴ.dIbcِ؇ud\֖QWY7}gXwf2, 6]-;VPWWSO~u ~q15sdVu1XYCrȟ/5A]Nr))}S-DqqǮJQgP$)㡧q͇=vyUlSy}B|gCAL>+K,ltn4mc. Ƃ CMZ : 21/11/99 20.14.49 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MC(amh0,am40,iopt,lvopt,nopt) H* --- --------------------MJXKofyI%KZʻHD1iA6IyfrJ ?dVUV` XGWuU}t}iTqơ`8q +:fe$rDmͱPQer`IT36zRź=̡Vegϑ Yyd埤`V@B o$Vcvp32KYuJhӖn{`FhCRVj{8cp.1[NT Ub1kU5fλ%z=Kgu?hQW62r>;&Zlk+K,ltsugra. Ƃ CMZ : 06/05/99 10.52.23 by A.Rozanov Ƃ CMZ : 2.00/02 06/07/98 16.56.47 by A.Rozanov Ă -- Author : A.Rozanov 24/06/97 SUBROUTINE LTSUGRA H* --- ----------------------------EMk|KO/c:}7cνUJOs;ƿJmUn_ct;G?G!%?.C_ S !|l^lN=֩)C=t,Nm{}ڞE=%+]<` ]?Oq r{ħ_>+K,DVMQ4.Ƃ CMZ : 2.00/04 07/02/99 23.49.20 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVMQ4(T,ALSBAR) from draft TH-7252/94 preprint 11.05.94 and VAN draft 18.0 --- ----------------------------------------MKWnFe'MW$,* B~*Ɂ$#*#i>TZizfeJ瞹3sGQWeQeˡ67ݾ3r_%֝R8L(_3xp5R;կW:5o?X-k]/z*?.Yx(CUy$N*tp` L>s [@@2swx- 2AVsDf9`eyD ie63 "SQ3W%m"pݦwF>ӄZ bx ңp#эPxb{]vTo4 AW)aghYۭUݲ ݽu[3t1AKۊA|M9Bq6 ]-x1(KO:gs|JxO^##!\(kS5a ΃w*73^\6 ZSP i!A؈i n0駰Ul$ x{9ZBh pP^WVUNd))V̑G'^Zg["A6?_ {5ڟ/ o< _6?f?i3ڜ>s*m_({V|dv#ah(V\{F{iͺ|9{-#{b0EC)CC~q{>)/zZ'*6STo7gъl}߹LWL!>$15LFGNo#!5†ծ˙K_Z9_1\$^ s;rT?6on >+K,ltchargino. Ƃ CMZ : 21/11/99 20.32.11 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by ]e[x[6Xc(lIK3;3h3c bb&w oТq K,KF9qcjFlLZ=:N•J,;1YUGy??->+K,ltufntab1.Ƃ CMZ : 2.00/04 17/01/99 18.43.58 by A.Rozanov Ă -- Author : A.Rozanov 08/01/99 SUBROUTINE LTUFNTAB1(AMH,AMT,ALS,ALB,VV) H* --- -------------------------------------------------------------------* H*‚ MHX_SFWmC)ۼ 9H?BC'@Rp4 (6dA>i(K{'F4m_tvow6x`垀Uj>lXs\fo׿(گ B4a-SeY"3G( f9dKfqū8gNH ?6jž򞟳̖nQ|,qvnlAb*EZ,ўlaBWu|r.RFg1L}2!Z)%opl%\)BtPI;h'hVފ-Ck㿹Q|˧h;cGN9<yPwr(F,+V[z}8PKd &>wo{3읡_Ox;\8M_hЏR oLx7֭m Wh5PM0Ȳ-"=F L/'nl$u,Hٸ)n~2m9FVn; `]o!˄<}5K,T3Ծ#_4%N w$N8u$OYFhHpDe%f tHpA(Dfq$j^g^1HBtQN*̏SAe3p]Sv]#?m籛yqG6lyàXƃKy(jMpW2՚ۂIUC <{೑&ד{ vmudOR Bۺ:ci {Na͓8%#Nǥa=6f?X΍¨c4[]o 3p.6]^/M(i H$Cs)?7'X:.j4b]D#Ui3𛭦IV-GͥPԮ\RÒo%c92fwk`;2_s#d.@Q{3B41C nwutq+Z`4pl{k}޵vLt=۲E9W]ҕtcee MI6%^R493KX30d nTF7Oq-_y?B8~}9mz6Z3R_-f}:,]:Nͽ6|kE0e C<L%_}gxPڲɇ{?G)>.Qq%5V{޴=˿7%xYu~>^u9/ Sxtm]ev9\\C^9d7]Q;TQ)rF@oy.~ȯEg~l p4;B~mY0f,5#Zcz$,ޔ^P#vm yN)}[P )ыoZ:A"w {?us e{ X >+K,ltn4mc. Ƃ CMZ : 21/11/99 20.18.35 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MC(amh0,am40,iopt,lvopt,nopt) H* --- --------------------MO XKoFJ I%K 5H218/01/99 20.19.27 by A.Rozanov Ă -- Author : A.Rozanov 15/01/99 SUBROUTINE TABCONSTLB H* --- -------------------------------------------------------------------* H*‚ Na H*me : TABMtݔn@-'D=$0=ެ1Xi q0UMh!7,J&ZzȽoԞڷsBP8ewǿxdp#Y;-x2etiC 4yt R$PS +K,DVML4_old.Ƃ CMZ : 2.00/04 18/01/99 23.35.45 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVML4_old(T,ALSBMj49HIDI3`vOHU5l-HNIQFj[\Qk(e^pjtЂY[2.$ػJ(DOU?_6-%- ]04ZpG)X`DZg7 P} 줐w܌u`FNcan].k4[.>T Aړ6Lr^t"_$ i3LhJ [{ck7c-x?RoRɎ_* 8Z[sUczqO;nlxi;_Ayz20a7o=RnQ2޿bN`*?sWC|š4QnP]C3Óu;6nnKvFבC[3A "C 'ȴi2$}#"/LAzi/Ƈ422i(h]ۯ}i*l?I`]sY,gIqꮹ#qĩ#qx0BC#*+A5C FY\^jGu8 40AŤ85D &VkۅwO;y`f>0nI׆-x[eYS+7ftDm 9ɫx:ף;vMyd#6+2Uyƞ.)ۆN*BcoFMK#75ٸ7 OR$[{ $hiO١d+Mysv| Uqz9}Xw˜sʾ4mnԉzjyȹ'e3V&԰[ue/4fwk~g;0_r#`.@^{sB,h C nw;u!uq+Z`4Lwg}9޵zlMU#۲EYUҥtce夯O:Byg@ ą,x9` F&L6/y`7p-_y?B8~9Q{mI}|p =l~K$"'%fv]^&Ċ$[Bg:=Р7C` 2sUFzNcliݯFC[~Np ؠB6͔T<Ѯ#5MSCRCM/Q'l ohC|XmxlD&XG9UqZt[GVy * LF{n~a~7cK.  ~c F<8\~s 7oBTFYQ"= /Fp+4,j56& Ҳɇ{?GI>o 8F9Q0Ο)PRm7&n:1(}sxu'21! %3}3^2d'Y['bHXC, yه#Mu+>J>s:˲CEJ\;лoŁ<8j8lw}Y0n4#Z|<'ߕŒqn#v q~ы/[zB#{X~Cϼ_tv:Wb|:=[_LL'>+K,lt4susyino. Ƃ CMZ : 21/11/99 20.31.09 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/11/99 SUBROUTINE LT4SUSYINO H* >kk37QBUHUfxGL6:ĝ[ 8wZAo$tI |EyIc;8'#/& τ9F|-͓Q lH9֢dKvjpuZ2K+OcySX?*؂J"#Y>7<լx[!9^|Gy[{~AH9@.FI _s.8/97b2JIM4{raK"} ]&5u۝,)`ӵt︣ajd?.H6]Zm㳨liVi &!t #/5jKV`$_pu8c^fPk},UT~pr+ҿ똹 =3ƾJyWl[xͪds38Ǿ1Qc.Ξn졣g,ջg13y߹t U fY^qmgQ`r(_=WTOoNtbǩ^1á3h,za=WnNBTNǧ7=?+Xoy??wÛ_Awk퐜֖J7TK&;$0ݰލ%[~W/yt.{uM CCG>U+Y,;EO/g[Y[_F%@usKaYoi-SK ^F'2q(T.iÂ['CkW&ʿwfwŝ9RjCu1/kJu)!c EwԿ>+K,LTGET.Ƃ CMZ : 2.00/04 11/04/99 23.02.40 by A.Rozanov Ă -- Author : A.Rozanov 05/11/99 SUBROUTINE LTCHARGINO H* --- ----------------------------------------ML V[oFE[)Nl1,D$H`@E}Z x#lDZUڧ†}hTHܾ8?UNϭijC1lw>'м^Lܯ~M&Yȗ1|t$QwrxA01yxmje7y*Y(.YDFkV#.\lG,"b $n%xh$A4 ~~GW+Gd4]]ƵD1R:do!c2:m9w1{%oy{o5?~\;JU2jUREw("{<̲XB ^ܘh+oucݒfԇ'5DYKR(9.M*jz/ z7"QO iXLyhXTZM%*TIs}3rX%QKSzcUpp>'}UU. 4rgdOVJJ"0e3*8{rc8|/j$~d=HY5z՞Y [a@?~"&Pς9v)"W~"*Lk:u,2MX{^8ZEO0!n϶\Ś:>G1K7zX p&}z/ذxr*!^ߞz.eZ7LGt%ICQ\dzʰҕ&my%(( ^2~b{Z/:P<*fc)bWW1Ј5h:t,1"nM1,$v 8x:JLσgY.:ݫS Eif\SO ! ¼xDX-l/om[9tN#.SE/'+&p';m {4;2-R%Y)U'VAme6=_TUɾHttzMӅ|N[7!_\ L>+K,ltn4mc. Ƃ CMZ : 21/11/99 20.33.32 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MC(amh0,am40,iopt,lvopt,nopt) H* --- --------------------M<XKsƒ~JrH4$SMo@EqZR~wš*avbccC/qbɁsTʿ,8vZ=7f׋(:E~"YW_Ĺ=d6"ftdV~8Ǭ" ҋ=ق[j$7iHqQdƃ?4LgK;[o )ˇVMERG 0]䐁rN߬J7)!* Z- *P]XG6TNɔ澠B'/ګ $NtOڙF!! $ h+K,DVMQ4_old.Ƃ CMZ : 2.00/04 18/01/99 23.35.45 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVMQ4_old(T,ALSBMW M0#VGN U*|TBBC/].R7Y%Ys_wB:g<~=3~b1ldEX lYX! /p'Rwy'Zq `^̝ |fWфN c~"k >'Z##LJw,"|:~c^]z܋? ˖}ҚRl̋PAg갉H~e y/DU0u~3ߍR)+ղv ۍ{U?6QH=mGeEm:{:O=ݓьű1}rhfqj"_S0 qK)0\ACȫV-(2@6#di #J!b>@V#)(&~ st .̩7-n0 ZfoHK*=˜kwZT5g!S8w. qǝtB cW.UrEAqRJ++$>7w5dB܇kumCoȻwˍ/*D5E(]v#wqd#v%4 HmOz~[ke>+,=Hf{UI Á~X㨏-f 01"<_K=i F6xV%hj׋PJ{CFJxG9}2q6uv#:"~3YاｚLIILIVIfnef&ǩy]N jNsdst*>O;@|+;=13Q7}^ptUé5V_\`f#e pzS3nL-;Sp"8>ɱdw'i؋Rk$ݖ|BXͰ7OI2={{*XZo:q__-V ׷'l_z===>+K,gsusy.Ƃ CMZ : 2.00/04 30/09/98 14.55.37 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 18.52.38 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION GSUSY(AM1,AM2) H* --- ----------------------------M'TKo@^EpHp]b'H=uTI+6]ՏȻ.qDj?.])*Hݝ͌n4$OdلpKŲdQsbnbdY-R0ca!RIa|T%U$<Oy~6Xϫ"ᩒAF)KBV(|X'2*=\9 \v {*G\Ha3TPTxk=ULQc7,.um)m<KuSOt$F‡_{WY@_ey諙]R7ڻcG!c^пY4U#Xa>~kjiڶ61#6vojΔ} P[@ S}xEr6ԙO趴ak 梚: msՒO< g,3Yg/Ht<-+>[9| LVdif>+K,hsusy.Ƃ CMZ : 2.00/04 30/09/98 15.00.11 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 18.53.00 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION HSUSY(AM1,AM2) H* --- ----------------------------MFTKo@^qHps)("iEBQ{Z# A Z +fMB`$c|34$dkl!y4`p:xXv4#VgLi4Rӈf0&" ǹ)3i㔣h,atɫ+K,ltsusy2. Ƃ CMZ : 30/09/98 15.26.33 by A.Rozanov Ƃ CMZ : 2.00/02 06/07/98 16.56.47 by A.Rozanov Ă -- Author : A.Rozanov 24/06/97 SUBROUTINE LTSUSY2 H* --- ------------------------------------------------Md]oQ8Ey- ǎm,PeG>v>Z?j.ɥ%!A]@|-~|_Z|}*z 荆WßZMoϱO&Y?e<7.f@aű7BVjeZ.ogLQ*v裻`m;vSi`YW#S@3ofy\-+$T|JHN-2vNd;SC?݃)J힒J=g~hOqC^`XcQt0[ [<'>fLe!뷪37V!]04^'p)8p'DZdȫS3l& N7\ -h\,VJ|4hs']nr2L+"t'R`++7X~L Vdh{'h?(n5-] qsnGde#Z #r% [(J\?!NHjg^a e5/ixv_`HbF˶r$CZJwb[W>@cڷ [uc7BٍV`kh;12r#dLp134r!Ed G&,pM8>o}9!C3r&u٢ .{銻1b3tAF7Sޡ/Haa4]3<0qnj2IcM >-)e+眫GƃcRjN]M?EsFDH'F{V>dMtxx#EP$MLv !]F_=jF[)3I[Z`mS-\[3iNI3jhiXn42wJYwtwI FۈKmUg譊{" ?@"ig\bdĿWN8\ѕ@GqnB 's49?@x p#^BaBl4ep~:˽WN|.>;W/`XL%ZMY߆{n(BԬnp{py[1E  UT l{ szT-ZY )f*fXRT*)(&UDme:]gm#z+!f.XFUv(H)U4q#ck$_pXI&w6Km 3jX-5]Pgƈ]B^r'v ъ-La>,C!lt|M@3hxEz|9y~_an>+K,ltn4mc. Ƃ CMZ : 21/11/99 20.37.43 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MC(amh0,am40,iopt,lvopt,nopt) H* --- --------------------MlXKsƒ~JrH4$\-+$T|JHN-2vNd;SC?݃)J힒J=g~hOqC^`XcQt0[ [<'>fLe!뷪37V!]04^'p)8p'DZdȫS3l& N7\ -h\,VJ|4hs']nr2L+"t'R`++7X~L Vdh{'h?(n5-] qsnGde#Z #r% [(J\?!N@cڷ [7yYRB.= GBrnJM}eJo#s'Qw<8%M<lQ~`w,Z wRX{H:.b8|gX9HmAi fi,yTPΙyȥ[.y]K#h5܏vl{!Z,7BtpgO3]N!"]`yxp? =d+hZYwlWsqxn3Ϭm\`|tqHKWmɖ㞡*0>6}@ *93(Y>ho^wG ֣Q (R z@y.~3?lX4;B>77seR=&`~,;g EMԙ1b>%o)rvE,S@ oۼ;_/n@sNxA"h>+K,ltn4mc. Ƃ CMZ : 21/11/99 21.02.51 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MC(amh0,am40,iopt,lvopt,nopt) H* --- --------------------MlXKsƒ~JrH4$\-+$T|JHN-2vNd;SC?݃)J힒J=g~hOqC^`XcQt0[ [<'>fLe!뷪37V!]04^'p)8p'DZdȫS3l& N7\ -h\,VJ|4hs']nr2L+"t'R`++7X~L Vdh{'h?(n5-] qsnGde#Z #r% [(J\?!N(s"ϑ*ۂӴV$QY`Qsx3K!5,V]1F(#jlz٢5BYnΞ0fFOC.1DR;~bJe{}F}7疡9]`̺lцGdtlp1:Éon)Зx^08cI$2s &WxxNeqC۲sՎW1)SB{t{9Uko$=+|2l&:1w_f#ils RF}ȟ%h>atxvǢ ^26-R FqoZl¯CG:Y-],2^;_^!/)s`-0ᖨ>k5eK:RýF Gm(os%4V讏o.QkafF<0& \aIUPwܧ:DW]R.жwr#|x*`=U١"WtI'|.:f[N#s|}c9^& 1,?c.(Ϩ bɺsPtA#vi y}S)'gG+^2A ͻ5Ϭ =d+Ǟih>+K,ltn4mc. Ƃ CMZ : 21/11/99 23.10.18 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MC(amh0,am40,iopt,lvopt,nopt) H*DSt>O3!V>U;Rlg7͜q6 x   N/nz+xxTț` a̧)B\˖^3pS1@4݁GS 8 S@̦Q:E1bRLJ {2a8afiL}D'SAfߍyyd ~ B7-l9"LJ{iXޖ 7,NTxwQTC-NO}YzӪ]4o?{m\]W^ |0ŪFӔp|XM[܃ŌVqrK!|<XOy+b2m7!%t81 XNx U=orBGSE`U쪋C\}1MyHފD}^kD1)Eb'MrqnukbN$7eFyԹc0)pt?b[ND`T0<c{F+Wis,vzsFj Y~I٨zkqQ KDOB46ȋ,`Vo41Wan2LګU-2NjIP~̒nI6)N7HbA`Pv"f)8A;^Ox">d'H '7󕴗qu3o+]-J$ eH.[ c,XR±};]ZQ^b3 Ğ`AyTΦ&:0 gBQy HZWXI q0ʉHb0gX!/Q5Qf[m/)cvB4Aoz{ܐaA:26dcY;^б?@ q'HzYYQ!;_3wΚ/o+K,ltn4mc. Ƃ CMZ : 22/11/99 19.23.19 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MC(amh0,am40,iopt,lvopt,nopt) TQ+F;ԽǷؿQN#I-O4д:vI:|&C=Γ(:OI ]R?~| I,A?|3/9o"Hp i2B1sjĴN Es]D^/Խ4D~WL %E\4/m6mN68![ h0K ;+^8Lt;+c2Et*mre> 2N~{rS >k"E \3> 6՚lbryqesq>kr8:ÞhKOQSU5uԱ*g ]ڐVk^]տZԸ&%0mue&H# Ҟ_+|㜇SPT4&QPQY@ڃlr1@P 2|bZX4MyW/%86Dh']$x iBlp,p:㳄W OxlsЩ-m&{G+\yKtFl5Q,b!uI̦Ct|5 /N>+K,DVRL4.Ƃ CMZ : 2.00/04 11/10/99 23.43.49 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVRL4(T,ALSBAR) from draft TH-7252/94 preprint 11.05.94 and VAN draft 18.01.99=+,DOUBLE.=+,CONST. =+,FOURTH. DATA NC/1/,QU/0.0000000/,QD/-1.0000000/  DVRL4=DVRF4(T,ALSBAR,NC,QUDnv"&dQs{׽֩ Oz?)qIs@S~FOcf[unsBɦh:;cgɐh!~bOobE֟iV ?Rd - $X𿚦}L= >+K,ltisolfig.Ƃ CMZ : 2.00/04 12/04/99 02.25.07 by A.Rozanov Ƃ CMZ : 2.00/00 23/06/97 11.09.11 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.52.39 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTISOLFIG MWrFf$pr%HDƞbalO{Q@;du5EV=gw%LU3hwu9gϊJNa` --- --------------------MXnFva*emNԬ V ?Yc^J{7j9glITWm-Ι?T*)T:_ Sp\q 7FMWgϩf2z)ԛdsFJbaMT#9" I*dL.EʸP)D0HpXa9W^ ͱC%7*-ٟ  8Zcŭ%(Ɛ57.>vD6W΃r{* `ș}Bv?=_Q*]E덺Nw$n9^m'm~٫QVQ~T^`{a ˄km n^5BˮjT7ЂipĸdPY=7-w&:҅8=5U9HmAiZjjVͱYT3 !%,ZY1F CRlorZ5;U=ā*w1\`tvM(Y4-w%7 疡8#]`}Ϻl9Gdt]lp>l:aϔwK<X-=qᱤLxYdKp}Z/HA S4kTʲoU*5S~D?g WtiCs4;n0kSU߭ MkJI9hw36z6R[G8q촚'tZK= ׳,<wDP!ǘ+2(խ^={mpp[|8\~tA|P}ȟ%h>aKܱȏ淌ǦMÆQ\}$[2+QZAY: ^DKs'rzvk3"n㭾TRxP^kVq7q=8HemqRbjXX/-ܬq݈Dwa S, `]hʣ^!:z|m#z+!`'*I9XyJ!_7O\4fպ F!s|}c1^* 1,?c.(Ϩ f|RB<0le>+K,ltn4mc. Ƃ CMZ : 22/11/99 11.39.45 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MC(amh0,am40,iopt,lvopt,nopt) H* --- --------------------MXnFva*emNԬ V ?Yc^J{7j9gl TWm-Ι?T*)T:_ Sp\q 7FMWgϩf2z)ԛdsFJbaMT#9" I*dL.EʸP)D0HpXa9W^ ͱC%7*-ٟ  8Zcŭ%(Ɛ57.;St;"zc+XAf=C0aLN`!?=_Q*]E덺Nw$n9^m'm~٫QVQ~T^`{a ˄km n^5BˮjT7;hAF|ϴQk8eFb\D2L,Ԟ@z>5C)8,dWMY#JQAo0M#Prbxơ(z NPe٠|R`l6}@ҟ93v ZtߝR3N~G~h[2کE竕ҾulQ![xNV-lHR/c3KjOE1Q7AZ&1mm|CbRYLڠ)S5_`e7qM*)Lm ퟳ+ܡ9k#9kSU߭ЋME] χ*Y'uHkFۈKgiTkЉ-!5\ϲ;PH`Bqs@Ai|cR8^!x{oEO`FKvpMe@7 # o f[zg~E~4e6-R FqoZl/CGk e@謖.<{-{Л߃o1s`=0>K%eO:fw{F Ggn(ku%T_t &i ^E݈UWʅ)Tu*)(&GnCu:X`=O[G!F{Se׾C+K,lt4susyino. Ƃ CMZ : 2.00/04 22/11/99 13.37.09 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/11/99 SUBROUTINE LT4SUSYINO H* --- ----------------------------------------MIW[oFvIM8yMH< @" Zj kH* --- --------------------MXnFva*e1 X'*+$,U*FO֘dWmګ=z@99sgr/=֞jZkN{ 4]xmOVѡӕs2rX~k0qshi 0U^nDQZ=ŏ龾nu0Y8\apu: e||F36C}ņ ).!q2.PJ!]R!*ֻBXr@3t@MkyGvq{XFqk8n"0d + ݎzV?l|Sޡ/ata0^z<0qG2IEeM.𬙾k? 9coV>W;NSRjNMO?GOh;)\C 7ўw.6v"H2OT" H`:pO70;F 2.Ҹ3V3͡-Z+%= ؤB6ZR r](T{*+q> 4)okC/h"e|aOҬ~T+ZblfX/MemSh-\х^̉uTTwbSQk9ËJi9hws86"PkG@o촚tZK} ӬL<wXP!ǘ/2,ם~.]»nppÛ|8\^x ~-BPQZAI: ^Kc/|=vk3#n㭾XT֬lp8HqR|XX/MܰVRqjV0{X>E! ׬lHN+IH>ho^wǪ9)؉JRVRiwG>q&a^ _pXʗHFwK-K3j2[2Umg= ?{le>+K,ltn4mc. Ƃ CMZ : 22/11/99 22.36.20 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MC(amh0,am40,iopt,lvopt,nopt) H* --- --------------------M.33.25 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/11/99 SUBROUTINE LTCHARGINO H* --- ----------------------------------------Me V[oFE'Oɘ`FJ$H`HE}Z x#|I>O33Cذ>U;Rl2;w,k*FӺ?R}WПtNox 'c&~%k1#Jx{Ϝzԣb;p{&QCuy [Qq ?X,Y"Vt"F#8,3_ahɃ,`iQ?b1{sI;Ƴd߭?TX4+GsrDVߞ\cq/q++˸>FFsޟ w-_wSzov0qc_;%wp\ψQXݨ: mO0` vǵt18!@&f7QR%9d@=П9c4|/j*zܿE7yf=^[6¾a <2qt$xmJm2r>ǯd۰j%d_u _K4~ r6l41tZ+XZ4N}Q^8qfpr-'DGhrp*9Y່$||(vd-|lT%/i*dqMQ\&=MT(85$²Of(h ywAěB^~#Lcc4l GO϶ޤ'JA?]7G"KB.}_3 ˃{#AbeC~ _'G{ȓE4J\VQMX7t/?7ya:Q9ϊ3rK?Bv/gB멿Dߘ4^z*zFa:l >+K,lttest. Ƃ CMZ : 2.00/04 16/12/99 19.55.49 by A.Rozanov Ƃ CMZ : 2.00/03 05/09/98 11.25.05 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.32.35 by A.Rozanov Ƃ CMZ : 0Ȍu#J[w6QEϾ+K,amst2f. Ƃ CMZ : 2.00/04 09/03/99 14.53.13 by A.Rozanov Ƃ j~?Hw 'a36<\'~'vFZ? ?ѱ=f|ƛ6?~OUNxwaSSjRw}w;' l/#B`&g\3.$`> h$0y l^+UOY,ab<<ڃzX=M9g*? 1L'*ɂ`>8f  `iF`8 бLeu9WLw6]K}y*EWwΆ5x ln/t!W)M~2jκ(9<< m$É|v9.˝|T-х;?㉦f92O )r"ʹ99eN(<EPY@,8=K ,#})gqRӗ¡ a,Z=?nG>(2|.fV1Eoq$:K.Ƣo oZwT.v'$H6ԟN !g"9EYe%TY$(0+cR ,|TV04ce\ "=}s%.ڬC1/7@"kKE&|&_&vUxж؅r[~ZG6ۏd5-K N#`("8ZML4qU)l^|?Zjl"m?և=Eձ(Pwȟ5; z fMMЩ;AM~)p=Dq:\iXTjsqi4rs5mNmM?=h)ȼ[M$Jsp89(wjO*Zxm]ԋPzΌkUDƂww;AA|񯒪L_7gZRtw,X5a<6p7anޗ ,ץ9_Awh B:ysE])/>=A2  Q$F$w0y#65YSkYzv1l2VsYZu#rq^\vnN_mRWg+ecpbﻁó1tmݽDD̺Ȯ'z,v>+K,ltplot2. Ƃ CMZ : 12/04/99 02.59.49 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.27.53 by A.Rozanov Ƃ CMZ : 2.00/00 22/01/96 16XKoFf 8ar(dI:B%:d=HIPI\SC?:3ˇd[ԖݝofKTN`;@o*A| cyX^$2 SYہOWCKKf,vD[WPAf}C0aLN`!۟n@!kʯwWQ좔<~qOzuί Gc=jոwf(\ו.)؞Y1i͵ 'v/VBj5T7Ђih ĸdPY=Mw&|kX9HmAiFaȱYTP̙Yȅ*[&y]K#Uo66֜VhF1G~ ϧTI}߮GXZJ:ThBYޠg[hysޫpxfUWC{ Y >b콗[ G݊?`)}mt3VK?Ńsgx$)^T0^ 1n1~~qx8R[u(v6zG?Q-_}-IY xa'm*sD%(Tȇ[jIw]F.p Nu{KF;6l5ڠu3ZڣM*dϩY%*ҬjjE M66 bqRYLڠ%).{ /N28oV/hBl.,whvA{tC2֪[[K1xXUN;Ó}FRX7ZjhI2XN,h zy;CJ5sF1#Gx5;x/z4ڏ 8_T!c0kZ`VO?;ޱȏ淌ǦuÚQ\}$[2KZuÚ tVK˽V|.>['C?aI&Ǜ},X^(BЬp{pѹ1E 21)~_׹i=*q݈Da S, USPt +zʇE:b|P~TwYoVesZS<[tEqg|.ڳFKVAྱ/-Zj4YOUg ed>ڵ!A?.le>+K,ltn4mc. Ƃ CMZ : 2.00/04 23/11/99 00.04.20 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MC(amh0,am40,iopt,lvopt,nopt) H* --- --------------------MX[oGBnp, ڪ#Au XQu/βIZ;!=^JUv%3ssg_z?=մNׂlhz#ͭC+5`e$ dT`x &a.0{݈Hs7pyz}}gONap ]ő06uEБR Ōfmċ5R\*C1Be\CB0GU2w {x+7f؏DmdZqEaZAW)~yYnO2L9$/Xq_GG}uMQJިkwGgm~^ e~I۳hqj=5_,h;,)خY2i퍶K'r|7ȖjT7[h~J|ϴQ{8xZb\2,ԞD>z:89C!8,dWMY#JQA_BaF^G2vKln .8Ae.I8 !!yHppo֞eYf2ROnH֚./d kQ| LNmLVc4-)ԤLshNiI:6G+K,ltn4memu. Ƃ CMZ : 10/11/99 02.27.18 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4M4(amh0,am40,iopt,lvopt,nopt) H* --- --------------------M; $-Z[sfXJgpAArtFdISJ%>u 0%dOd;kQ.^$m3"fFfyJPWJu[JZJMNJNfWf:J.J+J6uhVzhV@hVKBJFg[JE ]JE.\J|JShibqJ6J{;K0$WK0MWK0uXJ:;K0bXJ';K0PWJ1JbS w`J-KR*J*iJRXJ`rJOhVB J,J]OJ(J hiR9JjhJ.J=qJKrJJJ.SJYUJ?JEUJrSJ/CJ[TJZJ/RJDkJi[JTJp===qv;]qRc4Ϩ2|Stjyt=m"َE8'$XC: GgףCC\tgzL|B4tgXszY%a<Ұ(b}azѡ6%煰1:msO.j>#/'̗+G2e$S6"0[{cZ5gJV+bFK|뿐k"szܣaH^5ֽTEo_K1!.d$~&JݤJ?nYoU-z#R??q#ϟYkuqkaac9dppFIgMmZ+N^맳nY2iÓmǣqD8GOi2qQQ8QĵJnc6Vozc3R] ⸩7qz p|Ξ,+k9 bLӲ5>&d9˒k M̻H% "ay@_֒xj,) ^v"-mKt%gO_nnZŃ*\⋑>Դ>?Xkqv0xy a!]I{)۞4-`Nwҏ%D/2{7g(?-ٌAu@gdj.,WdӴذ?YD8\|]sScR2HdX3WFLÔʐ [iTDR,pSUVYBp `j#E=/I񤩁!2ΝN#b=?u88oܠ~8'VY_Vƾ.ɤonAǪ]̋R[鲶/EcmEԟ}/--a{Ʊ:SlNJ;K 0@nӐ#gv;Cvrz'J T7l '/lT$4+f^Oa*RYJ݊f_QB4WOjb|Qꮋ̹ 7*{1Cdw 7ض.] Noe&O:v둫ug6p& 1&B&B&1hK˿DlD^l9xsGwε=3Ce N{{.j6A0N!NV_ᜒ}T; 3X;-;z;1h>=N@CV4a<"ͨLb]FY28mh?@ꜮAMd@ ?(QrĩQ2.5ŀg3ow<6JYLEŴ٣_S6D 55=w÷[`>Qr5jqD-'Z]3 2ᲄ%Gr>opsjuM78Rⴉso̫| d2 㞻鹨iTA%Illm/hWBZDxX p&h"ILp{9ר" Df kֶCc/jہ>/mok*`̢F``НDê;׷NAT-r+7dh[EE](ec`Qғ{džlB6;ݎks{dz:?ȸ'|rvM/G=E6{TiL.xWǏ,)%~/u.x??T _K1gʿ9e>)B3S*CڝԮ7=BW-P-aFkVSlg@MM8&]tiZIvz{ ;nƤ>0ASŶfK=x- Z}w u팂3U9b0p.bv ܦ刍VyTQl,:-q 7jFG |K%)c&WZsDyNCj&.9%kp 5X2ʳ {hiȴ.dIbcِ؇ud\֖QWY7}gXwf2, 6]-;VPWWSO~u ~q15sdVu1XYCrȟ/5A]Nr))}S-DqqǮJQgP$)㡧q͇=vyUlSy}B|gCAL>+K,ltn4memu. Ƃ CMZ : 23/11/99 09.57.52 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MEMU(amh0,am40,iopt,lvopt,nopt) H* --- --------------------MxXKsF$J'rDKܐCQ)C@PsJ${S?ڜ?$#=TR9$*i0ӏ|D/=?}i畿i_CMIx AWpwx`1&r{(w*4$Fh1iiQg"YAo eJes΁| e*㑄0ȟ%6Ԇɜ>:%Φ+|0ΐ/Q,!> [d+yoB%қ+D|CO{8;SsMӴɟ8Ho}N:oabd}X8I|Jv?zaGߪZ.IR3hY7W<4P4nGZU\/zF2Sk5ƺݸF6-4W;ԏd`ĮDF G ZGlRHIgtWGmmWAXW*Y[2sX.7~qPʍܒWǭ2/; y)~uаĚcVh Jp3iذyҢ PM" #7: К5,6 xhfȫƤgQ1 zʥ3 x@;eZcZb$>Ҳ3 رJ6!ym%p=o8ei7h)˥[RKE,mx5筨 p6)#AAU|* yP9GV.qu|im:,d(٩Pڪ_jk5L#ZDwYVso:%N eFIx;|##GmQ( jsq_3/"Ml$1adKC% 9ӡ©,}v5ueGQ{5jjݲi僈J9 +h:L?֍pץ.R;࿧K(]< qr{ǯ}zU17@~d[hGGVv8'k6\] ݁:n?Qa,*`1g#>q?UK|bb 爉{ $1 %CqgmޅڱsBF8vOvы=˭ +EK|Oux(F=" WOg?.} jA@hv͂v;[-jhn5:.d <IxcYE3+hdž5I(omhCE:9-EDl :11K=`4K;`muӟԽδJ&}j4 {FΦ{^TQ{ҁÿW>iqƷoHb/I@Hp=>ww C~% :Ya*=Vl/fdé->zV3KaY 3fW: z?gWԸِ%|a|-S#kW*#xmuCKj*,R|tvq ,aҸUutl˿넮u :[2x ed&W0%SAxU+M̺㕯Trp廊rM85|Ш*(K ZܛrywZSG?_U7&łb:.׌}ZkDz|(-eMkS׌ҷWBxaÊ8+V;Ų77qǦUbw Ol8Ϟl>+K,lttest. Ƃ CMZ : 23/11/99 10.01.56 by A.Rozanov Ƃ CMZ : 2.00/03 05/09/98 11.25.05 by A.RozanoCMZ : 12/10/99 10.27.59 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LT4MN50 H* --- ------------------------------------------------M SN0ʰpuMQXEvJES[K,9v: X{_q>f NlgeK}{As;*J|!-|lɩFS"f(W]`&4Mp&ȼp I&-rqDK(131vBt^^Jl恟s|61֪+9)mna뻻xq\+'ri 9&fm؋{ÀtщW?.R>7#8<_5ʿV0:iJ#t-&bb㒥FL:#LbI3ar53HRinQ Vx56u}_(Q.AJMqУ>:q+?` >+K,ltn4mn4. Ƃ CMZ : 12/10/99 10.45.23 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------MnFHJ+i _JrRP"eæ('驵KtfH[N0󞝗h|Sw噢(Ϡ}+PA TCH,//LEPTOP/CODE >+K,LTSUSY_INIT. Ƃ CMZ : 2.00/04 05/11/99 22.33.42 by A.Rozanov Ƃ CMZ : 2.00/02 05/07/98 20.18.46 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 SUBROUTINE LTSUSY_INIT(ist) H* --- --------------------------------MrhTMo@ m.?Ln$,%đ`b`Zl*',l'شjC ǹW]cQVj`73;P.v$}.? ej;EE?&l2\q&b^ |_b#]|Tk>C@qYO/Pp @C]Oz #q',:OYM؛Lgxac#!Ipt,nopt) H* --- --------------------MxXKsF$J'rDKܐCQ)C@PsJ${S?ڜ?$#=TR9$*i0ӏ|D/=?}i畿i_CMIx AWpwx`1&r{(w*4$Fh1iiQg"YAo eJes΁| e*㑄0ȟ%6Ԇɜ>:%Φ+|0ΐ/Q,!> [d+yoB%қ+D|CO{8;SsMӴɟ8Ho}N:oabd}X8I|Jv?zaGߪZ.IR3hY7W<4P4nGZU\/zF2Sk5ƺݸF6-4W;ԏd`ĮDF G ZGlRHIgtWGmmWAXW*Y[2sX.7~qPʍܒWǭ2/; y)~uаĚcVh Jp3iذyҢ PM" #7: К5,6 xhfȫƤgQ1 zʥ3 x@;eZcZb$>Ҳ3 رJ6!ym%p=o8ei7h)˥[RKE,mx5筨 p6)#AAU|* yP9GV.qu|im:,d(٩Pڪ_jk5L#ZDwYVso:%N eFIx;|##GmQ( jsq_3/"Ml$1adKC% 9ӡ©,}v5ueGQ{5jjݲi僈J9 +h:L?֍pץ.R;࿧K(]< qr{ǯ}zU17@~d[hGGVv8'k6\] ݁:n?Qa,*`1g#>q?UK|bb 爉{ $1 %CqgmޅڱsBF8vOvы=˭ +EK|Oux(F=" WOg?.} jA@hv͂v;[-jhn5:.d <IxcYE3+hdž5I(omhCE:9-EDl :11K=`4K;`muӟԽδJ&}j4 {FΦ{^TQ{ҁÿW>iqƷoHb/I@Hp=>ww C~% :Ya*=Vl/fdé->zV3KaY 3fW: z?gWԸِ%|a|-S#kW*#xmuCKj*,R|tvq ,aҸUutl˿넮u :[2x ed&W0%SAxU+M̺㕯Trp廊rM85|Ш*(K ZܛrywZSG?_U7&łb:.׌}ZkDz|(-eMkS׌ҷWBxaÊ8+V;Ų77qǦUbw Ol8Ϟl>+K,ltn4mnmd. Ƃ CMZ : 23/11/99 14.58.47 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MNMD(amh0,am40,iopt,lvopt,nopt) H* --- --------------------MxYrFRKr (Gh$䥨r) H (9%-_hqbo/_=e?Nglnُ==j?bLNfW}h}slT[ן .sMݥ\sysUg-{#1{}J,C 7"}u+H= j霬 ^h?P>]?AL>+K,ltplot2. Ƃ CMZ : 2.00/04 12/04/99 03.39.27 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.27.53 by A.Rozanov Ƃ CMZ : 2.00/00 22/01/96 16.45.50 by A.Rozanov Ƃ CMZ : 2.00/03 09/05/95 22.43.16 by A.Rozanov Ƃ CMZ : 1.30M WmOFS%?71~^IvhhOBDB(O-CEU:3TTKz?{0 ~;7j٧+ K^N|[v<߯Wx;'c<;7p\k6EG%|GIGaĥ? t̟ Ȼ@=S>0IS89`t2GB2݃Z؆7>> Qwv.;q'Ѯs$ \NyӭwGT_jg7.U=RV3z{ED^s\c]d0Ec䉰qlF<41~Q;El"Ѷg%EHDzC 6  e| cFHDm0 Q \KSO($kozk4"9MՀ1G!d,`Oa I׫iw3% 97trLN-G9"c\-LSǑmY\Rz+a-_uFՔt(>U#1_bT=-\U=^uvl(VC(F Ig]g*CxR;0G1r&82%6[5rS3qVKlx'[gIKsߚZWĵVq<]Cބmum[vHæ%FGm/nffNmZpvbDr]z+K,lttest. Ƃ CMZ : 12/04/99 15.53.47 by A.Rozanov Ƃ CMZ : 2.00/03 05/09/98 11.25.05 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.32.35 by A.Rozanov Ƃ CMZ : 2.00/01 17/03/98 21.57.20 by A.Rozanov Ƃ CMZ : 2.00ME 'YIsfў* Xpc_R ..}Jd<ت,*_ZҘP}zjFS/.QYXy5ɽG{-OAj#,`uQ6\_\PGq?_io"wV7iwywV{pkﱥZoXol?*э|RCoVWmIÍG)Բޣ/6G)ZǏԐysR{7i>go.у]míe&mM,gccg!rU/}egAլֿT~z6[Ⴗu޾Z_=ZUGUTk8 7g;Ff]2SBg\CkF" M)d?_Xq@H*[ftc\RKK;~77VGz5;GEc{ʒFvŠuRDћEzBtߥz"?k#ƁTƥ3NI'6{?kam`wyc95YY@7k(ЍMC7{7t)K7k{{=[Wكz{iSKRExxvֱDgK8>n#((ͺ~g{~uLm:/X=v_tF:_Qw/`ʡ;{(ɽŎz򉦷@o2=~?w-j5}6!}$+=`Γ9cj|l]]J\ԭO1[-!tu5cnK;z`">q W11# 4$&Ɯ5mO`{ɺ/Ĺou5p\Ht#H1(hw/p_E(tMhp>ۻxY׾ [ʹt+脫s2gja\GFq[0>C.qFY:`4,pS%$.΅MP\{7߿C†AR< 9a&|g;iN'{~~9tA[b_ 'iE?%=ٳF,=s˒aM|F?`i(ӟf\}cP=| 4P9r|$8%pB$8%qG9c| >JEEE-Gsx)oE+^˗6 V,4C7vcЌ>Oe|;s_NtY[_5>_d}S'ueHC6^4wЙU3\!t#r"BD9kq^d^/S d1Œ:W;%K GIW&{8%@d!˱(t b9zݗ,5qxD/&c@,E\>;pqŁலN4iO3&C T/q9I:NKqq5q>w8I\}ǡ$!qx\YJMAE֙*<04vSBiG^jT=fχHAѢ? :KKBqJU䅸#B; DGă#]wf$EL<.H(WSܡBM1ߴBqGt;&[@;p. G7W3G9|6K1;-N/2}Kwg }<v3}li$po|56v☰Չcw\NN5q,dk,$.]9u☃ a$.1{>$.^pc\5qLc"l ss4G8rLAH=1nHEnqtS3Ll1F,y^Wc/^^tzمN6=BYґ?F2XowA-lPel8 @ gP;70[ov= Y>=ݯ-fEs&8k1o?%?w..::5&6W-N"D}; ڠbֽCOgOCI3\ˑ)hrh˭?79ݷ|dygbʬk.wݹ5~E5SEHQq_  Ϋ!z h#SϏ!k9W>TZDƏ| \[1x6a~Lrg D9^ $qP ik+P(ybvX@M(%yc~p !'0]j;F~Zz }g_]!ًg`RHW@Yby>.3*"9 DN^y#2Μqng4~gta.kX%-Gr^9t>AN9vN!;:9qY=9=dE'% ڥ{iXuF ĥMFY&pdvN%U+ڒ#xR: !)*+:G+ 33&o`z5V_جVEƋ^or}5;-eگ7t3M|x~:ELUh?*|G" B1aB:DqAă;f\o053f\_H;5cB` ZԌ) l|//> +k 1&zB馎Q[?\ ~nnfa + CA@u~l2%=ya[a ~(O<$M]n΄fJlr4 $68zU:۔Zy*Dӆ ~PPsW&^9hLdUpnd3$$kkcV#`.-AD545 0,SԵWo=]xJu[68?ud_^rMeþֳ;e뛛(m!e5pb\V-'6ӤBdhHߴ"d9S~[v^Scj yFЙM|Ɯ!ggvBvP `-$hF]`TuO :X<UIǘ'\=:d]p/ީȆgS6.u풺ot> W:g-;0) lNHh#Yz/{ <+z-#zjAVvRUrn[LU}YǂLβcSϛՏG3q#)˩X[?4vjk*ty4`EXq7[/S/"DMZ/6E|OՋ~Qߨ^bδVkΰS;Yr`L_^3qNn\S~uMݙcc)l'M`|Hw Lg>%:K`7SL؅̓՜.9]|\o"ħZS㥳>_H3 p)kjL֘r}}hXS_/S_3KgQغҝ#8IIG$:t[K:z:FǠH:g%e͇LeYG78)ˏ]Xl}yq6e Q&씸,i\݉d:!;NddltN%̱zS`;~:SDuJ:WQyRU!Ϙ4;#ȧg,6?[m_ DUuM(3ciu-PH?Qx'כ׋Ԃ%%l}oG1Q?$O@81FۘҐ 18c&*bak19ØxI2Y ^Ҙ&9&0zZFOz4GԌ1e0m =v'2ۛQWz#^w^tOcx"Q?^^tzٹoi6'^G_?ftUO{kEpm<}Yj$5})35}1׍CC'L͘q"f;5cҚjVDǗ.xmM_?yPM#]F&dz8/MmeyyZ'Cz5s_"kV| 槯 \򹺦鄛5zؚ5??-, |xc彩5?Js]utc=)=Mt'/vS {L/1^ mPM/oj~0$r-{ OU31jPNRԿۺij{^pyicCNPrǏпh*&0^|B̋R4xiU'B)'=yO j6擸ШcpMN|Vfp#I g^L>H0ƧYGV/@^?9ԃ~ZώR$p?:O@/g W?L^)g\_A#ķZ}p/QA3EeYnwB19D B~UA6$61b7:5]F-C}$G@Du8a?Bn@?"u 2Л0-&ed,QFgDsH:٩s-c[ } Fߨo!4:Ȓc4g.t%]!tQRE1@xuEcCپ'BNn“nǴ]Hԫ7^s 1}3'C Wp Ѓ|I|N ̅#kupd$|/|Oυ 7 j&XF䤭Zp 9#ׄK./@0y$8?T?XK$_/z4k߭J=c0tG"! [PN9rc FMf_x s{%#_'it}1wtXA#0Ov9wrhcyĔ'!Zz$fkqÛGQ#]'uuDgg8*Y~ᾇ]Ԯ2/96nйt{X8WUj㎰!twF4wKgNِ6GW/|쑀<;R;aI)mLN#zr.}WJaoH9xP|ܳrF^̳^}KqXIN111x^+#9f$#3BL05/cƲ/"0c䞈S3*!bM8C qg{!GؚY `>G@x?۹ž&蔽ahfm} :bs@ %@mO#Ejz|.3$n S2hΘ5)2\Iǔ} R~W_ ./BJﮇA6@frOӿHIE~Hy Mؿq!D'}n{pHcrNxL<'㘨WQ1'pN+d3Sv6g_aC5-WIǘ>XSH0'׷rc)dnd <tȶ{\OLA>CS|e~ }4;u_du +z#,y#RZRO^QdC\^^y_E^d3nM F}abuV{R8v4}m뎰b-͕֞&Ƃ} V% ;(4Q1`QUpT)n#ՄOk>W6 a^Q,mMߪR&ePHv`ل jqnXÑ5~V,fz[9./bz]Ñ5Buޗ}gz_tF!z&}ρY~ ؍N4I&X4.%; +8:0W(7Xѣ`Cc?Qb\gW@2U3r3qϪj>y.=uR Ɓqj^6m}C :!ͱwXgmw~79e/_>KR߭]yf)H_rnm KgkZG]vaB>^=8z=זsd_.S}WއN[cq.ǵ LMӯC>$ԯ{shC}\k#>}?Zth^ГN$L# _='= zzs7)wIZ>䤝ZwrK tŞrIgetm/G?Xbi7S]IZsnO=Vm/KrYXG N7(s{KNn#2MpNax o\ tfphCZT9kp#;?!tk+ѓ8Djq>bwg6m/QGG n&B>]k&M>K}rvIK:lQ7/~yGGt}?+؈ư_?9>G{sߧ/-֊cA >\c?RmEbޏfsۄ{_MG=JLqu,Q6+w ,s1MRozVkWhogI,=ޮ+Dj>ھpA}]d )]CA ~Gk{N>+K,ltlp99. Ƃ CMZ : 2.00/04 16/12/99 21.09.11 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUCMZ : 2.00/02 04/07/98 21.17.58 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 10.55.49 by A.Rozanov  -- Author : A.Rozanov  COMMON/SUSY/SUSYFL,YL,AMST1,AMST2,AMSB,AMSQ,AMGLUINO,  1 AMHIGGS,BETA,DMST1,DMST2,IMST1,IMST2,  2 SUSY_M0,SUSY_MHF,SUSY_A0,SUSY_SGNMU,  3 AMCRGINO >+P,susy. Ƃ CMZ : 2.00/04 05/11/99 22.32.29 by A.Rozanov Ƃ CMZ : 2.00/02 04/07/98 21.17.58 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 10.55.49 by A.Rozanok-ƥ_׾ؘd$\h_ݬ6,Ffz=#>|;}?]%{ڿ>J@}@_:O&Dv{O9Xe./:bYWcu0aq.yz͇m*g9:ʹS}o1m&RPה.c,zt֤GYI[4 ECV5+K,ltsusy2. Ƃ CMZ : 2.00/04 09/03/99 19.57.20 by A.Rozanov Ƃ CMZ : 2.00/02 06/07/98 16.56.47 by A.Rozanov Ă -- Author : A.Rozanov 24/06/97 SUBROUTINE LTSUSY2 H* --- ------------------------------------------------MDG\vfDrqa})d3BdY#ior B@֮o^}=:Xv'qA`Z3O}T=mc:T׌C=?U#NήFl t]fQ2&79i0:*9WN$<X)+kvR{ [Wg6L&V0*'jd[lY]Y6g Gzŏp_?Tܿ"y{|LHʛh=zz2%no֜g=;8jJ~Ϣ8X9=[xru2 %-l*}9\Nޚɜ#W'3<L{L8‰jϣw:䔫SqFH aٹ e 'st)\J/SZ7O#_F{b}gvN昔%ʻ2̀CQK=jt^gѵD|+[8ˆâO+h, FQʛde> xwc9 x~r,Z+WtV1ts;x077.¬a΢)}Ez#[o.-#kX[2qϏv6ǖn;Z6:K'JCuxNaӀz@dB:$< @e*Ji'apk|30@1ɨ-{/-Nj\|}r]( NӶ^I0hw {=Zc;gOh˕9` FE<;2_S`s`/,p`_8sNԉr">9<\#y)dIJSTh[&8mcQAz1:!jL4~xWu#%s||v Kb[xy& /T&8^'+s$ë!`c߮"QYUzfy.hLɞs(ow=ݢO>ؠ/甓0 mW3Ñg9qj J摿¶?j$=BKOH:gD,@MoWj&ikB1p-ϗ}̵/A#?|~L d.6pF<:ٖ @z=K*'>`J 3 8gEJdJې*s8|TSqHsr[\)٣K$W^GAEэLq8K3}?f{) q#}~7 MۆR_k*t o.ɐø}:vӞNW!"oqM   !)?8d*tue@WX]r3lf[\Gq=Z®%`0m,zMpK8YeH^ m s+hD'^h,a%=Q#%shZ:ϤoYg~02%:ntcD0bsf.MB.z^w,_O~c+dMخ6Doj:VFCR]&+ wG1bކ=k/{v i,b] f!C/ϝ; r>ir>͵!=Dѯ?5ef߼ik6ۊ|Dl_X"W&>ZܧfGAZ qБ*a"j+Q3+ꁐLjb'x{W\I[?+7.%ݷ&<87.MjOȀad{7۹NE=ބݲ˪7w'w'S8Mc_;he}wʺy$s'}d_M\gZǙRyq41!]Yh' na*:3`Ay `Gd}y-nZ kSrx1X"}YF 1~KQl\{Yl]Y$QiQ5e/=u39Ne~keɿTi}Avp}.\4IzMx{z<+8=p8f5q[K nLxoo+ {|F"|5 q@agk_TO2f]@pi}i.lFVl[g} Ւwr Ҙ)$݇ icP2?jIhGY-/]^!q5oQ?cVwws|ۦr#;f-s6|N7i"{5{k8^[> }:hScNgMz$/F Z4o ZÓ$kDCBuH n/tP%}Sb`oJqrֈZ װrk12_N}I]9Ts Bn8XPn'g p!3eީzS't[|{`߼xE]{wZ^"kYz7}}NlQ6$WF:r9Vs_Io!I>+K,d4pvr.Ƃ CMZ : 2.00/04 10/03/99 12.10.09 by A.Rozanov Ƃ CMZ : 2.00/03 05/09/98 13.02.12 by A.Rozanov Ƃ CMZ : 2.00/02 03/09/98 10.50.19 by A.RoDu`1,iް{99/Eϋ='#$oB'XЏ"l>n}蓠}'b/z$o<3?mhoHuTķb AW1quYӥ|z }$ʞGOLB_'k خx`YNaLժS5蓭Lqq0ir 8fdlP0ҞQҴE,6~30{}o(z\<ܺ(GQgQ.>vZ=j|z\b4XbF!JCG,oCLCn-;ƪjÈ Lp<Pqgn P諫 ? )E.}bsvx^kZNXu6Wjs&ʭX+6Sn:?)H6/U,lA3ȋkAoX ߄xfSȡ.<# p9FHdtAxzւx>3A9?<+.`d% U>aNH?б?thc{}`nƪc eG 8W}p,U`nXZY4C~YFNLx:([qLNz18/'# wR6Ǣ?.pkJI-oųpKI{4T@{e0jo jOA hEïI:Tmtf9nMmt0!>Fܞ">EםF_bE( b ӳfr-ԬŲ윝f2y^*3`JI"Lb :pme*)?^%%xU0Sj|}B+ks!ݑ>ũQr̪XK/u >`A0*gђR㥼X@[NGD@ʺVlZr\uHyI[_1 sn=f?&\{Ej 9dnK \Ai k \IOB8'}Eyj-BeD0jd"rR!&pLȶedr2&v7ow:o-؛\bȏy ws֯ CVn祤Kp^2kR8Se8Oy_Lrpވ_܋t ۵+4ꕲ JC̆B8<\RV9ԊVVko뀏ͭuDPsdN JE~̒+XRwWc8WRܺ`;̴Gu=3 2͡smA/>bmBUδÏiI%,Ʌ3lNf϶υ?!𽝝{;L8>D7Wry3oPb}jҙOx. }\#<"F9%G>&.X֍2,3| nz!E -ׯRzE9޿=V7 [YP4fysyoL ,Fe @941wo3e.3 ݄ant]s|oBٗ4JI]/"J1W*dvߺ( +I4kU| .Brk!WwI‡}9 ِ;E/t&,t, BH{#OE}WעYzq D*fJ JU Y(_@3-HǓ)l`:`b*Bp{U2/*5&(JiAv q_FHNhCb|!L L2eʒ i.Le$S]cG0}5QzCT;x2b_Y>Q5CAϩ[Ր&EVW&aχث o0i{&Wդ>ҟ`ٵ Xڠ'je(-T-1)}wb(6B(2+sh[WmKzW kc諢R_;[-uYg)Ur?s_ULV7AU@e5]`re{yVnȼ&&~}ޒ&`KL638``TM7h*nMp 9:;a"93rUuD&!ӫ ۠gSP sKyqSߑsS,4P~cNq>fʝ۳ٯt6[W2[\klx<oU\x{͍D8%W/x m:Vޓ6Y#¢7ܞÓ%$>+W'9MΉx1JV{T<ܞ#S̲B v1W$B9G^A^\eDmt-Sf Z w{z(S>30XYy瞅3<>4[oI5H>d'l^Url5ml pHRZoϴ4⤠n8Gg0{_jX>`YS׏ g=\Ǣ|n#lޞvEyj9 DZ118b8\هuI>noSWqs±ԟ`WEg*w/1WW`ηљ#QƃwsKhoї!`4~mz(CoMU~3U-Wn۶ƷMnWp (HO4ok2lFc[øÿp2֨%z-nyD޺eǫwrfAy<9z,!g|?>+K,lt4m4.Ƃ CMZ : 23/11/99 10.15.03 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LT4M4 H* --- ----------------------------------------------------MSn@)-.Nj7H>DJH#RW:^ZurC >`vmF"'81wvvf{ZvqfWL jRr]{Շ:eB-8RS%~>iz$Y Q2H)͹64INE;itY3)50oIMTzohGnmhGj hhGgzgJfGfJeFeJdJ|dJc6cJb"bJaAaaJ`F{`J_K{_J^ja^J]A]J\\J[7a[JZ@wZJYIwYJX`iXJWwiWf*VrVf)SmJDSgSJRoRhGQ PhGO{OhGNqNJMEMJL7KJJSJJIHJGTGJFFJE!zEJ6DHYDJCICJ{B+BJA@Jo?o?J>a>J=V=J:H:J9k]9Jq8xs8R7Q7J6D6J5A5J4qPJ4m1f0*0J/.S w-,$f#Y#J" hiMJeJ'J\KJMJBMJuMflS wTKR& 7^ v  -- Author : A.Rozanov  COMMON/SUSY/SUSYFL,YL,AMST1,AMST2,AMSB,AMSQ,AMGLUINO,  1 AMHIGGS,BETA,DMST1,DMST2,IMST1,IMST2,  2 SUSY_M0,SUSY_MHF,SUSY_A0,SUSY_SGNMU,  3 AMCHARGINO>+P,CONFER. Ƃ CMZ : 2.00/04 16/12/99 21.06.06 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 22.10.39 by A.Rozanov Ƃ CMZ : 2.00/01 17/03/98 22.26.45 by A.Rozanov Ƃ CMZ : 2.00/00 16/04/97 17.41.55 by A.Rozanov Ƃ CMZ : 2.00M,ՎJ1AP!v{ oGȔlj܆M떘Mc[_y;tP#mw鰃l iG-.Y5}cyl׋i޾%U!Gr^c>+K,ltobzorfig. Ƃ CMZ : 2.00/04 01/02/99 18.08.27 by A.Rozanov Ƃ CMZ : 2.00/00 23/06/97 11.09.11 by A.Rozanov Ƃ CMZ : 2.00/03 26/10/95 16.52.39 by A.Rozanov Ă -- Author : A.Rozanov 01/02/95 SUBROUTINE LTOBZORFIG M8tA[[sf%_?lBi$e3mɦZRPtOXۯOֵ}_:ͷy^r}]8 uq5mi.yEm3vn۰Uo[Z}6rEX+ÇyA$vūEؽNjժ{a흽Y{Æe+{RhbVDϛc:Z^{Vw?ʰ_1] o&sGv6X W,醭'6b(weuOgbson/^(HS>O[ F@,wB}AWC(JoDyO?пSfY5ybM,~T?4kx k\֭N+4f1f̴>+e;r>wcק,<^V#=q DY5:t|ymv#֩;{,w=/k|`I[%ZpI6KPe3֞135V;yn(/T9 MCI蚊`b_cVZ\oB)~?Fցjy~1lj[=_;"P([5%^s<1/k0h]1uY>!ЏY)|䞉9#³pB'd(6F/ljY>S瓷{mɲ38+'.Z> yZ49IfSMՍxkMϵ/ԍZ @G0'tU/zxtQܻYt3{v`?m:X|I/r?.̖̄:/(2Yno< fEb4JQ!M$d 2̘)-L3'0_#ou G τ|$g{2Zmm ʕ8hk̂Vp1&7^]Ӱ-`E\ !l|h`7wΏgs#@<^z4 d !F;ZsV ߃}PKJ)K>j;-f^+Lsx$VXF7aHkz%V|[# g4[Asd9qjyu^ÕO:A`3)Sx88at|bҸuA&s}j2yRf :&n54-0XmW2Nʩ~ Q4W|?.zXI`Gi a|S^mbbjFj2Ti9 ى~ǝ/qݵKL2rH+V%{>7(\2$џ\|ioVyԟ5ȵc xG9|gfhihgoR4{Gܯ oR=#Pw|y&=g{B]1](ւ]5lGi6.ok,=^J{nymؚytIw(ImG|khFe|NtrS\4yb/gAXhJq-g8gz1e t/=ᆨd6Qy_'Hl`ǯS\x ࿈9.zP8 >+K,ltchargino. Ƃ CMZ : 2.00/04 23/11/99 16N е.֥<;-+^ӨQ uMQ+KW+K,DVMF4.Ƃ CMZ : 12/10/99 20.25.19 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ DATA NC/3/,QU/0.6666666/,QD/-0.3333333/  DVAQ4=DVAF4(T,ALSBAR,NC,QU,QD,NQ4,AMU4,AMD4,AMQ4) ɂ !!! !!! Temporary untill VAN give formulas separeted !!!!!!!!!!!!!!!!!!!!!!! if(dabs(AMU4-AMD4).gt.0.1)DVAQ4=0.! !!! ; >+K,DVRL4.Ƃ CMZ : 19/01/99 17.30.25 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVRL4(T,ALSBAR) from draft TH-7252/94 preprint 11.05.94 and VAN draft 18.01.99=+,DOUBLE.=+,CONST. =+,FOURTH. DATA NC/1/,QU/0.0000000/,QD/-1.0000000/  DVRL4=DVRF4(T,ALSBAR,NC,QU,QD,NL4,AMN4,AME4,AML4) ; >+K,DVRQ4.Ƃ CMZ : 19/01/99 17.30.25 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVRQ4(T,ALSBAR) from draft TH-7252/94 preprint 11.05.94 and VAN draft 18.01.99=+'_<7#ʳbBXn| < s릔zס/x8[a(8aS_X4hCy,ڵ7_\Ϟa7unrEe\"wǼy!{KoGR j5XG0rp7u8MØi t':`1g>sȎS]EV0h:x3JqcPb91FЈ5\IDv>ǴXS-_S-84P> '-H(AS? OP,Mi\e80,?< _4 $6t~Dmr}mXǷc>ȘA4Zho=3Q\rF1CfX$ *deYj ױIzF`dYFaP<h ֝=0?k!$mF:O_|/>_Fԃ~sbQn0T9ɘ9Pkr)Eh*3[v )yZį9pa99^r??cs\У嘗Ymծ5m٥@ic> φ<(DNX{Vv8(_K|D^&ejʜ+QhYSsje{+䐞BPS5jCPJsr.ؗJ3ad̂0?oo9G)Pǃ @s"}q_6BedǛCݩ<ڹfR Ylwʁ z$ssr. w։=- p&~Gk:>NA@c0Z`6iUma&N͛eaMظA0ԂI ͒𧡯9*bcS:5cDc9ao%=(`n;2t<ĀomAPTLnpߢ@.P`,!xF  N3\1aA>PCa[N>A<Վ>P?E-۪ۘ@x8"7w R6n)KȞXY cxxoG$޶Zt-Oe@kyMշr84<TkOWj梏; M\9gtk&9.}s-oQGGƨ*)]b^˼7wW "I,c!sȮʠ^9r=&GZg޷!l&BA^̟GXur֕uL*+~|W꺩Wk=1֓ƴFu՛E ΤKU{U*yQV< 7oT CR<E,df[{q6yA{3;(nTs Yy xi^7 WבexyV̻nż&q7%}P&x1v]]-ZA=ы}'_g~><2BI_oL.b|ȟjP|6#}L⿌U=UȆC6Pb=qrb$٠8ǩȇ:ĉSvz:NK>F۸ 3xeLS{4Fzka=XN&dc6 ;4KRRqpưAs< +5m#B%-!f6Rso 1{,Syql!d}ty@cJS-(nGmPK_Foo{쟛Gƅh:a9=KP>$TKaJu1流cf}>fsh?j {aSQ(eCXVZM\'ϗ" ~se>+K,ltplotvi. Ƃ CMZ : 2.00/04 01/02/99 18.10.28 by A.Rozano2.00/01 17/03/98 21.57.20 by A.Rozanov Ƃ CMZ : 2.00Mo 'Y[sfHKv%d)W@#LqrI'o- grj&ַn{}koǚƌұV>UK2c~g?3yy|ys Uӎ"3Ǻv\;PZәVZj8]-WcFX38N3T_'pUfZWaz-!ȢIW(֛]B.lOXۯOֵ}_:y^r}]8 "a.ٌ7_xfa{qS^2oͮz\ݮ_ zWٞ:E-_R$\pخgux EOc*0|zo_;ℾq uf^߂1A:˶ـߴ<ݢ;7mۭ~>n CLyA$vūE{ժU+c;{ݳ ܻW"0e:N{1ˍZۻ4Ͱ~^Qf`3;q"$;_ylLHQG+;5}";{s{1&It)(Nuz|'} |,w|AWCJoDyO?OпxSf5cM,0^f5?<5.VˋOu:f̴`>+e;r>wcק,< ^V#=Ůq j(98ym QPX<ڍv[FDHܮ9$go!ԮORLoE='x.aH>Z{xXMt乣0H, ݥK<5 `M`) Ǭ ߄RGl|1ltqm׎H.V{br 4ˡNݲzҏY JT=s6}GqO!gZ jK_{ Kɳ*}Z/'ohɲ<38+'-^$P@yZ4nt؜jnf4a:`nT*69z\ '0s͢ c:˃/IVg%rY%q"5tBKd)?$d]Aȕ"Y1BfI Ȯd1SZ 3f:NaLG$;Hu3_, H&7/{2Z}mʕ8DfmM i:K"`7!_Kv2C,Yv=@C]:_>=O;dN.Ÿ'{FuBɡNqs@3 $8Of fiXtE\ !l|h`7wΏgs#A<^z4  d !F;Z Yɶ |f C-*x}.;syqL1]ZSJ 6aHkz%WxPpYٸ|XDž<:/xՕ N:A`3)Sp88at|`Ұu&}ǂ}j2RQuRNH*p?Mxau%Aӏsc+B'8hW8.zXI`Gi ۪Z9_6UR?j4?/7;_:+[kL:6eVJl| '(B2$O\|ioVqO*j>A5]Np -$LO'8*p|Aʩw~}jrxXtߜ\}'V#ߩsXAX,O,,iGbiJZ>o~/ȫiz󗴣XXⰯ,HZj/"rЏ~ӸF|%+i:)) Fs$ſEщ@L_Ğy U3bQp߭1kَ6W[mz.ok=^J{ nyoؚɑlIw(ImG|khFe|NtjS\4Eb/gAZXJZ΄,8KD . ]'`oh~.0~Y 7d'9[ImI6I neoGu Qݕ3MmϠN#Dc˦o[ry&|Dփ^Q$ ύ0]s:/׏Ibzн_~.4ɠo[K]axbGě0&Hߘ{+^@B+K,ltlp99. Ƃ CMZ : 05/11/99 22.14.17 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTOBZOR H* --- ------------------------------------------------M_ă(Hp.+7\N<! C/`S0JoJ00rqG~U L[9컽R/q瘌QG< _{ *_ln>ppqh` 1W ߿]#_zFCN۳٩{vߞj>9Gǧώ7R ?)BNtl_;Mn` ).iv_ fG0 /'?vv&W 1q' 'axk86$Imыh\$ħ b?OHM`t-2HưF3a0Ӊnd ٔ#Lpӱ)QHH ͆xE=n ?RϘ(Hj[_]Q f0c">8,?X=?~-hMg\hD[mٽqO3ܠ?As p{'-Lr88}!Vn7֫üUO1Zqž]21r6)FJB/-cjXF1.cNɀ2bN!Wl^^Qwˁ3Fc4`BN1!<<';X^ۂQ ex _*L^rS[b+Z~*c5/q7?޲zn{eZ45_бR],t- 9} 1Xksh>c}~SL:S|x*{Jzb6"UyN%x=atg S;75 :96nՃ 6#ԏxDZsqc Mq,?w}2c?OlMsjጄ^Z: ruxn>?:{;0qt1,a w mW*PY9&_ < A 5Pz"S~$m7sy%prE^{9+(I#ܖxМn55,>\bnkD i™W j4?RZ_IJV$)yoҴzW~'e^Mď_AT"&VAUtwKoi_rgRPd$Oy?} ,31$1?}D΃ZJ[]r񦸾H&-$Ě>*,\9Snzے Gd PųwvS%#aӹKeo|5\"\S+ 9۰NvNdzVU=Z ~lQCڂq^~fQm¶w+=uR2gKsa\,V6~Gj=F?YHd WoNQe~KK~L R#>F;J-,Lv 8O{ըu3g=}U[ʬGw}Uw& JiP3[,ʛT~Sl7ٰӨ*`}Mx=椾3}yT]f/D}n'iVq=ٗhqJo]/M}Ԫ}ne:R핢8>'z? uXfv_rv n]E ˛T}ArZzoW0&/4 .+b>Wi\x87D:JU cXX@9nz|3Svڔs)NǔXJ{7}_+_C!<%\9uǐ2zFfuQRr ^ie2͕%7k!Q1ұ{c'PcK8k"ovjvL~V?+˹5pөP0[ 7Z;$]~3c5ݹXWp|qL_gYHlm[mTsgIMKr`},K4l^![mW2WL= Ż9lbZ,k*{gg U:Iժglի+0Iˏw `+ Kc1YTu~CS( #suM 7 +Z!WVܖ\䙣k)%uhȔG fygG} ivR?Qy&mdЉxM 1ǹ0r ﶸrqC狱677</AnT0m]¨V1"ǀī \o4iwŮ+}l?r J7^gP)oIe,d1}w,6=l>1DZT*Ucռ2_;3-y&;C< V?skO]0LU7RVv}>t-Yu*/I~:R 7R%J&WT Q8u0h>oe K[suaJ;|\z\MyRTC̓)r~8O/?w{߯-AI_-'7R8/V})7y=U[-U.gY.+K,ltlp99. Ƃ CMZ : 16/12/99 20.10.46 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTLP99 H* --- ------------------------------------------------M'Srȑ앷 R%W ɲ uD}قHPD%PA^LiQ(cV=S@]F 718]r&f3I@z=`+K,fsugrun. Ƃ CMZ : 06/05/99 10.38.48 by A.Rozanov Ă -- Author : A.Rozanov 05/05/99 SUBROUTINE MYSUGRUN(M0,MHF,A0,TANB,SGNMU,MT,IMODEL) e)pr?|+f15E?U$G (B$|;mGjo}γ߼#ddx͒} dNtܳlT:[,XEڸǹTOCnB/`B EMk{x" I8o\Xf_ @*%*:ʡC s ǠcXE"=pvhYüG3viJM.nA8sZpI k l99PMV*2uJjim;Kߵ5_PN IF%Hb-Q*/9vQ%!**AƉ?ez8#+w-ÆeBf>+K,DSUSYLRVA.Ƃ CMZ : 05/11/99 22.33.42 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 20.16.MzHrFK*'P\-wIKQS $@@PsJ$;[6Hw>DnTIP% f1&~/sE9V\(v-J,񬤫 I>U&1SaFGGsHƐM%q,R%hq7s~/ Qa 7RpWESpN&sFP"`c;\W<*CD*K(ԋ'ĝ Z{AZ~_K9CXR7xPQ/eOZ Q6MRtO'xqrÖxA:G_|3 08q8ʝ~)&cݛ$Kv6/.yym"_n)&_ :* (lapw#K(гZl;iRlE=#o6[ $3oy*4yĀGtя1u/iWAOWxꗐe›1m^yI.H}HrZy!rZi!rxp0AMDPj7I,EUWkEzi/(PE0o&z/3 i5uK$ eH4~Т)o(&h!I {>zΌIfX(Txv+gQQ=KrjAaV˰x+Ͱ`{2G5#Ы˄u1 aJz--Sz./v 2].et+]tV:'_ߊXA7M6dD!F-?IDžLYy-㰐b[$ZքRVTQU(e]a j5e.[1?`ur% ygcE!fXIya4ȌE\K1} e.b%1 zD52ǥXPrp(fp >ǣ(i4μNat~xe=4j#h:LZ8v xoi/xwuzsy1^oM}w=˲빗U[bpyT_4Um$

O;"Uv[8ǚwS?1 )C}{LB픩%1vÏw;Z݋n!+A&T HpX _YcP? w.mS1ZفTl;Ɏg1.j Ml?=7G$8yְUM(Q~څB`"a"~5wd5Da"fMźTx&_6{pE'y>Ȟϰw'=*( Lo{wJفp2MyEL ^=v!?o*ߨoz@+m/0P8 Dg0 #JƘ!3A)JcOv=?hL6ڢӪF`E) U'] N1v_R,*{q0ف}Ak?  CcɘYZ7}X>$[H"G=}T.3P]3E/ڂϹQnJ5K3bA.\iDJIT4b$Wu)_)`9wi>OcMyW+q&Μ>2ARHh˧F>Zj5\/crX#qnkQa*c9ϒ?d-{ +]W\I?oD?)~ r♩/C@h$3bׯ0[oIg|D-WŶK)p>+K,ltn4memu. Ƃ CMZ : 2.00/04 16/12/99 20.11.55 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MEMU(amh0,am40,iopt,lvopt,nopt) H* --- --------------------MwHr*?O!pAy*h!)ʕS $$* lH|?ڜHw>D:TɢJc jSךv^۝5|д*nuPyJ'$%y)kJJ2 i"OwBwt׊IoZPS^*0Tק aIC:xɦ?#Ѷ7q=5BR RP~g3CyOu;`YzʩAW8lQwey:hʳL}ll ^I_^ՆC+K,fsugrun. Ƃ CMZ : 12/05/99 22.14.20 by A.Rozanov Ă -- Author : A.Rozanov 05/05/99 SUBROUTINE FSUGRUN(AMT0,IERR,AMH) H* --- -------------------------------------------------------------------* H* Na H*M8;ksHrFLOG. Ƃ CMZ : 05/11/99 22.33.43 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FFFLOG(x)  from VAN draft 18.01.99 =+,DOUBLE. common/cfff/s,am12,am22  FFFLOG=DLOG(x*x*s-x*(s+am12-am22)+am12) ; C +PA TCH,//LEPTOP/CODE C +PA TCH,//LEPTOP/CODE C +PA TCH,//LEPTOP/CODE C +PA TCH,//LEPTOP/CODE >+K,DSUSYLRVA.Ƃ CMZ : }T:-/h /{GAGEpǰ6p"h~#Þ]uLM$J^ MۍEQV9U98U?u4Dq8w^?~[4Pgm*Z/ | R( %^{?'+?ENXXTM'bSsQzRkb^OSkԇq lWN¿9ܓ xf7z FNv`'łt?V [h!\7}gLN`i5dc1Xrż~Uqk^[dR7Jl/[vbe;mOFGCu%HUk ~=l_ oç#ʭ3EHD,/Gr5u)M Q-9kLj \kBѠKKL~i5W"(?r{q+bs~|AzV]$bWe\~,l7_؈iڈY9T?M8?!;(,O(3,1r8+a>xEC\:mp<{|/Sޤ7k&ћu{ mY%;&oUīj hf3[Kb=[V,g$+egPV͞aona8_6RV;sPTcJc:̻1fz^ΑW V$75LZ-+R1VDo8G~pI (oxv%eoɟ'WQ}2#;Df\+ݸT8w1͌N4,rIFv N)o^Capj:<>+T2('wl,\O,XА^W=smtw`#of /\f/ݎY/*R \&+5m婶J TuWWJ;ĨAqAt]ٳ>ջ)_9}^>o)٧}#mMa܇A!v?FlU;Ok)W>2{8R#ZŘZV7VٛY]{)bRvz2uo0җSg)I9߈YIď >'C-AOu#x^I"}˜vˠ#-0> M۔k c|֍2ʡj!pu}whH@zHm`Ip3{ns۫׭N t7}]Y2Oge>+K,lttable3. Ƃ CMZ : 17/01/99 20.59.08 by A.Rozanov Ƃ CMZ : 2.00/02 05/07/98 20.03.51 by A.Rozanov Ƃ CMZ : 2.00/01 03/11/97 19.33.54 by A.Rozanov Ƃ CMZ : 2.00/00 05/0J# 4.9坋X%ssN> ^/|VoW*T8^|HtΎw?>~pQMzCBdhDu`1,iް{99/Eϋ='#$oB'XЏ"l>n}蓠}'b/z$o<3?mhoHuTķb AW1quYӥ|z }$ʞGOLB_'k خx`YNaLժS5蓭Lqq0ir 8fdlP0ҞQҴE,6~30{}o(z\<ܺ(GQgQ.>vZ=j|z\b4XbF!JCG,oCLCn-;ƪjÈ Lp<Pqgn P諫 ? )E.}bsvx^kZNXu6Wjs&ʭX+6Sn:?)H6/U,lA3ȋkAoX ߄xfSȡ.<# p9FHdtAxzւx>3A9?<+.`d% U>aNH?б?thc{}`nƪc eG 8W}p,U`nXZY4C~YFNLx:([qLNz18/'# wR6Ǣ?.pkJI-oųpKI{4T@{e0jo jOA hEïI:Tmtf9nMmt0!>Fܞ">EםF_bE( b ӳfr-ԬŲ윝f2y^*3`JI"Lb :pme*)?^%%xU0Sj|}B+ks!ݑ>ũQr̪XK/u >`A0*gђR㥼X@[NGD@ʺVlZr\uHyI[_1 sn=f?&\{Ej 9dnK \Ai k \IOB8'}Eyj-BeD0jd"rR!&pLȶedr2&v7ow:o-؛\bȏy ws֯ CVn祤Kp^2kR8Se8Oy_Lrpވ_܋t ۵+4ꕲ JC̆B8<\RV9ԊVVko뀏ͭuDPsdN JE~̒+XRwWc8WRܺ`;̴Gu=3 2͡smA/>bmBUδÏiI%,Ʌ3lNf϶υ?!𽝝{;L8>D7Wry3oPb}jҙOx. }\#<"F9%G>&.X֍2,3| nz!E -ׯRzE9޿=V7 [YP4fysyoL ,Fe @941wo3e.3 ݄ant]s|oBٗ4JI]/"J1W*dvߺ( +I4kU| .Brk!WwI‡}9 ِ;E/t&,t, BH{#OE}WעYzq D*fJ JU Y(_@3-HǓ)l`:`b*Bp{U2/*5&(JiAv q_FHNhCb|!L L2eʒ i.Le$S]cG0}5QzCT;x2b_Y>Q5CAϩ[Ր&EVW&aχث o0i{&Wդ>ҟ`ٵ Xڠ'je(-T-1)}wb(6B(2+sh[WmKzW kc諢R_;[-uYg)Ur?s_ULV7AU@e5]`re{yVnȼ&&~}ޒ&`KL638``TM7h*nMp 9:;a"93rUuD&!ӫ ۠gSP sKyqSߑsS,4P~cNq>fʝ۳ٯt6[W2[\klx<oU\x{͍D8%W/x m:Vޓ6Y#¢7ܞÓ%$>+W'9MΉx1JV{T<ܞ#S̲B v1W$B9G^A^\eDmt-Sf Z w{z(S>30XYy瞅3<>4[oI5H>d'l^Url5ml pHRZoϴ4⤠n8Gg0{_jX>`YS׏ g=\Ǣ|n#lޞvEyj9 DZ118b8\هuI>noSWqs±ԟ`WEg*w/1WW`ηљ#QƃwsKhoї!`4~mz(CoMU~3U-Wn۶ƷMnWp (HO4ok2lFc[øÿp2֨%z-nyD޺eǫwrfAy<9z,!g|?>+K,ltlp99. Ƃ CMZ : 16/12/99 20.07.03 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTLP99 H* --- ------------------------------------------------MU@TH,u,V%$~Jd{sN/Re-{WUtn4^گkT5z@SAC}/' 9{w ( 3iYIt}>J,Lb$ȟ3搌!J%q,R%PX9| X2Ic\J!}!Mmy8 SÏ\lr]W HS?`;E֟-dZ~_+9CXQ7x_=oN>j.G4I=Mɏ[(ΡS?<.VۡAgQėd|4@.:v=xysN yG{UśAwi!= a$99[+\\ =kĮ6XT?2lкArKvEj7Gr ӢvDN cG5NA9hB@. 3iW^P~{rǼP]ORhwy^qm6yE Q !?8iv:yt΂B\3kXfVi}BbѽǞ2[H_J B^Ρ))ڣEi&ٖ:K]weqb?ݣplBls){gлYyy?/Dd IU.%u HOM_c0۷gǺPWMI\C7r^(,Ar?(uuаcVh 2iذ~Т (o(&hA {zάIf9(TxvgQQ=k+rjAaVXaVXa`2p^4c2+:˄uȳ-n+-#Sf./nv 2].et+]tV:'_ߊXA7l6dD F-IDžJYy񥱭Ⱀb[$^քRV=RQu(e]a j5e.[1_`8~KX/x'=a'icwFG-N"3qQ,0LZejdKPRC}v5s%GQ{5jjݲ郈M{ĩS.zGt$ۥ.pR7⿧K(^ qr{tǯsz~~o y?,kn #w+\Q;5.[P@Ye͟(ЖJ2X%و>G>SE$v[8ǚԏa~Cv_Bu9!vT'Vx}Us~G %T|OuxUf,BEWOd?.P1ZՁu잛l;1S]-j K>=7O$8yVC(kQ~څхE:9,ED, *k *jD.*5u}L0I3l .jIKvP}a﵃OTQﵲ,e:JyE큋L ^5=v!?o*ߨo ]$Bx*g% :YQ22#=Fl.fdC-:jV_{ҥ謅C8Y ҅d܉_{+\Kl_hK4ڕ҈3<2եd5ނG)<ꡥ\죢t_i+K,LTCONF. Ƃ CMZ : 2.00/04 16/12/99 21.05.20 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 22.12.46 by A.Rozanov Ƃ CMZ : 2.00/02 20/03/98 01.34.41 by A.Rozanov Ƃ CMZ : 2.00/01 19/03/98 01.29.40 by A.Rozanov Ƃ CMZ : 2.00M>&]yoWؙC<BVe91cԶ8H/E+'ǚɵb?˾:z}ФN,a0UeWAiSž:ZU`NB)v(R~d9ӆI7&FӸ(?."=Tq^}4Nk. CO I.<.K| Z^x!iF:aS 22.38.39 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FFFLOG(x)  from VAN draft 18.01.99 =+,DOUBLE. common/cfff/s,am12,am22  FFFLOG=DLOG(x*x*s-x*(s+am12-am22)+am12) ; >+K,fsugrun. Ƃ CMZ : 2.00/04 05/11/99 22.45.26 by A.Rozanov Ă -- Author : A.Rozanov 05/05/99 SUBROUTINE FSUGRUN(AMT0,IERR,AMH) H* --- --------w^\Y\,?\T}=廫u(:ۂu? >+K,LTCONF. Ƃ CMZ : 19/04/99 10.18.24 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 22.12.46 by A.Rozanov Ƃ CMZ : 2.00/02 20/03/98 01.34.41 by A.Rozanov Ƃ CMZ : 2.00/01 19/03/98 01.29.40 by A.Rozanov Ƃ CMZ : 2.00M##]nWę!X7v,QJH(mqB^+'c$S9]I;AƪU[M 5?^Rԋ}/j*uR௝R?n=Q3BHZe =NB/nL3.Tq /nzQ2y\EzCMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author :  DOUBLE PRECISION FUNCTION DVMF4(T,ALSBAR,NC,QUM<}UQOH (Ik_ȤItV݆VoIե-&{{wp?lO HMf6.F?^Z| "pEIa1yyPRn+UX5=urz#:~>;UW v|͒ ݻײcy C1g>!,E)7,ŷljfy1g}p>4z7KVm::ޝpX6Q/3֏[POӞ0vԿ Gz: Qkֶܖb{Y۔tj&-OU\:grG;K< @Py&Ǖfl-"P/B c+,)qA r8plQp BHڻ_i{Pou reOA6eSK/PND2 klf3:'?|(573REkնLM5|>32\tZ,ayƣgXvVzMO{+0lQ/F^lTr<@nT=-һ | `CiY2O 8֨ HxBbZ扞,Hl>VAUF~\2ާOŇںW+w2:/1Η`K{4#.(W@f/:VS*[yTt"fX\#\nL-#ƽ]zU8qbb5-U\ Xt֗1- ?wdc1x?0:2jˏ c=rBz)S>jTp2 >+K,ltn4mn4. Ƃ CMZ : 12/10/99 20.56.26 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------MpXKsFD RJp%YR-I{VrI(d߫[bmUZVu~zvo:M&>+=wPoH[WM944O&w2M?r`p,%D}tl `.ߖ%Egs^>N\n/UXk 1I2̡CF Sas>6I;dT; umONg=L;O?į95tɪsO5ÆG/hgG^DLccH_<aszr>+K,lttable3. Ƃ CMZ : 2.00/04 17/01/99 22.34.31 by A.Rozanov Ƃ CMZ : 2.00/02 05/07/98 20.03.51 by A.Rozanov Ƃ CMZ : 2.00/01 03/11/97 19.33.54 by A.Rozanov Ƃ CMZ : 2.00/00 05/02/96 15.54.14 by A.Rozanov Ă -- Author :MQ]oVҏ-gO $]# -U!m FCmCj[ReW;k0$eն|uԬO.w wnok;:ww6FYf5k#ͧƏi4+my'\z,`zw~!y@O3O[ȥP@\ iN|V2=<'9g&g `#pEo-`XQV " !Gx0wiac' 2ݍ2TJ F0 &z{/imee5bp"h$H vKfN:~O[Q"ES'p"A̡<,t9,'>'P0 `b݁+~::c$&=>Ʀ1HpM$k G;#<]zw6Z$Eo<w k~Ҷ1 xlvyc!&3dQմjE07Bbi]@?M֓3bԽ1H19 ϲf&N _{u1zքkdˆܕ2u hoZ6K?Zbw%lf/JLJUštu37x[렷2W̊a}3@ N*sbG#c(STH6wK?l^n$=3gd׮j\R2[;W " W )0>'VmΈFז^4\9F&Og# H/i=nK.W?jֈ:2h\[Z븑~u1xhoyIry0/ZI#u^h4RQ0[ն j o.-9习TQ$n<:dhug<2Rh TyAKlyȮk'|D\M܆Ѽi^H&ę& ENIa]Tzc%6e;IXollۨlzc4 BSyAI܈"\fWUZ'q߰nHʨnB+hvEW!dA_|IQ`^}d $s$FVd'zrԁqբyI8dS?2 \4b RFڐS>(Pb|&8o]h<[ SQ]82C_1m+K^ՊRZU0Wk?W\CN_$wUIJhVh{7s9CS[XrAKK\{zb;_ca$F 2&ƪݨvԎhҮcaPP,RΊCM79K?1~OEA?Өl_y ζoXF6,%sQn" mfڣQ [|E7Dx~թj4R ELU_ήYEb=صhgPh\,/!< >+K,ltobzor. Ƃ CMZ : 17/01/99 23.20.57 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTOBZOR H* --- ------------------------------------------------M=Prȑ+ko)$%AeI,۵HPD$O|l5<$E*>fA|m^"8ttn6K?ub<]?ܻKYGzo}m秏V> ˦<^^4nO*Uۯ^w=xN-efئN ;WOV:W*t 잩es:VwмlyslV`[콇_BiOi v҅<4mV }*6q4hlãh2ܔVX4kŠ %GEh+8lƦzQxDhxbE3V(CPe;e= X'0<ע'uC Mt*ounTuL>d"k=69y,r Բm5Ѱz|(0< \s=}OZG܊Oz[H| s]|}uBס`ax\< BPm>uP ~a|,"kaqvCFawˈϖiIDѼtk\*ibFǹbT;V5?T^Q!Xj.U%ٞoO 043Cu6FWh⦠|Yjt"gp߭U{!\RZ7m 7 Ulurʵ|͒iLt2.FXp&s|N5`:o?ܝY|J暿YWh$v_{V,$mXx7}D<鑍u=msґGsEr%\{xe e1SFqo Z0Dlfa)d!T\^~rlJؔ{d thq2)xɱD\rv\]Y'#cl<U g#pS^ͭtmp[7Q y ~-簼OO+G9(^ lΓ-PhV=A>J`tX <<۫~cLfXjH|!"v~LKڌ(Ȋ6?xp/yAdg\g.u:fl,t,*pmvu+$0R>e?VZ4Z0ƣ?Ur }#6`k/o2 7[c``UZc ?-`ExSCpTp˒߀pOH37x@Y9q$>?`J3z,]LǏocR3d9A2oChGuOɬc Q~w~uʅjr׭7X4+K,lttest. Ƃ CMZ : 02/08/99 11.42.50 by A.Rozanov Ƃ CMZ : 2.00/03 05/09/98 11.25.05 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.32.35 by A.Rozanov Ƃ CMZ : 2.00/01 17/03/98 21.57.20 by A.Rozanov Ƃ CMZ : 2.00MM 4'YIsfў* Xpc_R ..}Jd<ت,*@lryrqPe{б3xeƌfZ-c]Wc<>of9czcC?gjfU+L-xXNt2pQՌ/ 3̀gVI+T+3dA%qo.r:d3u;~]c~볿=$z,ɳ_O'm3toz]8 |y(~y ]7]=ha+aCPj yCI4$~zQ˩DyG?пSf2޷W&?*^TꗵnS'͠}7(\2%џ\|qoVyԟ5ȵc  xG9|gnipgoRЌ4{Gܯ oR<#w"#Qw"*ǂ-Z4Y:O>ir>OSS4J #9bKމ@L_Ğygtt};z[ zc41lMzUo˷^KNi_T{nymؚ)tIs(ImG|kPoZze|NtrS\4yb/gAXhJq-g8gz1e˚ t/=ᆨԭM,yVp>np^Yoؕ3M֛gb0#|ٴru ZNeFd=E^dxn~GӺr1pO?_x]׺"nA//$}a"M.O s%& *>k7}oL!K| W|%r>@b~<~kELΙ-]Ev,~DŽpL>+K,lt4susy. Ƃ CMZ ,DOUBLE.=+,CONST. =+,FOURTH. DATA NC/3/,QU/0.6666666/,QD/-0.3333333/  DVRQ4=DVRF4(T,ALSBAR,NC,QU,QD,NQ4,AMU4,AMD4,AMQ4) ɂ !!! !!! Temporary untill VAN give formulas separeted !!!!!!!!!!!!!!!!!!!!!!! if(dabs(AMU4-AMD4).gt.0.1)DVRQ4=0.! !!! ; >+K,DVRL4_old.Ƃ CMZ : 2.00/04 19/01/99 17.30.25 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVRL4_old(T,ALSBMMRQk06I2菸GI%[UaF3'q3lvq {Ǡz'9ɪqw)87vwXxXc>Q:H/Ɍx6r.Ah>'-rD(M ~"iyfʍҙOY͡j˧.]WXKTH. TH~xu+Оh0M""JQ'tݲsSWdSjJN!+YN{WFa(Dq1eSY(X>6ޙ}Y/QH1}(vI1Xit}Z~ݴoEcUM}-;wX:LyƊqs?܇/DF:f6 b>kF7 AR>+K,DVRQ4_old.Ƃ CMZ : 2.00/04 19/01/99 17.30.25 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVRQ4_old(T,ALSBMeRMk@vP}m xc`˒-K1 Z)HY)v 2͛yn8CS};t-)uWaN:Yb6M#*BgoOvS?M˞mU*1AGu*fR1ɡlCQͮ+~6>@r Y^^N$S@$;\}BxSDpS'f`iNfh1DһEZnJL}\3Dʗ1iCUWfv0,Mᖇ$N=p-h>j\$U\:rg{'MZxJ'fWeWOyOeAEV:?QlhJDT$jn3 9\_0z:_ J_R>+K,DVAL4_old.Ƃ CMZ : 2.00/04 19/01/99 17.30.25 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVAL4_old(T,ALSBMpeRMo@ ď:^{)aC/ &ڑm)IU_wvHy31ђŸo֛] .~@xK9_F\߇dqe6 2"Hp/k9#Od4nLxIƏdGqQ< C{l:JkwEݴ27m&j݃Xn\>x3PCTt*7S|#C"dR+R6NIJ>)&[ed{!KQYj _0TiU=]< 7] vELr\p 葬\-r'5,2_Vr eU:\*TJ~m7?2Ux}co0C&<}@N{[pwO' {QZN5ẂՂλF >[{Tm)-oS~.G\9UOʁQ(Χ~mCb 79a:Da7=-7-d>+K,DVAQ4_old.Ƃ CMZ : 2.00/04 19/01/99 17.30.25 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVAQ4_old(T,ALSBMleRMo@EvR~w0Z*+"^D 6qTn"@NםݵHòc%`WWa[ov-dSx([/xทjUlg*b XK^=k>1 vd$mdq"|h_BɽP. EJФ\kd4DI$0RD7+f}Ir#<[g"P(1,\4}UnJ?^{ou'G s-*>6MřNpfH 'Yt%{.|(qI)9$_$T/ME;֛)ڢ*6e[f?EHk&*ݤLկv蚛}1{s[\W >+K,FPIME.Ƃ CMZ : 19/01/99 17.30.26 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.50 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FPRIME(P) P*dFP/dP (deriDLq^}4NKDžU4\xzi:8Gウ'^vQNlWW5|0Tݺ˫j}yE?_}unѿ[wx RC[w[uzvNGpyqyIi3ybGpmvֺӻ=C?8=}qsR-7,w[ww*t#5v[ү~uhMMˡ167>j RFǏw̐?F]ܐK^ނ]{}֜\J%&VƳa3x];7FX+8R)t7t7FU"[Ӻt zxq֫9"T{,ۀ pa 6̏Š~sy9u[>>=n-&+K {L]^՗jaysT}9׺ow%o=מ8PGJ}_V8 Zee\ ?AiJ1!6#dX"R$x Q`ozQ!4z-<}Nm/ZME=z:8lۻ V¥U_GVУu̠L ezBtߥz2?8zȗ7$yZkY4`pqLi{vfݬQD76쁟錯Dn.)=p//ű{7Kt#?=`7Vq7 .0>v1cvWp}.GP±Qu)( Όhw;:t{u. ^fz>ru:w;_2:CwPГŎ=XZTӛa|o~1 .SGO{ɫyPni=F3_h1]CHV@߼nj' _هUs|~w5 ;R>k6Qӭ ;Z? =31]f!I4q64YIeJS܅'6үmd._ldlzL'B7ί<+ (a#l6-}KϨ4sooo!:N-[nj!qG=QO#8)&GCdfQ$zGUΑ$$%p%p%q'(k|,p%q'(+}ĕ>$.^HQ/*(.jG?Kx[%.}]Y:…0.3"H\qAg\piqy}x6|}4*@O<ϵZ:aemF|՘G|Ma N?xѴAgvGGsIteȉG\SverNqKS,s{vk%opuypd?-Q^e8H X <>I<8"Ƣн3pE2 -_Gz8V񈮓_ L8ƀ2] ʸ||)w&:Pe>h>O=ifL^rt)5$K'kv}$q D*ێCIC҅&;pi?8X<独3UIp{ah0gpE/Zp;'|5z>̟E~a{m7At`KqGw4G.Hx],Q;/Cciow^ L8Rw.K] \>! 껎;\[{Gg x,Ŝ.6}"06??-^w.U|ؽxTC̱qPDŽNuuĝc \`%8&qRWΩ\#q)I\o8&qsH896q,99NLstC4cɓi&㆔/XdGxAg;5[ct[v8uzEw_ l#/ݾ Sa+S/vԪ]ɇP 9=2xUsCxS űfw4 `8{aEg4~elf5 3Y~Ȭ?UEAC z_cR~`Z$2NԷ /Gj;It044Ó~״ {O&fgpz ' >ovdHi'wi'xf\9/wTArwzppM1 GCCYJ ۑAl][ԷN1ݼE}}*G%~Xo3(&9պRF8>e,x4=hNgxZ8H|ŜXWӜX;)jk;< Ƀ45 9Dr}4slNDrr"$ HNʉ.Dy9.;)'br"53r+i9;2x nv%}V krd*9}9r+/MN+,LLu-uG<0}rͦ xL}!ltT!:C`G2v|2wG^絚Fb]|9rz}wzm{@{-sD^VN> P]ZKK2C[&3zT lWPbk8(4eW~sApy9 >l[ɉ._ ?4tĥ/T壆#_F7[zJ$x' \O`6+X,]&WpyIK 0zώ Q;wh;.!cܠe"\˗63#ۑCi#B)|˧-P 1 yĨQmΐ lCV,yGXa8kЅ| ¤˵J`c:'f{zf$_c<<G||gR'pއ=A)NY3)z8y.2E=6IyC:ŧ7 5|G\|z(Oz^i&B}E:L*}cUgp>dՇ[bߏZgkS&ڏ 9uLY8Gx~P! ;f$!&D'Lͨ3f, #&N͘D纂֟05czKy1kdJ1C 8s@#$f.US?\T7H\a + CA@osтyV?WItѰ-0s?'ćp.P7uwyOuFgB >B< 0:~z6処h*J2崡9ܕe۪$ k2 =)ذS |ˠ B` 0U,S̵Oo=.<%:-P\t:wW΋vbp5Tat+GS N:'p9G^\H-嚍R ?&q1ځ$0|gR $EK#cI=|c0+R_"T%=pQ Х|Z(NlI<ɑ~ӊq NeZHm7Y#Tó=@3 R|Ɯ!ggvBvP `-$hƸN 7|G?8 @u$'EyR: uOXO{ 7&uȺ_VGw.GÁNOW{7 {g"vnOAٸ;KF>u3\wrgodvOaS/wB 5GU^d陿5 2vn YYIU>ʹb׏m\X)Y~LYh_~4T?aQMc'Bכ׋8IS ԋ~bY "MQ/bzNԴbZ_/zԇ>נD'} X{A9=TwyS%35>\BTkJ|t4< uf .S5 |o__6ԗqԗr~ Y?rtbzǑ'N4֒p 祈X`cu$GCˌ'.t,<\In㨍]vJ\{4DYםD'|rN2N26: vQoN)ZSbq)t_:Sd%la諨nI< s5(JL*SgX^i"˳ 6wWcUMqS;J_MXG] 7ROU/."*6I{ [?QCԏ3S)C6f4q:ztl EEl>9}=q4g:=_zV5cxB4I >3֯<#3cmhLijRO 3nx7#g^~tL:/g1|"~~> =|Om~ZkU=!Q`jz*õ <ՌijJg<3$)kr!&fN1eM/D1O8vjƴ5=Ԭr-5=\5}N`\`A5=|T2q*I!#yI٤/{@C:EHcj~ً@lNoX9z^suM] 7j5 k~~ kYDAty} -ܻ8uU Pg4 ~ɰ*j~DWx%60nj~AԊ75Ŀ~SÐƚʵ^>UΘǐwUr('og .#/k~tLt \Nc\;oPj;!?'7:|pk? ׵=~_M ABE)qSƓdgsEO JI\ hT18lg0S#9Ȱ?('m҂cP/A̯iK=\A?gG~y^|_'3GuA|G/g W?\^gR_A#ⷉZ}<}0^>'g9b ?^7^C3FbsރM$61b7:5]FMC}$G@Du8e?Bn@?"u 2Л0-&ed,SFgDt/|tSZƏql -0/PS|2z>K3GќI;9Vt>E lbKY'_k_52" ed9QlnHyHO~HIwB"eSBnz!fbM/x/iLU!B8F^HA=^|yQtEͳw#2/k~t/wΰNN_5<}6` B~fg!D~9`?վIR$ԏĚ'q!O '~b<̛akf}O`LjhT~ )b7p|K`O|LI?c+BO8a{$ _$\:? 1>':3c&XF䤭Zp 9#ׄK./@0}ߤq~WSI M;{>g{N=&9"|>R: }krY'}5@-l彋N~,iy?͛_^%3wpBS/hmI۞҄>9ӧ8&U Ӕ ̔煝MgWPMG>!E@U1O߉XI,)`OVvVrcdnd <颱mA} .!-䟘|է2Ai~:eVXF>%fП䫣Ȇ׹)f^E_E^d3nM F}abu6zphea [=7+M]CJ~O3Gvv6kTgݡ^9=ߋ.~l{q\lwy`ЌNH5OzPxYs]Hn6,s}vQf i.Ccaނ2S}T>*T\و*h,I{E97}ZYMBM" LRXւew0lɵc GgYl쌷u }2m} }ڧE.=uR ƁqSj^6m}CuCay!mOȲ|,oP+֫9zewirI}]D֡ JOx`I?-- >+K,ltsugra. Ƃ CMZ : 28/09/98 17.41.17 by A.Rozanov Ƃ CMZ : 2.00/02 06/07/98 16.56.47 by A.Rozanov Ă -- Author : A.Rozanov 24/06/97 SUBROUTINE LTSUSY H* --- ------------------------------------------------M 1[[sf%rfy@)Ye[+љI^2 @VkQ:}h??z. L3&=={.ߞVr5'I/[Oę'>c^\ܾ$$Od{+S_c\|hXe>tQxﵯj}%v]cOښ8`3D?`?J;Ꝏ\D0軱+a0[Ϟm7@Da |:1B>ߟBǡE8?|(_30'A3WbOiԺ'֛+w}7F+v{މo4=bR*9# 7ʞG-xޢ' <>Zܨ-X{v7L 70BNcuL[/YK厂nVo (f` 8Ϟ8pn4BÈ "/FR=q >1ٿ-I )Tq!qq?ثX 9@ ^,1$Ѝ"_#^=5ӱILa [4H~"לcL|l⓪iԷg!;(@@n=yuJ';;_bp1ezUxs.D+3<>[ H)mV݀?mcF@IGѨv3w NϼpmG^E, ?h=:Hvp[g$swl#f>_{#%^p Vwo{!U+?ĭvu}@hF^֧߾96$e,|C^A7[*#khc/¹5ɌX X=ˀ,:<[,SgZ3#pNS@;RVk+Ɠlq#_ pЙTEeMܜͬ9"27pl%>Esm@Ű/q"HYa'[bIJvo^'9LE*3^*I E%n\Mo*¯VnR7^!qS>.dp&6.\3}^C1 n\ǭo㛽}1mb!}s終\xP t%5%u;GHusIGDy CvP8k8|@Rb%`G_`ȜZO}/d}{.=j]_ZW2RWP\ytǞ14MIﶨ=O[c"'Km FAv+; 4{25"[+ʒ e:opXs?ox<NCq؋y e+`B{Wz_}5+YX,X g )'G67gX"5v~FRAihj8{\ąXS'Z)[gsg!7wMn[B9yY[;쩒sWruᥲ?p p~sU6䥝C`w[iwz0UWn+[ЩgXm2J}G|Y’\XgMlt~d*|66?@+zryCoPb=˰'s@<=|ǹxw#%ؐc^\ ְ"ne:l=,|5+ &Em&Cҏ\*Kywo[b [^ hVwsyoL;7Ue$h#bSwZ޽/ϼ\\LS>G37P뚫v;mOO kQ̕2_G{fIFEY\^Ie,J1Arg!Wwj= !n]ЮB ӿHK|tHtԷ8%w<ɋ&-z'"1~(^NĥQD߳!&P95SPUTWPzHJrϲ;-=%E ÝSƜu<UܻϪe<>Tjx{QĕӁZu /fW'hu !1O&^qR3eɥmHXtL{jc'rlTm!&[]2/jRgn6|a2l<2kRkwK8c9X?s×b(J#Gg!?Tkv^]kM%,^7Cw#YAg YxWj|od9 &&2٪V"_IFzz ?Zŭ^- `<͆Mk@Zu!9LibQ|q4GOSu du#ȵ qVW!k؇lh-ژ3UY8~/\"eREpF@űy6yGAqZXGȘu~wZvsढ़C,}ƺl@BW$-΃ɍP|KU&WzD7W;l_g!n]Fߠ)^9$azJx=[LF/4뛀]+KDwP;WzvU^jg8]4=trs\U߿m^UAr]rl0r'EQc+i])#m_Z :)Ju{}-Q|gCj-Ƽ odMZo"-BKib/\{ݫJ c2W+ƪOe=Mք\g^ݤ\z96u?S3-~&DZ11j1Ohnp.ߑIq{݋Oa?a^#[hJ ]n_Y^|t+K,ltn4mnmd. Ƃ CMZ : 2.00/04 16/12/99 20.11.23 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MNMD(amh0,am40,iopt,lvopt,nopt) H* --- --------------------'ucLGFGSnOD|t cLړkҖcسvb]yG׍_E0rq:`___<"ۄCmETƖz L.5 !mQ$U ?AI~ h0j74+x/f_ySIPVwؗZz~b^ͮی j(eruM:%Z?t _n$ (64Y\Bh/ˏ/䧋P_D.e\{,,+~/.Y.ۉo6RMN:ErQ]rMiay6TKN]KNi>q5p[Vk;]k{d&4ZeGe?]_c9wOIȆYLXsYF T-s?=ʻP,F\(B7ɭ< t34[(ƠR,h=+K,FCNLB.Ƃ CMZ : 07/05/99 12.29.43 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.41.59 by A.Rozanov Ƃ CMZ : 2.00/01 18/07/97 19.57.45 by A.Rozanov Ƃ CMZ : 2.00/00 24/06/97 17.32.47 by A.Rozanov Ƃ CMZ : 2.00/01 M XrFD)J#lPG#Yt@觾cdXbC EŎ.%Ci}(Vi9g=];fmY']o~pe4Mgﵭ }KOYMٰe}S?>`Zd..Chr #Uya^a48P8X'yٖy흍x~6>p^ >FVGA: L7rdm[}T{>Ma'H`羴缇.uxHy_U(_ނ'_Ng}ȗ=}%>1|#݃M/f7:_PYӱ!L.!\.{\<[~xfӱyl ߐ{lޟ[I_ sI1 F3OL ࡤt_{Ǻ.Fsrhz\C{hT km m٭U\4S|V St077Ҵ'PB:Y3ۂ@1M!QE_h+<; tDh1LŸ7!]\ngSgϯјh`{s"i޳@^A3^ h]O? &ތa(Bݣ"ME}xq1u-Ƌ}!⅖b^!a .1 'ym4Zѕ{:NB2*u6}!2cym X+-@Ve5ˊD,>NVb'ĶWxj8W1qt!qkm .mB Hd:m 7!a`}'(şQ!y$CegwNCzB@J9iL@Jܺ^#4qFPYR!dMBL$AhK I[$MBH;óKLSs<{=NT;~0'ެ/KLqӟ&ü;.j5m)V©RS5\8;6.w6 N*"X_D8q[ct!k!{pX𡮡hpA'u ep^D>xE6Tlzـk"|znXa}4j>v}+7ܰ>p##t^=ZwZwzW{]PzEEU:AWl<'vkv-cf70a uԆnע>ԱA pID@tHЗ*:3I j/c`R#&I*e$d$_%Ӂ5K# @-$Soې(*Of %4jqiXa6$HOHMK RڻYkey ,># 2WEm@14 "u 0EO∤."%>bhs?HN>ّw$lE(Yv"340H&Nj@"& L,ƣ+!Ad7&o-Y1^HLq)AdD(kM 227bdɛbxSȌ.FK$"1B"1 cdɠG$3As]wn1m׺.5j(AAGkym'| W#Aa T6Rkc_mYB2[;14, "K8cntf9Wc>K>JB!VbDAqLS|,` 5bce @@MSj-P9l)GӬ5UE >Q O8p*+V"Cn'l7/)ق%?~rAl8]hF:N!VГF>>i'};rL0V -hQ|-eu d{gAk0~yVAs!GAl7`Ms E.RK2Gx>~&m}P[pbc29*>RFK(XQC9W=x9`+|>,'j>4,աح@U,:1uWg^A8P/#8b@܆ k];6RD8+ccxqvjF5[e7 G8Oi0d-h)Wy,dl+ġ8ʡV^V峀U'8z |B!,zFJ̠ >D(ZR~j\)>\V nTpi ^r=Kl^_N%WWC\)0)c$JOĽ3s5hiͰYvۆ#jJ=AHb|@wwv&}Q'Dzp_z"G i3vdqlD 0f{_D6nt ]Q64f5xb8_8YnMXn.}*jFZE5ā6. _KCLlK?}HM!X] hjP?\q>Ҧ#l!UzYd MŸS~Z|/iQ-O6[&Hʁ0u+lYMacClݎṿu%]Rg5JQfwʊ(ҽݦg &9D9󋜚ksQ(@(5T jPN%*2D ?҆@5[܁>Mj!6 N@gzRJ\z %);WB~!{Q v /FO*TQr[\o9^4;|tN]cnW~^|{y.q-&m)VmLD%d|{ {b۔5i6`&UFF>U1:4<!NII-b&iZ2qݿ^&Tgx rsY..*n'+ W(Y'kO C){') ,F82]|0!}B>ԭms5r:-,QvgUX1/ 6WQ#Q?A͍ϩ3dx'Ba%aʑq㷫n7>@ӱ7Ws:xW9x;\ e3XKvK9.l=whb.G~J݌Úy#(psoy.9 ̙rЙ^x=guFJŵ>ԞPYg{9tW̷5N|1拑?G8פT\g\>)43ip~Io؂v@+7 HF dC*2Q>2.&4kTOUz޵* )wbleRFJy/7)#yjrT!XNIku0s v~~)Ոe1zy2'82_DŽ9aTcUR01 jF)Kz\sBvP${-Z{7ܮ7nzyf<,윝YgZdBsNF#Y^S>[ ɌaYp;$;ÇF$CN@|w8#`ͭ6KYޖH$}$&Gy Sޢ%z-EHǍ0b2[~EwaQd_1q8 5{pk󐏱đv AbY:0'xB1Nxctq?DdܮѲ 5We뛨yMKGVNq4Qnv^I t*ekSFpf9͎ *'uٻQ'ekJݽQ]NlMWOQ֮RxQ-QoGgWͱԍB3Gĸw 4a# }pKPqMVoAu "`6I+hGþ?ܗg?m˵{0(KURe y[Wyѻ3zDZ 03 'p̃[cple,ʎ8PV >S@eGsW)G|TIi(HU"sDZEN!vaX٠?f i+,k)i vU4S]gdiaus5.X w~J9[wQ{Gs/rbU!Ky'>r.C.vdw]wqEwA"{wבK~Zwⷿ#n'_Z؉`O}˶3k֋Qv:EѧC3NeH{v@7 |F}ka{h}O?`ީ80B7& r2&!&R9/LOV7۶_bI1͆G/ñNE/b lXNeffvDgSj˝:>ж9-Pm&zvw^;PnKm=t Ow>\ `&W7k&6A.6 :+uCC^d핪;x7/ZUePȄyylXrE@™8y!c̓֔x8oYI#ȱk\ y,dޢ«''L㨦%.'M\Nǒ{"SQ1RM'fGRrkdL,G4/@'iP0OR\ݟNɋqxO} k_=ۖUgx{'ײֺz$lFH"$B*q2LzҡA<]jy2˗"(/vLhzTe %pI9&yZx(!:hi_!Dㇼ_u5s^~ fWB2f\ZowJHFay"@eU>*0xkJ,ZG,or`,SWv(^/ޜ0 q*.̔|`ܭq"^[5 }59Do1ѹAWۣRRgAJj`PhT29FPUKKaʫ1? U,N=&Jcňco2V?&Xgr್98}@Ή>Vih(n?LWG)?:!JX8#Q۰c oeEC3<.66H? &hy[2„5)xkd[D716sΧga*B(ԼYk$)CfDFXi4g0*XGӫc} bmLJDtU,.sdCtA="U0E@ئsPp zHG%zmMVB7LhL 8(@:L1((+2a Uڨv+hc sN4`V}LvI@Z_"M5# ҍzazmOVB7Lh'L+MCڬȤҍұ,KL1G=pPu5*ڎNS_$MRL@:=." n< MJ0LB0[p۳ґP[׮Hø>CP<6~ B[yRLyg`ݜ0YLZx Qwx' (~ךlsj D*>;lS i?RAC>+K,fsugrun. Ƃ CMZ : 07/05/99 14.20.14 by A.Rozanov Ă -- Author : A.Rozanov 05/05/99 SUBROUTINE FSUGRUN(AMT0,IERR,AMH) H* --- -------------------------------------------------------------------* H* Na H*Mu8;ksHr^?UrHB$H$kkWE2EHkb+_Og$$(JM6UAY +ջ=c?7}G@l2M'Hzh>%:st+q6٤#AѤI|N]ؓ?&)h<8b/Tp|E8=ڂlcg,c0Pu3ߝOHOмw ob4nKtJ>h7{}6<Ȝr:ȑ|?jY{[_`)^ΦS/cv]%>?s4p5?o fd:Goq"a}4v庐~ /F)\b q{p/hً4*"ؚc"(oDV鮠.H4_OE0 'Laq.M11Gl"G+hxpx^Y^2ƴ=zb y0}n^Ih kCM"|BeL'*KF_V~A҄Z«u;qrGM?vd>"\^&H~:&x,ܺifKWpU 'cR$F o40hm1Abl*.% *"Zf!ccϡ0`Hh~ S4IfQRYad1MM̧hBK3.d&$ ߑ% &9nG1tA&!^]~դUH FUZEOR(K z_%}.)Msz+_*#!XqĞS;Ӳ%k5mF<xuWU=]C"3+`%U"{@8еpΉ}s7!9&Fzk-˩ZU}ґ&tnDK,y:ÔLpӁh20Пኟ J1kOܧ;ϼ\Yuf`zXTXTun:ϱ{TcTӸv Ne!FX%F썲F`h$n:Q"b|c%{F(1]:K=`Rc[ƾFB"=zE$W1ox.ӹ?z>1XGBcf]9'N&=G#[ӭ9TMzJi0pl*1RP,hzF|t=* *+}cM%"39a4)}SQg=&1-YC1>+  *5|sL3tg4<Љ-Љ5[Ȓ޲b4QqMàQ2 v54 (0h]z4-`EȃG7En<y"`EG7vpw75p2)cec.co@xG5LckT]Y%N_%cbn:`g:]09D H,C~o(⇁;<*LHBP{_*L/Rf2X+lXB1BR?B]DZ!tDUJ &32P)x)J3]glRLȊ1Q1t>;,u\X P)(n_GYC:+ &$^|*m#1Va 1D@, j)Zf0I"he3σ$"b{1d+AoCcq D@FPy)$Va)XjW|e`5U[ e- @!W T V@H Vm)1eou%hY$"v; b5ɗL CϤEEs^AU/cqdif{*z tN),ى- }a3t(ǙDya~`<u՚1 6tla7I!jP TC O99n(h.Sпx_}\3 1$y L-%mênsr1?-}a`l}u«{UmMԜz[3p=3qІeN[3}cuWX՘J. ~͙]daơTLp݃Pp5yH*izm-pe)jGϣk`M'U~>=z~sB kz9;u[D;guPvNҡc'Jݴp aNUlZYW(OPaGVu&]([&G41rmY5"8nz t@hzD N2]xăæcm:=\he5f>FHz~ضZ߳/*706ʚ=RT;l孧R>:d`1!(8T8fQ|㚀TUcyG3Q-\ۻQz]FX, 3Cd GO |_;2%coj𓂵;&aeܣm#CyV-_o:zqM.-s)N4ܝQ}\wz[wCn>er|,ߕxFg ->Ph!0OJP[fm-IkZI@\LymGԯa099 %'8O/.ï!]ie3~- ПQ#J{v5pvVCc*269_A{'z Uv/30x]DM(O^(z7hN^a3$cL榣 r d{W++?}$o8\_+ѽ٘˖M%rel4 ``NpҗC,.tcCwnEHn ~{; Ć~aû|`"E(q?&MQe4r;BN*u8|xvU:xjrIv 7s@r+ȓc5=V:3W>i:\u+rEz?6:/?Iџ#n&IqI &?I ;yө%ryB< ~D:m4J<(X & X!c:}%˞?Ou@w*< jRkV/1 ϴ^,Q ñupQAŵL.iYdP뇮09Aˍ!&&+ݚKeqtCzuR vϡ;e]eo7C%6%+ݥ\`;F*IH=KN)-,݆J{IὒKw>'nxmw+}mZu_݄F쨿k,) 0 k.qAʻb'Gyň EZ25فyNf C bʬ?B&SȅW=|Ȟ6JOF8%ld'Oshv<<[7=d ?pe>+K,ltsugra. Ƃ CMZ : 07/05/99 14.20.47 by A.Rozanov Ƃ CMZ : 2.00/02 06/07/98 16.56.47 by A.Rozanov Ă -- Author : A.Rozanov 24/06/97 SUBROUTINE LTSUGRA H* --- -------------------------------- SUBROUTINE FSUGRUN(AMT0,IERR,AMH) H* --- -------------------------------------------------------------------* H* Na H*M8;ksHrګ*WB$JZI9\ $!k PDXb"u$]pG٧3_~ ^&LOczzze{֚!9.Ao~}P*M'Hlϗӝ/.I8QۈgeFg.B,GV>'Y:;vucO^KtXx8ȋ9PQ0dxpcc6~8=`Ë Udt[!Kyvw!1z@Ey9Hyݾ>gC|/!g/}vwj6= .!`|9&W.W `6hg}j߾%%̂tv9ްy|6]\Aׅ`2*!uma'1s9q "a"\^&H~*&op,܆8V[WpU &cR$fo6hm1EY&Y͛5"<&] f(7?Dk[MFL=3bF<,Q2)>FÐ f!LѤYzXUF@I;'B ̇8j>[iu`mfC^#M ܈X67um)Φda`p+~2̆*ńSL> ` "=jzu ǢĢJ5{ ׵NӧZ}mAxw,k PWt15bn7+ `nj$v>NڦN"b1uvNoLo!`RY^Ccs*1s[f5OtL .Gc qXYlaU橺Αؖ^.OeIeGx~e& .\JTgr4*~*=ZʪohXAڄPL|f=KsLbTT vHF[P¢"i?0LF 4 b64 bf4 iiVhz0hTBà] 5+< Z׬Mln_. #Th8-%FrH~L ݱ` XaYG/&uF&NYa0+ʾ7aICNj}Uq/ATHO6yL'Ɉ2~Ig1Cɑ{_O] ta`ÈlTInL T{ڧQk{!_~R0/Oèx]jx&ZO{ AEҮp7=8[ O}†I Qn!~Q_J*?b(\}H)atv|O= "u;SP< CYR60}\)Gge2g>4M;kkx6h~mCgZ^ 5&z~sF8kz[ GIJowQNNґ'Jݲ{h`nUj;Z۞_*OPa vs]([G4W!7컰 d@>9Vye.s2?5ϳzѵI4`c9@gԞ(sMCj#mcz11ZrmY\"]8lMt@hD n۶<xăkc}\he5f1;ݨm>(g_Unbl59z.Oz:dbY1),8R8VY|㚀TUc&G3R)\ۻ =.S/ˤcdCeR4.B%Sc9W.莅|h؏5vUI:]bmնM}+/qq}̹a:{EYO& w'j4h ][!/mN4+_w%@輡CKZt p/!Yw֖ŀwk5]@\LEmK ԯa099~/[ǓJW`124$|eV2껮cofyX20~(ե2[Ewy*`*yP֠]i1euAD9; **))ĵՌp#Oܽ'UO2_:@Jm+mW(s_:ghT"{>Pr#M[8Ř\~8B^13J\Ml'FdzOT-ɿB-x ES,W[ۉd|~Q@[1XPD[IrjUm.O2kl{98GTr˽wO!^gta2%`MsG{bDӃ5w'%;CAb0dn:: ( Hf {Xog~%7 2@5u0^M* DNFf|1'}97%AA=<6iVxo1ʔϡ77ǹB)ai*6=؅fY#$\OHc~T{9܎Ө+s*g60_5uVN3~ֶ?R]JDžDmɉPqer;`UT+FZźM=ʟV'Ɵˤϱ7 Yuh埦`SV<MJ^OA?3E\.+Hs{Ub$/q#ŭp'w NC'^GA#)A&Glf& E.f8n~#hz0 Gl#c̗<(ϫoڱFpCW߲Et?.5,Fh/RA#UMrI&ːOXF sU/ #o$?}P6u${4hlhi΁~I{pM<ӻy {ṈbRtH0%'3OuYCy4|Qާh}-kb˗t>B7,.O22Btir^LIphq%I>@:4$P8x<,i sw6`+IUEԗF~N*[(N ۖ 8N 8Aa"#Zt) _n8M8֡y֌BJ8f,ˏ9|䧋Hk_D.죚m=v.A,,+~/76YnۉoJ2MN:lrPmrMiQT[KN1WrӾ{iqdqwخ_lwst}U?%!V9ee9.(XSe\.DlCsȃћn<[ExG9f6P`q~A0;x89 ^ &g1OT~z8 N'b{;+>5u>9P8iO*^+{ xIo{?< 3) >+K,FFFLOG. Ƃ CMZ : 12/05/99 09.17.54 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alex FSUGRUN(AMT0,IERR,AMH) H* --- -------------------------------------------------------------------* H* Na H*MH9;ioH^25@An3%ђ:"mc %D~Mگ%% zX".]^**>Á۫w{wk\[kl@r:X=g`4 ;X3gLw'÷'K &0]؎&|kuwϼ'6MSh<y18z6,"k777a_!lu n7ٶvAcxy9Hyݿ^J(㱌9G1s_`_e!n}.ǠM/fKp/Ƥ6U?3tp5?ofd:Go=p1.By?|qPʋQ: 6c_!I DĜ0}'I^Zt]8Gr l<=>y ߮vլ6=pڎ營Tk`i9pgpmn;Z)kZP!ůcv;u&E]o./.Ƌd 9oC*:{~ZECs3E44UH _ $F$/yDn&\."~ DG4/4%_hl̃߆y%S4 I"|UDVFYg (c:WY^0%Z7 &YeD=`~'l(?+rj4@W9qt Npm-o]FE$6]6ӟ\ɐ(n-ѠdJŴâ 3"7D 8g7>k FL\*Sj2LQR!1NÔg)wL$EDvFI]Fgi1e,4)1. c,-Ҷ,)(v+bGV0<xLÚXuV^Mz.##*U%&=S.gQgwɠHnb-xs^ GX&9;)m o2W[VNo$H_K;-=jƯ]Ϭ-y$r] ?6&3R8iRl'ٲYC:$hk#iRynN|:a?MF\sK?A6P%&aN8)N0VkzY9ظ66z:p =zbTwӸ\C,6J 7te04RH c']u,Dx#b6JDm;Qbz;x[ƞFJ"ޏ]{E$Wə\2y·ӹ?z>1YGBmV]9v:=F2#_:ӭ9Ժ]z*i0qlj1S3[V:]PzVV<]#9 " nZLE(i4'NM1`Gdl,NXlLj/bz<I1Љ5zЉ=:I,I41ZȓѲ(tQ&6WLlеF٠wj>bcKD|}tcK|6wD|}Ak|p{4?1&3G{C#|Gw|<$6R<ǻ^av %UcwhVCirɜث9Ml;2EXn[X޷yV9і)g_߽*ʨd&P*WLP:fa@6:,Hԕq)@e\}Bg i.X|m^ΪX(*ƸYA2h=hY$j VbV<a{|rVJܜa 6L،˔x RHldP 8df(7" 6(AV\.&$B.@lFG)I+PњAlƛRb$.Jв%oID6Vfdv Z%s ٌٌ@ eK$"1$&龚vQK^6t_ ~VvXyRN-r554a K-d։k]^JTm+y|;N4> #NT1ˮIyk:B<N@Uq.1PDS-pƝ> r㼝O(~<CYѧ25حbQ.: 3ƝO4 }~NxvҲӵMۃ&\L\ܴa[FExO|6F*gj5VǹK:/sjYSq uAhg8̒Zb__o7;lG"8pYg@<ִq?|\b|4y _n]븅ޱcts:lp\ 8zcj ~vu39mL[Mjiͦg^X>Fq䏭"Z]tL쓈@qyY7ǯw10h,1o CQ҉FFN%%n8WIQY-.u-3Eu hJ ?.3u|6Ds4Lm*-[HfQ8]:Z5g%JV6Y~AsP!i( s4BSE9O@**^A3Qgw\榬h<.N2~h3CT,oḨQXe"_A<aC?S,b!pCݱ-7md5=Ϫer븘kd(sK\K2 W>i 2?;M~wMoq:/?%`|-RF 2_x3?)B-nF{gmIH Xɘo[+* k|>m+?^͟ȉ dg=cpEџԆ+h)E3"gӸfV 4 :ď0ҶgLL<*>B#QT#ൡ}eZ-ki GP#k^Ihc(:tj)-¢8>Í2UpfàP=w"%?cRtW{9 Wh-Y@T9غAH|)RR&M2 9yQ V֋,:mcUmvHxl[i9p @Ebݗݍt]hWzP ObIő?Eu沄q bJ7W~UM͙z1 /TVly[pAWt.OX-Dk}lPg&u%ki7pkhh"0_F@?( ƇYN!p3Y+۲:7T)ZjqSYhfzu5㞘P3-$nQDK & >DX1 *?6H'F ϱN%kd`VNO1j&[Dkw<7< <yE>)I5=iKoS|JkҬ^zҳCo}3] \@We@4Z@8]_c=w~5NIɆYLxsYG T)s??;P,FR(`R{oQ:{MTc_\ )f.nNF`E|!- |)Qڕˉȟ6LόFa(l\grv<[d7=o  MS>+K,fsugrun. Ƃ CMZ : 12/05/99 21.02.48 by A.Rozanov Ă -- Author : A.Rozanov 05/05/99 SUBROUTINE FSUGRUN(AMT0,IERR,AMH) H* --- -------------------------------------------------------------------* H* Na H*M9;ioH^25@An3%ђ:"mc %D~Mگ%% zX".]^**>Á۫w{wk\[kl@r:X=g`4 ;X3gLw'÷'K &0]؎&|kuwϼ'6MSh<y18z6,"k777a_!lu n7ٶvAcxy9Hyݿ^J(㱌9G1s_`_e!n}.ǠM/fKp/Ƥ6U?3tp5?ofd:Go=p1.By?|qPʋQ: 6c_!I DĜ0}'I^Zt]8Gr l<=>y ߮vլ6=pڎ營Tk`i9pgpmn;Z)kZP!ůcv;u&E]o./.Ƌd 9oC*:{~ZECs3E44UH _ $F$/yDn&\."~ DG4/4%_hl̃߆y%S4 I"|UDVFYg (c:WY^0%Z7 &YeD=`~'l(?+rj4@W9qt Npm-o]FE$6]6ӟ\ɐ(n-ѠdJŴâ 3"7D 8g7>k FL\*Sj2LQR!1NÔg)wL$EDvFI]Fgi1e,4)1. c,-Ҷ,)(v+bGV0<xLÚXuV^Mz.##*U%&=S.gQgwɠHnb-xs^ GX&9;)m o2W[VNo$H_K;-=jƯ]Ϭ-y$r] ?6&3R8iRl'ٲYC:$hk#iRynN|:a?MF\sK?A6P%&aN8)N0VkzY9ظ66z:p =zbTwӸ\C,6J 7te04RH c']u,Dx#b6JDm;Qbz;x[ƞFJ"ޏ]{E$Wə\2y·ӹ?z>1YGBmV]9v:=F2#_:ӭ9Ժ]z*i0qlj1S3[V:]PzVV<]#9 " nZLE(i4'NM1`Gdl,NXlLj/bz<I1Љ5zЉ=:I,I41ZȓѲ(tQ&6WLlеF٠wj>bcKD|}tcK|6wD|}Ak|p{4?1&3G{C#|Gw|<$6R<ǻ^av %UcwhVCirɜث9Ml;2EXn[X޷yV9і)g_߽*ʨd&P*WLP:fa@6:,Hԕq)@e\}Bg i.X|m^ΪX(*ƸYA2h=hY$j VbV<a{|rVJܜa 6L،˔x RHldP 8df(7" 6(AV\.&$B.@lFG)I+PњAlƛRb$.Jв%oID6Vfdv Z%s ٌٌ@ eK$"1$&龚vQK^6t_ ~VvXyRN-r554a K-d։k]^JTm+y|;N4> #NT1ˮIyk:B<N@Uq.1PDS-pƝ> r㼝O(~<CYѧ25حbQ.: 3!g1Pk*- :]th-M#\I\ܨa[FgDx|6F|*gj5VJµ/sj57T=m NYRK;k06mM&wm}[.LQ#q('?Kpš6vBF;# tSvynvV?=Y]uGoXaoZnn0iiZ#,+ gب8UC:au}(./˾@u.K""X-a(@:hר}1Ve2?9<ȲcŒ}q+.F݆`owjW+w Űb!mm֬Z> M9t{5 4=eMeEFAӱ6Nx|'uvgo/[Ny*9d/eNe)w֓|)_+B /gh SN|id$.q1=g+EJv6Y~AsX좡X$˼LcLDxyeJl6ܔuM%דiX.(|ΧFX,qUpE@x6š~Y,#Hn?+Z `펅źvlY0"l#CyV-_T\\#XG]ZR\iRN1mkzyd/n9wGZhś-FIjq0;kKZEj5HΙƻB@Fڶ_ XpM~K3v wQq }_\_,9FOјRt#}9[NoΊG+xoKc>NC?X!+mKyTT!4E5_A ^JwY¼F. } 5&蕄6iCqz",s=a8(S-,w(gNfsY.mni;zںE Qs\iԢ{>RQΖ-rbLs.;m!7_ѧ)z}^q/ E;`7*gX [7/cSV ~wN 7[GZw[˳A=8۫^F!#j26_~N!`=K>vq7E}|@5&ܻGsKXc9T_ZkWR ?9X_+љݐ%){Iѽh̟/d/oH ِdqR֠.nektbhEpf[[F&Wvc {&_!U?.I FSOuZ7ߢWjl㴓Rs 9feW?=6̿`a7Z֊'I 2i+%~|s=zB"PX%=n5vw#|W`7Z*@>d|bl~:dyqfFQ,a;@¬Ĭo$UtcU {_s3}˥C:[h'\wG=-DrJI< ٳE.N"^#,y(?a~VS,/gVeu0nSAj:=1}U~.095OO")c:J#X4 X!c:}%,?Mxnx<x΍xPlKX ?uBTPf]-$QyDJ5xU).QC1Zs ?.IҟOCiUs9tl˲| ޢJuJO|Rkzf+sߦ&nCY:{giߦgvݯ˂ȯ_ hˁ;qzj 沎,!S,~"wXP,O'ɥ~"<ף t3HƠR.h]ܜ\'CZ@'Sȅ=+?km%>D5Pٸh<_+ xn{>]rl >+K,ltsugra. Ƃ CMZ : 12/05/99 21.06.25 by A.Rozanov Ƃ CMZ : 2.00/02 06/07/98 16.56.47 by A.Rozanov Ă -- Author : A.Rozanov 24/06/97 SUBROUTINE LTSUGRA H* --- --------------------^?UrHB$H$kkWE2EHkb+_Og$$(JM6UAY +ջ=?56!{5,~o~}P:M'HnC|6#Kt.W$mIGg 3LI+, '/>M$S4xpŜ_0pX_{[ |/X`8f;}ӟL_nZ?y)>2hܖ>>}2)oGl#^y<9t6#/n}vS\ϦS/cv]序~ tO-۷D|6?ή6\ΦkPO0_\3rüW8?2"b|>`+p{-.pƣ r |y ߮vլ6=pڎhGWk`i9N8նm vExV5,Pcv;u%E]o..Njd W9oC*:{qZEC[s_3EȊ44uH _H rKF$yDn\-"~ze23hLC[hJ'X9kfϿ uJBh]DUWV^ (c:W_0ҭ%Z &^yDӕ=`|'l(?'+jj4DW5q|#fM6[H8mȧ?"6Z}AɔDnaE gc;D6oT$p1.QPo|, m:4x yC|!CD5,I0+zl X&iRlb>-FK=$X uY&S4)&ԏV.a0yq; 5 &\l=\GXU0J,zz%G!]"+.XM/鳥ewIob+^rV YX& ީ嵍/Ymm;7y,LjK;-j=5YX-9wNq|67rL^lYNՂ+后4ɥs#Zb{ֱTdr|GgyWdП T |}y;՚^GkjEEj^c! G5F5{po=[oaGT.bdQ҈k(k$ƎFB9&c%";Q"jgӛإ/5Fek$Q*أש_Dɹ3'b8:磫u 8 <`5srgys$<1ݚCQYmPYסdoƱ Ǧ#ՙͲjćJףڠW8apTb(:#YOӜا:e*pcޒ5㳲`0Bxq]'9d:CzNã آ X ,i-+Ase4 (0hWLài25ʫA"VDk (2]6vmrfS !_MMdH--6uJTn+q|;F0> #̈/N1agפ8Ͳ3eVϲB Oɸ10aΞA?Fg'_NWn`K<1vS2msB-2x D fzIQ=~{l& mXPSk0E_|K`S4OSԈrϜ4\ᓪ]?/R`BY_{ pmI -ek'mu㸞A}5:Q~Ǐq9 M 1l5V}5zbA Ǒ=pdu]G;jҥ3qN˲Qnd4:5jp+%ox/y|˽n*䎂q!tm)gFGU*Fԍc:jtBP1C֕緭^!c˞%cBFtRkՠ ]k:P5F5P<8/.g|*@}߲ Zb?4*le}AwfYwh/:{E TZeNQaT,m͚Ug~^1FS/CݞMMh~YAiYkxpt,M gi]ۖSk{YKYY]4_׊C9T/Q2rAGL( c4CSEcTUcyE:ECy8VbH:6SXE"_(<a>B?!,&-b;kO Xk͖epֶ YL~Q6FƱ37 +̥8]pF:(smq e]!d-f9t$34:[hAB d~R:Rܲ%"1`$n$gP.PfxW0EZ~y]J^@S4$eNS{coKcK@B?\+Kyny*`*yP֠ {jaI#YJBDޡSQF?}poMI&G5t[y<1'W=O <|(}_4m||Q,/$GV>w𱳋1`Ư|3cDgۼjLeKަX9Gtdl4 ``Npҗ}C,.tcBwnCH n ~{; Ć~a|`"E(q?&MQe4r+BN*u8|xvU:xjrIr 7s@r+ȓc$5=V:3W>i:\u+rEz?6:/?Iџ#n&IqI &?I ;yө%ryB< ~4g!]W('p] OZU¾֋E 3۸NWeܳiup;RſL.idP댮$09AM!0++ݚKłeq'tCzuR vϡe]eo7M%6%+ݱ\`; H*IH=KN)-J݆J{I?J.%gvYݮ5>k}uⲣr$d,&,#Kp*](#.y0z-er ?378dz1/. 3ZiǣA0zYr1/n2\{m7pٳ\ QGD4iW0ڎzƿG"} >+K,thetalr. Ƃ CMZ : 2.00/04 14/05/99 14.37.17 by A.Rozanov Ƃ CMZ : 2.00/02 05/07/98 20.18.46 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION THETALR(T) H* --- ----------------------------MSю@q5>m)y@w>bDP:}6 K /Wޙ)eQ$)w{ZV!{7?3c<],xN+1؍ц֦TGu%]w 0?{TmmZ&.kO/\+{vϟ?=7z.=nsT6'L࿶R}M"Ukkm]7Qp9^՚ͺMk =w#Fl86obx!m$(l ?+?.D#l{102 x} x vқxt /I#~c{x޴yD-ӲNg%mͪ_Gυgs9P?whe7֪GUA.ܴ;Ngݽݳ*mh 7t,Ӷ!XdvI"C:Џڶ^ l%6Gt@mlAV?iwmfIGޢV| []!Z~g5iR^~@ 0># Wd;o҇.XAqH{FI˴&)H]]MEY?=kV8QNK? ig91zAkv]%]6SéŶjeLR5h`5%8ON$Hl"W*0phmG'3VЧ26J'Wȣ7E^a;q&}3Lv OcazOd`t-(·X/ C؜>>Xc*PŅ+ov" =Y7%E~UrR> $HTef`@*sr|l⓪ek7[t';(PJy{'gLj<~~t\.НN-;`WCB 9زjlc™FxfI 4Ÿ5AL_rE8F=Kύr'`v兝C\x= 4kp"#Enz.ċ?"x~2׌"aȕScOoY@dY<1ژgZlC;q 78/ɎJ@v}k.gpnAZ mVX3\/HdtAxzކx>7@=98:;.`d U>aNHб?tiUcL`nƪc eG8W}&,U`ni!be"g<=#e*91iQ4N˹ݽrt(.Mt k2iuАF* 4SJzU} ֋vI24KЀf@%)7X;AtsG6$R*iÍԲ *sGv+C $^m'M>XLN}cbPyJUwqP3h(B2 ?;nZ/H/xQXK#=F0%:ܒ㣂4~rG 7TUF!\0iPʆ6&\g )$UR2XvdO$~s']Hi@}L$15‚wG~Dq$k:q\ vz3gbvy:~zZ%]( a b?zU~|% k`?T7>$z =D4EqN\~e߬o1>36[RX9XGcs|QߑȋONONa)Ob1=`z%7YVkSѢi*ʲnju' M$A:@ZHW ژis#nOdN/"qHYy+[jbYJvq^+$˯, p~uU6䥣s۝klj΅zt."7.CzQڄl5|4n~$J,aI.gMv0~|! !̇-C%ߐϕ+t]=jЙOx! zxžxg#-um^si>wI7wQWe)"ܞy+\훇{{,WBsμ¼7&ΦNJL{Mw%yq}3š)w Ư)j`y5?[brGPebeMVevKl̾:jRzD,ԭJ'x)JҵF_@b՝p(arOrBs |6.~uK ć.K9-9?^' yQEo^y*CqZS6"zs{C@LCUQ \AY#}4+]xݲā=>1EM̹YCLPŹ[N*_EB<<E\9-Վ!˨ Z]~H/WuT&LY~a6A #{eSٶm65-]2ٯLY[͌1btt7rMb5=qyj)֯8b>qߤ#َm;{ Kλțġ;Rr#YrKsdYմ8/}T}MqODf߄X&[* d?Uv?x9HO8u\e5^DZٰġѫ*0/.B6@,ي*2"?<L4/g ;Nr~'F'DbZi1)2X xAl #zDgKxjǎmn;LWցOT mMP{j4 4ɊпB=7Yv,rUMSW,t5;HRP#1 :&N Fh֋̊ږUǔ*U9WhKm]0oYDU~gb+W%ՍFk-!kmZYu2/?vd= X)*LE5*;US Cyz [wO4-V\3-XUwJ bF,O.:t<8hR <-w\Ma\KMOܲhC~i49^4}*wnfl \XnmKp-mA3UJ+߯NcĺsT?YMbH? y˜SP%ġ4E#M&mDMA wLTy;TlQ{$sқwQVRYmy)N7zHOqys\U;}|-EyAr]B⏵ʸaO|A.hJF"}ܫyɓ,z6D+iI,TKan׫ ]铜&\|[+K,lt4susy. Ƃ CMZ : 02/08/99 12.51.57 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov bzA:Id9/sb]q2OҌQ'`16|ֺ~xî2_Wq:KQ6@*]U88=֎?%7_ֆz+/g󘵼1q?ٕۧ/xuq{n~~L9wYԓY% =Zc붵gO,Ayg[ྊ#ж>=Zgo9ȭFAwcҟyψ2nyBG87U iNфs/~-vzfI #oWoLxѦmq3Mt3y#P|_^˷ьzhnѭeYV&*xLY#9uTn& J*G9΀f%Z6{=;-fAp-\qnSWIEDdD%)5>mqBҌ9q^s[h#MimiO-~P|O-ijaCn@BLKtB֯ $5 Y@ëDҖnAYf\7>|dɢ_Ζ _p{%om A"$lכx{u,9'Ç%䈹/1)K$2W\7+#aJ32gcD¦u{(DVVXJ>(>WH~X>.kN |^5@A[p) vzY#s*p' *F>qZ*eVi9x$ Ls:v4Km}ھ]+&?jL:T,Ô{ƱV6bݵX p7ͧQN9Mÿ}f'YcQI;Ba>M }"J  ޜώ)J+y+Q *G YҬ^5>iiF!9EBטg;/ivBӧ{I'8<~Yv_\zAH͓ 1&W:DǢyn\ѭ/HtN5` =N@CV4a*"ͨLbmFY28mh?@͝]7؀~P8. 䴉F^˸ϊKgՎx޻jxGͲ4Nhk@G!m~4xmf`w:}|2kIsD-5gYҫ4p²Fr>wop+D3uN?8mRw9Rɉ7Uz9\Raۿ?p7|"6M<\)X">; 6y\r8UM4.ɺ\<9Cwӥ#d˷d|U7wm^Ca'7WZՊ1M9AU~w]s[},`eeՉv_ _R6w|EM^ < 96*oRgQz$q= /ETR.t2z2 zMe\eo9as cѫw=|<Gyf :=>Sޕ-' K-zKn<®9=ahj e7k-9,?.#FQ.ɡ-lG o;'Ρ؞tQTyt#E\Kȴ.:SJQ6$!zRKBmueygRȡxyOq3pfg?l*;VP3P_4_~q:(5sdV1X:P_`,ݖWv3O[hLj=JG"A,}M{K ߯0xnWǤ]os>+K,ltn4msb. Ƃ CMZ : 02/08/99 13.24.03 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 02/08/99 SUBROUTINE LTN4MSB(amh0,am40,amgluino0) H* --- ------------------------M8VnFf-M&'JƉ ۊ-TSYFSAID?6IIOȵoԞ{tf([ , -w٭V(XQNn)08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 02/08/99 SUBROUTINE LTN4MSB(amh0,am40,amgluino0) H* --- ------------------------MW_sFv;l$HDqBfc L:h?6vܧ֎kQ|~I lt}fnvr_?/<)? O}.1۽Û[I5Fs`2O֑5`8{+Ω=GdF~۽zX6~C\^u"'pcg}GFH*Ơ}!tWlLze4>gaR 5Zg4yp=;x(wyNݒs_̲@+%E{3B15bJ(|O /)M(HɽXUz'G5 yrP_%]ďA y()"~l#>U;gEvo9^UDb_UCZU*5^['!4nF(3u"E^I< w(ɩY\agω}7q,'qB]^_W!%]w8MuoS\񅘘dIdϨ'>o⢾~]EH{`cdxҫDRl%9_]:!UX1mibuIB]DzVZ} ,R;wi/ߔԗKp.19i&_!V)t>-**~tA|/F08W:Ji6b<=H2pW%3Wf)eQmėCwb"|8N|9J#; J2U9^#$r|aQhp<T5kKRx4-.u"xn& a%SAX> !Z#nXOe:[`97eNn:wٹ[^RMԔYʻ)h8Zb|iT+U=(\kc`e|Qz=fŒAظcιRj['cG/^Z.J$ q߰,i O@ +{q) _ >+K,lt4susy. Ƃ CMZ : 2.00/04 02/08/99 14.05.01 by A.Rozanov Ƃ CMZ : 2.00E@Waǡ^kȟ]WzONcv^ 'xէOk5X'}\[6鍽,dC7(;p1B)wiA|5/_K:ȕAۯB>AD)L-Y; wcLZ pȴ3@N@&.^_(jJ))S]8dP@;Ȳ,X4SzŽ򅸮" 0X !U܊^шZ++Xۓ$" oj!iKDC c}/z9dלVZWk#! l!V\`әt?VUo*.=H'.~jw] e~I5 sWʫ^w܈ӽ@;qL`']rD?ذTYzj86 a4/|钀{E3ƱGk`W={'}kS]"OSuROonD]rl,xpQ9% $h gjq`ionLz4g)aRMk40}ܔMݒ۳zf(a'ЊܪeIўmr~@} ߓB hvB`Œ\o`;l\&4mhXt.K i<t_(_߰v?0pQG*JB! Ê.bUCZU*5^%!4hF(3Su"E^h]ϗ1"ɉ锵.3='> NxnXN*SIsPW!5]g"M}w 11ɒ=x:[L |FE}*{ ecdx띍nҫDRdlᜏ.xZ,d2x߶`=FgaNILS׸vDcN=@, >C\wppO›|إu8ث+[0|j@aT+3p/Y,sjOY$C) Y~%_RЬ^I Hۋ/owf |̡̆q xr*Gw$ex]2Uށ#$j|e(%gyY#d_rL!U !\?&3}XK;[X> !Z#VY7+ k.c6eNnwS1iLԔUZ@3#8x.|'V3QW 7_j*gł{tGD0Y<6,7Au'<̒Z24Eƌ5yRX'eG/ѵL  bI2+q_,i x?~:=HnVH澰 L>+K,ltn4msb. Ƃ CMZ : 02/08/99 14.15.42 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 02/08/99 SUBROUTINE LTN4MSB(amh0,am40,amgluino0) H* --- ------------------------M WrVVq6W@%3'04EǽjګA#0L{͠=J*XQ?sc@/wvVA rSgq9g1;\N]ZZ@4xeriCg 9^U'zwAQS~`/۵_Omēh'7ޱU;S*ʷOUXzanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 02/08/99 SUBROUTINE LTN4MSB(amh0,am40,amgluino0) H* --- ------------------------M$WrVVv6W@Q]`C SSUFMD@qZ;n'}yGwH d:E3{v¿r?ɓ20`!rAy˸__!JKefOΏWxiWQ_c@ɋWE[Dٌ55Sz>sFv-0-Tҳ7E)GL[tjb0*\ͽNDNWq!ǟtO^,PŎeulY(#/Vn4I+<`R^rq|!+yYR3,jqRCSFU薁 6XU ex,'@S_W*PqQVa,mF}nTԉZ)WXӢAI^Xcԃ7ôDC c}/ 3H9|Hyא(@ZsMg ~XּP1XR ?\&"(BlYj-5Հy^:*p#~̐VT ̓tm`Æn]Sz2QaX.\xp8H݁C g:w58:X{9gd^~ݝzZ0~CT]Cg!%\.IP$5G#PP<fO{sdZ UT[ =>Kh5(mZ=ɽI7]8vΧ-o4[/"px R0qZ!%]ǗD^v߰Vg^VE٬5Z"1JE^+˵JkԤm}tS+e](Q0V2eAJrlc22y8sn_6'1oߍˉ@cw; K_𬄲V,)3&9 §]kB [61Fڈ&Lt/MʦnxҾ ˆA/m[&ha}6쎬dڏ#xXC5{&ؼwZP"A- ƞ6ͫ%K n{䣝'>b> oQ NT^=ƖGp|ϩ>= )gç=|I C; T6K.˝ }/}5~<35p*ܑmuMk˰Wp{,8]d,R0O}Qأʣg NGu^Wnˆ nX2I(:ٵʺa^`Xw)pGtӾK-nOpd>YUM3 ͣp;Vhje=)k&#>*ǂqq` Jf q=!Ւu&9fl os6oT? ;z񼤧J@hdK_eI;n:nAz噠ޮz C+',>+K,FFFLOG. Ƃ CMZ : 02/08/99 16.46.32 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.RoH* --- ------------------------M@WrVv6W@8uft 1LNO&Wah$Dq;W̓=Ga ә.A?gݳ{(Uܣ\Qs/л {m=]J:~8O\ xj.DW3o{a#r&WCKC.\Ag01~ߝi,Am>w"a~l>ٞxДj{jUsbWxR >Y-}ŀUb "^: P]/l7{u~Kz2W;sEq׼hw(? lpMO1] LKTpȴ2@N@&ƞ y(hJ1Ip|n Šز,˂E`0̍Ǚd_fK[CMV+=qV$rj%)h zͰ$$@2G~y*ׯON"j ~CYJY#IĚ oO4R$Q*U |F␬!Q@ym $0PP0r~88MD"P>q-DFl[(kBU^u=E`!~#h%ꩈc[['ݺ h/һnh 1\xp8H+t/g2s 8:{k~ ckR;uJn.zGnӒ3yўHK1e]Hj }!y&^js-8eZ ET[ -qIMz&dma=XMn,Yҋ *K$)MԈ)om!΅m4;I]QsbIװKV|nsec|^bh6'&q4nzci!S㱒.KI'i,4_,tU߳Kq|`k~o>v{} 6[ݞ}-N mقIl5kX6,5r/El@>b3QK^왨LO`ciC+g{{e%Kx  > MO9xZ$ϧ!FT8nivb_M=ؔH2d~rW%Uz[t PX-E,wFN|is+hgs piPܑuuU+Ͱepi$qK8FȤ(a渞Ꙛ5}V L!0̥!\?&5]XK t^˨rqz>X}Vnɟ(ڛ.[<8Il&2K9Z˜t3߉U{*qYx3U7ʆj 5!8񨭳h>s 8Lfr8PAS#6Մ73'孏(RvyEˤPI!$c ˒z-hbWAB]t>+K,FFFLOG. Ƃ CMZ : 02/08/99 17.07.12 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FFFLOG(x)  j.DW3o{a#r&WCKC.\Ag01~ߝi,Am>w"a~l>ٞxДj{jUsbWxR >Y-}ŀUb "^: P]/l7{u~Kz2W;sEq׼hw(? lpMO1] LKTpȴ,ICh L|55q5 ~Lx\ϼUEASI"@qE8IdaElYF YGe"w0bbL/KN-u!&\8v9Д^UO4KPRbfX CwܣIdXELqH֐(@ZNbMg~hX(^L ?&"(BYj-5倌y^*:"?kVT1̓tɭ}Mn]U z]QAؘG.t _8ICt3ǎw@̽5[yܱsڵH:U%b7l=ݣjwSiIG虼jhO$%LߙEPs`0 980iTk)j(jh),Lj7i&k aǢz (@چNa(.;ɿk:upGgj:ǔ_۶Qy(lI`IvfDezN@,]!>w@s,^.]»f8nM> lh:[o'5 x> w0ʿ™vM{ذhŦE!c{E-B}zSTj)e0vKۧ_G>shXcTO[丬P\i},ýH#_1JG&E 0@=S}V L!0̥!\?&5]XK t^˨rqz>X}Vnɟ(ڛ.[<8Il&2M9\ˤ^@ga8X5u7_ulF^31:: -T2`1d/̍s ã9y TޔZz_QhF*ÂdҾaYRO>C =ȯPo`y=c+t>+K,lttest. Ƃ CMZ : 01/10/99 12.24.46 by A.Rozanov Ƃ CMZ : 2.00/03 05/09/98 11.25.05 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.32.35 by A.Rozanov Ƃ CMZ : 2.00/01 17/03/98 21.57.20 by A.Rozanov Ƃ CMZ : 2.00MS H'YIsfў* Xpc_R ..}Jd<ت,*@lryrqPe{б3xeƌfZ-c]Wc<>of9czcC?gjfU+L-xXNt2pQՌ/ 3̀gVI+T+3dA%qo.r:d3u;~]c~볿=$z,ɳ_O'm3toz]8 p^F?ʰ_1CMO&sf0ًEX|žnz2!]virv? Dz+6bVHW>Ok} F@,B}P(ͩ%%߳^rj9Q^z/rYc֌h+o sz dZȩ>jY]Jv{=稤rˊVT׌VQsffmf*9yu ^Umv#֪5;{*/ko H[%VpI6KPe3מ135V;rT Bʙ \ lv/J5,,'"|Jc1 ~P<ײˌaSz|@^lESTx]ļZœu9ԺN81K O3>gwBxgZ (81YJ3zy>yז,ZS|zE>`N .^*ڋͩIɭ3=.䶭f ʕ8hk .yhר_KY _!rI%hSWNN0&SRb'Rc!&qs|'sL v Wc̣Fߤ!oz ա/}sgku4j !rAd݁ 3b+K,lt4mn50. Ƃ CMZ : 14/04/99 00.33.52 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTOBZOR H* --- ------------------------------------------------MkH_?3c<],xN+1؍ц֦TGu%]w 0?{TmmZ&.kO/\+{vϟ?=7z.=nsT6'L࿶R}M"Ukkm]7Qp9^՚ͺMk =w#Fl86obx!m$(l ?+?.D#l{102 x} x vқxt /I#~c{x޴yD-ӲNg%mͪ_Gυgs9P?whe7֪GUA.ܴ;Ngݽݳ*mh 7t,Ӷ!XdvI"C:Џڶ^ l%6Gt@mlAV?iwmfIGޢV| []!Z~g5iR^~@ 0># Wd;o҇.XAqH{FI˴&)H]]MEY?=kV8QNK? ig91zAkv]%]6SéŶjeLR5h`5%8ON$Hl"W*0phmG'3VЧ26J'Wȣ7E^a;q&}3Lv OcazOd`t-(·X/ C؜>>Xc*PŅ+ov" =Y7%E~UrR> $HTef`@*sr|l⓪ek7[t';(PJy{'gLj<~~t\.НN-;`WCB 9زjlc™FxfI 4Ÿ5AL_rE8F=Kύr'`v兝C\x= 4kp"#Enz.ċ?"x~2׌"aȕScOoY@dY<1ژgZlC;q 78/ɎJ@v}k.gpnAZ mVX3\/HdtAxzކx>7@=98:;.`d U>aNHб?tiUcL`nƪc eG8W}&,U`ni!be"g<=#e*91iQ4N˹ݽrt(.Mt k2iuАF* 4SJzU} ֋vI24KЀf@%)7X;AtsG6$R*iÍԲ *sGv+C $^m'M>XLN}cbPyJUwqP3h(B2 ?;nZ/H/xQXK#=F0%:ܒ㣂4~rG 7TUF!\0iPʆ6&\g )$UR2XvdO$~s']Hi@}L$15‚wG~Dq$k:q\ vz3gbvy:~zZ%]( a b?zU~|% k`?T7>$z =D4EqN\~e߬o1>36[RX9XGcs|QߑȋONONa)Ob1=`z%7YVkSѢi*ʲnju' M$A:@ZHW ژis#nOdN/"qHYy+[jbYJvq^+$˯, p~uU6䥣s۝klj΅zt."7.CzQڄl5|4n~$J,aI.gMv0~|! !̇-C%ߐϕ+t]=jЙOx! zxžxg#-um^si>wI7wQWe)"ܞy+\훇{{,WBsμ¼7&ΦNJL{Mw%yq}3š)w Ư)j`y5?[brGPebeMVevKl̾:jRzD,ԭJ'x)JҵF_@b՝p(arOrBs |6.~uK ć.K9-9?^' yQEo^y*CqZS6"zs{C@LCUQ \AY#}4+]xݲā=>1EM̹YCLPŹ[N*_EB<<E\9-Վ!˨ Z]~H/WuT&LY~a6A #{eSٶm65-]2ٯLY[͌1btt7rMb5=qyj)֯8b>qߤ#َm;{ Kλțġ;Rr#YrKsdYմ8/}T}MqODf߄X&[* d?Uv?x9HO8u\e5^DZٰġѫ*0/.B6@,ي*2"?<L4/g ;Nr~'F'DbZi1)2X xAl #zDgKxjǎmn;LWցOT mMP{j4 4ɊпB=7Yv,rUMSW,t5;HRP#1 :&N Fh֋̊ږUǔ*U9WhKm]0oYDU~gb+W%ՍFk-!kmZYu2/?vd= X)*LE5*;US Cyz [wO4-V\3-XUwJ bF,O.:t<8hR <-w\Ma\KMOܲhC~i49^4}*wnfl \XnmKp-mA3UJ+߯NcĺsT?YMbH? y˜SP%ġ4E#M&mDMA wLTy;TlQ{$sқwQVRYmy)N7zHOqys\U;}|-EyAr]B⏵ʸaO|A.hJF"}ܫyɓ,z6D+iI,TKan׫ ]铜&\|[+K,lt4mn50. Ƃ CMZ : 01/10/99 12.35.57 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LT4MN50 H* --- 23.59.57 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4M4(amh0,am40) H* --- ------------------------------------MD )ZrfNfw\t@ Рy-֔SYnWH%LHP" U+Is7j{t= 9I73?gwzuGοZ("~L9wYԓY% =Zc붵gO,Ayg[ྊ#ж>=Zgo9ȭFAwcҟyψ2nyBG87U iNфs/~-vzfI #oWoLxѦmq3Mt3y#P|_^˷ьzhnѭeYV&*xLY#9uTn& J*G9΀f%Z6{=;-fAp-\qnSWIEDdD%)5>mqBҌ9q^s[h#MimiO-~P|O-ijaCn@BLKtB֯ $5 Y@ëDҖnAYf\7>|dɢ_Ζ _p{%om A"$lכx{u,9'Ç%䈹/1)K$2W\7+#aJ32gcD¦u{(DVVXJ>(>WH~X>.kN |^5@A[p) vzY#s*p' *F>qZ*eVi9x$ Ls:v4Km}ھ]+&?jL:T,Ô{ƱV6bݵX p7ͧQN9Mÿ}f'YcQI;Ba>M }"J  ޜώ)J+y+Q *G YҬ^5>iiF!9EBטg;/ivBӧ{I'8<~Yv_\zAH͓ 1&W:DǢyn\ѭ/HtN5` =N@CV4a*"ͨLbmFY28mh?@͝]7؀~P8. 䴉F^˸ϊKgՎx޻jxGͲ4Nhk@G!m~4xmf`w:}|2kIsD-5gYҫ4p²Fr>wop+D3uN?8mRw9Rɉ7Uz9\Raۿ?p7|"6M<\)X">; 6y\r8UM4.ɺ\<9Cwӥ#d˷d|U7wm^Ca'7WZՊ1M9AU~w]s[},`eeՉv_ _R6w|EM^ < 96*oRgQz$q= /ETR.t2z2 zMe\eo9as cѫw=|<Gyf :=>Sޕ-' K-zKn<®9=ahj e7k-9,?.#FQ.ɡ-lG o;'Ρ؞tQTyt#E\Kȴ.:SJQ6$!zRKBmueygRȡxyOq3pfg?l*;VP3P_4_~q:(5sdV1X:P_`,ݖWv3O[hLj=JG"A,}M{K ߯0xnWǤ]os>+K,ltn4mn4. Ƃ CMZ : 01/10/99 12.50.18 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------M/ )ZnV$w\%&eʩ;QYI^IYD%ʖ('UkmߨE|sxHJlwņEϙ33ӑ[O{Zmϕڗ Vo"zDݣw.q8F&D$>Kq¢Wk$̆4S:dلΆzq44JIy1%\k=(I4K'QpY|R>x<.dgc:Oؽmp _N"omi]/ĭXsR$ Ÿ`ߪ}=L^U4^gr{JnO؂4oךG{/mֿR0EyuL0νz1`4˞Nq[=j=g$E)C=|q"]s]]ޏSsRѽE۞J汇eE2VDǓn7̺c~!6o˯ȡV2q:3"Z2K@;'n~ճ-2xаv^$*Z*I@[K0%!2ӑ n"`՞R{G8OU*d`0[J\c)LӑԽhiA{k-Jba|Qjdwugg{:F{rY{ 8<~w_\pWK[!0:D'1B:~Kh j.tA)#1pA7#|$"q<ӷ,{-TQy3IZ%+eK66Y޸VRؽq8 E\dZ?aVvʞy [/3G}O#e3S&vƆN1Ӻp&fMc*ڧ` m"& =Lmyt%Wj *0;3:/Z8!҇tH?֬_|[d:i;`'+@ 1'+aBe0E3lo Аiˠ&sԬ-ԄeeP 'E4Ey\JՀglw<.k9Q5A$iFա_kl~W{Ԭg6m |"kI{DZD-UI* 2KcyJ>,3Cv_!/}2f\ъ#4&s\P=7 a򊝙V|&)}s-Ahqc)`C$(/)%O.;yUP~= /OT] >+K,ltn4mn4. Ƃ CMZ : 01/10/99 13.03.50 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------M( )ZnV-}EAQhR: 8cqUAETlr^:^ }7$:vwXlX$93s>׾\}I݀<)uA׻VtGtD4#d(a˵Gt NC(Gt2JtLgQJ8t%8㼘ƍwLr$`@(At|=.O$}+˿ͩGcvo>9HFbi:Z qXORƽ$ Ÿ`ߪ^C,+~w^.[⯵Gڊ+//3Q2G^ݳ<ύsvL+N~RZY0QPOzoX*.U\2Kb#|Љ8NGn|['ύ}LB>RobYX[NuBlWT0}j&#%c.,)s'z29W_nl&Hi [K8"JMN'O''Trբ$/F<`^rIBUP3>{قQڴ8noFslv^U5Ye|؟E;ݛ牑0`e) {dΩr3UR9.ߵ\75ʍsVofeIEEڶJZWh mGh䖘yo8ؔEO# GmB:~̾ɅW#D% Y~OG^//#nvg^ ק΋݃YޡF *躝)p%ou A$kEl46˼It {g9w䌹+[30_R1"a2c;qFCEn#eW ,A9[kԚ^$Q~5s]y|3x#t`ȰC.[KrE ܷl8QTR~O,Vz5kK+Q5+KIeX7kWDZTgOZÔvhuQy83T o܉Ga5n;۲[V5S}8JBnŏE%e 'CD=< lpTX`6ƓѱS&C{%VA Qe)!j [x4M4Z1ګB0gId2) 7n{ 8<~w_\pWK[!0:G'1B:$o:Dˠи]D8% t6IHhV]㟚*m Nn4g~1U9@5^E~)7?J%ObCq+U'|f|QF8JYvay',rXzrAې:؃vlT|ӼHѲ]3 z˸'H}]+e9b0p>;1cJnWrDx\gQhh8sj㜟R|[Cc"RsoEd'Ρ؞{tQT~tE\)KH.:SSÕblHCD-r70&I!n>?N+ÙuR!XARπg@ ӧ@~OL{$'WIa=T͇fX趼bgIoJLo?ZxE X dK.eR`^w0;mʯǤ j,1>+K,ltn4mn4. Ƃ CMZ : 03/10/99 12.41.12 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------M5WKoFf%M?LN$B)SA[$WQ>dZ;nkQ{)C?:3Ke)(B<ٙuϿkO5gA{ ] 11.20.33 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------M4WKoFf%M?LN$B)SA[$WQ>dZ;nkQ{)C?:3Ke)(B<ٙuϿkO5gA{ ]hJx ڷwF{@$s(Yf2Hq~,j;0p4pikґA4qН}BF28&@_>|$i0 r? bF߾Y\E)cLGq^WM)5^+Yg[z,ߋeo\ljgGMޞ8BUk~v-,NޞNU_,h&6la2N`43v7)NͲ~ʹ m D434$ J@ 7L]%Z%jj_?%N%$NZ8 $|4vE\kH~ٖ G9Dqn+4-%<^ ,$uCQ'8hYV}i1Lp< *Q}"ҟU@Pt7wG{{qS&إp\GLi=X|-ZU{VuDmUk_|r9RœH'LЏU}wE{,g[UCkA}T*cu t,ྦྷJ2ǭN/)WY|/ m{ . 鞣إ޳kDZitOhF7?Q kt:O5T% ?75Hz$룽%l{,OFc3`=hJ D_ȫnx&n$뻉Vy|6]I@"ogr'Mor)8e:Ǻht͜5m;nv?-步5&m3|ΰXyM Qe[6|R+cw0K*ኢoU??DF2? v#Q22] ])`Q`1ЙAOT먨mbW@^7y FyI#{?i; 'RB͊wڬ^yAq?Ϛ֙J&7zqG8J )]$ 71 ?(33|KsQ_ZiX5¿W’;/HCG~hze@.$s#!$/6}Y{2ƇctRI!'=}}Cs*"^G)-g*:%<'T7)ޔ-xKnsFlB)7f*>[ë§X1tm_S9)<j|b0_2IOz.^ 3G*;T0K)k4bz $tSn&i^ I~1%ӌ}K5Zj6yϓ54۲tj'66?~KQeS@+_PR~W?C?|k dWff3׾m4>+K,ltn4mn4. Ƃ CMZ : 07/10/99 23.10.18 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------MZWKoFf%M?LN$,ɴA~6*ɩl#h/%,|e=v"Rtf-}ٙuϿk5gA{]hHx ZwF_0'/Yf<ċBX6`!$# (LI ~@weL 8}nsPNa$[ex> سq}lMd^ڋ~r蚑.bX߬6LW6ζ8 7i^+ +yoDgx=>87!_aieq{ZEłpL!- Npe]5S8$ F^CM3=N21Bˮjfnq?P]gԆ6ĀFBY xvbW$c׎opCVZjOpӠV$Nob/Ǝ(zz08Ң Vօe|e i6~7lۆ;m`%0 MF3E Oq"NR7<O/VfQ31c1FӴɏPJa_e xzRo0 ݻfS:nb΄wilz&6ZO,V*߼A˪/If&Q yS0]ҜF60gkeᎊhvVݞsWUTOx ڮn7R |ـ}/\yQ~UuYkl elmQcFB]`(t<8v`XR;]%ʓ{utCuS;ԷҕtksO @L,ftߍB'c ^%}9p񱯹x %^'boGVbj)UF}Qw+u}&3p+ɱi=xmt3+n !a~ڄc\*\923XF;t6Ggv4i= XyMVe[6P¿V}K`OUX*)Hd o(By%|H񭑝 Q֪iP,R {ߤƗG=K>7L]fFlB DWy/US:6 W~u;R.NӡnO*ӵeHd.W|൨|uiTe BF@aNb4-T,ՆLѐ.f{֪ Pz ]lU/Ye|zt?Щ:(إ)K77ʟLxY3) Êg}ź;%z?F5Ȯ}ȿ}a?>+K,ltn4mn4. Ƃ CMZ : 11/10/99 20.57.41 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------MydNVMX+0ϙ3RǣoKM;*Q^BZG^Cݽ%8&Ki -iPf2Lԏ#$XUV`icq.84x νK2̫ SdFy4q{;TQV&`3_h֔mLqm5㟝(bM>NJ>4WMcy+J_OR@#9VV7q"۪O{:ewkYUY)uqDՊohBY%,;upi5-p'R -l0Ptas. dЧsexNPۄ4N0׽rK^K.;H?Hg |'-M⧞5]sY/cY۵ [g&,xTX^mn31u_z#}R;{ v )r(#C6 hD1֏S|l$o%Ʋ~BCUzY6%߻/fJ|Jƕ?h 13Dj!LTFƦQ90C?Fst漵D*t_h7;kh&IV[;hS-Ȥ\2~_V1˽')KlOƾc6 [.s VAPAuz^B 36kc9lM}u?UV%XzMo!\RTdOS NOZ(F? V>xp<C:Æ-M0! 8G!Fley#)xCJ=Ӗx<=Yϡ /U?F{&ydI, 8>Eu8BEPׁz)hr`bCwށ8rؙr7zd 0w!la˼ bʼd˴k0X&S!!*-GQgI`;应a "eSBe@eB5!Q]q0bG]#.YQnΡ"X (8ؚarkoZ *xN'Ud淖Wa`9 s%L,K.)ӑ=A"@;,yœx^o iя@%ze⢹ Fy.rlR#*3-$v/x9!nk>m4mO\Ǹ&{tY7=+Pp]o|,RQ?*\ !!3…JAE[G{THZ~h%Wi*q]* ^A};s`:>դEc\\SC H#z-n UG{ U)c4$XQ̜ )f?+]ᒪftDE!Nznݴgp0|oٓ$ղ$. 8q*T.Vv`RHWQBq:Dkn_~fKk:x#q)F0k_SY(>E. !gGֽnOԡ.t_p?';%R[(rrf 4ҋq}ü; C::4h!wa+K,ltn4mn4. Ƃ CMZ : 12/10/99 10.54.11 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------M]OVKZJ?l'7&4$^&'v5vON}?^sJ,{+4_~]y(?+S8@ߡϡw2ZA cwx:h<<I?Uu;x8t4xԃq< Na0G^B3/ rnr3[GWu ز,؝4NмnsD%ksRiN+_gOz:֟%{2?׷޿9T% hpt"p=)//{dWe~ū'GM_(vЋfYaֹ^Xڶ 'g_ߒ9s'qB/Ő"6 C^>%Oᢌ !L} :xr j Mfu/傗D <,KВ%no?jzϢ߮eت>3aųº &87mp}L&鴐|^/9Y%>%G0nEfOX#ZGɎ 0X?LER[̿˚A UwCng|Ҿ9}+WDm3FS'hh.xrKZX3QYSQjFax"0ۥ3]7&XeDkچF4IlAcO#/#Vhm DYֳbd;f|cqeNa3=Z?*NZϋrPHxt{ãFXa5[S_' NQOUKjJ:k*PEq ŨgD3Y0;l$#o:ݟ`}t(btx.Q G(d+/{Խ:u%์nx%@ֲY*]0ba:g%tJ钕t %e:aE|-!ٹâ'̪p ~-9 _jDEs#\~-mrPc*TQтyLbWJz6{ȧ }`=XEwHQu]jGu#|׵;+J>BxRQ2X[(\(XtTxǢ >e IQ\o-H #ME~*PY-Ux<7G=? FL!sFPTj"|I@}Y)x{@rrHD*ޣ٪SՔ1^YȨf.܈ĔDÕ.pIU}xWO['nڋOe8[`EjُSMy8n*KL;d)ۯ(!v8 Tk[5i7M/ ?V%-|}h:8#̵/jb,Y"[5CőugSuhs]NɯV71e(bFf0/aya0 ZH=X<I=th>+K,ltn4mn4. Ƃ CMZ : 12/10/99 10.59.32 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------M|X[of$pDRɤLQ>8c,ڗ)X^lr>:ž/~gH[^hߖ993&4{M;n}O#;- Gp)8q/$A i,4&Mh<>S:|$MtU4Z ceYy3'~؛/`g^DBQpCJ_&l"i,[ظ64y{/^HM>^>lk/y9PdžpR8]O{u_> ;< Grx!#oڦLkO>:8Hc81Ńs/vn^(&>K>W^A1ǵ-ܸ}x+N_HJSFB >'z)d5P /υx#kdj]vNJ_>z%SK(>ea=4L6-<1B}ru|fӚg=MCpܻݭI4 s"Y%Cd]>yLސ<" |%u9QaMxM2C/3@ʶ?-xG,?q&+R}W|b/}*DA [%o&uվUn8sDlZ-pPm[ڙmV6wݱmR{Eqȵ_&7ݩr*DϥG"7% `߷;][r U{?vp&tNY/3P:'p{ȅKqC6􏧣s]$..z\g5. /(0<~օD ZbxM2CV& pN^(#:)NǐWU}POߝ Y'uSO2gk%]ᕸg.KL/rrqcT%_a9"%C>Z,Ȑboxl0c%e7(zd v aZء"YUsqrUڶi-T.in+U0&zR:lP ^ 7xbCcǸb@@U:D"?wUF\8ӝY9KDH%kNX%K_ol69 OvUep F1Kȼ*`vI:o-'鼵te.ӱ=ZAsOz|IV8-tnp^FEswVr y^gȜĿRR#rzyzp^Vsw.PxnP u!Lnܫ@0z5:ߑ@x;J?Q|LQsNo-0Y*\)<&y 2p4<~dQ^>0jMUA(YW-ʶ ׎C?t"KtHW|? .? 2K +[ܧP:`mwɱ ]}+;rɲ9<TD>*`R;lh]:b/7N{[v"6̦r-8?b%6^ܔ+U($>ZknnT̻#< +SW?_M9JrXkP%0ؿe?;pmrU>yM_th>+K,ltn4mn4. Ƃ CMZ : 12/10/99 11.42.42 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------M|X[of$pDRɤLQ>8c,ڗ)X^lr>:ž/~gH[^hߖ993&4{M;n}O#;- Gp)8q/$A i,4&Mh<>S:|$MtU4Z ceYy3'~؛/`g^DBQpCJ_&l"i,[ظ64y{/^HM>^>lk/y9PdžpR8]O{u_> ;< Grx!#oڦLkO>:8Hc81Ńs/vn^(&>K>W^A1ǵ-ܸ}x+N_HJSFB >'z)d5P /υx#kdj]vNJ_>z%SK(>ea=4L6-<1B}ru|fӚg=MCpܻݭI4 s"Y%Cd]>yLސ<" |%u9QaMxM2C/3@ʶ?-xG,?q&+R}W|b/}*DA [%o&uվUn8sDlZ-pPm[ڙmV6wݱmR{Eqȵ_&7ݩr*DϥG"7% `߷;][r U{?vp&tNY/3P:'p{ȅKqC6􏧣s]$..z\g5. /(0<~օD ZbxM2CV& pN^(#:)NǐWU}POߝ Y'uSO2gk%]ᕸg.KL/rrqcT%_a9"%C>Z,Ȑboxl0c%e7(zd v aZء"YUsqrUڶi-T.in+U0&zR:lP ^ 7xbCcǸb@@U:D"?wUF\8ӝY9KDH%kNX%K_ol69 OvUep F1Kȼ*`vI:o-'鼵te.ӱ=ZAsOz|IV8-tnp^FEswVr y^gȜeJyJ^_2?^gyY]N߹@߻SB3cԅ0'sQLT( |Gλ&](D1EaE:cgp|%jEQz56U-Rdm~_+R*_;|xz҉.E ^sIc$|h+h,)TH T3@ h4k{U<^)g,KQpϯ4=?>JӕjniҍD&~ WeUn rBm^['*lw|;:ˍ&+#xSeH1:+K,ltn4mn4. Ƃ CMZ : 12/10/99 11.54.11 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------MBXKoV$p")Q2)r vlA)(æ('骵)fn!ιD @}yɭ7?}vW= =8?:s{ǩ?Vh*?o6iEyь Ӏi󌮢4<.$ ̛Ӹ/lA<"Rm&gƽؘO OӿxIz#}}hoVW*WWdžp\8䳽|J37 wx2<97B#oMYi~x~axz o?dƑ8c:xp΍cϋ4ϒϕyq#dqm26n [!cSOω^,sӋf3oȑZL2܉W@1y;JOYzlZSy OL-8!p=Xf*ٴYOS]sN{wu]mMœ&|ZI>zP 2է4Ic/OWˉ glkR|&lo=bYL yp1Ѡq/}7sϗW*‰vО^fRj*ZZ QES( Ħ 'O8LܖY9>Mj:WNo{Zmfi^4\ >tߴ{VggS!z.rtޔKbOg7**wShڣ4SS#D)e>sJYp?> ]*K t4Ƅ{ءa+LcpF^(#:)NGb~POߝY'uSO2gk%]ᕸgfҗ yVR'hǨwJ i2"%C>Xk(ac%Ѥ=rv 0:X7Wg䦜nuAh;X*W!0\ .hJ:-jg4t-1`9Ɵ`¶CQ&)uY Xᡀ ب3]UeL m*7-u Muzq"]-NxfظcH< b!(DtW۬Dǥj<]gKJlwh4:TgYIP펥d@֋"k]yB筥[K ].l=R{"y&*/q^[蘸ixx+,&;xZoH.:B|fAԖGx`_vIR.sR# ;UA(p{wQ(::B $_Wu =` \mwIKOS Mf; +e;/AU[Ǐ,Fj"%=~բlK~UiS#25QK3{Ό'[ ;//P\AB}i4ED'\WRWŃ5x{rJɷ{~U ܣ3r-~g4\i\Kv 3nbqjp \V*)T뵸u]|r,.v˽ή\/~Բlλ21w1U*ϫJ;0X5F i b/;ٙt۶O2(]pFOo [FF_BQ _sCb^9=.2Jz:۩V;QIkv-c z # /-a~(0فlk*OU=>+K,ltn4mn4. Ƃ CMZ : 12/10/99 12.11.29 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------MIXKoFPs")dQS_e HZ= v l0ouӍ؇֖ ^(yg$x8}<ͼUgczp`8Óɹxt(rx;~6'ZCp~~xD~yL^<t:cB]PIFe8="?z DcUlӷg}VjN{ c=|?[ /o /0=3A}6lz~J8GW8FPMH-Rls?q¨Ă .sc쯶.:&A7IR؊g[;06WKN! W;,=G@(H*p2tThݴȔfP) +Oh2QtL\WI#y2Ppfg2 4Q U nK' lq̞xm1RmihEڵdzj9 n.BH巑/]K*+ܕtsWҥ.]IJJƞk ])~*Y_`8ixxȋ =.{^ZrG4 dy6eBYBn_2Lϱ_dsx.v#Q(oWՁgt}&K+t-{llgY#wY/#EX~߁BR F3 Pٖ#Q+l*[JFzlP_XqxzЉ.҅/^%3s-~1~_?2I uW וEDǗ:}CK͚nWF )gTQ>%K6p Lb4Rtd1Z[p#G *測*pޭUSpMkqꖳr,.rsvfif,]qwѲ2ǣv`)4FGS I#73:L-KecjuZl Y[VQ#aIM0ѧ*Q͏=W\([OO\uqrWdf;J8 rX6 K2!PbK~؅r/LvUpx@gz I>+K,ltn4mn4. Ƃ CMZ : 12/10/99 12.28.42 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------MKXKoFPs")dQA]Q7lxbچ|ǹ=B̢j0D;ݭI4 2&fz'/¿L1cR'䱿g͗RFt؎WԦf \ `eSJ@r! z=]`IHk%y=_ _ &/[jLڭo&ց:n0uRGlaG lv*{'a[NkC͖eW4VS7΅_J|0nmڝ*~]"z*>.(Ϥ=9ղ^ﶫUN kǎLNSwP(=d8VqX!g.ȸ 詋.翕pEm1IECCo:?(F)|:1!B.V($A#2 h"D1*JyJ۳>+V=^럭зM [j>6rS=K%+D\u(&F )8aTbAX{c[ޱj`rΦ{>1DM c <0/vZt,w,`Bm"sd{GEA|#O޿D>3_X3mc d;>Oqz&):008v R0g^ʶ Y&ZaS"EP2Jփe-B2tiC'TK{̵Kp$)]63^W3_ h,5ke<^)',KQQFp/59o.>3KJӑŐsknahHe&^\㲪}zWOu6Yũ[cq|W>XmgvfF˲m-[)yT"m~졼Gyز0|zઋ2Ep%k4۩UJ% 5ms `$#%f]!d<\Ux^Q?+W(0)>+K,DVM4. Ƃ CMZ : 12/10/99 12.32.04 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVM4(T,ALSBAR)  from draft TH preprint 11.05.94 =+,DOUBLE.=+,CONST. =+,FOURTH. IF(AML4.GT.0.000001.OR.AMQ4.GT.0.000001)THEN  DVM4=DVML4(T,ALSBAR)+DVMQ4(T,ALSBAR)  DL=DVML4(T,ALSBAR)  DQ=DVMQ4(T,A?vF4 ;[?kIJYwqo.6f$y{/n܊+7cZ[Vg/x(_2cIp;ٮ': NMG2}`[myVk?|^82|[M۠ƾw:F|u9 jYvS73ێw# -ex1aye2xi>z6ޒw놶T֩#Y+L7L/gs|s™yx<SVv~N{fКrqw6s=hӢjp<8]mhd4ΦLA.⬘sNhu᱿7䑬wעˉ2o8lP+NRm2aeKx sp/t}԰ *lmGR{^͜W*FίowC7U{.*Jqi'uNީ_i: ;ږO[]jMp28~|0mo;ݝ*~]"z.rvKbOξo*nS(,$SS# V~l*dܞsdx2rR8,u\3- 詙=Υ+bg ϵ_u!F3~f{ Q`>t< / r _dؿtNfȏWt y[E裒xlJiOa﯃2g+}᥸%gfW ߥNՒQ"`{~!݊mL(V |[uَϾS8ޥ^g) ". |+BR F3 PٖǣQ+l*[JFI=x_R(5]Z><=mjD&ji/|? }Bnc>> eEԬ {k𞱜B/9)_h稾p ΄*F7u+ G!ւ̅ѐ~0{ra˪ \> `n9%2,gV>X&ce+9ZR&xV !zT3Hnmv'ebl -Ӊ9gH|gXµ }yE^Cy{{e?a4.N0klW)wve(:%$J~'w]!d:<\UGxP/>+K,DVML4.Ƃ CMZ : 2.00/04 12/10/99 14.01.52 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION DVML4(T,ALSBAR) from draft TH-7252/94 preprint 11.05.94 and VAN draft 18.01.99=+,DOUBLE.=+-- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------M|nȑ xDRjɤLɣxۈcK@E,6EyfrJ{%`?$DZ`v7V}iǍԴo`{ #NyP9fvy&Hs]ۂK/G- @> 2Mtu0 #U¼=BnI03/i~(QR_jlo{~ڸ7giy{o^޲k/'۶yg9cIxFrTyxYi#NG<}`Y>њ640EFpLxh݋o[k‹rvk˼81dqm2wc g [QƄPHBoAA^x 93~=w'/a(sESUU|c L_<> )SH;?fa=0&\ zujC9cvڰYOSc]pmL&xi Ëzヿ+"*<Ɇed]Nd}%;^$\taX&VXxsaBE]\ ?P8.9}ϗ߅d>Qж&AV{HĕߡA8uqn5+Oq-ݭyܦmFtn mW0vZS/Cʫ_x^wV[obQv~kUq‚`?vp*t`i=O':Bە?O'#GcCp::f˟8.*ErZ ١ :(F7!)@m|x]Fȥ_XIGp^mEDq:Fy[Y轔xlOJmiOblo2gkmFKq5Jў62]NHFՒPT '?|%J|JXbox~yz+`::Wt6M瑏4 `xၪn ac7`XI!wXqV߅P[M6u0ϰ{1zˮ,X|A\ 5 kZRoDT4O&4{0uֳֽS\_jϪp#u+uէ>NI)L2OS1qeEcJc6 r[bn/&)?WLM@*a)CevxV(]Q!2շ2jB^=կ\{mk/ݣbXz#?kػ6ޮhtq)6n;-9 q#K n(&|Ff; K% I{^ʶ  W,ҫGFl$(~٢/dKv iY-]:ph*3<+x>^I i X^7$ԬP+K,DVMF4.Ƃ CMZ : 12/10/99 20.14.22 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author :  DOUBLE PRECISION FUNCTION DVMF4(T,ALSBAR,NC,QUM1}U]OXHK[1 vuTYUm$! xF$ݪdg\ ]K}sf|}G C  $y<-Cn6/ p]S( \F{::< ֆO&OFs[ qf^^k 9}:D_$kۢ`f7?SFQRW{עw5Q…%,u!Dg( n AsM#7B"lQg,a,)nOsTȍ>gYbEf-e6 {~l<$Iaa"'ȇ֮evbf=i&`r6>{U"^=!I=pxI|p~e`>=5Oo{`?g[i_\`ȏنKntgkS7h&A[|nԍ !Ŷc^{X^$AƘ $7;A\w+ݻm`1#~?)( ŋ2,3p:5i5g3g!c!4rli4|mߨj^po8ѳMG5Xb]s.qヲ#8:x[>"hVIQaGf_.2ʴ/)q\t"]O+,[yŹԓ?vUCŢj_Eao;ۣof=[|15l~l횭9o"+I+߹(uĹ +O(Te#ڝV͖eݶhNp< (~e|0N.=c+"W9ۓZ-ՁYŭrg `$mkPjKyrlHx ܞ>pS8,5J5-?q\T`5T}ʥk"vEMWmQ_^"D`6p"d _d?r N h+"D*;)eڨӡ ?/d. 蛦Kq5H`}2lj~J8EUKBHP7bۭئʣQjXo>c;[jSN','/׶?ka[;fgkowyuN Go@qdF7RPEou,m"阭ƀ;,&1Y]{T-bݥuwu= Y/xnСXw?>q2O-h\eb4 c@LM w! Q'y ,EPsG]<)ȎP&ɯLM M(ַj`K>,|TR G9u`r?QP,'C Xv2e:w-]tZ rAV/J lۑ{ CGn`sZAj[a M3gzOdגllS#A36șz,pn&nWE_aW6@ B !xߓ\>{U8O~ w[/V8޹ֆ0|m¥J`KilŢ0Y2jMe$A(Ke>-Bj*EPY-m277Wcfi %9M8d t&Pz]Zǚ:&fMkH#Mr xv "j5ʕt) P7W vs3nD3gQFjM҅9. \C+}NzwrpŻvwi?4l:wƕin)y4cɖBhU%ifZ;3e`j[m#\W&cQqGk6b%%{]S ر[n.}_<)~ rXq`04҇֗֏;02i"f y) +>+K,lt4mn50. Ƃ CMZ : 2.00/04 14/10/99 13.44.03 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LT4MN50 H* --- ------------------------------------------------M SN0iIJRM  {u%ǮR+Gl௸vh4w>)Wm pߙ:$ً?'v2/%)|̨ˡFS4UP]`4Mq-Ƚ<[I&- sT;(1sS>"R/[y7sk~>FkT=&[vq # "VdoJmL~?&ݚO֧n;iwCҭC.:4ZTl'<=O _3:iR5r3b`뒥FB|*<zTjdA0N*s܏e\^3(q+td0^KQYIs?`L>>+K,ltn4mn4. Ƃ CMZ : 14/10/99 14.01.17 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------MpXKsFD RJp%YR-I{VrI(:D_$kۢ`f7?SFQRW{עw5Q…%,u!Dg( n AsM#7B"lQg,a,)nOsTȍ>gYbEf-e6 {~l<$Iaa"'ȇ֮evbf=i&`r6>{U"^=!I=pxI|p~e`>=5Oo{`?g[i_\`ȏنKntgkS7h&A[|nԍ !Ŷc^{X^$AƘ $7;A\w+ݻm`1#~?)( ŋ2,3p:5i5g3g!c!4rli4|mߨj^po8ѳMG5Xb]s.qヲ#8:x[>"hVIQaGf_.2ʴ/)q\t"]O+,[yŹԓ?vUCŢj_Eao;ۣof=[|15l~l횭9o"+I+߹(uĹ +O(TF#ڝV͖eݶhNp< (~e|0N.=c+"W9ۓZ-ՁYŭrg `$mkPjKyrlHx ܞ>pS8,5J5-?q\T`5T}ʥk"vEMWmQ_^"D`6p"d _d?r N h+"D*;)eڨӡ ?/d. 蛦Kq5H`}2lj~J8EUKBHP7bۭئʣQjXo>c;[jSN','/׶?ka[;fgkowyuN Go@qdF7RPEou,m"阭ƀ;,&1Y]{T-bݥuwu= Y/xnСXw?>q2O-h\eb4 c@LM w! Q'y ,EPsG]<)ȎP&ɯLM M(ַj`K>,|TR G9u`r?QP,'C Xv2e:w-]tZ rAV/J lۑ{ CGn`sZAj[a M3gzOdגllS#A36șz,pn&nWE_aW6@ B !xߓ\>{U8O~ w[/V8޹ֆ0|m¥J`KilŢ0Y2jMe$A(Ke>-Bj*EPY-m277Wcfi %9M8d t&Pz]Zǚ:&fMkH#Mr xv "j5ʕt) P7W vs3nD3gQFjM҅9. \C+}NzwrpŻvwi?4l:wƕin)y4cɖBM;"7,WjN2$;\(QۗTD~//+}jPŎFpu*QHSÊS_>̈Ĭ=?~܁Iɕ5dp,KfΞ_>+K,lttest. Ƃ CMZ : 05/11/99 20.57.45 by A.Rozanov Ƃ CMZ : 2.00/03 05/09/98 11.25.05 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.32.35 by A.Rozanov Ƃ CMZ : 2.00/01 17/03/98 21.57.20 by A.Rozanov Ƃ CMZ : 2.00MZ `'YIsfў* Xpc_R ..}Jd<ت,*@lryrqPe{б3xeƌfZ-c]Wc<>of9czcC?gjfU+L-xXNt2pQՌ/ 3̀gVI+T+3dA%qo.r:d3u;~]c~볿=$z,ɳ_O'm3toz]8 ҜZR=E-<@>N)'5fЈ愽6Q:Z@Vu[*>i^=cՅ Pدd7sJj(ZOYNhE {(i5g/nfvO1(i\oY`ؖk7ۡoZyk!rր䞽\I1 dU=#p)9C]c5*wMܐ*T ҿ&kwi{Hҡ$O ]0h?/h 1+r-.7?FC@{0ۼA6+q뭇ǎ.V4EU%O 9(;ZCLt}C RT=s6}G~O!gyloNPM-K_K"}\/m'oڒe?VjO=]POH}G>iA+^X{95<ͱVweA70弿сY*D?愡RZ˟@;{7nfo7-Bǰu6/IVg%YrY%E&Z"CM,'!ìhC\)29S1*dI$l Ìd1Q e:$١FDtdLȇ2uy>'ÅܶRAm-u:m+ri:Ka7!^Kv2C.iz=m| &ÄuBrYW^Q*rLп:998rN4Psdi6ΰajLys4Mϣ:šolfsS]'0<c@mNć!K:rI'l&B '1 }O,W&ȄW|.TZ£L*7ڬa^G-y&&<ԼܘXI)Ϟs?()7Opd(f7V)TK)ꨶi(Ipўhw~qYy]˄q.#BEsx%S{ɡ!feGP\;ߠ!_ۀ'zwxꦞf w&H'zTp&ŃK{>>OfJ;~U=Q I轀{b9-fo>ͫ*KQĥ>8Y41b詵L}P#g9רjdѻ]SuE蝉7sAqV">+o<ښjD'RT$hJ+lS1HnB2kn Ef#1XJBRer&p7@]k9NH ]`xnOZoĒo%'?6 ᅸFٛQl>]9Dly.3*ɗM+'_T&lDփ^Q$EF.T9/ G>Hq~~%9+R;4y"{Kw&P9h9Wo˜#~ދ^7 /e7_2(+K,ltn4m4. Ƃ CMZ : 05/11/99 21.15.54 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4M4(amh0,am40,iopt,lvopt,nopt) H* --- --------------------M +Z[oH8y(ʑ-YZܠO%r%dO;kQ ɽIDreΜ|;V'꿖Z "<zLApͭS{W&)DdIzQyƢ_/i4:E*(RyiՄ.FyII2,ɒ.z8I&f4"=^zvV# y13:d\-$S9Qv5*hth֊?SzB^*ftz1!1ںóZ<ڎJ@_뛟Qos}/EI0=A|,JunR7w*^'1k?;|ݑ/:~T ~~8xqv'x4 =v~:=O蹈&8)9Yg/̎G #9`I2<z<:'H$h3*K'ǜ.6Qo6Vo}F\JKA7q ND>WCjeHI$-j[k-ϤQU1˔eEC}YKV3j,) }Gч-n58WIߤ6mfC{LLP5AZǩ0 iLN1< # tXd$%<ö1jvK׳k#/]Z(-,=l[3Kڧϸ_nnZŃG*@J*::)FN#~}B-M4'aZP4ڌ_v:>I3'K|Skjƣ'Oaԝ6m)O9 Ig 伞¡ vM,7˓]$Bǣ,Fb:dAR]˥~̵a^=2Yv}[#k]LkJ+""$FhEQ F$'΋y@hĴptߞ0^ǟL8v8hdd9OxivZOJ?@ҐO956œ vR J~1^dxp`oQ~6+ L4p%ņih"$"/ֻx;M,9/nIz6:anm'cex`Ɲʈ)~_R1"a2ckUQ`2VkU-|<>X^MzD]d?߃m o4\=RNő\1>~[GE<nܠ~8' TJ3C硍}Q^ ܀i\:͋J[鲶Dc"ρqڪ--AK0%ްo}oͩYig8b,n]'}^ɧ4b,}6i җE6.3  vG<>OK+yvkQ 4*G YҬ^5>iiZ2Ww]$'wׅ1{CVQ\{[h7EYL|@/K_6vv $N.&iʄN^ڂkb"%z),󹢦[G Ht5` prs6SiX9/q5Ɏg?w55_!klSoUL#nm]` |(|b8M >Շ֝ \- i d i $-- >Ë&Wwbc7wTs=N@C V4a<"ͨLw=ghyP9jVt jbjAጦ<(&:`4Ґ_ x:x~烛VwTMP%TqB= =u.aWfEkmծ` k:kzZ'Z0 dU K|-ߎ#Éw;g_pZ8 =iso̫r ,öo.ElE~Sxs$#,6G L'fLJhM5fSF?-Y(Oktbw` > n=gkS\h,JjpD9r>Θ.~(+UvILBԹ%MW!ޓud\j˨Y7}&'gk;S g6p#kqWe "s<jCМ/·ef|ъ#4&+\x[ sf9 I/7c}JT?FWȳp!I>]ʎ7X{p 󪾽3ئoR[g>+K,LTINIT. Ƃ CMZ : 2.00/04 05/11/99 22.14.14 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.19.23 by A.Rozanov Ƃ CMZ : 2.00/02 05/07/98 19.32.28 by A.Rozanov Ƃ CMZ : 2.00/01 18/03/98 21.07.32 by A.Rozanov Ƃ CMZ : 2.00M):rX׭'?"뉋Ľ"3LM+Kv\]=1_=#HHWWQeKy~;y$5 r^+kʪQTGOڻm/弮kH+ϡ3@!5JsZEվBt՞Cg^APC?%W~Dq ja_U-RK{=o6|xmw@ot'iwADi /=KV㢣 xs8Oߝ{sڲZ^mk٤*HI 9uؾ= ?[d6>?@pgܵ:joq n9\Ν|'`6{Cr]aZQZP:D?> U@?ӕ2߇ϟIw 7cI(׌#iY)y!u}7ҾaW0|ߙ1.;?ZIg^Oz7p. ^9;kgaz%MjpԽ4 6,[<Hvy Oq22OzL6kdӣyN?=ҡ$up6Cq°ζK;؟7[{6kt/9h퍛2 o GxLA @}PU;gYɾE=Pq r/l1]9۾Mdv-rR4pJʪX9$//N`~w tVDݓN? E7z!nloY翎~aP'Qq`,{\ jE{>G >ql%#LW %;X7bsxOFDi[6Y;u(>'42ew:nPs ad iši"m^ΐ =Qxq6!+R=ndž݅Cv'clLKTL!Y؆:yYq{xgfKPX}w% KEos| }}n5AS4,|{qeS:oo}|k2%ͧEnJ2NhqZ9atᮽAq'F%S ͽ27=2ٟ_\{'9sB{x1aBAKMh4`Xvw"Sz_1ޠ8ZQJ?ŧOl+=^[z7^UTlQ}ǕyϧVvugULwr LEMn6EI){팶P7FQFǷ+ga wl{LAM ,[睋l2~i$9o?4Z.4դC{8 ɑu6) G-ku{4^`5x`R*'t/ZAյ_"87zjC~]6r)ҾI2h67)6HG ٭`#meYphf<=dxZ )>|PR@Im\ah1p]͋=~O]) 9{}&a׻G٦oV׳BpVqg>~)ZswyO+fwN86hnldYwj88vѤv&f&W$/3Մ59=`|C0REF 0ҙ{B"ݸE~Tvq~B%GxxCp#Xbp^\؈s+!ỿ9EuMwG='ˏDOgt*IaܵzRhC%V:WP=:WzҞQ@ц<_pl\1)8d~%BL>k9Hj9%MO|vޥb_ ?k]B@Qf>*V(ժRR;0GlTjJKoU=MgvNI]Vo_}F,Ż$Z)>(.߉&BeYf|*[Zi*>n /H vGMյGalzk>ZH#[<_MϽ5s9_ pW+;whx*G^aW#z^A᳎gEʕ(>JB+pVӀ>:ጸépGpt.TkJ\n%[7-˫E1rQb!Kq0X`G$aiCKڰ9?gl gRHΝ +L %Z{1u: ǧJr3{c#?`&߼;Νp^oF]Y'Үx2~CU<3MG藅wWa殮I4U}ooOZ S+WDŽ@|T.U1--ĤLT q8i ߓw8fB騏"`A@7\:X5\.'#ҍ,MguRbCXc8DTC[0q&cxIi?1 .v_;n:I8u6# J%c.}{`n?8 &x2G٪ck/LylNz%u`Z9] sY]k=oa '/$dLNR8 ]NGptISA O~BB *I9z!Im8bJ6^lC=$k=ľg( 9O{k֯m`AMcXF6|KEky7'FN/gϺbGӆ62as@(b3{b vnÿt#{36|XE#i!?%|!>p y/#"auAfC![ l8ЧY,fPnf3* Z8 /(ShBbJ Q zG^9"(ҾIҶ el(MC ڴS>ͷbx 'yRR]{52BG[1͖XPLyfZ y#̈́LnҝkS7lTDFjPHP17I#<E](=2͗'7GRS>+K,LTSUSY_INIT. Ƃ CMZ : 05/11/99 22.14.16 by A.Rozanov Ƃ CMZ : 2.00/02 05/07/98 20.18.46 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 SUBROUTINE LTSUSY_INIT(ist) H* --- --------------------------------MrhTMo@ m.?Ln$,%đ`b`Zl*',l'شjC ǹW]cQVj`73;P.v$}.? ej;EE?&l2\q&b^ |_b#]|Tk>C@qYO/Pp @C]Oz #q',:OYM؛Lgxac#!Ie)pr?|+f15E?U$G (B$|;mGjo}γ߼#ddx͒} dNtܳlT:[,XEڸǹTOCnB/`B EMk{x" I8o\Xf_ @*%*:ʡC s ǠcXE"=pvhYüG3viJM.nA8sZpI k l99PMV*2uJjim;Kߵ5_PN IF%Hb-Q*/9vQ%!**AƉ?ez8#+w-ÆeBf>+K,DSUSYLRVA.Ƃ CMZ : 05/11/99 22.14.16 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 20.16.17 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DSUSYLRVA(T,H,ALSBAR) H* --- ----------------MSMo@f;ҒJ>qTiTڛdUǮiRDŕ\_1k'NKFQy> В΄u8 zǽ:*qzO%(p%Y4nPc8 4 7"|=tB/ }[Yb0Bp=ZܻLYΩOж2ߧ2qlȨX( kd=lO38p:醗N~YN#퉪mgԸؿqv>{q׼_}P2My\s̲PݰwMōN&ᑽWx*pS\fzq S ̆"&&шIɘv5VӮ-AJƱaZÞ/%Y6uo̱7lC"g9a(N 1o+U[ic^)v@%9+%I5n] e?l P<܃lQ%P,h /SP'/#Ј2wD#,V&cx9r>Vk5mk}Lљ,3 :7L77)StXZT9O5)'$Էd+K,DSUSYLRVR.Ƃ CMZ : 05/11/99 22.14.16 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.50.12 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DSUSYLRVR(T,H,ALSBAR) H* --- ----------------MdSKo@=$az#%.D4P+:mВQG}YCR voZM~Ie!l~ 479cubi@$XJ ǜ?O"}4WTp8&girKCBM)8 8)(Mۧ^Nx1hSc]N=ce5C"sʲg>qߏAJYiVc2bl+Fxo9շx+5YDZ 4a/fS3[mW }[ eX4Ralg<ߑQbNMH;z"Tch8_*WPOy!ZLLuW몔 (e VkFMD(qJ蟠_Wkc/&me @*nmRJۜtc*ڶ*ɏy:!y TewJźj,eKGK6Y/E%V]y,@N8D]TJReas{infPb%#|7{\$Mb;5 hw PA}.h@ë\ ^K1Cv Y!_w QӹzsZݪ ݣqGNyb^Ԍ=X5'>+K,DSUSYLRVM.Ƃ CMZ : 05/11/99 22.14.16 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.50.12 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DSUSYLRVM(T,H,ALSBAR) H* --- ----------------M2,SMO@H8l' MJL8{I,yP-TE J-Jɮg7ִ^҆$uԯ@)*n.M4p W -!cpB|>?~!w^稇1(r& )з@z> x8bp ]c}Fҗ& >pQܧd]dDaީX"$oo+G8!^W˞ќJeeT^tFݤw1DZ Ta/1WeԾ_#781w2W8FU|NLm!PUr_& tQ={g<^[ VmU۷vI'<,]h/ң_ZBS^[/l}\N׬N۪w@FL  K`5N݁e6k4ƒcSB4pk _gIj_IOUAW 2S`FYWTĬ,I&~2NTҰXS)зF`h1t,"q)'u-/]X1ˤYH*ɘR]noJ'f= qs|lT*-fVWi 0U2%QAoeY V ,0S}wM.yY᰻$:i1(+=!;H3O3>|QO.L Pk>^ l>+K,ltsusyput.Ƃ CMZ : 05/11/99 22.14.17 by A.Rozanov Ƃ CMZ : 2.00/02 04/07/98 21.21.03 by A.Rozanov Ƃ CMZ : 2.00/00 05/01/96 19.19.02 by A.Rozanov Ƃ CMZ : 1.30/08 22/02/95 16.28.16 by A.Rozanov Ƃ CMZ : 1.30M+4 r@3@ WB0K%WN(!XJ^FU/^ 9`z zα$:iYVE*w+-U$/A?ow;uh5HT<Ss=\ZO/*pjF{FU]Qi ?rIWsBit"_n%THVEA|a)mlv&jػ6Q`g׊~\ub_X$VSxDO3Ɛ`kUnZ>}#f)[1G N$k,9{²n׌悿PI0A,`klCkQ%:xϯMpS~n 7_[!φE\>f\C8k֌V]@|һ-KX\!: E i֏ )GסU%UrC~ej4l_~g 8z#|]HzOO\4%}gӛߝ\Mx ļ<%I[Q:hn(VZ~'AJP򒐂"'(G=%X=RAC>+K,ltobzor. Ƃ CMZ : 2.00/04 05/11/99 22.14.17 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTOBZOR H* --- ------------------------------------------------M_ ^/|VoW*T8^|HtΎw?>~pQMzCBdhDu`1,iް{99/Eϋ='#$oB'XЏ"l>n}蓠}'b/z$o<3?mhoHuTķb AW1quYӥ|z }$ʞGOLB_'k خx`YNaLժS5蓭Lqq0ir 8fdlP0ҞQҴE,6~30{}o(z\<ܺ(GQgQ.>vZ=j|z\b4XbF!JCG,oCLCn-;ƪjÈ Lp<Pqgn P諫 ? )E.}bsvx^kZNXu6Wjs&ʭX+6Sn:?)H6/U,lA3ȋkAoX ߄xfSȡ.<# p9FHdtAxzւx>3A9?<+.`d% U>aNH?б?thc{}`nƪc eG 8W}p,U`nXZY4C~YFNLx:([qLNz18/'# wR6Ǣ?.pkJI-oųpKI{4T@{e0jo jOA hEïI:Tmtf9nMmt0!>Fܞ">EםF_bE( b ӳfr-ԬŲ윝f2y^*3`JI"Lb :pme*)?^%%xU0Sj|}B+ks!ݑ>ũQr̪XK/u >`A0*gђR㥼X@[NGD@ʺVlZr\uHyI[_1 sn=f?&\{Ej 9dnK \Ai k \IOB8'}Eyj-BeD0jd"rR!&pLȶedr2&v7ow:o-؛\bȏy ws֯ CVn祤Kp^2kR8Se8Oy_Lrpވ_܋t ۵+4ꕲ JC̆B8<\RV9ԊVVko뀏ͭuDPsdN JE~̒+XRwWc8WRܺ`;̴Gu=3 2͡smA/>bmBUδÏiI%,Ʌ3lNf϶υ?!𽝝{;L8>D7Wry3oPb}jҙOx. }\#<"F9%G>&.X֍2,3| nz!E -ׯRzE9޿=V7 [YP4fysyoL ,Fe @941wo3e.3 ݄ant]s|oBٗ4JI]/"J1W*dvߺ( +I4kU| .Brk!WwI‡}9 ِ;E/t&,t, BH{#OE}WעYzq D*fJ JU Y(_@3-HǓ)l`:`b*Bp{U2/*5&(JiAv q_FHNhCb|!L L2eʒ i.Le$S]cG0}5QzCT;x2b_Y>Q5CAϩ[Ր&EVW&aχث o0i{&Wդ>ҟ`ٵ Xڠ'je(-T-1)}wb(6B(2+sh[WmKzW kc諢R_;[-uYg)Ur?s_ULV7AU@e5]`re{yVnȼ&&~}ޒ&`KL638``TM7h*nMp 9:;a"93rUuD&!ӫ ۠gSP sKyqSߑsS,4P~cNq>fʝ۳ٯt6[W2[\klx<oU\x{͍D8%W/x m:Vޓ6Y#¢7ܞÓ%$>+W'9MΉx1JV{T<ܞ#S̲B v1W$B9G^A^\eDmt-Sf Z w{z(S>30XYy瞅3<>4[oI5H>d'l^Url5ml pHRZoϴ4⤠n8Gg0{_jX>`YS׏ g=\Ǣ|n#lޞvEyj9 DZ118b8\هuI>noSWqs±ԟ`WEg*w/1WW`ηљ#QƃwsKhoї!`4~mz(CoMU~3U-Wn۶ƷMnWp (HO4ok2lFc[øÿp2֨%z-nyD޺eǫwrfAy<9z,!g|?>+K,FFFLOG. Ƃ CMZ : 05/11/99 22.14.18 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FFFLOG(x)  from VAN draft 18.01.99 =+,DOUBLE. common/cfff/s,am12,am22  FFFLOG=DLOG(x*x*s-x*(s'!4_)!8 'E|2x(oK'A=Ob>n_RHl[7xr%f~{1X-꨾o4#b2붳KI.=;gON^g{x|Qr߽SY3OΞ=R?0Bfi6 oZf0b45 k }o%flz(68o. Ʊbv eC^W\X߆ZPwUԆ^%x-qWWLmZS\p_*iִlF.L 2r?S!/[#HݱW{mtl#0I Rl"=^ X؂fׂ߰f v C]yG6(sx 3 u:^@L±~/rC)7~8-4_2?%Z1NA]s6l˨@4xޣ|yj0jJpJX7 v3\l"W*0phw6HBd b+fS;u+Q"\?ANLD8N Oc Hd`x-(19yOS'T ?V>0CP.0ed/( wDZpa܋0$I*8RȼsmT(o{'=ARʋ/3rBXkY\`zrz U;2ã`˪1R gjyc'*h 1U㿐?(bq<v.]/Rw'W~2Ź B# h <:f;:Lc6|\3hB94#WN=99fqm7pWdjck )P^<\$⁐&;s:C+1ue!/Bi7̶9XaHQ|RG|fsxW\KJ}œ~0c$>o0_܌UʎqN Xө/Sl\piFtQ4bx(&:u54GúdhH#S)ʘ-"]P ͂z%4PJaH2"E iQзUqllMnֵ L!B\QM҉Pq(1*%,e7,ADG]o й tX@\/,oDT81Gjk ȁjǵҷT#_oA[\k$l!\Y'V@*O$a YbNJv9Ӈ#Dh"4`Q_DgQ7+6LB^U9ب.bKcY|fqE_O|G2#?<99;>l0E]x,Z<[,SgZ+NG>ht>(zaԞd4_ur]s.ݚ]%/`B}*΍=E|(3;>JP#eglZYe)9;d0ĽTfZ$^E*p5uY,YU!TR\GJJ$aʧ0e NWB#% }&+(FߋS N'U^ʋJA.|`(UJ :Ϣ%5%u#KyN5K򡵁uyCvX9xW+b" Az"~&MۋϹ4f8Csj \ɠݖ^ A< m>4p<(NԼ57Z\s>a(n|}E֥0B8Mf#m+ʒ eMoXu֯߸[7 !O _*؇BJ+KIn%ἒeւpMpڙ ,=!8^kW\*i+ev 糏2q yr9ފ3[&'.`Ȝlm==yZ[;=% }WrIuᥲ7> p~uU63wݙi͏z:WW5nge=:elCڂ_}^ڄl5ܝiӒ>KX gb%pe ̆m? B{;;svPp|n7sgߠ2}%}fդ3\t"FyDsJ|M]e:l; Xg &E &C[_s{pqo홷N^ h8: &ߘ87Y*2A,r+c;-ޞg>ML]0gOV ܮ+B' /s i/^bEQ3#bnU2=uQ@EWiVת@0\ՅC@ᩅ˕r'3(!w _!>MtYiY@ Fޟ|ɋ,/"1:E>h(};@ TNT=TGQ%g:M[/HÙSu4 U e<^TjxMsQĕӂZ⾌^%B?x^GIe2ʔ% k"a14\UmM3ʶ%hSIǧ7xװnvL2[}Ƕhge93Ax5eBc%޻]c ݼX{(1zFBfێlm>%$,9^?CoT9Gg³zq^&Jt9Q;"z2٪V#/{tA~S'Z>XAoUuk@q)>^ ibVq4cʗ[}ѨG~NBsy w6Xdq{UbE)w ±MoE%ONqJ!מ&/1 %4gPu=POJ#"C .Ӂ3KDa*OApq|`Ij,' ay";lѱxM )e 2O0t Ͷ0r=_7?ݎP|>vkd'|ikꇂS÷!=MBȯf LžW#89`MI} ?2 L78^kAO*?щ;PQZZcRPlQdV'жږVWEg*wַD[jyR&3C< 6_)<7p.!n;\wkj Y<:VݐyIML%ߗM*HTQmf**@-PqoTʛruvDwE<熗>;.0#&ǧYni4Na?4ǜ,|>SU ;g_ld,%{3׶٠y$(Lիciy>Yr%I]co9 QB\J-!O0g8d3[%rdFR~~A7~Cލ>G2sLsMvn8 qш߭U4[qanr2WByYg{ g_\cGc(ym>&otgY=Uodd~}gmuN>, râ_֞)GZ_ѦR}*E8pJ p%_2t4ħ'm4GR-EcSo='KH|W_.XwOr~so cÕx.=G.eb I*7r ʈЯ[*V8Q9n}fa./= )gy|h&͓.nkX|ʻOٶ|!'jږ7{@i iIAp n`> kXՊ}9{EB9G~6پ=C>?s?bbp,5Ęq4 7%|ޞ11p3Vc+?23ƿJ}U_cto3Gn?!%PU/C)h<:PLg[f[ݶm uo[5ݰ-PXߟ3hިגѳeٸߍ0mpqKQdN~heoǭQKZ{;+&1u˔WT2$> xrX$B.>+K,lt4susyino. Ƃ CMZ : 05/11/99 22.22.41 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/11/99 SUBROUTINE LTSUSYINO H* --- ----------------------------------------MfTn@80=vRA+HI#ҤjSUpAdZu-?wNV̮TNdx~>|3v~~v6ل! a0>=;}nnpc9̫`^ټlxL0Su3b j$TS)yRi-`&^9KҔ*qSpaQ5IXb[l``;)fxaik WX9F;A4j\wP%Ӏ3>YйoA wq9,uu)Q>,9;=^ :=s6kc2:G?8x%6kMk-rGnzdjQ1yQQ{ фQupºMQT77=".,1pYD\o*+XRulubmfEhа_esE!}Ge1|+K,FFFLOG. Ƃ CMZ : 05/11/99 22.25.07 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 ------------MgTKo@8az6V!FIզV&^ik׭<#8bTNdxg^Wjo?;sXzlB' a0>=;}nnpy̫`^ټlyj:ϙP1-)Hv 5Z%pp~ޫfqy0U\ÌI-4eDZ\AN~Q#Lbg\r@تg{ɒo`b,}:uM{c;Hêiq\28>9rK1弮.Â? {ŠC;g<&q4+K,LTSUSY_INIT. Ƃ CMZ : 05/11/99 22.31.01 by A.Rozanov Ƃ CMZ : 2.00/02 05/07/98 20.18.46 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 SUBROUTINE LTSUSY_INIT(ist) H* --- --------------------------------ModTMo@ m.?Ln&H{0*8-CP%GMV=D8klJffJ?Ҟ$/=0mgA `88{1;6΁L.+@K,DSUSYLRVA.Ƃ CMZ : 05/11/99 22.31.01 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 20.16.17 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DSUSYLRVA(T,H,ALSBAR) H* --- ----------------MSMo@f;ҒJ>qTIT`Mbձ+@ZqQqW̮Aadgg罙yV6'aSZ򗹰 ?V{V_9 N#/ 8r\yG!ߗFMrJ☺< _9~Mi!⯗53Cq,?TF-Jcm|,Qme@=m=zȜ%|AO=^b$lf7+tx$q:ENb,'ew=R]V=.ׯϞy\'W[[xZXi~C h흰a=o7 N&}YA{lnYЃ\EXW DVM:MK eVgڭ]oD[ôݾ%Y6>uOqϰ7L x3b0V|f+K,DSUSYLRVR.Ƃ CMZ : 05/11/99 22.31.01 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.50.12 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DSUSYLRVR(T,H,ALSBAR) H* --- ----------------M`SKO@z0NbF&Ry rL8{q,@^C^88A>)7|3wMA_&l`@ ɑa2y af`W¼>yIԏ#LP0( 8qS`w1: D)18#x qx9fdЦ.YȻݼ茪}ڂ{ا~3l?Kx?K\?x[(f|eGkַS6ƖQaű81\#~;@ Vb5cފj;+XcI \6ʲ_X|G.ĉ՗;5=#UFP]cPGƖ6޷Uv= `ccا<P-Tdv e4PHP. ` m V0EK'"{b%OЯ)u|s;/'kc t[C.nѪ kcRU<2-EW WtYļGWһ~}g'%E^uf4Z-[}#^ &fl PaL|IJDBOeac{8#\@O!"v\K<3z0y|6]kovpkڶDq.;,ZU/|IkL9d^yPg0*|H@{yv(k{9>gXd0Ҟ~>+K,DSUSYLRVM.Ƃ CMZ : 05/11/99 22.31.02 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.50.12 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DSUSYLRVM(T,H,ALSBAR) H* --- ----------------M0(SKO@vb;ިD!/Pb`%Hl[@=*C: *#%ov MYYWuÎ s@?^ui OF\nqM.q‹IaZ ^ܣsD{KA2Din2c(-D1vYz]O τ'#.*14̉ 6ܗ)2 R?dq2blf+7^So[ӝМ%i_lFw1s T`/f3%-˶iٌ}"7x;+$ $cGƮ\:B/;r&}>SGg<V]U~*4vwN.caw/-|CF藛*VpR26 SiwzUrjhVϪn_C CoZ؍\Xc҇a :e~+9eԫٮ:vk=-2 fLMG`3ʜZ^0*i= ``KP$RM,P=Z[fn*-QA@2JaqHNբ"i.U̐|)k`0A/+8Dr7]<1o 6BLbwk*._U{2rW4eUF]U|n O3"=ZqcA3$*iε4#1p*rxpG*7>75uk 3{6-->+K,ltsusyput.Ƃ CMZ : 05/11/99 22.31.02 by A.Rozanov Ƃ CMZ : 2.00/02 04/07/98 21.21.03 by A.Rozanov Ƃ CMZ : 2.00/00 05/01/96 19.19.02 by A.Rozanov Ƃ CMZ : 1.30/08 22/02/95 16.28.16 by A.Rozanov Ƃ CMZ : 1.30M*0 r@3@ WB0 aD+2 AVR׾Q }+&QwݓҌj.d3OU*)&~΄x:!+*؊8BUa[n:vH[z7a[MC[*>u`v@M^wEt;"ȕzC0p{TQ1cI Ҵ@k?&̯+-:IV(,<P]ow;j1a;)?Sc\tjKwtʟWլ>qlhZÏB®Tj8-eK%Rp*2ev :0RԵVI+L5F#]hF 3kE}7jy Ǫu c)V 1jMFMoD*$D['& 8_BIAYa1eW%弍Nl+5h*sQd%ukh&W񘟇V4[+p8^+|v0@y6ܔ F0л9?oenJ ں5ce;R>]KؚHֲue֏u%C]/ ^/ [pXYlI ?oUmܓRbbwyx9r;MH!})pE`5#{=5[xW9Q60/BTEQaT(:oꚝTIa"% =9QO1^@g>+K,FFFLOG. Ƃ CMZ : 05/11/99 22.31.03 by A.Rozanov Ƃ CMZ : 1.30/01 16/01/95 16.52.48 by A.Rozanov ǂ CMZ : 1.30/00 10/01/95 18.34.49 by Rozanov Alexandre -- Author : DOUBLE PRECISION FUNCTION FFFLOG(x)  from VAN draft 18.01.99 =+,DOUBLE. common/cfff/s,am12,am22  FFFLOG=DLOG(x*x*s-x*(s+am12-am22)+am12) ; C +PA TCH,//LEPTOP/CODE C +PA TCH,//LEPTOP/CODE C 17 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DSUSYLRVA(T,H,ALSBAR) H* --- ----------------MSMo@f;ҒJ>qJ*ҤJ\*r06Yձ+@ZqQqWډRedggyQ^º 3a:xBaQE0k@^S \ qp?NMrL >_2( K_-zgB4o \&n>Spʧ|\h[r0ߧ2qQ/kQ3Ȝ*|͟fqu / |gF#UVkO`q|8:;p?ye=0x+S_}{/eauvMōnobY{h \4a5^\g2kNhҤdLrYvi=і|)@0F/KI d(ay][eLz~:PsstsS2EE*y^"~Bt)&eudZ#,JlTcȉw(NK*ᚖQUB^ʸIw^rfwwyٱXLE.>+K,DSUSYLRVR.Ƃ CMZ : 05/11/99 22.33.42 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.50.12 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DSUSYLRVR(T,H,ALSBAR) H* --- ----------------MdSKO@z0NbF&R΃McP؋cnІ>' ZFJv3;|L6'aS򗹰 C=$Ђ`|dZ/-ubyH+a^dy̍$(/r8 C(pػFaiHh7Ƅ:!9'7 ~T1omeyy3Ɍ|(> f3!rʲޏAR41F1R7+rhsϩ6vSXX_9sgɂhJ_dڎ V6Gl7ʰI E>cɲy|G._G՗;59#TwFPF_뎆cƗ6ڷUv= ԃnzS Vp*R2+ EJjۃmhKP{{XW 15yblkvvbrs}k[uڠfaIUTI^jn˺̧&5T<:R ??<*a.U)IؙcTm6;>A[t G^墯>آmM鲫ˢUu"}ՃkkyrJdm=b=XړUO-->+K,DSUSYLRVM.Ƃ CMZ : 05/11/99 22.33.42 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 19.50.12 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DSUSYLRVM(T,H,ALSBAR) H* --- ----------------M8,SMO@_ӛvQChPCS"$q 6TEAvd׳ޛyck_/giS׹ ]%$i :qf񵜴ԫ&[vk}%/3 ftEE`'DLe* [5a }; ')C"rRgQ0 +Fi4KIe1`ZK;٫5 OsM/\/SN{`»؂Cp>|}ҷpɚϣYhOxEL;rqeeܫѮv{=LJuD2,O5=>y{/8/0vD'-%>d+K,ltsusyput.Ƃ CMZ : 2.00/04 05/11/99 22.33.42 by A.Rozanov Ƃ CMZ : 2.00/02 04/07/98 21.21.03 by A.Rozanov Ƃ CMZ : 2.00/00 05/01/96 19.19.02 by A.Rozanov Ƃ CMZ : 1.30/08 22/02/95 16.28.16 by A.Rozanov Ƃ CMZ : 1.30M+4 r@3@ WB0K%WN(!XJ^FU/^ 9`z zα$:iYVE*w+-U$/A?ow;uh5HT<Ss=\ZO/*pjF{FU]Qi ?rIWsBit"_n%THVEA|a)mlv&jػ6Q`g׊~\ub_X$VSxDO3Ɛ`kUnZ>}#f)[1G N$k,9{²n׌悿PI0A,`klCkQ%:xϯMpS~n 7_[!φE\>f\C8k֌V]@|һ-KX\!: E i֏ )GסU%UrC~ej4l_~g 8z#|]HzOO\4%}gӛߝ\Mx ļ<%I[Q:hn(VZ~'AJP򒐂"'(G=%X=RAC>+K,FF 05/11/99 22.37.51 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 20.16.17 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DSUSYLRVA(T,H,ALSBAR) H* --- ----------------MS]s@Zp}KB!ҙ<ґBR;& d6|(ԱH}BkGw={XC~Ie.l@O)?hTW@IS\Y &9&aH~)~L)W˞fO@x @1!1piog3HFam=|ȜD邃z#i%AܿEt$OG^paa1*ʎZ}++mgGb߅6.ü9x篃E NiV흰n=$N"y#r %(sa6W?s{II*ĬHbQVi=ђx)@H7F/CIud(`uMSsloi #]YMX$<\ԥrt/ ]P8 7%I4n_ U ^y٢IQ(O8Xn0>!;Q;ch_31^VM1L9jeGת%}(Ѫw= :ffl3OQkD"KďFLEH,RVDEXr#-40ř')|h97yV|P?}o4>]mk\>EջhvL OU>+K,FFFLOG. Ƃ CMZ : 05/11/99-----------------------------------------------------------* H* Na H*M8;koH>;Y z<$R.wAI I)"e9f b,!zx%*a/}t_rhdٓGꪮGWWW7/őۭwλ?nl4Ev2,~Nc5_`}q1]H$?_3Dw`oC^ϧ磩g1[P|2tzJƞ\_o"_c#/G/FXƣ۟pd 9n;nXk@sG-}|$xw /g>>vGw͍{B}prޟ`&.]7wCxng;1Mܟx#.Ob(xx_ðXs  }4n5]`о0yzm{7լ6=S}R Sq]눭MĩlTZ]OHZ3fGH\Ukq}p ܰr4I+wy3_bFAcA?/9̊erDc*$߅h b/yǥ?#Z4G""Ŏ,#αv+*h [(JǶPH9fW_|Lh]WoDUWV^ ")c:W_0b~֭2 yY˺WL$qvGS?vd > LFGK ?yX;w[7l۰zuQ . !rD~۰@F (р?!y$Ge'lv֑ #}=%f%s`4y~. LD4?^nI$HB(G,FU&&cZALDZU2IbNxaqXjܪq˅M} UʭĢWb)%b/>[v&9 /[lt}PU(jB)2i_exZ͖rNoȳ=֝^IXTtWϨ0UHN3qDDŽI;'L͉q|67rD'̧aNY٧5ɥs#\b{6edrq1bMG7>~⧃| SLq5_Ǹ;>sfVAQm@Q׾?džbPƭ[QGZ+Yd 25% *(ݤuL]Ebx!c*R]]ErU7g$_j((u_9fRnz `h2CȺ J,EIMzxGtm0[st=, ,+ژ8&bPXB:Yt`zXVXVD *KEX'rC4iSTâ̘CXauPO‚*ES >9F 5 klk̨k-hI]oY3S/8az %Lh^Z?X/J0}QfL0Knݮy|V!/ܐNӝz|t><ξuF,,:Pc '=,1$Re9ô2A'1ES+4P#_%42V}6T`n$%}Ͽо{ѓV'QR霡J-Cj3k1>I1j4 >"q@!0EL$."!b%h̋ HF&#^ /PDjk a1O D*L>3%0]NIyWKRCHC A Zbb, SH5I˾P@[51eo5%hI$"_p ZK1D$5"AT"5C/4h^sNCzÔ=Wm2? b- ĘZ*r%(d5,i MA> s1:9r,c ǨM)e(= Fnh0 ,WڣP{H`,y_Mذ AV"qf 8#J$hh< UT3c8x Ro+q[9)Njy6TT14,\(< m:Z@0Tűy4):|S-9%kb'@NN7 x^r:Œfˎ.jР4J$q9syڣ^/C?铳 lS3~'l>m D1`/ FӰ%j[QqGKo8$lIġ us!9g7jbtg__}Xs dz08ey D%nònrR1?- G]YmMÑ<{jPVxQ:LJy= _wJ`"pٜEߍ# X4%BiPpm5%JF}Cpȁ3>TTPI6l8/T>( }j͍G9rq_nݖC>mЧUwg`牜4;p_ aN ZӰVOi6= ł#{츎rKgC Uۃ#y>+$ǧU}!(xT>BI8^{Ed<c/7Z#s|g_XP OixXU3b쇤+UA˗Mu?xOcm!#q:xi1kL:^pD]id @!lP[=-@Tkf XMOԾL(Ky̳&9"x/q;uۊpVPTV4'0\p{OTLZFͬ3Bf&_oV  :]G^P4=e M2 ^CQ1m8]X`e9f>VHzA6ZHH'_UC<59zudͧy5_+B ƧhcJ"K.Q"/m8 q cy,y XO4~Xbu m&-1e`x1|b .F5o_0#hm\S$a rԴLzg4<Ϭeri㛸ngI^ҥeVtJ u aWºݡrlɻ#6OfoN&JxQ %<\ FpIJqf&mmH!67D*B4]i0k!%'QI/AO*`  Xv-Ecp H4n)+?Z3v9.. Ip .:-)̓LLl~!-ᵄ{xĜ47ȜUg*zE )Ešn)C{9p8\KF|8%ӈ>[cgc\s^K~ ǐ>.Q5Da 'P5tƿ]E9g~Y no?bsfSysϩ3B> X(H?zպk'>H{6pvׇCoXdlt%ʬgxա>fu Qpvl)+`&pCߊ9}!y.|%. {([g~Ź;S G*@^ 䖴'BEIj{ fOl8Lu x哦SOuX!Wzl㬝Bs9vaw?>1z_ yPIN-kE$$ >'L[A H,R [dt[%~:zdqqzQއ`RCD¨؆,o8USc 1迡H y,/гFwl579ޛs 7Kf5K{-`Ǡ<@Vc(*fZ&1ke5fN;"z->G^3lc 866, !vCiK?ļr 1DsopŹ6 s\ܐfZD]]#rrwpDhGZ<_s4>%&8ؖ4OYV8T LE(迄o>+K,ltn4mn4. Ƃ CMZ : 05/11/99 22.51.02 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------Mr!eJrHP2],ɒjIګGK @<$9%ݽ插Kj?$= ڪ(y3q}i״o`|x ˡ ã%,ML3N,Hb$mõ^B!pY2K6L2΢Ə4Ǽ}BnN?R7пPB_j6l`6f$E8gM~GnF>wlk+x3+_O3@:wka[/:COu3<] Oyz ڶ5Żgm_i8zAS _RHIБF2 [7u#?0bؖe*~ϋLk.3ݰ {W >!P+òLtV+> iJL! 2 Soő&@m%3=i9ۆ5z0}rǁm`d0[MJ ^,/D!@UR'tÃ~?$2f])=!;^8\puG@+[,[o-ƥI 7uqt5Ʉv_:bѺgu+uؠe;V$hjyD\-,ֹ<6( =0Q~PiYneiv>0<QvnZm&/a&n8>2>2{Yn,=c+":W9ۓmվUŭr1#tKh('wO(xt{ӳAXaߟ/uE6^أm. T`p~A1 Kb,˳ix !.*kz{Dq>*qExHJm@aln2kMFKq5LО>6rS=K%B7 1N,(aTbCfp)+֛XN\ L $ԇ#xV 5#y\#0c7\'︠{x|m@aowH6٘H>VFE.c!R :8 -:l5 kZRoBT4Vꏚ`Y컴B{VE0_!t{>Q*O-`rUy,#[v+0Tm) $GA)C evx^(QH_ [j5X3/ӣRIAzD8faU{fy}r7=!Xv2e:w-]tZ ۃ +_2~kHǑ{ R+TzbU\JՊO|׫ͬ[Z%5x?cF r渞KusEwQG싾]J K98(do?obf: &Ss#~k?o6P߄#P'b,cgxPB[CkH#Er N k uʕgRT1o^Jt)M ʫs7b3'(#5Mʅ9.TVp*Mk~3IYV>X3K3#lw'DѬ24Bz7a vEg׶ڝvG&dO3G|̵6b\;tAO-eOG G+-s }}Y8| q -H#/!?;w 'P>+K,lt4susyino. Ƃ CMZ : 05/11/99 22.54.31 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/11/99 SUBROUTINE LT4SUSYINO H* --- ----------------------------------------M/LTn@^Rp  % @TWw:Zҟ{ߨ=oL4d7ߌ].?*'ﾐ#B'FD 06&ד׃w(FOCV,OfǚKsۘ giH:9SMadݛ^ Ҙ7T L0e@Lc6Y W೭}aY@Ղ Y,ՊE cC,' ބvJB£AVk*ҰǸ[mޡ |iAjjӯR*|q>Fkkk{;ƣI8\h!cr|^ o;ȭVA#5ψ9{[@WqXY!,wGFA˫@0surĢlq6 Vjx`FE Xr& hfF0违oU'iz-rT/~J }D#jvi0:-{%S=:I;&?TPU>+K,DSUSYLRVA.Ƃ CMZ : 05/11/99 22.57.41 by A.Rozanov Ƃ CMZ : 2.00/02 03/07/98 20.16.17 by A.Rozanov Ă -- Author : A.Rozanov 03/07/98 DOUBLE PRECISION FUNCTION DSUSYLRVA(T,H,ALSBAR) H* --- ----------------MSMo@qhpzhI%8%iR%.D96+ mRDŕ\_1k'NKHyeiOҪ$/3i.|JaE0<4 }%iǽ88IaG@88?7N)K/3̝< (M;`:&#Acb4޼kb\wÐM> lAQ@l{IZA sߢ[?8&(F ҏ]~ߨPm'X N's= 7m }\GŬ3,^G[Ӽ6;i*K5i,o@F =gp+8T*̇ZV8)$Dd1sC-R#vMI&8Nr-ˎ e7{Y*j"B ^6vѴe53vkԒTKo**;!W}2o4vS6Z=nO^YV׆",~OU>+K,ltn4mn4. Ƃ CMZ : 05/11/99 23.00.24 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------MXKsFD 9 LW KZꑭ PD uNdywG%?$cHڪ(y3q}igoi߈+wע{շ{}Q%4M!ͱ4afA状#n8.mMD2$Βi*n$i4SA_}O w?п o/[llx8eq¼E77NYӵ߱]yv'cQ0Zq-VISEp+<_vm&߽:׿leKO(2|۰mnF~0b۱M)v/;{DtcqR?!yV_ ޵wb 2醓3DŽ4jL! 2ؗUSE_ 77%4iMGJwKl.9OΎ8Abdb[KGX-_/CUR't嗣n7i~ͺS5:CvMQsVYʿ9﷈CC?NG:6uy|_GoׅԹ#o4&A;ƌ7U@ъ:i0vRE6kaG aSo6 {N{y ʈvEaY$y%c7 c|L_5:V{.=c+"ZW9ۓX Asw G"G$_[F0elӥD$T:=y8VqX!.>q\,zk}uk"ח' //[Dex:`"dbbLb]BӃpCG#x=@ނ,NIxs="6t06Ï6 ˵n@R\3O TR 'hsQi AFHO_anobzB,pty;_blI:'Ao]۲wl+ t1<\#0믓wR=pf>z?',u0ϰeWb(.| HcVSlW4A$N٨ [fMRaizGMIqh0,]wWSOKϰ?מU̗F@ucSߤ$قvUi*&J0Ʈ[5Tj[Ws7.$ &!")CevQ ;*C&*64Xߪg/ӣ3RIV~=1{kYh܍b?[i`vǰu0ܵt.ӹkRKҥL.б=-Ydr۪8kr<8rR+TzbU\JՊO|YZmjq?c93\Oݥ \dᡈ+F]I {sxAQ<<@{woQ,*_າo[DR;0 3՘ߵ`2STP)l;흭X&7KFl"(ŵt lgP/KCZ9!3Kҥ|o7Oo(oS|3x.Vʢ<|ց 5e<^G)mSgT tJ85QP).IYPh6UtZ9s#9G 7*渤*p*)T&5;u˙X+׶3K3#ؓlwƓin)y4kɖFM;"73Zl`jdg/G$9>f1:*JEmT%5Kf[JAK8[S\>o<)~ rXq4! ҇ї֏0jDrU>RGξ_>+K,ltn4mn4. Ƃ CMZ : 2.00/04 05/11/99 23.04.07 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/09/98 SUBROUTINE LTN4MN4(amh0,ame40,amu40,amd40) H* --- ------------------------MXKsFH 9 LW KZꑭPD uNdywG%?$cHڪ(y3q}iWo;kѻˆobgufA窶-z5Hdc_\'qLSq&LƏ4ǼjOȝcn(ƾ{Qmys}~h۰Ie7`mI 8gM~GnF>vN[*fSd Fu׊ow翈׷ >~HR 3<]J'3Ma][z) -*eXI7LUJ{1!M"[! 2ؓ5Se_ 7$i-G9Ěo=Mu!}rڶ #ܤl\<Ų^oITЬ:+zy-kL5hFߤR%PyE,ߟtԱˣ~O(lmR=Z|3t.|=l~4 m5gZV׹N*O-hy\Ub4 cUG1kJ 1w⢟!M"`2`y|,8y2ԀQfϫ2-Bx]:yYꬖ.}{L̍Uؿـ{CBc$1ǓVSo(@}Y-AS9jr%OqLʂ*FÍՂ̙I?HM W0%UKuhWOu6I٩['<,g[`]dӽ+7L{hwKȣY];0+ z7h=kZVٖI2$7\(QۗTD.m+}.nMr]&(~)a~˜4HfG_bV}؟[?pEU5xp$fK?;~) >+K,lt4susyino. Ƃ CMZ : 06/11/99 19.25.52 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/11/99 SUBROUTINE LT4SUSYINO H* --- ----------------------------------------M:lTMo@]RlJT P D(Z+zDO-ǽ= iziO|<}3vL]#P w0C\]^CXmri"X:Z >(i.C,L$w r![”j 3%htJX$FܴfR() ڠP%V0e {UsJ-ٞw*wLz,_74𨵐9fz'߯ {M_P_ >㓭u {_TSDӼ? zcN.v97;Ou{GY^{;5vUA(#r^fd&KB31g7vDX2D,sGW-"tsu2IJlTq1K/6Y|pF,91OƱ0违o뷧xz{t8]_uWɋrr5|a#jlw6qV=BDgmOۃ{>+K,lt4susyino. Ƃ CMZ : 08/11/99 12.11.03 by A.Rozanov Ƃ CMZ : 2.00/03 08/09/98 23.32.33 by A.Rozanov Ă -- Author : A.Rozanov 05/11/99