XARCLEN FQRjBAD FQR JDEMO01 FQR# ԔDEMO02 FQR,DEMO04 FQR1DEMO05 FQR6*DEMO06 FQR;DEMO07 FQRADEMO08 FQRGDEMO13 FQR[=DEMO14 FQR_$(DEMO15 FQRdDEMO16 FQRjQDEMO17 FQRqyDEMO18 FQRw DEMO19 FQR}DEMO20 FQRDEMO50 FQRDEMO51 FQRDEMO98 FQREDEMO99 FQREXPOR FQRGEOMR FQRGNSTAT FQR1GSCALE FQR vqINTEGLD FQR hINTEGLS FQR ;INTEGTD FQR ͬINTEGTS FQR INTERP FQRINVMAT FQR  GLINER FQR8LININT FQRfMXMNI FQR [MXMNR FQR%يPOLYR FQR*)9RMS FQR9%ROOTD FQR?hROOTS FQRN fSIMEQU FQRY SORTI FQRdzSORTR FQRl_;TRAPEV FQRt %TRAPOD FQR} }XYTOXY FQRFFT RELLIB1 RELLIB2 REL2HALLEY DATDEMO03 FORDEMO09 FORDEMO10 FOR3hDEMO11 FORDEMO12 FOR(vhJ`Ԁzt?hLv8ds7<5 Ԁ~78KtFab@ { rnQ shxXOR -5ll+OJļB&gijWR+9_4c9YjK& #MiRoYjT[1RNO8dmWoHt''2RƼ*Ґ*o*z\TʼgO!篳 x;fKCΟ uha#C-|U,`Ͽ}M4Fw#EZ:Fk(W?xsPN&o."עC_"_ܯěAYBZX Ek_"BZX EEE7B!-@27zi@xGע?G  Ep <(עZ0s-$s.ܺd8DqGW_"}-|] &44mX ŢoK_"_dQD27zibm.xs_ZykQkX01E$/mCIG^9/}-|9Lhh Dm&\,z搿(עȿ/sp#&('m 5w#^,\,z E/r9ZM:L##h2o>؍mKbl עx@E(bB㣰Sw a"^,\,z K,.CEErJv 'ѻ1.Go8L!"EEFɔś7y+,F, ziY#|ZJgb bы7s@wDlËnxAX }-|IĒ x9.Gon8E!עWIE,`&ލ`נQ)clt |#_Zz"KGVl{b灄JDHGXy ~e{_>P 9X+fn%ܖd%[ݖ9( ?}Ͽ?#L<׳䃓iI]2W _8[y羃ozւ|6NQy羃Ƿs=kA>88ZӒXp ar x¼ׂ|(Ojq ׂ|h3E]0wq2ׂ|4Ӄݦ[d{hs~o?g-ǭx'([Cpϟ_>kA>ũ;\?|ZP8?"ߵ6{nkC M-~=Ti=kA>tҷP _8[۹>Zen#Ղ|kjN>%o/^crZa۾,?w%&:%$PDŽ2xY]/|h}Ʉv'%DEMO01.FOR7 o !"#$%&'()*+,-./0123456û/Y{L/9֛tn"D:I,L &30 (d_]$VO KŨ9C&30%Z}uF>a»hɝAuziX`Ԝ ,gXhBթV4gM6g@a iBCN2Zze-w7Lŗ2z[5g&!q6LjK<Ԯ;Oٰ]/m_J7]Ԯz ;z[I늧7tu]5gM6g@a4gcN}ٵ:+D!aeҶ\WOQs M{!=!gBQȾ:e3ȇAM͗^48Ê,g$ i ,LjםITv5gIHj܋/ -݄]g=Muz[ ≳3ȇl΀`W &30+rfS#k}uVX` /9W|Bթ> VX` /9|x p% L8 xU($g?n%ܖd%[ݖ9( ?}Ͽ?#L<׳䃓iI]2W _8[y羃ozւ|6NQvoDEMO02.FOR5  !"#o$%&'()*+,-./01234LG1*qద,LAۛA gJ^Bi\hr@'M$;ۖLUfS`DΔgB3W* L@xAE $ *.4C9z޵p%(`|wѫO:NӤS},ZpX cD[:^&zuG=b??:4{ԂDžTΔ/N Ƌ P^ T;SZdGrےh}zA'M&P'{F{&-x_Ù//*ptZp%(t:ګ7 ƧO3WXlùo[:p/؆sтa xN0o\%td!ݗ΀vDEMO04.FOR3  !"o#$%&'()*+,-./012D~`$F`fifJ™b`!U̡r1t& =^j r8S, :a CЙݴ'W}x>.L7vM 1 AB/L7^\[acΤsјTցI:>Mw?΀vlDEMO06.FOR4  !o"#$%&'()*+,-./0123O{ɖ섲@DМvvr!lpjg;'KhiNFf yL-{81-v9hL WFFލBl)N({ C}˔ pehK(:MN(ޗt(X@x.\Ѳg\ g4Z3.[x0,[2ʟX.S_1W,wPD|B4;Y!ˁ +0ھ޻Q(h]+`4?XzF*'h>[o![J thqIoڌ/Sg첮@N ljVڪ$2uFa:]+_W(:*į[4 Yx<۷x<W4 2%\7F1ʿ޻Q(t6irKzh<'`(LlmH@NwF3,`1D9| ( I<I,cN / g1D>5gM6g@a4gcvDEMO07.FOR5  !o"#$%&'()*+,-./01234KKLqHI3PjCPa{K捐8jCjlyKE=xウEP{xߊ+ 1! %pZ4oLpxEPEqVķÊ&"ǀx>g]|{xETI|hOYyEPgѷÊ&6hYHLqA{o`8B@I7\r"jm(.o8+oV$5sϸ@Չ 4CbC &l w%]np.Q9,Wl[0g5>zsR;1D4.Q9 q "( `x?+!"0uQ7,Ϊd8WYd8Wc%k$Ź,xV%k$ťOzP%k$ťs.Y#).ga5gM6g@a4gcvɈDEMO08.FORI  !"#o$%&'()*+,-./0123456789:;<=>?@ABCDEFGH0)kc(X܄Nh(IUXh>B|$vDYHi# xk#!FFM;R[;5` >j y.߬ %YQ >t)mI5EX܄N | aBs d;1U, %YtZA ewpWPndžw/esnT q+5@ZԆ(v^0(Ap`Gh 5߬x?w %YyR a7$݋z*V(k50)k5E]Q" J";![T"iR}ƻe:X;![#cxkbTl_ȤBYC IFƻЩ^*A-)+!tPh4kH(%hdAѬxզ ȤBYcAqy#J\G2(Fb}ow(ۡ0P)VZ>hh` ;5Nn.ŚKuQakoƝE`B|W{k]uQGiڠ+nXP"-50ykNH%|"! VtoStDA7-)EP8Ox7nXI?V7BPkN_]P(:!(&q (R5elƻ餻^*AȦTv$Dh4kkNuPtK M;ԀC"45N&ږy_^1_>Z㢠%Zw+^rWkRqDPQY9[VPd! y=|qiyqn=˭DCt{[?TZ&owө#zCQ bdk\\Zn:R ,*r kN&UP)AmĭP5nm!4R50w ]Z{kZ]"iFwD"!FO?a}o?LJ"J#[{ka5MB}#݃%TEdwөTD] *% ƭ-F*&Xtz QMK_q}}KN/Zn:ɖזx0d;.s=t{k\]"iۘWʗ`wI(?#MnBY[yGesoKxƹRnw{tuî{{k;.\{Wk:H6en+]oZj`wIBjg$mCָ%Rsx]r#uuqgqkj?Lƻ$UMd$X"Vkk;!pJ8`pP.AfF+~="4Bf9L^f0 c Bfp'7B8t6Ax(tx(HP9@f JHKvDEMO13.FOR.  !"#$%o&'()*+,-s؜ uܩ!)o jnP -zFeR cQR=Ev4G, b GNXm#H {r_ 3aY:  w=ǒ?%8ͩ{hD2ࣄ#x42h R` R.8f[:_תfXڬ3xz080H:IeVpOW`p`.¬opՕf=4Q[--Kݛ0.Bń97a̙VbA[co“D?ԅ slgY i{ fX68|'a=%i&:]0 10b&ZѠ҄NLb—܄%ލjn 9-3TL6 لNLb¯܄+ލj7a"e ܖ>0hn,V/kKG “0^3.BńroVbFSWބi*& 3ލŠ*^&<}S4mMQ!-KiHK>?t*&ېain,VqH}x_$R_n=)^&L^0i)i{ !z',]:X;![#vDEMO15.FOR4 o !"#$%&'()*+,-./0123iKë̩M~y&c7P<{:O C=_*Ѯ;}筙b*P]v|g^wCG [3BOm*0U)QVn }ßuػIË*xvkPr 4@# eh_PkQv}-ΜV!dn)gU3ÔƖT~ii1{t⌿aJzxjFsڮ*K^ Ci,vx%e|,=)yU31)y(f/UN8 J#sXp*̍⌿0%= E1t8 J#sXnZ1ggaJzxA x`gAwdn,ܴ !s;9g'0%= `NUeFq|GtgaJzxAFOZ ?m))_ c/:<0?~,=[tG|o3gߞmmQ[gUyBM2S,p%Hں3gnt)3gow:2 #DvDEMO17.FOR2  !"#$%&'()*+,o-./01ݦФj]}?qjR5.0&`skhnS3n.Uؚ1&02s a c􋆭In } -&Ujkjoa_4lMm. (L>6d4XVd9Tq'&~Ѱ5m^[ {-k:N-5 'LIapnn*석00Ѭh2ڪ& aܽBc[w kɻqT5 HizIN8hϧ ߢ%҄i£%҄)%+D60}`XKޭhsaE4~I8,a+ pPsݸz;+쪚i-YX_D/ɻ431ߚ젯}},y)vDEMO19.FOR3 o !"#$%&'()*+,-./012+WӅ8J4aJCk',bb9-h,bouQ?TMD)_8kDAhgc"^R6?eЄĜ>.Àlݿo"R/YΚZ6٤xg&D8kQp;oTCy)|*5ʹigͣ +PYEO<(hgEVwaUߪAܔEMJܔ_Hqi1ηяM8>gu+f9 6Ԡ,bᲉ&,bo&8]E\"ܥ[>g]xI!Xl{qּ ⱒ՟Yľ87gEկ)Yg[w kɻqT5 HizIN8hϧ ߢ%vΛDEMO20.FOR3 o !"#$%&'()*+,-./012*#j7\Ga.݀W#08 =2\F2FBlՏݣ?r+9 @ C 3XL Y€3(j:@oQ𜝅XJMaeu6lqbegoW@p\ Bl|jRIG/e5  zg!r8;u]JDW>V+ Wag!6*|A/ئ,БO<\=>-~&ԎɀA؈^Ws݈2e#rbคAp| l}FIcc:7& {Z~9ƄjRG]rl jcJ}Tr*qvR!l'ӸDԃi܍h'χ~08#{LiN%ViTbM͙r @ì!ڛ3lccP4VkobC*vĩ{zu5& h%>S`RqjLx`;WsJ\dRESiK=&N}Ez0˹1&eI3Lj~OdHs*q @ӬĥRYCNK fӸT6i\5&R{zu5& h%>\X#ޘnYX_D/ɻ431ߚ젯}},y)vDEMO51.FOR5  !"#$%&'(o)*+,-./01234SmV1dLw3'虄 vO&ԓ;+<ޙ V*9fL9 .11ApafUr.1P\,=&&aZn]2!4 .N%xLjv[% sJ@qq*=I V*9f-VK, z&a:`ۢO=\˿%$?w&xWӴ0t&xWӴ2t&=oQmV1dB=9fm~fWkM|v)^;'-/eirgLz`v޴yiY|;.Ξ7(WLZ9UsVŜ*9~*1hcz䯝I 8P&c8ͫC^{abNjg89 @ .6 e (.6w15 cj-;EucA)9s*0;ECg'M?5m5/sZ'&sTsV<ڙ 3>Q 1աoibNSڙ0cNS @ .Njg@S1Mjg@?;;E/CZ0I|N[eXw<0AMں3gnt)3gow:2 #DvwXDEMO98.FOR: o !"#$%&'()*+,-./0123456789H"NcNQ1'ҁ{sp`=|k[` 1p˷+4Dqs"%k x89FEƜHG ٕBc /6[ : Fa:DV{x3淿2ߪ g/'{EƜH"NcN, 3L \;EƜH"NcNJ#PaQs<@c+5ޫ"NcNQ1'RˍG{,@zOUȅ~X|r?Am̉t wI|Hge XB:Fzbmcqs"a8!NcNQ1'RˍG}k(NlĻ4TxUM/<(4D |Y~pqsNz ܻsw;/|1yBor^ֻy`$z̉rDN,A#VX%An}N /(Y0\pc>9wi~)YkIr{w; .'z}N `wa}]A#qaJip `$*\8,.&b=?@ABCDtkdͣ%o/]qz j/1&N/|h}`=yZa۾,?wh/Q,sx:- xdͣ%4tl`2&<ɉӈΣ%@)Afƅ#:4J - vܗL{W'3& Dxr{vܗLydvdg۾<@VČ~CKC/|h}G;K&?e>&#C /h}G;K&1}:c.ф1b'GIh`$F/G{Y1ie 䈱Qo/h}=\vܗL{*3ı?rH4 V$L1ie 䈱/|h}=,sقph?=և{dͣ%ӭU`_2x8IC7/uL&\NGF́8G Ppvh7vܗLEL$X\ 3cr! h`$ n"<@G9$&9 ڿ%w c O|(A+\4tFO^%7Nc.! .; tL$X}:/HQVlH8$X`X]…#DE7&p && h}ef< K 8NbC1=V!c7Afrd?9bD!Lnr1r$ND΁f F!-V;OꄃUXh@;GL q_2ю́' @fƤAۧ3& QVLc$q1[#sDM}Eq KV/|h}䟈pi꽑8{юQVlH8$zk[ɣ WEuG;RX /%o/^crZa۾,?w%&:%$PDŽ2xY]/|h}Ʉxu1xloh}eftGANL W9hxTr%CB/(ÁÍ,1h`$3G~3~'H 2s_"qp}' ILst#q_2ю N ȹsVwۗ6 NƄQţ%H4bSIV` :Ju'= Jޣ%ӭ}j|}y[b]}!%X{vܗLKd*^u ۷z+'Ҍu#CfiLZ|Z2Z/|{M,c"cbJd9e}ەj%rnszޕLK&^I;9- TzƇoodj%rnsˇ]zQ\d^2jl!:AT2EƘ:=\JpCOv~Ǥ/d^28蜒] I+ c[+y};IC7CToh AQ*o4d^2zaf FS1igOV+\|îd^2&({AU=@|q1x)ٻ ۇ(d^2&D~F Z!d&lNO. Q%ӭ̘VxAb:a "@:0\c` ALiNaH4dgvZav,J&{1[. \ \\zE'{d*%̠1$ p ]xdf<ݣZpi3ߥ23A/:ېJ&/3Ɛ4!pJ8`pP.AfF+~="4Bf9L^f0 c Bfp'7B8t6Ax(tx(HP9@f JHK4`1I0qqA'hw8%DA\wW2LP#0d6A$ 23.9}$ .Bfi,K x̌kpIC7A%-8,*23% dgvZavHb$'w?rH`ɋђ8X,'w|Zv(Dp.nL0͊GglH8@dcbt}QJd9ەLK&^ؤdQbz.n9%?v#7EXPOR.FOR@ o !"#$%&'()*+,-./0123456789:;<=>?ՑJJr-Jg0Wrb@OCW@**+k邃nѠ}zɛi@**k:4}wV@?\] TסQ ovIç]R|iT@-?}%P/vIK*OjMތOj/cJ͏}PFt痷kk?Mތ7y3o5?~5*;{~QVkWy| 'ϧ7~)^P:PgF[Ш|^L̑O {煿<.<6*Oay M6*G?,ɛ9ύ DZ§*x;w~4*ָj]B! h`$ nv3GEOMR.FORA o !"#$%&'()*+,-./0123456789:;<=>?@DFIIIps'hw.>xEw8 蟓2!/K{ rw;7]AOJLJcX|+fϠOJg&4xX|P˃kTjlZ5*qJ@-_l\Poר5*ll\ϣkTju޴kTjCWzۚ{cV%'[˯*MM[7U=*=G?~~J@O~Y~}J@O,_Vz?JA?/N =܃iJ@h _f7}CV2'fPkliy뎿SZ87}a7T%___Z7m͘ UZE{%%B! h`$ nvJ(GNSTAT.FOR3 o  !"#$%&'()*+,-./0126Q%B%BƚRY[ĩ? :8de 5A2,3{!uP/1,1nwԉMjBa*+a+jCC^a 33\8>76*C~61Fنgf$o>N3\K z6]b(06RP)&Hef;n%B%u-u|vʊ!+z؊uRQ3\v9bҦ)6=M1PgԔ٦)GėvC| &{%uy C>F]sy_ڹJ ԇ}.!1Pa =#{'{yN2Jd3zXC{ݟo#.41PgԔ[giG;bi3:bkTju޴kTjCWzۚ{cV%'[˯*MM[7U=*=G?~~J@O~Y~}J@O,_Vz?JA?/N =܃ivGSCALE.FOR9 o !"#$%&'()*+,-./012345678]Fh6e<)3)#TC^φ}6ge]"ځM4+*e4*Eh~*<*>I UkN,ߴSyiGUP~_T$E0[s2` M<*vuOUY~2[^0[1v+U Mﳲ.Okr_PE}5' 諡*(E_use(!.(G?GN48Q}hp:&#Ԉ֊V qѭc+sί(T6{Oxl%lQ48f%UP0 %Be* E489P^^ٮfhpD!lä6<[{{tF"ayx8Bh"wN48Gn~6Cyis{5a(/N48Gnop8*pN48f%UP0 %Be* E48mlWAe޽6( awt&5P8Lj5DO NjD;A48'S8_'Ae*lqP{چ"6OGD^v %n; 8LjCqDOW'#ԈQD?pED!!bqJ N)()ܢhp:O-)hp UO=YY)|DduZhpSh? WEuG;RX /?@A$ReS://ܤTyGCkiqsk`h1.I!72ě%gG8pC 26@ -72ěV~9hz4z1M qIO x4z1 bz^;Pڢ@#ĵBYJG@(iHJ1r(iH6 b|0% {RAJgRe[A̓3l-V*2}Q,U!!*hy!}ƺRe[赁dmŸJ1rxўb(wnK16sTc߹e:}Q,U#B\Ğm(P6V TOckG ׎JiJ1ɷw>>>(A*rSG9E9Jkc4X  xZ'w?H1w_y} T֓Y*TOTOΐ!w/e=죏죏Ͼ[Z}z+>>^oV1BȬm`;T!Yv& FgMΐ{;H1nl׎Jiٯ.[T@(i8cuܰRksqmuN[30t> ;L!O/U*qK b$륒J|TI!@ -Z q[Jh1ybI!޲ܹ68C8鵹[x=P!~I!Tz@ -J`h1.v*D'v̍E?X[^oeRA^kG8X[lol}7eRAlT#Y/TyGCk~9V׎p4JY]/|h}ɄvINTEGLS.FOR? o !"#$%&'()*+,-./0123456789:;<=>e;><*Z/ DY*31`ҾwKOu*Zhr~GElwCk&Zw#yt6uqhTO %ob@sgB?nL -]e^"ؚo31t z܈O |n=8_܈ |n=8_ͧF4IOyy͟RQpj^[jD%j^Ԑ-F6ڻ[੷ΛDC;~̛$ZD |[ 5955sjL(<`VwyjMXy-`|/?E`8Kntܥ֧k&5y^xF| &Tߛ&T51' gɍΒ{m'׋5Pz`:O[WѲI?@qNBK>?CJU!W*c˱#*=;}mVckU qJU!=Yw =w4KOw};}{*UxMy.hGwWc'RUUz'RAѫgw&RAQ/ǎܳy Zgaf_ð֐!6=K1F;nr#I1F~LaxJRA|}09 !"UH B6m0BHcTU*#0K*RK5m0[˱#*=;}mVckS5m~Y;Zu=!A|`ڊTc5m~6n`h5ֱȆl i+Rqkڜ6l~9@7D=kِ >}@0mE nMu>[*|KÎR b4d#RY*#0H1aoKU!6дAVck/:NbJ>'ۃaGaϩH1aoTbcMI'wX{ FnSG'UiI*uvz by" b$ZgW u TU=Ađ˱7.k)RA)\^sJ%_Tz@ -J`h1.v*D'vvINTEGTS.FORA o !"#$%&'()*+,-./0123456789:;<=>?@.yM?>C8)@:H8Z*qp[Տhqj d;)Hm+B۸Cf8n#םw"8g5TþٷXnvap{VS YM˦m?Q _RmJ{VMSέ3Dkiդ!#5E Xv&[5!&8g^j{\jKu@hqh,3ZLK&}ȐK ]ܖyB> ƒ!>Ŵjs\jK"T;wbh h1-1C.5؃w ]O!?j <,;B[5ޒ_&cn;VIs[5ޒ_&cn,joWpt4X8D5~))jү <,;B[5ޒ_&5Q6*A ~'8:wHMǧN-pY @'b5x@:aSVS\s\!wܾ1xp,H?L@zoO@zeXI pMMiX@0LmS~6[o5}2DK@zoOۗ[󗦆}q{am~PI[oɫ^3R=x,e~ϋH~1-s:Rpz~i@!_Y QeTS YM<@_wqxl\6pFhъîsx#tqdZ?)Dz;xK8hGt`p! xVS O5';.`YM˨],CD fߪ5짎co@zKngHOqUo\NH`h5Qy~)@NU XmW:־5LLr* TJU!cz_cv /INTERP.FOR9 o !"#$%&'()*+,-./012345678gkk)JXtt+/AI5 L5 |%,:( UvtrFIoE=|IoAXHgFto?kk}$%,MDSS-`M*VԆZ\Hz#T\K~ISP +{Io{o5 |"~HHz#.:,)v4` -a&_jƊ bwXS?$KX)JXttQv,)kk8…C? .:OQIJFP?_$t&Y"';8( 5/AI)JX:[kBWBmJC5sf +rހ'l kWmü扬{488("o5Wmͱܶm&k%%r9企Rԋ5s|ڭ;n,joWpt4X8D5~))jү <,;B[5ޒ_&5vvINVMAT.FORB o !"#$%&'()*+,-./0123456789:;<=>?@AGy | Oؗ d | 򵄛P$9[  ?1?_R=a~duþ~ǟ׭qOa7V0„<^2'/a R=Aya;@ R=a▰| Oؗ [MoC_u+ -y+vS:ya;@3sF8aәd Ig,SB=A~ eԟ|A]yxJ4^!S3^׭tv/$B> [w>+ܷu]4^r 87rq:[un:qnש\Fqfkpj:uk85rqN:uk850u25LHl!KEr-qV_3itx [un:q9F.Sg S#שN\\!Z uW3h/x>ޙߠuVnVrQtQWeZ2(kRZՋ믮~s@À9?N}Nhp;'iVO>0] zu%>`w0heMJk*nPV uVnV 5)a& $j4(uC;;>QXQXf:|?wa^_0ⳇwO=>o [|w> +М-q }|qAeV'As|9{ +2-z5)-WWA%~G1]* ޶& {0h7amo 9 +a|ط =6XAOὅPb]0)[8ߦ0)]As۠Ii-5Sg}.Va- +М-q }|qAeV'As|9{ +2-z5)-WWA%~G1]* ޶& vXMXMNI.FOR/ o !"#$%&'()*+,-./8!{qML_v^OkrͰmx^z\kw>N$BSkb(ωD ה/YpP"C XDOh3 Wf״Pb(7+Jι2 1bAΕamx^^Okr TΚvd|ɲ~ 11w`^OkrljDtc6vm19P?j0uD"ԏlaו3;c`bHntcu"k+ƉDL7vm`u"kq>ʬɵ`TEc-Yb?Oo [|w> +М-q }|qAeV'As|9{ +2-z5)-WWA%~G1]* ޶& v_MXMNR.FOR. o !"#$%&'()*+,-tS y@ݡ4i8ZⵕO2N2hVС13-LJL}eHeOb;.TL 8Po? uŎMS`/4r z3-ߓ yOJ;.TJ#jSHe{BGm 铳 yZqk+5  @D9|\! )d;Zⵕt癘i9gRg3vW3-;lIiL [4Aˊ< [|a&fZ[{RIiL| [|a&fZ[rO}Gwbeug#D߂3ơ4 [gΜ} [|w> +М-q }|qAeV'As|9{ +2-z5)-WWA%~G1]* ޶& vPOLYR.FORN o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLM|I(PFdgl\6$^NS[͍G$$ {9خ-zLj ʁi+M㱓c*dq˦MH&:i5:I>tPvA Lj]Wo[m:ըހB9 W\<SY(Mmr_Ƞϝ+Jg rِܗz 8i-ꮫ7pR]3rِܗzZ\&|F}OCth.?=߃B9𓓄lHKIRM NҔjJ?mrCa;)թL8 ʁ!g/Ʈ$}})qpˆ }EPL[*;|)_^F;A qS}E8ZL^AV(tGK 4mWGۭ#&zY0N7.u*&[ӾK"I-[e`x\,ue*[B9u՛  qJ8Zt֔HuCY,R[zFPL[9FW=dCﮕ's[BW&i5A(}jbݾNrtxDg2" 9MA(ݡ')ɃPCӀߍĠPWBN~Α F9GBks*ѾϑкPnNR*4Z/LJV7_ssB_04ձh?HUh7#UAahNR*4Z/FbxlV~ {Y|o?9Y"I PߏѾqA(?P5U}%F>GBks*7#UAjsR 5<6w')PCnONR*4Z;'5WA(H ̹ՑP;9P;'9hOU ?9IhǶ 3C̹b?lsp9s]+uuPC~rR uӇk*^+Zy7Φ#;KF(zޕLK&^I;9v&RMS.FOR7 o !"#$%&'()*+,-./0123456`19\򹈓r R+N .\ID 311s'JW_s 9x]h@d'1Am+ܿ6 S &)9xBKƣi+a;H{Ԝq JI >?}EPL[*;|)_^F;A qS}E8ZL^AV(tGK 4mWGۭ#&zY0N7vvROOTD.FOR:  !o"#$%&'()*+,-./0123456789i)yzsPbh"jc05ɿ=|#8*4DJWha 4g؂fv0PG%HwC@gp7a6+nKG ;~yiΰcJ"Jl4s(¼ [kv pTi 8*OM 5_ufvI %':)!z!?iJ4ͬ/'l *JQPwSUwͬ/S"5F [94؄Q׉f֗4kAǦ Aƶ NUhf}i^N mM4m* 2=\9Sn4&بub+j {SU&Y_+*?&Y_+QP_4PL5t״SB8G5U%%GcmRB8G=U%%G6Uc %t״VTI CwM;%k6)6D%D]N |9 \kՏy抱*İ&hlTBv9`lTBtC ̥-~ƃŭ-~îVm]!?]UB|;%D;%iz!?iJQP觩*+c?'%6)QD yq"DQC ~ /a1nB~ a70x8Zi栄qŏ~?M44W|J(y|UB!r:X®*DLJt.%S~lK^ !CU ѡ4s(!piPBU%Df.-O~< Ֆ'?ZZ Kju-useɏs.k%DZRB=ǶK=jnz<h+\x?Qd]PM44WN/{xKOu 8ԐOJDݢB(QUI`Dr7|^3lGxqG̮C0b;8#e_ & Hp?*yiΰpY3¼hk _lnuEklQIyEkĶemΰ4{3 &0/ QIha 7@3;0f^lڀG%~Tiyiΰⴹ{^#=pGJD0܏J" iaB"5F [0܏JӰ*y0s(*CƖPFh&%iXD2=k׬3B_4cHצںB"5F [aax8*lMv^C .?hwCHWha `0"kmG%yx3@w7DQI4sLBLl+8`w0wCk/p?* y rΐw9C@D0܏J" $> JWha b3l!JJ(r^-1ucP9ԍ-*!nV MJ3p9s]+uuPC~rR uӇk*^+Zy7Φ#;KF(zޕLK&^I;9v3ROOTS.FOR7  !o"#$%&'()*+,-./0123456i4lv2ZH-ڙOkwfxlB<`z5=?|F4* 3p CelW68]pWi3` W=kg` .`ao 앁_!DJ޻2{l67]f^pB骂7]xo\=5R,*,CJd*D.l>wVi*02$BKޛKg !g##-!lB{o.MVviW,L wg޿A[V{o.MV7+ ܙv$pwdeQٴmu[yW G;-lda*\ .{slY~|`U,Y w+@JKvU !Q%nHTwɎ㪂,CJ?JVA s!6;yv t4vƪlg8*8#B :`;cUDc]rUЅ8On?Φ[VR T2:zs!62%dЧ!1\yͥu34I[ -*'OR 6m;ːR)Y&XDJ*xxgQA  $G-Y&XDJ*T \:etFG*2EWDTD3yaoΑ iK& .9GY5%疬4#)2i&zrh4*OC8b/fbe4*ƌ)9<9Gc^s02$lRA }2fd8B]rY{! *qUQoyiΰpY3¼hk _lnuEklQIyEkĶemΰ4{3 &0/ vSIMEQU.FOR< o !"#$%&'()*+,-./0123456789:;_b䋋rMSDnT/hQ)!MS@eLk{Ȅ$Mk'[[ RΗwr ZTJٻq|hQ)e [ R>8_NТRw(wEhp>ZTJ [Nx'흈wBvk4ТR|i8AJ);;NТR쾊 XEmFS'mFQ.3,h>C\ (pDn|.H2!^F U8hꄾhMS!/词ZTJ|p10c*UXo5H2٦P 7׻ eP#dˆ ZWa* `F5}*+zU/r\c*U!y_R(5OY䭡k[ck?Ϩwk(6WˢEj3p<5tgm!: aF]" 9\ʙ9 6[3F}O5(d\_3QB^ˀ&L?YxJ~QkmDi Ѥ˜Z-S!C^{܊5DC^{Cq+Q ǭ,okm&¡Pڊ5DGsxObks[Y~}!=nLC塬!: a!YV&c~]>cXC(x)Pb=ne!ӯ1䵹ǭXjPy(kH CYI CYCGa(y=%?Xsg¡PԘR|ƚ?qUQoyiΰpY3¼hk _lnuEklQIyEkĶemΰ4{3 &0/ vSSORTI.FOR= o !"#$%&'()*+,-./0123456789:;<nNtAXʢv2ޠR;U_#Ǿn5nSX6.A@B"Qt :Qt zT֪ٙĨ*nE2(}]UĹ==2Ϩ0.A U{v*1qB%Qt z Q;WA>.A4Htf=Olwߣ0 Eo-\TZAo^tq•ŵ-x͕o6.A^Z+u[1Za .peq} Ei]4-U{v*1* jqvQ4h9SLBAoN?~dCMVojR7}8u9ƽ Z;n/X3.r=&^4h9)Ѡ׹y9zEA27E^4hSkPCcSCbDo` S ԽQChЦ0F aAu ¼5(,8eSiUeѠ7$5] Ahض..Ao]m90ڒ+ekIjbg=&^4h9_/MqSAsr w/M|AZ;5)F֠ʢA7js ب!LQ4hSCbAZCw"7s]|eSiUeѠ7$5] AEǶuI4ht-/\_3QB^ˀ&L?YxJ~QkmDv2SORTR.FOR< o !"#$%&'()*+,-./0123456789:;\Ht@_&!+赕Q)O4eE+zM ۢÝMؔ C1s$dZ5!32ڸʜxjKk_єѸ\>и@BCF:dH+I zp*S#}WF/W6PY7Ř= YA/eNlᜆMX p ƽ؞A1 2M^l V}禁{='!+76sC-}cXƽ؞naqӸ3HLBV2 Y [5!32ڸʜx!A),[P^Hnϟ!kWfU.{X5?&!A{؜2'6;=fE!S%SAHtBAb֣tXlF0{ Z!]óFntt⻧C؜[3cV )E!%ު:䞅_/B9;zVH1 d!+oͨ0|+7ȵAe谰[.>">u}^Og+dAb֣tXlFaatBBntt-^HatBasn=Z?<$YA+_QAoUerBvٯ!A{؜f=DYA+oQHnX& 9/EǶuI4ht-/\_3QB^ˀ&L?YxJ~QkmDvRTRAPEV.FOR< o !"#$%&'()*+,-./0123456789:;3Ak ŕO6r_T>RLC&fis:N1:N1gx7U*2~_pGdsq8uq8;,lӊ-Yd2e22'@q8j=ZO !JuЯ;{PxAA)zL`:=z< C~˂ V*R ys10 w4P0 Tsq8uq8ñ0bm7L;Sʃ\wFT} Ѝc( mKvA&ÃŰ_Б:So{ Ѝ_RO?1@7,t/o3U^oք}WO%M,K/tua߯б$2eŲVe<7XL j~t Vem]/Lt#Ë5S1@7'ËİBGtcZcwCq+Q ǭ,okm&¡Pڊ5DGsxObks[Y~}!=nLCvTRAPOD.FOR; o !"#$%&'()*+,-./0123456789:D"N>w.OXħ]$GaWg_F{wI腎_L8*#~u6i l=V̬aG8T.<"iБFx :Ό]ha d:M -P|!ǎ{cZ@CQ@y` lWg)B@yB@*3Ir-C0z1Wc |iu6zx#1PaGwN T@I ³`Wg9'4B ũ ٯf0?G(P!ދS5_͆BCjI#"iH_@EṁWgАDՀ 4!ыd  ~u6C~  4^$ޣsU5tŇTt%e d:4l6"%#3Y$a~d_1Ҡ()c lWgE&gM=devXN g! 31X}9Q49ֵAm j*'.y H{I 1XqӺ"OWy$]Qe$;T@78z ,f`vy*MγG) 7,JPb~Ξ)-w1,e-嶗E/o] 0YeQrGG̮'\gK1p(4 C3@8dF@8d@h! 3iX 3@`pm zXtn  (Ff7XBb@V?X3@&aXҦp}\]>2à v*b@mu*o=' 83 $a `fc{U*u*o=' :ZX-@ E",L`ȋ3j3j E",\`6`6pU@",`! f* r*V jP3j:X 2"@\`066pU",h! *ƀ 1 b Ug8E5TcD8eEX\V" E6lD8i6p6p4`pm%m ے! *Āj?8F"l;`"ͫͺ"Ϳ "ͼ "ͥ@BLͣͼ"lͦBT.DX,u@BX`CF`C Bp  d"b XDXxR)&udEX*`mdmBmjbmmmmb`XYCC(UTClC<CU"bXYCUUbcV.ueC@9@qXF@X* 2bXY C U Ubc@V.ueT@9@DXW@X*Xfc{='UC CC@ Ct C C@\ C C C C C C4 C CL Cd C UnV uҧʷ * Ty\ Vf1 af۰6>2à v1b`Pm<mmm$m9h! ږ! U| C\U@CUU@CU UUCHO݄ 6̂i6 6ɂ 6ׂm#6ڂ 6݂LjAXpA9(sA7t8vAX#3byYPB%3n 3k 3o( 3h(3h@( 3l 3hp(3h(3h(!3i0(%3i`(3i(!3lh %3i(3i(3j(u*o=' V?ȋ R~?",L`ȋ R~?",\`ȋ3j(3i(3j(:X 2"@\`0ȋ 6`6q6r0666rP6r06r60U",*V o(/3np+4`mb`XDYUbf V0faV,f@aJfQdfaVbfӐaV`f Q>fPadfaZf԰aPfa(fpa fpAV,f֐aV&udE9X[9hX5^Y`AX* jmmٰfmfmbXDYCCCoEYqXFe@Y*zN< fc{B3o E"udE`yX{AXH6pw-UB E!2"V `3i 3iH83ix8 3o 03k(8:X 2"L`0ȋ (6r66r6p6̃*=OIǕD2e (QhiqF1)ɉ* pd4 LD@J c S@b@3f|&j"et&FiA""d FB"!f)FH"rh:ё'(8:X 2"L`0ȋ (6r66r6pS5Dy=I1%E@X$pX4`h!` C@4(448ȘSIN2EC$DBG@ tTSD4y=I1%E@X$ H4 pX4h! 8* ! CC3i&P.@*)ђ 1p$L12D(Ș$SB2D(0$T12DD)ht NPD48y=I1%E@X$ H4 pX4h! 8* ! CCf0mm:d#(Q:2DT&"1Cm(p$L12D(0$SB2D(x$T12DD)t S E4y=I1%E@X$pX4 C3@ͣ C@4(4U @H 2\ c"` 02J# M 2P 8 D44y=I1%E@X$pX4 C3@ͣ ͡ @xd(LDbDQHcd1PHd(SS`COSHPTS T4y=I1%E@X$ H4 C3@V f0fѐfͥ` @d|)*FL@" bz<@ c 02P$  2n f 8PP T44y=I1%E@X$ H4 C3@V fͣ 8J20SQRTDy@A"ad4&FD"d*I@" :PP'PUS TDy=I1%E@ 4`h!` U@CA3@f0fI@8J20ɈALOG # 02У' P2>P&  j*)SDEDy=I1%E@X$p4`h!` C@4(#DE48DCOS2EC8$DUG@"" tQTSTD4y=I1%E@X$ H4 p4h!` 8* !` CC3i&Pf1TDDDSQRT2D8h$MU2E5XȰ$NU2EC8ɠ$DUG@*" JtQPTD48y=I1%E@X$ H4 p4h!` 8* !` CCf0mm:d &"1 "j*J0Bm(p$L32DX0$SU2DXx$T32DEYt QS TE4y=I1%E@X$p4 C 3@ͣ C@4(@A""*„Ĉ 2\ "` 02Jc# MV2Pf  8Q TD44y=I1%E@X$p4 C 3@ͣ ͡ @@2V&$@QHgdqPHd*SDCOSHQS TEDy=I1%E@X$ H4h!` B3@f0͠&͡Fͤ&ͥ`F8M2  dd""(LJ ' 02bUc) P2>c(` Vj)TS dD4y=I1%E@X$ H4 C 3@V f0#fѐ#fͥ` AX@2b#MEIR2 ! 5V2JUc& PjȈ*i)P dD44y=I1%E@X$ H4 C 3@V fFͣ F8J2  d"&'G*"d&C@"jdL)M"d P# =M"pUS dDDy=I1%E@ 4`h!` U@CA 3@f0fI@8J20  d"&'M # 02c' P2>Uc& VjȈ*)TPT44%9-fP5 ?1o+*Yy2\0y'q+d@* JLtD%02c' P2>Uc& VjȈ*)TPT44%9-fP5 ?1o+*Yy2\0y'q+d@* QRDE%c9@4T D(p K Wh?L.QP0*/M"`k @64 +#bd H~ U| f_jT_me?? 0ͭ!~kzð HCdI Hg=JQ HĊ))ј` H8 f_ 1986 2 9.43867 .587099 .967273 111.847 58.144 162.239 +* +" +:!|] PROGRAM DEMO03 DIMENSION X(999),Y(999) WRITE (1,100) 100 FORMAT(' EXPONENTIAL REGRESSION DEMO') 110 WRITE (1,120) 120 FORMAT(' NUMBER OF POINTS (MAX999) = ') READ (1,130)N 130 FORMAT(I4) WRITE (1,140) 140 FORMAT(' GENERATING Y(J)=1.234*EXP(0.0234*X(J))') DO 150 J=1,N X(J)=FLOAT(J) Y(J)=1.234*EXP(0.0234*X(J)) 150 CONTINUE WRITE (1,160) 160 FORMAT(' PERFORMING EXPONENTIAL REGRESSION.....') C---------------------------------- CALL EXPOR (X,Y,N,A,B,RSQR) C---------------------------------- WRITE (1,170) 170 FORMAT(' Y = A*E^BX') WRITE (1,180)A,B,RSQR 180 FORMAT(' A=',F12.6,/,' B=',F12.6,/,' R=',F12.6) GO TO 110 END INCLUDE EXPOR.FOR  PROGRAM DEMO09 DIMENSION COEFF(10,11),SOLUN(10) WRITE (1,100) 100 FORMAT(' SIMULTANEOUS EQUATIONS DEMO') 110 WRITE (1,120) 120 FORMAT(' NUMBER OF EQUATIONS = ') READ (1,130)N 130 FORMAT(0P(I3)) NPO=N+1 DO 180 J=1,N WRITE (1,140) J 140 FORMAT(' EQUATION ',I2,/) DO 170 I=1,NPO WRITE (1,150)I 150 FORMAT('+',I3,'COEFF = ') C READ THE COEFFICIENTS IN ROW MAJOR FORM,LEFT TO RIGHT,COEFF(J,NPO) IS THE CON READ (1,160) COEFF(J,I) 160 FORMAT (E15.6) 170 CONTINUE 180 CONTINUE C---------------------------------- CALL SIMEQU (N,COEFF,SOLUN) C---------------------------------- DO 200 J=1,N WRITE (1,190) J,SOLUN(J) 190 FORMAT(1X,I3,'X = ',1P(E15.6)) 200 CONTINUE GO TO 110 END INCLUDE SIMEQU.FOR  PROGRAM DEMO10 DIMENSION A(20,20) WRITE (1,100) 100 FORMAT(' MATRIX INVERSION DEMO') 110 WRITE (1,120) 120 FORMAT(' NUMBER OF ROWS IN SQUARE MATRIX =') READ (1,130)N 130 FORMAT(I3) C C WHEN ENTERING DATA, BE SURE TO AVOID INTEGERS! (i.e. FOR 8, USE 8.0) C DO 170 J=1,N DO 160 K=1,N WRITE(1,140)J,K 140 FORMAT('+',' ROW ',I3,' COLUMN ',I3,' ') READ (1,150)A(J,K) 150 FORMAT(E15.6) 160 CONTINUE 170 CONTINUE C----------------------- CALL INVMAT(A,N) C----------------------- WRITE (1,180) 180 FORMAT(' INVERTED MATRIX:') DO 210 J=1,N DO 200 K=1,N WRITE (1,190) J,K,A(J,K) 190 FORMAT(' ROW ',I3,' COLUMN ',I3,E15.6) 200 CONTINUE 210 CONTINUE C GO TO 110 END INCLUDE INVMAT.FOR C INTEGER MAX/MIN SORT PROGRAM PROGRAM DEMO11 DIMENSION I(15000) 100 DO 110 J=1,15000 I(J)=J 110 CONTINUE I(14977)=17777 I(12777)=-1777 PAUSE WRITE (1,120) 120 FORMAT(' SEARCHING FOR MAX/MIN (15K INT NUMBERS).....') C---------------------------------- CALL MXMNI(I,15000,MAX,MIN) C---------------------------------- WRITE (1,130)MAX,MIN 130 FORMAT(1X,'MAX = ',I6,/,1X,'MIN = ',I6) GO TO 100 END INCLUDE MXMNI.FOR  C REAL MAX/MIN SORT PROGRAM PROGRAM DEMO12 DIMENSION R(7500) 100 DO 110 J=1,7500 R(J)=FLOAT(J) 110 CONTINUE R(4977)=17777.0 R(2777)=-1777.0 PAUSE WRITE (1,120) 120 FORMAT(' SEARCHING FOR MAX/MIN (7.5K (SP) NUMBERS).....') C----------------------------------- CALL MXMNR(R,7500,CMAX,CMIN) C----------------------------------- WRITE (1,130)CMAX,CMIN 130 FORMAT(1X,'MAX = ',G15.5,/,1X,'MIN = ',G15.5) GO TO 100 END INCLUDE MXMNR.FOR