F4UD.MC., 2=/ / F4UD.MC / / COMMAND FILE TO INSTALL FORTRAN 4 REV 5.20 UPDATE 2 / MESSAGE The new version of FIV.SV has already been loaded. MESSAGE Updating FORT1.LB. LFE R FORT1.LB/I TEMP.LB/O I<,> FREAD<,> FFILE<,> FOPEN<,> DELETE FORT1.LB RENAME TEMP.LB FORT1&.LB MESSAGE Updating FORT3.LB. LFE R FORT3.LB/I TEMP.LB/O FLINK<,> DELETE FORT3.LB RENAME TEMP.LB FORT3.LB MESSAGE Deleting .RB's. DELETE FFILE.RB FLINK.RB FOPEN.RB FREAD.RB I.RB MESSAGE Update 2 completed. F4UPDATE02.DC F4UPDATE02.DC Update 02 of FORTRAN 4 Rev 05.20 fixes the following compiler bugs: 1) Long strings containing "" at the end tended to cause problems at compile time when the "" was broken by a Carriage Return. 2) FORMAT statiwements did not compile correctly when the comma was omitted between an E, D, or G edit descriptor which has zero for the significant digits count (d in Fw.d), and a (double or single) quoted hollerith string. 3) The compiler trapped when u`processing certain combinations of syntax errors. These Runtime bugs have also been fixed: 1) Maximum length records (132 chars) could not be written to a file. 2) Floating point output tended to be inaccurate and/or contain garbage characters. 3) Positive scale factors applied to E-type edit descriptors caused incorrect rounding to occur. 4) Incorrect record length in FOPEN. 5) Runtime did not handle stack overflow properly. 6) ENDFILE did not close the file. ***T:***************** The following are known problems which are still outstanding: 1) Use of /F switch may cause undefined symbols to be generated. 2) Assembler code immediately following a FORMAT statement can never be executed. 3) Code generation problem related to the use of DOUBLE PRECISION COMPLEX FUNCTION names. The following restriction falls into the category of a documentation change: If an EQUIVALENCE statement extends a COMMON block, that EQUIVALENCE statement mustz follow all COMMON statements involved in the extension. ******************** Note that FORTRAN 4 REV 05.20 Update 01 applied only to FORTRAN 4 running under AOS. There was no corresponding update for FORTRAN 4 running under RDOS and related operatin]g systems. To install this update, you must load the appropriate information from the update media using the CLI LOAD/V/R command. Once the necessary files have been loaded, enter the following command line: F4UD The information is organized as )$follows: For Eclipse Hardware Floating Point Fortran IV Mag Tape File 0 -- This file, F4UD.MC File 1 -- Runtime: ECLIPSE hardware floating point version File 2 -- RDOS Compiler: ECLIPSE hardware floating point File 3 -- SOS Compiler: ECLIPSE hardqware floating point Diskette File 0 -- This file, F4UD.MC File 1 -- Runtime: ECLIPSE hardware floating point version File 2 -- RDOS Compiler: ECLIPSE hardware floating point File 3 -- SOS Compiler: ECLIPSE hardware floating point Cassette File 0 -- bNThis file, F4UD.MC File 1 -- Runtime: ECLIPSE hardware floating point version File 2 -- RDOS Compiler: ECLIPSE hardware floating point File 3 -- SOS Compiler: ECLIPSE hardware floating point Paper Tape Tape 0 -- This file, F4UD.MC Tape 1 -- Runtime: [ECLIPSE hardware floating point version Tape 2 -- RDOS Compiler: ECLIPSE hardware floating point Tape 3 -- SOS Compiler: ECLIPSE hardware floating point For Eclipse Software Floating Point Fortran IV Mag Tape File 0 -- This file, F4UD.MC File 1 --Ji Runtime: ECLIPSE software floating point version File 2 -- RDOS Compiler: ECLIPSE software floating point File 3 -- SOS Compiler: ECLIPSE software floating point Diskette File 0 -- This file, F4UD.MC File 1 -- Runtime: ECLIPSE software floating poin t version File 2 -- RDOS Compiler: ECLIPSE software floating point File 3 -- SOS Compiler: ECLIPSE software floating point Cassette File 0 -- This file, F4UD.MC File 1 -- Runtime: ECLIPSE software floating point version File 2 -- RDOS Compiler: ECLIPSE software floating point File 3 -- SOS Compiler: ECLIPSE software floating point Paper Tape Tape 0 -- This file, F4UD.MC Tape 1 -- Runtime: ECLIPSE software floating point version Tape 2 -- RDOS Compiler: ECLIPSE software floating point Tape 3 -- SO^S Compiler: ECLIPSE software floating point For Nova Hardware Floating Point Fortran IV Mag Tape File 0 -- This file, F4UD.MC File 1 -- Runtime: NOVA hardware floating point version File 2 -- RDOS Compiler: NOVA hardware floating point File 3 -- SOS Compiler: NOVA hardware floating point Diskette File 0 -- This file, F4UD.MC File 1 -- Runtime: NOVA hardware floating point version File 2 -- RDOS Compiler: NOVA hardware floating point File 3 -- SOS Compiler: NOVA hardware floating point Casse@tte File 0 -- This file, F4UD.MC File 1 -- Runtime: NOVA hardware floating point version File 2 -- RDOS Compiler: NOVA hardware floating point File 3 -- SOS Compiler: NOVA hardware floating point Paper Tape Tape 0 -- This file, F4UD.MC Tape 1 -- Runtime: NOVA hardware floating point version Tape 2 -- RDOS Compiler: NOVA hardware floating point Tape 3 -- SOS Compiler: NOVA hardware floating point For Nova Software Floating Point Fortran IV Mag Tape File 0 -- This file, F4UD.MC File 1 -- Runtinme: NOVA Software floating point version File 2 -- RDOS Compiler: NOVA Software floating point File 3 -- SOS Compiler: NOVA Software floating point Diskette File 0 -- This file, F4UD.MC File 1 -- Runtime: NOVA Software floating point version File 2 -&- RDOS Compiler: NOVA Software floating point File 3 -- SOS Compiler: NOVA Software floating point FILE 4 -- DOS 8 & 12K COMPILER Cassette File 0 -- This file, F4UD.MC File 1 -- Runtime: NOVA Software floating point version File 2 -- RDOS Compiler: N OVA Software floating point File 3 -- SOS Compiler: NOVA Software floating point Paper Tape Tape 0 -- This file, F4UD.MC Tape 1 -- Runtime: NOVA Software floating point version Tape 2 -- RDOS Compiler: NOVA Software floating point Tape 3 -- SOS CompilJer: NOVA Software floating point Tape 4 -- 8K NOVA Stand-alone Compiler FFILE.RB%%u)foPޏfnaNQꃅ#xD'$L.KP 7 %K+X$$?@   ?'D$$;3 ?;#K) ?GJf*Y )  If fpoh)h _FLINK.RB%%% gz$IH =F:/*;N9ThNohhmh9 fp 8 qH`b#K]GK$@6*/:FX$$T0Z; Z[ހ;Z SD$$JBJ@J; !:^S= 1DĒ$ PE)0H 83*" X8$*T0Z<T0Z3/9;D$$ 808;X&!@##+3D'bF8")H: :X(D8?TP9X [J I DbHm8aat' _FOPEN.RB%%&IhN@ hN5uNÎDĒ$. CC # '1 )#D$$h 'CKKK D$8{ 3!Y B )\ltf!oh"_xfp _FREAD.RB%%&^oh8$RA<FDPnODiboh8 ``Llll%,P??飲?죙CCI=b#qNQRPCU8$v DDDo!P  D$$cPCKS!PCCU!`ZCM!PD$$~CN!`CH!CCCCCCCD$$*CCCCC;!CPCC2S "D$$U8C'C 3 %)" D$юFPҐS# + +3  SD$$EZT"' )9+K 1D$$%b Yn$II$p8` $3 #C#%D&$D~d#  C!C# D$$0K 1# N1+"\mD&$ "KS C3"KP%( C32IGEDFHE(:=GO5AP9LS(HE( :,/Z! )HE(e6H XaT<"'H$$+H# 1# .#++)DD0e)&3S#)3 ++D$$T3#PSP6SP3D'(hX ;  7 4 # D$$+# 3 3 3!D$'B(&+ ! !  #D$$4#C N1 3$EH$BsDT#C G# G$$iPـ 0+ J#+,nP$$Y^ 3""&)&B3")ـX$$єl G+`P2` 3" "D$$1z*'G+#KD$$T,3*K1B)F;$J  \)83;"D$a/B843D8D #C3 (/:#3 D$$#C n# k#Z+ G$)G C#Z+ ) #3 DG$CS 3+ JD$$#B3CSK 3 D8$"C #+D|$$O 3#  PD$$C #3# G$$1"   "G$$2}0 w!C#C+#D$$K>3J# 3C#D$$5L+P ]3#P TD'TeZS#)Z3 CL3#  D$$dOhS#)Z3 C ) D$$tv3Ҽ1ş+P1 .3)J D'^S#)Z3 C)#P D8$ۀ# # 1 1D$8J  1 G FD$$yLT 3# 3#S)Z3PĒĢ Z+ )? ) C'D$hC3 CPC+t 7"D'$m) \!S *3J+JRD$D3C "GVD$'3B3" +3 C5!Db'$Ǘ3Yb "/DOP3 "bG$$c/4Jʠ3"D$';C3 C3 C D8$, )3ΏK ;+J3 D;$:C C3  C")K1D$$H"C1"C3#)J PҠSD$D V X,  w#P+ D'9d-CS C# 1D$(rS #Z+ ) # D$'T3C 3#+ 4D$͒CV P# KPC3DĒ$7"ƏC 23#B# D$$O# # ~G# #Z+ G8$) #3 #) # GD$} ;C#C#C#C!D$%$pC(LAPS# D$$s:# #) F) ) 3D$$:+K+K=71 W3B#BD$y.PB#`3A` 3'ND0$D: %)B"C C#C# #)D$$R? ) 5+3ͣK*) [ ) D%$S(X&FIDG+ )D$$؃6 ' +3 +K3 F$'ZwD #+C+E 3+)D$$sR #+K3#K#JD0&O`C#3 +3K #)D$$n  1)#SZ3 C D$$|*#S+#!J# D0J3# +3K #Z+ G$$bH ;) #C##P$$k ) #C#))K[H)KD$$m3J#+Μ3)D+8sl[$۲\L8S3 , lGS44#s[$$p\83#@"+BD 84 s[$$\8C3#Bn)PBh)D$'`EBCBCC#C#  D$$] 9`1 X1 V1 # D$$ *Q1 I)I1 4G1 1E1 'D$$[(C1 ,A1 )9!3#D&;36 3S $ـ]X0$ID 3#B# #4# Db@ RC D# $D$$@`+C@0+-.ED rn[$% n\8+3SS3/ObG(c|4xr[$$@J\8#C#C3/[$ǎ4Ocr [$$\83 I/#CPC# D$S 3#5CD$$= C#PC%D$B&DC 3PC# S 3D$D*#Cy WD$bCC#PC 84r [$;Y:\83"  ,:\XDǜ$$L"+)B",Xb'$V#%9$LG$'9:)Z<"@#D$$  Bq ,[b$j,\83P*L9 ,D'$:D9:,DX$H:)q PB[$$*P\ 3"99"DGbǒ^@P$@D$D$8lb@q t[$$Ot\8C3*K")B+D&$K7  3" #1 D$$$)3Ҕc))3Ҕ^)KD$$K+K+ #t) p) D$$*+K#.+J#D$$G#++J+KD$$H3S/ .+3SS3/H0$   #:) #D$$cCCCC# , P$$¯ u ,)# D$8b[#+ # 1D$ĵ1K z#3+J4FGlE$$\8!0h)(Dؒ$0(P+\8CCCK'G$$6 #;1 ) 3 D$$;MDP+1 )1 &!3D($R1+ 3+J KC#D؜81N`+4# Y D$ n +-9 {pu[$$u\8KKK3[$l'\D #C#+ ,D$Iߑ`1  #4Rp[$$q\8 J/26CSC1D$$0r3##0K#8)Z3 D$'$LC# #Z+ -) 3 D$&;3S#!)Z3 CD$$ CCCSCS#D8ԇZ+ ) #4 -*D߳0o[$$\8KSD$~c(KC#Z+ #) )3D0$% S#Z3 C3 )D$m3 S# )Z3 C4CDFe*K0.$)@zqtf!\Wohh  _I.RB%%(v$II%U@cUa#c`ttf@tf tf8;lP%CCb]GK$D$$19OCYPIRHG TC( )GD,C1 79,27 ,3D$$J7 ,47 ,57 7LA LIRHGSTR SERED$$EV.D%ILECSNDEM TAREAI L -RPPOD$$9*REYTO FADATG NERELAC ROOPARD$$<28ITNO.PN% L H?!?5 X$$ FH;9 XX51 D$$vT/9 * D$'b"!H")XSԁST1X$(xpX 0*HP "( yX$$~   DAf8D$$, ! "  ! D$$TV8EMOMYRO EVFROL WRON OD,$$FOC.M$$ ZT$OTN  D$' 8; 5 H!DD  ( PP  8bE''iX:Z(!H D #:3$)Hf88!q違AThNfp|b}@; FIV.SV$$3'F%T  (0 &t%%&&'(&#'(,&o&u_#%Z"x"G"Q"Id #?""!B!!U# E"H^"""\""k!8"!" "c!L!"! #T#!!!f'd')'d:%VXR  xH9j  nH!Y4  e0P)W  _"*9WX9SYS9NX9JY=9KY9!bA`P  E  A)5  =  : )"  41 1,Q+I)!  )  & ) ")      ReFCOM.CM(  @   \ ;Z;P  9 8 ➐)KH\ ;J;P # )\ )ҫ ! )1\ )\ ;Z;P) )X  X  X  XR! RHRCOPYRIGHT (C) DATA GENERAL CORP., 1972, 1973, 1974, 1975, 1977ALL RIGHTS RESERVED.)+H ( .X -Z -Y)#0 (0P 1) 9Xi9XCC)HL,PHK)H  )%#/S.MAIN&& ; DGC FORTRAN IV REV 05.20NS \ w@D@B@I /~DB(D0B}0D 3 B "0BPZ12 Z($9;XZ @ Z *2Z$@ QM OL   D8B C=8C=;  6    2,8) -'8#% 9$8 9*! *)9 : P PDId{dq( c* 0BPZ12Z wB /c }D *7 /c d~}w( 0DPZ12Z } ( e XU } /c 8CP@C@b \ 3p /91** & ) ~  b W ! 4   S ` e h j d pIuL g jnj j /I| 8 5^t7Ox ; b 6 $* ? B *8};)  .k0"P@K6{ / / *k !8P@K \ 8|8  G0}2  2 S }H}1) 8A0Pr0nHn u(< 8 9X o{&0 : > Y G 1 44w2"4w 4w  PX\XM8XS wX4(@0m8|<|+0|* *  |P@  5M 8A@@A0BP[ @\* * \ 4["0 P["@k* G4[(P=s ;5q@k ,9m @P(P ;@k (| 2*28 T8X[*:J 18 >8 @<[X}860"P[*!, ъ 0[*    F C  b 4[0P[8* B 4[ <L&r&sHEHt -7 8};#( # +%HX8}  #)1 ;|fU08A-]  &%& E Ȁ 0 E ǀ&0}"/U:X\6"/O2P[ * @U 8\;(8}# @qc @f4}P^ 2P`@eHh4}6:KP] :X_Hg@d4}2*M  u & g(h@>H>PP4[P   0 m ӂ %%,,&] P)5   I I ku ^ ]o0` 0` 0^ ^a ]^0^8`0]8_EWUT]T _ 5O Ѫ5L" 5F 5E z5C @:P6?  558]0` -Q f 5( 0^ 5!5 5 z=0>h 9] !!))"#++**&&&& ` b 'knttvwC '(> - 8 ,& p f b86c9 U86 9- S93 U3U D;] 06N C' ' P + #  " "   ȅDT&&& \  '-5Q(j2HU/---+  \ @L(]0_ (^0` \ MU  5 8 TO5 z''M8h 0_ 0_ 0] (g 0^ 0] C  4} } 0PO4} } UJ `bfd0>0g0hP<}PUX`(i* C0 BJ z(z8`K U8U zDO p0]*8^"(8f\ g0h (Pb   P@[@\P@C }08_+J[8`+J\ 1\ 3 f  }4} } $0PPM f (hP   8 f }4} } } }4} } P` HU* 2 @]88\%@Q pM8h@U H^ H_ Hb8 (\ 8X] / /D]] 9ڜ  :ނ8i#;HQ.XMAMID]$9)8)(Q\ ^(-]L]80+!K+K(HM(U @[(_   80/(^ 8 (8b(_8^( (^(U0"(9BJZ4w2 0 ^ 0UHU8}i(Q&#\ 8b    0] 0wP]28:)P(@b@U(\HaH_ w qPcUa w'U 2 52 5 '0c M J (^ (0UR(_Ҝ Ҕ10b 0]28* J8* JT(_0c (_ U8i#(0BJ z 0z 0z "(J0} 2B0w_ 2 z wC w(M_88U (_ 0] :;#J(_8  F!G(UP\ 2." J M8} [4} (h (HU(jQ (h &4}  f  h }4} }1PPKk1  0(  0d  G 1\ 0^(g h'  '  0` 0] 0i ҉ 0^ 0]  0] } 0_ \O0` 0O _ BP\0] υ0] D\ eeffgghhxyrr}}||zzhh{{ININDDCC]Appooinssttuuvvwwqqdd\ 0M8PO(M6 _(`:]05.  =' LO(="Hj8K%O0O=U 04O U 5 0E %@0'''''\ U*E)P* E"0z *=UM2-5 ҎP1 r1 = "Z5J&r&s' ' ' ' \ P0 2\P1  Pl002P100 01* &HjP 8S(l 01*9TO"P m0 - \O( A8r ?*     P* t*2 01 [* 01(lTO\ P02P100 ѪC2 Hj\ Hj8XOP0*8r ?*   2\ @:P6Xl 00l @0Pl 0028l  00 8l00 2Z06CXl\ ]0` 0_  0] 0^ (> 8S'\ hP\ U1 Ѫ58 + <XO(  Ԫ''U|\ ъ 8 \ 8 8r9   \ * 8CU1''\ *  2 D]0  9A;]=L2*UU * A8r ?**2 **"8 08%+ 8} [~ 'KNNu2."99]UC'!E\  ) 2 \ 09 2 B&r \ 0^ 0]P  ?*&\ ;J;P]>9?SKE> OE80_ M5MvMv0` 0` M.0^ -*Mk-'Mg%"@O5 'Uu9ӝ5])OE  )ƍ )  &&&&&&/&]-] C8])5 U  %%ld+2!9[ 579L B Q VXL_1122AA)EE'&&1 *M J Esx{}CH&&--  ,(j (k-(: !#%-506)"IFC l(85]--&52*\ 0( (C EMU(ADC ,_A ,ADD ,_JSR @MOV SUB@.+MOVZL#,S2_2_JMP .NREL_?L.: _LDSTT,3_?V.: ?.C: .EXTN JSR @._+S.T..GADD , @V. ,SZR_ZL ,_ ,CL,SZR_L,SZR_ ,,SNC_ ,,SKP_ADC_ ,_CAL_.F..BLK V_V.+?/L._1_L._FS._Wc?: _?_.STOP_V.+ TS.=_FTS.=T.+_VS.=V.+FVS.=V.+__FS.=SFS.=_T.=-167_V.=200+T._.END_.FARL_@A.+1 ?L._.C_@V. ?L.: .TXT "?"_ ;__.COMM .GLOC _.BLK INI_.F1_.F2_.TXTN ALO_A._? ;_.TITL _.ENT _.TXTM0a 1_.EXTU_.I_?.F1:_?.F2: 0_.CSIZ RED_A._@V.+.+3_?A.: ;___ANDCOM ,_AND ,_ ,__SMPY_,3@,3.CL.____SDVD_JSR @.FSUB_L._ 1,0_ZR 2,2_AND 1,2_L 0,2_ 0,1,SNC_JMP 0,2_.CGT_ZC_6_ZR_NC_MOV,SNR_ZC__RET_AFRT_.PAUS_MOV,SZR_.+3_REA_WRI_.-4_.BRD_.BWR_?N?= ?= @._A. V. L._ZR_AND ,_L ,_INC ,Z 0,1,SNC_@L.-1_SUBZL_.+*V. .LOC V._P.=._.LOC P._V._;_.ENTO __.COMM TASK,_FIL__*@FV_ ,,SKP_ADC#ADC#COM_NEG_SFS._@F@F@V_FXFLLFXFSGN_ADSBMLDVNEGCLECLTCEQPWRLIPRCXIPWR_MOVE_FIPR{ f.B{ ?1 1a `{ *ao. .{.V**bf**i6****-d**g^,93* e*h4 F)(2*?=**F!*\;*#_,>**%^b:8:{43* F)(2*:*0`,a,B,^ e**eK**h*z 3vv*ve* .h*M** .h**ze*M** .h**zh**Gȯ.2:h*{e4*M** .h**z h**$*$h*#e*&e*'hz"hh*&h*&h**%h**'z&h *.h*0v*2e*1{ h**1z0u*3h*2v'*0h*2v'*0qh***-q{{{čGȯ.H.2*c{eF{ĪeJS********7Q:<* *@8 h*> z*s*?h *. { he. e *A { h*A z* 8{ *Ee|Z{  9 . e*JHh*K zjHWq*.Jq*. h*d zj zj zj h*d h*d qz. zHh**Lz+hWjec.1{Xݯh *. e*L qYq*O   Ư h*c z+ {Mz+{h*cV hYh*P hY zYh*Qzѯ zYz+ @  {د 5 . VW.eegZ hF zFٯ efZ5z 5eZ5 [zT]*S s*S ty*]r] e 5 .| }  hª*.{êeRL'M\ 8o0( 1U R; cfsossssssss E!5a \HS HS $( .} X(CHC(Eg(red(8b C&u=9WX[ <[ZT[?8?Z8G-8};)H(1$ 4[(PJ8i#B Ҏ8X :)J(?JR- M B0 'L'HP 4[:( (G (A  : "qNh l2 8n ҂D8 *K$\- q02* + ' 2 U<'\ %)@C01;" OO q \ S0 C1@ @S \ 8KK$)* (t9) e0` qELLKK_IrIIIIJJPJJJJJJJJJcqqir{."%0C- 8!"  GGHI8ǭH9 )\ 8#BC8G 90+HC+J+J+J "  B*Hm ;P  R'PXT!bH]D . HS)80P 9 K  + - 8HS9 8t68}# 5 *D آ *)L@S HE 8 DpX^R^;5}\ 0 0 8CK  ETFH7 (7HS<(i* @b @CG n (C8 8xZPx8]9 'C&u 8ZP(J8i b+ J #:]! (C* (b  W@ER V"(BPK@p@E@8 H'(S!@S 0T]V \ 킟  ]  E-5* PHTd   ]89XsX9  V8o0p $   ;(C'N6'AZ09(/ ::==""''$$ 0019B EL C&uy8Xy C&uY8At C{&uK C&u 5g 8i+ (:8rZ*!R8A !N8r!I(C0 B8ZP+8A r4 Ҏ0J Ҏ8;H;8 )0(8rJ -8A 82 "9  C&u9EzE> y (HS Y + p &Y . Y  U j .  '% : < 9 u  . 0 + . # %   y (aH^p Y  ^p'''&7E\  ( )x  Y@oq \ Mp 8ޢ 5е u \ Ha ~ C" \ ~ "M< aPP@a//((--09HHPPXX""AAIILLOOSTDG''ZZ((PPDGAAIILLXXHHOOSSDGIIOO))//,,09\ 0PH( P(8H C +S E@0H 7 w"B 7 .:2 ؂M 8   M-HT)H7\''"- LHT-HSH7 + -!@7 J 7 K E D:;'! **8C ! 8#+Z  :ZZZ \ZZ 8Z $*:J( B a):JP ! Z8Z D8K  \ (" k\ :  8\ : ZJ !B. 2 0HN  2 0HJ \ 8:RSRZ: ZZ 9Z  . 2 0HN B\ (8#8Z 9&  \ (J"PB(8#@C\ (J"B(8#C\ Z 7 .  7 + -  7(9* *(* : ;!  "98C+#1+" ,+J)" KP3[0b 3  ]  S⪝ J8+8#'(Hb")$ Z 8+@* CP"PKL: L M XR9ƐRXR9P@ @R0(P:"*2]F;K9@]A8YXS 9X!@&&B \ (s@s 9$] +%-"0 E 8=E 0M(VB0 0M +&; &&&&&0XRZ1 R00ZRdXR8CKS X#;R]\ ;K9] \ 8CS }0}XR1$+J+J+J+J4/ P\<182,0H["+ [0\8R4\,0<18R/\ ' 3+  C:JX \ 3Z28 #@( "ZC02"C"C \ H^P]H\P[ HcP[0\ P\0[ P[ (^0]8C ](c<PXRڐ+8R\ 8Ғ*B\ H7;+  (7832C\ w0}H\P[ w }0w! \*0}"4 he\ \ P+#8C kXR<R<T3J2 4T3 4\ / G3  CH XR IXIR8K#K KR@I!R/XR]4@(R:R-* +XNRXR\] 08] @@@@@@ =  E Fo5 '#'$\XR#; RRXZ08H@c  ( cZ0H8Z L\ ##  "C PB38><"\ 91 90J '9 ! !!  ! 9 0V(P!' 8 89ӽ  ! \ 0J) Ґ@ a8 J ,&PXJ74# @@ #@@ ?#o^^D######w##?#######oo $- $- $- $-  %COSDIMABSINTMODEXPSINTANDCOSCABSIABSDABSAINTAMODDINTMAX0MAX1MIN0MIN1IFIXSIGNIDIMSNGLREALDBLEDEXPCEXPALOGDLOGCLOGDSINCSINCCOSDTANTANHSINHSQRTATANDMODDCABSDCLOGDCEXPDCSINDCCOSDREALIDINTAMAX0AMAX1DMAX1AMIN0AMIN1DMIN1FLOATISIGNDSIGNAIMAGCMPLXCONJGDSQRTCSQRTDATאANDTANHDSINHDATN2ATAN2DAIMAGDCONJGDCSQRTALOG10DLOG10DFLOATDCMPLXDATAN2s+t-u*v/q=h,e(z)M:w^@TOSDOQIFi.EQj.NEk.LEl.LTm.GEn.GTo.ORWERRJEND:DATANCALLOGOTOTSTOP8TYPEYREADEREALp.AND^.EOTr.NOTeTASKZWRITEUPAUSE_.SPEC`.EXECa.BODYK.TRUEPASSIGQPNRRETURN\REWINDL.FALSE9BINARY7ACCEPT?COMMONBFORMATDINTEGERGCOMPLEXILOGICALcNOSTACK]ENDFILEdOVERLAY2FUNCTION;EXTERNALACONTINUEVCOMPILERfCHANTASK=DIMENSION4BLOCKDATA[BACKSPACE6PARAMETER3SUBROUTINE>EQUIVALENCEFDOUBLEPRECISION%%Lt{w{g4   #le X 1+<DO"*04; ?Ha|  pP)#a'+"; *** *** CHR 'qb; 'F5*Z"*:X8:2! H`:Y:2` Y8 ` =CKS8Z9(J+J@Z*J8H`FORT1.AB22%7./..+cP  (0 %%$%%PG&%"G&,%%~D"Y8y!f!p!h! ^"!!a t fj7"d!g}!"{!!!.>W !!)!!k ! ?s"" G&5')''E'p'&&((((q1J1 BfOCYP" IRHG TC( )ADATG NERELAC RO.P ,91227 ,9137 ,9147 ,9157 ,9177LA LIRBnuHGSTR SEREEV.D+)H w y Rx#)0 (0P 1) 9bX9~XCbWC)EH,PDH)H %"(rrLwM.IAN%% ;GD COFTRAR NVIR HVE0 .502SN \ p=@;@B@ P/=;=(0Bv=0 3;  ";0SP12 S($9_sbQ;SX @ڐ S *2S9]C/@Q MO L   D8BC =8C=; )6 + -2 ,8)- '8# %9J$8 9* !*)9ϲ : |P P"AID{dqd(2B c* ;0SP12S p;Bv / v= *V / Rkdvp( =0SP12S bv ( e Xt v /rN 8CP<@[@ \ R /9 1**E H +`  5 v @  S ) 'e7  r   k  MNhW T}7Vn6Z U29CVLI^ a *v8;)  .0"PD@U{ / /: * 8!PD@ \ u8yu}8 @ v02 2f S vvH1) :80kPg0"~gH 5( }8 9X 2n9ht%0p<#B?#B w)2 B۽02 " J2!b<R+jHD ! j GL !z`b@ ! 9  _ ( rw2* J B 4:(PM]3 ]9(%1H%%%  -GD2=SUt<-J @89bX" 0:8$ &!  !GLPk@5 !:8GD 28Du - ^8  ky0*4 4H?:8  (GL GL:I(IޥK  2TP"22 0 WPT80ZBUU( WW4WP8dp4TPTP82*KT4 TP2*"K WW4WPT4 W S 32r2(Jp<;VZ28Z8"B B,p<;;]%p<;;-( R 86:PC .bPUGLU( U(JG8+JS TPrJp42UVP*: : DG83 ;#KCTLTV4 "1  5@(@|0"(_2TP* T0b8+:J29qNI~0TPZH2 "J9 N Z T0J2w0[H}TPVHWHXHYH:2" XP# _:YX XWH *XH RVHT8; QzCYXX0(: "Y0: *8PvpPA = X8Y0YXXPV(W0WH VPX8+3/V W .Y0"JN"W+J+7!*J;+SJ* 2& ":#K[T0T$ w BT4 ) * [0 RU~0TP: * T4 &%.8b7 |8TX+3"BT<w0r Q 72"2 w0^G2"2 w0 U= w |0?WP"8 W4J۠\ Q(" (I IH1:BF88(:9Z  8 :9ZR:KK%tE0  12"88(:J&:Kd@8 %-[HJ |8:""bTX:#.KF 82.  Y T8|84TP"T<( *9":.+ T0  ";l28.  &. :2S+2 T0  T< ]T02*bB` U@UT0 T0 :"R>R3YX Y8U&Y8Pbp3YX*32Ӯ UUr"E0 +P8 ^[( |8YTP*":+ .  . T<dH* 6'6( 'M%\ 1U 2EP,M2*J%M,U:+:;54 SJM55 J 5 #5O %%%%%%%%%^%%%\ :]+MM2 E2pU"E U2JMPMM -%k5 MB L .MB3%J/o/5 %M:  #83"2 \ 8] u c%2"5 8K-P .=B I / "\ =+M=#RE5K**2сUb4 %%% 2 (8 rAp4P]r8 =] rr Ep0" v 6g@EEqEn FnP 55( 2*M(0 hHr0{U x5 r( 1: d;Zxa}8 5(  5{5( 9] @r0M5 -JU:N].-7'+ *#'GE #;#:E 3M65:)3- J 2 *-  "\ %2 V 2U:#E"0Q ;M5{2 M} %%%%%%%%" (88-E2 E2*Ӯ 555U==BA_== =R) ]p4:  % \b \ :+] 02 K:+r ] \ w% w% %P%!I :8@8PHj( 8GL GLG(0EPJHjH:8p0:H.HPj?8h66( '?H tg ?(@?@ 0001/p d #Q"0BJ u6(bJB6@ up46TP8O p42 T0*HL 66( u0*F $* !T0 p0 ( :+//  }p0 0*T0 8K6( D 8Cp4 p42 82*B" !  u0* 8C T2 Abg 2 p cX HTB p83;+;#    (p0 R {p4 p42   8p0 b \2 /\ p8#3" r OY; u8u<+f  ! VH V V ( B B )J /Ձ8ZP p0:H\ " ' ( ' v0 vVP U(Uxj pS $V0 pp0 $ pU } 9(66( H '9HHD m ! 2 D t i x8 iX xTP :8U =  BP :8U @p0 !  p0 [ ( ( t0 u $    ] 66(" D0J t $t0 * ( 2 /;t $t0*  V U(B 5    U 22 UR Po-  Y] Y  ]  Yb sf P Sp42"p4 p4 r  PUXFX8LX p -X9(f0J-u8u<+u0* l'* 0 u9P 0.  ^rM =:8y@:@z0TP U@ [* * U T4 '"0 TP"d@* fT4I(s=4 q5d@ Km9 @II(4 d@ 09u(  2*28T {8 >TXX*:J 18 >8@  T<vX86|0"TP*,!   : T0* !  *  e " Db   T4{0TP82 M* a $T4 [k%B v‘%%>HmH 7- v8;#R ~( # % QHv8b   #)1 ;|fUr *0:8-]  0%% & E 0 E &v0"/ iU:UX6"/O2TP * N@ |U8;(v8# q $ c_@v4WP 2YP^@aHv46:KVP : XX`H]@v42*M  `  \ &` a(7@7HPPT4Pҹ c  0    V%%,,&] o )5   ]      h h uW V  oY0 Y0 W0 W aV ^" KW0Y8V0X8WETUT]_ O5 L52 $" F5 E5 sC5 3@/P?B ۺ  55V8Y0 Q- R ! (5 W0 !55 5b  s=70 9] r $!!))#"++**&&&& c 'nkttwvb '7( - -8 4; K & _]p f b/89 U/8  9- r9  3U3UD ; ] -/0N 0 ,C,&-&o   5  + #  " "   ƺ Ds&&& \ JR  >&-5Qc(2NH/---+" =b  \ V(X0 W(Y02 > \ MU  5 8 B 9HT5 s &!&l a8 X0R ە X0 V0 `( %W0 V0 b @Ab  v4 v 0r HPv4 vN J B 70`0 a0PvX( N b8#(0BJ s Bs0 s0 "(Jv0 2Bp0X  R.h 2 s pb pF(_8b1N8 X( V0 :;r#JX(8  FG!N(P\@ 2." i lv8 z..v4ݒ a( (NHc(p p_a( &v4 _   vv4 v1PDP17C =0(  ]0  G 13\ W0`(a '  '  Y0 V0 b0 !W0 V0  V0 v;6 X0 H\Y0 H0X BUPMV0 V0 UD+ eeffgghhyxrr}}"||zzhh{{NINIDDCCppoonisstt2uuvvwwqqdd\ 08MHP(6MX Y(B:0].5  '= HLRڋ("=cH8K%HH0=b U0H4 U 5) E %ri)@#&$&%&&&'&\ *U)EP* F"Es0 *=UM2-5 P 1k  1 ="Z5Ja%%(&)&*&+&\ )P 2*P K# eP)02*P)0 *0* :=1/EcHP 8XSe( *0*9HT"PV 0 - H\(: k8 ?*     o* *2 *0 z* Z*0e(HT\ )P2*P)0 C"62 cHԎ\ cH8HX)P*k82l ?*  $ 2\ Bs3@/P eX) e0 )@eP )02e8RR  )0 e8)0 2Z/0bD+beX\ ]Y0 X0 rX V0 W0 7( 8S&\ NP\ U1 5L8 + <HX(i  0&.&\ σ<8 \ 8 k8 9  \ * 8CU11&/&\ *  2 VD0 : A9M;=]L2*UU "" ">""""*: k8 B?**2 **"x8 08"G+% /v8 z /&2ۥ2jm$$m66B2."99]Ub2&!ER5}\  ) 2 b9\ 0 9 2 B%rl \ W0 V0P '?*=&\ ;Jd;P>]?9SK>EH 8E@X0 5MvMvMY0 Y0 .MW0 H*-kM'-gM"%H@5' U950]O)E ) v ) &&&&&&/&]h-] C8])5 UQ  DDJQ!9az TVXk a p uwiL_1122AA)EE.&&& 1*oMJ .E"2Ҭ BO&&--  c(RTD d(-3( !4"%-5^/0bһ)"hFCe (85r3 ]--&52*\ 00( (b EMU(ODA C,_A ,DAD ,_SJ R@DOM VUSB@+.OMZV#L,S2__2=MJ PN.ER_LL?. :_DLTST3,_V?. :.?C :|E.TX NSJN R.@_+.S.TG.DA D, pV@. S,RZ_Z L,_ ,C_9LS,RZ_L,ZS_R ,S,CN_Q ,S,PK_DAC_ ,_CLAN8_.F.B.KL V_.V+?">/L_.1L_._SF_.? :_?_2m.TSPO_.Vm+ ST=._TF.ST=+._SVB4=..V+VF.SV=+._F_.S=FS.S=T_R^=.1-76V_=.02+0.T_E.DN_.AFLR_bk8A@.1+ ?L_.C._V@. L?rH. :T.TX" "?_; __C.MO M6^ G.OL C_B.KL IIN._1F._t2F_T.TX NAOLA_._? ;_T.>TI L_E.TN _.XTMT1 ._XEUT_"I.?_F.:1_.?2F :_0C.IS ZRDEA_S.@_.V++._3A?. : ;__X_NADOC M,_NA D,_ ,_]_MSYP_3,@,3.C0L_.___DSDV_SJ R.@+FUS_BL._ ,1_0Z Rz,2_2nNA D,1_2L0 2,_0 1,S,CN_MJ P,0"-_2.GC_TZ_C6_RZ_N_C2 OMVS,RN_Z_C_RTE_ARFBp4_T.APSU_OMVS,RZ_+._3RAERk_WIR_-._4.RB_D.WB_RN?b9 ? =? =.@_A . .V L._rZRA_DN ,_ L,D_NI C,Zک0 1,S,CN_@L-._1USZBL_.+R*V . L.COV ._P=._.L.COiP ._V_.;_E.TN O_._OCMMT SA,K_FLI__3@*VF_ ,S,PK_DAC#DA#COCM_ENG_FSMH.S_@F@FV@_FXLFLXFSFNG_ADSB)MLDVNGECELCTLCQEPRWLPIRXCPIRW_M"xVO_EIFRPЪ{ B.{ 2"?1 1a `{ *aBo ..{.V*b*f*i*6*Rpy**-*d*g*^,93 *e*4hbOR F)(2*?=**Fr!\*;*_#>,**^%b:`h:8{34 *F)(2*:0*`,a,B^,7o e**e**hQ*z 3v%ev*ve* .h*bM**  .h**zxe*M**  .h**сzh**G.2:h|Դ*{e4*M**  \د.h**z h**"$$*h*#e&*e'*h2z"hh&*h&*h*%*Bދh**'z& h.*h*0vR2*e1*{ h**1z0bsu*3h2*v'0*h*2r٪v'*0qh***-q{{{G.H.2*{cŪe{FĪe4JS********7Q`ت<:<*OP=*R*N9DY_*ZII*A*R C*8 Xz7JXz J\G[G]G^TUe =ցe5*h**5z6qZe ֯  qگqh{X.i_qhh{.eFORT2.AB22&vvZ. B h * .h.* {{ @=e*  >@*8h * >z*?* h0.*{ h e .e * A{@*h * Az* {8 PįE*e|Z{   9`".e J*HhK* ےzjHqWp̔*J.q.*h * dzjC zj z j h* d hTd* q z .zHh**LzR+hWjec.{1 hׯ.* Ưe L*q Yq* O   h c*z +{Mƪz{+ͯh*ɯcVh Yh*PL%h Yz Yh*Qzќz 7Yz+@  կ{د 5 .VW.eԯeg ZhFz F efZz5 e5 5Z [zT]S*s S*t 0my*r]] eگ  5|. @}  hª*.{PKeR(K4&AK\ h80( 1U`v q<Z$$p' չ> !a5 \:LH ő LH $( . X<((gk(ed1(b |<%z=W9TX T<ZTT888Z@8-v8;H)#($1 T4I(Jb8#B Q8$ :)J8(JR - MBʉ0 }3&(K4&IH  T4:(5 @( :( : *"N|)2 Ag8 D8 *K2C\ - }02* + 0!q2 }U<3&\ %)<@@0;1"O O  {P[eL 0 C@1 L@ { 8K`KC*) m(9) pDe0` ELLKK~GGGG.HTH%̎HHHI$I2I2I2I4I2IcH 8  DiWXq:^Z\ 0 0 0 8CK > TF0H@ 0(LH<b(* [@ <@Po۝Gg  <(8 q8ZqPz89] `5&<% z8ZzP(Jb8[ +p# J# :!] <(* [(l  W>@qV "(BPKqi@>@1@ H5&L(!L@ M0V!TO U  V -E*5) Ӹ PMH  V 28@glX2X  Oh8i0$ C<   ;Gb8&tL9&57ZA"90/( ::==""''$$ d00914a Ek y<%yQ8y | 7<%Y:8t y<%K 0]C|<% g5 b8+ (:@^k8Z*R!:8 N!k8I!Pj<(0α By8ZyP+:8 k y4` y0J 484Hpu8) y0(k8Jx+ -:8  82 "9  ~<%-q9~ czE>Ey (LH x +p x =M=u x U    M  D&: < ҭ9  . 0 g+ .# %  L  Z(WHi R  WiF&E&V0d\ |  (+ )/ 0" xh@ \@ Mi 8 5 6P \ ZH  `Cb! \  !l< p}Z PPZ@//((--90HHPPXX""cAAIILLOOTSGD''ZZ((PPGDAAIILLXX_HHOOSSGDIIOO))//,,90\D 0AP( P(A8 CS d@EA00 w " B0 .:)2 xM 8  M-MH)0H\7&A&-p LMH-LH0H + -!0@3J 0 K E D:;@& **8C% 8#+ Z :ZZ Z\Z Z8LZ $*:J( B ̾ a ):JP* Z80 ZD8K  \ ( "@ k \ :  8 \ Pn" :Z J!B .2 A0 N 2`ؿ A0J \ 8:RSRpEZ :Z Z9 Z  . 2 A0 NB\ (8#8 Z%9 &o  \ (J"PB/(8#@C\ (Jͅ"B(8#C\ Z0 . 0 + -h 0 (9 **(*… :;!  "98C+#1+ " ,+J) "h: [KP3[[0  z3 ] ә  S  J8+8#([H0 "$) Z  8+@ *@ Y>CP"PKL: P ~L MKX9K` RKX9P@ @KG֠0(P:p -"*2F];K@9A]R8LX 9X! 9@%%B \ l( l@ $9] %"-0 E 8 =E Δ0MO(0 0  M & ;&&& &&0KX "Z 1R00ZKdKX8CK oS X#;uK]\ ;K9] e \ 8CS vv0KX$1+J '+J+J+J(4 UP*<+8),TH"!. + TU0K8U4),*<K8!(\ ' 3+ !6x C:JxX \ 3Z2x80!x #x@ˆ( "ZC02"@!ͨC"C \ WHVPUHTP \HTPP!eU0 UPT0 TP W(V0<8`!V \(<PKX+8Kp!ܠ\ 8*B\ !`0H;+  0(!dT832C\ pv0UHTP !p vp0 ! U*v0" Ph!e\ \ P+#8C!1 kKX<K<T3J2 !+4T3 4\ / G!j3 x CxH KXB BXKD8!W#D KKB@!K/KX4]"@ڐ(K:K*- +GXKKX"\ ] 08] @@@@@@ " =   E 5 0" B&C&\KX#; K@",KSX0Χ8H\@ (\ P"'Z0HS8 k'\`" ##  "Cx xPB38p"s><"\ 91 9C0 ' "9 !!  !  ! 9 O0(P"['! 8  89 " ! \ C0 )@ 8 "C o%CX74" @@ ""@@ ?#o^^"D""""""w"""?#"#####"zVoo $- #Q $- $- $ - %CSOD#MIASBITNMDOEPXSNITNADOC #7SACSBIBASADSBANITMADODNIT0#tQAM0XMXA1IM0NMNI1FIXISGINDI@#MISGNLERLADLBEEDPXCXEPLAGOP#DOLGLCGODISNSCNICOCSTDoNAT`#kNAHISHNSRQTTANADOMDDACSBDp#LCGODECPXDSCNIDCCSODERLAIID#FTNAAM0XAAM1XDAM1XAIM0NAIM1N#DIM1NFOLTAIISNGDISNGAMIGAC#PMXLCNOGJDQSTRCQSTRDTANADAT#HNDISHNDTA2NAAT2NDIAAMGCD#0{NOGJDSCRQTLAGO01DOL1G0FDOLTA#DMCLPXADAT2N+s-t*u/v=q,h(e)z#r:M^wT@SOODIQF.iQE.jEN.kEL.lTL#%.mEG.nTG.oROEWRREJDND:TANAACLL$A/GOTOTOTSPOT8PYYEERDAREAEpLA.DN.^$fOErTN.TOTeSAKWZIRETPUUAES._PSCE $2.`XECE.aOBYD.KRTEUAPSSGIRNERUT0$@fNRR\WENI3LDF.LAESB9NIRA7YCAECTPC?@$LMOOMBNOFMRTAIDTNGERECGMOLPXELIP$m+GOCILANcSOATKCE]DNIFELOdEVLRYA`$BF2NUTCOI;NXEETNRLACANOITUNVEOCPMp$DMLIRECfAHTNSAKD=MINEISNOB4OLKCAD$$ATB[CASKAPECP6RAMATERES3BUORTU$NIEE>UQVILANEECDFUOLBPEERIC$ISNODDk(,$Eo3$Dr > &*.B 7$kw PJ[cn$a'/6A IOSZ ^g$nM#*,% 69;9=oHBFJ %&S ;** *** *HC R &&&ų%&6&xbF& ;\  "T 8# C N @H V&UI HHlIeIgAgA!bA8X; OLOf&t̠'(XA4! : MQ"v&b1* c!3 a!*@^!@"CAU1 &#j! W!;U!! "2AK1  L!/!&0a,AG%G- ) (V'8OX ? &X ? \ 1)mI*09 &ld8S&=\ ;J;P)1 1)&@  @p'`&O&Ot'\ 1 ?g )-! !'1&^  ] 1" ")1 ?Q 'EӹQ!Ҷ!jA fQ'X ?= ;\ #P)1&'V \ ;J;P1)  6'\ ;J;P1) 1) F'3\ #P1 ?9 8V'\ ! 83!!Ґҁ!f'[ !) !   X v' !1 >O 0OFTR OTC 'yNOITUN,ES RTKI ENA YEK YAFAT L'tV/I OREOR RT$OTNE DFOF LI E'(qOLXS\ m Pj P3* (C!k "i "*I C3!@X"&(@"C:!:1, + ( & $ 6( 3#CU B 3*3KF(<)B?   # )C9(V((((QT$OTT$IT /^f(\   3 S)@C 1v(^ \# ? \&u (> \ "*@K! (a # "J\ @J(%!K;#  18S($\ 3+P(J\( 0*1 K!1! (\ !0*J (X8CKS!#X:8 !#+3(X8X\f%]! >]_9)OJMU #Y1 )KG L I )KZJIE B DIG1G!C'>)&)q.3 '8)#E, Z h 6)J##-)+)# \ !F)/)K!1 !+EV)j !!!R..g+>f)#) v))AX 9P8 0 \) )  K !9  )  #PPPE8#\ !)"!KDU00DU10DU20DU30DU40TT) 1IP$TLTT1OT$PTC$RDT$OTT$ITL$\&TPP$)RTP$PTT$RTTM:0TM:1TM:2TM:3TM:4TM) :5TM:6TM:7TC:0TC:1TC:2TC:3TC:4TC):5TC:6TC:7 ?*4*)*+**K`rTT*Yi :" J` .J``!.*],bTP$RT-*,-s,0.>*i* *=***>UVUy*%R` Oj*;PCOg.`OjPCOg*,,-,_.-*~ ****(UU*z` Kj*.Kj`_.,,-,*GCO*VPYRIGHT (C) DGC,1971,1972,1973,1*k974,1975ALL RIGHTS RESERVED @ H + 8SKLI@C/KH)H#F) +Vr#B) ?! = 8S;)K=8))+2 I4)# N/)  :9+5; A * 8# (38M)-I+^H  *+`@ J#PY+"+t/?(+z!=vE 8i+0o#o o%c) B^!]!y+Y!Z!Y!"* @ H!+S)+K+K! I! G! 1E9" +3" :%X9+  8+0 0.. /+").";/"f-"t-*"C)""+P""++0  )+q?+.0+Ě0F0i***+0+z *\ 1G! ,7 I!V #T F!R ? @< !*,). 1!* /!19P# ),+ )" "J  "9,!* )*JI,M-@$0.dXXOLDA Y, ,TSIREKA YNK YE \ S 1n i,"|3g _9Z)0\a  PKy,Y >KL9L! C A  C,JW; 3?! #B +:!2 +5!59, 8#/)Ъ4, 8# @# 111,޶U! !/,|  \.--.S-\| ,  *K !KТ48,y*]!]! = +!CdU!) ,=R! Q!  + H" -H)+J!C:!) -,!-!0) #)-))-z#) #)  @J !E9-~")# !  I-?W@@PPX- 9Y-ح< !!g+\  i-' . 0* !JS\   y-5*K) KX 83* -   ! Ag+-!>%\ (   X -͟.\ #! ("   -R ! # #  1-U# (; HU1/.\ -"!*K! *"+  ""8-0  K ! -! _./\ ! ` "  .]<`% `! .\  9 * ZZ :Z Z).v1 " @X ":  #9.N :P Z : " : Z@!: :KI.f  :!; :K Y.X" "P B8i.* : *J!:+!y.+8F] 8CKS .C @@C ?fC!@5%Cg]!.I@,1 ?f)?c 0* 2 R")I.< "@ (J Pd`: XJ+.*H?l#@#@#+3;`?`.X8C!X#K8!X#.+\ S1ϒ#K8..3X!+ @8%) H.z @ -1 ! M HX: /8^+n)Y.g+\ % !/C!PC# J 12:+)/ B#  0 " B 2 9/b-e8,1J#[+C I/)kK 8)3+QK1 P 0Y/(ӷ 2  @A5 d?+/.i/vY/1% #Eԗ9y/< r!S1) >  X/)*. KK!A/S+//.++++//++++/+++++++ " 8; ?f/p%iJ H`-G!O9 //KG1 "K:  "K=14! 3) "/GIj .!,)' (!B%)/ =1.)Ij =/.=  Y`Ig "e0. 0N_\  F000 \ S10֛ " E1) " J B H3-)0{+0f//^0j00H_`_90 I0?Z0k000_H_@Y0 ,~0{0p0b00d0g0 !PE0PEi0/H``T$RT'!') BIY 91y0!)` B``Hg`0|ȡM`1P " JY 9-s,0!, 0000_0_0"@%<)90Jo 9Z :o ?+9*K0"00000`) Ij.Ij`*Hl0(Ig`@d`X%)99Z80!A!!-,_.0\ 1 (! 0- 1