----`tv} D2<'<<I$,1DN--------------  t8-- tHG--it5R0--t8----tv|Wo2>>>VXI$,1DN-------------- fg%&bc}CV 5------y8P------u8AM------q@S-------------i T-------eqB------a--5+CH,ANINEW. ǂ CMZ : 01/02/96 11.55.01 by Eugene H. Sevinian >+K,ABEND,T=FORTRAN. ǂ CMZ : 01/02/96 11.34.33 by Eugene H. Sevinian -- Author :*DK ABEND ==== C SUB ROUTINE ABEND(KODEU)C IF( KODEU.EQ.-1) THEN A ST OP A END IF A RET URN @ END >+K,aminma.  CMZ : 31/03/98 17.46.40 by Ararat Vardanyan -- Author : Ashot Chilingarian 13/04/97  SUBROUTINE AMINMA(A,SMIN,SMAX,SDIF,N,M,NT) DIMENSION A(N,M),SMIN(N),SMAX(N),SDIF(N)  do i=1,n  smin(i)=1.e10  smax(i)=-1.e10  end do do i=1,n  do j=1,m  if(a(i,j).lt.smin(i)) then  smin(i)=a(i,j)  end if  if(a(i,j).gt.smax(i)) then  smax(i)=a(i,j)  end if  end do  end do do i=1,n  sdif(i)=smax(i)-smin(i)  end do write(nt,'(5x,''Minimal and Maximal values''/50(5x,2e12.4/))')  * (smin(i),smax(i), i=1,n) 7 7 >+K,anepa.ǂ CMZ : 20/10/98 10.27.48 by Ararat A. Vardanyan  -- Author : Ararat A. Vardanyan 20/10/98  SUBROUTINE ANEPA(A,M,sn,dn)  DIMENSION A(M) median=m/2  kvart1=m/4  kvart2=m/4*3 call flpsor(a,m)  sn=a(median) D dn=(a(kvart2)-a(kvart1))/1.35 7 7 >+K,ani. ǂ CMZ : 16/11/99 11.55.59 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 22/04/97 ====  PROGRAM ANI  ** ************-----]------Y------UEB-------Q$------M #------ SH------I c------EMEC------AQECR------= 5------9wd:W|D'j|3z<&Cf<͓!pT2xה_J9?&3fL21XsƓ"ZۛxJ)c( [o5`Bwx+w0MЩ xDXv=@xp6gj>QgMFo`Ps &0&5^q(#͕fa2G:gir/@/2-\kl\@Z§5PSH1Tx6gu2H7Md2g)uSf0pQ,bUtd:GyVnӇ[CAk8Q@(Łh. ZA:8fɥhVz9;PNL4AzpS|pC-57(QVIbӫWJBYbBf?8gQ[l'#^|̯TsZS/kp֢_H;64^1c_x:U9DU2*>wF(Vt:=kuH:Π5 JMQwyP7hr1#"W1ѧ db<6x4\o*cYb@;"&V;fjaaۛlzV!sـ_@ 2GaeUӘJpe՛uE]u⅑ `a_Yu0"[U@#P=86Y8 kNG z0B0F=z]x7ky|gtBXdP_?F+ 3Gza?Nϧ4wawO߯׀Of:pbR^vw}EЃI3Ǣ?kJ>ORotyOoA&0K0?Q^w$#xxˠ]n07BF~yAui|YS&6x>|?TUxA?RAT[ݠvb`9((5V v#Еk+0/?<: p0' }3C$˨38@9(/L{Txd{dP`TEEz;jͨƸfTAh}*c>NAC\291_Qog>T1B\5ͭRit<?0pPt㢭ryMUp=_Tji?|bKfրFza~DK|ض'Za,@G0k=Ĵ u^hl47f 65٭a=@M?#c(f]U Z@B|@v&Ip(rюT[0~O: rV\USJ!0vJeD K:hBAr`cdNsfɨ)UƇGxɅ{q ~ ;,7v"?s ٥g ϭ'a\)C:9cQd u,(sv=ә,@CVD!l}3ޯ(ҷz*~h8}g/yˮ\>X텀 ADwh}g &;@?ӊO ݡޯ[+^pM 4wr .L_!VjQNR%BeL^:qI]lm}Ov3}Ogo<w' yY'SA^'0:u\rou{]i7=<{lm -nwk[͸=]u]ln\L rdTY_s.! -&BWڴ6}ߨ^ ?/ndfֲ\^4ϩy ̛A[U?${Z ?"nc>Бu4;7şC!9/ -{"$V9<:| w N<<-zGBMCs)Rb(<@ͧAc7>ya#jz'1G4׿?2Y{ A\+W =uzC9ܼ yI0BTkŮSAc^5|~Kkk4<|OZ"\W%Jju|2ތ CH]ðt֒QU7Ѭ7x YoZ=M4ݓc~}ȫatusz \TI9rQM&j9Yr;mxN"w [f2Z֔]t E..p03%zb.E޸G0f!8^5>;-.'| Q02lV$7ӵ!Klۋ2M/$jUj98~+8D6{nCd>0~9y[f\6{`4 B˫{yOd4 0ꎬZ|,^a| XE# # p恵mRGJB4 -2M qf̯gs0)j dTY./oC+ߨKƊ#]{|DbGA v…G7E/ cK^#D[m] 0 D k;!A.(e_' ;gLϑƒ#/84TFKy)J QOٰ7s x{Y}V ރEz cpMyv `+pp43mzqqT O4ee̫Z 2=Lz kv^Ci\X-8KT+٢ފǥJ܉7FK JT"rAoq<.t=jl! A#AuMxD⡴w7;Vqz JSE[26DUbkj;'}򻌏I*ջ7;T(…-> O.=wP[Q 0=VW7sTjg{qI嚑Gr:K|1׬⎏@z~6jyv/yݺvvqQ%< :qƮa=tl#;lp{ooo.m<{\!TѧyŤ @l4rֲnY^>vHa_tppv9ey1OdNŗX_Ď1Fz,Z}].̙ű \OUD$#VVq҆>`!>8h37d*f.*ms9 %w*[[#F̽VQw =yRRQsF[2t7Rz[Ϥ&z(Tڠ TAM/U%%mⶹH5{rx .n6f9xe.O7*k4_u4`T(-@SlrA:8Gv7k6Pf <ɄZezʛysG :xB.͂mn#5hZ:kJCms/o>ϛ&9+-I0@9bqdRF'$$'ePNmMV <ⵁR§i杈lS0:eLoēE|7;.WzkUonFr'P!"w<3en? Z5׎lVؓMIQ.qmJi'{eyi vR$P`f\ տ^X.⸷w5xry"s- XEpokGnSHqQ`~O5f,]BoPH Qg|._{gs&Rxvan 8 TakHԭE+ ;"k{}3SU'p{x6V7ZہZq܆1-ol[Ң$`xBѤ_+p w͕~ƿ.Ї-(S]Z29ղ?= HP M^ }; b٠7s"/u̽"hkM6 / ! 'xRr=As` c"=+=FD)FV3Q=~sf|)]*"9.tϧ^vۨ ~=c~DT˂ʦvʸ=h;jK`Ւ1YM_e7'O8^Ӡz>:^eYJ͵x]JjnHhH(L5XOY~{Q| L)šp3w*ZkV'x4^eM+/u;dº{{r@$4 .f\4" 6w=(:@ ҁ5ωײFOPXRCr&ne]s]]_ }Y-k܊0簴qGZ仼_3S Y.gpdDqBZv 9 1>|nzLJ+Ԛ;vEeZ[{_c J6Ou|{< 7_B9ׯA<pq'"P-Өz^[}\~0Lr̲Fy=<Q~O7|eµՐo>O6=LL_CWGnp]RͮJ=ƒÕRx*UJCOsY]n_7!MYlLgu ss;-篔ǟ%t2邖$;ÊA5%ZhU4ykW3'ɢemNVJ!L' &ya>L*w[8lM<3*]lո'CFȝ/[-V؀b KhG*bg5Zl" 9}so_Ax^g=/#¨S*lSԩuӮQU\j~Sv|iA( K4iL/کl]Ԝjix%tYtX'K&1CjDDGWޖy^5ܪj**E_>> S\oW[uQU%+I=l#(25uVROWX[9H9Y 19&_;5ngmt;뀨nlc㖂"?-)L͚v8(3tiYT/% agc-$_{ 3\)LչYdrVU֫O1SgoU)y-AS('R&}n;#惏Ni!.mpTð.<=%* 9Gmă>%pvtO+eHʕ2.LH_*ιRIhprH>A{K;9n&oQ׸SxVDeE"%PU(!G*y< Xx?|_ʵtg4H^Y\$Rd Lpl=&2p;].æ~S1_Ϣ/]U_zQI"l2>ejU:Z۫9 DȅK27F OAcy\|^3Ȩ 薹`d09Ns K{eN)}Hz.0ih@Lؚjly1 9M$vo6v$~mYP#- YC䪾_gÅy2w/42°PrXl?O]E2^vA r #GV[{WSv(t ްC}^˒mVNy? ]랜4dg2%U?\ߓR֌ie2mDvliw|b9e"{ זce}dy٣l.%͜]E! GFfCj)%ٱR3-VZѾ$ P4y} f0ٷ95L**>i0Jxv~?๔_J3Ħ2';~56ID,)˂0u+~߱*{7 5sVU_``qIpњ--_͈:fҵj,KOɅ' /Ѩ"lAU!hʂsoun\U[rnc_~_ *]Fæ,yPm(p"$pg.N͹bsbK}}+O Qu6.PL =p(qB$6aOO96_)zA믋; &MeUI@`k Ce_K2mo Z}r loO[﮽;B tDũ_msзB6aHմRG4B?K\~'G6ٳ ~GGuAVv7r\eV V1ܚrLF=`)2 _w6$ûX~ =;hZld¯3i}^YxencЦ/]dSR)]_ٺϒ}U-]cAKJ}_^a-#/R7-ٱe>vv+L9,W>ZXxetٖ;,RTJ گU4^O8e}gB8H\Sv/_EZ񚹦ǿdVmQ9*ո>tɓ_LMw9!?Bg"Dl4ƒe[0Eo< J)#?ah5seqXeΙa]v"Mf|3!Q%{rQϞ6LNN|^.s=v.Yoʨ/ n-H~޷.Dm8tpf>eG|*AJ<5R|$5sx-4F˾inKɏRO|Nе^*j^pte(zM7r/զKu=p^dm K8KzQl,3g5YK1Z;SֈN 8.XeAh//4@d߿ec!֎qߏQ3ya]wK5# YA#˹Kkx.k'\$_E٤Lo_B\!·i&I ?5!?3)aUHT"! 2ކoQwU2@6ҟ9ufĸj?m~&Ϭ@Dwd8$^JϞ)ˁN2N# [inͯ"gI1Ag-Ŧ6jnGRӕk =8|Nᔠ/vMn>VM nSh㏘9ayo[:w&_IW'7yKQ6\ױP #>LBni? gW"l(ֵ}2yȤaEOA&u˵_<9Pcc~*ɤjnI˼ RW7od\'*H8/QD qUy̻)׌d=?6MfQy}eE~4ZQ> I`7 &Դpxq ]q$gqi{iji'vjv68FmTǪ|ʍ2h+]DI]`!nh'3+k)FNUx1gmPso]ZwgT"u6EH}pQsؕGv݌ G#"(o<{288Gf^WB*_uq';pZٽ+=n&2HrcX/84#a]E zG"￙;q!){\Y5a<|/loWdAYqGq\K IYOBoM$Y*%3Vi>M(LD"ErC~OكvPwjFyx'k%${ 寮bq=b#9Mj@yQu m/o!|"; }Q`" b:1,qdpi$/%YIjb,P!\ : } !^Q-50j[~2q;B[6NXL:Gȭy0< _u:w/BoHc̅ޱCC~[xaqnu6a0YjK#n,ʙVrfUFxY8eR֢49<}޻ļ5I\~5-^ԀsstX)0T\gXTjr[Qq>%dQ`XVl~iߥ]a)Gˆm7aBZ; i>ϱ+ʲO-©r&-54\ʣCWhov4 \G a,oꃐWGv?WTl,aۗf^L |CŮ1?Mb4=~>=Jl*1/E@dƚr}L̋ʺq6.5g_  )TOqxAaq:23re&h4̭8*leƵ|y𤀈\&Mf'V lɵ)8)Vend"4K+yywu-u_gݿ~oWSNrd:e'Gf⋳C%?0s]v&T_">;(6q+}*y1_ yrZb\yY?uOb}^y"k:_x7XWI XMbeTk rO?ِ&U.}Cڗ`wq .-?垺#3VvGVX4|C{>sua. ^Oi':wJs[}Pv7bnvbщv;=\'y4N mj# YauΜS}`TӑEn@*MtN0dO@OW-ԑ-yyV8Eaő`RMn_58ʌFhm Isҁ~0ʫf݁Mm#z fzmRS2``cn .]~i?anėzxNCs rv#^ _,Y{qEg}_.#XdxJ~?56͕AEؓf17-tj%J)m 'G3a3}_挌j[6M2Ta|Xߤn{sc'X^x͋)wFP`_>a@=jO`'`h f^R$D)(97 rWT7{|(^Bd)"ۓz:4UYRRH7۹o7zf&灳֖N^+a,"{[XʫuϬ\`ysk,S_Wo ߾'?=ZRZ_JH4Rk/14 'I8OEz;K˨  ki:? p<`mRv49,:I`\ sT"%+X gaIPPg%(!DoH6,{ ެ4M6.W}s,FqRtT:>j;БCbG7|iF{1I88?>e)SEЎQMHG ;-HM9>9>J!cSVOb&aSK nvj\/ {2&,cc,~pxA=37لYrOЅ9Ogz OD|VF(A&q)QW e1e\Q T58EhO2WuBFG?x ȄCfkcF>&Ю([jq_˴%.z;:e xlrkzjP]_c7gLu|#frPmQ:PpBfO6)sbk˿-?= $00yz867_ȱ4ko{tnh4a'9l +N=洸jz'OU;q}1^Ef۳yNFchSj2EqINXeRo:B_&(b@ ?LXag[V0W.C$ xA{*{7/~]SL E( ~q [=޼,xcE| "cR{k^>azB_!lۉAŞ?w- ~f6穋w Q(!AmG"Zx=3'O2b"9#ӆP'Y4=luAzQz F-w(=?t@;]zPE\>Z+IWwNz1ϓW0ӖSw _4G6Vz@3}t E8uC Y"c1u 8w:8TُϞz`<(2VM; P_ k1]fwۯV4B뙍|RemB#sW~7T>:ʈ?H#`><{[0p@G_ T3oKOt%kZì?09\|~ H:^~Q Ğ\t-ast}+1;@)4\0%6pV;mZK[HYlV y:]QO25(z`e!լ#iֻƅK/9׻^ǜOA+Mۅyˍ$wBu@eXd_1P _α^ykJi-}O~ Ƞ}2q2i!\Kszp2w)ڱW~{Ro1 xXO.-//.Vb}a { k:K DxQYvPl^UH96[Y N/ y. PGA~BV)^+‹1(AX[QPF.}VZ*pCa,">Ai@r$(ƭvNTlKBp:!a}.碹Ls`ʕr G^Y)?xܨ{gҼ@{\K&ev^O]蝞>ۈ ko≰T̐+ jl@hXyr@"ϯLp(׍)+D2 K)FHZ̈́LD.qk3X5&)zFUD:zfV˹lUȌeM꼫Х7XRl D!M*v&YQik0t&笨78-ڑn[#j\χ_6VI+J_Վдe0>>6z6;r5Lu:ʻ O?NfKw[՚~ZmK!/HCre˟s958V[Q.cL򤭂Ed4kCTrx5SWvx_k:ȃTW?N^G+16nz42|yvS Z5F8AC} c}@8 zno 6OT7P+6ccB;a.bQ|IkuOf}̼I$##ͥRˣaٺx<>QFom;iFv=HoĮNQSfb1dl2{VzdZdڒ;Ԟ?s˵`Y)DE RAhHsEM WzSbzB1Nvcqq_dEkGN`B>wprjٵyTx~&S߻1HԐim?frC9^o!C@W13SʱV,GC2`'{ߨk;|!OѲi J}C?rJt*D8Y.Ɵp6{VU{V?hm6Sa|Zq<,0̗a'K9>(jA<4/+RK GXjޗPEEy6\8 Դ\Yw8N^Ծ{ y*~?-)޳y-v..-ۢ_vF쉁A?R9_r_|3H*rFt=GL[1:~tgZ(ޗL )fꛩ\83h/WХU9۩yƺyѕ{' snol~|)\k1,QOb1Q_aa #v4g|3m;k8noWٶuuݽjςr?~{E[d@$k9"vr׷̠/إ)Øb+{9 Ohb6:P7ZIؖM3#L.c:zvKAoWdioS?$ dF>"$ɷ q=o~61p j P]/Wp54+^6r9Kc_e;<)ҩ|83j6ĘUХ㇛[v6/Io3nn7Vbc! nm8G8a.<5>r1L@P wyG /[~)+e.wL#fk^QcM_VgR "jEN'ڭXuDϐQV^ʠsR6>.{*E""%;ҽ .O;+s?Juh"jZԊԄ@;ܒN'髪Q52+q sRG:u!bȖn ̧1s7y|&(]89# prqt;j<%?V0Wu'K&0'O^g~'{GNF**]P wAYr rT3 R荺W*wtpGK9nK.3R_)umyyvpTUtFDU E< ]=`AfL}Fi~՛ҟm_0l_÷ x&3[b܎TBN^ ls0˾_WԊJJMϟ`s2fuވ%gX{XBzy1vf- 0m TpM_ah]\/X;aq.dt!-(@LSoqYK^{7 _G!gnJ^pBItA$B3]0/͒RP1`L Req΀4Ǚ93<dЗ ! `E  |ǔݻW^JgeU.m5-D?By';CX_*-J f kf.@ۥC&^/FqɽbዓΦ) RMh=ȸɽzI+|-myێ|C2X~,+69W LB.hX 7^qB=&: $k>Nˏ̗*9ppLg m,٠'hkT֤h;:wWD,t(_8,_*mڼ J995k+idu>@.M!KIOdYl;;-۟* G,pGVvs} ^)FKx|Aj;eCwQF&dK.r<4֣-$nl㣏}xA^;`Zcm weP»qhMud%hc1 Dۤ hfu>5Lj75/؈yqV˟G`"F;8=q N1K[dD Ȩ1K,ܰ;e@ݒM?˷ ͪL~ȉnbia gn\YyEј݌e.qmGhؼ{Z,kwinYۛ[S(' [(OR#wZVTJDkpz~2N95XG]N>}jysӧ |oYM{|vQ*˥}2Wᚰl34[bN֮}oG9Cw&NoZ%whXpSq77n;đqxՒ;%'w,E1_RP"y]+{E; /HIblۺe pm`G7jʜUjr uq[6Wom/\źn[ 8FaAf놖#};y5y#X =J ntE%I7ພEs۩ۮ_']YǾfY PUZiK{i)u*b`K ؇8dh[ӌ @0ҹ4^2g'wz?^o˜IU'cYcQI50]+1c,2-" Yd%mWmo}~]$ :mcu^ғqk_dlC(tx󻋉zf;W1mΜljξ !ZDw%<9 *s+ gY խ!Eįq0J,к6RLrww#!JQDxK:ʃfaF(m@>:6ho:݉x%𭰘 . ?ApJ`+m+Ƽw]_ T9Kvڠt,.o}YnW|Iyoal[#1~dnoݜ}k Zf)m!mK$GtBP=_ `*eڮ8R:8slOW~aZPeJӏDiøI|y%Z E ¸*< oP'-~qF-E_>s2eĚ'eqNNqlce1$uύUP=FU:(S8R1`*Bm]Cd{Ƃ@%u Q(9.ЧMn'քuRIM7MSsH-RAL }GT>E7xYt vfa@XߣCD,hmi| _Wٵ\A\T d5^NV@H sH1+F&|hGHaYF?5fW'(:Hi)Gi/`}w!""kd)Yîy4c8/ej\Y9.$oLyllsJ5W[DuSqܫ g@XiO˳X$̶-4L:\i8UB0Y%~2pˆ"τ@ ò)h":\;|}h)x-BB+x 5unԏ{~RxoѸ[Zy!Su%.SU@ 1@4:RnV/]߾պF4Pv6ucVJ<T,(VJҲwDR,Vb/8/8wWX}LPwq{CpsڴoGhbF㕕4E{)?BG<D'i( T@ٗY""s3X/wߠ bUm]ݠ;O3O|0ӗ74ƅ_D9hiw_m]2&<98~R1ƨ~,k74G5 sI' |5_3u[ChY5xgHPO6HZ3m*wjZѓPD/kYX =spa4ʑ 7u<ʹN~ӭ~ٚ^ap.kG,6=>Rz\V3!8v7vKrODo+ [ݳI'{\_i?v?\4/?zOZ(R#$H;,98LBYl?z݆tk=cJ9\%N)M66=z6܀rI=uIX@&G.t- W|CJ@1O9è#=[Lupp9A׽.!K';d[\\.Y0hۮS$6pJ"N9"9ڤ$~ [ѮoJM/[ o@CiQp(aax.$$`Ri0J^1yLzF@Sy6(ƌ@7s 1"'=-Earث?3v=(_hj6I̿l}G- )qr(MO>qx"ܝVPuY=` ubk_Od7Z#ws GFщ ]Jr(e Fk!X/9ԣlty+MNs@ُ 5 :Qe4i+sKd[WL駴'O~?V,꼯'[C6  D~1~ BEacwn@?YN?$E&9CQS4s˼r_"?$L!)G  ڇN.H1hpsh]CG4TNw>t/+=L s5v A{>斣k/$ΏZ~Wc^d(? bb{`s˽k7\%+ˑ#-7QorGGmFvro.cFb9-8^`. YFxnρ?*[Ϟ>vILt@;8m̋>JFҸwӜ+pS)OkgML#4GNan5zvè]Kx/)dSPo/Ԥ1OZ@޷N;ʒp&qYImr#E?BWP}[Ҍ=m/ ] oS<c?hScp۪!O/OqB 7!S쩱d^怙;{ ~eWvmxnJz T[_cDMAfDO/mm|*5eTj\ڝ OKu?RM>sʒ}dB_uJNFϦP3 %\ShSWqe3T)ԎO9 : LfyAᤣ)+uZ`:b͜!nnLNS^c4üim-vɛ2i=R|(oWy_w4cSSzϚf* mrW\O6R&FWN@;O4+տ\h3oOq%Hɲgɴ/wǞ?Ḃu9ʇ|bq̇MvEK,=x]wJksC $bl$n)ƞg5f{c8#Coy/@ʮpج ?m.pJN=Z3MW$_Pt1_G@gdK $0IE_!OA(?Ft($8^NLxr N'4x* gIvV^ S3lF4峩/? gs`ᛜQln>m>t6#l,5 'xS>_O2i欧Qߛ<r"ȷoEf5ft 'u&&8^d f 1tG<6m!}m)(j} *@cX>v2:KN'7IwgL=4J.sV i˜~|ruIy|Y:9i͓WIaIuc{]mO=gЍѢë4-;y)Fgޝ \[3,i7mf;05th=n%JqD_gQ*hps}hlF5\J 7d1~F1)dO9~r~\1wCdKɭpGXH;M,0^#-y_- 3Y}C0Aٻ~~(cNyh15p-6?z릳5<ǣiot7ô nv_&j6nYY״Tpi{W?@Z]Rq.iB3F]*Tv9jG*hSLT*Q.DuRcz?RgG_޺}u1vOÑbE(wa..IWjaV\b<\ܩ/ +:6v]ΰY3hM*,"_^f؇QvR16~l)~q &:hwQ~e-2Cxep=g9ɵDR 'jxӬ-~#\Mm?W]6hEԬoe)ɦ}$y8i<ͬu!6V@bܓiRScr)\  neyyMp Un6ve8ܘ|I_4˾n8'w;0wAΰP0Y.6̃k;aM3m[wf `o>Y-ݠQdw)fx]*\1!0ϖ6 km•v\eUk &.Tkj52AKCUL- |PTmv/hbT`~Be+AYVR_[6غ)m4baGԓ?[~hѶ^ݙ)ܒUr5@z߮Ԉ4v/N~ɸ858J[w,`5Ұ5!pKejbE-bvlǶ2 -̝}юȹ-#mzbe!gr4:jhSݮ>N)Y>OBgn@X!g~ύ[`7xN*q_0y'昋%Kˇ:M JX;(muMhUH/FU?4}uyZ8uiQd||Y踚B*XYЬjI书R ښ~TogyYjnvmCá| 퇺^.]ߚRӆ=[-t1Sq3Lc'`}=p%Eh)t^DC}Xۡ8R*5o+bhmn9nvhWF_ךNKSث>*0Ooς\u{rP%%(Ld2N^jDfS,*,pqxL`Z ∨%sifxŹ֣i+]t@QBR,x ǎ<8%ӵpG*+XcHIڿ-p! 2>>84JS2mϑxdq G%Ii`^^LY9궮V:jt jho+:`C;D&2oݣ`ノ+g˓o̵?/DѮbqV@[ *B|Z"B(@CϞvq(),"xtM|gnkLjAXPim, ,ɹU5Qø9=EAghެLMim4Fq B${CtTϮ+VVk_J[oП (~hجQpnYĶͭw-tW=ɢ^mm%kgr?P:W~šNtu6,@\,RG);=1F†s'Ѝgtazh5;F{ZԦ=< <1pasgSGnSx>PDA|Y܂x"I:Vsm:(*vi+lhMrskgp@|``>\zRfR2Žw|rr+(Ww%9vxZ&ҸsM # @~" _U!#,O/T ʒa~aDJ?EK?? kEcΜk9K}Yx!,ԆDh"Yeȸdb-dXQƦciy|OZoVm6D8\71aX] S1hS!MO;QhnGa`yJpqQJ4,~JXDu~;mgJU vtT^,ҖKJ+3Ln-cy^ׅpTrln(. 2XkҺ=#Q2VvvuQD86_FIvKhʕƜ-k-6.Y{Nn6oS.zЭY,ƒ[ض0C(S{%meV[3PN׺^^l5dīw!ݨ|'R[lndvnkȿ)c/jZv5iMբ4QXْz!>I6)q1ZXb dmvXbs Ζʱͺo.v B]|wm8Pt._z'n:0 ~;_Oaek H"̭8nwRb }l1zBk*Fv?2_jеRd@E-e0y~:+R4VgvNJy5xchsisٜGM΄ҏ&`/~S*,x969uUa"t= )k?0cvs$iW/K~-p{^Hm;RhF5o@a'Fk8C[P޽{~pgCHd?8J#JΩg(uu|o*/uPᕯ%vpO^"4cHqqwϿM {/tɓ N<ƔLOzdo>l5̓F]ijuUeg`~z&~;e81~v QTZS4B |o?)!VJde$0m~ؘ'?!M C"IF,>˨q~:7%\hօb'{ð5]򯗉Hgy+rVmaXQ{\۩۰asArGbr2*IJN$eG<_@eKSX2lzT.Dy^*.^,UZ^\[*Lu,sRT(-[YL1yy@"?SEe`j7-B5م.bչCw&=e* 5+|\^n[}\,ޮ,_Zᥴ),M6׊N4qTF s4`ׁHjtٚGXϣjGg FSHN%A(bE' N|Ǿ6J8B#lz75=}yAN$HkJQ'rSw,ݹ7ceGfE3%^}j:Sz7ZBڍzS" 9Re-.Ʌ$ bR.Jݐܻ(ƂU8ceX)'] i`>0t 7E >+K,ASUB,T=FORTRAN. ǂ CMZ : 01/02/96 13.31.03 by Eugene H. Sevinian -- Author : SUBROUTINE ASUB(A,AS,TE,N,NS,MP)  DIMENSION A(N,MP),AS(NS,MP)  CHARACTER*4 TE(N)  DO 5 I=1,NS  DO 5 J=1,MP  AS(I,J)=A(I,J): 5: ; >+K,begen. CMZ : 30/03/98 15.28.18 by Ararat Vardanyanł -- Author : Ararat Vardanyan 20/03/98  Subroutine BEGEN(A,L,N,M,S,D,CORR,rangen)  Dimension A(N*M*L),S(L),D(L),CORR(L)  character*6 rangen IMLSn@1oON ,%.E6E:7H ŧ1X9W,{f8Umzyf\aCwr^oqĦ{ɥ`Yh o]Q|jq\LR[uufpnׂ[Ͽ}vF2?tF/R}=U%ÆXKN Ql&!` s QN0à홱[G!mFrObmJ5f!yQ0NdξUh\55SÔ **EĞ@oLӘ};yO8Y/Ai1[T?%KME-h'|(>+K,BHA,T=FORTRAN. ǂ CMZ : 01/02/96 13.31.34 by Eugene H. Sevinian -- Author :BHATACHARIA BOUNDS CALCULATION FOR SAMPLES FROM GAUSSIAN POPULATIONR(N*N*L)-COVARIANSE MATRIX M?EON0 F~ok7 4Cf[6T[x4줂Jg|7^XزNK_nTaJИ>=(7&~|.PF;u)Oey׭ ٿgeՠNxD]ޠޢF!AA- ~t)'D 1_\cM9*#Drl#,i;+T#l[HYC_?#f|m#K5{ಆR7N=.טԼxWj'4cR FîcV퀿Plq́ \bX^Os}|s"Eo~ C>+K,BHADIS,T=FORTRAN. ǂ CMZ : 01/02/96 13.32.07 by Eugene H. Sevinian -- Author :BHATACHARIA BOUNDS CALCULATION FOR SAMPLES FROM GAUSSIAN POPULATIONR(N*N*L)-COVARIANSE MATRIX G(N*MmRAn0dB*e6ҦAhM$-91~O뒴A\pg)M\jaR> (".EėI:b<\.ھ\ 2{kk9I}PN^+aHj/KPF8bjSkf,򙓜Xjx.GE(c 2:~'Cێ#^F֋w|v&>RҌ#6D0AP+oL' b`VS͊rB@+ԃ~DCK&7 -S^|鞫wxG[~L<ï08p=4T2^<;tgv59|8T|3W +O_ _IF>+K,BHAFAS.  CMZ : 13/06/98 19.01.59 by Ararat Vardanyan -- Author :BHATACHARIA DISTANSE RB = RM/8 + RC/2 R(N*N*L)-COV. M.G(N*L)-MEANSE(N*N)-MUATIAL COV. M RC CORRELATION DISTANCE RM MAHALONOBIS DM(uRM0M 3RhB#TNcw+owlv/–z^/]c5E]aDPoеJ`65iMg1;sűah28Yu`,gx*B)0 1'Ƶҷ4b_$qbwj5rI)|wfLᎇ(iε'b!28$|V(1*qNS3*g-KGm!%njme0e`k3N;}=c|WŹk+K,BUT,T=FORTRAN.ǂ CMZ : 09/02/97 15.33.07 by Ararat A. Vardanyan -- Author :*DK BUT====  SUBROUTINE BUT(A,B,U,UBUT,N,MB,L,ITO,II,KK)  DIMENSION A(N*MB), B(N*MB),U(MB),UBUT(MB),ITO(L),KK(MB)  IF(II.EQ.1) THEN  CALL UCOPY(A,B,N*MB)  CALL UCOPY(U,UBUT,MB) ?  do i=1,mb  kk(i)=0 end do I1=1  I2=0  IK=0  K1=0  K2=0  DO 985 I985=1,L I2=I2+ITO(I985)  DO 5 J1=I1,I2  K2=K2+1  K=RNDM(-1.)*ITO(I985)+I1  IK=IK+1  KK(IK)=K  UBUT(K2)=U(K) KS=(K-1)*N  DO 15 I=1,N  K1=K1+1 KS=KS+1 B(K1)=A(KS)z 15 : 5 I1=I1+ITO(I985) z 985  END IF: ; >+K,cjoin,T=FORTRAN  CMZ : 02/04/97 10.31.16 by Ararat Vardanyanł -- Author : Ararat Vardanyan 01/04/97 D SUB ROUTINE CJOIN(A,B,C,N,M,ll,L) D DIM ENSION A(N,M,L),B(M),C(N+1,M,L)  DO k=1,L  DO j=1,M C(N+1,j,ll)=B(j) doi=1,n  C(i,j,ll)=A(i,j,ll)  end do END DO  EN D DOA RET URN @ END >+K,CORCOR,T=FORTRAN.  CMZ : 02/04/97 09.31.52 by Ararat Vardanyan -- Author : SUBROUTINE CORCOR(R,R3,N,L) ____  R(N,N,L) - matrix of covariances  R3(N,N,L) - correlation matrix ----  DIMENSION R(N,N,L),R3(N,N,L)  DO 5 K=1,L DO 5 I=1,N DO 5 J=1,N IF(I.NE.J) THEN  D1=SQRT(R(I,I,K))  D2=SQRT(R(J,J,K))  R3(I,J,K)=R(I,J,K)/D1/D2  END IF: 5 DO 15 K=1,L  DO 15 I=1,N  R3(I,I,K)=SQRT(R(I,I,K)) z 15 : ; >+K,COVCOR,T=FORTRAN.  CMZ : 15/04/99 09.35.19 by Ararat Vardanyan -- Author :ƒ* COVCOR * CALL COVCOR(R,R3,tmin,IP,N,MB,L,NT,TEK,JMODE)  SUBROUTINE COVCOR(R,A,F,IP,N,M,L,NT,TE,JMODE) * * M1mTM6tNn\ZZiaH!DiӤBһ] )CS  *@oԗ5 |7of(z uOG*Z$*5ae&bX%TKF n SvcA+{!;kg7l-Ֆj (bGM5o83 ˴ j a&ZNzhnbu:6jnsd5la!߇> B GjN7Ƀ7=nU =NdlnHYXID94Omh&9GON2l*Y4Ƕ!m9M1f An?gL7Dz+$̟Vx˟X&y^__j? ;Ϡb-|E٣a*Kxx~wڥ,R^xRRʥZeNdqz7]R^]. ){ >)3mcݭܵ?#;x_/.ՑetZgD ;5dus7i^Iy o?!B[s 7g" {k_tneeD@ɓ$d9)84WefauP3wk N9zI|R/&bhe|W"̩:[8>)o ^x +*!/e--Ͽ~ Aq>njk7$RxkwE:5j|x ϿS>+K,cutsob,T=FORTRAN. ǂ CMZ : 01/02/96 13.36.56 by Eugene H. Sevinian -- Author :*DK CUTSOB ==== Ȃ*** ********* CUT AND TRY SOBOL PROCEDURE ************************  SUBROUTINE cutsob (t,N,MP,Nevent,cutmin,cutmax)  DIMENSION T(N,MP),cutmin(n),cutmax(n) * Nevent =0  DO J=1,MP DO i=1,n nadd=1 IF(t(i,j).gt.cutmax(i).or.T(i,J).Lt.cutmin(i)) then nadd=0  END IF  end do Nevent =Nevent+nadd  end do: ; >+K,cuttry,T=FORTRAN. ǂ CMZ : 01/02/96 13.37.34 by Eugene H. Sevinian -- Author :*DK CUTTRY ==== Ȃ*** ********* CUT AND TRY PROCEDURE FOR HEGRA DATA ***************  SUBROUTINE cuttry(t,SS1,F,Q,N,MP,ncut1,ncut2)  DIMENSION T(N,MP),f(ncut1),Q(ncut2),SS1(ncut1,ncut2) CALL VZERO(SS1,ncut1*ncut2) * DO 245 J=1,MP  DO 245 I=1,ncut1  DO 245 JJ=1,ncut2  IF(t(1,j).le.f(I).AND.T(2,J).LE.q(JJ)) then SS1(I,JJ)=SS1(I,JJ)+1.  END IF z 245 : ; >+K,cvscr. CMZ : 29/04/99 16.32.41 by Ararat Vardanyan -- Author : Ararat A. Vardanyan 05/02/99 F SUB ROUTINE CVSCR(a,t,cv,ito,ictot,L,mb,icsh,nban) G DIM ENSION A(nban,mb),T(nban,l*ictot),cv(nban,mb-l*ictot) B dim M:`N0 KwlR5Wϸ!xe-@<vʤi>۟80d@41-j׻L[Z[>Iz 5Bt-ySۂ0{"ۛc%n3Q"7G32v<1:+:=Ehu\J#Sb./\Ȗm`:gWVuQKtݿ Q\ y)K7MZerCѥ.[eKf{lmz y박.`f?zx>+K,delog,T=FORTRAN.  CMZ : 23/04/97 14.30.17 by Ararat Vardanyan -- Author : Ashot Chilingarian 11/05/95  subroutine delog(a,b,n,m,expmax,nt)  dimension a(n,m),b(n,m)  do j=1,m  do i=1,n  if(a(i,j).lt.-expmax) then  write(nt,'(5x,''BIG EXPONENT,TRUNCATED '',2e18.5)')  * a(i,j),expmax  b(i,j)=exp(-expmax)  else if(a(i,j).gt.expmax) then  write(nt,'(5x,''BIG EXPONENT,TRUNCATED '',2e18.5)')  * a(i,j),expmax  b(i,j)=exp(expmax) 6  b(i,j)=exp(a(i,j)) end if  end do  end do 7 7 >+K,dencurve2. CMZ : 29/03/98 17.27.58 by Ararat Vardanyan -- Author : Ashot A. Chilingarian 10/08/97 SUBROUTINE dencurve2(DS,T,AP,MP,N,L,KCL,pst,NUMB)  DIMENSION DS(MP,L,KCL+2),T(MP),pst(l),ap(l)  kk=0  DO I=1,mp  do LC=1,L  PST(LC)=DS(i,lc,kcl+2)*ap(lc)  end do  LL=LVMAX(PST,L)  IF(LL.EQ.1) THEN  kk=kk+1  CALL HFN(NUMB,t(n*(i-1)+1)) write(2,'(''selected point in cluster'',2f5.2)') * (t(k),k=n*(i-1)+1,n*i)  END IF END DO  write(2,'(''Number of points in cluster'',i5)')kk: ; >+K,denfit.  CMZ : 31/03/98 18.04.38 by Ararat Vardanyan -- Author : Ashot Chilingarian 16/08/96 FILLING PAW NTUPLES WITH MULTIVARIATE DENSITY ESTIMATES.DENFIT IS CALLES IF DENCURVE STATUS IS SPECIFIED. FOR M$URr0H_'β66A`Ţ,$fclv}$$ӯ H]ؖι{%Atx+oS&Hjf(#*ZV6$*-dׇH0\CV"-lTWj1PR y7m D'ek^`ԋ:YBgޔEɶ6bsfyVe)Ɋ"9 mRCԻƺz)<}Zu ܟMZtݗT(1HP[j>9Hȱp쭤s|qQ ͌ ɖ F^EoH8}<Ƌu@DD"%RC1m^fh>Tןimj33ww5M>SNq9 TW͓*3|>y,KKZq7>-jO}lζ-GB\(t܋c 6ḞI2EJɥqb溄0>>>+K,DENMED,T=FORTRAN. ǂ CMZ : 01/02/96 13.38.45 by Eugene H. Sevinian -- Author : FUNCTION DENMED(DE,K)  DIMENSION DE(K)  RN=REAL(K) RN2=RN/2  KK=K/2 RN2I=REAL(KK)  IF(RN2.NE.RN2I)THEN  DENMED=DE(KK+1) ?  DENMED=(DE(KK)+DE(KK+1))/2 ? : ; >+K,denorm,T=FORTRAN. ǂ CMZ : 13/04/97 12.36.47 by Ashot Chilingarian -- Author :*DK DENORM ====  SUBROUTINE DENORM(A,B,SMIN,SMAX,NY,M)  DIMENSION A(NY,M),B(NY,M),SMIN(NY),SMAX(NY)  do i=1,ny  do j=1,m  b(i,j)=(a(i,j)-smin(i))/(smax(i)-smin(i))  write(2,'(2i5,3f7.2)')j,i,smin(i),smax(i),b(i,j)  end do  end do7 7 >+K,DET,T=FORTRAN. ǂ CMZ : 01/02/96 13.39.49 by Eugene H. Sevinian -- Author : FUNCTION DET(A, MX, NX)  DIMENSION A(1) NOTE THAT A IS A TWO-DIMENSIONAL ARRAY OF M ROWS IN THMeUr6XN,E[4 X$ k8VJM3Ŧ$Pˋ^IƉ8Ug2ٯy=e3R\Y| KO#ބ*@9&^]טMlJe8> |2'|, U*(=db@'vBb&ڑ!$)]I~Ѓ >+K,DFMCL,T=FORTRAN. ǂ CMZ : 08/02/97 20.08.53 by Ararat A. Vardanyan -- Author : SUBROUTINE DFMCL(DFM,G,ERR,AP,LTR,LCTR,KCL) ____  E rror matrix preparation for output printing ----  DIMENSION DFM(LTR,KCL,LCTR),ERR(KCL),G(LTR,KCL),AP(LTR)  call vzero(G,LTR*KCL)  call vzero(err,kcl)  DO J=1,LTR DO K=1,KCL  DO IS=1,LCTR  if(j.ne.is) then  G(J,K)=G(J,K)+DFM(is,K,j) end if  END DO  END DO END DO  do k=1,kcl  DO I=1,ltr  err(k)=err(k)+ap(i)*G(i,k)  END DO  enD DO : ; >+K,difsig,T=FORTRAN. ǂ CMZ : 01/02/96 13.40.39 by Eugene H. Sevinian -- Author :*DK DI-AG-------q-------0H------4 ------C-------8CA------9AJ-------------------4------P-------0s ------D ------M------I2M------PM ------IQN------IQN------%------=%------8NA------EO-------1EO------i P--------------HQ------d------D-------RCFSIG====  SUBROUTINE difsig(ss1,ss2,fli,dfm,n1,n2)  dimension ss1(n1,n2),ss2(n1,n2),fli(n1,n2),dfm(n1,n2)  do i=1,n1  do j=1,n2  sum=ss1(i,j)+ss2(i,j)  dif=ss1(i,j)-ss2(i,j)  fli(i,j)=dif  if(sum.ne.0.) then  dfm(i,j)=dif/sqrt(sum) 6  dfm(i,j)=0  end if  end do end do7 7 >+K,DIM1,T=FORTRAN.  CMZ : 20/06/97 18.28.09 by Ararat Vardanyan -- Author : FUNCTION DIM1 (P,M,N,L,O,D,DD,M2)  AN ALGORITHM TO DETERMINE THE DIMENSIONALITY (LOCAL !) OF A SET OF  POINTS LOCATED IN THE NEIGHBORMX]see'u}@0AYdXXXPޭL5ŝinӟՉ^|pu޽_{w鼪2֤,Urn[jGɗDyUVmuu6fmMeXjsMnrJuUfFg3UgnC"tiIWR%<?ȵ%ڵ:cjq:ònTcot~7ҔMlhj+tXfq#m͕EF._G̔:Taڛ!c&_UM>`GnZi]R񪘢ǘ.7i=[*jJ`1}^n*{AfM3G 9f(z7[v53/1"dժpckswiݖ+]`wٛK~SչF0ި̠ME8Jjcڈ'Z.U]7K*6өm8n;x1 O̔~mJJSZRkCoڴeYZTU`!֮tsCTEAMp A&j-2vjrÁu0? h_̲@A {DfjmD9l~H+J;U/^SօНDuuʳnIAVga󮙦dPFֆHQh >U]-`z W:m%%˜"ea!} pFR+e-"fcp 0*xVH 6Օ:~1d /pXĂ(IGJH~BUf2,UM8 ZJkJ}!N(?vFaȤd=±WK$!"KWfۢ.*pnfdӳypB3tr;s.<~{CΟ>8hGrtl,*JYkm3ey8-X/.f'b9E* B[icZGŃMN.~m~;DuZ, FXqe}6+y6@nY^ -y_.[e;ơ_2Fd/nwZ-\ L]F h:WN#=lnIId{LWsu{PSVӀI/uD&Up:] ssx`a\:xՙ{z}Fџ|`̓7M h\0 !U?3ѶޝD!+7 WcywG:Vmu2%{ m^8b\z2E;$Qѯe 6ƆF#du 7OAO9f@./..'̒~G.rp}x?yEt$y|Y6eao/〗165{>yC[*uR̻QrXpӜ~0}/|_{O_xLԒqP>+K,DIST,T=FORTRAN. ǂ CMZ : 01/02/96 13.41.37 by Eugene H. Sevinian -- Author : SUBROUTINE DIST(TS,CS,R3,DNN,DI,N,M,NS,JDIFF,NCONT,L)  DIMENSION TS(N*M*L),CS(N*L),R3(N*N*L),DNN(M),DI(NSMQ]O0 )طg-ARWӱƐ¿Yz=_x^1)*>+K,DISTNN,T=FORTRAN. ǂ CMZ : 01/02/96 13.41.55 by Eugene H. Sevinian -- Author : SUBROUTINE DISTNN(TS,CS,DNN,DI,IND,NL,DP,R3,N,M,L,MP,KCL,NS,  *JDIFF) DIMENSION TS(N*M*L),CS(N*MP),DNN(M),NL(MP,KCL) *,R3(N*N*L),DI(N),IND(M),DP(MP,KCL) CHARACTER*4 JDIFF  DO 5 I=1,L IR3=(I-1)*NS*NS+1  ITS=(I-1)*M*N+1  DO 5 J=1,MP  ICS=(J-1)*N+1  CALL DIST(TS(ITS),CS(ICS),R3(IR3),DNN,DI,N,M,NS,  *JDIFF,J,L) CALL SORTZV(DNN,IND,M,1,0,0,0,0)  if(j.le.10)then write(*,*)(ind(ii),ii=1,5) write(*,*)(dnn(ind(ii)),ii=1,10) end if  DO K=1,KCL  NL(J,K)=IND(K)  DP(J,K)=DNN(IND(K))  END DO: 5: ; >+K,errors. ǂ CMZ : 08/07/99 14.35.56 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 29/01/98 *** ***************** CALCULATION OF MEAN ERRORS ***************************** Ă ca ll errors(o1,b,cc1,cc2,mb,nyMn@]\)s.,V|pS'+nNRz{2] m#`<37ϻ l lͪDbNKuImz#[ڋOQZZUyo'em)"[U& oSJ0lx:w:si6-a? QϠT:iM9:Ǹg5Kz#%b(Ň{~TO@]3M+K,FG,T=FORTRAN. ǂ CMZ : 01/02/96 13.42.25 by Eugene H. Sevinian -- Author :PROBABILITY TO X POINT TO BELONG N(0,1) DENSITY  FUNCTION FG(X) AX=ABS(X)  EX=-X*X/2.0  IF(EX.LT.-50.)EX=-50.  Z=1.0/(1.0+0.2316419*AX)  D=0.3989423*EXP(EX)  P=1.0-D*Z*((((1.330274*Z-1.821256)*Z+1.781478)*Z-0.3565638)*Z+0.31 *93815) FG=P  IF(X) 1,2,2 1 FG=1.0-P 9 2; >+K,FILL,T=FORTRAN.  CMZ : 10/04/98 16.26.00 by Ararat Vardanyan -- Author : ** **** CALCULATION OF PARAMETRIC ESTIMATES OF DISTRIBUTION SCALE AND POSITION  ** **** First moment (mean) equals SUMM(X(I))/N **************  ** **** Second moment equals (SUMM(X(I)**2)-(SUMM(X(I))*SUMM(X(I)/N-1)) SUBROUTINE FILL(D,S1,S2,M,III,NTOT)  DIMENSION D(M),S1(M),S2(M) DO 15I=1,M S1(I)=S1(I)+D(I)  S2(I)=S2(I)+D(I)*D(I) z 15  IF(III.EQ.NTOT) THEN  DO 5 I=1,M  DEL=S2(I)-S1(I)*S1(I)/NTOT B S1 (I)=S1(I)/NTOT  IF(DEL.LE.1.E-20) THEN  DEL=1.E-20  END IF  S2(I)=SQRT(DEL/(NTOT-1)): 5 END IF: ; >+K,FREAD,T=FORTRAN. ǂ CMZ : 23/10/98 04.39.44 by Ararat A. Vardanyan -- Author :*DK FREAD ====  SUBROUTINE FREAD(A,U,B,I1OB,NBAN,MNEW1,TEK,DEBUG,mb,m22,m33,  * N,NUMB,AMIN,AMAX,I1TOT,FORMAT,IFORM,ISH1,NT,ACCM 8Xrf)V/W% CH[$H,Iɕ"A6 0hٹJd3>RI^7}~ Nnٳ?~gNgM"|{'O*C Q|FY4( IA}2zIQfŴj;]2id&cy@ABP=VrCxAЦx:> SQC>[;U)4˩A#q:&ÐN((®Q 4(`Dg>RVפ)V@Ǫ<5xdpaHfiɄD'Kαht=iD‘VR9m:u/R/5,Aqɪ{g9GF΃z*r'e*[n1MG IpSh2-t#gQta Q"Γ<\Y/#@$ G4΄@V0| "шoΞit+ T&yXEh]r4,>;R f_蕺ԈY=4';W|ԒEvϰǼM_U&F%HzTdeD0>}[mN= g玓υO Q'.)-fEodbRvYӘ4)q'`E&Da{ɜu̗fПhK. > ?8v4p(''xIabwI![ ZYs*ge}u}}|Z{ޱwOᯍOM;wh7rT7Vܐu tA$i^BrEw8mg׶ ۓ ״tInk}CKW#]u;<}o!)nna/a|SfՌZ:q8jY3Mkuk|jVTI%zd^)㋵MfM{5[=4k'Cد}C:OJIFĽmJ-dGYcٚY}UǞ'՘1y40kԮuOO\V.sZp  ˒oh{n7Env=Hlon9 )0lu]"[/6 )Ie U V%UGD>;Jj=dtEܿ-Vvnª О@GQU_:SȎC;ֺa`E2p5sԏ-ms^:]j+^e}k$UT`nLQDuxx: |@rgtHe Z ܙIWV93`5mIby$׬U( vU$!H{GKߩdr.W|]± ylmD5떤߼C /}^l۶-7-g{ľbU|1N;;5 u,DY[hؠ;#gD6J} umB'KE4Պ>\))VSgHڛ P~Ž첱if) 2 5?>Ǝд–:F#_m몯+46yL^ϐq/x-+N`6~0f49Y{EMusD?a VehL$H'ت+KBqb͓?x |xyMϻU 9-fsy2Ϗ~A~K{̛Q"D:joh7F}sn-kO^l;sc侏)ZdD:\r6g._76o@P޴MȕҪ'lݍmí;Qˊ|Y]B؟"Uy5r{&qũuLJ!>Y/V>sڞsvۢ'-}]W˘r߼=vuxhG]._}vp84 oc%Ysy2>գ`mgQ1ݳn3]'Ơްy8ӧV0bx5T"UA%Eo>Ct}4W̧YA~su%k4-+7U>O.x^NR{xt +GIϾ`]ri( ~A 8 *@w ;x-X; rzC3.} 2$md[owI~w;V#/#kq;=+T+a>xF Ȧ"Ͻw@XSr[Yeje):M]h6 0'!ny}^J5qb~ͤ˳Īwc{CKW{}l( 䌈{(N3 g>V[o_[B:#x0,tf>+K,FWRITE,T=FORTRAN. ǂ CMZ : 23/10/98 03.05.42 by Ararat A. Vardanyan -- Author :*DK FWRITE ====  SUBROUTINE FWRITE(A,U,I1OB,I2OB,mb,N,TEK,FORMAT,IFORM,nt)  DIMENSION A(N,mb),U(mb)  CHARACTER*8 TEK(N) CHARACTER*50 I1OB,I2OB,FORMAT  OPEN (UNIT=IFORM,FILE=I1ob,FORM='FORMATTED',STATUS='UNKNOWN'  *,recl=144) WRITE(IFORM,27) I1OB,I2OB  WRITE(IFORM,7) N  WRITE(IFORM,7) mb  WRITE(IFORM,17) TEK  write(nt,*)i1ob,i2ob,format  DO 5I=1,mb WRITE(IFORM,format)(A(K,I),K=1,N),U(I) : 5 close (iform) 7 FORMAT(2I7) C17 FORMAT(10(5A8/)) C27 FORMAT(A50/A50) : 8: ; >+K,gamcalc. Ƃ CMZ : 04/04/97 16.06.26 by Markus Roth  -- Author : Markus Roth 04/04/97  SUBROUTINE GAMCALC(DS,MB,ELOW,NT)  DIMENSION DS(MB)  INTEGER I  SLOPE=0.  DO I=1,MB Ƃ WR ITE(*,*) 'slope,elow,i,ds(i)',slope,elow,i,ds(i) slope=SLOPE+(DS(I)-ELOW) ENDDO  SLOPE=SLOPE/MB SLOPE=1.+1./SLOPE  WRITE(*,*) ' The SLOPE of the Energy spectrum is:', SLOPE WRITE(NT,*) ' The SLOPE of the Energy spectrum is:', SLOPE : ; >+K,gauss. CMZ : 29/03/98 11.59.23 by Ararat Vardanyanł -- Author : Ararat Vardanyan 23/03/98 GAUSSIAN PROBABILITY FUNCTION  FUNCTION GAUSS(X,SM,SD)  EX=-0.5*((x-sm)/sd)**2 ** ******sqrt(2pi)********* C=2.506628274631*sd  gauss=exp(ex)/c : ; >+K,get,t=fortran ǂ CMZ : 20/10/98 14.31.34 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 29/04/97  SUBROUTINE GET(L,IL,NBUT,N,IN,INY,MAXLEY,NUMB,IAP,IPR,AP,  *KCL,IKCL,F,NEI,AMIN,AMAX,  * TSNAME,IT,ICON,IDM$X][H=ʿ; \gvg!pBXf:ڟU c4QVWWg3 Vð=zBotlRK /~L r4C=éAvDǴLcQ[W|۠g|C6Ӓ=2E(T,0>yypeVޭ>6gl+w=D -1ml!:llѪe7z H4:2_I~hi 8b_C}\ZfWXwl#,Bpr\,.ܴo Mvuf1اo[ivqФ3a?ՙ4I; '!uѓܻ ݠ̐ Ș (oư&.~2z[BFqH!;q:iy a̹Os{x{EL!՝GlVZ-lkz.L@CNuPш5FVE tB4]٦'I$FdMcѫu[Nom-DY{uuT$4px\/5sP(8 aICUʷp~N;^hLGxaĭ3X _ Yb.d@B<9#-BIPBŝ8aC?r\D3sz)Eͯ#nz8L>d[#SscKû!߇a_ [9Ld]˴r9O  2tt8߶P[’c$d3E61&9)G? 9D%? >J~`~[1,Q{JX40 ]_Ы*_Y)o|š Z?_$§kEcA'˰WS9 V{/t?_hՎ-~2. *,!3["C¯Uy$`[~/bVB Uq=u3& Kl8'BI ?)!qڹ[-;"6d%gs[aǓ{hcz15)(7#\L+[BM>9 Qs|WJ{6# (5&,LgtbgؐǎilHc8_3cwU^;_ٖ䌒l~FS[۠xdID(rKam{ w\\ +G8BU{\fƒ00o}`A/O6ky#R {B290@IC1~K&&_>Q@(.**ع®>o̅=?`0%ks(V~H|\KQH!pdז/K OvJ|kTLglG?Ȍ?ILωU' ݙ.tih(xIB-@0^ G|ߠABUL :;n]Y} Wnշ;W_{{w6N?w;u${dwc7L<5Q%?jW{L2{aڥ/h&?5~V\#SFn J;BG35a{-~u^X];f\SL >+K,hgg.  CMZ : 16/01/98 11.53.27 by Ararat Vardanyanł -- Author : Ararat Vardanyan 15/01/98  Subroutine hgg(a,b,n,m,kdet)  Dimension a(n,m), b(n,kdet)  call vzero(b,n*kdet) ksum=0  do k=1,m/kdet  do j=1,kdet  ksum=ksum+1 do i=1,n  B(I,J)=B(I,J)+A(I,KSUM)  end do end do  end do 7 7 >+K,HILLAS,T=FORTRAN. ǂ CMZ : 01/02/96 13.44.23 by Eugene H. Sevinian -- Author : SUBROUTINE HILLAS(A,U,HILL,N,M1,MB)  DIMENSION A(N,MB),U(MB),HILL(N),BB(4),S(4),SS(4)  DATA BB/0.MMN0'[kYkp i|/94`vO?h Zķ`jub~J`AXљ}fBqa5kZ45s"5g~wxC 1%-\y$u뒥̈EepZ*݄dq`;>04\XH, `U(i8I6e\w|s93&11y=GCZWuL=+K,IDIM1,T=FORTRAN.  CMZ : 20/06/97 18.26.36 by Ararat Vardanyan -- Author : FUNCTION IDIM1 (P,M,N,L,NT,O,D,DD,M2,RNN)  AN ALGORITHM TODETERMINE THE DIMENSIONALITY OF A SET OF POINTS LOCATED IN THE NEIGHBORHOODMXWruoI؞)=@$$bL_S2yR;՞nکr*,ѷӧ0)K7{csRZuyڵnvOCo8KPkTu]-ɺ`R" iCͷR-<\ݾj ?\^?+lMc^a^F:[^4q7}bA Rա48Xz|<)`d3I{9٩LH5fx2k*b 휱w24V)ky=QQd<5TſNyz]̎Fgr$Euk3J_g[JTԪ斢F+41qU`!PZ_&ߪ>);g\CPOMAMn<0s=@ԉ,.Xl qs둂p("\#3zH#džs~`zʖNu>kڮ}.yF932^}| :SL) -;C1Gs[ɕ?B P2{ X/8}NygB\>9΍kV3DjT,A`Tݣ?'͜s*N7lL,MbAP)fUF3΂VáҚRf0ƱoQ2)وpR%Ejdҕ}"*X;:sM53鼶߫T!6,){Wte,*&Z[e;m+ey8m\WTVe'b5_Ej Fܓe>0-P?^^s:n4sIfU4Lbf:.ԠBo|fRK}(Mb|?heŻU,oXgr&A,WqZ0pGqU!af Q 4*#SĶz8jͯ $[8g/<@&{ 7݆̎Ks 3(Rh¤.)2.2],֓<`aO_3,vn6]9z}Gٟ~GHC" ֏=.`4[7No6|Ku1G_6Xjs^Y(ӱZ+ͱ'<-X{+#8of\A\cX; {],Tza|?:}ꔘ;|M]y).pl?/:lRd͸W1+:87Hʙ; 7oAψfJ/&'^̊~\">NGJ'vȮboҫ|xOfSdzT?9f?=!U~Z?Xi=yzi!tkT{|%sҀ'sfvҸ(~sGI5otsYܧÖ A2Ŏz.%v੮n L9}2$-7cy +~r\?OVVϲz8mɳYV+n rœXJ;A`WC,d7eܿlfMg kQt;q'VN# 2-8`ާ~:}c"3\W7迾d}+guf?wRE>+K,IND,T=FORTRAN. ǂ CMZ : 01/02/96 13.45.15 by Eugene H. Sevinian -- Author : Function IND(ICUR,ITO,L)  Dimension ito(L)  imax=0 do i=1,l  imax=imax+ito(i)  if(icur.le.imax) then  ind=i 7  end if  end do write(8,'(2x,''index out of scale'',2i5)') icur, imax  stop 223 7 >+K,indnam.  CMZ : 29/03/98 12.31.34 by Ararat Vardanyanł -- Author : Ararat Vardanyan 08/02/98  Function INDnam(names,selnam,n,isys)  character*8 names(n),selnam  do i=1,n if(names(i).eq.selnam) then indnam=i7  end if  end do  write(isys,'(''no such name in list'',a8/10a8)')selnam,names  stop 223 7 >+K,jetnet35. ǂ CMZ : 29/01/99 16.01.28 by Ararat A. Vardanyan  -- Author : Ararat A. Vardanyan 28/01/99 *** *******************************************************************CHCJHC E T N E T - 3.5HCHCMU\[srF(R+K~H+n,pZKr]dwA]<$ٲsTl[!{,*o3==}ޥjʰ9[z:q='+PǶ?s1uԗRn])9Vnpfyj>=SMNSߞ*S˳S}5˧e593SKݹU,m7P<8s=_ C<]>Q]qq^M,G |ɿ]hLv5tO sz˽aL/8T,׳{B 9V snݱ/hQ;xݹCuj۵R)xGJeKݬ<>uLGt|qC*JN۾YؾY.)"h|0u;O(/cy0]S޿^ΊyѷpDDfI31#;9)Yw sKu.ߑKx22 g\/-},σ]e>g-fU_]W/IXZHTm_GI&z4hsd:O94Sտ{Ns(=pklܳ&=U&q =+ ELҕ"^ZvoֈOUc>If츴ck'E8!< m(Vv&K+(*sZ̫OFzc?Ng|x$@?_W'S,3{ *|6'[< ur.4[k?b ҝ{| 5f#A x.r33ֺr1փ4OU]G,J}&0=ztO3L) q#3CFyiz^OtjC#FXYhN( >q ah65'̀'pOY"_bǏmS!+[GCZ@EOWk2whQhҹs9eI~5T"&B3䈁s: k9LjJTSW-tS-V[y{=br5.R n>i)uSKWcN&8FOFc^z};{CaC10ܣyaY!x%|dJ?ҏmk9JXBrK!R\{OF;n crIjyja9V]mZ~3ڡ|(:ݠe?q|ҿjrD;-"ixI7ZFsR2禧.]R"QE^f_'~[AD0  gA˕;4T)L&/tg_: CF5i/_O^ko4L'q?wF&XtHQg!l}=$L.].B-!WoMݲi7H6_?>̧#X>K%![.x֙NKKK]_Op( jn N_RoG ])DJ=-"aL2NpL,]J5y\gB=h]bu%6li{{d{r2K4ߒi?,|3ߍ,n\b$<71Ƿ鴺 p~mqFD {ۜ<>#8.@QBX?QօgNZGR{\ ?Q|UqIT&a݋cxTQsoF>Ї ^~,/rRFGkW#~%__%:Cr1Sm a?\#AL}ǧ9tV8 DTvfd}oATAT$[MqLMze!B~ Rǐ .+ыPov|Ф:ιz%tf/H#=@sqy BmorN,0QNrXoi6&7oHh;Q 5⌱~)2-§4$S-o9Ɍ4I&"jvu\3vӇ+*g,!r4;@?("DgΉx*[ <iD `^$N q~.V"ZiѝƖmN\+b,$KEFI m+퍖VDDH]gT}A7[~F'zljC7Oa y!pwtyo #:D:>dh7zhEzL UV2UͰO];Ѽ/ 4W>8Vo+1ɕV^Q/tb?!jg5o cTR?UvsL#i9gtTI7G#<8m3觳Bdh˼A[z9b4(4! Ŕ 2@_}b>ՒD4mUa- ΄йb7)<нRWf눹0oZPLwtoo1:FSI4}Nh ):& ku՗gۈo8.sQWvT}z2<\9׈Ӎ|c \LQ!6pDb#;L*,2Z+-Fo?ƃzБ2Ҍ; /+M -E3:"y G#܀OYwNIvP:R, gu ~U,:$M^-/P$7xԠFNm+s*(ܗLepˍNCNT^]LZtv7v%䣺Erv~4n.i&& @oI|g^$JZaY$JXnKtd%oD736ڕjh@|bL$mɮ2jԾѾGG}d[{~a q[) tqv˨KAt}=%'+V@sSjer -D b+pP˕YU: O:TwSY!w<S\,̝FnEOaӪ*q=-$߮YjrfRE\kjKq1zV>]($ е F/8)`NzYxS#X&o40 aj!Ƥ~CGs=js̒* :Du eND+xbx.ʼ˼ɜ5Ȝ " s.εۑhyp~%B*+'+w0Bs1_GBߌD|lwT-0d6KE_Lmx]+X;5_SEՃt0 m/|u[Gc7s{ԽLϓp B9-ʓ G2S'Ϧi4X͡"G$?lj[ur[XsX5 qle恎+uHxRm#xq~gKe$bs#9NIFQ7ԏvYm'. ܓp젤! ^S{ݷ'Oh JpxeD9qS1%cmD.o"?{TGÉfĔ1wۋ=ĹQ?mQ JPtm`M%m ^,1ѿ\%aSj{{LbU| cI,X.t[|1)2nF'2ٝ>`/HͩFuѳ#y@:N;u"k0{涎\TliRSN?w {O )/"AM9-$$udn*J:'gl_Gw ȓDzՏ9aWAyk㊏k1Z5gS߻iG 9:<&Fy31K }갎+i=h>cnJ (DCJt `A0I]icx'm6Nmm2>6VJ8ܹK"P~w7[ڏYI` +vKBEuu(?SxLQ>@@?'Ih@*?sݫbnq/[#|^rq,gn:ZwM)=Dϯ W2%6?SBbYFRW}פJГ/+5htAz֔QZ[3Ϻ\McQAN&9<m^ C54T$Stkjk[3TSR8L}xA va11+ɓBʟdH~gRJY ٧ǴoWb -MNˠk+g\ ^Z< unkycRKh5<6QXK?d\Q )gxDyŎk8)5[[O>w"?aAq9>!V2(>yR|p1S |3J)V LWcIx*}1Oy4o)&\vRg.xNrnKݭ닫=8?+Pj0>4=ga4ƍYi9_Rc4'Rpq;ֆrR6>秝sn,kb6nMTy9NV}q}e-wH sNّax&-n݉\LW s,o,k,g,cV4lb 0p؀t ܱ™383澽p,f ȵ)1Mk d*<2mc˲#LՋ(HL8+۷VP>Mďn˞+0 |uAx1Wi9W^ʈZqn:U9__\sĘ׷VO|[:uloHߤo+$-U6Xe.=G?B;ͧ@CߑǙ/a1/CN^80W)8j1#0V/8`>_K-GR>9Rd"=!7ubh<&^ "YCnw>>~?7 1{}nt9E| ge5^/K4GP(Rm%;\)*S!1+{NM"ւthħ 98Iz|\iN1^ITođss+oŰO~NtGgqL>krYd* 0={g~|~ڨA>TɽIZV!y҆mSpғXET ATAXcJ+?U]q<'*SAY,S+S+gA֊\u/&/bH|b gාy+_K3SR_hn |FM@ 294Zl\/ܵe{^/ih;6Uey'(zNqy),9 #WsnS{6b:mε{Ϻz-&2< 6*s<x0@VM/ѓsI\62Il{F~2ou<=8;t4|~)`Իd$Gwݳ7ʭ},sn4ihZKH-[eT5 u}PXs9> ދ6~!?;,]q-y;d/xz;/u]wcQyNh6r6f7bS3+Ub=;aOh8P c18 iFҟ !Reu4a= '7M{1葑mwҗ՜MZ=qJU2BAGfsz-o2_ߝW*ncӿ׆`4ɔ6W;E+7[#b9=<_q/ZI`Ycrz`j=@ ԗT`c' rZeBբ5v>H% m@ 7`굜|qϻ#F9~=cR-ǔwH]Nu2@j1Y@-v`dl/Ψ.{/#1N0J="?; Y6'MMܚKa312P]•[=ܤ ` b W >5bW܋KT0/y?*[c:'G!(yޥ\κ(W  uG@2$xwgGΘx9Z0X$D*>"0r=9!'wڿ) ـ֌=b4׬܌tulvc?QzgY xl@3ϱ@67ז{B{#2O݇A7XKр嬚?yf*/v~Q0?ϺykA3Au6GBz*?,{|Y2%떘ARIrP,kL ֮^?aYOi?bկAYtG"[!cxóTw&WxqI6) I$S)|K(T3-Q2:P#<r^{?cz3_S ֔l[~ 8_|ٷ*8sDOZόHީ^Ū6鎞䘅f}8hWbSl?U \WCkb}{[i?#28VvX~cp<v:m>jyw`,gՖm?dj\Ԫh1O70/){&}۟o:#eԧP>>0Pz`s¹|9fhNЀy·<\&0lc> <r =X N4XG(2eQʟI֙'HWc9ٿ` AgL?9`r"hgK].5mhp?6n `ڑ[\Ol,NfKLe˟3͞`{%/q+ɩ]c 3*oqCbqmFpYS[>CXٖ[8w*s <8uew}ɡNmU_8>c~mgq{Kw+2;;{En {B@ʥtk9 0RAom-k~F>Z/cŭ-woF60xf~o2GsSny"úy=BJ{!hϖ~z~Nmu ͩoGz; /J}Q[\m,|.RʍrE^.5?cKjlj/ĦpíF6‹NJ}bNJG&+F~J|pK ;ֶvߙ-)0&mHaP2iֺbu/ylyI6bQ~]@v/4.ނ紃{Y-ߦ2jr T>Α>KoYL%&)4AHҐF^(y7jQ~%:[dBDg\8BTp H5"rbAa;-y!sl"3>:#&,O<]մ/,yf~?Woonc=~c$1*E\aV|JaK$Pn$FDN<:˻Țj&vH+m;w Tsw1A#2XIZ\EEe`y!%})# XN{pY|x߂lF_3x FƸqW¸ WnGf22Na<`|y8rP痪ps*sonvKVneAZl@ ;'؉D;)g$T;FNoȝ'MtQ,ߔm h#/>@ PBt@6%=|ZL tP/j8䶙Ho`o@YuB> PCmݘKSOMAD||N-;=K8Zʢ6R T妛A6BBd+, w7`2B~^/ |Koknw $SbX[_=/G\hRIpf-ZK4vUR* Kh[&rUbz3hxIb};ԝb4{u=SToLج-y+c/+R /-7y͇ҟ"{-[dOF* 4eeݻ/|fs<.MQ2d/Qh6\l"ś|"Msٯ.Zwm_bC;˅5Ե4aiW*1jdsķy.v: ^G4G={_¦jQ_(cH!=Sv9n7n/U\TD xBcxXOQ\y4~Uk$U›:sqjD>5"!Fz7 i%N =:4Sy V x lXTq" ۇ~셁!'2{G,=ŷB0:ȗz2n6\}s7@Nr{x0_a~G?A&o ݞ^ 5so,F=OMCw)?5ćj-PnQwͩȂ>gEA4Knқ)lxmC? |MbFHq3]9emXHxE88oDOM~%|߽B~zضD 8;%売L0'LG/f9P:l k'yr4y= <=B'gE&] D:%L~ VemG3O(*A']y|?t|37}k?FL1S Ӱrǽ<ʟ7NLM`M6r0wkiER|w+lƙN8*VnvtCX'~(%\ 2TIom6c?SxvE0^ "+7@ohÁN+ڃŴ·}>ZO`HgB[<Ej#Rx/n.tk L-hIyIL#9^4Uj썚$w u M`Yq0T 14؈LG u "<>rCE۝"( <i/. uDڎc kىoCK7Wj`Iп!ZœQdz+9B@rp2IlbDh F0Cܵf<ڈǽ|xıODpώ0]f"ϼnȿwQ[E q6eLQ,N(3,ŋ*D/-ctOha,N~/fªTZ%V hR]2ѳE7{u~PBᘸ_Zܑ 5j7;3H'Pi:1w8b6DB;.rZH.ѓLʴ8GäFCU#0&Qvl=D߁lB w`_o+Q-{ C8 5/Sj_a`ϙ2zDj/k=n^ iHtm&L&=Ɩ%^gAWKCq?e; ۖ[aZc|DcI [=F I5Β@XrL\Y5۟7M{Ej؏_ jCĒF0ᦙE3EKbo5 ~Rʊ2s7@L(ߤg?yfUmE]-+7C== xF/xF_]r!_ 0p%MflΊ>o3F3ޟ }E9nZ!&ý >#+r4t|0_%?Atk[Q7{;Wbze#^MRkT Gۏ6ņ(5_w >ܓ5s2~it:Sb#W>F5bґ=TyyTn6Vl'#F~X"a)$I[7[2'\zM;AJ 0jBsu>U}{j mƯh'NI%!6|Mz3\}ȑ]>NA ,r|+cycrq\Ά re9_kt|sIWKChVn ; G,*1'd<\ϓv_<&3ICNy !yW̮=T~loO| u ̊1F:;7Q~s0Mx)MWN _P77~nzgGzdp=I1yȢK M,ÞD:~m }__{~V=FGBP/~Pqhܻ9}9 RID'x 5AU!ֹtcï]:h\}tE/<_\JW4t@Pq[Ù] 2]a2#,{} /(,4}ipz$0LLL wIO/6Cg4į/#ť{!,C)*(ژi¨Vm؃[.^͙=SU6<.n.5ezVY$peܯ潮UKZ^Pb(a>ۏPgTK4KOFT"܎|@q ?ȸUJߪ\4$gy(jZo9~9M ad9)sD$s?<@#08Fu_dҷŅ]3O<+$/S|Lh{}.T&Ek S)v38h̺9/G?}G J+JG\g]h# lz<8l"I},Bh>Q^;PTI+jS%2m##G u3Emz1 ] ۘ뱭ȷ с vy /b \쫍 "<jȔeyٙG&e}, χ=̈YzlWY>xHggeCjzCkp |rTϷقPRtqr|Fb1 %$oT* /Cڢ1`^h=W 3<<Iӆƌ$؋iKItM, ϫ4˫WLO8uH$Vmb>Ǵ1%}$99{g8rLcYacSSrYCs_ @<+&,1t0n7+&x_Ə:ǡż&},B>/@ݵXT8!;'!ڈb *W{SA068CYq"ЮM"aȺMBCb#l|*Ό1ez+Ki}hm}7qD6{m/o!"4Di%tj1uCb9g4%^gI~$/f3-c)%tu43}"R<HLZTv;۵j"~d}x:p 5<5ٞLl9t>k\'k$G1M5~lx+g:C͢8W}~4E?$~@&,yPj<yc]Φ lHꃴlk3D%fkWY؍c694a5+GC1 8*dc6{B[f4¼1ͫ3<ҦK=KfɺEvEܹ?wEg +;I?!>1= ;fq&p$tىG}ǒy9$kr|o}}'o71J.vΘ,q.dz$ iBiv>RG~ӄCDOVX<3a?p%/vU^MC5? vk?ۿB13"ZqF9Ux_g8??z B[ R|~mWulcB.-ʼ`O0eYɺ/?Z cW}ʪj*d.o%+`z~#0Kny&5''P-wҎ1<7Mc8spL||N̫Y<٣of<~t _WMQ.9N5Zsv}q`{g^/C_ Rw reme|7ߠ~,;IĥN@ ueTs8`BYD+0ͯn?6Qr2t :Ӓ?;Ҹp"1nUd}1Z7++=Tµ cR0!KTƋc޺M LޠNcjP!OO3Pg:=Nȡel?7pρä9hc9 ۳d=f;`ׄ{@ 3-C9ugm~L{Nf9W(=/5zdDx/ҺZ'>˾B>.A&ȟԙu[r0u'`"x-K<3#O1Cdx ??Kj!~K>f E(E@*#zNH{ %{!?O]y?ca;zsv \Pˇb/nHǎ]Ex"2Fb{_nͮ6/xr [΢.YJ[x!olZY5* |}k㞭ԩsȇRIReCtyÖztI4zLJ+N?gc?ې|FB? o7ĩѷ:*;K%5Q?Hn9M;B22;=\fsEC:oTE|Ԅ35u¾κd"t ˚pX1lTA2dlyʑʗF7*7$ +_ɖZ9Qcs~Tn<0g2cPZ希 $*K,Zֈʖl)*FlEVU-[ִl-*[ײPFCei}Ffф+5H[~d|~AZp>,}XR{GL-󉼩$֧<|taoBQLEzzT$9,LG s"}#y@^~^ dȻܺ7pa,` +)깨f ӟr9(+=́'Oo}7ҀBdZwCsM+ck<2sA|g@/թKw5]96r ?fn9o)[xe於2lg=&9zUF6ݱNFݱUG?^\TWsᮞ`ܻϷ$&p2Tn Ggߟreyy~<Q[: w1J\&/2S8oreEؑ4x}`o$l! (o< x/8F#Д?xԎl_Q2h남7t&F+4ޔFUiR.Y|/ v vm?7Ͼn;qə\3Q=6Sﲃ*v|4,g FBѿ3ۧ lxt0;"9 ^wL+#N/GV*-FQ5ڟErr@>uKO⹑F^~-U~N•Df>{~ЈjAL3DEG8ZB_xoc1ηJ#߽|[ޏyGǘl[pwhOIʞ#QhKҢ;=0)BŠR*dR:jo(lk{ TڌKpTMh4v#F8 =?YXt9Q##1袿k}x[Z򴶋d}1>PP|r!w%{JޢO^΍8N*b M{4sBx%><1)'no9f@׹ׁ@q+~.RS zxu \+; }.)΂uoY]f-㟀3!SboD+޺73[|4X` ThM2_!=e/ 3yh&HKh?U3`hϲ8ڋ`f*ՓBPJ=&}wTJkIU( us%&B{SOWa4ීy< ~v[xyu>7tps̥?D <*{Hvww_~A{#i$Vucu O$NX}1w_qtC db;à>\{>qݯn1|)?4,Igwm.Řg <<.;ia.ج.Ja9Tr˅K~Ul-o`^" g$ȻoLȤ_zj]Br"FFPpBʃƇ(e?]K#Ȕʨi.iދiV@yTVٽ.{/顏YS2Vn±iL.` cjϭK9>]R Y5s:1^l$=E|I!jxBC *[I*ʋb!77y8W\&ro&s⻲ѱQi%VZi'vZOb^ϑA;+~Ohܻ<}Q=YRSB[[^`|dYPmLHŨW 7 MQYH<> e᎕9>SD}`ږWg7=%4 C\ 8T$~Ahe!8eϪxHl,K 0UE,Q7#K[yf!r*0b;=svw{z^|Gℏ!gwȇ}\w1 ]w!|g,url3j3]N^``@9֨g+Wq7ӄ)&G/eo3<5ZVFy#ch{Xo|#7 vSMOAyGp~~.LVGxT υoubǩ .FnoEt7,a{/K`F7`Iֽ9Тz͆y0WZf̟qeؽ=%e;9{kQnEdReO(}Q۰aۆAٯ5U'r'|0,%IQu Gi n*TtnwBam3EKY[`4=} b-[:㋳qg-L^PMS3ۊ'a<F2ם>\]!u8~٤eQS>lHC=kSXVn=x=˝:=m̕(M?% eZ:d6 CɌo#/j4ށh8j8ʏ$rٌ?SD'b>L.=SrW,#ԯJzEK;NԺuWEsSor"^JagĕjA tX? r6T4إ7ro `qm4ؕ7ld,TB,Oy4X)۩6S`g,X ? >mq.ܺ[.-`G .!]x_ͽݤx4r\\Tar++\UJ-lzIy9en+}ɓ8c굿]%7c* ߬a2Nv=L"UR^ȸG0ycX(xp  UoXa8L h&0W0Owb|훦fͳ[egR9W|a{Z]ݎ}WhGjO#0}x\l*}6b Y$.+f囩mHߦ!1Vпf ;x5F!|,z|x;'GE\#sR w\oq:ۏ7,?[! *-is):1CH0*au]!C A "!$J~Q8 t!r/&9wc򮙱 cǹ~{z罋]:d];jiǂܖ 3zʸvpݹE &w\hTZ'|rT?RfVi2UTvHjŌt?o؟KOkK}̬XmWiٲ׹~qe.d`t簫xNfTwn|Au~٪邺+/2qd8@{ <}D}CV3^bWG?8(ʥBih;F\w4@njJ.Uo洦oUi:h# u/ 麫.O }awI_q/|Fh-4:%2 bB]+`,:gg9jIo}E=vXh?c?)HXISϜ}Y} Txm̶ 6dOo>ǰ:$`U8'hm3?=^\oЇF^>A6Ѩ}9^iqYctgG}EbobL֝moY*uWu[2jnʛңyaIĿLH0NKkowU9x/Mr&aEohO5GzN{9Moyr $ 2|tMQ"B.:fSћy2!3dx %KA۷VN_o#W:=}%<^xK^HmJn:7~dz)y#0⁐W0Aa5+F]IMj;ov^K+ V37 M8&|d{yg5c^e$; ^4kxݭung:}suNu~И{_BڎfM=1>x:|ػr==3_XUktk=qϏJy_L[.017#E8F$-OK[/ޒ؝;QWnUϋ0KǰZ#_KZn[`ʶ?K4 VFcK?.e)Z?zyA2䬱X{n['7Oo.qQt=|#S,}g,Gҏ5#zӊ~Ipp~钺XԺ<=>lH%  7ti.PwwtavMEMLɍطeOgį 1 Ѿ wqJQ&KZJZNⶲ7y9c7Uim'mq; D^*w6nԷB_k.*b.vs |蔗YYot;OY49vh?P&Or͘kUڼ,ȞBG8YKheߙNU&Ԩ |n<FM+@IFBm99'Bù {뜜*9[|Xf1C˞Õ7 k"اr1_"Yw/7AqA7M0k˜}h՞.N> &K7S9gYR[ D)! z7ܿ'FMݴk;_.5.'=yNO|L(.Ů)QOV)i^77~"R8??-'1c~jli=vy.dP?'o@Omw7O$Gcsyxl2 >d=1 v'E:~=-}BMiKpၹG'zK:k3ެn>8xEԳmå\%xoGCJ뀏3 Fy3A: dUޚ(/24FyO3?";?c ?b'AoZn_-:8['lhpы@Djp\ޖuF|uG&$u y4~o$Ǫj GӖ$"RB *7r{2gwX=2Rhoy0Wy) -oetpjVSTgLN&ׯ">>oڥn5k]`]J#Gny}jjxtfNj\4Xތz~+dm|b^ ŏ:d$4,ULeJФR`G|wشLiک*`Sl{;[$ ('kZ%';rir\GKH^r7=E;g>Ys4L9Mǁ1XA>,ZuD@/uzCHOwց[=^? _>Gsއi囌tϯw?(9P_)lg/Qa}!8(n9k/ ao~ɽHH:hS''@'c;=>e8s%+NC^Fm [eٻdյᘂޥnlq(\{^e'?~;8vGD3vh4mZg1 G=ܷՋ_0V/;!A XhdxH_ωbf;=V wH1Uos\^sR{P{Dl~aXf7{w|y9~h,?%yx }rrʜْnP :[&tZSM& ql9jMʶ2fhYL>HM]RJRҕ{ Et7p3y).n"m)<˓zRbqFSm,PQMh#'W%u|as'p&eqÿFFSIyySǹg-6D<`7JCokXO@$*gtȇH/3DKD8~y f*|xz`A ӄ'@:οҘzùfGx=ڃreHw 0WwS NuW;+z:0klބI`~E7J]^|nSw;7#m0gq˄%^1 4,Z4|!R]|;͝22g; hodDei Lwv/+_ G_FfDvj;@!όx tRHd O8>FmGn 1~F`/ F2a-%trh1Q΋B\$9`=qpK0 rR)x(2}9o>$߉ALj۵]iYLG~o cB`s-8.>E Ӏ)S3L}.MG] Eo~.adc w]#޷(첊w7p "FG>Ћw >{ǻ1{Zqu18?Sc!hu|ɹ7S4)A%Hwa93e K- ͚;Pq7( H֝xy"r.}@ׁA|R2x- -CXo_ >bDD&QuM,$6"y\^,5%wGa7ԄF]_R8) zI}-@ltvٵ'5Q ) -$8lZOO+Euv`-K>Gx[=aM87+>AĈ-,WP%eyt4 ?jnOWcY-&RԗyN9OTX.nN_;Ư㷄n_ >?daK`M_?"0# GE}QâIfKȟ#%ŶwU6}4z;}BC#/HG24VCS v*Uonbe:ľڄ_ INLɗ*U!x0Td=xc N?ozM ]N_ Xr6HcA;%zضbBB̅gi?~'ywliJNxl㓃K^ՃݍNZ]ȑ:98|q;j}GՇ{n1ϻ4\'{=քw_ȑ;\z^G5N w|s"s/ڟ(H% {yPIiWƧx 9mh(U5?V}\r5L һF: ^x^8I`%r?U+4yG)>T8,Ur]W?BT9qذ{J!^7/{c)>L$^P@fDெgňDӞäo[M+3ߟlkǾگNc`kTO[d+ f|P؈||`#}'O7;PK\ >RYq'ۉ¬u,$7* 1#;#3mgG[j6Uy9 6&1"KNpc=<% so|qۓ G|^_}8cd6u^Ǖ96fP)>'r}`s\ҼwwmmNNdᶐ2W?rWj^Y-M!BT$>G$f)<`k(ߖ:|O߈/yKf4>w#eqÿ+~0.+v&>Q'dZ5,v=t6GRaf>桉! ~`QZzx")ģ^ɽ;xm|$7#;Xg8ը^m2: ?VMg\{׏M_ 4YM_<4x\=9ٞ>/R&k\Q&k^X]Sp)p^>u>z5f9m\#R!…T>Wޝ߮u~{=;K1Gwǃq2+J;׼~9@< &qӔ`y/ A7RŸTeE\(]##UKɀC^ˎy?Qh{7m 7 ,A]n sW}J\kpAc5sM!zO3rA1̘;=7Hlw*ϣi|v}ʱ"b.:]t/_֯F r;'1 c@b6_dǏGgFHOW{ZׇPjŒ~IMpXQIQkI(<6>zGƑlUph e} HȒַub?#a Eʓ,013|p:wFD6 Xd}t a*06 pW ȼwP dSa.0kW1>6F7e8wg^eJ*&alvf0fN8MXˑ[[͐ nZEb?:*&}Gfzhcj{ΰs̎a~(v~{[Pd;[VaT›~ORV. kR1Q"?Ś&3bޚ9M~=9lIJN6Q72H94qD$(Y I ;"H5kPlvqvF%I7&$ZnI^*K~U oMΒ < zդ F^HOB֢spƷ~7}k Kct 'Q'YZ}]Dy\a-IbU^"16ּH1,r;ĦjK'ߧ< HїbǏSd$Yօ5v~3y=w*o B6rz-18 ^דT6]|ݽ-)Ws T4$88Ifl Oxa(zp,,V Zsϻ$HBȓg)ޱO]%Dz7OϢc13Fj;Es16GDXI6_sBZ?c(f3ÞUv{)H@ޯwOgpI8EsG\ڮ)l+r\hc+E`]gLŮg7oz`0btw)6a3u-vU|9ў)׬? x@?+;|=')=WSW ,B%F[Pa,;ԽA-Kja. =1u8!GNEX7 i1k+-nKwہO|얏sq#h./d_1񼒔9{CyL,W;}q_=W>'I9sշj:#˃ yc3ȃjeߒL,0|d-{'U=I{-RH?urW }8DsK +@gh d#_X5)#iV]ZJ1.hn:U~iLҴu0a.u0b&dSm(cE zNC+qlVڛeo;+-vFV(F<_\r_ Hf:A ߕU{2x 95,i1(>`2b0AoqS]ocS}'뭗*7S>ߤAO-'ƍm_S'P=oכ7hRzR''|-_ۼN=ҷ-,' P JĚ6F~)cq5U~bX%DV$\Rw/5qz6>~- VEyh.6Y6o˭8 zs]I3rUx<5fH)&sl;g[sGֹɉCϧ:$?smLǁEr9T:9 ^&%D$o@;x?Rm7"&NPecĮRgC[$ YLn*4ر[< ۥ-g4ESzѷ6mrQʞ_|@²IHI {XA^u3[ly0 |>}r.P}?gR02q"}Lm@xry9sQ9"߀WZ_w2=U|ܮ3^B]T KTv,m].]jlo*Iێʙd)7jɶ^O;?7݉K'/Ӓ?ɜ $~y\b.|U)Q#@y{kj57&o&⣠% 6H[<No;hWdB-ni~|~=˸C)ڱ!5O.E` <%3{`ۭ#Im}of揋]b+uا7`92S/6Z6$٣0iBϽb~vu?Q+!0%V!7O de Y+7 {y3ko?a{?#>x֑~E ԖЃZ(D$%Np YT@ i+Lg{7jGp2c1OEy^+(=L֚T츛lJXִ? ߑH=D5@Bxwti?S3$;my|e3*S'dkm3z3c!m㱱h!ۧxݪɦiZʹ-]ר@S浳kMfFx(yo]Ln,M N-iCl=9WYTT8!PGh`!غA6'*^S\gZ 5 LĘӄ&^Y9d sbw:󥝂p #;e Lbv6K6: خ?xm"s$rHHINiiMOXɬ.Wi=:8>&gä}V[#l[KG1K٬즕N:D@+Gۏ)m~okV4dsZmb%fb=\gw#hq3l?!!&XG~}yu޽6j&R/SQ=EuJZKL=}Dl.H>D!~ @ 20+ p5Θ}-7$CgP#s(>iu?]_[}βus"*29gPa5*1yژ<{QhLws{&\Lv?Jpvt\FQ9Mz* E\w#gǿ.h*rM'0qd#(a!B{϶y:*-UWdS YWD//G%Qai#o揉uxiwDSl>#kW] }kd|`rF\~E4IS^k51r$ Ŝ<4zkqJb#iV«+"nՀx\-df ?Hoc}o;\<:/9Ҁc)GGD= ܒ0O?}A$], ޸yu 2cվz @ j.̫e5O,}jӑϋ9XڌŲp4b]劕7a\#{iOpYopđQ|p G݁Zx]BECK-* xP\P @%A ITJFE)pf)kOw1z6t5LT8}N>Į4Bli[ *@{WtӥOù!96?P0gaS4Kywϯ" ŗQ/ւȲʂw/um0jkUо݄z{Ϻ]YXS.M,TX)+ =SzN:xnB6 W”@I^ƴV,d}pr0F//.lhchzi|goVC6]fDQYfn_Ζ%[k>u!oϳqSsKnH>w}t|ɻyG Ǜ/F2~it3O/Gd`NEdVg}.7ILˬN:!a>44'c< Ԃ>h//s^YZ*^x0y-" _4^ѓ,m0]~QgW& m.Us4#HV9}]/JvoG0: 0RZHj&BӕhDoBwq&c mx:);kK`-`yӤe`#xCSAd\ +bW S^W[_]tD.ԱfBˡMGx^\ۗgOI]1MsǷ.6*8TV_ +Je y& ?4Q_?Z *:^PWAТxva w2QBDrou ׅ*.&rQ9ԡ>Ĺboۇ (̕Rh;7坏bw,RὨo$. "Q)w6MeIv {Jxb`cZAJܗ]"]}#\ Z}]_4 ~1wse0sY>~~hoqo4RrvȍW4}- ]0vWݫ+<7h:NG^.xHia+[Js q^h2f IIZ[*LLraaS,=B"'2nӕs1:ԓIʏ[g"3K=Sq$n G؃uwh涾 Tp%~y0&~-7TZ&; fɝ;kus.KX bQDN.44dЀ}44^Sa,ױm$n׸BDr`j<^_kQdVZ'}2;2SN w'񶶛 '_@*3-X?GiyKm|x9nq`Ƶ2bS l{4XO^f_.7dR$XMԬq]Oh}(Yⲻ/$V&H˪ǼШ&;:>xD0ߟ^{;IYa|\}Ya9bOJoQh 22$ )tH'(X__WgGО l5}m.bhpF{o_x=w:B_Cw.3_DOcw5)u[h mDe' G `4"wkxL(ۮb):+K"MMh%4plrg$ux`}K|X&}1}9V)M-`K@x֕*O-{mz~m! #[H)bcz#1I&kɣy /qB%@K\Ϛ7dzբm;Z^ d4~ڽ>{#$m,-Fwxs|' c%}ؑ|~y~,sj f?L= 9l>8n#Q#I$v|e%rpYJ돱!j7Wu3$Kg.̌鏯o.PC$KFq\3GْE>h✠_)SMwꡥP6&\`d~ƼGm6_'/-fq>)G0M~?ILwyD`p̀3oT>"UdT-̀g]\:neip3`"Yp:EpoN,)/:Ep""8ȋ[sg[貃nN?wxz _6%;;8OQpΝb3:Y#o4j aQ?!'/Df5Ӈ}FىYG&u <<=)]zl; %-⇐q^sseY<{k>H]Y5'\5wW>r Y{Dbϝa'[gO,zpbyyx7qтwPE8|c|p}/h.o\ZϾOa-@T'2x2DMZ[6dR րhdk.w si|soՌnMP+B͔.G#.B+ qgd|NMLj@$N0WNEI̍QB:s1B ЧEs:oꤶ$ 3erzDZ5;:Vs$i,FmY:(hyVanӄr1֨xk65LK.O5%|0}{?o䯙&/R"}XJ{]t\vKP.&ov\sG;Z݋-ȝф ~w8>;w+dٵ|hr8xRs{Vq_ W\)YG4rV}ॻ&x֟R#.r+;v뗊\\_靴_ro@/pʞ36QGJ'pDߕ 3dhDȮTGИ1 j eֆ_^{(klº "(`1Qͤ,bJ~iVI;'z?s5bʖVB9Aj2-&+TwKQ]ApB(xUIUhZ<1Exf|T/]>Azy!qlv!%>c1-2ed{49O5GO"f隧2;IG*7$s|r.5O?2p(C66|RW*x0r.5Vj4<[/7WWib/]deuu5MThSuFQF *^*717M Q3;.{_6A}+K,knn.  CMZ : 26/03/98 17.17.43 by Ararat Vardanyanł -- Author : Ararat Vardanyan 22/03/98 F SUB ROUTINE KNN(D,U,DEN,IND,DET,N,M,L,KCL,itr,nn,f) F DIM ENSION D(M),U(M),IND(M),DEN(KCL+2,L),f(kcl)   write(2,'(''distances'',10f6.3)')(d(i),i=1,10) C CAL L SORTZV(D,IND,M,1,0,0)  wr ite(2,'(''distances'',10f6.3)')(d(ind(i)),i=1,10) B DO 15 IL=1,KCL A S=0 . B is= real(f(il)) B DO 25 I=1,is B S =S+U(ind(i))A25 C ONTINUE  inn=ind(is+1)  V=VOL(D(inn),N)C DE N(IL,ITR)=s/v*det  write(2,'(''volume'',4e14.4)')d(inn),v,DEN(IL,ITR),sA15 C ONTINUE A RET URN @ END >+K,KNNES,T=FORTRAN. ǂ CMZ : 12/08/96 19.20.42 by Ashot Chilingarian -- Author : SUBROUTINE KNNES(A,T,U,W,NL,DP,DEL,TRUE,WP,E,SS,N,M,MP,KCL,  1 DIS,DEN,NT,DEBUG,JDIST)  DIMENSION A(N*M),NL(MP,KCL),DEL(MP),E(MP)  MPVmSFv$_EsC?X[&H&3DmɕdHMm%}d@;e&|gx~<盗^^FhG#^P^D?x+zME<8M(ҎLdvݎY,_׮e6`۱jfQGL  M Y;YJEGn#>ɜ82/d"?yIzGJ3ӹ-,oEJ璾IқY:{R,ENQ21Dr< LH^,ˤpIcqtFfǻ\F2AS$c#3\$p]L)P\J ÄTc{hX`8/yG I Cku1" j< > {CuN1NxHZd" B_} ^:.$΢~18kLSe]l ѵ&D^ǚx$rO3+ۛj./Q1Rmv'QzÕnmP!¯ZE=,2 moSK[uzv>>vJX‰:WHK#pt>Էޡ}~-WnsCXl^~(,kaYW5%ck%]gh*Sn= Ҹ}OS4j!2MA&֓qY|?>rgahD\닮U586XoΕDa_%cu_O=b>ݪs;!u0UDVy/Զs"Y7n5eԵ}vC> I\I7jh^ =Zӌe7 :G^ߵ~ >uy'hI蝐zRu'[i5j7vMe]=ڻ6ݯ #l:<_᳒C3`3s?A`8cH..DUs>+K,KOLM2,T=FORTRAN. ǂ CMZ : 01/02/96 13.46.11 by Eugene H. Sevinian -- Author :*DK KOLM2 ==== . SUBROUTINE KOLM2  PURPOSETESTS THE DIFFERENCE BETWEEN TWOMWr۶umwSLH------},R-------y@R-------u@R------qHqR-------m%!RT------S------e4------8------]S------YHS------U<# ------QU-------M$BT ------IRT-------E3T-------A9%T-------=T------9LU------5$V------1% V-------= V------) V------%-------\pKRIWXHNHWXGFdER@l?@2t120WX/z-]D5, +m/*`*k)6(WX'5%$#Q7cq]PbMS)bكEA]2f9ӣz% kMiywxס{tjTM# fMMmڦi2!7!WSju} zrt!edl7ty6xRNA;%XDDO?7-޵IJZ@K-{]UH=5w֔d*]z$? ږ!o`k9+Gfv!x b~Ih^Uި%$S:+cwXN5_סIVnr )[!6|dҾϓMwj&llNIBk=2A<3@}(vrlFOc,f;~!{Ol)=/b+49QУKƑX9xPmd^vA2PXDh;FZ9uȵ-Cy$.t/sKdI^ֱ(- "yqϷ c|DYڱ G PfMƔPj/rPavcI;4JCJ'wO|Mxg,3=zh8Hm 6QٿMXsR GUco_Unj)?a98@oŢI ㎡vΘg( =%.yd_ HaXoU9`W o&:=vMys}m*5\oL^0 X9|Y2N|N~3UFmdS-6M|=>]gĈ=@㙛OD}qh]%FX sJn vNa~cZ#"r8Av+ YZޞ;ҼFkW`̊+G~g i$^ZAeĹ ?83֎`f B%tFZ4t5&ͱKUz!%?[1GuͯұL -wSZYw@ZxYVu4^k;Y.ݾB>gYF里#+K,LFIT,T=FORTRAN. ǂ CMZ : 01/02/96 13.46.52 by Eugene H. Sevinian -- Author : SUBROUTINE LFIT(X,Y,L,KEY,A,B,E)  TO FIT A STRAIGHT LINE Y=A*X+B TO L POINTS WITH ERROR E MS˒0$^'>dDʹ8hAjA')V*Xgoᠢ{{jVwtu?FY5ΏΚ,mso j0] gM$7Xt`+mRuJՔQ^ZawMOLfA/Xd"aPWx 9~%\ 4evO_D&*fȒYOKVds!.ARN-}MF ): z=f~ZuזjJ?+'-{S <A}Ⱦ ˚^L79.,oqk[vܣڌ8Azԃ]wE le7*y䤙/hTyg&LuAuKn>1(ӜvEq{kS]{=s_>kN >+K,logli. CMZ : 25/04/98 18.05.32 by Ararat Vardanyanł -- Author : Ararat Vardanyan 23/01/98  SUBROUTINE LOGLI(DS,ratio,SLF,MP,L,KCL,STRANG,rmax)  DIMENSION DS(MP,L,KCL),SLF(L,KCL),ratio(kcl,mp) ł ** * DS-NONPARAMETRMF(SMo@:n?غJP/LNnl56V(Qq|C@H(f82dy3潱O΁: 6|#9h}]oH)}KE; ie!g'QVB~^C})|Ե{JE(:ܿ`쌅ɻM-%ֳ G^$Ze^rKʣGJʨ c!|=Oyb&',ԪˬH. ]k2)k^l&ۺNg4tcS7 Z|gS锎WFӮ{jDE|mVpy=c{o$orTdЦfDבJ+]UodZA@AbjLI*blD{2uW)|v;tp bUOwHUv׮Gfet lU,bu~3liQK(r)&^AHa`m\ЯGӐ*_1ArܑZ{[u9H'7 ?Qo vnżgo_7Uh#_>+K,Lptau,T=FORTRAN. ǂ CMZ : 01/02/96 13.47.45 by Eugene H. Sevinian -- Author :*DK LPTAU ====  SUBROUTINE Lptau(i, n, Vector) 28.11.1991  PARAMETER(MaxDim=51,M$_]sqoʊyJJU)"ѾI:X ] h':'퓤w<":ˠpw_37MN߾:9<^⃴}|ݴѓ'>㏿ɧӟ_xpo/NOMǓ?O>ϧ{ֽ_~urqٜ?i~ ߹1˳/^_dZ~t.q˗ l?7!ӯQA sZJxh DHmß=h+N׽˽wLJO?}}w}iywb,ku+>~/,owރ#~9/?s%m]?|?4CxA4[w;?< v 3K}]YhNJ⸏\%m9sִ}-9w1iqDoy7@#.Zviư#>Gk_Cc\^q4w\cӑ<5;7==1y-GF^nF;Kdzi-bϷ&mѺx]0~>b}hĎFe]rd|j޴Ǿ( k4a-aO;_ۗ׽FG:]Z¾ۦ916t$ito4Fٍ:Q6GP†iYk`&ۄ&-NR]Hn7;Pl3ҌޞWV[=Wb=4yp8(EKY\$M1*fw#OƎPGw9j~`nS0Ol8?ieGkys4nۛu5D_(qq|b{V{g̭W+Z%*&Fm  .,tP8D-4ʲW*\5D_\hkIbǧ/+ibOMkbMF;mOix+4 s@HrŚc߶fwTMUoJ W܇=:Xv_q3ԽdҨm c }HrP\`yL6oޱRƨÃj.8ta{ ٵ]izH'lʓbkH@ ^tq7Jɞjta_$=Fm`^@-99V;#nXǐD^t= [ebZs^]Γ"A>=D}Ū0k2=mdAٖ}X mg.0DZ<xl(L!As!8V!л *Nk 4%V Ǹ@Z}^V"aGWQPNsc m˛yA6ڒNjQX1%64jrBRw3_Wun^w_r9+%%3ƿ7|nMx+rLwmJ1]D!͋Ǟ]G\ewfuk`򋐙<wH^t#bqcQ$7wzvMq쵬8&= А笴 8,GyE7sADI& %H^8^ ZZ,DQN[dZ#uwtӶ\['wg7pP|Y2 s-o(p˸߸ R*͘LHs{#dB죆tmI4@-h;GJ[ ocmx,-#e>VB$s2c wX=+64I ְ*1IE,Yy[ t#e"UmBo`: 0-p!x!{ ' xSƽD>+[*s&arAO^6;J^utmn*JYQHF2XGA q7 d4ZH\Պ$>|NEk (7,}280$`렬nL%Q91JRivBYOjqn}*H+@Qc*Q}w (f/ <bZ[,J[k-YtM,,TVZ̳+4B>}_Uu7v\|Abjf;0*`061(2ǶA'U<# YF%|YaGcP9U- =[qrűC! 鱊K$Nȣ#n7XgXFKz [Csͪh5t%b\x%v-zSDV{BZxv";-JpLnj;iNCm̘^UiX.NϿVk|B{}7K xL<+s·']zO]¦Z/}W򘢺15yQmIi8>ݔ^Rh\0u^q4=e4= XMfvGAZbɆmGC2\i{d璩#=a{+ 1x?9Yu:4|;M.yIvCHnfY\5[ D2ţ{6ߤ޲۴~,my%H6& >CNu`rHuܲ`n?UF)AVh,Ddpiѣ"JaIW׭kw|US`N9n4%Ӫc; rxCm(Ίz'>]0קv)!W4h ԛk&S68NrOFYxdYձ1%H x6|R^gw-l}MO}X01[yloy0KTam.ٌmUHj8 ozhB2-)gAm몛(o9{kW5a4f'>q4ﻝ,txUV1SQ<mo;+:l 'k KCW4K47K_g¦,i47N 6pR@ݫt# U w>{05s!|2ƌDzMv 4A?L >M]V/X5^&-U[C^&Uak;ý/eAl(oPX_U2*h(۵}$ޏ4~q>9V`)EɦM6Ύ\Vϛg݋w-L=?X)EUkgx%ܱ+N?XѪ~ f}DM{i`~F>Buް5!/6xK:l06{Τ?bB:&(H$[s ]eÈP,@lG>&BS6UH-0s,u-}xy(vJ_ܐ,>t⽶K^eSۓiTFt8k *NEHXuݦ ѯPmvmfm;Mo W(5{\5𨿉ֳw{?붋09bkYzץ$1ȵ{%㪃֧4^P$N)ST7GSUq/rg6RTj,QKĞS52EѸÿ=L^٘ߓ T9#24:<4vV?W%JqWE&>P-ooU=]\'v%KV`r @ @1׺Y!lJdVwDu+Jإa^vE}t)E>hkOu5""H7]5J󛝳P1v~y\4K̺ȩ}H) ='`6tUpGAzF`V(%;^?vh|d7{t?rN8qOZZN h!}gj).mWGT'2S# J 5-iXpU ! d@n<jM ;d<`,ظG|3̆ŮOd2tq N9ދ!|a_D?鲙tuǂ: DCl/IQK[ϋ7jƺ 6Fz14ϔuSž:yp[U9α wաcyfҽ_ :0qC(Zto. T}w}7"*%cТ3 } Mn/+5@Ym:3P<ЩvqEo)z E4bGoj(z\Tc<1s.W4g *X\t^{ !cɅF>tc&|j,qQ`5G UcLW2%p}%;W. # ]tm&""Y"Wzg. fHʰ>ʃM4(Jky7=)j٢~m",؅tBxik[1h06EcVٹno߾wWW/.7/ο" >_O='?zpq٣<}7iLpzCo>ON?˓W矿:9{vyol·?C/_N?zǟ{qz||1}No/>lM|xzOã?ȸaɓOpWק'OguL'_N?8Z=<ΧJ~ˇ,&E>{鋋g_|u fB:GMsci,gX\t[LQ ۷;ηfdXc3 ߒl'OO wM6yƪÂ?Sݾ-S^]*(ɳwqD64)KɹJNh۸_o{}Nͅ\. Fklyp6|{D>+K,MAHALO,T=FORTRAN.  CMZ : 10/04/98 15.15.12 by Ararat Vardanyan -- Author :BHATACHARIA DISTANSE = RM/8 + RC/4 R(N*N*L)-COV. M.G(N*L)-MEANSE1(N*N),E2(N*N)-CURRENT VALUES OF COV. MATRIX E(N*N)-MUTUAL COMUSM0!jg Ni+0!izz_cRHd{NhJ(;tS L?h:=ED\wIFZZt%Z42O%JrYX43ʟ$NNł|S 9T\p_ ϝ_PP ._/2e4p*bM(bj=-idۉre;Ԇ=o Iswoeε'vSJX,sT>%'j1#׬љzó07sΘ$0uP2NH 1Fzbh("]>!yhȮ-CSΟ?^_!|&m`A*Yu5VkW_HiX!p#%g$ I$mH쉀x(3sћTl*/>+K,MISR1,T=FORTRAN. Ƃ CMZ : 04/04/97 12.54.33 by Markus Roth -- Author : SUBROUTINE MISR1(A,ABAR,R,V,N,ITO,MB,L) * * MEAN AND COVARIANCE MATRIX CALCULATION, * (EVENTS HAVE NONEQUAL WEIGHTS). Mf RM0 m5nvBޭEM6e *E.f|tL$7JiK ";6 Ʒc͸X5>1U4= p 4Uj+UJa^i~|&$ZuU kYmm ˆP -K1M%4f)-c)0uDn_3n Ү08=%FCgm7;,;@+Ȭ-AbW/Banַ-A,HQS2Q4GOW7W x=)?}|l:e#:ܯHD~1X-qL]uߝ4Ni8*f؉{0_zޛJ|M:긌>gV. {[UnvLDZ݃fi'+K,multi. CMZ : 30/07/97 13.38.01 by Ararat Vardanyan -- Author : Ashot Chilingarian 09/04/97  subroutine multi(A,n,m,l,ito,cmem1,cmem2,cutmin,cutmax,amax,amin, *ss1,ss2,f,q,dfm,fli,jmode,search,genert,tek,nt) M:` V_sFg41b$\I2IA’*Q g:Zh=A#LC_ qѮ>~qR;1߮Iz fw.<)+g9g*N7IKEe~':"BUc1HLM5╾p&\%)桎h[7v `b6t*sK?J,\?"<8o!YΠW9ن謍_1CL}34Cez[c1-?^CJMтuyӆl#9O佸oP8=I&^U[ #u;L80ygtZ[ |p-Mm#!&ܲ=?CPPG{t:fEӓvK1md~.`)Vm-ŷ#z6 R]kYZksɻ/5Xm0EUr' &8wcTN)\_W~ F(-*% Sop9~|ɿ(gIw _LG= ,0!2hnjۑP1WD|Bˆ;WRF6BB]&d|nw};n1 aN6ѵ@\`1>rp[б}WٕAD!N.*c +=h^>Ҷ4ZYg[܍]qD=s  @}OnȸSs<;#OudG6S窭1ER*v<>ުW,Q\){5d32فK%*a*N-KllfNdd휞>z`<]{&|٤3m[im}-vI33϶aQ˰z+ d|0(]֯s=y!̨n5x7/9#L2P6A"N֗ *@Z7 Rl7at^Tr&4IQ"-Yv8m0O17I;9(-}XyLL`gEeKoSH6xE<+=N/7zթSdIeP^5  k+\@J)ː1fh[k=j2u['徭{rY S{hl k7eSqu;5NҸiL|aTc޻}Q [0t YclG5蟐s칁sļ8uSk 1t 3zƞy\6OO_>+K,NEURAL,T=FORTRAN.  CMZ : 05/05/97 14.11.56 by Ararat Vardanyan -- Author : SUBROUTINE NEURAL(Q,O,TJ,NODES,LEYERS,INDTOT,smax,debug)  DIMENSION Q(*),O(*),TJ(*),NODES(LEYERS)  js=0  DO 15 K=1,LEYERS-1 DOM}RKS06@~w5 Rb01m44$ǩ 𷻒i04!" d0zqREʗmuGm4L/ozA/jozc'9n @eoɸB1I~O?׵K[ns?~vǵB ]͑1W&;F;uߴ(-?c \OSd\4G/LY%䖣Z.=PaZ~1R7damyhLO2 p5OUeRL* o/Y?tOOîȈl7>lr3< ?Y+ONV\ͧXLTϫw ]yhƾ@#2l8fYpV/#KIwH >+K,neural2.  CMZ : 05/05/97 14.13.33 by Ararat Vardanyanł -- Author : Ararat Vardanyan 22/04/97  SUBROUTINE NEURAL2(Q,O,TJ,NODES,LEYERS,INDTOT,smax,debug)  DIMENSION Q(*),O(*),TJ(*),NODES(LEYERS)  js=0  MX}Rr05)Ymeje|q 9"C@mJ R٬$0Yw҈1<Pn Y_$8hTmQE=<0[אB@ &NINR(N3mi* YӀ ROC3qLdŰo$ R/r~o,Tcxrs)%C@oD7cco`W@Fqp扷#6w~vc5L Ӫ7jh7Z Nx=vs(MHmn{צ%!>+K,NTREAD,T=FORTRAN.  CMZ : 20/06/97 18.16.41 by Ararat Vardanyan -- Author : Mark Halpaap 11/05/94 ----  NT READ reads a HBOOK-Ntuple. Cuts may be applied on each parameter. Ȃ It is possible to skip events or to reM3 XrV%Nb3 IE5N ($H/DI@@u'3yر=Ҵ |{9/՘˜|TF (I[]YQ6=TN9M\[:S4L2;k$9ݨX&Oo +OyRh4ME$ ,(6A_3J(MU6IbYQ%Y$CO GV+{ס oV܁qlrڭ:^g>[}~圴z[=pb24[oW~.nnr;jo=Sv,H^W÷x)N8O(a<Ǵ#?WqNx#m]d}zN mlx¥n8t)U' 04[SLi̿PhIVгUI%&֞wlN0R10EGsx:x:> X/!V GZ|Gsd3T.f*}(t.w2<_7<]" R_ lF hkU8 飡Pݦn Y [|Iu7m0Yt6ؚ@tRl=y1c8~&,P( '8Yse RQ~3ͦZ-fS2I^MNkϳ{)^rNVu%랂_*a y]{x†S╰ҩ?[IϵxLS9r8kS緗zCcw\ȯkVj~>8ǣ}'Ӵ=o?`kz=48(,IZazI033psmr@0n'k* D,cr5VRִ< gXg,+f/{b;D.?Qut:]gVmngn%7{-os丧N}unu،%RUK8S!&b~HT$'ӶE?\3h-߷MȻ{i0~-o+e\dxjtT?_v$SdD+'00h67Fc*;]}T_ $+O`N6wͺUѪVjw1*HB#ǹ}ccP4nS= g-j 8e]81FdQ^+jxԆձ{ =LMu k'@Ī4R=eحE5*~Z!ֵ CQDJGct󶤲_.m!5!ǗVYGS=awX l`*WolNw̕d=6\.lž}h?LSnx1ǹQd>6#_{uЄkzLѥ]Y bRuG9 TZg\Id^j5-bZ }w3L*tw=7VAsH&8K9S\':a]tp_9y; ڮ?ewҤnﵺ}l,x̞/n*(+wWO&C`gu'uX:=xJDo ٸ_'DL9i#t^HՅj3I2Ub,Ԑg<-ļIӽZq%C<.@+TfKiF4b[Wgip9RA)5(r( Xy\YCiVV Y5Ssa2\ٺ:?c&0wcQ+[k::9$N1r^7m&#LUݳjőTmwݾx5у&DۏV/ HR>+K,ntrowr ,T=FORTRAN. ǂ CMZ : 22/01/97 16.51.11 by Ararat A. Vardanyan ł -- Author : Eugene Sevinian 10/24/96 ---- ɂ NT ROWR reads a RWN HBOOK-Ntuple. Cuts may be applied on each parameter. Ȃ It is possible to skipM XrG:}HHj=q(Ȑ JI@)ʯI3y2괘ݻٽ6ℲPv)ȧ4,`t$[mj˫4(OyIJsi/ٍ]DtaE#6h̻p6SlDĂarF"zư< E]^`2d!)줻p|o ^ۆ=b=3WkMc F:Wbhy&.Us==Îs!s7۾ 9m\,l a7QjBrE#%?= -?#~y5p=;]ƳY|P -L±'/wZ#Jٽ->Bmx5ș iqWqbpB;=PFQ}^؆ ̓4x{<%0b +DZ}z},:GR= }0rⶒ',[ԡ : 9Ed5G 5ҟV*-`Rpy`IA3am3gpeA_Eܮ6G d7mX q铑PmI o.3A+zWm $txn._a bny 6/EMt H$nZ\`]aGF<[ހyVf nee/==x)NR"}R$.1_X3VLCsG {衹Vl;SoH-$Aa(s"Sv6š _OUt윷ݡsj,ϿYjf<>^Qd+3Ѧ|[kcL!1Hl:NF#Ql/nx:Zm{t5W^kvDfqhVk;}h-\$lR10]6.%;2u~2>LrqΌM0~k8EkIk&/9n]e:Ý>wVewK^VXR `ڱI oFqFwa߂¨m= H=WL{Ҹ,}̾CDά\I~myg?QʃRysO4yxcbm;n ba'ً ,/1әq b1yҼ)j\5 3ϩ6;F~O}S#ٿx y,- C\]fqhAcX.9LMo?wIe17}.clA^-tGq2}Ptua8Yk$Pb>AuڭQj+ ;ko3$D;:Ԣ-9?i_+^TqxWyD5sfdj_GY*BŕzjEgӻq%Lض=yY6}clwwbg7S]bXi(j,o| ` c$q;opxEd"!A=ʩF{=D B>+K,numnam,t=fortran  CMZ : 20/06/97 18.13.52 by Ararat Vardanyanł -- Author : Ararat Vardanyan 02/05/97  SUBROUTINE NUMNAM(TEK,NAME,N,JREG,isys)  CHARACTER*8 TEK(N), NAME DO I=1,N  if(tek(i).EQ.name)THEN  jreg=i 7  end if  END DO write(isys,'(5x,a10,'' NOT IN THE LIST ''/10a10)')  * name,(tek(i),i=1,n)  STOP 678  RETURN ; >+K,OUT,T=FORTRAN.ǂ CMZ : 23/03/97 12.54.42 by Ashot Chilingarian -- Author : SUBROUTINE OUT(A,T,MB,N,IOUT)  DIMENSION A(N,MB),T(N-1,MB)  DO J=1,MB  INEW = 0  DO I=1,N IF(I.NE.IOUT)THEN INEW=INEW+1  T(INEW,J)=A(I,J)  END IF  END DO  END DO : ; >+K,outler.  CMZ : 14/06/98 16.12.14 by Ararat Vardanyanł -- Author : Ararat Vardanyan 14/04/98  SUBROUTINE OUTLER(A,N,M,L,ITO,B,TEK,S,NT)  DIMENSION A(N,M),ITO(L)  DIMENSION B(M) CHARACTER*8 TEK(N) M1eS˒@M%H~e44 U#:U:VA/y1DfP?˕.B8O=MFF4%Pg`>JL  cu ,1.PtWu %XVCcQ -jw#8*.)j8<ĩO8#I9 I"ϑ\KӯpOͣѨdHEdt)OӁ8 G,A\0wY꨽ ]vt]lt0?Ƕ VF^(9+X;wr6l7o0@׹^>Po+K,PARZ,T=FORTRAN.  CMZ : 05/05/98 17.44.44 by Ararat Vardanyan -- Author :____  Multivariate probability density nonparametric estimation N - number of variables, MB - number of training patterns, MP -  control (M X[s%/y!@A"m&m:| )r^:YHyQAڎVw:KPf2NU@Hp.{vr|wd4-Ird"hrPf~d57ZDz :H fٖyh*CSIK'aL/M׷/٩KK(y}w Qw#X߼g 0 "6?1vȟ04-}Z,9KQȼ g0C O^NNbU v_ϭu#њA;tmv7-= q"` D4vaFӪ=^zী寋.־!se{9ֱֽ<-(n53U'`fR66[*]A9 c>|9]":C/וjx:.ov.5 >(mBj$|S;A݀]{ @F@j ;y%{}ԓuyَ#ܳ{jZf/l3w hSyk}}ֲ :ЃZW Eת^)ݕfZ?KVҞz{Ћ\fFzlqjwTm5ޓ;=7Rj , $"j"wk7EohYkAh2ۣ:WD>zsX_زHf E[O ^!֋z/ml橪U=O,ѥVSMsLRV4=na2C:Um9g緪ÄvӚPTWad${ b!N>IUbmI6yu\jw+? m3+=J5%2T#*M=$k{tAOuey{{ʇꊨ9ף}6~=:+Q>z-Vl.@a?@}ul}41rxĘ-Zo>_r[_H ePfF9*ޱer,~q!taΒxb0684-^?e//;;qGJ:Z\U~lFZA}ז¢6zDGܤظyv MCyڳm? Bܨx C]i]XE nۇrgy0t/!\&z\ANb w|@dh͕܋խmqkRE?e ?/>b7TA_¿iئ}y] n"Bnr?轺k2roy fxN~lrIh{=:y;^V{d||S83 n @Zq|ErF֔n{}7r zZb[n|/X^1t~-i~ZSݝhD.&ah?#̌-? ;DӦmܕi -R{).WԕhEUZ"HM=8~ _Jm# ҘLLkPjyFGI6K&>?oYM( {K+RtD>޲> .j!|K`'_>+K,pca.  CMZ : 31/01/98 18.40.34 by Ararat Vardanyanł -- Author : Ararat Vardanyan 26/01/98 ߅++++ Ȃ F orm projections of row-points on first ME principal components. ߅----  SUBROUTINE PROJX(N,M,NPCA,DATA,DEI,EM+ X]S"I%{b}[P()@GJ- lʀbl穻՞ߴ;3'973 t؍}Z"ʛyN޼yozᛠ.#|ZSh u%:9S'ɋ|ɮ@q,r$/eu5f,ej!TQX .e(c,!4 .y%+;.x9*}Pͼ| zlnHUVէ i+ dPٯ+"G2i4dv;Gtx.Kc./wd0?}_?I,r>^B(Z%'QuڅNVh)h_i 7r1G0H|)5L.pICގ]1VV6T.nC#!އC[n/i9!q@]63=2{J70Y[ưu.ƥ})/ʚ!cܖ>փ>X n[6my):<FM9z ƟW3|<{w<۳7e͘ØJi[VuQ)^j=--*n6L1TtXSuR!cj c\6=g: }ȽZz=4)Nf{4&{>|\ܿ-xF$XǸylLwn2m̻߹.n-AG8y6?Q |S}w8랾 =_$tKY_PX\ŽT4ӂLxK9'KihD9>4,UжиN+MHZ%ryCi * {&|(h=R-LmyN|wwIQN)TA{A/o*|oTGW=l{㤤8Ity=߱wҞmlS6ڝ>D9rF=>mc {}`w 82c=%RE-c)M|s(Rʋ4!:y/,v8fa4!< gqc6G8YО=M-4x..4?Ilf|̮m\E#bZ%/7sedm)w7pGi6X5-hu7 ݼ׸E]e+gV}kF ]Թu$䌆msy5n\sźq_l xmVo[&^{yl02|"*o m߮! uѱ5ͳM5~ŸfnC}`qIu.==qq!1c$ʾgmI_}O#\N>/Mзu[9B}4rn\I5X_wwsyl]/t -o)[JȒ pv`">T [g[W< b١p Esׯ DyMgJ xu%'+4ٴaLZ`h-0G}Pܹkbm'wcS')W/Qn k'}G%I `"JՀcZ&K =R&&o諌_26 >+K,PFERR,T=FORTRAN.  CMZ : 26/04/98 12.06.39 by Ararat Vardanyan -- Author : SUBROUTINE PFERR(CLOB,ERROB,CL,ERR,PF,PFER,PFERM,PFERS,KCL,  * N,L,TEL,FF,NT,c9,c4,jmode)  CHARACTER*8 tel(l),ff(kcl) C CHA RACTER*8MRN@/.l<^ cUPyA][<:I?q0 NP?J]Q;<$Z̝s>z91;ݵ_A4$!ryxJ8FJmCAf@яcf(8R/h'OۣBx&%Քe İHbp5 "]xς.0+K,PRFER,T=FORTRAN.  CMZ : 27/04/98 19.59.44 by Ararat Vardanyan -- Author :*DK PRFER ====  SUBROUTINE PRFER(RDFM,DFM,R3,R2,PF,C0,CC,RR,DR3,DC0,L,KCL, * NT,DEBUG,IRR) call prfer(rdfm(ishi),dfm(ishi),r3,r2,Mt }Sn@5NP[ڹp)P8S!jph)OV7x@*fPLX)윙33ggs&\&R:LcpQ=Xg+K,PRT,T=FORTRAN. CMZ : 16/04/99 12.46.18 by Ararat Vardanyan -- Author : SUBROUTINE PRT(A,N,M,L,T,TE,TEK,NT,jmode)  Subroutine for printing tables, !!!!! M<10 !!!!!!! to fit on screen or listing  DIMENSION MR]O05i+_ܷحiv<$%ӂTuAtL*x"Կc'-%K^s^LȔQKHUO5:o#}Y;D>UƆ9kFD4XTD{6W18Ns?kr/8t,dNXIT`5jhv1z`ʢ6 Xp#5By0ET\wREDi@Up'?\]{BYÁ`iRոDSh6F7RaVʵqµh1A=[^q;ag̛ey* WMorUsL "!/PfO=v@T?op~ pm57xX}u $Oy>ۣm~h2#cd{|ߘa=z}PWt3ڎ)>+K,ranecu.  CMZ : 27/03/98 09.37.35 by Ararat Vardanyanł -- Author : Ararat Vardanyan 27/03/98  SUBROUTINE RANECU(RVEC,LEN)  DIMENSION RVEC(*)  DATA ISEED1,ISEED2/12345,67890/  DATA I1,I2,I3 /2147483563,M uMn0!5fhŢJ !Qjz.=ESm'dA$0#mX"}"el! edjcw e(0f~a\y T^tn [ k^t]p`]p/_Z\Be SWXB Ce`]nWX8WX:Wx:dmk)d/.`WXJdv` P~u}*@@ux?G0mu^e auWK uRY[PpuRRl@o uR28p4 uRH0puRX puR %`3uRvP/uRouMZ@-!uLL0ith> hdnjgb\gife]dVdih~aD]q\BZWXY|FdY3IYlX)XdWVWXU Si^RQWXPUL\pKRIWXHNHWXGFdER@l?@2t120WX/z-]D5, +m/*`*k)6(WX'5+I9ǧ_^tI]:}UyUJm;( сYEhH{jNSV]|Ǣlɱha-U֭ˢ-iY;.Cco ɼ`hEsjvnK ||UǃQ=FF"X x;j7LB9 i^Dyܦ{uk.ex2/>+K,RANK,T=FORTRAN. ǂ CMZ : 01/02/96 13.54.09 by Eugene H. Sevinian -- Author :*DK RANK ==== . SUBROUTINE RANK PURPOSERANK A VECTOR OF VALUES  USAGE MSv0!o75$=,-@dSOɪ $mʮ <;w6$-U]Wr$n*JoqܔʫnD/i*$cmC+]6s[yPk;kd{C3+DoV~YсפB03 Zifᬈ6Ф-xXb@=>G?gsVC; o,M[[p,A _[iBu56V#~ЖF+]?Izmzd{,[S3׏yJp"N- z$^Ų9cv %T3a2ʱwG7٧A罔ϞXIn20r"Ɔu34Fމyq?t֧|dW06([FE }cj,|ZU%$'=vzF"ѿ^N`G(?.b *:BaA>&LAuuFW p3dLҵ(}\#VM99w#o>phOO>HuPw渥aՒΎ55brK4d%={(eOd^Xb̈́ yW xq.r|&"OY^B/˶=Ԑv,$ n"2E|,zx0wydptW]E^;z_ }>+K,rate,t=fortranǂ CMZ : 10/02/99 18.16.10 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 01/05/97 ł C ALCULATION OF THE CLASSIFICATION RATES  SUBROUTINE rate(omem1,ap,ccl,ito,L,M,tel,pp,jmode,nt,lines)  Mp]Qn@E[r}nލW DH X`F9j%ʡIr@y3s&xlY (JHU!Hٿ,.exyB/?2by[d"?~ZCs`%asR[[2G׫owjߐbIe|MΓnzœ˵_g=f}_-ԛL)іn`4\d L2<+[,\( 37Ù,i)>+K,rate2,t=fortran  CMZ : 01/04/99 15.11.17 by Ararat Vardanyan -- Author : Ararat A. Vardanyan 17/02/99 ł C ALCULATION OF THE CLASSIFICATION RATES  SUBROUTINE rate2(omem1,ap,ccl,ito,L,M,tel,pp,jmode,nt,lines)Mx]QMo@AT9>7va少Z|2N?`+rJJ[5!*+KHLggX$$$J8I(2%1ea2CL1><fA(Y߃&=iI:(6Enאַ>|qeTfyYd(/?W?vǂ_pY8B&EAJC 7UF_,7545pZ&WUKw^zԢ`Otዌ3:aZC NIVkNV-;ߐ(<` Pc# R)xо7pj>G3zz[Gw;m(R5O;|,ux(mcNRq&ޖMl"j]/ i)>+K,REGR,T=FORTRAN.  CMZ : 28/04/97 15.49.52 by Ararat Vardanyan -- Author : Ararat A. Vardanyan 19/02/97 ____  Multivariate probability density nonparametric estimation N - number of variables, MB - number of traiM VvF6NsJ^ˆ$=-#ڽS@p%Ύ?q˼@'ՙYaNsZ3~팒890ϣ4$x=XKU͒(YQ0'08VO %|miaY8=zp0 #OQ|xg>PȎ!<.>.Uho;zDٗLcFًN7CU+EJD#J,|Đf4*2Ʊma=WE߱:za)`w4N.t&(ޖN*yL?_A`r{رl~N\ \oBn1»㚾.zyD;phb_/| v㶹1̹M Ď[bЫ_=ձ;v$Ȁpw^";|ŸN zh2i7~X`.>~>=E#h]r]1L#nA`u8{[o _5%=c+AA՛ -qmU<]=S %&3ٌMV0xSB%@s &=9K@su|2F -bcĺC65Ōᣍ+XwKV4qV:y̴9ً?S{to*mti`74ѻq/{~W_gVv8|:0#zl*eyŢ].WV :f+&iNEjUڷ}[L&q&u8w <;^4b9wtF ^]NJF!FwK{Bcj6,ۉfyvLnkbU8'1-i\]I!/H̓Fp@\G)&hPzsbmw|ϱ`AzV XGU:A/+K,RERITE,T=FORTRAN. ǂ CMZ : 01/02/96 13.54.45 by Eugene H. Sevinian -- Author : SUBROUTINE RERITE(A,IREAD,IWRIT,MP,MGAM,NBAN,TEK,FORMAT  * ,NL,IFORMR,IFORMW) ____  Re ad strinM|}Rn0 -e<u*څi풖Y26AiXvx5iG: )95UB}/0 yY"Yc)^-2ϖ(D~9IY1e[ă(굑5" doPMj!6ɻ8d2{Tڦ,EtR1Y%XxGaOb07bBW+ pX\ 09:C N'!R>KxJ&p^b&G]3CO{ةI)JWh;=ΜP~Ӧ޳sZ@qoη:v5*/WGZmNh:vw:z[ul/]~~+K,rlearn,T=fortran  CMZ : 05/03/2000 15.12.49 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 30/04/97   SUBROUTINE RLEARN(A,B,U,O1,OMEM1,Q,O,SSS,FMERIT,TJ,PAR,NUMREG, *TJMEM,tjmemp,TJPAW,NODOUT,MAXCON,NNODEM,PF[ksG&? 3Xv*j EaV!c# ,k?%r8&%<{ITSsy9O^{_՝j=hwVDFx|vSTC5NT}OJ£RK՜n2O TξrkSMv_Rj0 jt-ga=N?HŽ_J$ȫNaw$R0FJQJVƴb4k$ryU*z-2%.wi;MܙʭZ2]N6-5*YKƟ:_d6yYmk'rvk1K-'-(wilA r!ҼHH/oXb=׵ttZܼPL zWxgRF{ K[UPأ[IGQI@_5Ѳ,'I*4zTvlg$*I ,UP*>jXy˟8h -ca[mt2'laoVz8@wh5\'qi U_YyBa j#+25ȫ!;5Զ)xx*I;tmCq6U;TԴ*Sh;e&~xQV'88P_d$uxyDRl>GbG+;Fx*^_@X"R%}Jۖs G9(Vl4Ǐck ѿ|T2!]&ׄdcqgq'\YG 1Jμl!PHu&%LD1%FH8jC~=ըZ;-(oO89&dek㟉/h9V^6rP 3#/pp<;GaWva.,Ooreh5?>8&CGA@CZ{]JqA9M\| QQ^uƩ8W5l` ?WL U, 8lBٳg DeZ bN%2Bܴc[ ~c{:e߁aUpt&?޷Km,ofBh,)z;ݿ Fa^67fځ/\uU_ElkVbhl~^A g-4fv?Ns,UiI['rqUozX)]`'Z܅1h2 k&t.gB.VápcG g5v=Ж厦Ow5sK"1]vGb-d *Q 1, Nh*a v[[E53yUB].謀Xk]RȳkgpV"]CD1rl$wI8?yd/HcL~C!J5׿].Vo晍;<1.gu#mBW>y0[So)C:/)8戵ѳE++.FT5/7?~1/J~W*-st(0(B}n~rx:}Vo'UD6 63 nGL&K@O&ˆNK6s$@ qdsX@8 8&fqa 43S1ArY5OhȭX35SSnCl(2rO_ٿ+昁w.;(kEX\W½7LV8dv*1CI@EwXtqlhe"8QbG!S\MKeڧP#}^gs&Sw.ʜ_y理H <7,}wӝiܬ>oCmOpm&(7*'.6f:+xchnw}Y|nLxs3Hb [/< .m݇M{Ԑ&:ղ:A?rggωEr'K";{6yƇ t8[ bI[1zv gGYh2ltWz~WG=6sп2y9ϑ~Y+s,T6wnxY Juh:`da4634@?W>1,ku*-qUjef`o1/S:Bw lazR{/uR富RџO?}}`OaN#[v\کyyX=A`4mBވ᥯Kw@)rBZfc`M&.sP~S Tå,%+o+P \iqav:ӗCvW+Ѻ)@@.(T=ͯB$IR W*q8q2HUȽwss |e%%I$FO }KD&Zw= Hu`#\Gcw[A&@R#LIP\LFL۹s` y^rx?eSeUζ@uFti^r6Ѡ{|s}HI?<"/dؿy !4OK}ƉAϞ |B9ФQ*";қ'iy u!HQX 32Vʯ%ṴsؑlϣUvk{@=I|gAVUXr @v-'~7{u'\CgǞ𸇏Tv!+z"Nj›F*~ yV׭Ll8C!)(MTZk~XޠM-k n9&e:<)Z@Sjvf_#x u\> Mn3zɷ#s%Oi< iz>fW?I~//L${uo$q(}zggO~΄C{;)F1(KŜNF`7[,Bo"HXxh5cr 8678.捕 ghʷ}kf̔c+nu꾾=rx[Yއ;Zz"bsg8 "7hS4fwyy fq(^."#k=ֆ;ݹ"±Y#;- G5@.Vmޜ9,55=\.F`%R"7GYY1DzZ0.|vq9Qċ[~EŁtG^Smܗy,ΉyUa(2zu2_#!ޘ6c/O^f&Ow0^|`-=Q>)kNo1WK}c2 /<~b9/i?>k| 5A4aMڿ^=^.wwr]g-kWP j7 ~k[hAuf%au{a@zFq)Zfei=ƢmѮ'~o`}zw<1q荄0'U}9`ed&=LLH *XNzyaB `/f3Y w-au_`0)*ֻQ!jg!yxa{b&pAGiƗ8ߕ}?8<%`u1j;vD9GQx,'"yUΞ;6V}Q1Pl9X6CvE0i[Xo'?Ry7HjH=|T2EBƏUbFnPU9K_(i(^6ؙ|<_5}e >+K,RNOMAD,T=FORTRAN.  CMZ : 24/03/99 18.07.36 by Ararat Vardanyan -- Author : Ashot Chilingarian 06/04/95 ----  NT READ reads a HBOOK-Ntuple. Cuts may be applied on each parameter. Ȃ It is possible to skip events M; lXrH!yeKj EeT"A  0 (Yj,:I'}HsvAR?L/D`=ߞEPSJ/14 FA? ' q~_ɭQh:;)C? ؿ4/ANUdD#Rh2ԟ*4I:K`? \:} O$d*/K2'tu/xZbJOagBh_6DI ¾TN /]FZb-qBOCתUmv ⥳(`#D;>l6&u0m1p&4S<5}R e6G9~1="9c-x-O }8)ϰǻ~oyeϦNT3 4s>q}j_vk-ip"! _=xˤ] 1hd߀z7d[Esz0|w^[!|ڟ[nmn.a0],6$ d L+9~~1{m,GŦDwxvOO? ]$1^ukGǝ6>爄ݓp#!)M2\/ŹhCoTi6MNo+[p͖U*S׮R㰴nDemcW3K[F%CVyM$ "&٢kPLQ:|Q g7GQV,8!S~۷Om}pH 9NA ٹs86[ Vsti`6-oI }FA  RyUw [w΍S-#X 2t+ 3==?iEC- `8=ZC ÷\sS9{a\}M\g_~B.è5}k|Q&+Z.cp0^ʛ[sXsiCIb6x먆` ЄBqeUzj.87kVc %#KKmLm {^t 802 =Q,X; 'NI(x;Hʠ>fDt}?W)&$grJJtBT#R"1$։ʱez:`Ӽv7Ȅ,ǜ ͹.љ/@AenlO.v HnQ陨ӤCKA^ ou7 Q>B<bZ ~o )Bz,}:p:Ύ(|,͵6/ؼSWRMl&_U!- QP ijH+Xq/ރkcEdR'/V2sFxr7677)bt0+ &]mմË81p0'GC|Pa >9 .3,{f_Ed*oAc#lĨIR:yPϾSEb5~0?rwz+˶6\ȭyG JjD-&^kS۵6ui^8=goW.5>p@or:l;tS ?s͈('ۜD&vT7=Z3#C7O:kUNn?Kx{IH%wby~~z')zZ Ltx#V3~ih|NL:`2~Mӏg|E؈qXCZa26ũ{8(Jux̜6sɁX 8RrLN bY6g"?"fװ>@cYfgs˸U4:X mhgJ;ZH(*I>yJhx.nAoԧbw2ah0<=ϕ_}Y.r]G<Pw vG6)z95+D cV$_#\&b~ !֠D.w2.k\=(Kw?yJdiUI7 8#7oQ'f|^:#O'܌sta>+K,scanpt.  CMZ : 27/03/98 16.30.08 by Ararat Vardanyan -- Author : Ashot Chilingarian 12/04/97 ˂ ** **returning an n-dimentional rando point generated with Sobol or Pseudo random methods  subroutine scanpt(probir,n,e1,e2,diff,genert,itau)  dimension probir(n),e1(n),e2(n),diff(n)  character*6 genert  D if(genert.eq.'lp-tau') then D call lptau(itau,n,probir)D else if(genert.eq.'pseudo') thenB do ii=1,n D probir(ii)=rndm(-1.) B end do ?  write(*,'('' NO SUCH RANDOM GENERATOR'',2a8)') genert A S TOP 445 A end if   do ii=1,nF probir(ii)=probir(ii)*diff(ii)+e1(ii) A end do 9 8 >+K,SELECT,T=FORTRAN. ǂ CMZ : 01/02/96 13.56.03 by Eugene H. Sevinian -- Author :*** ********* THE 3 DIMENSIONAL WEDGE CUT (WIDTH, AZWIDTH LENTH) *************** SUBROUTINE SELECMSKo0iǿNNwR8C)rE\8iOP.p/!񳘱w+<3hk_c/tY.ṕ/_,M= f Re+K,SMIRN,T=FORTRAN. ǂ CMZ : 01/02/96 13.56.42 by Eugene H. Sevinian -- Author :*DK SMIRN ==== . SUBROUTINE SMIRN  PURPOSECOMPUTES VALUES OF THE LIMITING DISTM Vr6$o죤R I"! KoC{$qf:Cg/UUFӶEx1^Sfg9N]6GrhkUCϿǏ!uN$`X"/=:Gy~L)]a1[:+jJ^ {4%v+쮫nYct] (<;N+kao^_9rR[:7mZY) օ$V ]^5fNYQŅZZG'i%բVnJGъM%iR}`9_dnk[fߙ֔vx~j Im.Rh^W*QHi687?noNQ33E[[r٪Bp~yc'6؈C`(- yqBL0b<3< z˄jgt4z1w^N{:XGY9q(NR8YIK}h 3wE >Y5&q$iRpKQ'y2vGx ;<87y#*b#3+@J9w OmH҈Cu2028M,#jt᭿1P5p-І᳁9Ŵ\Sj΅TB`p86Y3Bw njc?-ZM[̝w ~8ΘRlݭcP~"[=L ڎSܧ4d GRBu' {H pu8ϒh^w&]al6[%df|V>L$-Ud&4m?_7٤n|'͜(449l1'тϜ1oŋd1MFPok/l/gi1ݔʛZxcE|~$Zҟs=YLΓ3=c~5cѕ0ji3Ӏ>+K,sobol.ǂ CMZ : 09/04/97 12.00.24 by Ashot Chilingarian  -- Author : Ashot Chilingarian 09/04/97  subroutine sobol(A,n,m,l,ito,cmem1,cmem2,cutmin,cutmax,amax,amin, *search,genert,tek,nt) H dim ension aM YrFU@!-6"u 6 PXVmflO$(ɱ쬳/* s1kL&idusI8a<7u U$vrjFڎ #"OƏOFNtDF4q'^kub3qM;hcv4?82K3B\׾GqA)P]/z?O:ã~ mG;D=kDJd[׌RSؙ%`$n@fMƪ \#_i+J6m RGY|4"shFle]:*y`GϮȱatMMcdI!ǮfW4*+Slna:C!8man(.Dw<b?YE*U'L1pBnkIB>뺲]V*?XѨʃ%Xey4ʮI9i?y2/(鼙{)9oi a ˮKa.S(@z@Ƞ_MBad,%[ 9 ڰ@tLbI 8 &3e4q)gb*a w`Ģ`!AIN;r(dM IeYp=4e2IH*BsIZvsײso Yp`K&[azm)1Bt% GYR^bJcJKdg)OYv]rHn̖dGjCt. 3/'Q:+t>:skliAoϺAW1`9l?11~N{6h Q)+k]s3>pW_%%YTZ]hhfn eSxKFII^x .Y8As,K  8}#49}Y6& gT_ h9 Xq6Ǧ۵[zC[`Eͅ~nCbAzͺYgY#ѻ/d8wVi;Ntկ>s=S&+4,j8+*aկ.|ѱ|HNXo%˜ _>H+\r&ϯ9etnAr֠YfPs#%m:T./](ʍr-XJw k{:]!?}* İ&NgbU !"y)-bq߿-_x3`ɓ\^M2-,$Yv- ;/w8YEm Ge ?A=%5oP5q6tr#\q0/0lMR PF4xD3@cəQ{w%W"wߗwA($EbmL<13z&'Tꎜ&-˵#?OhSN녭4dJ? R5>o&n 7Rq&58bs}ٳ|MD4zCbkEe;?^nk [&<2G֮ktM "̟_/Iuou@{];) zNBs*=w8IK[]HL{'Re!^|}^0)xs?ƤA&̿ڼ'Jgn厭?@7Bk_"OAS|hiK[,snH[@(zC8EY:R򃩢g{,xybnGi44)B,R>s&(9`z疊 SHJ|NB̅/}bෆM"^Hb2U)Virבw,'>+K,STUD,T=FORTRAN. ǂ CMZ : 01/02/96 13.57.07 by Eugene H. Sevinian -- Author : SUBROUTINE STUD(G,R,U,V,N,M,L,M1,M2)  DIMENSION G(N,L),R(N,N,L),U(N),V(N)  SS=FLOAT(M)  SM1=FLOAT(M1)  SM2=FLOAT(M2)  SQM=SQRT(SS)  DO 5 I=1,N SM=ABS(G(I,1)-G(I,2))  S1=(SM1-1)*R(I,I,1)  S2=(SM2-1)*R(I,I,2)  S3=SQRT((S1+S2)/(SM1+SM2-2.))  SD=S3/SQRT((SM1*SM2)/(SM1+SM2))  IF(SD.LT.10.E-10) GO TO 4  S=SM/SD  SFG=FG(-S)  U(1)=S  V(1)=SFG GO TO 5 4 WRITE(2,27)I D27 FORMAT(/2X,'STUD ERROR'/  *10X,'DISP OF',I2,'-COORDINATE = 0')  U(I)=1. : 5: ; >+K,TIDIM,T=FORTRAN. ǂ CMZ : 21/10/98 09.31.08 by Ararat A. Vardanyan -- Author :*DK TIDIM ====   SUBROUTINE TIDIM(P,T,D,DD,FM,FMM,FD,DSQ,M2,N,MAXTER,MP,NEI,NT,  * probir,ndel,diff,e1,genert,ntupw,ntidw,memw,tM x VRVvmH`{'ɜ lDADHz"hb$Uk`x`:өfowKY~(gAvUN܄t˺{-~ ;^a3 vn mY0|d7X`A0_HMXo֗' ܂Qqr-%~Pڎ6n%čsS"#sŔK4?K"~mٮ<_F٤CQ^x@р(]CooQBljyuU(ij"ӼAq81JX6,]BMZ{mᥙ$mzShBǻ}gq6>/HD54u*7/GTo29 8Өq%kC=7Ѥ] k7 E2ҦjmYBF3 $.)ñAz6Ia :M-u^&>!umm cipQmK3bjɳVUaAwQ>b;Ǘ%(0έ| [Oe}6Ye_NbQ18u`MK;,eOY耗9f :PΩ(p@9h;^F~ٔ-\w=39z#vBr /DlT0Ei@(y/.-=b.%'QKgМU %}ɇ}P"e >z&"fah  cpϓOOʅ[pyV(B Mau[.m)YrKƶ.uvƶUƅ#lKcɺʯt|} :r-s>0p6y_bXi ~{//v *f!OnW=!S(^Y`͟0 qrOanj󌮍t4)x-)XߙP>dG{Ύ_o9JUJMRXrxlW K8[QzV¨Xe,6 s? [E||9B u6i+hj5?pŻ>Fkݒ([H^W2zC}"w ztnv((w䦙i&vy51_Vlt=^{#/R ~I[=MA丂RV9s. >+K,TIE,T=FORTRAN. ǂ CMZ : 01/02/96 13.58.14 by Eugene H. Sevinian -- Author :*DK TIE==== . SUBROUTINE TIE  PURPOSECALCULATE CORRECTION FACTOR DUE TO TIES MluTr0N~cqb I `$"'S% $)lݳgo\5ZPy9A]R,!hlԤFk%rz5`ǰN1Ft@E`*XFN$L&HmRg X0#<3`q}%|q-t'i:Gm,YbE\"sU[gpzXW`=жU هCW 77 ]há6tw䮗St*v-#&1u;D/Z~mkj }5r$^ TΌj'J;#/5}j MFTҩQBISR %'˺)*eW2Xe3Xt9n[-gas4 ];KoiVw?EyG1NVyצE9w0 u>½g)7\mLۮ:!('TQt F΋hUrrD :-:^v0$"2C'l OIa!JvE3b_b衶q/,/ ,>+K,tmse.  CMZ : 25/03/98 12.45.29 by Ararat Vardanyanł -- Author : Ararat Vardanyan 24/03/98  CALCULATIOM OF INTEGRATED MEAN SQUARE ERROR OF N(0,1) DENSITY NONPARAMETRIC ESTIMATION  SUBROUTINE tmse(DS,B,MP,L,KCL, TDIS,TL1,Tl2,tint)  DIMENSION DS(MP,L,KCL), B(MP),TL1(kcl),TL2(kcl) call vzero(tl1,kcl)  call vzero(tl2,kcl)A ti nt=0. A DO i=1,KCL DO j=1,MP  tl1(i)=tl1(i)+abs(ds(j,1,i)-b(j))*tdis E tl2(i)=tl2(i)+(ds(j,1,i)-b(j))**2*tdis END DOA EN D DO B tint=0.  A DO j=1,MP D tint=tint+ds(j,1,1)*tdis A EN D DO : ; >+K,TURN,T=FORTRAN.  CMZ : 29/03/99 08.55.13 by Ararat Vardanyan -- Author : SUBROUTINE TURN(U,s,ITO,MB,L)  DIMENSION U(MB),ITO(L),s(l)  ishi1=1  call uzero(s,l)  do i=1,l  s(i)=0.  end do  do i=1,l  mm=ito(i)  s(i)= vsum(u(ishi1),mm) ishi1=ishi1+ito(i)  end do write(*,*)s ishi=0 do i=1,l  do j=1,ito(i)  jtr=ind(i,ito,l)  ishi=ishi+1  u(ishi)=u(ishi)/s(i) C wr ite(50,'(f9.5)') u(ishi) end do  end do: ; >+K,UREAD,T=FORTRAN.  CMZ : 22/03/98 17.00.32 by Ararat Vardanyan -- Author : SUBROUTINE UREAD(NA,NR)  CHARACTER*50 NA IF(NR.NE.5)READ(NR,6)IT IF(NR.EQ.5) WRITE(*,700)D700 FORMAT(2X,'NAME OF FILE ?')  READ(NR,6)NA6FORMAT(A50) : ; >+K,UTEST,T=FORTRAN. ǂ CMZ : 01/02/96 14.00.04 by Eugene H. Sevinian -- Author :*DK UTEST ==== . SUBROUTINE UTEST  PURPOSETEST WHETHER TWO INDEPENDENT GROUPS M mUr8 &7V+Imfv@K̉E4}M=ܶ3.$pppkZyӸTq:n5giyKV6[Q-nfb10dzw燣 V^<,߱]kzjVeǍޓhAy%ҡSeF &Xڷ".$H-[9&GFbIv!ScӉR2 [Rl CW5; ۑ쵎%ZME%L8w >q 0OVHue녭LOt2~Zƭ5%&sO,EgH V ~qqQt^ 6}0m]e _{i\IU5OmR/աV ʯ| sGxy^_ciY?.rUlvVe_%S N3KEGWYG`*{wx|}Cjan^wł=yvI??N?>+K,valid,t=fortran ǂ CMZ : 27/10/99 10.14.01 by Ararat A. Vardanyan  -- Author : Ararat A. Vardanyan 25/02/99  SUBROUTINE VALID(t,B,U,TJ,sdv,NNODES,NODES,ITOcon,L,N,NY,nmp, *INDTOT,ITPAR,LEYERS,NT,ISYS,DEBUG,EXPMXRV6y+K`0ɍ+%c̒T[,y$1,0c=vI%ȃI d&IUNZ}9-W=2M/Vj#Dz=j ,x'G&P>[LEE7z]uhFسlQP2ؘ9 abs]{,e(y-p30KOi}¢Y96i#60O yrO\f>3:>sk>g~ȦӐN7.̧D-J2 A)PHG*rb*wpNk k96d݊ V/NGㄇ2վRldRjew硌wpUEA^㹰PuN{|%Oy99FS$i'C~N!]n.|`L0պm}Mj XK +׹] Q(ejN<& :?~I%BB!] Isf]%ڊ HNFbRdw Δ(N擰i78iA֎vO`>i]%7mG@r%N^W׋k6OC/z>_v+Dgw޽MݳMPDfH4 @pF0tla\kx40Ahk-]32)ލun3"cD(K4TTiJiJG>'*ts]ki{<#p`fh.4}G7yip>Lԅ?͒&Y* ='gڡߞ- J{tׅ6I"ḋzP =:c zjw<:c4˶}p5,?g\G10M?.vsܨX\B2w Yy:ˍ_Pm= y1\^bG7(k h!Wl!岀8O0 ng @-3uŧyu,xB(7x yKm'?/+'eAVw$[{聘e[eMA9Ig]c=ҀgbiADqH=C!&\]^4QH#ۑ=7\K@p U"HD/\L y*Oci= up~[bx(qCH}/g[ wlT{a^K+N8`= {FK@ RaJgkK[7sxQ;~:Կ󶏳ۆffe P萾hq؂m4:ҝ!~H-#\U+rKE?!G>]<ij[8Þ.EX;moB툸?J`Ux7Xb-#J,C[IQ{<yHxьk 1^ ]`P%sW+g7N`Q&j93r='?/Ycx / lTrZY(BS̑|78Wdɼ=.r1+xAyϔ ok<0D>UFIn \UA4zzz ybϵ&P2}#?qle 6_2Ǽ 5R.h?ӹJ=mw]P63J";Gz >+K,varin.ǂ CMZ : 23/10/98 05.50.23 by Ararat A. Vardanyan  -- Author : Ashot Chilingarian 15/04/97  SUBROUTINE VARIN(A,B,C,N,M,TEK,TEK4,NAME,NT,ISYS)  DIMENSION A(N*M),B(M),C((N+1)*M) CHARACTER*8 TEK('dA$0#mX"}"el! edjcw e(0f~a\y T^tn [ k^t]p`]p/_Z\Be SWXB Ce`]nWX8WX:Wx:dmk)d/.`WXJd^t1WXc!)=^}iY|A||d{qP{\Fzozigy?tih7sPse rrWXq%ypo7opoWXn5nWXm i^thX3hWXe[}e[wdBcWXb1b\a,eaWX`TX`dӼ_ ^dW]o]]'\U\m[D[WXZ8ZWXY/XmRW W\{VV\UA[U[|T SfyRVRWXQ*QWXPOd̀NkWXNNrkSiXR dӪ WWX BS"+ N),TEK4(N+1)M=MPj@]X_bj<z-`tM YzF12gΙ- 'XA_ 7y(E>< #UjbP#eU0z dǡfݘ%kl7ͮIHt&l1z}2И8\v љ7L&zEŅ]Xa&sByu9Wf z\fJYJxO:O]-ZQ m~?bU#\@-;?ώl7 VK ؁[ ,@ܓi >+K,varout.  CMZ : 19/04/97 16.29.08 by Ararat Vardanyan -- Author : Ashot Chilingarian 13/04/97  SUBROUTINE VAROUT(A,B,C,N,M,TEK,TEK4,NAME,NT)  DIMENSION A(N*M),B(M),C((N-1)*M) CHARACTER*8 TEK(N),TEK4(N-1), NAM(KO@'Pu#%Ѱ@#FJnںgy;mcs#VY Z+f=v=MW^ٜIղ ^Hw̧Nٓ呺k! :ksZ9DhDϙX,Χ2^Ip'V Km -:a-zMFjDOk i! %3XO#>]r+ietux5*8`G6dzyZF,# 3ktOsQHtߴ~"7=21oI9 OFrr淁1lڍ=}7h{>o?; ܙ9na*ykwze7w+; X6J _c=0>+K,vizbon. ǂ CMZ : 05/10/98 12.19.41 by Ararat A. Vardanyan  -- Author : Ararat A. Vardanyan 05/10/98  SUBROUTINE vizbon(A,N,M,L,ITO,B,TEK,S,NT,tmin,tmax,adif)  DIMENSION A(N,M),ITO(L)  DIMENSION B(M) DIMvmSMo@&<9K%ŕ 8`*lr&] cJ?ήMREyy7H0x!Pi;t& t'L<~Ӛ'm 4y$sRmڧ'nuuMxy@ #p/`|ԹnP쏧Йxnс{T .N/A=faB.L}/ rzC X)44 bG& U<5:7J]jhJ:KZ|יAC.Y2$4]ޅm̒ҮN!u{λ۬wy+F_{oGg5(NQƓ _Ȼ$'J#زSiTЖޠSm%X|1[1 lU0Yۻn &/bYnvFl;؋cܱNS֓N(GP;R{NIcM]RR_Eĩh 4˜;r@53xVuO6+K,vol.  CMZ : 29/03/98 14.04.58 by Ararat Vardanyanł -- Author : Ararat Vardanyan 24/03/98 ==== B FUN CTION VOL(R,N) C PAR AMETER (PI=3.14159265)  R2=REAL(N)/2 C c0=pi**r2/gamma(1.+r2)  gam=gamma(r2)  VOL=c0*R**N  wr ite(2,'(30x,''r and volume'',4f9.4)')r,vol A RET URN @ END >+K,rlearn,T=fortran  CMZ : 16/03/2000 16.10.19 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 30/04/97   SUBROUTINE RLEARN(A,B,U,O1,OMEM1,Q,O,SSS,FMERIT,TJ,PAR,NUMREG, *TJMEM,tjmemp,TJPAW,NODOUT,MAXCON,NNODEM+PF[HG----tt|-2666E I$,1DN--------------i}CV 5------qHG------iL------e<------aI2M------]D-------Y R-------UR-------M RO5+CH,GENRAN.  CMZ : 20/06/97 12.45.57 by Ararat Vardanyan>+K,genran.  CMZ : 29/03/98 11.40.55 by Ararat Vardanyanł -- Author : Ararat Vardanyan 29/01/98 B Pro gram MAIN F PAR AMETER (NMAX=10,MMAX=5000,LMAX=5,MINT=32) E PAR AMETER (iform1=8,nr=1,nt=3,nf=9)  M VmoF 6f?MRps,/^Xr֒[KI/h%Wۚ0g_$;F#y|gA6;h6c:^3P>&׼"S:vj!sx?:3V\c!"O}URFyUI1w薳\'MqfְES K;øhApǗƣ}C0al{|lcAcz>6xk @.9YOvna0fa/ݑey +wᅕߖy"֩o7PS8uMmFe_`p^2:rYr~py&wx2^Y: L[Q2rJmi$]fY8kMýA{t}2I!)d ءk;f`' 狘C9Cy:˸j8sH3yC%|$TUxOB#U(ʤ /G4!{Fo-83x2Z O0ds"7DDTu,RUu(V;[a ;r'J,aï @~kzس\oYQR&ʍmbC54ooZp9; ftFrgڦ-xl{i̢:<'jBrtnU"felB |+s fe ktzӐ ZO {Z=.vu:!yj<1$czQջaa-vjcP ;BW6Bخ=SkB8.#!(Qu@zW>u dۚ9GKDN2QM,5c%;5PϵjgI2('h#<h>+K,genran. ǂ CMZ : 08/11/99 15.39.32 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 29/01/98 B Pro gram MAIN F PAR AMETER (NMAX=10,MMAX=10000,LMAX=5,MINT=32) E PAR AMETER (iform1=8,nr=1,nt=3,nf=9) M VmoF 6f?MRps,/^Xr֒[KI/h%Wۚ0g_$;F#y:h6r\fL?o4y率Ri&6.͌ʹ#pT75?Cљhb y BT-%7wدCMCZ<?lZ4ఆ.팝lXE3 2?4J ccJ߬3]t1Fr|Ƶs 5{,ΫO _ 5S/̕ Nu}q©ulzm0-k}pՑr8CWpHs 3DO$?MOЖIT͢)_dڊ=UlKe~`~OM㩪ġbH#Ǖe!IUߵ7+Ykڣ{0OI I%K.hl(o]1S5U;)xy8_p!Lpf=)\UaCϋh,,%'\蠪:ƈ,S6}bGl/P&] xI=ܐ 7zXdg7o9! sab`߶~!+]yX6 *$;fєC9E¿ (DEOؑ<)VB]t,f ~m[ӓƞB~͊4Qnl 7hx~R(_`yX0'7#<6=o1c{hݬN5Gg, 69V . Q/853dlQYc!}Z% T-M<s."6 kp#>|NO >-O^iXƋI{V.q{fd"" kװEWMeis2Yk&܎}̯s1 4(;eXU [k6+SLX ԛƯH" |R#Եкݮhp෫ ɓT(&aכL&6_ ] Oo?[VJTw%v~Z_SpA\۸^O {+K,genran. ǂ CMZ : 08/11/99 15.45.05 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 29/01/98 B Pro gram MAIN F PAR AMETER (NMAX=10,MMAX=50000,LMAX=5,MINT=32) E PAR AMETER (iform1=8,nr=1,nt=3,nf=9) M VmoF 6f?MRps,/^Xr֒[KI/h%Wۚ0g_$;F#y:h6r\fL?o4y率Ri&6.͌ʹ#pT75?Cљhb y BT-%7wدCMCZ<?lZ4ఆ.팝lXE3 2?4J ccJ߬3]t1Fr|Ƶs 5{,ΫO _ 5S/̕ Nu}q©ulzm0-k}pՑr8CWpHs 3DO$?MOЖIT͢)_dڊ=UlKe~`~OM㩪ġbH#Ǖe!IUߵ7+Ykڣ{0OI I%K.hl(o]1S5U;)xy8_p!Lpf=)\UaCϋh,,%'\蠪:ƈ,S6}bGl/P&] xI=ܐ 7zXdg7o9! sab`߶~!+]yX6 *$;fєC9E¿ (DEOؑ<)VB]t,f ~m[ӓƞB~͊4Qnl 7hx~R(_`yX0'7#<6=o1c{hݬN5Gg, 69V . Q/853dlQYc!}Z% T-M<s."6 kp#>|NO >-O^iXƋI{V.q{fd"" kװEWMeis2Yk&܎}̯s1 4(;eXU [k6+SLX ԛƯH" |R#Եкݮhp෫ ɓT(&aכL&6_ ] Oo?[VJTw%v~Z_SpA\۸^O {+K,ahist. CMZ : 29/01/98 20.46.36 by Ararat Vardanyanł -- Author : Ararat Vardanyan 29/01/98  SUBROUTINE AHIST(A,AT,V,IAST,N,MLM,MMAX,L,ID,NAME  1,FREQ,CBIN,AMAX,AMIN,KCL,MINT,KLMAX,KL,NT) SUBROUTINE IS MY ,$Y[oVeE^DJ$RiY({er$[M_>%>&|3RSh Xf>3UYzSz_moviQFmjl9W{_PmW{]*-a?)OnG=!ʋ{_ﲯ=SA%a~1~U`xǘ՛#+-s?H+A+u{>e*›#Z=Te0\Kߋ"?(rz/>M6S?T*'Um"sܞ3Mbuvlԇ.+]ڧ}Q$ɔM hmLEsWك^f rswyBl׏^i \@nぞ6iތ)=^V0Top.8ꅀQO3ιC(Ҡ3l9{n+gOݜu.BM^-e ՟I.&Lg^{w0zHRs$ ~ó'Qd5bH 7p>%c>2EM-cfk][5Ș-HcD*^w <+D1oXK_&yڪh2S9}N "y3Q l816< ΢+v ڶ3KxBGTyya-UcӾ(d,Xyv[/{*5NgJS*Σ6ЂF[$|^(/B짣 @rdYkV;nMlCXn#:ׇ8™7XYV>D, \e*USaD+ZH=FoTŏ=s7YPslGe]y:Q@؈Fўۘ rع08üU-&=T3.,V $"Aj#YgҶsݷ >E#}|k(V:t>F'ZDg+wG՛=~{Jp$,n`S3B]0O9B&>5=tj^] :Em`nH@5h ,sg=p#:p/== G?-*KR3{!O?a.3s?ꑨVؗt7)tb}Cj[Qo-5FzC6mB܈>:wΎ29}_H "V6Ԛ@Ce<%$z S{ixX^ey6$hH@6-#u>P1H1_ >-1 r)Vm#XrJP,QS3woCQ*(i< f_|&;4z02m64#F]Ü[pv\ 3 8l 3ԫYB:Ϥ#Dy)cRc>YMs-D`,y(CXv;RwyJw`\t,~f; 2 TCr(|2r5fv1J]2Etadx8{"JYXpUZDdz}y*֩TOCƩHZri 2~[dvDFj&hn]=рEp&3f6~ѐLM,X/GRuǤC =1M+5 )7 VDOD_q2Ĥw9 j$ytYGI`ogZ) |CmIVݮČn-;W3v74FXk3 )*<Et,%mES2~z#m=c1Cr.9zrá)u)7N&1p0{Pde_>~iGZ%IDsmF(ܹn早 gH?+ 8B5=3[|1>.a?d=%LA4I|$o7LîM./16Ϝ·|^w;G|]`{~`[80hDqܐƏ[Gc™;8Lp󟱯8x7ct n~ƈ 'Гyz~i+4Mg+!q'xzw +Iq(eہE(M!EsOzdy_([k.]R {#<=;U9\_{O9fmx3yП;b0sc;Nvv[\9^G^0?-MыsP6 [ć./uYyСo‹tp\(~[T,7 +:p'~?٭3ƚbY0Cֱ{3nsIg7|urNk뗾c8.fxgR{|Дյ/a+ MoKaN}BfOE-.sYRtv#T ҤR}2?WpEMɋ/n<~Se yOl:5Qa)|F ~}γg&;Jp1k'zXԇ^9lR/M~ |7}グSWG >+K,ahist.ǂ CMZ : 08/11/99 15.41.02 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 29/01/98  SUBROUTINE AHIST(A,AT,V,IAST,N,MLM,MMAX,L,ID,NAME  1,FREQ,CBIN,AMAX,AMIN,KCL,MINT,KLMAX,KL,NT) SUBROUTINEM^ 0$YKsV}gLBR:A@ej}s}!5}vV{PSJT%wtݛey/j3^Ɩf2KZ廼̇gݖ{CQee=wɳCM^dn<EG. 1U/*Vҋ|9Ư6Y">c"~-7X>/zQVu=cxt%ǛE.^F^Tewm <g&unlysLeL55=xϨZ^q.!|=?6fW15zxϮ#6d*?pc];^KGݘ<[2'١A?B;r #ܗ9pN!7V lMd{l.KxBr![zWdZњHgũ-E%z$)Q@R"]0:2/A@A Dn|ż`Ϗ/ƞ4x˅EfLՠxwG$O½MEQLYҨ{}itYz06E+㐇ѩ-W~ۆON3ԓYZE麖)cR/*)_}6ӚkGCbqzJL pεJ'g9UiȡxǾ1ȨkX;,ɪ$3w:Q^GEU]kK2mj靊@N;?)&mZ2~[evėN$n! ܸ<܎[À`3x6fcHFK3KQTj]YܟZ] uNh^5׬͐~kADƚ1_/h, 9*#+$ĆvN\Ec?kTA3xNOI[%ꁒMMO訜L:X2q$yc gz\``ofu(\q'}1pK}lg`$x(>#J1!Ft=Ih_#ȏل_+raP\ؾ$mw=;ryv/t 6^'վ-֞}4;r3mIV߮`{f ]qFf#2ctumH˃qXNW.1`NoO=T \ORad=g, +W)Y{ ǏO&Oܼz,7ɅKnnxC˯M}yWZ4ݵPsݬ/W h9?+8J5O=橯?NYZ0r :}]vRQ(/ :桎pzMRˊ&:+p]C^ysODCxBa'I`rgY+O'qvNh;:4m&vȊіUhu*4/N#m =ZOܺ.?\DXhCn6%/5w%h_x'iĂ;ڂ֤89e8qbd9?/3C/a|gowX=F<=8A›Ap&wѴG8p󟹯$|7tn Ɨ~K) Α'_A0.}P8u:+w%+{uMMEgSV)d(uPzigԡ,rw˚%G e_ԫ\!|,Şգ+K,aplot. CMZ : 29/01/98 20.48.12 by Ararat Vardanyanł -- Author : Ararat Vardanyan 29/01/98  SUBROUTINE APLOT(A,MLM,XMIN,XMAX,YMIN,YMAX,IAST,N,MMAX,L,ID1,ID2  *,KCL,KLMAX,KL,NT,TEK,R3)  DIMENSION A(MMAX*L*N),MXrJڬ?cވ@RjD\R@l8ߕ3պRa g.rD)"+[ zao-,#.]`sf =%ukzUmJ˯/&WJ%A9+z>e &_ZurTm2uȫ6KFr^YG/u("=s\Hr$!Tcʼl>W.Oege5\Uވ+N^0ċnGPI@t@ )hB–,;'۴g ռU"{>n{jngSֵT+ȫ]f#L4ԖI} ʘ.Ӄ z}{l:_.5W,ͲED΢UJ媗ґfvJ+ zЇFه<)CTա}p+ݡCj ImC s"Сt#:Likz pp=@ olΓ狟p +`/.)zge#@>#,oAQwѳz.3=".z?+垳2 G(R뵲X)m V\5 Qg9ĜpsįәDOK䕟a{ۛ5.n D(R8!'TS'ppC,v6_mlh}U@{>abcUID]<՟^ʖAt-F0$_][Ս0d.y7%v .V;7n W tSQs rFioEE;IWYEy!.vmLvejblu9h};s^C{J$}h8 hD TDhEgض֧B} eEAk[̍Dg(wqΤn{z Kvy9EI| =g$'\d}6DJy"b,u #GlEvOW_Xo9C-'ܐcx}lW=z61kކ.|_ꓘɞzX3F3:gnS:Wn=h#[O;$MݍLv}YfGOᔩٶ_? (u8ە} >{Oҁ7.]f!Fv/uMcSy z?ǥ|o բ»1߄^߯Ps0Vk1@RՒc[IldD98,9j& i\8p#.^osyIpUN7E#* }HT6a~QՋ=M{P鷏KܘdXJ-heQ=m_rt r3Rj,F>=cVvH J}K9=ϷV6jPFeԜHסj,r>ab|p{$CmGšf?(Z`f93r'VǖA7 ч }{ޡ֟Nw~7#J|<{E#ςX@3E?7K[~rʏNWc>N1c| ~lsM6csX@Ɖx1!>©צa 'ϬdȢ`r l%#4٧ C>\?NUB |2g>%>̧]ӹr"/&U\:j*g;ʗ~%o97;{777Ct7 .&s̖t6 |ja<`ao;o# to,QFr|ĘDx7Ow\))+>+K,misr1. CMZ : 29/01/98 20.49.33 by Ararat Vardanyanł -- Author : Ararat Vardanyan 29/01/98  SUBROUTINE MISR1(A,ABAR,R,V,N,ITO,MB,L) * * MEAN AND COVARIANCE MATRIX CALCULATION, * (EVENTS HAMq]RMo@ Ik!BIڻk]pD*B8AUbfi#9yola T盪dSc0~|`VFRD`Cd|ojRP"ЌװV(9¼Ғ< +!n HےZ [%Z_c1TEq*z+AY`EY@߃>F7Sp-------IR------E,R-------5rb54Kd%{=Oe(^dbX y‚x Wqr.&|YO"B^/϶˪=,v$"n 2Ez,|0xywtpd]W^Ez;_} SET HW TEHTEAD RP ATTNIO SI ERLA YDAKNAR DE (FI )I(R02 )02 ,01 , 0TAD OP A TNIB OTAR EDEKN B 2 0AMS 0=LL 0. UQE 0=LA 0. A=X )I(  OD J 05N,1= A(FI-)J(3 )X4 ,05 ,0 0UOC N TNEBMUFO RTAD OP ASTNIIHW A HCS ERLLAM RE C 3 0 LAMSMS=L+LLA 0.1 T OG05 OUOC N TNEBMUFO RTAD OP ASTNIIHW A HCE ERLAUQ C 4 0 AUQEQE=L+LAU 0.1 )J(R.1-= 0 0z 5 SET OF TIT R E (FI AUQE.1-L6 )06 ,07 ,0 0OTS R ER KNAD FO ATANIOPHW Tclgcle]QqM% clvmcld7dkTbclacl`]&|mqM{C ucl^t*quqQpx0nyqKmF kdj^s=j#ڑ'g:OOXqLI\QHa)qٕЫ -*24iyMMC X,@'iu年c ѐr S+py0;&5VC5t'hhFYsӚ'>8X/YBanַ4,A$u?S2$+L>}6 Íx\Sߤx#oW&p]wŐr8,:;J:o9vz>uT kc-%|=]A9<_4:ȥU:wu]*X栺])5 .pLQDa'挾R~AON>+K,prt. ǂ CMZ : 17/01/99 18.50.59 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 29/01/98  SUBROUTINE PRT(A,N,M,L,T,TE,TEK,NT,jmode)  Subroutine for printing tables, !!!!! M<10 !!!!!!! to fit on screen or MURO0Vg[)uЊ)i ¸q.^#@{EP %qU-,?tn!ᶛuBN@_̎E2+EwE<ƍᙀ֗h}{wYZ#X 5u4cQ|s=lNEwޜi>pT0a:Vo#^bݳ8Wf5|cI6BjQlͰ08YR=>KD=PϨM9\]BA5=CZZh3NV[OPw1Aߔ%`؄Cv\.~ys49Mg ul<=TcR(!JAgavO(:r|]x3 T./mc͢^c)7|֎z<'ճL&rH_M!an(}xSѹL"ow\ =>+K,ranc.  CMZ : 29/03/98 11.34.22 by Ararat Vardanyanł -- Author : Ararat Vardanyan 29/01/98  Subroutine RANC(A,L,N,M,S,D,CORR,iform1,format2,i1OB,TEK,V)  Dimension A(N,M*L),S(L),D(L),CORR(L),V(L*M)  Mu}RQO0֎6Ȅhxq8X2}nMY0.1I}7ທt8 _AdK@:a}jGϟ]J>[Zw=aeMjJQ l*|^NWLL,L3;c.0{DQ[A$tzR'5Zm6mަz-TK`|tj9}ZdԡցL*W#l y yxSpHm.I;IXHR^cB\Ӑ98p W\(t&ezCۇYLÝզy=t/ ň⎍p*>+K,rane.  CMZ : 29/01/98 20.52.11 by Ararat Vardanyanł -- Author : Ararat Vardanyan 29/01/98  Subroutine RANE(A,SM,N,M,S1,S2,D,C,iform1,format2,i1OB,TEK,V)  Dimension A(N,M),SM(M),V(M)  CHARACTER*40 I1OB  CHARACTER*8 FORMAT2  CHARACTER*4 TEK(10)  do 5 j=1,M S=S1+RNDM(-1)*(S2-S1) SM(J)=S  do 5 k=1,N,2  call normco(a(k,j),a(k+1,j),SM,D,D,C)8 5 write(*,'('' Training sample is written ''/a60)')I1OB  write(iform1,'(a40/a40)')I1OB,I1OB  WRITE(IFORM1,'(I5)')N+2 WRITE(IFORM1,'(2I5)') M WRITE(IFORM1,'(10A5)')TEK  DO 75 J=1,MG75 write(IFORM1,FORMAT2) (a(I,J),I=1,N),D,SM,V(J) : ; >+K,rancom.  CMZ : 29/01/98 21.10.45 by Ararat Vardanyanł -- Author : Ararat Vardanyan 29/01/98  Subroutine RANCOM(A,SM,N,M,S1,S2,D,C,DISTR,iform1,format2,  * I1OB,TEK,V,ish)  Dimension A(N,MHuSo0fUް0*[),6H$gԐ- jd2eqw}Egr%ʢi>W>|bg^1|Zfi'|~Mi]D/Τm$[R2.ȶ.z6|p?&+v[~wZ ۲F=D>&GRЉ83\J!օ`ElG%#сS8ؿo J3MnڇCC iՏ`6=nI}[%)= _C v3>&Oܕd8eU~|Nb=a.d1 NaS8?0{qG7% !3g xĹYBYkh %^| >+K,rancom. ǂ CMZ : 08/11/99 15.41.13 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 29/01/98  Subroutine RANCOM(A,SM,N,M,S1,S2,D,C,DISTR,iform1,format2,  * I1OB,TEK,V,ish)  Dimension MLuSQo0fUqo؉-ڔdL$F3jHBS[w6YLȂFgr-ʢi>W>|bg^1|Yfi'|p_e]DΤm$[R2.ȶ.z6&{tK䚬ڵnujv(!.&"l$qfr-+U/ׅGj6p# S8ؿo OJ#MۢnۆHo4wquqrmk`ؤώS!  ߸s+w%08m!kYo@ ?O|txSf\5HR\3Ʀ7YI'L!,),0` 0Fc"f!$z,To^{?-q)`bP$wIǾpif>+K,randis.  CMZ : 29/01/98 20.53.50 by Ararat Vardanyanł -- Author : Ararat Vardanyan 29/01/98  SUBROUTINE RANDIS(dis,b1,b2,alpha,ip,cf,l,n,m,  * iform1,format2,i1ob,tek) DIMENSION Y(1000),X(1000)  characteMhR]o0enoM∪&4uIJ]G QКaq=Ƕef m&3eiKiiʥGqp _dCX?0pp3] q% pڢGfxnܿI,KLv&"~&ʵv_3F ,1B0aj^T[r8sE}lvkf"<0qF͡X-2m"_b5jץ`ep ?ײ5Z p}ë/DPM:t(ouK*ÿr>ySQN&W\gͥYp=j.L\LY:Jw zCB ^+rg RN>+K,RANK,T=FORTRAN. ǂ CMZ : 01/02/96 13.54.09 by Eugene H. Sevinian -- Author :*DK RANK ==== . SUBROUTINE RANK PURPOSERANK A VECTOR OF VALUES  USAGE MSv0!o75$=,-@dSOɪ $mʮ <;w6$-U]Wr$n*JoqܔʫnD/i*$cmC+]6s[yPk;kd{C3+DoV~YсפB03 Zifᬈ6Ф-xXb@=>G?gsVC; o,M[[p,A _[iBu56V#~ЖF+]?Izmzd{,[S3׏yJp"N- z$^Ų9cv %T3a2ʱwG7٧A罔ϞXIn20r"Ɔu34Fމyq?t֧|dW06([FE }cj,|ZU%$'=vzF"ѿ^N`G(?.b *:BaA>&LAuuFW p3dLҵ(}\#VM99w#o>phOO>HuPw渥aՒΎ55brK4d%={(eOd^Xb̈́ yW xq.r|&"OY^B/˶=Ԑv,$ n"2E|,zx0wydptW]E^;z_ }K,RANK,T=FORTRAN. ǂ CMZ : 01/02/96 13.54.09 by Eugene H. Sevinian -- Author :*DK RANK ==== . SUBROUTINE RANK PURPOSERANK A VECTOR OF VALUES  USAGE MSv0!o75$=,-@dSOɪ $mʮ <;w6$-U]Wr$n*JoqܔʫnD/i*$cmC+]6s[yPk;kd{C3+DoV~YсפB03 Zif5R0----tt|2666l]I$,1DN--------------}CV 5------u qN------q@H-------m-------iQ3------]B-------dS^s*Xyt# l[^s5+CH,$KUMACS.  CMZ : 20/06/97 15.31.26 by Ararat Vardanyan>+K,NEWCMZ.  CMZ : 16/03/99 15.55.52 by Ararat Vardanyan CMZ U: 1.37/00 28/04/91 21.01.14 by Fons Rademakers ł -- Author : Fons Rademakers 26/04/91 * *** A* macro clean A** *** CDIR= /users/ik3al1/aro/ani ‚rea te [DIR]/anihelpÂptr ee //ani-97 //anihelp Arele ase * Jshel l 'mv /users/ik3al1/aro/ani/ani-97.cmz /users/ik3al1/aro/ani/anibackup.cmz' Jshel l 'mv /users/ik3al1/aro/ani/anihelp.cmz /users/ik3al1/aro/ani/ani-97.cmz' Cfile [DIR]/ani-97.cmz Bstat //ani-97 Aretu rn >+K,NEWCMZ.  CMZ : 16/03/2000 16.09.54 by Ararat A. Vardanyan  CMZ U: 1.37/00 28/04/91 21.01.14 by Fons Rademakers ł -- Author : Fons Rademakers 26/04/91 * *** A* macro clean A** *** BDIR= /home/aro/ani ‚rea te [DIR]/anihelpÂptr ee //ani-97 //anihelp Arele ase * Hshel l 'mv /home/aro/ani/ani-97.cmz /home/aro/ani/anibackup.cmz' Hshel l 'mv /home/aro/ani/anihelp.cmz /home/aro/ani/ani-97.cmz' Cfile [DIR]/ani-97.cmz Bstat //ani-97 Aretu rn >+K,help ,T=DATA. CMZ : 19/04/97 16.48.12 by Ararat Vardanyan -- Author :* *** A* macro help A** *** A m ess ' ' F m ess 'To install ANI/GENRAN type the following:' A m ess ' ' E m ess ' EXEC INSTALL ANI97/GENRAN' A m ess ' ' A m ess ' ' @end: Aretu rn >+K,load,T=DATA.  CMZ : 20/03/98 11.31.16 by Ararat Vardanyan -- Author :* *** A* macro load name=x os=x ftn=x cpu=x dev=x A** *** Gmess 'Setting compile flags and loading sequences....' M Q@cD ~[rA P&tq쫽ov̙ݴ׫" b2;&0-5v"$^pN1y?&z8Q A$FuK]| \!s=t62.&Үԭ 'X밆tp^EZl[5֎'9#x1D-Tll +ղ/!&1`N$ V s&d8*UUW{v 1Ԭ?@3=[Tr̞͎MVX궕)>Dthah]7mO[<"<5q(tÿ`ѳ=C3xֳkjrCEU6_fP>A8Te%~ߊ Ixa.bKǜF863Jq(Ў^#9p_g;4İMUPum8Ce3RzҪx/WnP-O>+K,install,T=DATA.  CMZ : 21/03/98 18.09.45 by Ararat Vardanyan -- Author :* *** A* macro install opt=x A** ***  -- delete any alias that may interfere *u[d{mdm2y7z@Ѓ2< x s @IgSDB`GFm~C 3,=\Xq&C7XWzZ~9-">>(:j+YíGg[}\,f9  z]k9!m /&L@ u'Mo z僚I$.]ˤ, aSa[9\gW-!Af`k5~I_eЫ<޸w5_b!Tta HԬ> eN\yAl0W-~Z%pRA}*X"yϵX^@m:%'wAW8+d7?N>Hyx݅3]etnuhq`.f++-LvkKcc_ٙKbs5N [f<l'VT~dbUh,3 sIA'!p[pJÏ* tr gni$ taETADIT$ . EM....mA sse' '  / dina/ 79-  -- tespmoc eligalfl ,s daouqesecne seH cexaol demanAN[= ]EM[=so ]SO=ntfNTF[pc ]C[=u ]UP=vedVED[ ]sA te f .nal- esaAN[ ]EM ni(A igs ) lehsmr l.* .* of[ a/]nt o.*ntf[.*/]f[ a/]nt f.*ao=00eo7 ihT!dKVdS^s*Xyt# l[^swith the macro Balia s/delete * ML V]kG]iI? ٦O!Uc5ml8h5f7;#[~)Y1$J*h:܏UE_/qbQ FT? O3 VY-p~ہ|~@*eFFO{q%r~.ԕrNwxoi ov?J;J1,*J 31;(纲Ya,Օɳ>\<3*s#j-s!R0΋repBZK ݟ\` 2ڗ*/œ"p:s JW[5q;qaI-JiQ@`ڞE!eUQ]qԐp92Z꧀!*IAliKw:mlۈϙx{Ek_ t巇x#f*m(z+߈L!8EB.9!veVφv\5NCʙu*̅[d{md2mًy@z72 < x sSgI@BDG`mFC~3 ,\=qXC&WX7z~Z9-">>j:(+Y[gG},\f 9z 9k]̤ m!/Ԁ&ڤ@Lu M'z oI$].,˞a Sa\9[WgfA!-5k`I~_eށ<5w!b_T܆ta ԤHe >N\Ay0l-W%Z~Rp}AX*"Xy@^:m<2slZ~6%.t~&]pnc@_cpڱ6ɉ#^EEg>go%͆'wğAW+87dN?H>xy3te]unqh`++f.kvL-Kc΄c_bKsٗ5 N[̇f<lV'~Tbd,hU 3Is'A[p!ܟpJ *s >+K,bind,T=DATA. ǂ CMZ : 23/10/98 05.08.23 by Ararat A. Vardanyan -- Author :* *** A* macro bind name=x os=x ftn=x vers=x dev=x A** *** Fmess Linking ANI..., machine [name], version [dev] .Mŕn@]CXCrQ]DjЛ*E D{ 3fUD}X=glcCH/so](0`!F%u:hG`@@F⚻\εB@vz3III4_q#0TzE^ah:Ȋ0&z|V&^( 6^_k?ey| EeϜsT BFd|xef ?p>RL)j%KXc䬲9f8$D7!4HOm~aAͺrɄ>X0-ta*rYzwoD M$b9Qt l[FLrml˥p׫y0ڴۆ#lqE<$z BkS5kD+Ҹ~>-h}2yoIr\mK֛ :'3;%hn!߸؃zj3Kx)n+@=lsP0XLe)>/j'ZQ,iLaʖLZ}xf53<3jSMrFK̳Au,yw#~^~,1@;;⻊etBe|e8PfĽ4?F?A.g vxS׺z ]/_PBQxiXY- t'>+K,bind,T=DATA. ǂ CMZ : 08/07/99 14.33.46 by Ararat A. Vardanyan -- Author :* *** A* macro bind name=x os=x ftn=x vers=x dev=x A** *** Fmess Linking ANI..., machine [name], version [dev] .Mŕn@ƍJ-!#8Di!UQ\{XqvDh{c1N%߻a `(!Cי iBp0\r=RCkIg"I0_O CK E[I&G20n4ePK5T@q^( NG$*~BۊA87 l͜6sTe BFd|xef ?p>RR+j%E1rV3f}x$X΂gf i0u`{M2yXιg?ӵ TD-+-6u)VG,7 >+K,bind,T=DATA. ǂ CMZ : 09/07/99 14.40.35 by Ararat A. Vardanyan -- Author :* *** A* macro bind name=x os=x ftn=x vers=x dev=x A** *** Fmess Linking ANI..., machine [name], version [dev] .Mŕn@]CXCrQ]DjЛ*E D{ 3fUD}X=glcCH/so](0`!F%u:hG`@@F⚻\εB@vz3III4_q#0TzE^ah:Ȋ0&z|V&^( 6^_k?ey| EeϜsT BFd|xef ?p>RL)j%KXc䬲9f8$D7!4HOm~aAͺrɄ>X0-ta*rYzwoD M$b9Qt l[FLrml˥p׫y0ڴۆ#lqE<$z BkS5kD+Ҹ~>-h}2yoIr\mK֛ :'3;%hn!߸؃zj3Kx)n+@=lsP0XLe)>/j'ZQ,iLaʖLZ}xf53<3jSMrFK̳Au,yw#~^~,1@;;⻊etBe|e8PfĽ4?F?A.g vxS׺z ]/_PBQxiXY- t'TD-+-6u)VG,7 >+K,bind,T=DATA. ǂ CMZ : 09/07/99 14.40.35 by Ararat A. Vardanyan -- Author :* *** A* macro bind name=x os=x ftn=x vers=x dev=x A** *** Fmess Linking ANI..., machine [name], version [dev] .Mŕn@]CXCrQ]DjЛ*E D{ 3fUD}X=glcCH/so](0`!F%u:hG`@@F⚻\εB@vz3III4_q#0TzE^ah:Ȋ0&z|V&^( 6^rrI8]p(ٮB@`A. D3?RKj% _6erNRy\J=/lW-؝KO_{ԏUFst( 4Sms嶛q{mT6Z8-tt+ xB6AuQ͏V^m;-Ր媪5]h2 ^jn[}>9rZl}ᴸyU/ՔU8pm5CY&\&5Q0e_`>Gj4gqWh3I$V)>C4 #Y 2weitoИT`f_NѕrU*nixnA%jjKf*gdiF_󬚭b{7;m[UNmn>?ނK^'jۇUH}xT:3,볡?XUkWn{lҽ|aDWS JRyD` o"j2!|.g3.tghVF.a[>. =zڝv{s͑{zHWy1g%I>`x0YDi&0~I2U:[l5*uk;e^K\4*}WwM 30)ĕ[dfl>[jTbl?s9)umj8 #%3,)NuyŌ/ʷ\dRޙcȧ'_'PxȅKvr#!\w+cc\VrsTsiUpvڦC2-Z\ㅟ!.J57,oVC>vc:Gl=';ZG'}՜Ow G˲|L$5 4Q)۱'$m7VA\twmtĊb.L);+K}mk-ӝȳ6YWմ멚s]<|kR f`vȃ'O^o+|;EvZ3ufbZExreu-4Wjd,8vq(J˒bԍ_1<2q0G/YxCYJA?m-5]gr}RF <@͊pa/n +ɶmJnmO/֩I#<{8n5+MZnH'GR/>X_M|8#A3Ә=Яo5E5ms"-mƘw! ض* DقG34X BZ@86]~l!WoZִٳ[tV ubWJwKKj zY!wA]ɻ}$%xXG#b!]Dg| 񽬥&W }u䬹 p"x3|Lѹ}v1;hS̃9u{ssG4Οp&;q dKyr/"rI*3o. !>viO y;XH)mttM27BMrwGv@`*&MT>960`` &Q[ c{(mT7@ fO^1y|9+Lt2?l7"14cϭі6iʺ_:߫1W%we!A,f|)OA!Ja_X.V?N.vx +qh:[% ۂ+^f/n9ژ}Kp^ϚwpR!mٞSŦ~3b[)iMl/*mZfEz-yO:щl(|[:d'6?[FY')3P|tyZ;Ur#OH_ ]6L4V|*i%IVX\<)<ۀ!U̓a%3Fg9sB9KK2!1q>0. 4?l.Y0uWR(t^ s"ΕP#fO JؘD^yz+9:yNxt>~a_9u_s>{pzNG P'׶RQ9ޥ_ӱvw+AS~~ഏ;`|yc319^7yHN;SFLgoySMC^v9+_- onIspYD!žM[Vy@G56cz wpq96$@K-w쯈UӒ%Ho$0 ܊/}h8a-i~ }b X|UZq԰6b^u^t@J_1='<%+_ͥ?m~xqdžzxЪ|kF[F_:H›ϗ:Gߩi ir1տ;(~ ~c Ml4b7eG0/ȥ++?hKvy) )y}]Nk{l t"'j6Fp d{0@%:qe52c -c%C귁+m#.̹" @Stbr"t%Z7|V1C(E؃bGUȃD"\P $Y%P tr_Q.l/^r${ ?4_-H$ N8mof*MjQ{ϻ5@8"4FGzglص8(cՑ;.S;DAEO]MxHů7 꺕2MghV $G%i'J%oᾖ%-_07kSeSN@٪?~O ЌZݢY<^!5{Lr+>ρJAs[Jo(\IS'%1GZg߮~OZ/"_w.K/ ,36 ^k[ g!ϙ0yD}o~:è8W*4Kh!z vȥ5ifa鬙Ir1+,zT?~e_\oSAyO<`]łsf1aNgݨlO ~%? o' xPʫ$Pe#?|Hxcڜ}/>{Ig=z1#y|`-=a1)oN'1W<-K}c2 /v<~b9/i?k˗| 5A4aSMڿN=^-ww3bY܅g%kWP r΀7 ~k jAun%au{h a@yFq)Zei=ƢmѮAo}w<3q荔0'S}gex&;LLHw *XN}Q@ `/f3Y -~u_a=0)*ֻQ!j!pa{M揳/_q+ a J pmyJ33$cvT>(>=r Y6);OE=?;vm( E8CE`M'AhWoEcDF5ߘ"g">vQȗ,ҕB'6~31Bu*Ms'ȩ]]BI3,D6+K,rlearn,T=fortran  CMZ : 06/04/2000 11.10.31 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 30/04/97   SUBROUTINE RLEARN(A,B,U,O1,OMEM1,Q,O,SSS,FMERIT,TJ,PAR,NUMREG, *TJMEM,tjmemp,TJPAW,NODOUT,MAXCON,NNODEM+LF[rrI8]pbaS]J\ f~ JE1lʖ圤y+TgX"vٲݹ回Rc8}sswGk(wvqzhYf}]f=,:y"yJv^Ew{FZ)Vd2pxtwֽFݩ -zUﮃ6L6 ZnߧLF@;~=-䲐3)ttN.A|aI_fbv_ȭw!Ѯૺ.X1C<]B[piM֙!iX.ձV_J63tn3e{y<>i$e 6f_e`v~]]A&< s`Ⱦ,E)~Ϭh2$G:;dYvdt:i1znYZt=m BMD?1:w'T=$+iߢh}W=0P\ZWĆ MR6"lVս:"lJ>Ccfִ ѪMt*zH*%"E8Ӟa~?oNi1CS_`Z[SF ͚%ib06 nn-s_~Hf2ğN3|Op ?#*pH~ߥ=#dt:ǻã֬r[Ўl[h.?ys<gXf+Zm5O"Vc [б:S 2;a}hBKW;a/ن_ߚ4P8V=yE/Gn9h[x kDX4U`Mʙ].15YY't$^ٖ\kzɍE!w:f :;-+ nj HLsb{:j7]l$b2?{2Kh1sǨ\$й\C@'AjK5z-M69j斶Edcl[}?قO34X BZ@86]~lToWZִٳ[tVt ﳋeGegӝӽh&>~4q6@yk'_CF$ -r,/G἞W Bu"2z]K"'mJn9)4"W\+"Z.VnHS6x2:*%{9G LcŸ( N3`јN;c WC}A'#=MIFa]q# cMs0nJi󿹟V[ocqZrz[2|Jl!I(=8b=(D)e ~N]aE6M*da[PpeL;-%#o Y9SY*V-#s+T2OpQJl+6%-%B9ZNevq\DגT]jF>jq̷+C]~bY5[q?Ս{w@~yDoɐdb]za{iŧVa5iQ E:#b0̳ [<t^P/<;c~xʛ'4Б_z =;$rF8ٜY0uWb$t^s"ΕP#gOы JؘD~z+8:yNxt>~ߜ_9u_q>{*zNG P'6ݚRY9ަ_ӱvwn ~I}i`pЌq0|1ݙF/k~aRMn{ۊ78m31EV8)Ya[ԤzpSW;NrrC3 5xNn(DطiKl^7э<~`2'b|_zz$Gێ)*>d:jioI-M}OWgds*_-JBF1=weT*F(|b4A3Wos3lT˹q'Mw : vcq-ŏ!^\a9=ԭݠu}ICz@cqaS`a4cjeTjhϟIJWrJ`;o%]`GїtF.xg=79A,2i3FNy-s+V!Lwk~i}UxDރJ;KsG i\׵B%s붎oָznQ]ɽ.C#M_G;^K$`JEq\JKW?j,"-ג Sؕ6o>@!Sg) 9. w}O4fNU|u<ؘg?!]xQrKNi\${_6P=!{>VL'ht&':gag!0T"S Gw7;cL9G#q^IgѮ}]cѽ hhk=WooIlpMHk͇ݜV=P0[wIw 8:׎>{I9ͬ@'ͱ!Zrwm#e?#6#DVvSn 5;P`h+j}[AGxؠ,&W@1h}NS '%qW%7ul L eJ;XeD-MTjnѳhB@Sbў\*Eow ٺ ~{lx]7fle4IES.ޛZxR;57;M!5]!FW7c%4 ?կ侀^o[JT}$)‚Mzl ric {ݡh;żuG>/]z+ĵ[tx:Mъ4#k2uYZ]޸ϲmm"! s.̹" @Stbr"t$Z7|VCh! 5.rA)k*q8q2HϽ\/J"%KtHeM{ +<Fh-7LF=dR%co粻vnρ-Ƒ&~0˦("muNþ<ѓl|1~ '),yDK_Mɰ7y AfqAԡapaABqb Nb܄T9Ф0T;ײE6N/*1 %kZI`de -+;;&|U9LYLKQUQYu_]GD@+Gu֘phuZU*Glt.҅^rl$Z{ 64_-] H$[}-H<p1X3ԡ0wk@PGi hb~)V+:Ϙص4 cձ'w]fWȥ㑪^o Y;VfnЬ@AJN &*Kz}-KZuoA P6hgSCSN@;~xQz-LEjyҫJCkvpW}Ɩ'BL49~߰7qα1ϙyD[o~yIg=zC1"y~`Ma1)N'o1BW<-KY}c(2 j/vkׅ<1boՠ~cn%gS+S gK#Xtw&k `sp]L/LF6p10֠M!n^QV+׋]^&71@'E_كo,hhtO@ ɸMFo4LeUQLIge&ۇX$s,x>K`AdHy,E+Wq?^/0ThkrP|sX _@!t)^qV+ve1#bĨ-O :ى1;v D 9Qd"'"yUΟ;N|~ibr&m꓏bI[`4Bbގ}#טbC3s̘Ovu'rK9؄[YU&fpe >+K,rlearn,T=fortran  CMZ : 06/04/2000 12.10.50 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 30/04/97   SUBROUTINE RLEARN(A,B,U,O1,OMEM1,Q,O,SSS,FMERIT,TJ,PAR,NUMREG, *TJMEM,tjmemp,TJPAW,NODOUT,MAXCON,NNODEMI[rrI8]pbaS]J\ f~ JE1lʖ圤y+TgX"vٲݹ回Rc8}sswGk(wvqzhYf}]f=,:y"yJv^Ew{FZ)Vd2pxtwֽFݩ -zUﮃ6L6 ZnߧLF@;~=-䲐3)ttN.A|aI_fbv_ȭw!Ѯૺ.X1C<]B[piM֙!iX.ձV_J63tn3e{y<>i$e 6f_e`v~]]A&< s`Ⱦ,E)~Ϭh2$G:;dYvdt:i1znYZt=m BMD?1:w'T=$+iߢh}W=0P\ZWĆ MR6"lVս:"lJ>Ccfִ ѪMt*zH*%"E8Ӟa~?oNi1CS_`Z[SF ͚%ib06 nn-s_~Hf2ğN3|Op ?#*pH~ߥ=#dt:ǻã֬r[Ўl[h.?ys<gXf+Zm5O"Vc [б:S 2;a}hBKW;a/ن_ߚ4P8V=yE/Gn9h[x kDX4U`Mʙ].15YY't$^ٖ\kzɍE!w:f :;-+ nj HLsb{:j7]l$b2?{2Kh1sǨ\$й\C@'AjK5z-M69j斶Edcl[}?قO34X BZ@86]~lToWZִٳ[tVt ﳋeGegӝӽh&>~4q6@yk'_CF$ -r,/G἞W Bu"2z]K"'mJn9)4"W\+"Z.VnHS6x2:*%{9G LcŸ( N3`јN;c WC}A'#=MIFa]q# cMs0nJi󿹟V[ocqZrz[2|Jl!I(=8b=(D)e ~N]aE6M*da[PpeL;-%#o Y9SY*V-#s+T2OpQJl+6%-%B9ZNevq\DגT]jF>jq̷+C]~bY5[q?Ս{w@~yDoɐdb]za{iŧVa5iQ E:#b0̳ [<t^P/<;c~xʛ'4Б_z =;$rF8ٜY0uWb$t^s"ΕP#gOы JؘD~z+8:yNxt>~ߜ_9u_q>{*zNG P'6ݚRY9ަ_ӱvwn ~I}i`pЌq0|1ݙF/k~aRMn{ۊ78m31EV8)Ya[ԤzpSW;NrrC3 5xNn(DطiKl^7э<~`2'b|_zz$Gێ)*>d:jioI-M}OWgds*_-JBF1=weT*F(|b4A3Wos3lT˹q'Mw : vcq-ŏ!^\a9=ԭݠu}ICz@cqaS`a4cjeTjhϟIJWrJ`;o%]`GїtF.xg=79A,2i3FNy-s+V!Lwk~i}UxDރJ;KsG i\׵B%s붎oָznQ]ɽ.C#M_G;^K$`JEq\JKW?j,"-ג Sؕ6o>@!Sg) 9. w}O4fNU|u<ؘg?!]xQrKNi\${_6P=!{>VL'ht&':gag!0T"S Gw7;cL9G#q^IgѮ}]cѽ hhk=WooIlpMHk͇ݜV=P0[wIw 8:׎>{I9ͬ@'ͱ!Zrwm#e?#6#DVvSn 5;P`h+j}[AGxؠ,&W@1h}NS '%qW%7ul L eJ;XeD-MTjnѳhB@Sbў\*Eow ٺ ~{lx]7fle4IES.ޛZxR;57;M!5]!FW7c%4 ?կ侀^o[JT}$)‚Mzl ric {ݡh;żuG>/]z+ĵ[tx:Mъ4#k2uYZ]޸ϲmm"! s.̹" @Stbr"t$Z7|VCh! 5.rA)k*q8q2HϽ\/J"%KtHeM{ +<Fh-7LF=dR%co粻vnρ-Ƒ&~0˦("muNþ<ѓl|1~ '),yDK_Mɰ7y AfqAԡapaABqb Nb܄T9Ф0T;Ҝ)쿘cYPXy+ $[B@XPQIqUU_gf->栭y{N>*&-Xlp!mhUf2%mY6ׅ^tou옝vaܐ{ϲPF:Codn)F]jw O6SaNp?>ܬYQ4V9 kO 5PXpt 8kGȱnUv"ҍgh CjG r}#_lJnA&)d颹zsnܫ:<#Of*gCzߔc{7]g<$$􎝮/Щ#tɿ<|<Ͻ<@8{7;|ՠEo]_ҳcXVP]%0{!I|BmG'$4)')6JĸG Ò*N3&X=LR|2Hfzj;t7DY.h赑%kJtA_ŶchO B#$tFsr Sdqf(o~'TM P\|`{_C JC6ECD #Kta0l3skT6O3vB]o(zMbkƨz>7zOj$%2řRwj%Hj4pP7ȍ #~ K!"vWwr[GPX&]b0^$0}ƘTu 5wI^.u5Iyh G5'B:#xG".hXƟqs3_>!oЪH,+x\FӮ@cOqNʻE|1w$L? D<@Z/ԧ`/`|vX9\%}Gإ<ӉFvM%nIɹ␃k$`ueXF9W_Y~Of݁>Ք5Tl, @h !iݼ!f 7^]:j GJ.V%.+%C_H7x7!Eb!)|bWdF*$LWjG`z9S?> OW >+K,couchi.  CMZ : 07/04/2000 09.09.08 by Ararat A. Vardanyan  -- Author : Ararat A. Vardanyan 07/04/2000B FUN CTION couchi E par ameter(pi=3.14159265,xmu=0.,xsig=1.)  xl ow=-alpha  xh igh=alpha Âcc couchi density function  co uchi=(1/(pi*xsig))*1/(1+((x-mu)/xsig)**2) cc couchi distribution functionE cou chi=1./2+1./pi*atan((x-xmu)/xsig) A ret urn @ END >+K,rlearn,T=fortran  CMZ : 07/04/2000 09.11.32 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 30/04/97   SUBROUTINE RLEARN(A,B,U,O1,OMEM1,Q,O,SSS,FMERIT,TJ,PAR,NUMREG, *TJMEM,tjmemp,TJPAW,NODOUT,MAXCON,NNODEMI[r"ǒC7*![3# 2?6AK30h{<޳}OeUC؎8]|YUUͭVqWVXQj%A7ʮZgk5TUUDW/-.<*6U=q蕏/jxL:d)|.Vur*-6K`0a2}CޙyWǵcf8.NZ:13L9ì˩5WʲR٫ukԩh3=[Yyi[p|6X6oUmUvcn٪Rs^ <^T؊XlR{ , Xžn2WQv.#2}JҴȞ|n(,28 /:8tteIAjzt92L0Lg/Yx#,%_dFnprl[Ӛ1R># ŅYAzEl87>/n1+m5^ݫO/֩I<{8n6mMZ^H'GR/>X^b3̯GScPGCz@W(#<ũ|#f͒4R_O x̀H篫wI$3 eϔuKuo>'88P_d$ux{DRlc2Wpg2]x}UtlƊ3Ur7/m>/lؿs2u5N' `H:G:t89E!=z[k ppY=]",5xM?|D&86wƱwuˆN@B3)YgzC/1B*ʼnP˫]_;F!vTJo4?eV8( ZyƁ@Z m夞1MA?gFNo/,"Zw2|8t\X0l|}jq;ӹ㇎RЏw;4*uƭ6p=5Dm !wtƩ8WUl` ?W譄TCU, 8 lBӧ DeZ bN}%2"ܴb[ ~c{2a߁QUxd*?޷cn,ofBh,})z3ݿ Fa^77fځ/\uU_ElkVbhGl~ZA c -4fv Kn3,iI涚'tqUoz-X ]p.2;A}pLK;A/ن_ߚ$p"9,z^b=r<#  3h>0+3\Vcj++<{2'|#tO6I"-*׮CtBėuv[W,7@f4i)5jG&8Ztn"KsI0? ^e~8?db.|Q'GH=^3s XOXɗk@[;>ms"-mƘw! ض#(ϲghdqE m">J."iɳg.rAgyﮯ^3җ2?@X;#2=tL9F. Sa1,Cts ыb(\)3goVKyC> )eGUgӝӽh&>~4q6@Yk'_CF$ -b,/F἞fWg %e:V.m%AObW 6nskTD-l|+}d7 ֩Bph<<*%{9G cŸ( NS`N:c WC}A'#=؍qFa]q# cMs0lJi󿹟V[ocqFrz[2|Jl!I(=8b=(D)e ~N]aE6M*da[PpeL;-%#o Y9SY*V-#s+T2OpQJl+6%-%B9ZNevq\D7T]jF>jq̷+C]~bY5[q?Ս{w@~略#v_GqI䌤!q9'3gꮾH<[9戵ѳE++.FT5o7?| 1/r~W*-qt(0(B}n9Qrx:}Uo'UD6 fmbgK@̏&̈N6s @ qdsX@07&fras43Sᔫ1Ar(kfАWjڪSnܭCl(2rO_s17,]Pr.=K %ͱP{o-p< Ub㚱ԋn>fq!'JY \(>˜z~J1a)x/X]ziZcb"4C Obohɞ=b]ħLz c"v$Ӣ{ 2uFyw>Y9ަ_ӱvwn ~I}i`pЌq0z1ݙF/k~aRMn{ۊ78m31EV8)Ya[ԤzpSW;NrrC3ͭ!5xNn(DطiKl^7э<~`2#b|_zz$Gێ)*>d:jinPM}OWgds*_-JBF1=weT*F(|b4A3So6F*cHg}q8Ȧayܱ~r8֖os/Že. ֖hepC_wз=И}Ա.X/M l^-3wv6XtJ.Wz)tcQ%ݳí6_rFNLѳ?sfe U:]Z߻uZ_&Ra\lB?GuıPeZϭ?+eh)v(qpcL(+Qi U%T}Z2a ځfs GVQh"dL?E^^t|!?22pESA縉FQ̩ؠ ?.6Ѓg0'K:o6Jn{ɱ)Бdo&J dϧ MθD瀗4LXcf*\Bc NBfo hX{D7K8 2ڵϻkX#wAp9xzMcgZ=- T]`MZ~YllqdxȸЉNsSwd#,gu:y\l Вk)!jrفD[Q3K >da8614@ }b X|UZqX 6`^u_Ft@J_ƽ!=&<%+_ͥ?m^tq/mcz=ĠcŸ `s\KsG@Rbr !dEBUbx+ ]{KTTnRrU~U.WA 9hdc=Vjq#ʞJQ)G$k#r58 *ƂX&Bj-+vЋn9#[Z<{Yv{Ce߲0 ZhBHpyʨQWx‚:F ؇+:}5+>""ƪ#'qi)w +rRjėG"zx9Vۭ"XD tLHaRX[e뢖u-(D9bE2i-"{;'=)hAE'w},)|ΏO'@OTޢYOk5o7ppugo|$u+a/. l%Gr[SE~Ɛ}Wu3^F)k2 u:y 6=+qWbƼ?Y*%>[IKXuvꋠRYEgrEKݩ |>Bq 76o~/]I&MnAau@@vzAxo(cZScyx&CrN2KŻ9'j-kN2u0z#CD\]I07?Mjg}B>/UXV\FCcO5q^E|1$L? D<@Z.ԧ`/`|v\¼\%}Gئ,ӉFvM%jIɹp5O0˺2^,v/+v,?gv3Uh.**6[Vn5 Mp CoHc/{׿"}&чU AxK2<HXW UjkA1rW!aRFR;Rh6Qx S>+K,rlearn,T=fortran  CMZ : 07/04/2000 09.15.20 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 30/04/97   SUBROUTINE RLEARN(A,B,U,O1,OMEM1,Q,O,SSS,FMERIT,TJ,PAR,NUMREG, *TJMEM,tjmemp,TJPAW,NODOUT,MAXCON,NNODEMI[rrI8]p(ٮB@`A. D3?RKj%`(-ٲT"a>q* ^$ٮ:[;{gƞr;c.{+J$2fT\jrvͅG9'N 1e'P+Sq:^RyGSQ?h+jrUU.Sjm /_tJ5h9sJnNԾpZܼ٪js ն\L㱚 T'x K5SSFQX='G||M"""̟FQy} ~8 F!Mݞor9zX0|f`;di~c˸1J:4r/Vx%se@4<٠lg5Nco3oɢ5qyVV_X ng1FuQQ?kZ[aPnrodcܓy}W0C*><*[3듡?[EkW{dܽ|fDV JRAy@ o"68ňDk75*v SwTSo9[cGnq͑{|HWy6g%I>`x0iXi&0~I@Ve,tujTv>˼iT9 433eP+jgl>[jTl?s9)umj8 #ӥyFŴVI5}n;ϵvZZsL;silAW r!ҼHH/oX=׵ttZܼPL rWxgRF{ K|bEu_أkI]$ؓفjΧs|L$5 4A)۱ I QXtE>e"GV\+/p#g2MYV\[t@2*Wմ멚s]|kR j`vȃ'O^o+|;";):ցEEo4+?2,Tl:Cfa?O/γ~M~~4/Uڨ~<:yNMvMD+s8*ε }YRYh2WG:;dY6i: ݴ B *լ/T}6(0q|<>W2A[&oON D>tH˕پEt]zxrG6Uf Li AJV25ȫWdj /; |-<{~Tf8,[ /{l*9ˈ-B%Һ4-sOE>n7E)|YRtV=9L2Q/y$&R5imaߊ NyZuF*'u|`B,[h^.>WK|Ă<>hnۭpKu*#[JGb-D0b"ȋ ̮ƾ? k ~{xJ{JiDOWܷ efl O14K' X)} _F3Z#E.#E"d(f,[:d ~GTHC}ԭK}#d!t:<4ڹ,o^j#}}a^h0\pv3 WSh*є%:G:{3?v9E!f1=|[k ppYm.Wy&<$G,3MĝqlƝpeu'(9Q>@Q י3iؗ!D6:ѯ=;zQv5[VQ߀ qsLr~goVuc`nܖ\4*FىEw:";-+[Mnj ̘4i)7G8vti92KsIb(b}O%ۅ1h2MtL\\C@'Aj+5z-M69jlK"1l6=ģas *lb,H!-Y @DTn.??*+-Hjg,-2D\Y+gI0X;3ge z|kn$x <#eh."}3>Q ^R+Ez p"x3lD܇}]̀-.#mB>yY7c?{>L|;hHym\9\s|9%Ad ^Jl`aMwda[Ppe얓ٷETsrَ9Ul*o'8(>#DRxZNevq\D/$Q<:Z}oW|CY-BYZr/}螏y_GqI䌤!gŝyHߺM1Gѯ^tQ]׸}= $*E]hѡa|;PbB}n~s~B}ujoC393 f\ Ϣ௙}@BnŚٞf^r+>T̆"O/8M`OTAuM0"pm3õ JF2^K+U^6Z ǃHR%j(?HȖO]+˜(,qp#i)}.'%ʦt?Mc8i} >ZC4%{ wђf2S4#}\-_gwɟG+6kw_x={O1'1Xwpï8h8]e1ٙF/~eR-nzӎ78m31ET9)u5Ya[iR})Q`r+}N>gsCc6l[/" .Mk:=j4LqtUf?F0So]OXh;oƴJ}MU Sp_S٧ٜ*Twrˁ#tr*tǮ6Zժb%D[[Vy ttdv>5 KC7ǹ6F"cH}q8Ȗaݹܱqr8֖gs'^\y{*'[F+Dæ=pHieTjlϟIJWrJp`%yȎb 鞍d}nΖfo4rXd֧gYAR̭0[,3ݕ^_UnT9_<œMHH9*^7e|]3JuH:naC^^ʳR~Ħ2pESA N#ݿ OyS=xcqc~F9VTNi\${_6X=!{>VL'hw': fAg1av!5(+@< D-;;cL9D#q^I7Dh>ﶱcBb2 xzMeJ== \S1ҩ2ta7g=E3sK.#B&:εO9v}s=kl8tOrslH][lH/UӒ%Ho$0 ڊc_VV(' ɕpZ@` t\Ui+ǭR.F/P|Li뼌ނ%J_= R富RO?:W|Kmu*ߚі$}Nxo.kMK\_44w9]ߌP``ЀTFBz nyS+S}c߆{ 6u߳#8N㕕?hKvy) )x}/|]z+ĵtx2Mъ$#k2uYZm^ϲ]nm"! s.̹" @St"d|F`ž]M"zP8dcH"AceăD"\P $oJܡ)p=x$*ٻy.s |e%%~HdZw= Hu`#\Gw[A&@R#LIP\LFLs];y7m` y^rx7dS۪("muOܟl|1A ')<'X<ޓ?lW͚Lc58_59AGw K#vVew,"xv R9v0Q)~(7uQ˦l"JM9GgKڪgO? &hPɽCc} ,S,hV^ rԯ֢?`}+gޱ:uN1bܒ'qgyo'xZ_^cBmtїUzv 뽑 рjˠf/7 X4C 4ad:F(spXRi$\'YOLNZcg W"e 6dS.x;]N's!S|s_Za4ӸozS56CIr N )/( y~_$wXNs0H.i1N>Om#ð-SSC >YF uYy1[މ]e Ea2_$^E{5Ÿ`O@S9#hdd|p:V[p,ceUr'eI$KEn> ՛\;6呑ܭg ?~O?TCrer^..i,%ߏoсۻ"Gf=0Ц5qTЀ78^E8^3^a׍i >c|ً:ÕThrxC|zv CA6Ē#[SE !\Df:[7c{4Aζσк ]I!^^fg̗'o-B$Z`wڪ/f^| 4]&S;/-AT|Anl[g^ M8r5 ހQ3ƴC= r9Lʇ C$d4ws4OԲ[לe`V<.Qaƍ?t||VO_@"ϹT']="" y1+>( l!pw埋 cIP~:x_O3^ys3+K1`? IKOy5xJlG+s!H<,x؍>sȿųTY}9)klYX](@6C )~Cox߻u x31>\Jp\TJ a ?n*C\)BRNMS?peHTԎ/A:]'׿F I>+K,couchi.  CMZ : 07/04/2000 09.34.25 by Ararat A. Vardanyan  -- Author : Ararat A. Vardanyan 07/04/2000B FUN CTION couchi() E par ameter(pi=3.14159265,xmu=0.,xsig=1.)  xl ow=-alpha  xh igh=alpha Âcc couchi density function  co uchi=(1/(pi*xsig))*1/(1+((x-mu)/xsig)**2) cc couchi distribution functionE cou chi=1./2+1./pi*atan((x-xmu)/xsig) A ret urn @ END >+K,couchi.  CMZ : 07/04/2000 09.35.06 by Ararat A. Vardanyan  -- Author : Ararat A. Vardanyan 07/04/2000B FUN CTION couchi(x) E par ameter(pi=3.14159265,xmu=0.,xsig=1.)  xl ow=-alpha  xh igh=alpha Âcc couchi density function  co uchi=(1/(pi*xsig))*1/(1+((x-mu)/xsig)**2) cc couchi distribution functionE cou chi=1./2+1./pi*atan((x-xmu)/xsig) A ret urn @ END >+K,rlearn,T=fortran  CMZ : 07/04/2000 09.54.53 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 30/04/97   SUBROUTINE RLEARN(A,B,U,O1,OMEM1,Q,O,SSS,FMERIT,TJ,PAR,NUMREG, *TJMEM,tjmemp,TJPAW,NODOUT,MAXCON,NNODEMI[ksG&? 3Xv*j EaV!c! ,k?%v8&%<{ITSsy9O^{_՝j=hwVDFx|vSTC5NT}OJ£RK՜n2OKЩ8{}|yT/}#ǩcvNK5o*GM)5ڇL6/:V_O9Vl7['ji8-nlK5uUej[MPqw2SXj'xjf*z^ճQWh3I$^&RD>aw@Ui@T^AyK8 FC:=*rrX0|f`G24?eo]tb"L9"˩5W:[wlPjd{ڳ'ұ𷙷 d՚wXyUVYfmjimTTxCKb+c1 M-4l`{2 F@}\tڇGcKpƲ>/V0cڕe}ϞϭjbAAU*32`!~BSjl5NlDVY=bl[RSwTSo9l[cGOnq͑{zHWy>g%I>`x0iXԯqY j8x14xޙq\&[̛ɴ*|QSVRYn_rQ*rt ;1" 1V-q}'ϖ0[\N e/yN{t)C(:C.$] [M3K,NN6*wiA// 1T`a̰ {9bK;ȝҚS=|{;rd"Ye_fPZJ܎ <ļP%iE xX>jXy˟8h -ca[%ږNeYO¬^:xbӊ`N9`5~bסhǯ\o&.{K/Xc>WմCs]<|kR f`wȃ'O^o+|;EvpSufbZEh|cu-4WjhB$}"f Ӿa~?o_cR}ѳg F.O6kg (} _œ&Z抣JCe"d(f[:d ~?:"#;#jb??B\4@Q י3iؗ!⤩6:{F!vTjk?V/ Fy&@Xy[[cό_w_XEd>xq\^csayz,CL3:J  lRU\ 2m:zv@`jNgMS`s+vp*U6`3Sle2 z-bns1{͊R!u|nadtb?=@g:8:ןYۥ TO[7css!4i}Mfs#0/ 3K̗uqê/"h5Vw1C6[? 賿qO@9*4w^wڭj9Ƹ\7t_0>Cpm4Zӥ^m/XoKNyi\R0\yEn=4-z kEX8U`Mʙ].15]'tƀllJ.uR"ƀ;be&75$&-'Z܅1h2 k&t.gB.VápcG g5v=Ж厦Ow5sK"1]vGb-d *Q 1, Nh*a v[[E53yUB].謀Xk]RȳkgpV"]CD1rl$wI8?yd/HcL~C!J5׿].Vo晍;<1Ϯfu#mB>y0 ^Jl`ypV¶lʮ w[N6f&soTȭb[d;GTd8VlJZ[Kʇ;hi;FrD6jWc^-zRҬvntct(:l*FW]Yʓ$G$m׫ M ~xZI$1$~06 *e3Fg9sB9KK(2!q>0. 4?l.3uWR(t s"ΕP#?~1/J~W*-st(0(B}n~rx:}VoSUD6 63 nGL&K@O&ˆNK6s @ qsX@8 7&fqpQ[N9`՘ , ٧4VjALb6}z9i{ZЧ nnB+昁w$.S(Fk'E\½7LV8dv*1CI@EwXtql3U8Ea, .}lbL?=?ؔn>'Is,t41!R'1 x7dOb1Z.bS} _1N;Ohяݗ_uYo:twNqZүXh^ ~߻4@b_e8h8]CޘLL#fmqcR-n{ӎ78m31ET9)u5Ya[ԤFpSW|s'f›Gk$ܐqQtoӖAqPab5|81jDĖ~ ~kIgLk,gܦšR*>T[ɩнc~XVNnmYa1,h,}'(Ro6*cH>gIdo0]8wyk˳nb2XN}OukK2ΡFi}Rh>l,旦\6A ;;N,|%}\n?qX$oQ $ݳí6>\r썆NLѳS8?B˖Afuқx봾M<"A#ل4.~Zcv[*5n'[WWr(@SQvys[{%08L兇+XƟVOPw*kɄ)V7PZy; yy)K9. w}O4Y_3b*SԺ@ؘg?#xYv*KNi\${.|,=+&h4S^  mbu3]np );Q }t1fd c!8/;Dh>ﮱcd445.-.y)T]`MZ~Y@cfna3*tS\;c'?Yc9rNcC|{G،Y;-Y@I­ҷA9YMn . 99M1ЏO  ZJK\Onv1|ن[˔vΫ[^Kݸ?pB@Sb.l.iswl~il_>^AmM҇딋"] o?_~zib_bt1v@QAS*A %c Ml4b7eG0/ȥ++?hKvy) )x}^Nk{l t"'j6Fpd{20@%:\ϲ]mB! \ jm)O:}5d|= } y>q aH"AE1ߣy*A"tZ.(~E۬w(oC:9\a/7.Q܋{:{;Gz1WV/_痉$!wI$[1#lKhq3Hj޳1 H)W3V~;ݵCw{l4y9Kn2l|j"V4ȡΈ= +]W3topٝ}N2IǚG$PkMӧrYqCڀ!]mpwE}(RU_JU=93 Me.g|2s cNQ@ԲxRS~G(\K&9QLlT;%t|HXg݆RjsO,LM`$edX.jѽcvڵ¸!ųe鍰7.텱Т5S:@<p~#mvjОw0$ h?%* ƃ^}=fG=I{U诮w:̑`#jU]DЮB@Je*G eྞJ6$f:(iok)hΛFE'*vXk3dURyb!M#G2fy&ײ>ǧ :&7f ol{=37_-Wu/1!گ{tїQ:v 㽖 0%TfA^kxa LG'$41i%bdrA廹&X1B>)$3>i[ Cu%k"Zj襖%c tA_E&Ɓl9{k-L[o*XKH_bxx9 0o8z_s6,"A m{0y?ceeG?CXqN0J̋py'6d7Crtz횞sZh:{fhoOv oKzY]Q˒wIZ &Xι/-;!-G:E'bm g^Ny}blţY]qT^CH#S{jk4a^΋]x3%7Q[t/ڑz;4&/Sd5a _`~ʷv%.S%'u m>1.>{Qe?^%v.8aS?r mTcʻ0dh\i+K|;`]CǗ8q}΃ݥge^`=bE1qMz Q>5Q|m&DRAkG!h=*|ޛEI6 }ס%KC6;ؼm3l/ 5urKQP34Sryz9U rA2sŻ4>w4df619pq'X&\7n?ԍm1}E2r'O~[Wyfszw!1Y~-Ŭ좐UO{+& s!(ur0|u8z|V.ߌ.h>}9H2&!)5t)`"WmRBR|r=0a M`7ElXb6Ie얌vsVUP22 u#XgOvGt4֫/xk;Y3/5(}4*@}"]i<.)S\*E_>%bWͤ^L~rxIRd~|LWu >+K,couchi.  CMZ : 07/04/2000 10.26.43 by Ararat A. Vardanyan  -- Author : Ararat A. Vardanyan 07/04/2000B FUN CTION couchi(x) E par ameter(pi=3.14159265,xmu=0.,xsig=1.)  xl ow=-alpha  xh igh=alpha Âcc couchi density function E cou chi=(1/(pi*xsig))*1/(1+((x-mu)/xsig)**2)cc couchi distribution function co uchi=1./2+1./pi*atan((x-xmu)/xsig) A ret urn @ END >+K,couchi.  CMZ : 07/04/2000 10.33.11 by Ararat A. Vardanyan  -- Author : Ararat A. Vardanyan 07/04/2000B FUN CTION couchi(x) E par ameter(pi=3.14159265,xmu=0.,xsig=1.)  xl ow=-alpha  xh igh=alpha Âcc couchi density function F cou chi=(1/(pi*xsig))*1/(1+((x-xmu)/xsig)**2) cc couchi distribution function co uchi=1./2+1./pi*atan((x-xmu)/xsig) A ret urn @ END >+K,scanpt.  CMZ : 08/04/2000 09.17.24 by Ararat A. Vardanyan  -- Author : Ashot Chilingarian 12/04/97 ˂ ** **returning an n-dimentional rando point generated with Sobol or Pseudo random methods  subroutine M]lmRN0^n-b& ̭&݈H|Gl]{ўN" e^\e/B1!EW.*(-\pYL bKjUGPQU 4w{`މe苄\4!C\s W)9&I j 5<-8k{]g d$^7 A'J)sW}>ώ,Z cdː\+Qreq|;G] apLQKsn}?KXO0]6 Tуs,`vFfs_`1>+K,ani.  CMZ : 09/04/2000 15.02.15 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 22/04/97 ====  PROGRAM ANI  ** ****************** STATUS - alpha version 97-04 ***************** Ȃ A NI iM{zvܽ[sI&Ȧ lGD * 2.v0 Rh$Kr SRJP*STn?sNwu5y=;#/AIgmoiwwtrMeh^Lft5G(Ϣɸ?4yq~ .Č/@h`lޟGy4/i8%czBchr s9&(h̲G 0YxaPx@+2yج?3a+-ל硩I\aڨ|ff>1硙MoD>6s ^MAHjbU?Ԅhs<4ȴp3g%|`VL!ŤR؟ >lhl)`n`i]D&ih^)"ϯ`b|+p*8" \E/E+'lmGӦ\.X tGtm HrA 2υdQCjFݟ>꽋w訬d|- 9LO2ii1괥dg WSb6Z'4p~p|5ͻ(e=0߃4"aL\Ȗ9juzj`<0B N\^=GBM5BG><a )Vg&sS{{?6W{= ݝ_Q~v:޼|:Mgpc,cShGP{.嫨>"xW綥t؏=0ta=7.8P9z jPsjuPL'2v.f걉-X6ڲ8@TpAjԨkPګ>$|-e :4 9ouoIl]&6]v1dwkIi6iIdnsz `}|\ۨy DEȃҁ|tz۸>yP*w3棒9a`^S<~S: CtxC"BhϪFsT gBB@ͶOũ{Cs?#mzIĒ6uads{}ծmfm=;=vw1@d>-̽h?n=zÔtj>+L4BEf qN?WT7ЙMKɢ1,Q^.vWC +.4zV_3\Sr'`^Dܥ8K K+9T\;yյ f 0-]݀`OQC wB|Vś}~r$R&J$qKCPyM#9>wuMu4ZպN :YXqhV{U4^6N:z]zҏfye֑:VcY^ǃI= Ǣ?kJw}8*H` fC Fo;v qԿU~amcs&[Yd-LW#y0jfpީp>lmVbf`)((#SkT]e9Yh0÷B;)vǯyZE|>D{L7YhJU'UkOF9XD0|wA[bfLsv_Or 4%E j|-J5a@+$HUow'^ TMdJ@m%ՖW7 Nj 7g~ѫJq9|="[J`fUXn3G$iƇm{bj9q g`'0ގwjh&̱xԘb)c,x&_;7Xz (j&lup$7'FZzT&zBRVq{.+!Pw"H%N:CAR`5B6Ӻ$TI0|ȴ1 ͇8?Oʧ&@4v~6/dZT6(>"cɺTkQ:"ԉ ¿F̫KX7QZҲ U1{Pg?w?ҷza ~Pq8^keva5hHWqwa2/c+-6_y5J[xJ.,é8@8#]֙BvqGQk5@*%p/0'uNs;s9uwspwzG98u 2ˮ\g=|9#\9oww.pwgw>&Wxu_mj5mr9SC 8No$z9~"13Nì)߇̼# Nф#h)fӫ1YX"0̄\OՔ"5iL5^ ZYEB< `iv{ONA g!,-?K/:_M}򶁛: yOStkkvduEz*|jrVO,.siGU/$t-}j,v޳i&nTvdJE82jzMPDO ]llڀg#q)bs?Irȭ ;S{d6'0,c`N7t 7aѹ(uT;HYSVqfov?W;8\g'MּTN\]03,F9r1uq> yғo_-L_ KhVv@ 3$W⅐gx4IZ wYMԋ^#KⲱH_+v]\JʅrV3nOڶ 5|"k ƧZUN|"~%Myz~ܔ6NL;+`dĻwWs-{/'!8/'B9gYR9 +eFlmN;8C7˧}h*9mfλzn ~JZY 9 W.jge-E gYONB5YY*0A XEө>Juq ^4vOi3+ _/'Tlyk֩wl It(j&_UߛsXnm!p_Vh6/ NZvqق ۙ OoZ%8LI݊lUمyŋQA:<ά|+\o}(\*'Q;,?SmX'[!*-$}Zz"@ ^ǰY6sT Cswm>c$pvҽ]I w9$ݣC)H)G_~=1󿎛⎏p=6O?15%ϜZ٩:==tjpeY_ H.;qߵ;(AyvwW0xG`o>=<eAYAa~t Vo/y ")][sm}RQH~ǀzٔRHd\~Uq8 )w,[!3O!y]^3(/IamWa3%#+ئ7&31 'V 4J M` T/@)ɦrznaBge% <_O&od6חLqZYb߲Oq̈́UmvӐl;={qJo+/–)~^ /WYZ~C;m#emjY6o;ᩓ1yZ6Au&H-8@=`:pTS#`ȩΦ{0Lജ{&2t 4 U,t7=KO&90zx{0=};<ݎ`)C0r$R#r Gڭ2E"!~R*EN-oOY+{ʺEz#^+>TێK8": "жjkΣy\u$s_K-f ͢7c7v,CE2^pzGgߕgrKzX˂Ž>zpal%+#o)uxij_=D \[d=38KeWe)>zQ!!fLnI9jaHfb>Sd$e^%8\YSs(btJ=Co5y;7K'WO8  |hNHQ^n>C uv,IϾTVT{j) t\ˬ\FYAzhRk9Cv>Zo>)df^ NP;'9􎙼0o;ՇT ՜T\ZiEo 6v֎=(78>sH{.3*_m;~ XCo>$s/GM;k| "eSFO8`-kS-):Mdd+Rpeđ5MD ~28F-{yN;<9v8BpNvo2?gNkqO\(:._ r}ci:Nnyu?g$,c$]ک=qMyc9sGѾv ֺxǺ5p`IU\Le ~k-#D_ehֿ[y"4|.aҔp&S1W"pzMX靍IC`2(G8wkX,Ő á. >>ŊDAE# >Uռ{Ux~Q bFq0 dVA#S;+y)uw`rtY|8CSil6YTĂM2_0ĭqv:n5Qoю_gK'  h8KGsU,ygRtw@A+`쑫yw|C]=C4޾%Eu(k"d~0~ܧOm -ϗB c.6Y*ȖK{6u`vnV$0⩼GgFCdNt &p^o5T.fBהA3L`lTY}q-%KdZ?)'9d,"ή0vKmu3H'%Ͳ38f\զ[aԗ\R4| eN/{e{5sʽ/fS{UMvL%$9ՠuw,h~\a7~W(3*WvP-yy&\2'Fwki_m"Xae>)c"}Porqnm zeң!l8Rfbʳ/@H?elGE>kY?Aijq:9{7uVGuO'zi~a~.(x)և_EEŶ'2ԣj=uMǃ5;^vݢEWox^Q5y&{qaK˥c9)mçh#("5un_է#|GulJZ̗Ҙ\Aok=VK9Z) \vG&2פ%)}g丬ٸxkeV,rYj/9TχN-[?*G[H9_H #\ju.yi;q9+7 QͳwNތKPE rKH~>$L u4oCwȃW7 H;ι{@У56/ *qǓE\Kqʥf͓VY]|Hum>eT=zw4V"DlUii[hlg=iǀ^NWq!`ԏSw M_*ʋa| P=[h?e v\W;"9[Q7Al2|GמgDi64MeL&YgOopE#+ ޢ_T]A/lʣϚuZi,u5*[x jIv.^4FFa`$U?(}ϵ z9KzAԺqH}cU:ua&0[C\D^{7b! LŘA:\`^ǎS;}b\xB p<-pb @~lNWT[<;!a&s#2ޗrTֈӲO&'G@gο3-:w/Gs+S-䰬z1clǯvSd+7G.- _)>~5ov\Sv:ICxS↎;rXvXf1)fv_, K{H_Ź;r9su5)CQ,+y$Mػ cׁvI*P3ۥR[b alZnvfWoŹQ}R&o]ZaijMԼ0-H z5:]?8-N0sϿsInr.퍋~B͌ѾS~16Q9L\35cCW{꜊A8hyg3*s[ Ak_9Sr^S[+2\}yG" B>`x`ʂ+m:7-97±r>RW0A6hPpy>6cCFmbZ<5XdaY;`X#]|owҰ)N +8CO\dyHm4_,k㕜4_ΆH8g$$^&&zh$aMs \ҡS?\-t>Y'}Ԏ69ZbeO(>}5u WQ<,q׈}]aSe-=;2"ް }ʎvb0F [;B# ,bD_RJ1{9P+_ "X?'qB5%吺PĶD5e2?swk cO$1)ukt=|Zf$r[zW~9kڎS9hnq4ğ;tHҁ9~ú`rwN;0W+mQu/zI=y 3i Cʶ5ahe aflg ܃kH9=kJ-hUCįK H$ j,6Kxo4P)Kش|@  B_NVS~v (;ir9Sd*&.SI gdN}ї"rk8벎}8mQ8^lc?jfN)+Dqߋh٬ݕEc7Z~o_PUyqtb1MS$xW5~ ,]FS+Ĺzg H+,zֳhM؇r>r`V 6nQn59A$ch=V!qm"NL{WCcAu2;Jy$= _gâFЦύMTّ-W6o˙yT羾OWpvgr̫ȭpvz,2c7Ƥ odR髯Z@OuoNH[T8sЭe pp|ee5]e^z<&wun^GlLcƺ gqh%2Ȇ*HĒt&R\e^'ȼ( b2~l0硩gw9ck2:Wt$0 OܕEWP o <`W;d_')ф' J;eb^(_ɘrbEXY]L+]^v CwGgQi)l+UIQ{jY~"BЙ/FIxB޷htM Dz'|Q.W/(3i9:B䜹MCIj3(y/ׅz%n+܀>MehmE۲NJqíd=8fۑ:*c:@O ElbŽJOzwacXAvEa_sMxqEހrm gڃ;k!=(c(ܙs2XP~1ƹ\~]u"s$7H綼͜IftM(.)rXk~E6onMʑ!0VQ=К`Tȗd+ct}įiGˇ6,qΧcv=7E9c$M"Ee39?z(;W ׫4+tyn)&'XkXsAGOBwN޾F|N>kxƗ]bW!]{39 Y0uV wځ|ӜdWix9ࣃ픏6q!o 0)= 1o>Q;NtF lS&Dq>ʏ_[Hxh~~\ ϔvI073b4L44Ռ[7\cNKxzѷ ϞmsZxh_UA>gX E )ܖ|%Zȭp:%mk(˰\Q)+*m d8_gY˻WI `cl ߟ4Ņ=O#wg9F"e* +^!O?O'F#bR:ɡ^͗]-YH;5\Yz%G|k9wÏD4=Y { D0+ɋ68^ n9~gq;fAo!;I * =)sp֩JhLՇX|6g,]'A|첥dP:So{Yy\mƿCF*?), aGx^: ml!.d8&s nG|ih0s@=Q×݋ɆCwb8L.Hy +2Uv"snت$?r!xnAB[ErCU|2a#wⷉiIW%KMvs}E3o~~'8~n 9h\sꫯYd9#hb,p[].՛LC>*Ov>^'؄ߢ_^@_ZX)-GaŐ$Q 8֠63ZEU~I 3XK#E\/?|2dP >˰Eh wmߦӀ+/r"@\]R?g+#; !tXl33PK7#0R7KCB]]k!O9)Ac0r`1QEJK:QpK#Sb)*ntk\ܙM˕q\_|H2r@̥yP:"9Ân15{-?ɵ`C6l|I=Dly#NXc7/`#36|IAz6U3(yslyGG|T .W0V]xɷXzbmzo]cn]_bb%2}2 CMz_t񇸁Dl2M. C2O0OUeuۖ>}V Ϸ%5P9'UWI:KL6uIˡܵzς*9; @z!-Y`jL^1 ir灌%8mi:Bs*\ձȇ%׎7$>&߆y+7O|r[yp6ubotwv蟸83b,vW{)-YM3E8\E"`\}e9]2S2GM\OGadKsA=4:nuZ[ݦ e$-W׽ΉkcK8@? {*"4} h_:&qsΧlh.Gq8~PMiMYἌ.Zfjږ;2nD\n^o*g uOS%o'V2B.Ξ%xf|5/\=Ocxr5$O6x ]0~vA sՏWpNǸ2r)'Ye~5jƶ1D_6 M*ş.@u<l2쯤d|_W-/ituQ0'qYuq`Fc>\Kikmu~*;ƺ͉6x"\@" gy#-l+)Uohg"9}/9fidN^J ,1:EZ?duvFEDQekty߽$LM8Qtt)432N;o~KzwjLM&W|'I-N#oi8/mx1s >'qk7Z5۹~0"u‹_melo~:,벗E^OL0;EExyM[qWE4Fe@I#'hѰ[-37,L 1i&@%|Z ڭ(k ;Hr N0F:s #Y#^$)}/Z-+sPwwƶK41>LW2bߠǶj_F左!UQ$s^nW$o;[B2w6_2YBA. 2Y9l2H|C50n_j90:oơo>MʪvZi]_}~;t QmEyim m"WZ\ pSp}=@S4AA]sցVgqhmq,rZ(} ]yeǗO 'Xqw13@}C`0=}Ѱƣ 끴mX-xljz< TUs,J7@WSmoBzXq3׏p-4+tJAˎaGbC-I?%  {S.t{z'7: m<wJ;S|oL7hA+{Ôw̛aEܾԍvw<߰Oh !p> FIMR-FP>϶EGTe 1()jQtR (4#@ފɕpu: .l|򺜽&6t6kj,}M}YʏkSB~]>lt|HM nG$ E9KۅuSeG^fJko]т4̀lH*'Æ J~!bP5,"S, 23$G Pbf(k SU ;wsNGaaf}W{w:JK^ ]h&tj F"MkdrJJϾp<'{VzuY )ogG u/+_uwaFCep6FfgA ʝKݜ {"x L=^/=Ukyxly nԙTwZFZgpni9-[Ppe3Amɸ0l}@d-I5]<龮+/^$~Eh0A|HP٠?l8<#aWhXn1#4ϩ>payxSsS)5ثx=T2 (OZ颮2dRfLͥb:mfj hNOiuVï+35#k&il^?$nE* @*yVm<|U׉CJmΧW_~lc"8ļD~tX AKrׅ~щsf2:g-!c?7]ː2w%]<|$%ľ84%|n6)/&? 9Phۺ:4ay8MR7WA  hY~H:2 2$}QlJZfCṾ9|zǷ5& ķm93]a,|)lDֺ}W)pMжfZN&iwoyiXNMc17享s 46vg3-Ԙ7`<(v[Is6kq /B4*e^20}ǿ=*h?3=Cvx|"sD!# }HE&/>3& 0TJy'gɑ2ZG v f*zވ-!n̺b1f2{WvdZdZ;=>#]gkKlq1 wA .[ I"M WzSfzt nvc4;aC{GN`B;[ySyGe,UBIzostT 2c;v Q~{0hNC4ׅp]G_GVaX3}s뼩;eX룧Ӯ5kߢoth ^h 䚽:KkvTӶS݈&)pÈS,]&oL*lŶvgE)h|lSd-BĎvQteS}(|$tb/cA M» ;]B̆|}Jt^+)Z۲ifD5ɥqflBovMigںTI-C/[ ټf?AU-a4 UjI&&RoB˕tiD/F͆񯲗jΈ=,%]L~-cXUk-Dk\NՑ(MEuESpO>S8@NX˯E'35 M?9a1SyEx!:.AC]d%Q'G -TJ)ޅ< BrlMދhӗEYDC*ĭ[u+Xr1ҊKtP/˞HXHt ln/iޏR=",54> d&F0$1ݲ~4G2tL=:~l@B(B-wyF}Iz{cXQ-bLFhXtbUlD2,1,01 )술55B:GKЄ;Na@M< >GxGW|MaPO'Q]P 69yҼ/`o:;덏H*uzFt/sg^Ã0.u?zS\2-lyl?S<0E 3Aw7e ʤ.Zb/͙0*?EٟT8xcϠrZ+Hd`~wz|w3.S{Rj3Rk76xsǯy-G*&ҦR` _Ya=C,7ō]:q?x8ϸ <z,B5~&81~/gL n7f>UvcUһ#j%bŁCu3oyF` BVƙB)tv{ s!O{8Y3e/^2R($2T fDz-.a~>T3 ]_)F +I:R WJE{|v{Xu|FLU E??>wQ${C1QiࣦϷUoxZ~tUm%倹dWU3iO=vo )9y)Up>VTWRoҔ ,s6]獘弯7x%GXcWZrAg-?N=bNX˽0{.0 =ki`HdK᧟L {ȸ5?{7 Gaܖ:Dӳ1绱u^Rp6K|JI@ŀ gpd>p~o;n{AϾ} Aw{sD-{˱KR寴ʥㆠv=9gɟ՞NuM5@mM*7ݚԽ xvQՒ3՘'Ȏh~Y,Vvw~{Tẻss|b6Kd}C ϘRj (+$ _55 QP77[r7+6 G*pGV~scd ^+F˴xW|A8Cw'oQGdKr<4uǰ$nccxA^eZ weP»qh d%hk1 D⣞۴ ht>>5\05/؈uqV_D`"F;8=q 'ޘph2zd֘ln؝r~n ݪL?D0 T.<F=#zPj[V]{V!Z_oZұ"C=u{0gJp͛¸`=Bo)G#4 6Ecvs26c i,.ݶ׷*''PN;@wPRוFo49^j}-8mļauqZ:aK}M'mf6ͷoE,݄Թ޴ usttDo/π?v[?*5 zC*C#cO{n_*;đyx%-%jwp墘*oJYP!?!yph߶N R2j1Vo=%8IEP1|҉}ƈۿ(cSMcrNч@I)OYDO fǣ`{T(ZiGvuK^žɺ*!DoeJr7^~vooI҃$-g"A.//_.ug1WRscPL<7)ӼRT ęOpqɼҾ,8kwe䄡Pz WR~Xzؽƶ_nv yWJKLltC~oH&d觶1I?ΐϸ:ظ Ž f!CTQP[t=|׊}3=Q4mΜljyϐcWǵ葵ǐ'[=Ue.ɷ.Y֭dBuk}Q,kp,F-8o#ׯ<5`syft?S)I^,h%֖Sccfx|prj3܀o)S١|[1{7+O>ݾY jKw;sr,/!k?Og%vŗv_~u1Y-x\׭[zo6sAˬ ߃m)mh[H*gK9lVlC5G{\'\#Y5TgtY#i0j`'ich8~Q0. @|m)uJ8h:Y0'? 6O2meC[B{6_yЧ[5ms {&ӾO$bƭ-C$݂ݣY:G o!o͗DɌDra4s|{\5Uq"mЧt*j0H?yW!dP Ȥtk9}sȄԜj>{0?G&E')`"%p:~<~;<`S.^Dd,%k#ϐ{8B8m//Qf ɕ-"M:$_&6 U;o̽p:?yc ٶueV5cZ4I֑+ H+9OPCT}(!RzX>MĽ@Ӿ[Gwzm=:@hAhB֝_HؿsQ Ɔr6.F<1] |ʜKzS=S^3\6훁Am)h~>"g3WMj35`l~y/vx(/']1#2[4g)2 1ۦI4@r%~I8x2R+hN! n϶Ef¤v:;V1HuzCL߆1_M44"èО>?:Rɉ-f<Ǡנ~i^34kim'bhiR6N գzܤ4L~22 M|aa22Vc1yb=o]?}]X XWWϧDFX10{kSytgǧt7KskYx=u[9z;=1>O8p僚1gd}0?k67Gq/;2de'10z=4ۧB0K?ǧraqmgL`XV 5uKpF"] _Gí1昳`ƺr~ +;*Sb悾"O%yFk&я/"o 1GE]:ŢXPx/dVV z5Ì,o͏3qB4L|1F룅8Z.?л@IYwꑹ0ǻ@9y} D0PGמּwe0XDW_zϪ#6n0NݿGXm>Ցs[ zɉv$4ڈ+W[ c ~'cT? b} -Ѩv{ kZnƊ~p.kzi)9kOb ʳ_s֌xIҚS47SҁUe-+BX+gqB! F9fNG96\oz<[s0t4x~s5WƢ{/ LU;;g#,ez%徯8+ =jjX~Lz(}GbIrD; ʭ98LFYl?z݆kiwh~_zB/N=/S61/k(UD-FaZ`Ἃxn$$`2i0N_1yLzG@;S}>(ƨ@7`p 1W =-ѿˎMrܫӿ4F=(_hj6Ɍ}G-ϱ])\8FFibosn+ к*@TOb}m0|&57ί'2+ -Bʻ9ƵBQQt"Cpo>ite Qf6?]> B3Pϐ=}T2:.p ?}N?}l)9~0O p0Ew9=d \MCAHկo~A^uN?[\u˗[=Y}'dRy2kMFUacwxlgA߆`<k)'h 2}J~v^mkxS1.Ϯf׷Rp8:)Lq&~,[PSOP%"1:d:Mf`W38AJx}F םqusTܲ)ԎN & LfyIᤣ)/uZ`I:b%nLNV^]4üim-q˛:i8=\7z7X*T쳦ƫ4B>̓Iv?ˎM'7lp7gLn#4J.wQ i˜~|ruaytU:9/ yY1Q> 'g,Ѝѣ4G^Н<#?N/-x&~;YYu=qlO)VxS*cC`-g3lANi h7k[mCW0ymڒtTTQ ZFЅ%a#<ͮ P@֏`p/BX 2FUe-|"0No s>W~+FuB/0+˳JpKV0vٻN.R#Ŧ8 c2;Y`T(ϭeNqx2븀ur"6ԭ>75 xE 2@Q b\=d#,i$Z:;EX:2p,Ca`~Q@9KOxP?WB8լ_<4:tGy;9:4{Tkd啲e X,2[3DŽQVeSMs2"ۖYWb֩6NET<tZI yۊk5eJ,s"O<`>*#ǜ!ʰFG+syfA*P{N+5=֚ތx?;rk=ǸIx q.tzXAMn][L'qx|=38v8AwNWyRBQmV}DG$V9<4!cf-:ںjGx~ٝ`lnHqz lo$>9m|z|ē*@aⰍ'9vVLӽCZQGaY4K? 0ܢT! l T@d6ޜ~rh*nTw:Fh 0@nYYc@Oݡʗ0-x'"dcu^.P=Hix_ɧudu5]FV;){3tГ""̰z9#yQ%pBcðV bЧCv·{ݎ$JKXԕu=hX[#^`}zJVh&u"{k2і3R9)@++gLn/cy>tJ7•6ٮwP\dڻׂo%{gG$a)Q2lNnN:Lpl<4lN?*+I;)xV3ZУwlSݦip#l\mަ$\][Dos[<#RώJxL~:Kۭfhׅ 'ީupخ?nz5mщCҸȳR5QnZ,_%ƽjդ6UvӬnɟ2uȖ{9II鏛Zv{Ǻp?_q^Wd`/ 6`hcpRNc$np6[Il}~A6Z"pelÉbpw=OKuGz5=\cHRiT=&(*]6=)Ufn;pW p?&_Z2׶fQZgxv\ %A[a3|?NjkC/7'}9|z8ϭa) l0@ kԣzY@8C`65 Po֧֫[; xLU5r4q J04ʵ-LP\jSh* {8"Ԗ藲s)RSCO: p\6gD 9S˵9l&gdGI?)G0 ޵o`̈́ 𺪰Bs RK.Ѕ5JO+ڵ]^~4_H9Fwqv>Ύ?O[_`q6~Snf#d0g=-q=ٿ{-AoeaAT!gtM>C7Tgn`x~ |EӶ3P?gkҿ |b5 M阿(^>Őd};>7gJfo Ozdi>j7j]ijuAeg-Z0?Ke)F.OY[]@Guk#.`I̗Q*bI^F?A0XѦ h4!y3lĠ`?!dp|3#8P~\,prg+> [CyyؒC2RphCYރA[Vi.nԞ66l~"\ƿ颞Ja o9iQKْ $ޝdy %PAԑ[(^Jf+(ϳ<ʪ9|_cl*,mJb4s0kJ}ګODz ,r*3u\4[6}S T-"fa'g{Z=SffYֶc[Xk~ԌKW+66[;Zѩ>d5=&=),--&#֬?vzW;zlE8SpW@p cſLNܤxپ6Τ8B#z7q)w'a3)HZDgF7%.pkwq.N u>XViJ:<+&nJ?and>+K,ani.  CMZ : 14/04/2000 06.55.12 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 22/04/97 ====  PROGRAM ANI  ** ****************** STATUS - alpha version 97-04 ***************** Ȃ A NI iMzvܽYsI&Ȣ#jǃa8Ĝf6i3x5!Mln,SY8|oE8Lh"Bc`؟͢ЩQ\}3FE (Y8sX@F踁u#{̋?l e\y+4?L0n@"#|g *~8Q\ _2[lc@E4ԦroJM|`&Xiԇ$H_#eÓ.<4:Y8>G ɖWh*vP._Lޙj@߆[1>W>85X8;|2?hy+גM×SHpg^M1hQS8?2l}jr1cu,W >~{;զ4׋CKk0L5&+MhjwikGnk[՞ |?uܮ5ivs(w# ԴoM([v=hk+I#b/hĄlVש#`.xZ$[m[,.~4"@buj27WK!qoc~ǐkͫ=@Χt3Y*;Ɩ=pLu :܂`䠲}8|@GdY^0jܶԸn,,j禕b1/-hm%JLFWfË`+̛[R 5B-)[ʚ| dZYyx(Ӄ_/)Z7 1z$XO!3@,6iv.O!twB+jEW>-gc\?3ú:4^b_N/,)6E*uZz^͆1 4wGq('+*gjv8̃ Kȏ@Xᅘ6]#ZlШXo*m^A…ZmhvͪBfW-Yji9`KHcAh}!c6|kmÛD6̩>z_'ǵ .*.BwuQmvA } %ܘΑo[iW{'3ON4OTȄEϪFs4 3-BB@ͶO{Cs?#nzIĜ6uadȂ{}ծmf2;{w{twpc@[v ^mT=aJK2 qz7h Er|A{}:h<^]P̏g6-"$pY""b] )?W~]RipQB+jN.\4wga `3G^Oεd\@vhq[ )J^Fpu"ßds䭲711e,=@6H|%1L`I PF"1sX}uM>z,hu?8.uҳ8kpѬ Aq6j'(ի1lt |L + ݥ- 3#u:NwǺ7HɓzxE~&6w}8*H` $fC FovqzZ\8_ʿ?XDIiV.* 8~ o*$eEM;Jc Δ;~~X3o;0w7*n'װCeՠ $k^݅t*ڕW[tk畲 [TYS32pT'ɁPFl3mhi,0j6[ U%0/0'uNs;s9uwsPwvॹG>ܗqꢤ.ʺ(\F-g}|yH;p-?ijG|PvewQvw(.}M~_ۨjgۨrA,p> H:s ~"13Nì)߇̼# Nф#)fӫ1YX"0̄\OՔ"5iL%^ ZYEB< iv{ONA g!,-?@)^ty 8OJBm3u @h#;mOSV{M4T8-:䬞Y*y/=U]LèӠ5ҫ^zI4+[ ԪҭzDO30qC;6z19<9lg+-b haq_k%m#v>wh+N]xܲW ]+U('߾wJi`rwOjtN=]!ԫ%YoP7Y˾.1}2ŶHՓ.j仃>"Xxm-C @W+U]:JïP=ħhg7@ZMʛŖ[ft~ >"*67Ӊ$@\ɰ#,U!Lfc|2_]];B4܌EbӢQ % t&g==ki4~zqB4Nly9f7F ftYT>|b ~}Nߛ寑#Lͥ'{o_-L_JM;F4fH  A54Dm%H/W >G2r-"~ur)g6+ff]=ۺ[sSQe^KQm|ڮUt'"jW2<)^ߖJQ63]=#SVsZ,腜 +-ճ2ϖ۬'J||,iؠA hEө>Juv V_4vOqŎ3 _/'lik;֩wУ~6|p:d5Ufns:* bWf$'k[*~ׇeگMƊEcÁ]ي Vۙ OkZT6)c"ԬH:Q.T>>V!NTGr9E;OLu4Or#RxqZ^X7s/Fqxj=YyVerF˸%#W߾p)I"݃pSF*xqP Op,(WMr&D4(-lRy%]peviՔ⛶~Mn, ֑govDzLy4XYV,.VNhN8gbm)^IwÙG[;Y?6٪=d A#w!O1.9GB]?i:Olcs8ւPyT:]ڋI.G$y=؛} W ۤ|K)D9“[K]Vd6fvn*hb3Fbn'W=J$qx}u:p:n;>2{)GmLcjSs\K9Suj{NmߩS{>.(f (㢐 >n`3(; fw=;>xx.uar37`1(lԏĊG˲a{M@U8l") ۫NN n/݁53^̝o(d9_Fc%Ww,sj1 P}G5%+ZVpr-/+ pY]\R@i2Bo#!ykss2s G-?#fsL]tyIˠ'%鶽_mHϔL2V`6x\&HtZm/А*74)9)El_ $F=a82;,}TNF:#.+I8|2y#Q'績g:?k"cmk&lj9NCZř^(r{m0[az^qd:zmԵu\`k5zڬ֙"Mw?dn;(hpUcGNu6hh\KNnz!"OФY0b^z68x6y%ȉӇvK "qF(KEl͔S?n) Ii)պH=e)ۚw$W!xPFSkl?.Ya=5VZkv#[Zn0K_hog ",u?Sku 8~WdqFMT&_2F9іηoUO-(֖u 4=4fgԴ;Ԯ(`,R_p˜BΆM?JS]|ӓ%\O&,9Da2*9ঔN o@E{hY@ќ)tKR{,߭rrKs}E ôBQ*[(c3jV5'Vp-A\BV:tZwh*KiE;`~;KK}V }-y]e=CK F?]X -UvZ l'(/76X;KŨfg_*+*=a:.A{eVc.V`# > t)x;s=72AE\^ NP;'9􎙼0o;ՇT ֜Բ|a{ŷvApDN{u" ̨8~펃/zYM'#'|lw8oځ>]-5Z}=>H_oNM"'3%#Xp+$,5D{xn"b 1Zكsɱj3v2EȈc}9X?s^kx}BQk|֑uaM0NsEqjGNvϫQW8_tllvj"F7m:pG}5x#u*uAk<ϭ ႉ'Vcp3*3ă\ ~ݗAYn-!tBwsI^nӞ 6}3#G;o C'_JwA}wzKhݚ1%AѢmMH`8D ^ &r|֌9"Q aZ<0c~XMT=p \^kn=P.=,q7 ?;-f'؀Kfj?2ѳR^La`?&GJ?@f >4fSME4$OcLܫ|hc^#qZ&tbڇQxtD9Wź>wFEw#W :8JZ{h,}Kt&iP2#uEj`LOZ/~\mڅUΑ--l'0jݮ R8Ia)-b9sO&w6ADBoV3^Mm:¥$Xgc5/[G懄\'io)X*J%z▃ m}Tަ\PF1=tR,:3CnP]'rzZWnڃQ[sJē[&tG9ihIpW픬~X3{jf-5$ɩC $QU*@mupq[D.PgTb[?VLme@{߭,Dnƾ)>) UD.ZR->qM[wvJ昍;JYvmK¿-xuC|h1ԢYbݠ<2OYeCByu\h7ufX*P.BOpu^G'Df\d˧i;"USm)GADIG'1;kx:XǵXe5…|!ϱ &aGO \{<9+'lb.g1'p•SSK-⚡w26s|V#ohU|64 KĐJOlIX]S?~O)[7}!(/գC"l>~R+:"9i[Q7Al2|Gמg "4f&)eL&Phճʟ(W܀+^g zhZx`Sx֬kUNLƼYWY Ͼ Keŋ:L76 q_e\{~sxܔw1q3Oz~ޒver.Fcm/z%R,Z_ia lȅ~5ov\Sv:ICxS↎r]ñ"&/ IƭcR>1)yMv_, K{H_鹚ks\CgɦQI_J[t1x;$lmZhuTCg'V9ٸ[qntT$h`[5V(w95/Lw /"qڢNN )g?\үl3K}㢟P3r_pMEN$9S>DL+ؐօ2FP~<`=R^+e0taܖxpКGԻ\ފǪ ='Fd.6 W_1{WָqTmɸuj2 -ζQGS,qxn9C7uXj1,Ä3Y;ࠧX#]~owҰ)N +8CO\d}Hm4],k㕜p_gCw$wh3_$&zh$b٦bYH.pK穎GBlq^:,[־oGȁVUD5|A2G–d}]i%:?˲5߽fCTʆFώH7,;HDo~^A̧Q{ ,ÖaH=;/'$(Y ^?2/I$`d$xm9m.DLϣZBؓ4I25:t-39#֕8GXSqj5I­:r$;uށIuD-]Uh}Tπ+`KhkȘIc۶Ast &׆-dMRh\+SӹTV&v]j@$QPc9Y{+/{H^¦%kt) ;3>9`y '=wr4L]mmW ɪ22Ly/*PϞ{㺬v&G ҡ'=1 NjbG,QJKWDuߋ[k+JoеĶD[߭%2zpb 1M˩H \rneKdejenBB+4rֲhK؆r6|`W\Թ 4mܢjrH<\g1v\CD{WCcAu2;Jy$= ^gâF ভύMTّ-W6o˙yT羾OWpvgr̫ȭpvz,2c7Ƥ odR髯Z(j?zVAˑyd>k-KyPbH\;T MYg'Ӭ>7 Zvȡa7v. '[WZtMɘ9l>o:wQDv+y,+L0)!Uf:$0ovuwby!a;c. `mdZYĤT-:|Np7E?Tu-1'L-_juJ>6_2v.ߤ"`k-{)LzV`_j=SS Kgpq>C6Ӷ7ay!i{2-cx' 2;̏}lLI{I%+ҤH7}bSٓō"}va0*lekcs|SZ]/ _e{ߎh]ye)M(~<\}Ks)5z%Y4~#[ge40!ɢkIk9/i8d'ZIHN:̦׵s~mGoM>C[|f;xǵM9^#&仝?g Wa恎Nk߯LNP8q<ıgܻ~J]ya\wWvđ㍙d %+ qDEA_c!-6ߐ<]DHHeJG;8-ؼ~Y+5Ug@T-:DZܜdDhInmyU9FpM(. rXokUG6oMʑ!0VQ9Л٠o*K1U2վjZPWMo&x?gOj9 1;훢e1'+`=+ +7+tyn~fq9 '!;'o_#yu>B'5|prOK/)HxސPS@}A^1W8Do|qt^ڵ7ِ% q~ [g\糘&La4lt ~kIY+y+z\q5JpNqX)0b+?^<w|m%q*[="[4)!L{ o~eDƥ琢)1h.oV—$my=_(kvs{ }Q0DE %6$]6BtKKw%Ul7Եa|A$.yvGX{IBFƷSX3v@?ęL˃ b'}0]}i#V}qν8/"!+'Fl\~Йy2N.3 rٗv\7@fmڊ܉I,3mhiVe Fk؟y}uO%akb:a=yYWo{bM]y [³gE \|68Q^?{\`_[.H |TinK-F9iUY5eXC6GZō?}`Z/޳F`lr"n.~'Uqan}ʓ!~''eH ȊiHϴӉH:9 ֫˹%k)9br+0KH}:]/x-GnHZ'2abK>h 5e4yz ,o,#}u,ȍ?d'WATeawzǁ1tN^.:C }P&$Mԟj{QGp]9{ b-q/+\4wV{(\`_']; ۦ\L-# d~X^b"L7zOeF@:!GxzegНf`6 ga8ŠLݪ:l5j'O|;';^Pi69 !g=m":-qU24qd7;W$לh;AwsheE @W_} gΪ]%W$)?&fxQ)B%bQ4 u𝔷ů^(l~ic`wVCB*lvGHpqB1m>gԊ2QgJnQF^uȠV5wߵM79]A\Wn bMM X٬p~\9/Z=g/e 8tE#~v?9@̛ʁǐF*kʊW/\X-4OBR>/+]/&ι3+>;FqehKAA| >NT&}Ju-ogWy+r5GgQl$J aJ')I<_-ߍ/ߋȞ9GZm{_髡w' Z ;Ɏ9޼NG9gle9ȃL 2vlf^ 8}7 e:pR0\yX?~%b}) kF~5v}EZD+Iфhr!F z4ƙ~f%PHxh#2J/u=L]{5o2"9bY*Ϯ#mܹ+pNǸ2r'^e|C?q 頚} g_eg?|GO +3/UKm/C]-/_=GlmOj@,ߺDXf0J_[1Tzv.[Jqkkmv*;ƺ͉6x"\@" gi#򡤰/J7jM^$B7M3%fvWRhy@)fo//@^qg&s䬱7."*[-'al‘"Zd@biؔyKzzlߊ=}75sn$Q#>ay !Nh[|{@tR͗d{'uWYL Ne;:]CP.[ ,*_*dwZKw eEnlo_lGnլwhOxm#SIW*Lq+‹#60*W]Ї'kIKHL :]/h_49dԕwӢ(J ?\k7\?"os}fsSͤUbEcQQ6F+X2v:`vy!vOo FT̡/ 5c 9z= ,biQѱMqy4uƴo'Gs$J<hG=$ s[Uq/Wˣdls"ߘ .O6Uu& ޏ|EZ@052Ǥ}`1K^k3dtF 跢iJ4F#-8AyK3dzBU(k,o3@} _N<;.0_ɴ}n>۟yߚTAmx5_哼62o `9RDr#[nt$› ?auЬ~̀A5@+ ?+ŗ*`y/F$qoda#ybWeN-3]CT@]d~Q^ZHՁ.,ܔ0ܷqr嵃DMD?`8oPܲm,-%X.Uŧ ٕWv|YUGqwx=/ = k<ڱOPێrKj9|ӰQAS5ǂ~Adl0|Ng{{}2Ŋ~kAYT Zw s?*V`3g}I<)aPݝbev;alr x#4vAd:`} {>{1D ½7o*;O*;1LyǼVKxowGԃ ׯ>Hz0olo9q+›o!~-> ]hB-WćOT ƧLT_LFVLXxNn`&0a㫐 rt6`k|Xs Ta4g+?MO w!Q(C3IjL./y_6בV9y7Th \~ZZX.0אFFhh8H\P J~fx)|‘C k-RaXz۴K#MbC{X A yMP8"i]~on9ԕq#, t\'V=+ ̈́/̸P*Ȝ+9ҳo\ Bd^]O!&{1<%_"tEm.lѨ۬7V*WVStYaOd.s k'j -0?Crl鏤yM%nԙXɵ2 Zgpni95[#Qoqaa2~6[3y>ӽ]WH;_HD*/2ؐ#!HeA|9/qƲѷLKܖDjz朊G6>&`vt~ז<7px2Bqlrw5^|1"Z猹E{g}S`oAUꏜ_Ԕ/:$1&!0p..!s1NA~|4A޷uu\i$%Y8p n4$вFuddH<ٔd˙fZx&N/߷xq촓LN]vUGpg} j)7.,m<71*)}bwhF+z:nX/\ ;- 7'n̙23`aLa#Jo5zv6O˾uxl "vr>0oo '̎!]۾N=Ї=iǟƼ?cGۂMƆ/NX'hhuOQ)},chA;QF!J|#l gEb,OuN0}O7qdzT<Ѩl=_,>KDb=b(k5mWa;Hl t5e֍C䐁e#'j6ֺLة{:{\ &v\bidP "F;r<噃Ev-u̖ͥ;Dd^ߍBfk Jx  ~oٌc[dmS9Op9N(ςEV?W_E>E>7.4+I*m;U!Nzѐg>|wP5s3jB{n>ʧUi읙+{GG{aI>4}/97{H/aI>?éH__dKb]vLO+sBc[~2.u=y*{~?u7!==--ܝ<ܬhv~FQsx(>y}ǟ;*cBLJjD׃N~xjN}ةK<@5.L:u? {ZYg[My-Z=ve-X}FsM4B YJ_ӰRϔF4iL8FbB]7}Cgbxp'V?_]g-mtm?>+J?}gEc\dB$k9"v|T7b,إ+øCmŴ7+'Ѥ{9 Oh6PWZIؖM5#L.e6cz~˶CoL>ލz/7߁H.(ȌDHob/~!b6 p j iUO54/f6zZK_8<-%2|(7r6ĜUЭ<wFg10If*kw`n.^m$_vdIfn,E+}a ^9PGp]~-:1/li_h!Q + yցt> /z?9nxoMU4^H.wL#k^KD,Z%R9 nŝN'^ߪXwrΐQV^ʠ݇R7>!\DlWrE:KwgwCݞxIwLWwDԄa AO%31Zʓy\zo} ,jܺeÓ#Őu `z# 4S(WkJ}?%coLw ksQH~J7^X_MM/ur/]KR(sүc6b:)񹋴'qҍ*M5}Яz[z+8įj/!/}G&7'L{B#|[HK|7n|of:o,}{,ĽK,!=º2b!?O>ߍE~ƖYRSJ* ]8_掟X3 q{<9w 2etKx@ z`#"nnٔ[_/uU.m7-Dkeۗ/mH|g*w:ppL mڬՠ'hkzT֤h;:wDƴ/_>9=8@DbqKk6*cN0Y LNV'L~ƔRK @Y)%1dTYȈْCq_䰱Hm8U;zv0;#3VZ16 _-2Gt2)o;y::|05$[eO ֦/-p@-?%qcÛ .|ԚhO/bއHC{mf +G[u\pP&&ܦ -ND;6lrHWz!Fʦ^"{H07yɷ fD8qƄK,@F3 $,epvK7V`>g(FVd¿ !'mIr9d0@փR:8os;Ķ z]ږA߆.&߃t8Wok|;N9g)-WѰ9WxW+eqż-U99r"4uEIȹRCoQi;' ۨ ]:Oc=tn?o5еi}8.Je}&e' M33$Px{AxCڽAPm_Vx*sVa!k 6G,Mm)Qȇk.TY}TJOyZ%znO7+?cE&4GJ =k[Z5LTfa%#(#lV{3|S$i}=; ryyuau;rkv?#ZeZI9rݠ! }hKe1͘ǑM߷]+%' dktRf6.8ϥ˱hg燬<_2Amofrfx r]wn꽡^=-~ҶeXmzn!M=/ Y mdssld~W`ZPeҏTiøa|u% E ¸*< 工?I+mtg׷Ü(n6W6v^C2enzt0vAq޼‘u@3jC";4|7([Q< AYMYqcz^ #1ƵO,ՀBb$CCZGeT>[ȴMm * dƓ~GAn=f֐%9[  N>QFLNxYt vf3M7_%31Dq|_W|A]\" u^I;V@%H IAj#Rs 0,gFsF'ZrMz5aKh9wR[& :tZw~!bREy2ȷ&ٸ[-v-֩D#,w $X&FJ,7i*C(2L|woQ>ֶ߽F4Tzn,S^1r'h^TjD+噃+e,QHJe =+sn.9O\Oq{UpsڴoGh\bVϣT 6P\j4͸؃-s^hx(࿜Nw~ȸn`Ȁ .lCJFv$yȕ'HEZq22$:2=۲ v:jSzZ[Ƅr"Qbf1}Ɯ|!S4҈ ~C{Bzl[ ?H&'jrY>^~vyR*LL4`&I<;1|_qd23y6r&<y UB~De縗`2o=Ӄ}e]ݍ%?OLO9аqc8yE3&E 0,+xX:k~zp8k.ׅO q/#Vߘsa{0[c]9цXxT)\P1KsA_yp?<#5G^#ȋщ.bF,(2+HJ=aF 8b&dc~@MYD-{]~w,@qP\]~> PS"A (wV߻HZLkH/kdg|7~_#69c-zDqonmĕKGԂGOW @1 I>hT5a-i7CRcI?8_W_Ƶ45_'}ލYޯ9ka$i[@`Nߩi@OEJ*Dz!3ڸnpDho7=g9 : n ]F҆.zoumjE}ŽgmNZ):&-NJgB؋J@;F!P:5wJ*h0-0NRpETh7cokFoo4< &#)JAy_cTs vq0~s+`ЖKǿeǦpx|bU_ڃjs`{o5d^_خD~wo\ڏg##ߴO\1_79wTh]gp '6q>xؚy!H{?(:K87^J@~V4V‹(3.Otəv(gHN>`Y* B8mu>Hu͔~Jk~AJ?Tczi8~zqѦ! ]ay_Wr[ /:pCLU|wr ,27XCY/~`,c.^bOd tr]fgf=tDCtG)}GSZtVԨ]n9V&p\o=\5wyS,8#W="GĞ.-['/s >oo}HKMۣ4ܿ6lj#abW1'@ytu//̂,#?)۞}䒾d?v kqN,ǹK<(:) IXތp=b0RΚsGVix6zQn5zvè]KX2)h7jRԘ|mi @>,muڤ" ;9OU u^hCA>/mh!~/X cH6wޕq68A81㣎L-:K >w~"2Go wO&#?̰1A;[no{S{0g gqR4I>%?}l~[g@3O[[Sq_cAPcOu?ޭ CRM'?sʒdB2^uJNFϦP3 %܂>ShNú9~tnjG'zti|Opє:-$B1f7Zrmm}.oa4uJ8Mc?s4i`.˛]|^Λf,rsFoY Uer AB$9 hɷkͅuls$Eyp aZg1R>nLf?M_6g6eo)^9yş&ODeYϒÃ0g"ߞ1<90Lp;0rNފLP*_*9gqL8d>wOe휾kK M2v ;`neG˦6Vd3M&ˑfM%;ߎeN?J>9: 0<*XqaIuc{]m\O֓3qFQc# eNvwmeח<f9\qsS3Ȑfآt?J +oKFEdNPFß Dc݄4£P*lE!b4484TmO2yc ,qh7EQL`3pv vcuI2=w1&5sd>~ߔԉ^wؐ^}76QNEj]s.t}Xs9{Gr|J\[%TFʧ'85>>~l ?* qt= jc#Xiwvܐ1kxmq{# > r}I@LW0qƓ;+!\-׬iCԥXnQl*ڌ6@ ZN\q{ow?9v4m7;NQ9J]H!oؔ~$&;,q@rm=* Ro \'Bo OvOGn<Ҕ\ $2ۜ"YǩAR:W,5DݒZ7^wC&L%:[8Nnlm0A5a'2Jxy1>:[J6hX =I# =7Ե>EFWQC=RJSXʊųEόcLfC+Pl ,-qG{Rqrrvn7F!j7&Kae7|7[ tA\A^,"uU_WU|%FBj-KYqq24-5 .]9-X+y1݆pe;l=zoy'7Pƣu8Lsg]FWק%:JŁ﹎26[G|?vQAr r7Ȭ, 1P<N:/^X^4b<ӺVКVs .#န:xׂtPrKI^zEfX Žw|zzWr59;ݭOziܽ&yav N؎Dr*Ӑ{˧.2K%SF+6}RFF}K֊(xǢΜ{5U#ѻyCr/[d\QsYyzOZoVmVE8\W1aX] [1S!KO;[qx n[[Տ``}JpqQJ4,-ۿ/>=%+4:g@U vt5[h˙H u[ ]Õ3&q䱂<~:Trl׻n(. 2\k򒽳#MWAW6'7'uQD86_FI6eƤY<k-;6n4Y|Dn6oS.zЭy"ƒc]gG%=r0D6\ oqQݬof @!W(Z7ӭtz<W9vme踄`hxW fځGkx(.5)tukφ=vdjY&14طhH?Oz>CDq%t+Y^cҴH>B E짊#w<یk 98Mw6- G!aJ.L"l4EL3%FuJb́g۱x=?g^fu;CA Tr[77l3/mmdT!]snM7'?߸pL99}vpJRPt>>'⽹xo/>=h_~mlz.a8:vs˶8-p09[=n)<ߧ0 KʹL))d'8T3Oڜ)ڜojrv6~3a ˤp#Z7fx]UX)ߥA} ct'Fڮ]ArRx/?_/Wzn8 i _gGק/e0ก@es?7@[2PѳcԸw=|lӃ}YHd样 *k3N37e{Ύ0 P?BW"QKiJسDhNz_>U&@t_M tx/t'g 2ɾNNOg %{קZW45[ak4p`-K#G^',ݭ.T5ˑQR$(ma R$/# hSwƐ<n 6mbпf0i2Fi_}m >F{֙mu(^Aw.c|893Έ<݌_kl!zU}U!,j- 47jOju6 ?.HTnGLtQOf%XVЉClU\^2<ÅxU -/%KRXhve/ͱzynfq6_sd1K9TY>LUx"9:.-P۾hrt=AX)Pwkx-}?j^JnzT@cGe2G[kxǖJgkk==")N] U8QQ1cD' nl]gR!=C0b,o"6^IyM)t1n,/{#"),gǙ]E`4ceGn)Gq/?z5n}hFsHpj~˻sfﰙ$dj {8'\JwWx +K%OH@[{|jmo>+K,ani.  CMZ : 15/04/2000 09.18.09 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 22/04/97 ====  PROGRAM ANI  ** ****************** STATUS - alpha version 97-04 ***************** Ȃ A NI iMzvܽYsI&Ȣ#jǃa8Ĝf6i3x5!Mln,SY8|oE8Lh"Bc`؟͢ЩQ\}3FE (Y8sX@F踁u#{̋?l e\y+4?L0n@"#|g *~8Q\ _2[lc@E4ԦroJM|`&Xiԇ$H_#eÓ.<4:Y8>G ɖWh*vP._Lޙj@߆[1>W>85X8;|2?hy+גM×SHpg^M1hQS8?2l}jr1cu,W >~{;զ4׋CKk0L5&+MhjwikGnk[՞ |?uܮ5ivs(w# ԴoM([v=hk+I#b/hĄlVש#`.xZ$[m[,.~4"@buj27WK!qoc~ǐkͫ=@Χt3Y*;Ɩ=pLu :܂`䠲}8|@GdY^0jܶԸn,,j禕b1/-hm%JLFWfË`+̛[R 5B-)[ʚ| dZYyx(Ӄ_/)Z7 1z$XO!3@,6iv.O!twB+jEW>-gc\?3ú:4^b_N/,)6E*uZz^͆1 4wGq('+*gjv8̃ Kȏ@Xᅘ6]#ZlШXo*m^A…ZmhvͪBfW-Yji9`KHcAh}!c6|kmÛD6̩>z_'ǵ .*.BwuQmvA } %ܘΑo[iW{'3ON4OTȄEϪFs4 3-BB@ͶO{Cs?#nzIĜ6uadȂ{}ծmf2;{w{twpc@[v ^mT=aJK2 qz7h Er|A{}:h<^]P̏g6-"$pY""b] )?W~]RipQB+jN.\4wga `3G^Oεd\@vhq[ )J^Fpu"ßds䭲711e,=@6H|%1L`I PF"1sX}uM>z,hu?8.uҳ8kpѬ Aq6j'(ի1lt |L + ݥ- 3#u:NwǺ7HɓzxE~&6w}8*H` $fC FovqzZ\8_ʿ?XDIiV.* 8~ o*$eEM;Jc Δ;~~X3o;0w7*n'װCeՠ $k^݅t*ڕW[tk畲 [TYS32pT'ɁPFl3mhi,0j6[ U%0/0'uNs;s9uwsPwvॹG>ܗqꢤ.ʺ(\F-g}|yH;p-?ijG|PvewQvw(.}M~_ۨjgۨrA,p> H:s ~"13Nì)߇̼# Nф#)fӫ1YX"0̄\OՔ"5iL%^ ZYEB< iv{ONA g!,-?@)^ty 8OJBm3u @h#;mOSV{M4T8-:䬞Y*y/=U]LèӠ5ҫ^zI4+[ ԪҭzDO30qC;6z19<9lg+-b haq_k%m#v>wh+N]xܲW ]+U('߾wJi`rwOjtN=]!ԫ%YoP7Y˾.1}2ŶHՓ.j仃>"Xxm-C @W+U]:JïP=ħhg7@ZMʛŖ[ft~ >"*67Ӊ$@\ɰ#,U!Lfc|2_]];B4܌EbӢQ % t&g==ki4~zqB4Nly9f7F ftYT>|b ~}Nߛ寑#Lͥ'{o_-L_JM;F4fH  A54Dm%HCi]`E\#-lavk ݮːK8Y]N77jIֽ"Zﵤ ƧZUN|"v%Ssmvf()u7lffqi 4E/_͵v|⼜ ' 4C2|5ʱ\X,˼':bTm+pQY< hq?EPi3ss;2k5Wݿ^`0rR=+l.jP:zrz_x6 JTVT;dY`;}`EcwZ80w>#'#>>ae[iVH1dQG3JчnoN/^ z:z1qKG.+ }k-B-S^E8|U|⒡@|XyQ."L1^!iPZڥ;KMi*4v :GM)=7m1*RYA^s5#ګߖ 9[KI8++ޢ܊ť GL͡2+n8Shu=!p' ['U R>}.)1p#['M!m,{ZB}=8U W{#?9hD=ﰰW{O ao)h4Uxrk鹋܊ xf MS%Q|HĽ]I w9$ڡ8NG_MqLJ#\w<迍wL=pju3VvjNmϩ;5@>pj#EŬ/CAe\r_Ǎ}\v}g];C|9|\|{<|Wn>,v Bsf3 ёXhY6l H ?Bb2A?v{Ii:=E;0fӋ; eL;hꓹcNQ |;w ~Q޵ϼߜH時>vE nQ!XpE!4 uK HO MF7q1ShMWy01omnQCf5gČ`yм./i0ݶW 0㙒֑Ilƛ?iNR%&08"'t6xhmZkdH\=7 WfaBge% <_O&od6חLqVYdl߲Mq̈́M6xc;u~iHKݝ8 _nof?L/ށ+,}BG=͡ӝҶ6. IݘgFSO :Sɞr |eTS#`ȩΦ a6ki9=MO}#Dd 4 U,t7=KO&90Zx{0=};<ݎ`)A0R$He-#r GڭgrKV,eAaqFΒρ4\h5%)`Œ6r,gEϿ.{FemϔY/ƽrKեO`VvQgcr7uq0csKU D2&#)*AʚJG6+y yGJըB^R~r5Y: ̇V<e3&kgqһPepeP0O%hOJ~ l5?ħ.E3oggBf h zw{^a_;|$01 ybZ/l}bo 6vҎ=7 ϹN=ǯqRCo>$s/GM;k|@"eSFO8`)kS-)2]dd+Rpeđh5MD v28F+{yN;<9v8BpNvo2?#gNkqO\(:.[ r}ci:Nnyu?gnm1ͮWԞ8\VV#o򹂵C:ޱ.h02\0֪Wv s2QuxP"ѯ2H\4߭!9L?C]|x}"5G}@֫y֭*҅%B潁|asŌ$`pɬB-s4G zV~S) ,'HL¹^q@uׇl곶d a̙{/0ukd7ߢTˤ×N@Xp`3 / 0X57BV@{|z*B]g>PiWk巷on>mZf<Y)SCouXq| Mp 9ҞF ]۵A*' >?_,GcF2@Mjƫ)8\MBA3L`lTY}q"-%KEIROrXX]a8/۔ ߨ7gNJeSgfqHוʵ+^.^O@\-C{0jK}.X)Vxr ҄2'W9)ʽ/kfS}UMvL%$9ՠuw$Cn?nȅʕTlGjI hY"rﻵWt-V7اӣ YZ^Wn +3_/JcsՃ+[%{^s0R-@GK*e?IyKSNqqV)NxY>P^rhB-&ZT~@9+@s8'@F:)4\,wHrV(oͳwNڌKPE tK~>$ߌ u4mCwW7 Hh=i$Ƹ}gOTk̡F/9v$akr3g儭P,f>Ywjsj E\3TNf/ }SVr цa AR\KuJҘf͓VY]|Hmm>%T=zw4V"DdT[lg``\Q 8oUZsȑ z [X'=pX*`+}7-7±q>RW0A6hPpy>6cC؁K 9&sp^9 xTbX/MW"锡`TYgpHq:@I=”C끅sm|Nl莄mFkDOT :4P, ~)<1HՂ-Kce}}RM9jƙ/9[&wXؒk5tPgYFz*[ّ eOwԋ64je2"lg`{%b"G_b6e=L/-"%)y4C[K{r&q"PFFc@eF"GzuԺ>rj;Nt IUU1Bā9~ö`rwN;0)hW+mu/vI;y 3i !uۖ0HC4p20vI ܃kr{:הj*CĮK H$ j,6Kxo4`ϴ)Kش|z [~cV',U䟝Z\3T}*>YUPї)/ԳEes`\54wD:ĢǷ5FxW94Jiɽ򪒨{ѹX`vkmweU> ضh?V&XUcZNl!&i9ITl)L-;[Ph^QN_2Zm\nن0 :<[usZ_Nɘ30ڎkx\t |>~;HNf^)+ qX|Zܴۨѹ*;rm93:*ΎLy_0N^f,Øt͑X0}W ASm2>v[*0s9R} ,g#~e;8bJ, ^|gwZA) 4d3A9u8;l2%AdJ)3_. Ȏ}pX>e \3ew?$LǓQBBڠmcёNN,O<$u'2c%AuW\0v~\B:B4Eo8i8Nyf<#%$KN)gKX{ֱe5eI QMYg zѸdɓ".p]guY&l9/$mO9\fe0SxTF6PctMq)vo@7dE/B br*{QϮ6w&_-u{=yl.oJ+brlq84a:e 5B!e2cPЯoiN2F7ׂOpsl̛F6egZ.~}ζN9+y39g~PTLwǁ.Jc~uaqVٚ΋0P↵P_`p -1.1BL)T({'erO3keJ'0ܝ5k=>Va,Lp |!lS6yb|dVe_Q(\o*+9\qnrarXD5dMftУYvh`o;~%oJ쯄zB``D/pqɾ2#Q}~0} x N-1LʦaRO-<[1|i21)P@o!/Kfቾi||J=ʦʁ/I`ʦk1p˯GlSx Ze[ (2`FhwB BW^Β%n+"܀릲{mY'%sg8V{DHBx{a:@O Ylbf'бUc, ;"臯 U^k o(rm f;Bkc:.3J1wLF)?rqn8W0U8PAg- -j2q3cҨ.Iś%A\kqڟi\98 }|0*'bӢz0 AtB2JW_JP6|I"|Z;9f٣}ST9Fd%RU=,B2}E!Uz&w.MRooyvڌ9Nk1o>Q;NtF Nթs"8eFtG‹R$@e<~ 8W{+3]!%|~/ ȸ=U1#9&Mu5c تS]-Og ecn/}q?ᖽ/ HH&6kFRn}I$jͲX<݁?54Cގu k/IBȟ(uvkfPØ8iyۢA섵/m~rrj/~5ιEd6dĈ͙ Q2[/:3/rW eQ..} ѼZ[;~;I%q?ͪ!Ub-C4Op頵2lML6^'g26/k-po_,p+> Ϟ}sZxh_UA> g Kci/`*mWň2'mS2*V bHAKSk{x>_-UNZcoX*.-Ay!T;=vLSY2 iv:7rvZ'z5_v9W@"ӷdM"%GZpf[ H ;bi\+d]/Ll)\gB毌&/@xAm5C_p$7l3cNc80&"kÅZz(1WcĞt=ɖq@C`/HN:G|OA3eqJbe 0=KtGxa4xēᔛa/qKwwYTDɘBH'O^L6 fWvA,^X[t[V$iwGds +8&!3䬷GMD%J&&f$3o~}'8}nnl9"\qꫯYd9#g /*Y\,5U!}T^|c mY/]Qy ,W֣يbH^h[eȐV =U(F?ZQb_<*qRCL-҈r ۻ:Xu*qNַ)4`Fcu=_\[R?+#Ͷ At]Yl11PK7#0R笶7!!hdϮ5ߐ]'۠1yS90Ҩ]vMY%Wb +)\Ca9wfrregߨ<.L-si<(agW"׉ʤOi7jT8/pEL7☚Zb!L~6_$xV"6 <'{3'pp Hm>}5n^⤘[ka'41WZ!猍,'4_yqA?u̫}AǼf6^#\N |+oY/[ot=E^u>_x͈7ӯ1ƮHKb%2}2 CM4HA/8Ϭ iyDW饮GiⵋvM:-蘥_?tћeM;j'1W\oEsѥ ?nЭ[_JulG"jޕEi8q9u5uk`t67u˽]a)ͩk>|pֿ q?Ū۴>qqf<90Ei!XNRj[ fpHxD GA8-"Kr eS2GMLOGadKuA= IqDinu~'/^]"_:'ޯe.&Yo['TP)@#Da~;q:˺@; UjOWmP"i݋^sfidN\J-(Ŭ1:E>d5v"FEDQekty߽$LM8Qtt)83rUIM}d*X0*S).²{Exq$VF* ~D-)y W&g2΃bZ_IA k[B]ubzr ^h,J5Hz"sKNǞ52{:܂ zB[!ˆ9俦s#a>'^g6aeV A0-1:i6.>Θ"wwVIgoDcavn=nxyM[rWE4Fy@^r$soXtP昴l :xkmC~V5MBh$'w#}9pvW/[Ⱦe9yfoa;}߉g%+V_oqcs@/#[Sґ*( /|FW|;,_2Y*ᬂx5)!Ax.?:_>}>*#W~hr]"I%:RQQ*#fJko]Q4 pH]  aTB_ɏ9 /v^B8RaaR* B/svqIrIcyA#! '7PT5T$:=2nښw^aݑT*=Ux]'xEJvq}#se>Vz +9AhߵLԫRu)Ąy_8&Q3B4KVTձ܅^ҟ-0<rJź*w.ts>5|.0xtsTgQ@-4Ͼձ鐼m:+0Q1\YL_nwSum<76f~q$ CY#M>z|2., ]f/&xKR~t~Fփ~5r it^%6@!p2Dql6/8@[">XVb1V)c)ےHM^ThcPwM>,5M1>,oz46|vpR Z5F8ACJc}@ zwo 6OLPk6gcH=Å.cQ|wIwOͼI$#3åRgFebYr$C]ìi#< iGbK@ۨ)n|X" -hcl.!$rn -6[OXJd<_f+=:3+-=-NA9{ɹ|E|~ +WLNEr.O"[xn@dzj^^sqqcv;Ui%? K |eiif8GXk(6ާO +C!{g?=>TtQ $GjdPR#tUXp}N]B1L )Mua"\QѭU5:c:ok+~`mڷ7k¥fR-T7Ie F1Kz:6xdzv>;鶊:۾nm]mYQJk=+"'Y˩㣢!ec.]ƕth+1_)lm=&X~B>@G!0pƆz߼JǶlleri,[л@}[b}deZn8{)D"pAAf$B|{ G6OcPUKxMCuկڿ|ɠy1ԛr%]*i)AhGa %n~ż3b>qIz0S_c/s;tj 'Qt*WSu$K2se/j]lB-!6?Vkщ|a{MB=AbXT^^ȳ qP|~I|Գpvɑw{/hRF w#8gF0]_:''`gu*-ѐq+t:V]Ċ0s|R> 'Re8,9]½c=۠KcZbT&&ExWKM( z-1 Iu~/FѶ S?c9P˝rQ_^}0Vu`SD$Z>9X@: Kr 2La<> ";"h|bMg'D"4EfPd0OBp-$!8,d;1_}S(JTh"CC tN4 XGz#qQ˜ƙ['$̽Oݏ+5_LK!c^{#:L,LPu]8# prDZ;B2%?Vmss&0̧OQg2"3h\ym aߝ݄KoZtMye$kr5EaKpRJI'w?WiX6KMq#lb4?,:3-t.c }g `4 8Yi#q@.(HDƻZIXqz݌9ۭxq5w,yf&p|Py;\iȓLً  -Bf3cFq(Z;WC}>Խ-{gKXxBoW QJEnn|ƿi>_kRGў{~Sձ6HQ=Ϗ]=`^ƐnL}Ti~2ֳ]!~Uۿ| y9`;2o =!pgbĠBJN^ ls0}ǮpUŕ4?E6˜My#f9c! ^b ؕ|YKOSir@5 mK%k'BFxR'Ƞi6.kMBs0QtLi|n,Bs݄0/͒RP1`@x 2w,Ys?[^/C_2l'fqs˦|rlxҬ+ri!h!z_/kOf޾Yg'O`-zK3K \<'a>2֬aM\BE4ٺ]O:Xج4L&'LJ5R@vqӲRԤCeֶv 񐱻 m6ִ\:g%'*X{i|m@擴<[o-Tq׽ӁSc:o]hf 8A[ӣM&uoG-ީ]Թ'bL5}2$_]^UsŅR`r:Yǐ`<3ZeJ)$ç2EM,HTEF͖$E:l ѳ!׊Q2mޕq?2={9N|ɛp|ჩ%ْ-{O6xqoj1,8vޤo%w&`D{}Y/>Drk3YɅo?ڪ㪀sLB756G(oplawvB'1gϵO6C*:} %6b]U6CdюA?cOehx7%‰7&\biu2̨5&a)v[>=C1B'e9-,m L-!0QUW~㞣d!`h[ֶtH<%m6|Ov1yÙ~0.X3tPqQ5 >Mјݜm.q}ؼ»Z-ot|-m ԧu[+*%M"G58z_:N91oF]N1}zysӧ |نM[|qQ*˭}7!u7-=agh:81'ф 3rol{M~JXpSqǞW qd^c92`nmmKڝE>\s(Ҕ%TbH\'ڵmF{̹@[l NRx ,t|1/ TXme\S:P|ʓeF*ѓu{YA(.21h-[G!2ݐ67Ť Զw8&r`W8Y#|uAV!w1dJ77j[o'j& ߙS{M2;؛5z⸖=d?40Wbe?6`9˺5Ln /*~ ΃e8¨e|ֵm5Ԑҁǵ.Oߌ Xw*Ey5@+wSDq| tl 5]X<VXM}} ?EpJ`9;o+ƺp料`^ۧw2еA-pny.]E?;?ddݮk6.F6co5skV ݆r1h{--Òms iB%9~i 'ͪmh&x`c$7 u@øӂ.U~2MvU @$m,ѼP /jPH/-NZImP;8}>dGƞuqN N)ss;O䵃uc"PwޡkFIݺ Y h2lGo}/mõb81}bd&1:Һ8*7O %iBmvhK0|WQ&38>t4-qAB_ ddp2drZ̸sȚ[{4Km:(H1&zoKؾ*_ ZQ 'J9p,*ANp46oRِS'!g96"֘Cd0$>8QNoGT lʅԋd [B{Ruq_%Ep!b]J^$<|!p "׵vҞVg bL`vb^4۶̪fMF0:9T9p%GJ}z<%D*S˧ShrQϹG']=2QH סӺ ipr.ʓA5P%h'Fk煴NՕ$aSU@ 1@26RVb,`HsU)BaZ~{{gR5zIңwc .Y;TDS R#Z.\(cDRV/Op]Fpׇ9_ssI1}z۫zզ};0 >"EzXqVmƽm/:@C夵v+sDuv ]<Cq!f۔W2# C>OF*r&)$dٖLNwQJ4&NO6w0 靿0FdcWG 69QB/˕RyffY|=5Q-MىzT&S/_F!H4XmLj摊u+ubc;+[c]] &'ڍ{tk#\m]2'<58zb0QX6N/4G5 kI+Nj0 Vd>^Tک5tVJT9Eiq \F.G}\0z{C8}n0LQb 2qDƶ3\1~3\F^:-;>6sOTu{$3rD=@_Ǜ8ȫ, 6G* OFщ ]ɿRB^w%hGty+Mδs@?CZtRi i+9EkSZ# ŖB?+K~usԓ-Џs6  "Uzy~9{XgE⻛ЏOIe]NP r?~9tovcs~z#]WC'{[48˵t4#*;J~;ǞҊxgF==rѵ3-᪑߼+gQzAL="Lvln=yiV FZoaT ˽9㠫{0~y>7`d_}Iy#ͤ>@';c^#pf>^@)IqfH7fync͕2Ǵv4?Jc{ыhuC7S]GF_² MAP<kmKYn`vh{p&qya}rR#E?B 6|mC |iJ@C˗𮌃ot2)ut`jnqթ._Zxld'˗l9zKM{j5W9`:u}ޛ.&߃t8W8I*)c{Oغ<<yb\ߚJ[\(~2Uǭn^BMm V?@=VtT~'RSt26])Es(\wZSs˦P;:&'<O3?0}%i}&yy4s2e;mk[{wy Sǩ/oHsY4*v4cS3zϚf*x mPO62&AWN@;O4/_k.49XԘ<[|nN\;4O8_\?34v<6!/rv1)o/-7xu9e {;k1#u%9a  nfYrIʮp8!̟6gb8W%T3O׾/_Pt._G@ǧxҏTHIa‹B>P^FƝ*Q,VfFx91뚳:F hLbj6#g;\A:fr hgS#-3 f7c$k+},kX ]ݸ nK68؏3{eD}H&`jz$C7OG8Yx-CwS8;m/,7}+ FtT78W*_XY]{o] 7,'s: 4<\ &$ ׷Ra- VGL?uNܯpؗL}~~6 iZCۥ82bېH%R{<1D*윌rdD3ZMu %ˬn?kٵyy.ƿ4mgky0')#_t,>vhUtκg}dU+JD@zm5:r+q;ֆUA(]SF> =[qՖ66:쫃:}?Op Ѕ==ՌVrmq4[!]}RɁ^ZKepf>SOHu:fk7i0 |eaR(eblR"MNw>hw1~$B֙G,!,_@or.6\qB$8d {46ɶ`k52ߌ||,[~Ov.'I-ouf )hE ՘|ܬgZ홴L )3L,gܢZ3]kla+O q1o# ,,ptӋ?'GqT42'DCKZ?KOh½R~a%\.WuSC_[ p{W8ebXl3vb\4 ;Z,*-Y*WÜ dZW;HHc4gYS<~9 ʬQSˉP bPԔ^2FM@R*\qKXڎhIS?}`-rS/± yu>P;0E ,?yj @P _ V+~U!?HQIf@ߓkWʖ>bX,ccղlΦ(oA. >FYŗM5ϑˬˊl[f=_u*Z":S! \Yt;k%y.m+Մ*q̉8և? 蛂JR+s(á`EhalB|:I;ңGъ7yA#yT؏e!@jga_X;KkM. Ms"#}rA=BcR!QitLզEj]}Q3cpgYH=ӝF)B=rfc`y[4;xO*qS1y'֘%[#]NLh*㝸Qow(UW;w욣t,Ěy 0>3W(2rT> X>ũQmyUkpd;<mpQYkwCaPӰ)Lq|?:Yڈ+*H{щDh+ͳYr3ގ"gA+TBͪB9> ZkZ{3:z@T0m8h0>8KU߯&QZ2gƹqM;c5mػuRnI3:D`P쯷nWS݉;]QBEK =TGMZqJ[T[4^k۫!dwQ~g移O"9&#\mYONdR6LY1OjDfM.*,pgSIf&PqDԒwڈ{səiQt@QB,x Ǧ<$7`JkѦ@UQDǐ[B8*e0|{"?ri&_ q1:N 20e ֌~q' պzˀڇ6Md*!0աsBpck9: |<\SBˋA/RV2h}\E2TKY)~9("4d=iRRV/-W|fKg2ZJo`t_`Im;Zݓ5;ؐs)0Wм1Y +vlո lH rbCtTﮪ+6Vk_ʊ[0 (qghجQpi-X6\+ۑd ߌ=;2`B8PE`t7Jg>=/@EQJ.{Yy?Nqow?9#ܷ-|a>@ffiGp}`?u*_(pyº@"%ִֵ͇O(7wY0v쎏[BOҋ(2Uv ԫ՛GGn~K5(`( ;=ytv$|UlX>TuѐY,86b?_g#22:]VD9;p$[YgO%ؐqUЍKV*<{1J'27>ʋF׋~Zx?6j* eZzW0ފAYzي;kv;ڪ~+-UcRWZEaoxE(Y։>Z˯LD[DJX"p1 )W"duCqIYj^ Dmʼ 993"±4N9UF,4&w:Y_kAޱyLu%rsypun%gmJ?;*Y2xo,1o+[oښ]v*x5b!ַE'^+I$Kr,"JnDilnkOT ⶪjWT-N%![R:x'&?nFkہ_|y^ڸkŢ9 K8!Bqo!l%Y hAXN '[N >>/[ ըN\p C KQB`lRvpW]d\vJ4a^&q|k\ۢ7ÛFyFj acqx7o=i8px7; Tߜ[×bX7d PrQTdd*a۠)fY-1̤ KUt f<ߎ!t>{7 ]s~ߺayiSh3&Ӥ28 ÿwk<ƅ{g鳃S"oi%>y{{i/EkgK[-tȸ0ٯ 濘__my`uK>Э^_VΥ`JO!C=$,qڜ}2L/|S9 M^&,x56& E(H. z@S+?0jv s(_d{~#p{YHm8;R>m}. *DO}jߒOcpƽ{dcsB"h4Qi_K5u P.sv/Y/*ZbO&TB%Bc=vK*A,@w7Jcjg{<93/lOMܜ}vrr|zn>;ufz4[uk,\9`>96fnuխQ\_%1_GlGg'y `E*66 pdi5CPH\6Mkg1jܣwΌlC s!qF0l fZcKDJíygyVmaXQ{R۬۰asArG8bz2+%IJNEu/eK6zw.vƫBQGnx)Y_ƢOoaQ3oW/]VR lolvkE8*#9 _`>P*?4?[]y\L]v‰ڶ&3$:ape8ph}cyAN$KoJqcY~9 iHa9;`-+2{ѫ0Ov ]mEk7D[Uk^ޝ[H7xͤ !kU]OݔܻŹ8 UceX']*x@+{ mo>+K,ani.  CMZ : 24/05/2000 12.21.02 by Ararat A. Vardanyan ł -- Author : Ararat Vardanyan 22/04/97 ====  PROGRAM ANI  ** ****************** STATUS - alpha version 97-04 ***************** Ȃ A NI iM}zvܽYsI&Ȣ#<.TH@d^`H T=eITY?{@wuf #X?~?2мLj8.Q8Eqh.,]3_Q &PӾy7^nq$q!eZ^0W+BhВnͷmпoѰm٫^Ah/)GcƽMvCvW>ݫ79Nwd[rk1)t4p =| UTMg{ qRfY  VV9qd%5T(X\qY 3X4GmYfEۀV*A8GߠJj4-( _LUv<O:}·:[$[-zUl PS:xd&=FT{4bx2F%ӗ\V۔@I+KPRP(3i]%/j(2o&oI5 Ķdlo+kQ N'ivr>g-2yO~ѿjKod0HًgF\ `#t@&jAZlH0bMx j*Y7S ]]^Ndݫ9{kOMo.!]}چ}R( o~C:0^h~i06j^'H<yP:0בGѮn?2p|>c/|Trc::GNoFp]՞<5α{`~vI$s֥" {Vzz\nhcmف2|[{~Rz )-8Ă>+L4e3{`xuAq3?~d,e|u鶻j0Χ4_uIEi >f:Sr'`^Dܥ~ %sz=9cBy^bs-١elB& @+c{ f* ž\瓷E@l 񕠗0Q%'_>XBRka5kꭳѪฤzJI⬍ ?Eڃ𪝠Tưwҩ63*׃t~8ϻ.̴:]:L h $Oe8^HWE[K㌫~Z[t"Y.E% WtYơise*&M Lu[pǯ6Gy0jfpީp>l)NZAjآdS?::1FEUS p=|O \"mwM$8@4)(t{4Ih]ߪ{^D@4L;jP, zNqn:>)X~dub(!_g:!T1 BT4mP{ =jP*m& ww]ԕTZN^8&85<ߜFV*E^۱@ͪܮg+AppIҌDQ4Us,@@@y;Që蘆RX0^uTGSev@CrqyO c E3)@ӻoN FTk5t$-,VC ~sRmtMQ^G:is\}t+(Y r^.:$V%+43m!HEԨ ǏL+ `S \|h>3C:td :.jL w{3Br)Iébs IH-2KΨ迸%i#P8J߀-kμt2T4 5(m9|ރ8Sa SVߨ\U\To/mwV&zw*ө{kW8 _yo#6WT2lSRqgN Se$BʹCZl2T 4üÜKS9-;s8Ӈ#A)yFp_'ǩ.(pˮ\g=|9#\9owwA]E=k6B{,}mVqm˙p2x#Yp!7{8 fl~N'3 2DD; G@ MgAbh;03#;p= WSʋT(j2ugx+v t ~T\Lw p3NFՃ*}3{A ;8iE礪w킘eQ79择3i8}oΣF0w4K~0})e7]+O!"/ՠ?I"mmwقMӋ2q >,?Yįt.C.EfBt9݌ _v'}[|KWt~6j~ג2FTkU9G󉈆ڕL9m W%՛ݰqbZAXP{|5׺rr2 /#L a,֘+ra,mSiGEgu4 "uR#B%yWϭȔ\V+w"z!'EK̳庻A6ɩ_}ƫ#Kq&6(6vPuZQtϻeHSܽkr -~m2V,e{4f \xTZӺ'0EI)fE^։*|va|yݷ"qmUY}"Ő˷GRƋ(Grzƺ;x1*S˷r(/+0Z^.^f9HV ̟NyM 6WŋK}"pc-Fo3 x$Avh `k ,6x@v/ۭnK5ߴhrKeyհn-s&+pІmRBVɭ.r+2Du e3x;7IN?4Gk#1kޫw%pxGkR~s#g ’-+E9 `w ,pNM.) ?4LL7^ÐrǼ9|D ׄ?!fsL]tyIˠ'%鶽_mHϔL2V`6x\&HtZm/А*74)9)E_l_ $F=a82;,}TNF:#.+I8|2y#Q'績g:?k"cmk&lj9NCZř^(v{m0[az^qd:zmԵu\`k5zڬ֙"Mw?dn;(hpUcGNu6hh\KNnz!"OФY0b^z68x6y%ȉӇvK "qF(KEl͔S?n) Ii)պH=e)ۚw$W!xPFSkl?.Ya=5VZkv#[Zn0K_hog ",u?Sku 8~WdqFMT&_2F9іηoUO-(֖u 4=4fgԴ;Ԯ(`,R_p˜BΆM?JS]|ӓ%\O&,9Da2*9ঔN o@E{hY@ќ)tKR{,߭rrKs}E ôBQ*[(c3jV5'Vp-A\BV:tZwh*KiE;`~;KK}V }-y]e=CK F?]X -UvZ l'(/76X;KŨfg_*+*=a:.A{eVc.V`# > t)x;s=72AE\^ NP;'9􎙼0o;ՇT ֜Բ|a{ŷvApDN{u" ̨8~펃/zYM'#'|lw8oځ>]-5Z}=>H_oNM"'3%#Xp+$,5D{xn"b 1Zكsɱj3v2EȈc}9X?s^kx}BQk|֑uaM0NsEqjGNvϫQW8_tllvj"F7m:pG}5x#u*uAk<ϭ ႉ'Vcp3*3ă\ ~ݗAYn-!tB7sI^nӞ 6}3#G;o C'_JwA}wzKhݚ1%AѢmMH`8D ^ &r|֌9"Q aZ<0c~XMT=p \^kn=P.=,q7 >;-f'؀Kfj?2ѳR^La`?&GJ?@f >4fSME4$OcLܫ|hc^#qZ&tbڇQxtD9Wź>wFEw#W :8JZ{h,}Kt&iP2#uEj`LOZ/~\mڅUΑ--l'0jݮ R8Ia!-b9sO&w6ADBoV3^Mm:¥$Xgc5/[G懄\'io)X*J%z▃ m}Tަ\PJ1=tR,:3CnP]'rzZWnڃQ[sJē[&tG9ihIpW픬~X3{jf-5$ɩC $QU*@mupq[D.PgTb[?VLme@{߭,Dnƾ)>) UD.ZR->qM[wvJ昍;JYvmK¿-xuC|h1ԢYbݠ<2OYeCByu\h7ufX*P.BOpu^G'Df\d˧i;"USm)GADIG'1;kx:XǵXe5…|!ϱ &aGO \{<9+'lb.g1'p•SSK-⚡w26s|V#ohU|64 KĐJOlIX]S?~O)[7}!(/գC"l>~R+:"9i[Q7Al2|Gמg "4f&)eL&Phճʟ(W܀+^g zhZx`Sx֬kUNLƼYWY Ͼ Keŋ:L76 q_e\{~sxܔwqlЙ'rq?woI2Bfl1vJ[w6uxs)\e-̯6Hw;.);!^)qCVB~9ˮXvXf1)Oϯ^^= $ϯtq\\͵wwR@P!z3d(/%-uE@ -?̺\K!Zl܍_̷ 87 O*0@}ٚQ+xI`HfmQƳW|wx.׍\YܥqOQ9w/8ƀ&"'rb)pyvljBSv#@?Rݞ)lrquF2:0rnKWy8h#G^p].kjocvXГ O2p_DaAXëq + k8dǺH_gۨAf8{X6}εJN 8ׯ;; ׯQo=}Z4P1lB,$xT#W z8/aI}k_7#@U*gX oh# OaaK4ʒGӁBeY^!wleCgGF$7?YQ/R P Ө=ca|GqEwK,z/lbeA$NC0qFVT6b"Lx]n-!Q$e@B]m}Q#Vȩ8Ӂ$VWIH Cʂ:m:e_l*T>gSG~Vוd0% 45d̤1܇m[ eD9:k&)4p)_\SA\a.5 s(,cЈ=b/a5:zoXB_NVv ;kir9Sd&.SgdUBG_RPYgϽVfq]X;IЇ^1oJ(%ʫJEbb٭ݕUc7Zb~o[`Uir8eƦR$JR{ײh222lBNxG9e~YOkY_lCse >n\j+. 6nQj59A$ch;V!qm"NLҽ+!k :x<؞FB3a}v^hel@pF&Hޖ+C0NV|s2f籹d)f/o]X.s<2& yGlɌAArnW.޾9 ʔ,^ ?έ2orrsGdѵ$ŵ42\Q~B$\eVi['AfZv9ceb|z?gӶģ7&ma-W`>ٝRsluDMw~_Kçc1`5m|2D^ϮɌ˂f4Ff9^Eg1\<"9 4gwwpfx*uYm/ȾQFWF. 7glsr_tv C nCdiaimꤶ>*Xw¨}/ u/[_3tMEsblyGj չ{Om3mߏm.jW8cE#G.A6$#^~KnИI~6r%}'8wCg"/ċ\ oHsp4s׶\ˤ3&I]w-v,Ϸ2Nu5׀"ic&]m0q@.N H;s+b5:.rPN1@r47vV􅻼 ~iƢ@SS% Ws+` VճF~,BЙ/FIyB޷tM Dz'|Q-W/ȣ3i9:L䜹MCQj3(y/ׅY=fkl;/@B})ĸ:BX"$ u2PI}l^o?ͬ*Q\rw6P,HVX@35!sxNMY!c}E}p̯lpŹAIa׸ע5U@f١9) Q{XKU$ʬHGUä*L1;|2}(Kq>LdnŸs8B</'e^w{+y*B"*r$!**G+[߯hI/NMy3joQ'~Cݑ: )%Z_y9Kfglr}M˳m{~Xc *KޖlXnNm2O'Cͷgfd3m%9gۑ6DW8LP8lxZ;=xm4k߸GH?r2V.HR8~D6t0d8 $f!qp /!65̔#:/yg@}p`nf},u4xٮpJ|"Жcjeϝ[6{0Ͷ#9 uU H.ц+S[X~>)+dy{뛅BVw ?B&+ Wśx1-2ȵ1~C-(c(ܙs2XP~1ƹ\T~]e"s$7H綼͜If&Qokq9WǵڣjO7禁f~s+èMnMl7ҥ *j_5-(7CqZ'5igMQGNHUCLurV땛Rߕ^K<7uJu i38}Qfhē:G^st$f{8^ِ#6g. Fltw̼]'HHFKsfm 3 F6kmEoY$yę6r4ˆ #UdY|Oм>uк^˰51zϞؼ嫷ý}&Bx<{s-iٳ}Um.j T(h= X.0/-E4%_#r˜Mɀ,{[2,WT 슡J#i-Ɵ>0N~YVkes0|yWjW9iD7t}a0^Ih|SL?Ǔ2]T$Od4ga$VLكSjJ|\qLߒ5j\Wr>o.#q7IHsܓu0paM ߚ2nhbq }cFī Ͱ;=ۊ\n:' jꡄ>_}(f{F|&[O5# j8ݮ=ϸ.f;+=ild.`v.mj.bOSn?m},/AgVR &c2_ #<=j{3pN G30_0v{aEnU_dm[Qn>vHzHn4OPlΐQ6*?\8n+kx^ ݻ}Dyâp[ 嫯B3gծCj+^猔E3d![ܒrdWQ~z:ˏMNK/einwE1\;RZf+!ymI6#CZ $88V63jEU~I 3ZK#ET/?l:dP`ya;ZߦӀ_Ԏ|yCPsma KȎ_+7ۂue&`ߦ@m,lVv^8s.^HJ2?|CwUs Sl`McHv5eū\u.Fr!) ntk\ܙM˕q\_|2ir@̥Yf tD>r y_\'*>ȺQ#|3(cjZk0o~{ Z$pwx/ˏdϜ~|#/лybn}do^N'W \Ak#36|IAz6E3E澛x󎲏r8)]afkoK{ ~5#L"-"ȤcˀhB U49#\ L?(Y[<4^j.fzp{=7X贠c~Eo}~b7xp\mpn ^G20OAlI5+CױݓCXzWR?$]iSkqIf~ѵ.wt6nQ}[? \ `nMtN|yо,#ݶٕMDN^x/i T9L$F&a/@6iSt]}{^WqAU圵H AlѢep9W_H`8ddo/ hFS TpVHv@>,v!qP4d6+^ż|z{J̛(VglӦCUDǙ>`;Jm2@nbA/!-}-Y᠚nl,1 {Oɜe71=it)s.=86~FeRh('VumVFbXzu~x6dmZPA BgEc3!|JV/0lpWy75eh2k+j[~,~fsm֧v{پF65=M5TK [^{|-)gWiY;'WJZncm,^xgב6^]Qf\ie8'c\o䓌] 2tP> FXeM^ԙOڪE6M/J=6'I \o]\"z3nG-*O;-5:Osc]DwG.I Il PR?_Azv/C{!|զ K;r)u<wCkVr9r؉YE}Γ0A6HGѥL'*v,ovK<^;-&+ړL7v nۭ8^LJ&yԧ$ x_fg#,Zj/cxsao?(gao?\Mv> . . \_VQ gAEkeu#7$1>u8eVk9i3|9)fRB*z(}Ԩ?#ur|r,~;{f0;<xs ƿ?~\'| }n#*PvαsRxل[Y1XΦ۸T<:cۋHͷG̣9[%y]Zxzeٹ*jQZ6Ine9_oLH'*[u:{]uGNѢb-Zfn X Cc>]K%2 :F[Q4 %v  `ލu<%F^G_HRn!_Z7 }'}Hb|f?ׯdZ}žA7ɏYX0 ئ||ƃM\Ip tŋ$s&{/ HEEY HygK,mM%ɑ&!=, &(@ESP.z7tʸjkymwGPiTufmf\(VIldΕiX7|}J2Q.KէNlDP l/YQK:¢6VrodxIBT ghm~F+ bܩo,U'25ݓQQ@-4Ͼձ鐼m:+0Q1\YL_nwSum<76f~q$ CY#M>z|2., ]f/&xKR~t~Fփ~5r it^%6@!p2Dql6/8@[">XVb1V)c)ےHM^ThcPṾ9|zǷU& ķm93]q,|)lDֺ}_)pmжfZN&ioymXNMc}17享s 6vg5-Ԙ7`L(v[Is6kq 3B4*e^20}ǿ=*؈?3=Cvx|"sD!# ~HE &/>7& 0TJy'gɑ2ZG v *z-!n̺b1v2{_vdZfZ;=>#]gkÎKlq1 wA .[ I"M WzSft nc4;aC{GN`B;[ySyGe,UBIzostT 2c;v ~{0h^C4ׅp]G_GVaX3}s뼩;eX룧Ӯ5kߢoth ^h䚽>KkTӶS݈&)qLjS,]&oL*lŶvgE)hlSd-BĎQteW}(|$tb/cA M {]B܆|}Jt^+)Z۲fD5ɥflBovMigڻT;-C/[ f?AU-a4 UjI&&RoB˕tiD/FΆ1jΈ=,&]L~-cXUū-D\NՑ,MEuESpO> W8`NX˯E'35 M?9a1SyEx!:.AC]d%Q'G -TK)ޅ< BrtMދhӟEYDC*ĭ[u+X1ҊKtP/˞HXHv ln/iR]",54> d&F0$1ݲ4G2tL=:~l@B(B-wyF}Iz{cXQ-bLFhXtbUlD2,1,01 )술55B:GKЄ;Na@M< >G,xGW|MaPO+Q]P 79yҼ/`o:;덏H*uzFu/sgnÃ0>u?zT|2-yl?S>0E 3AwΎ7e ʤ.Zb/͙0*?EٟT8xcϠrZ+Hd`~wz|w3.S{Rj3Rk76xsǯy-H*&ҦR` _Ya=C,7ō]:q?x8ϸ <z,B5~&81~/gL v7f>UvcUһ#j%bŁCu3oyF` BVƚB}itv{ s!O{8Z3e/^2R($2T fDz-.a~>T3 ]_)F +I:R WJE{|v{Xu|FLU E??>w${C1QiࣦϷUoxZ~tUm%倹dWU3iO=vo )9y)Up>í7WTWRoҔ-,s6]獘弯7x%GXcWZAg-?N=bNX˽0{.0 =ki`HdK᧟L Ⱥ5?{7 Gaܖ:Dӳ1绱u^Rp6K|JI@ŀ gpd>p~o;n{Aо̟} Aw{sD-{˱KR寴ʥㆠv=ygɟ՞>5\0U/؈uqV_D`"F;8=q 'ޘph2zd֘ln؝r~n ݪL?D0 T.\F=#zPj[V]{V!Z_oZұ"C==u{0gJp͛¸`=Bo)G#4 6Ecvs26c j,.ݶ׷*''PN;@wPRוFo49^j}-8mļauqZ:aK}M'mf6ͷoE,݄Թ޴ usttDo/π?v[?*5 zC*C#cO{n_*;đyx)-%jwp壘*oJSZP!?!yph߶NKR2j1Vo=%8IEP1|҉}ƈۿ(cSMcrNч@I)OYDO fǣ`T(ZiGvuK^žɺ*!DoeJr7^~vooJ҃$-g"A.//_.ug1WRscPL<7)ӼRT ęOpyɼҾ,8kwe䄡Pz WR~Xzؽʶ_nv yWJKLltC~B2SᘤwgAbg\gWdlYl3Ő! *(b-ožmж|gNi6cogȳyZNcȓ\2ۀ,p25|58m[FƷ׀SCJ0<}3F:`ߩEפMiVikKL)б1G3p<>8tSc|[a5|tn7)POЧzmn]ʬCt9uK{; Ln?޺٬AOέY7w˹ǠeVAڶҶ KrM- ܳ6R회#=ps߀^ L 3WY4 uW5aNVWDBa4ACg a:i%C`MrB,`Ys{9}S*8bHUP?f:(ΛS8RS9`&Bm]Cd{Ƃ@%uL=,O&^i߯ZuG=玶wBPJ wD!PP_N/}W_ʹ(OcC9x E:UWpNU\ҾH~Z~f"U|wXi=_:Jѧ׳&Jvߍe+0fu@SMU Jhey UB~De縗`2o=Ӄ}e]ݍ%?OLO9аqc8yE3&E 0,+xX:k~zp8k.ׅO q/#Vߘsa{0[c]9цXxT)\P1KsA_yp?<#5G^#ȋщ.bF,(2+HJ=aF 8b&dc~@MYD-{]~w,@qP\]~> PS"A (wV߻HZLkH/kdg|7~_#69c-zDqonmĕKGԂGOW @1 I>hT5a-i7CRcI?8_W_Ƶ45_'}ލYޯ9ka$i[@`Nߩi@OEJ*Dz!3ڸnpDho7=g9 : n ]F҆.zoumjE}ŽgmNZ):&-NJgB؋J@;F!P:5wJ*h0-0NRpETh7cokFoo4< &#)JAy_cTs vq0~s+`ЖKǿeǦpx|bU_ڃjs`{o5d^_خD~wo\ڏg##ߴO\1_79wTh]gp '6q>xؚy!H{?(:K87^J@~V4V‹(3.Otəv(gHN>`Y* B8mu>Hu͔~Jk~AJ?Tczi8~zqѦ! ]ay_Wr[ /:pCLU|wr ,27XCY/~`,c.^bOd tr]fgf=tDCtG)}GSZtVԨ]n9V&p\o=\5wyS,8#W="GĞ.-['/s >oo}HKMۣ4ܿ6lj#abW1'@ytu//̂,#?)۞}䒾d?v kqN,ǹK<(:) IXތp=b0RΚsGVix6zQn5zvè]KX2)h7jRԘ|mi @>,muڤ" ;9OU u^hCA>/mh!~/X cH6wޕq68A81㣎L-:K >w~"2Go wO&#?̰1A;[no{S{0g gqR4I>%?}l~[g@3O[[Sq_cAPcOu?ޭ CRM'?sʒdB2^uJNFϦP3 %܂>ShNú9~tnjG'zti|Opє:-$B1f7Zrmm}.oa4uJ8Mc?s4i`.˛]|^Λf,rsFoY Uer AB$9 hɷkͅuls$Eyp aZg1R>nLf?M_6g6eo)^9yş&ODeYϒÃ0g"ߞ1<90Lp;0rNފLP*_*9gqL8d>wOe휾kK M2v ;`neG˦6Vd3M&ˑfM%;ߎeN?J>9: 0<*XqaIuc{]m\O֓3qFQc# eNvwmeח<f9\qsS3Ȑfآt?J +oKFEdNPFß Dc݄4£P*lE!b4484TmO2yc ,qh7EQL`3pv vcuI2=w1&5sd>~ߔԉ^wؐ^}76QNEj]s.t}Xs9{Gr|J\[%TFʧ'85>>~l ?* qt= jc#Xiwvܐ1kxmq{# > r}I@LW0qƓ;+!\-׬iCԥXnQl*ڌ6@ ZN\q{ow?9v4m7;NQ9J]H!oؔ~$&;,q@rm=* Ro \'Bo OvOGn<Ҕ\ $2ۜ"YǩAR:W,5DݒZ7^wC&L%:[8Nnlm0A5a'2Jxy1>:[J6hX =I# =7Ե>EFWQC=RJSXʊųEόcLfC+Pl ,-qG{Rqrrvn7F!j7&Kae7|7[ tA\A^,"uU_WU|%FBj-KYqq24-5 .]9-X+y1݆pe;l=zoy'7Pƣu8Lsg]FWק%:JŁ﹎26[G|?vQAr r7Ȭ, 1P<N:/^X^4b<ӺVКVs .#န:xׂtPrKI^zEfX Žw|zzWr59;ݭOziܽ&yav N؎Dr*Ӑ{˧.2K%SF+6}RFF}K֊(xǢΜ{5U#ѻyCr/[d\QsYyzOZoVmVE8\W1aX] [1S!KO;[qx n[[Տ``}JpqQJ4,-ۿ/>=%+4:g@U vt5[h˙H u[ ]Õ3&q䱂<~:Trl׻n(. 2\k򒽳#MWAW6'7'uQD86_FI6eƤY<k-;6n4Y|Dn6oS.zЭy"ƒc]gG%=r0D6\ oqQݬof @!W(Z7ӭtz<W9vme踄`hxW fځGkx(.5)tukφ=vdjY&14طhH?Oz>CDq%t+Y^cҴH>B E짊#w<یk 98Mw6- G!aJ.L"l4EL3%FuJb́g۱x=?g^fu;CA Tr[77l3/mmdT!]snM7'?߸pL99}vpJRPt>>'⽹xo/>=h_~mlz.a8:vs˶8-p09[=n)<ߧ0 KʹL))d'8T3Oڜ)ڜojrv6~3a ˤp#Z7fx]UX)ߥA} ct'Fڮ]ArRx/?_/Wzn8 i _gGק/e0ก@es?7@[2PѳcԸw=|lӃ}YHd样 *k3N37e{Ύ0 P?BW"QKiJسDhNz_>U&@t_M tx/t'g 2ɾNNOg %{קZW45[ak4p`-K#G^',ݭ.T5ˑQR$(ma R$/# hSwƐ<n 6mbпf0i2Fi_}m >F{֙mu(^Aw.c|893Έ<݌_kl!zU}U!,j- 47jOju6 ?.HTnGLtQOf%XVЉClU\^2<ÅxU -/%KRXhve/ͱzynfq6_sd1K9TY>LUx"9:.-P۾hrt=AX)Pwkx-}?j^JnzT@cGe2G[kxǖJgkk==")N] U8QQ1cD' nl]gR!=C0b,o"6^IyM)t1n,/{#"),gǙ]E`4ceGn)Gq/?z5n}hFsHpj~˻sfﰙ$dj {8'\JwWx +K%OH@[{|d.Q8Eqh.,]3_Q