Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!utgpu!water!watnot!watmath!clyde!rutgers!sri-unix!hplabs!cae780!amdcad!sun!imagen!atari-sources-request From: atari-sources-request@imagen.UUCP Newsgroups: comp.binaries.atari.st Subject: v00i004: bin:all:uue;arc Ratfor PREprocessor for Fortran Message-ID: <1021@imagen.UUCP> Date: Thu, 26-Mar-87 01:54:24 EST Article-I.D.: imagen.1021 Posted: Thu Mar 26 01:54:24 1987 Date-Received: Sat, 28-Mar-87 06:01:46 EST Sender: turner@imagen.UUCP Lines: 518 Approved: imagen!turner Submitted by: Ravi Subrahmanyan comp.binaries.atari.st: Volume 0, Issue 4 Archive-name: ratfor [Editor's note] I don't have a fortran compiler so i can only attest to the fact that this generates fortran code. Whether the code will compile correctly, perhaps some kind soul with a fortran compiler could try this and post the results =+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+= Hi Jim, I got quite a few requests for the Ratfor pgm, and I'm certain not one of those people know that it's a preprocessor for standard fortran. I should have been explicit - everyone thinks it's the da**ed language in all it's glory. Anyway, I'm going to post a whimper to the net, but I'm also sending it to you, in case you consider this sort of stuff is suitable for the binaries newsgroup. If you don't think so, please let me know and I'll send it off to the people who asked for it. Thanks, -ravi {ravi@mcnc.arpa} {seismo, decvax}!mcnc!ravi - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - The file has ratfor.doc and ratfor.ttp. The uuencoded file is 487 lines, 489 words, 30496 chars. long - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - begin 644 ratfor.arc M&@A2051&3U(N1$]#````>@<``'(.M+!9,P`.```,:`H(.F#`B";-B\N=/S#`B/;NB$P6,Ra MHU`%$<_HT#A@CE:@7A&$O7HV*$<%9@6.A30@C1D0*%S03<%68%`$=O'J'<`Wa M+AT09=C,<6KX[QTT:=@XS;NW+UJ4#^&4$6CY;^;-APV#J),ULN"]?XU2'K!Ca M<.O*C=.2J3FX<]HY5.F,08.W)YTR>!SRW0-B3%*G=L*PV<(B.9LN8\VV.5R;a M3!DS8>JPH1.=SG00??Z*>1AF#@HC8V2a M^-H^(-ADT$P-R?&&53()&"`)*!1X(`@DI/!7&&[DP515H[GQT!@'NI&&'F&(a M(9E;&#U6QD.6@4`2"!3F`8(1!=$1D'P,$;6008:5T4896;'`HAMDJ)@5<`ZIa MJ!2%&!'Y4$5IO"$?4YPM^08;=E`D)!TU47AE&6><"()S=93A0H!!6*8CCX>1a MA-%OT!0%K0K04AOI7"-&"1"U97H3[QKAT^6$NM:,F,627!G%HJ599*=43"&([FBO%7*\1L9:R:*:QUI.(RUH)0ZN8/.*QY<7'8NCW0&>V`9***.]MZU,DPBDWQ44DN]a M41/!%2)^G]35?C6%C!BRD=^)F^(EPF`B*'C"8"?P99Q\"1?G9,HA/QS&&`96a M!(+NZ>%[$Y"9.ASQG(@!J7*BU#N%);Y.R$;a MB9&X0H[!1AW6![H2U8LPZB>R">E>-$IK/N31T8V)4$U)%-$9!/&\L.;)'H/90]Ca MG*&<0,1]F:$C>6"C[L;PQH#L2&D&"X.+S!>&>R%-:3Z*FGY\I!DY-(D,<_!1a MMS+DOO!A9#=P'(,5+QD'&#*!X"&=(^7SC@')O[%+)9LX!E!a M(`)0!D247L)F58('"05H$27BU"8143`2/92!+]U$RC?EF,XSB&",7$R/&8F8a MS.1IR3=<\E*F`N(B0EF%1S$-9("3$),BL#1\$J)6,LKI\%,Ea M^7CS>?3$G:-\Y"2G^/(.!0E5@.PVO:0[L?/%?4D/VE0SH<>-K[3a MK5$,;20D-./HI2(\80J:G*#)*/<;I9S.3A@98#UUA9$60,((&$'4BI"BE(3Qa MB$5DZ%]7.I*;W:"@2W10`VG6@((4#`<;=B0O,DA(a M`0F@BPB&\`0G$&$I<@C3/0&;@,0L!JZ"):QAG[*I,BPVKL],*!!?C$\@_Z>3XSDA?!Da ML:,8RVX8;K0U7T_"5&'Z@D"_,3@Q#(2KXO^&.+;`[3!22ONPXF)7OBZ&L8QMa MX.$5@_A5OYWM<'N<6^,N%L@,QG",%:#?&Q39QDC&L6B%NV/;,ODA3FYQE.$Va M9?WBX,HL#G%SGQO=Z8+4NF$FKX5?+.43TP7-1[:5>=&KWCW?MP53?E5>_4P7a M5%&+;MDB]`"D12T:*#C(&,:!F&N"`OW*@`7ZK0&F,6R#35!,`S,B@*H+?4UE%,@*BH`&)("%C`<@!P?:,!5H!SN";HD2$a MLKH*\)K!)T3%OW]@S$D5D6!:OJ>X1@2#["+)BB027S08@6R@%D(O$+P`(`D0a MN4!3@OP(,*G9BP2:A9SYP0.`$B=!O)EEH&20&1!P!/P`X"370"26@OL`)+OXa M<4O+G0-`X@[+$T[.I!,@HAN`@N'2CT"A#8`);B=6_O%#<@T$`!!Y/#-2`L$,a M%1@Y/"N"Y08``C8NX*#L2(HP`(PBD$9S`PPF,G#J0Ia M&&!P^:*`+_+G7QLVC&!6AJ9T^&68/`R:IG=LXJEGF726J<4ICOX#A0Q&:J$(a M$L&4DP@(042SH`(@0##"CIK:ZEDR\KGJ+*P],N&.>^HYX843=:#WCS]"N/'Na MKPC0=X8$]$KABG\VXAB-O/XD!H,+[Q(8B%ED(`&$NNRZRT^2_DDG`#/6$6@@a M"$!$&*>F>8D*9Z;$*,@'0Y$`"G$D!\"`+!_(#!P,G\@(""a M?V!`\Q'#[::GC\H2^V/=Q__H8X8<<#``'H8X&$+%$TCK(W+2'WX$*FA*KHPAa M`0I8=[(^(`!RACEC!XOAQ-;U`+(_,A#L#[324JOQ0!QG.W8(0"(P<,$%(H+Qa MW0#D/;(^8$"0]LX$2(>#)]9!S(!V83^Q-Y`$G`'`/W[,G#30#A.-80Y>6"<%a M$$\/%/742/-S!@0J)YGNZ#S`Z3D_H*?'3[SJ_8JMMCNN`4R=6Y`#\7==2Q<`a M!$^\XYW;[_YXV!ET_.T/"'P,5)`,M14`A@!8(`$+%EU=0G!1&D011E41*@#S`\`9G%%&`*A!%4(P4AF$a M$*(TJ@$5;3P#-_+(#!&FT0TR%T_R!&Oa M?J`C1&[KASJ0("\^2,<""&@;$&9)R,/,4G,"\`8A`9"`69K!`;S\AQZD`P(Ta M."H`*EBF`9P)37E-$T,<<,(U*;!,!W`SFM\<"`HX`:I!]@&\@(8,'694K`F0:0#@FH(%X,`5.8[^VE=##`".NXEQSPE85\=SG1a M^F+(!);(KP,=/@,EQT(%S2QW2XV3'>\R]D[[84#0<(`8-;RC[U$<.-Wa MY1@!_0($"36@C*F55`!F8,`D`R8-$4*/'W_#G1?=A0?R$*+!`XD`"*!44A2%=N?/N"Ya MH?*"Q`#T\,PR4YB[.EBF`J29-8+Q(2#+1`&CMR0O/-ALF2E@-`%2^@\\E/G,a MUL%@I]U`"%'C`<4V]$6+<_`?.#`##%Y-'F0,.]8,*#8#<)#?&\F+V,G#a MD"R`JH-@3_F:#W/F#'O'RASVL#%]\2"?.U\;\T!`!Z*+OA`>-+G@@,:`'NX=X7Z?6[N#L08Q7P7/2ID0W"T&`S86"8+a M"L[L_JR@X'?M3PL*KM?^J*#@?>T/4.EQAL#VQP0%)VQ_^%#PP_8G!`7G,P!Za MX/!E?D'B+N#WFP<"\">45`%GX/`_FCJ00SN]/T??.`&$X`)_X"/2$J>TOB_=a MGQ1(?--NT#?%,03J)V!0WVQXK3W>;@]4-Q$>JYYR>N@`,0I(1P..B)R2**#Ta M?]!!.A&HM0*@IX\NWPL.(&!\-`^/(:OW_>^!C]/@L5WLQ.?7MD`:@-T'TH4`a M`R`%F]4\`/R.(<`+?O6%ISRM/X\C''4`9%_O#PBP-A!#3+[BJ`18WZ/I[\H3a M`4ZW_P<^K"/#a M#*H(O_?//Q!?0(!@^,`1"3&`C+4.)/TRYSUIPL^"[Z<8`%WP1!B">M818X(Da M:OS0!GK`?/WA?$Q$>DTP?>G&!'VG2,``#?O25E9D$>_F'6;P>8R7:P.@#\C$`IFTa M!5!0;"N`/AXX(F8```*P@.YC#U&8,5-H`CX$`*XW;VWXAH1#A1``!Z@#`'5"a M!N0@'0J0A&_SAX%8>>C&;OXP>@"X""T&>?-7?^FFAI="04_HACL$AT3$a M)GPX'""@@5%&(-%P"2#P`:,!`[5A!`02"::(BALXB%KX-HKV+F?P<'?F#V9@a M,J)(,Z3XBJFXBJT(C!MH=6!``=&D"RQ3.D_P9,EB!R"@/NZ@'D(@:;H0?B?Pa M#[M@!B[`3TI0;&V7C/R$9E*$(2+`>@JQ7R-B!`P0'P=@1FT@`=`G"A_W6DR0a MB:>#1"8`!-<0A]#G"^*((4`$)R8`"/@(!)XEA:_D#"($`P;9AOFXB7E8$E44a M@F72!<``!I3@*DH89="0A.D'!`'@!?W1#]30)VZ$/V4R1[(1D`.Q`F"07PSPa MA*H`#11D1V(&`/U`"EYB1F_@`YF(A_[8)A@R!$Y@'5,`DCV9DF]``339@S\Xa MA4+@(=Z0E&9$8DI`+R$"`8!`+]4X(K@$,HB#`6%(@5=8ALF6AOW@#G^C#^9Ra MA$3(:OX0E!(YE)AG84KB;A$#9W+6C&]C/:PF#^SA'Z]6;!C0@W5Ga M6TJ2`/]@#VD(`(2@E=D""(L9F;<8?I`IF1;P:M%D#Q.&F"!C#V!`%-T7F6;Pa MF4K239$YFG#R=&;054JR:'4G`>\7F?)7C)0(!@B@E0K`E5ZY,P%`+T'F*`.`a M;P"3FVXH9!M(9%,#/;DW(LHWF8Q@8WEY!4#`'^_R!E;P:M83D1A(F,78@4-6a M9'ZI?,L4`-^G!9?0AY@?LB&N4)a M)^=I9$""9"C@GS^X(`B`FT@0"%$6#&:A`-`0!!):4$]F@Z*@H@":(B4PF1C7a M'P*@'A4!``G5'_;)#_T!`++`.T/3FH9)FI$9?F$0F6U`3DJB!Y'I!A%",,UYa MHR<`!H>E)$%@I5B:(5O:I;H)"%\`!(D9?C!@I2P@`5[ZHE%F`!,*"T'P!AI`a MI[H)HP2C#\$PC?Q0HS=*H6()!EWY3D$VB5-CA?YA4Y^#(2O`#7`"/0$35AZZa MHOPBH(ZZ*`*@6HB`C9KIF``@`JHY$.R@9O/R3A9P(X/0H8`SGB(*FT\`"T.@a M.0&``R_(HBGR!68@!J`I+Z)I?+$))(,8$[6IF8JE)(RYF8^IFJRY)*%IJXD)a M!M+0J_PR,J9I(W4ZH)5'B=K:4!("=3.9ESV8H6X`AA=)#2TVKB+`J)%0*)\*a M*H)@@YO#6JDIF1Q0F%=XF,>*A>I0*"2&!N'G`YJI5TK"`YK95TIB2'476$H2a M`II)6$KB!9HYID/'K.%G`II)?@#`!ZI)`?ZZEP.1`0!PJ7^)KML),&[P?UTPa M#N^ZJ0`:A/22(H.H`G3)2`@R#;>R1CO;2#\;4A8"!#)@D/!G+O[Q#_(@EU;6a M>5N6GNXD?HU(#ES8B&K(`'9FBVHH`'J&M0$PG7X&MNZP3$.JBR#B/2.B/\8"a M#61HAB45`$D&`IM][0MV?XMW3K&?6Da M"WJK#(8;MRN2N!GB#&"@"7IK#H\+)'(;G,W"#LFB!WKK#IF+AISK&?20+%B@a MM_8PNILKN5J`.)OC:L;R,&<)MYI[%)*[!020+"1;)EM@`*R+NZ.DCOX@#\33a M5K7KM\)+/Q:@6F[KNV29O(>[O)KD`:KE"L2S0=(+N:6K22B@6HQ`/"H0O-V[a M!3*@6FI`/#1`OKG+`ZJ%!'"P`)@*F'HW$$MY1VV@`3*0A*C@LP-A!J!@G)%@a ME6Z$"F`PK9.#*#I0,8"`(\:YJ)V*(W)9;*2#E$"`J:+F#QDUKHW*FU/#:0$3a M2_6;$_S;C@'``JJ""L]WD?.P@_Q+.``\,/P""+DS$)(S,^2IBB/RBZ[,STP(F?@a M`5KY!E,L`$D\Q57\3G`@Q9BCE6X`!I8`QT8!`W<\='KL`%8L`$(`!*!B"$T,a MQEH9!W]L5'!<1"J@E6&@R83L!G^LE60@R%$\Q;M+`G#,!V:`+X3LQYJKE7)Pa M/U9@FSPCP+AE!@&^@`)S&#R`,!E6T3`0``%QAa M`18(72J"%,C'0N0P%OM=R,Z:(UH"N$WGXWH"6]WEG&SV_SX!:!;N==I+(`Y4O2a ME^Y-W^^BGX9W:?K]Y?W]WP%>:/*DB-QU02/>!JX0?@A^!@JN)`Q^!@Z>Y@-1a MP4\0Y'904LC0!B:>!1(HJ790)TS>DGAN;#$Y0%2NYWQ>Y,FB!),$VOX!`R,#a MW4.X.RX2UHJ-W>1-0:Q*S^\BXZ_$#34^BL"@XSSNXWD.Y!1$Y"###S884KZ8a MZCON1CV^@7H.,V\@`MZ(ZJJ.ZZQN9N28V4[9-3U(0IJ]X?X!V=']P3/.#34,a M`'%-`L%AVGI-+WW]3G]-39;@V6^]@2/`W?3CW6Q7[`'-"11NX:Y]A\"*[!DD_Z11K!$a MO^%>[7-]A6U'W,8NS?&!!`,Q1FW0C>9(`8*D3>_"!DZ)8[>B!JP`>5QI@^0`a M!P:01F,$`V(D"DO."I:]\C,/[YM.`AA4SO4R\S#=\PCP!D[C[MD]UZ/$!=]]a M\2,L\QM/\R>?\L'YD$]_.E&I*JP0A(;."BP#"`68\R/%0'`,N=?'6VK'IP!DH0?G>6_4(0?GZ6a M_3I@:.@VUV4"B-\-!SW`[A;_\<<(_HPVT5,GW&SWC;ZK`DO_\5]-]JQF`Y\Xa M'?*B:LHMY=&C)+_6B"9>12U6>#K`VV?H93(033JPC*9SP;=&JK]MJJC:W`-1a M1?16!1=\:_9:>#K`VT_@WKR#`\,633J@T`P-/3:P]].(`TH@:4)BXJ708H6Ga M`[Q]ABGP.FNMC`,85^EVW)0933K`VT_@WMX83:IV[FD6WKHOJ?7&]A?._FY?a M_V%(!M\=33JPC*9SP;=&JD("LJBJ`])&;U`97=7X#SJ`Z/^@`UHT'?*B`](!a MDS));U5PP;?&JKQ*,#C`G3;@!E`03:IV[FD6WKHOJ3C@Z8N"X>.EX7^#`]QIa M`VQPSBSP/7#P`NP^23@`!I#T;7L_C3B@!)(F)"BP]].(`Z'_#^/_S('MU2S`a M[I.$`V#`#&&(!L+=^]HNVF^3P1$1`(B@TS2]TOKET\"EJW"@TS2]TOKETT"Ba M%"."!3I-TRNM7SX-)%]E6_WQCA2@JSB@TS2]TOKETT#R5:V?TJ6%?1#0[_B[$[U[7M=Z2-#S(GMa M[B%NV$EH#WL[2D3@0:,#0O,F+_20AT'X^AXTa M.IH`)4O\-Z=K"K%CV\_@0:.C"3+):C*F7R/]9#W&#S^6(B"`8CW&#S^6(E]%a M:>K!4C9&03]F+SY(03^6(C#0!CA$03^6(CG@!B308_SP8RX*J.\BH]YAJ!.*a MJ2P(!K3P*S,Y,E!6S[UO8SC&HO;"`^.:(D'0!BF*8[XJ(5K@!OH+,`I2Z3C&a MHD%6^"`@`8!@@[@@ES:&8PO"`"X*HSC&HD&FIZNY^O5QSF',(OO)1@N3Z?(La M`>HASPR0\#C&HJS?8_QP@C(`,`K"+Y'`@K+?8_P`A$*(^K1KLFIH-%03ZS-8a MR6**,R_`.)+#,@R-(R+$:O:`T]B?=C7T\(<^#-*^!/*a ME9:M^+;VSN>Z)%70LH=$#**&#VS@`3+L`.D*,&_@@M6G^MBG`)G/E=JJ`$$8a M8\>SC!;,>%'&G?K`!C308_S`TQT`!8A/03PM`_*B#PKB'1`0"3VF#SRM?9')a M@IR&.,+`@PLSA&ZPE&?`#&Y0VVR!L30EK``!6\0(%X:D5!]*VM`#&T)"U#PLG7R!2DPLY$)!JCPa M-YH(U;>R!L3P-_@`"U#0!@0@!V%,R4'P-_9`Z@``2&QPSF%,R4``#$'@B%_Pa M`RUF\`,!2'?_-_3`G?;P!B[@T?1`!4&`52(0!/X+`&M`#!Y-#ZFQT[>R!L0Pa MTD=;^F"`#'^CB5!]*VM`#):>-']C#Q$)U;>R!L1@ZJA\,P0D3R;(+>R!L2@\,P0D5!]*VM`#%)MM%0/`(!D!4#P1QRP3#I@BTW3a M'_V'M==3)U]0!?7H#["&W/("\,H=M?-K)&?0V!\*U;>R!L2@!%#P.G7R!6H@a M@6*J\(W]H5!]*VM`#):N'E?[3'7R!7>,&`+@a MXK\RDRW=`J7R*S/9TBNPFM+/VWNM7]NN7SY]HG91)U^0#"WFE5#`7[RC!^A4a M9@L-)X/::.U]G.UU0/`(!D!7NO^]*1`)Q@['X-V,N^_P#`a MZ&W!U-W!AI0)U]`#RU&_M;!:O;`+*_$#%80!#M]*VM`#".-a MJR!L0PTD_&+*_$#%(0!#M]*VM`#"/->);M["!^0D9R!HW]a MH5!]*VM`#$H`!6;0^D9R!HW]H5!]*VM`#)9M]>.a MER8+`#:@`%,3AA5-[-2G'E4$,,[.]A?.[@K?V!\*U;>R!L30[2`^V/4?A@35a M=A+U+HAO)&?`#%9PP;CW-_A`Z@``2'$'`-CP-_%76IP(`&M`#']C#[``!6P`a M`PK?V!\*U;>R!L30[6SOU2S`[I-DFKCP-_%'5CU[*VM`#'^##Q$)U;>R!L0Pa MTE44!=`S=\3:!CP&?QZ>D)P(`&M`#-W.]A],K"#W-_@0D5!]*VM`#%)]P:4)a M*X"$H?*"#T0/!RS`[G^##\F"`>NN^W#``NP.]P!@`PHPV.X_(E@@:OH0$0$`a M!0K/#%9PP;CW-_A`Z@``2'$'`/IP]IH$\.>.ER8+`#:@`(ZM?!')LPER*VM`a M#'\3?Z7%B0"P!L0PTK`0!69`LJ/D!]_]-_@`!M\Y2H+PW7\3?Z7%B0"P!L30a M[6P_-6&H"&I_A3:@`%,3AH;PW7^##Q$)U;>R!L30[6Q_X>S^-_C@X0G)B0"Pa M!L30[2#NV,JG6O:@\(W]H5!]*VM`#)9].K``!7NL\(W]H5!]*VM`#-T.XH[=a M[!\N_)+-2J_$#`,!2,SR2LRPT[>R!L0PT@[/#-,.!TG`[G`?V.!.V;;Q3C!Ea MV41@R01@V:P&#^P!`N"@`N\D!$4@!$<``16`([514B"P%`Q@!,PT@Y$"!EUEa M!"I"`'H0Q@;``$9@;&8@`)$"`1V`([514C#0!H=E!`"0`VX@`3)@``2PSC``a M`P<@H]Y114'@`V;"#4I0!!\"`P=`!$#@`P5U`.8"`N#P#W@WA/'7'H"@`N_Da M`WDI!$$@`14``P>@IS-()4NL!!U@!N[P$>92-LK':O#`'C@`""[0-5!P"`QPa M")OS#^`@!KW'`(=P$#QB`"Y0)D?X`@<@'4N`!-8A)0P`"`">.6*@!!A"4[%La M`DT``@LP1&8"!4-D)DP`!B@``D9"4[#0"$<1!8T`!8=@`A6QNQ2``BY"4U&Pa M(4R@,Q*QCRG0!%=\`%&PXYJK`EUY`-#0"$-D)FZ``D`0!1O"!$)012FP!!)Aa M+C@`"/^`=T,(#^P!`\`@!(>`PPC`!8`P!8`@`&^#PKP0HF1@`%HS$-"0"H`IAL`-#0"$-D)DQ@(F#`!"!Pa M"%02C!+!PQ\`!F20"J9W`XI@a M'5)"P&!`!51B+C``#/^`=R/\$98][#>@"-;!:O'7'EW9-<$H$<-XBE*B!)5@a M!C5V!#!P!(0#!E9@+R0``P<@!4=P]69B!1U\[1->VAL(!98`)3T3'KE2"0TQa M``%@+F6C?*P6?]=`S2KP3BC0'PP@!$$@`8$$!!!0`7JZ(DK0`68`#Y4,!@H@a M!$$@`210R1!0`544!.9"S9`&SM>;$%@`K37'_)O#BSC#G`238HAWXBB**QF">SAD"W0'PS0a M.Q24+2@`!%@P,OP``1R`(SZ@7T!2`G:A!$>@.0,`;I%Z`(`")2P%>=`##W:_a MJO\`/>X``1R`(SZ@7T>@(@[`JO(``1R`(SY@)ELG+_+``$=04$D&!XCZ#_``a M`1R`(SZ@7T<``"I@!BB`,U0P,E`FVB###FRPAP'`^'_##D1PP2###A#``3CBa M`V;B$?)R$T=04&T@`@QP!`"0`X#DT>PP##,*`P=@J!,*/>P``1R`(SY@)B%Wa M!`#@`F;@!!#``3CB`_IU!`"@`JN),U0P,E`FVB#C#A#``3CB`V;B$?)2MD=0a M4&T@`@QP!`"0`X#DT>XP##,*`P=@J!,*/>X``1R`(SY@)B%W!`#`!KL(`1R`a M(SZ@7T?`(_?"`$<``&]0*@QP!`!0!TO!`$<``'BP(C!P``(`,M_@`^\ABK7Aa M!<-XBDA##U("`P>`/9X!`-RS)-\3/N-3/N>3/NLS(DZ`,U0P,E`FVB`C#J(Fa M#B7^-^)`!!<,,N*0^1H`#/0*`)**)`T@'3V@!7`B)>-$K^]!050P,OSPUY4$a M!P@`!NX`!Q``!NJ`,QX#,N*`!2/##U)`!("`-.*0^1H`#/3JAP2#a M)`T@'3V`#)]W/_3Z'A24,@T@'3V`#)\G)5@P,A4$`*0`!PC`4G```:>),]DBa M`HR#-.+0`F5J#E`P,@_3`)(JN@2#N00C#C]P`.&A!MV6+%"`,QZ#>RO2`ME#a M$/B@?%@P,CD#?TA##U*B!!UP+Z+F#FV`)@U01=O'G>[P!NHP!8W0S3A#!2,#a M91"0?.*@`=,H#@>,,RESA3G@#A"T.5C@.?20B@3##CS\`574"-"C#FRP=?*Ba M#HYO!A[P-^K`:>H`,_>B,I**=XBB*&`@#IY##[#0"&30KUUS,G@_,O30P8`"a M)6#`#8ZO.?R@#7^C#IRF#C"C.?S`#"HCJ7B'*(I22>;BD/]@":RV2^T!##Z0a ME_@O!"4``P<@`+=^&("`U;5Q!CQV``)PZX;Ba MD/\@#JP6?^T!""KP3E)0$0Q`])I!$4OB!%7$7;]9!5)0"95L(SZ@7T!2)1'2a M`@!@`3@B`'UC!MEZ`.92-LK':O%W#=2L`N^$`OW!&Q7@QB\0(15@Q(BB*)%Ba M7N9"S`A1H``2T``!:`(P+0-ZC6`'#0`"24*%`Ra M!17!`"6N&3]P`!3!U$Y015#BFR!0!5)0"3!P`%QI+F6C?*RV'NT!`"J0/68Ba M![O@0L)`!C*@!)6`8B!0!:$/`!:`(P)0T"$R'"]0`9)3;#^@""*F`H"PQ%C0a M"&!@#!]A+N@B9>$.,8!ME&GV#\,!,;"3E\7V`XH@8JQV5>T!#BK0'Q#@`X/'a M!P$@2#'&JF33'TJV+PR@`7LH!\F'#Q!0`#A24G*0A@$`\D8`!W>0?/CP*PR@a M`:3"`A!0`#A24F*0A@%@T$FC+_KU*PR@`:1B(P6`(R4E!FD8`![@I$IP!&Q@a M`1GLW,![A4G`"5#B`[9Q!&P`!!G\(0AX!C1`&P%@"\6&!`X`)3X``&U`6$:@a MQQKP`P<0'K[PJ,![A4G`"5#B`[9Q!$5J"PCX.M=.[:?P`P<@'4D`![93)1X`a M!QI`0JL3)5-2)4YS`.'A"VO%!R*T`4!B`:+FA;;?`OX!`)<"""N`.2H`""O0a M-T)0$0RP`ME#[3#D`"N0/=3.#DR]`4<``!=`)6!`!!!0`#A24G>P(OCJ#^8`a M`06`(R45!KO(@JI%#1!0`#A24BN`8GX:?X$``06`(WKZ(7P0JJ_%1H!@+B``a M#O_`^ZB_'NT!`"K0'Y+<-2H`""O0-RN0/0!0!):P)#+,`$0`!#L`)%K;!H`0a M`/K%!A"P`WSP!_^@7RN0/31A"4SMFRN0/31!SOC2`.:"+E*&^NO1'@"@`FHBa M!!6!^?]@+N@B9:B_'NT!`"J@)CO`!W_P#_H%`E4@!95P\X!@+N@B9:@??^T!a M""HP8ZW@'V;`!!#0`@!@`3@B`"?*C1#0`@!P`4:,(4D`!5/C`VJ$`+O@0MP0a MR[0A`!NX.D^P`GT3RRN0/0!0!!*P)"N0/0!0!/[`U-T%`2T``!:`(P)PHO:Na M!$>PQ[O@0MRPFBN0/0!`!$RP)"N0/0!@!.2,+RW`,R:P`MD#`$3`!$NR`MD#a M`$4@"TP-`2T``!=@Q!@B!((P-00"#:W@'RH`""N`.4)0$0Q@+F6C?*RV'M<`a M`("@1=1^"G`/`$D`!W"2EX``X`0P@Y7,5C!P``)PZXSA'BKP3IHA'4'`"Y'3`!2Q)$Y01=9A+N@B9:@??^T!"#[0-2J@)IHA'4'`a M"Y'3`#]P`!3!U$Y015!B+F6C?*RV'NT!`"J0/6;B"[O@0G)0!A*@!)7P92]0a M`=)AE-:1!8V0&.:"+E*&^O'7'H"@`HS:`@!@`3@B`+=[SH@!!)HA'4-`"];Aa M`P```2T``!=@Q!AR!+XP-4K0"OXQ)!#0`@!@`3@B`">:9"_0`B8+`(]3@"T`a M`$Y]`.92-LK':O'7'H"@`N\D!!7!`&VD!8(``2T``!:`(P(`)`6D!B!0`574a M"A+A`P#P!DEW`"_0`A(!`2T``!=@Q!C2!-@`)S)04`>@IZ^#0H)`(`RPXX(&a M`F;``DIP!&W@RBV0PSP@`-,!#*5XBK!0"4D&`BW@'RH`""N`.6!``"M0!1)1a MR;XY(0"PXQ80(N92-LK':NO1'@"@`N^D&=(Q!+00:LH&(B("`)[``!AB!.1La M)N[P3/DC'4-`"U_O&:+2`CG,`P(P']1`574"A)!(*,!`2T``!=@Q!B2!'`0FX``X`0P@R$"a M!@JP`E4@$4)0$0Q0R>:"+E(6[M(Q!.UUA4=@"N!.V7Y8)F'P@&92K'D.0G%2a M)F$P`QXT.B"T*".T@5PT[8H-!TQ`0E!@"-9!^_U1`.4L`7!/'`A@H@"0JRS`a M*,,!]\0A!GCI'W#@`R0$!880.1OX!`3`792\,$/H#8/)'&>@,G#``R0$!88`a M)SX``&P054?P#_UPI0QP!(?QLC]P`-+A!)@P-3Y@)C@034ARA4S@`\G6!B0@a M&RH#!SQ`0E!@"'#B`P``Z'!@!,/Q`P<@'4X@!IQU``0R[$]``-:AM(#P#Z?_a M1>MQ#0`@9%T#!T5`0E!@"-;A`P#`!A```P=`(,/^!`3`72(`]\2!`*@]*[#6a M-3]P`-+A!&+`60>@M("0+ID^F$+6-;&F`')@!*LA'5!@"%#B`[81,^%]A4Z`a M`*@]*Q:@V+&F`-+A!&)`?=[!5C!P``0R[$]``-:AM("0+HE]A4Z``"8*`$,Pa M@^A,R0N3V*VIV,<#!T)`0E!@")\W[$]``-;!:MXPF$*6ERJC_B0$!88`)SX`a M`&S`CD?P#_UPI0QP!(?QLC]P`-+A!)@P-3Y@)N,O+TARA4S@`\G6!B8`J=J\a M_AL(!88`)SX``(`.!T8P'#]P`-+A!&+`60=`(,/^!`1@'4H+"/]P^E\$#^P!a M`N``]\2!`"8*`$,PF=0@!$8@N610`CCB`P`@N61``K5GZWY"`E*24DM2I)8Pa M!4?`!FP`!U$P`3M"!B202CQ2`G]H[88B'5!@"%#B`P``4S!P``0R9O0ZX7=-a M_!L(!98`)<$Q`3M"!B0@N610`CCB`P`@N61``K5GZWY"`E("`T<0#Q8!%BX.;_1``1PZV1``A.P(V1`a M`A-P#'Y2`C!@`&"``L\"0EQ40)&>P=98,!@1P"`TQ`&$``@?``#LN:!A0!A!@`(?0a M$%4,`@?``#LN:!A`!MP``P>01F3`!S!P`'(0`.&0"BX0`$J`(62`![\!!QE`a M0E`@-:X]X;"V@5!@"-8Q1#R"!R!P`,"`(62`!^92-LK':O3`'B``#"K0'PP@a M`MG#(YW3!#ILO08``9$@!4@@!4D0!./'BI(X3a M*__P(;D&`I`/%P`0P#A@!0@#(``$B.%0#@D,(-'X%=2B!@04)]#`J(`#!8P)a M.$'`B(`S!(P')4?:.%"1IV`8,%."(E#2P0P^./_`+*UP!A^$"D@`,7%7,>+"a MA@\C3JQX,2-0H42-(E7*U"E4,`J44,4'`Z,"#5JY`O+*T"%$B10M8M3(T2-(a MD4I*GDRYTHY+F&D!')6`-=!&6$'.,)!KA@"<;C:E-`*C#D0#2``(2@;S0Z!Ja M)):H/`'CP$]/9GYR(O-3DQB<;5N[XOOJMZ`25QG90``QF`B@&`<#,`"0$$PT#`a M@05!(0T43ZA@W@'H!0"..N\!,1X20`@!!(3E(`("2BI))@@($&@#2'T`!!`%a M(%(8(8,!Y"1Q'D@?0!,$?`]&."$0_ZDF(($>EM@?>@`,8`8%*RK(X$``+"`<'M-5Q?(WQ3$!G(.!$$"$4!@"Q,Q1[+C!--,"LMa M3"*\D1$8!`SQ3D::P@"`"`$Q0$($0>AS73X%9<$($\8RT!`(VB(@`@3*24&ZZZ[9K"[P`R%M'MMMV^RT"X0)PKKX,`(R`$^P"X"X(`1!L<%B`B0M#a M#@6)@8@4S8JL!!"&`H`+B`"(H0B``&"!VJ)`F'9&0:((H5H8O*#`AU'`R'6&a M!`Q4`(`.FN6281C?D$$`!J"I(P0'0AO`0`='FV$/'#P$]$(#,-N@Z!.@PFDQa M"@2.$)UDO%1]==;V^&P4.$(3;332#"AMU#].0TW:U&YCK8/62H`L&3AG8,"Ra M&*X5%(4["7T-\^,);24N7V!!Q,]8`*A@Z%1G2"&Y:F(G-,':(P4.@`M:CUY0a MZ4],`<3I(6^@.NOVN`X`[++3WK(&J@]NC]"B@TWZV+Z+`<+MK1O_^MB]H_X!a M\[D[OSOTLZ/^$U56"TXX51KH#GOR(@3__1D4B#]V,%]"%[(AP0'P#S^!%O3"a M8#!/@=`39D]A1T*!FM_D*`""SW$(-3OC10LFA]H`9%A#Z!/I0,TN":UUA:4HEV=&TZK,L_]($%(`SSa MFP>`D$+_U`,^'$`6_Z#'#PI:3]58P1>RJ:`!8&`?-W"+J@%HPU#EH5-]P,*!a M\BB#`Z3@0'KH5!Z1<*`^P*`,G=*#5LQ\J39FX(Z='LL;=/W3L;BQU*3"[*E1a M!<(9/-,!1<*!`\G;0Q!#IH==9$B#9,``99!@F8)Z-0AE8,!5LI+6G8H&##=La M``&N*`8]O!0;794"$%YJ#7@Z"QKQ^P<[`KBY:P!`,+L,*C`"P8\'@`)"%73!a M1D#%VP"@!KB"YWFZE,`AG4`&4_a M=BQL8(95`"`%@$,F8,L8C@P&#H(9<+`X#6B4`PDICR]J:`W-;/A8UF`#'*P+a M!C@)KONN*T`NPN1'E($&)[+"`0F)8"La MS,<,"!ASB+("!B9(8%(!H#&145-#;KBH/$HPPAL@`)0W$.`+1P`#/KQPA"D8a MP0UK!0$,:HB-^996`O>US`$PTT]"@\$<@"Y1&_2QD>``PZ]<3NI$<```$S1+a M"X0`P0+.X`(5;,%F*$#!YR30`]\I70!AV#E*C(`#>YG9`(*`&`GS;"(0(a M=\6R8`LE$(+>!.-`M.M%[84UK-O:%@3$%#YNC)TA+N8F`"5\)0"--00J2A"$a M&0P`!X%`0QR(&(&LP>,!`&4XO(',H'D`^)<'!IK[#H0!`#D<'CES.+P7`%"'a MPR(<'\MGQ]P.(5[P`T`)JC@:"-+"!#64X0QC80"\XT"$-;W`#"%K0`A`4a M1`?E/W_Z02"',L2A#FFH_QQ`$`;UAT$.9U`';5`&;D`'Z]=^QS)W!@``:<`+5-_8;`&F`0`;E`&>$`'!:$``&`&;V!Za M"%!Z90`'91`&)E@PK%>`W@<`#0```&_B4!`&`!?S<`6^`(!;$%G3"&HC"&a MJS"&LS"&O#"&PS"&A0<`6S`-8Y@-8_@-68`-!0$&'+"'(;"'*["'X@(`8'`#a M>S@F8!`$>V@$92`'`;)"%9>!^W:=^#&@&*.`";O`&=(`163@&;%`'a M9)!Y9E`';C`&\F!^a M11`[`3$$:.`&.O`&.F`#.G"!0^@&)V"`=X"%=%"))3`'*%@'-a M(+`%+3`$72".:(`'Y=@"Y.<&Z=B+K@A^Z6@#Z!B.[U@&+@!X78""IC<&_=>)a M!NB!9``"UXB"W@=^XD=^_#B!]&(&(-"*2]B$H/A]X3=^(%`&$FB/5A@&8[`&a M]&('C6@&;/`&=W")(``'_S>!<&/?F30:F%)?E_!$@':%`&0;E_60@"a M8Y!^9-"#Z*>4-6B398"3.OD$/%F#8C!^_3<&.?F422F55$F5&-&);M`"XP<'a M:-!_`MB(:3`&!10&`X@1K9B%7#E_=/`&O1B26KB40"F46/D&;=`&P7B5@3F"a M@)F$@KF*(%"8AYE^K`8`/KF83MF2+\F6!(@1W4@'K=A]^Y>5;G"*$T@&BMF4a M0WF*J8B9;N"7&!F*HUB*^S>"8`1^]A_T5A^!'B)HDB*a M&/F9L@D"]^>)&%F8:]"8"5=RF3."D'^P<'VCB5`7F6&ZF2a M$TE^,1F#:^">!UE`)/B)GLF4C%F41PF57IF%=C!^:1"0*B@'6,D&2SB!&%&@a M!YJ@E;B=G(D1=_!_;B"4\`<';["88@!^1!D&8F"1C=F:DZB*L-)&FD'?JA;(`1.]B#/YB9'LJA;^"1<@"2(@F8=0`'(RJ#a ME2BE"$JE8DJF>VFF6$F$E9BF%DF?%"FE-"32IH&9%J)2=J$5JE^a M5^J#:``"OVFF`UB`&%&3>'"3P`D".UFB3IF5B!FE<$HO!AJHDNBA<\JB+CJ@a M;ZJ0`"*X@1+G`&^+F+A0D"OFI_Q-J-Q`I^Q-I_L/EW"R`$81"0&)J%U6B@5VD&a M]6>/#8""D#!MI$>(W+"']O!W5"`$Y2H$[`"!D#`![%H0[IH`X@4)$C"O`."Na M"]!X%O,&=0`";:"-!IB5;0`'&@@"J'JH;KE^#`F2W.A^R:J;T%F2*$H'FI@"a M(`"F,LB8V[O`)@!``%^`'(0($7#"T9Y`.0XL:R!`BN+!X@!<&MM`:a M@->"D%``1]`$5/!W/=`"P1JL-*`#8.L"80L#.B`#RU@70"H_/>*V$-AX00!Xa M(#"W`P`"1$`$>$L$.I"W?:NW1``)!(""4X"*39!^5)"+5Y"35(`&=6`$6#@%a M,@@`2M!_C"@&3?!_00`':`$J`BZ;!`$=7`&4_""3Z"*3M"E1!"6!?$!a M'/`!'B"['T"[LULF!4$%2=`$1:`%"D&+68L$(G`B#L`"#(``"L``%)"\1&,`a M$'"\!I"\"N``AX0`T&L`"'`DR(L!SCLKVS$('"\$$`"/N`!'B`#.*``?*<`:B`(!.0#).`")"`"24P"a M7,"];6PU)J`$TVO&#D#&C"S&CDR]CQS&D#S)DBS)'/"]#&`"%6S`#*P"&A``a M3J`!)*`&$*`!',`*"IR]"PQXRDO`4,P`'E`F_DL!!7PD#@!IU\L`&J`#L:Q9a M_HL`%+#(&`S%,D`"Y`#2"`%&"`$%B8$)(`"2B`!1A#%%.`'/F`#!H`")H`!EB`"a MP>P!]L4""&"`"L`'R+S(&A#-:48#/.`")G"_-"`!'H`"*@`!7"`!`XR](U<+B`&'5P`_@L)#D`!!)"U#D`+4WY(4VY]@@L/!$``5D``%@#Fa M""$%%1@`$!``*"@N@$<-6?!W"H`@&D+[H`P`%C?X&;-#GU!KL*M"`a MNPCL7V@)B'J%8P`'>9#J7\@#.0"96`A8F:a M'C_J(@`%J!GU\%X&4_^%)O`$7W"B`D^`6P]X)B!A8Z"B6J_T!S\`Y*#PCR@'a MK_Z%,)`"#9B5I5CQ#)OU>I!^:0\)'_^%O!`&T]B#?:_I@(<-30"`O-CP7P@&a M6P`'8G"B<0]XC(`!7T\':Q"4-.KQT(X+'HI^\++#!^U8ZC%<\$"3`']6=^C`]X_*`%)&_W?;_T@.<$'.#N`C_N?][X*Q#Sa MVW[\@"<%(O"3X!<&XAZ#0"#B'[]7S@Q'?]WRON%a M5-#H]1?V23^NH\X%/W":Y=_R7X@##-"#MF[RW+`"JFCZ)@]ZEQF@YCGV`X`:a M!7"6;E_Q$)`"=G#[.P\)%?V%!+`%,2_Y2C_J%C`"#J2C_J1(`!a M$T@'&3_Y`T`!41"2_-B$68_HSON%!#`%S(Z;H:_V7R@$5%F@^`YX]J`%99"Aa MH4^MT(X&TVZ>)@\+'T""/6CR4'`$7U\&&.O]X&_]HRX&3F`'\?F!H0[M[,#[a M8RH#)N\.2/!]6VD'U_Z%W(`%N6KR/L`$&*B!+`_\`\`)*&`&HIBAOS_J3C`$a MWU=_K`()D?Z%5I`%8E`'9H#H1?.%H&`&.UB8<)#I:\\,9V`'!8KO@*@U>CO!)`!ME\&.P\)"P#MKM:-a M;4#RH:_THX[R*E\&U?@&9C#V`V`)13")(ZB*!O^%SG`&.-_J%*_THRX+15"@a MI0@'!O^%W'`&I9KI:^\-9X#SK<[RP#\`_E`$K:F!H:_V7X@X=@"%^`YX,K`%a ME[^5[:_H7R@,8`"%K*_THPX+(T"`=I!_Z2?OT$X(6L`&\',.")4RD'+`_\4Q0"a M9^`&8H"=%0\"$6`'L6\'U_Z%I@`%<\"YVFH&\C[JLI`#;G/^%-<'La MN)GI:R\.9S`':P#Y;+`&%>\(&G#I9[D&%8\,&&`&()F>%4\+0Q#S<`#I:R\*a M:6`'M_KKN`[M%K`%)[J-'BGOHSXKITF`=E#Q,V,')(_HYP]XSJ`%X(<'B([La M5VL!$E\&F,[\`Z`#/D`&8XKHR`YXEH`$7X!^'MG_U0^DT`X&&FF+Z:[TT,X%a M6V`'BAYE?]B;[VIH!^YO=_9V#P7T@*:G#Y_[?S])^UIXF=%2\"#D#P66CMa MB0[MBJ`%&8_VH0[MP*"1'KCSD&#X`^``2&`'&*B!H0[MY*`%[@ZGN3\`&+`%a M=B#YU`KM/+`%,4\''EKQ2C`"))^K%<\)'-"(F`$a M8@`'B-X`:X\*:L#L?@D'F;[VJJ`&=F"DN3\`'O#X%VL&%0\(.7":!%_Q9WZ1a M9;`&DS\`<)`$,2\&=6`&!O^%K*`&HIBAA8_]1X"*B;H&%6\))F`'##Y`V`+-O`%)-B#DS\`IG`$!?J;:V#Pa M7X@/:L"Y;W`&:._Q:P\,:Q"3:^`&)5CQ&+`!,4_R[0_\`T`!(G"B8W"P%4\`a M.6`'6VD'YC_JC+#LESGY`\`+01"2;[`&8UKQ_C#LG,KY7X@"CW^2A3_J_0&0a M)@_:$WB1N3\`UJ`%!-^(U9_HT(X($&_I$U@&:R#OH\X-1K"#B;H&!O^%Q)#Ya M=/!_=-#OU0?M;+`%OY@'B/N3]%6P`:`*&`,YXB"IM/a 9``M#H#D!@`,OR*(I\@5F(`:@*2^B:7RQ"2`$a `a end