ú…FTN4B uc<€G•.INT.AI00 ATC00CLIDIDL00 ER00 ERCM ESC00FA00 ICH00 IDN00 JUMP MPY OA00 OW00 OZ00 PU200RP00 TV00 ;`^ë[ÉZd�¬Édj¢ÚT%,Ìd�T#´X,×T$,̶Šd"Dot",̰PdßTdèµÐàtèd�Dëà<`aÀÏ炨 Lè¨Ö$�¿üÿ´Zdkthtl¬ðŠdhtktl ¬öGH´Ztlt˜t1Dn¶€tš>dþ;`[ï±¶Zlj\üdý\&–Úd�T$,Š�¶ÐÉdfD™ôš´ZLšdeðL9doÚðL9|š|›d¤´TŸ,;`\¼h#¶Ðd"t—d X¶ÚtœdnD6tšdœ ,@ ,7Út&d�X,/´Zd8l� ,†d€´t–dœ;`\ã?´Z,zd˜,Xdš¶ÚD-tšT›,llšŠàt"L9àte¢ÊL9àt˜ l€´Z|™\–,…#´l™\–<`[”[¶Š,…‚doD˜¢Ðt˜Lœ|œ ¶Ú,@dšT›,ld¤¶ÚTŸ,/d Xd—²Út" TŸ,ÿ#´,d¤;`[V­v¶ÚT�,df,d¤´ZTž,€tœ,@¶Ðd|tœ4,/I¶Àd„l—|"¶ÚdjT‰,“d"¡ #`J¯‘Ú ¨É,u;``Æ�(*,/ Ple èL6ð¢Ð¬¡d�T$´Z,¹dr,ºlq–X dp do ¢Ú|o ,ݬ¨lq ,²<`]Ç¿½´Zlp,´l<,ÄÐl=tç|è¶Ptét| d‡¶Š,Ød¤Dë,ã´ Dìl| Ó0t|¶Ð<é,Édílé`MQ<Ú¢ZLê ïlè¶Úl6|„,édî’€,Ø<``F¦éÿûÿÈEŠd|,ù²Xd"d2¶Ú¬ïd¬ïd2²Úl6d5W¢Z<kd;X” d1;``ÛÖ ¶ÚXCd*lj\&–Zd3l,éÚ|e|dc‚Ð |¬¶Pl!|–¬À€ ;`gú) %&'ÿýÿú0@Odt|,ÿÿ TW ZXt‘P¢Ú¬>G;¬C@ ¶@,OdN;`\˜hP¶ˆd:l€\"Z¬Gdd0¶Útˆd.td�t€¢Úm,}d¤T/¶Ø,_<,id)´l€d¤ð)`S�l´Z<€m,et‘¶Ðd¤TŸ,wT:¢Ú t�t�t€–À¬Wd(`Mº�"Љdot޶Úd4t�ä�<�¶€<Ž,ˆ¬‚:`^�Úõd�T$,™‚Ú |™¬�«–Š d+l�LŽØ d›lq ¶ZLšdp L™do”P ,—tó;`\Ç¢®¶Štd�Xtš¶Št›t�dó,Ñ¢Ú^,ÑCdj¶ÀT&,Ád,¶Štl¡d,è²€ded"<`^ŠPÊ–deD–Ðt,Øüdó¢Ê,×,åde´ZlôL�ð<�d�¶ÚT7,ãd¤TŸ,µ–Ú¬«d|D9,Ù`K èÐ àTe,ð ¶€\¢,Ç,è à ,Ù;`_béô"Й'/¶¬õd* ¶ˆ4d'l� ´Zd|¬ül |–”¬¶ŠDktk¬ | l `DÐs¶P|–l¬<``™ÌÚ d"t–d"J de0¬Z ¬#Ød-l�\.  ¬'€d3´ Dj¬/öd€´T"¬4<`bŠß8° d:d�À¬;dAX ¬B¢Š¬BB¬H°dN¶ˆHdOl� ´Pd€¬PT¤7`[›¼Z¶¬Xd]–Ð  d‡¬^Úd)tˆt‰tжÐt‹tŒt�¬d–Š d‡¬mdŸ´X¬q  áà ú×FTN4C Çc3€�×WBUF%AI00 DAF00ER00 ERCM ESC00ICH00IDN00JUMP MOVE OA00 OS00 OW00 OZ00 RP00 STS00<`]09É¢Šd‡µt‡àD^¶ÚtúD`tûDbtü¶Úd�TÙ,T],¢À,Rd^ Ple ð¬Ü¶Ðt€äeè4€<`_&$æ´ ôe¬á�ÿª¶Ðd-t0l/d|ÐP,ü d}ÐP,ý d~д,),þ   ¶Š<0,î¬ét# l‚<`[¢Ê , de‡¶Šéle|Ü´ZÙdád¤¶ÚTh, d"t˜¶ÚýŸdgtid´tn,K;`fË ´@l#dd ¶Útgd"tž,d.–€<'¬éÿ÷U 0DBLE CMPLX FLOAT SNGL REAL ERR0 EXEC CL<``P¤FRIO IFIX  PlP µèLQ¨‚Š d‚,¶Úd^ôû�d¤ThZ,_tk,g‚Úéd¤Ti´,iTj<`[ ff¶Ú,iÙ,Kä‡Dc¶ÐtˆDbt‰�¶Š,{d¤Tj,ƒ²Ú<ˆl‰\ˆ,ƒ²Ú,nd|ôˆ<ˆ´d¤Tj`GðÆ�¶Ø,w,qTh,g°,g;``( ‰Ê|e ¬ŠZÃÅd�¶€lL›Š –€Ÿ¬Žª@X,dœ–Ødet­dž ´d"t;`^Òx©¢Ú¬ŸlÂ\�,±¶Z|�dÁËdf¶Øt0dlì‡L^ ¶Ðdft0dllà µPèLÄ ¬ªD klÊ;`]ÀJDz€|– ¬ÅÀ¢Údˆ×4‰t|dŠÐ×4‹t}dŒ×¶Š4�t~¬Ëd·Ð¬Ùdal ¶Ðôûdkôü<ü;`_æÎä¶Údùôüdft0lü¶ZL]dú lüL_t·ð ð’Š dŽ ¬Ù@ÚÃl|ed" ;`^;´‚ÚÅl  Òlž°¬ýMØ|e|d� € |¬ L´Zdi¢tgd"¶Štžd€TZT[;`]Ôc!´Z<"l" ,Um¢ŠdeD,2´ZleL]àX4YÚðdlj\\–ÚdnDgrln Pdfð dj;`aæÔ>€ð d�ð  Zdeðš<g²Úd"d\¨<"¢Úd",Ud¤Tj²Ø,%¬dWT€€P` ;`do_ *+ÿýÿü (,|Ðt‘‡¬m¢ÐtnDD´@,Ú¬r²Š¬z¬zz;`^Tƒ¶¬€d†¶ˆ€d�l� ´d€¬‡¶€•d‡¬�¶ŠDktk¬•t�¶Úäe¡4�ôe¬š-`V¨Î¡ÚþT¤¬¢d§€Ztjäe¶Ð¯4jôe¬¨ñÿÚ|·l¸|–l·” ¬°`O¿©¸Ú dÂt–d"J de0 ¬¹Z ¹¬Ã  ÊÉ üíFTN4D Ýc€9 EXEC WRIT%RBUF SWAP WBUF :`^ë´ÉHÿýË.9•.ZÿûäʵôÊ<ʶÚ<É,ÔäÊÄÍôʶÚ<Ê<Ó,Úd 4=¶Út¢d4=t¤d ;`\/Gç¶Út óäÌDït²¶ŠlAdïLï¢Ú|® |BdŽÚnCäËtÊ PD= øäÊ´,d‘<`ZKû¶ÚT ,<‘,øä˶ÚDt’d¢ÚŽ=,ƒlÏ Lí<`Z+G~¶Šl�,m ,…´Zd�ô²t«<ʶÚdÊT§,þ<«,•¶ÚäÊt­d�t«<ʶÚdÊT§,þl­d­ ¾<`]¼˜ZÓt¬ Ó|­Tð¶Š,ýlÉTò äÌ  D?H ´Z<É t™t�¶ÐäÊôÉtXl¬ ¶Ð,©\�,²\î;`Z耵¶Ú,¸¼tžäÊ»¶Útœ\Ž,º|™Dž¶ŠtXäÊñÓt�¶ÚäÊït¥DXôÉÐ |Ÿ<ÊìÊ ½ ,å;`[Àl϶Ú|¨d¹tpL�dœÚ,Þ<ÉüÉl¥Ú ,él¸|p,é¶ÐLžüÉ|Xl¥ ¶Ð|™,Ø<Ÿ|¨ è,Ð<`cœöê€à,Z  ¶Úd�t±ìÌLŽ|É¢Ú|¯t¦¬ó„�FT N49 l£Š Ó<±, €ü¯<`[»¸ ¶ÚdÉT¯,<ÉäÌ¢Ðt²DÉt’×¶Úô²d¦DÆ<²ô²´ l²L�À \ɶÚ,#,<²ô²+´ód�<`a¶(¶Š<²ô²¬d,55�0Ф’d°Â,<<’¢Š¬+d®Dš Zl t’N¶€<+¬=d;`fØAIÚt+[n¬=€l®d  °’|XZ�ˆ’¬N$šaïµb¬[’ÿúŠ’“ü0èÿœdÿö:;`]·No¶Ú l®|©ld|®¢Šd˜ Dg,{Š8,vLh ×üe¢ŠDi Dj,…Ú8,€LhÌeüe¢€Dk Dl:`^yyŒ¢Ú,�8,ŠDmLhÚ ×0ôf<˜dc¶Øt’Nl©|®$šŸïµ�¬n€d¶l®ð ¶š\¨¬ ,£ŽlÏ<`ZA3ª¶ÚìÉdš³<š¶Ú<š<š,“tvl϶ÚL�<š,“û¶Ð,“|™lº|p¶Ð,÷ûäÊ´ t¡;`^jEÄ¢Šl@Ð,Þ \A¶€,Ë,Ål ࢀð@t© à¶ÚT¡,Ûl©\,Û¶Š\,Ì,Í N´,fd@@p;`\ݱâŠ@@DÑpDï¶Št©,Üdœ,ò¶ÚûäÉ´DXtX¶Ú,lÏLò,6ÚslÏLò,ÀlÎÐ:`^l†þ¢Ð, ,ýdÎÚHHLÐdötš€àµôšà ¢Ð<š¬û,¶Ðdtû,lŸ ´Z,Bä¨,1ð;`\ƒ+¢Úl¨H|©T�,1´ l¨L�à,YÚhdš¹ä¨ŠÀðDÒàtu¶Ú,:<¨ä¨t¨d�¶€TM<¨l¨<`]_Ø8¶Údš¹<š<šäš¶Ú³ôšlÜ|š,^¢Ðd¥,7d�´ZD¨l·lÁüšPpÈ´P,7LÀ ×<š<`]~XU¢Úüš`<š,fǶÚTÅ,1N,fl¥P ,fLšà¢ŠDˆðlž ,o´Pl�\M |� ¶Ð,“‹TŠ,y;`aˆØr´ZdÂl� DŒôš´Z<š,“Lš|°€àD‰l� ¶Šô°dÄl� D½¤,vm# ÿÿû<`Z«ü“¶ÚlXd‡³l�dA¶ÚD޳di¿ti´ZdŽ=<¦´Z<�d£ÓÈD™¶Út£<±,‡d�t± d£;`\åÜ­Ú€ô¯<ÉlÉ|¯¢Š,‡tÜÊ´PÀ¬³tܶÐÊÎÀ¬¹¶ŠÓdÚt›ζ€Ó<›,Ä&`SœrÉ  ¬À6€¬ÊÚÊÊʬÎÚÒÎDÃôÜ´<ܬÓÿþ@  ÕÔ ýÓFTN4E Ãc$€ ÃÞEXEC ER00 ATC00AI00 FA00 DAF00ESC00CLIDIOA00 OZ00 OW00 ;`^«—É"ÚeÿôäÉDôɶÚ<É<Ê,ËdÂTß¶Ú,éT,3T,3¶ZTà,Fd�Tá´,Q, €„�ææFT;`]DAçÚN42 «hm¶Úd½l´\7,ù\ò¶Ú,þ\8,\ó,° dø- T7´Šlý,? T7´�l,]@<`^N»Ú T7lT8l ¶’Tól ,A<’ ;=>Ú T7lT8l´ZTól ,öú¶Úd´Tò,(Tó,(<`[X&"¶Šd½Tó,(tŲÚ,+|Åßì ¶Úßìºßd9lj¶Úq,â£mT½Š,ITí,I´zlÂ;`[•¨=¶Ú\dE\dD캴 q,â4s¶ÀTí,LdK8¶ÐzdPô,â¶Úd€t±d¬t°d¦´tdd§;`_ìÓX´PtedÃDŽÀ,gda&lL´ l |fè ,s²Ú|ed­l�\®–ÚìfxT7,| Tí;`ZGTw¶Ú,êtyd7lfã¶Ú<flf\Ä,�,i¶ÐdÃTO,²h¶Úl±\8dO\ód6¶Ø\òd¯t|d7€<`[c#‘²Údb dšlÃ\¯¶Ðd…ôlcú¶Úl°ºlÄLî|ÄÐèßlÄ\ ¶Ú,žldßledôT¯ß:`^¾í¬ ,Ö€Àzd7²Êt|dð l±¶Ú\7,Ó\í,Ó\8¶ÚdÇ\ó,Ê\òdÈ´ô,Ó7;`Z¦ÌʶÊlÉúd7d6²Út|leßdð¶Úl°ºlÊ|´|»Út©tÅl±|«¶Úl¾\ï,çl±\ò ,ç<``øKä¶Ú\ó,ç,âˆtŶ,âdì70ÿÿÿýD`PØ`lù|–  Z¬ôÀ|e|°Zd9 |¬ú´d€tb;`[©ª¶Úd—tcd†Tñ,!¶Ðhd9ìÄq¶Úl¾\î,lb\ó¶Ø,\ò,là ´J,:là  db”|Å;`^<¶Šß,¢€TH,3;`cŽ>–Ðd"Dot"¶,3dFT€ dtÿþ Ple èLOð¢Ê¬Q|e¬XÐL"`¬\`FV³a¶Ø|glh|–lg ¬``O¹hÚ drt–d"J de0¬iZ i¬s  áà àFTN4H Ðc-€ß]$ENDFERCM EXEC FA00 GNA00ICH00JUMP LWAITMOVE PSL00 WBUF% LPAR RPAR FPRIN;`d/çÉŠ d,DÔàl9Ð µèLÓ|9¨’AÕãû $šàÜÞ•dþ¶Š,ædÿ,æ,æCdâl �’îþý ö<`féí0’ÿòÿ„Ðõ,ò$E ND,FTN4 d ,æÿÿ ÿ¶T ´ZdkD,=d.¶€T,æT<`]U˜²Š,ædk,¢Št|y |k´Zdt¤tld¤¶PT,&,!–Útt“tœt't¶Ðdtnd¡t¢;`bzÂ0¢Ðdy,$d8µHàD¨ PÿØ|k –Ú|d dltžd€¶Úì?\Édto�¶Òäe4môe,�É€;`iÈnR C X  0P€ÿø ÿüÿ÷#Zàô¶ <¶\·´€¬�,‚Š SYMBOL TABLE ’ NAME :`m/Ñ—ADDRESS USAGE TYPE LOCATION ¶STATEMENT NUMBER ÀSTATEMEN:`m»¼ÄT FUNCTION ÊSUBPROGRAM ÔVARIABLE ÞARRAY(*) èARRAY(*,*) :`m­Dñ òARRAY(*,*,*) üDOUBLE PRECISIONCOMPLEX  INTEGER € LOGICAL <`k>9  REAL )EXTERNAL .COMMON 3DUMMY 8LOCAL $’ÊÎÓÞè"Šl|+¢€d˜ DÉ;`^Ò”IZ,M8,HLÍŠ ×|ËDÊ DÇZ,W8,RLͶŠLË|ËDÈ DÌZ,a8,\DΠZLÍ ×0lË|:`Yfng¶Út<˜dAtžd¶Úto’¡d‰tž¶Úd�to’¡d‘¶Útžd€to’¡¶Ðd+D€t+¬B<`aM€Ú ’<+,Š¢Údt+tn¬�„’�µý¶Š<+¬�,…d Š,š<žDo°’to þ€o¬’;`d«}¡’§µ4Bþ¬¡®$صݬ¨$€³~³FTN4 9 6€¬¶Ú¶¶¶¬ºÚÒºDÆôº <º `FãúÅ ¬¿00ÿœdüè `DeJÌÿö0:Ê  ËÊ