IMD 1.17: 24/11/2010 20:01:08 screen plots john pearsons  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ÅÙÔÁ×@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@åÖÓñ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@æÈÄÙñ@ÄÁãÁ@@@@@@@@@@@@@@@ðøð@ðñððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ðñððñ@ÄÄÙñ@ÄÁãÁðù@@@@@@@@@@@@@ðøð@÷ôððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ôððñ@ÄÄÙñ@ÄÁãÁñð@@@@@@@@@@@@@ðøð@÷ôððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ôððñ@ÄÄÙñ@ÄÁãÁññ@@@@@@@@@@@@@ðøð@÷ôððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ôððñ@ÄÄÙñ@ÄÁãÁñò@@@@@@@@@@@@@ðøð@÷ôððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ôððñ@ÄÄÙñ@ÄÁãÁñó@@@@@@@@@@@@@ðøð@÷ôððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ôððñ@ÄÄÙñ@ÄÁãÁñô@@@@@@@@@@@@@ðøð@÷ôððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ôððñ@ÄÄÙñ@ÄÁãÁñõ@@@@@@@@@@@@@ðøð@÷ôððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ôððñ@ÄÄÙñ@ÄÁãÁñö@@@@@@@@@@@@@ðøð@÷ôððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ôððñ@ÄÄÙñ@ÄÁãÁñ÷@@@@@@@@@@@@@ðøð@÷ôððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ôððñ@ÄÄÙñ@ÄÁãÁñø@@@@@@@@@@@@@ðøð@÷ôððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ôððñ@ÄÄÙñ@ÄÁãÁñù@@@@@@@@@@@@@ðøð@÷ôððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ôððñ@ÄÄÙñ@ÄÁãÁòð@@@@@@@@@@@@@ðøð@÷ôððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ôððñ@ÄÄÙñ@ÄÁãÁòñ@@@@@@@@@@@@@ðøð@÷ôððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ôððñ@ÄÄÙñ@ÄÁãÁòò@@@@@@@@@@@@@ðøð@÷ôððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ôððñ@ÄÄÙñ@ÄÁãÁòó@@@@@@@@@@@@@ðøð@÷ôððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ôððñ@ÄÄÙñ@ÄÁãÁòô@@@@@@@@@@@@@ðøð@÷ôððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ôððñ@ÄÄÙñ@ÄÁãÁòõ@@@@@@@@@@@@@ðøð@÷ôððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ôððñ@ÄÄÙñ@ÄÁãÁòö@@@@@@@@@@@@@ðøð@÷ôððñ@÷óðòö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ôððñ@  Àß‹tÿý€”vÿú€ÿ ?BOOT-F-No boot on volume € à  å å å å å å å ©ŽScreen PlotsJohn PearsonDECRT11A ååååååååÚ}ôeþvN MÚ}ê'%­ Ú}ôeê'� ô5µ8ê'U�ÖKjLê'mÚ}þvY í Oeô³  Í$OeôÔ€ Í$ å Œ   åååååå å å å å å ååååååååå ó€óPóe"P³j„3h3|3z÷ ªß° ßU $÷ pó‹u!\ÀgéˆßÕ+èˆ?Err 59 USR not locked?Err 62 FORTRAN start faiÄhjÄe*Œ Ä\jÄe*Œ¶¶ ‚ �N A f C�ŠÁÁå�Á%ʃÝ�v … ‡ Ž\ ü‡æ �‰ õ€“\ÄþiÄe*Œ ÄòiÄe*Œlæ´LÀ¶&ö5Œ‰ö5‹‰ЉÀÌýˆ€¶¶6 6 –f�&¦æAÁE€ÿÆc@÷ ŠÂlB`¦’)� ó rĦ¦6 6 & � f Â�6ŠA ‡Â üv�Š�ÐÁ  6ŒN\€&f$&Ð  ÷ h÷ ¤ýÂ% Â% ÎU@÷ ŽÂå— ‚ Ë ƒrw–ŠŠŽ’€ÊŠíˆÂk€”@ Ò‹þùÎÿÿÃ# À" éˆ÷ ^€éˆÃ ÷ R÷ X΋ �Ö ÷ „ßÕ+ƒ‚€�÷ nßÕ+Ãüb ³‹¶ ÷ <÷ .…`D A @ Π耎 æ— þÿÂå‚ ‚  Âe Ãæ    ‡Îe€õ‡ŠÍà ¶ &f€Â €÷ ö ‚�€ä‡ ”ÂE€ÿÂå ‡ö à ÷ ÷ ïw6À”Fáˆþ‡ûà ÷ îÿÃÄbæzÀ|ÃÎÀ÷ ”€÷ ŽÃ ÷ ÆÿÀœbÀ•?áˆþ‡÷ DW =W ?Ã+ ÷ žÿ�±À•A ÷€Ö ‚ CPQCQBƒ“æ¾Âà‚m— Æÿ†Ö Å‚ ÷ Ð÷ vŽ  ˜ú‚÷ €— &î‚ õ€  À5@éÃ%P‚Ãe°E ÷ Tà Πò÷ <À5þûÎÕ€e@Œáˆþ‡À•†Á @Œü‡õÀ•)áˆþ‡À 鈇& € Îå üÎe:À ÷ èÿ€•áˆþ‡‡ ƒ ë‚ƒà€ ûÂ(÷ êÿæ÷ äÿæÃœÙ áˆþ‡Ã Ø€ø3� óœ¢¡š‡N N ÷ (E D A @ ‘‡�… ‚Âeb"Ö …„b" ‡¡    ‡Å D A @ ‡&f&f÷ êÿ÷ æÿ…eD A @ „eA @ �e@ €e‡&f&f À ì÷ € € € ÀEÀ`ÂEðÿ& ±N  ý€°U–‡¿‰þ‡Æ%@†½‰Æ"ÀÀ éˆw ¤ ?Err 60 stack overflowed ABCDEFGHIJKLMNOPQRSTUVWXYZ$. 012345678åûC r &@Ár&@r(&DsPA r „C�Å wA `€×t ‡ÂE ÂEÂDƒÓ ÀÁ&fÄÅ£££Ž& @ Ž & 傌†öåÀ  ¶�6±Œ&Š€CÎ÷ ‚Âå€÷ ÿ÷ Î ‚ ù÷ DÿŽ ÷ ô ù÷ àþ‚ ü‚6Œ‡‚c6Œ†‚#ƒ‚m  �÷ öþ ‡÷ ÿåŽ ‚ ¶Œ †¶#‚¶ã 6 öÞŽà¶Œ‡Â ‚cƒÃƒí¦‚ƒmƒíd€÷ `ö €Ò•-Î 9÷ fþ÷ XþÃEÿÀ@à ƒ ƒ ƒ Ãe0Ò�Î îå(ö ê€Ö …Ö ƒƒŒ†ƒŒ)†÷ €„…ÆeC HÒ• ƒŠü�‡÷ þ À%ú‚À%ö‚÷ æý‚ ùÒ•0Ò•.Î ÀÒ•0Ž ö ø€ÏÃÒ�Ã+-Å € ÃÒ�Ê•/Ь(Š›ŠŠÅå ü€Åe:r‘ÅC ÆeÖ öe Ò•*ö û· Ã¸eÄhÁœußj(Á À!È Æ"&À¼ ýˆÀÌýˆÅ(fÕ & æ€Æå¶ýˆ„ÿÿÿÿÿÿþà÷ Î ÀŽýˆÀ5ßðÀ5ß&÷ @e Î ÀPéˆÀ’ýˆ &ä ìˆ!zƒÄåÔ7eÄí eÄE&Âem„à&ÄEÄå  ü&ÄåP&!_ƒÂÂeÔ" „ ý‚s�ts�u³³³³³v³xÄåF3l3 À&Â# ýs !5ƒ÷ öÀŽýˆÀ5 ·#zd‡Â"Âe!#ƒÆe „‡\ô ñÀ@`À  ॠû€ @àÀE4ßô ÷ô ÷ ÀæÂ €�€ƒf¦ ÷ BýÎ €Â% Â% Îe@÷ (R³DƒÖ ¶¶^D €�C ŠÃÃå˜ Ã%èÿ  æv v ‡f&\& &ĈXÄe*Œz\ffz\& Â厠 ‚Á ‡Î €B`Á ‡Á ‡�`î†Ö ±A@^À €Ö Ö †¡€  A ò…¡^”ÂE€ÿÂå ‡ÀÀ€�ÁeB‰CIE Â`æÁ- À †Å  ÁŠ &ÄdXÄe*Œz\ffz\ff& &Ä2XÄe*Œz\ff& &ÄXÄe*Œz\f&¦ÃüW³�¢÷ . 3È5D E þ†AŒ@ ‡àD Å ùD à �Áe0b�ëÁb�Á à úŠÁ%-Ö „…‡Ò•*Î üV ÷Í¥�‰)@%@æ Žæ Žæ Žæ…&÷ F€Ö �Á �enÈ‹~�÷ FÌ5*4&Å Å ýÌ54-‚÷ ùóÞpó‹tóÜp&朢³d÷ òýÞ³•¢„÷  Å Ì5Â妀‚÷ Е-Áe«P”P”P”Е-‚ÂÂeöý€Âe/:��Â��‡JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECæR'æRæR'æPæƒÃe æÃz]³dó š‰³@a3 ü‡sá ÀÌ5À�@Ðüˆ ±@ Á ý€3@3 r3 pÄ3! †•û÷ Z°#ö†páóÖ ÀÄ Ä ýÀ‚¤þ Š3 3Š¢„…³ƒÖ Ž÷ÐÃT]óó³³góVóF`óbó Xwó b‡¬‰€Ã]3p\à ]3r\æÃþ\³pæÃð\³‡æÿÿÔƒ‚�  �É¥FÉ¥TÎ KÑ¥ ó±Kƒ‚�€Á Е ûÈ•T‹È•FKÈ5@È5#ÈEÌ €Ì5�mÈ5 ŠrƒŽ‡Àr…@ÀE€ÿ÷ ÚúÆdæþæó‹t6æÃ´\3 Dó‹t³~ƒÖ Þ æþæÃ”\ó‹tö~3 r3 p3 óX 3Š¢ƒ‡\Ò• Áåÿ Š� ý�ÂþmÊU€÷ ¨‡|ÿ|ÿ| 11 Floating underfloæR'÷Ü÷ úÈUÈ €ÈE€È‹™‰Þ &À÷ $€w"æR'÷ª÷ ÈÈUÈ €ÈE€È‹�™‰Þ ó›`È5 ‰wÜæR'÷v÷ ”ÈU‚È �ð w6 Output conversion error4 Computed goto out of range 12 Floating zero divide2 Integer zero divide3 Compiler generatedð ÈU€Þ æBóž`È5 ‰÷ dóóóå‡D&&„ Æ€‡æR'æÖæR'æà&f¦æ€Ã€[æ ÷ \³ öƒ error16 Wrong number of arguments 13 Sqrt of negative number1 Integer overflow 10 Floating overflow5 Input conversion e‚�€‡@&@&&Ý @�ˆMÖ õÖ øÖ @ö@&@&&MÖ ùÖ @÷攦)¦÷ úÆe‚&÷ 8È5€@ ÷ ^4 4 ÌE�Ì5rror14 Undefined exponentiation operation15 Log of zero or negative number7 Incompatible object modules553 List directed 9fromin routine "" line € ?Err (PC=A@ÀE€A‡@AÂ&&ff ø„ @¦b%l ‡DÃö`B÷ "°‰4 3 3Š¢„‡\@D@ D ‡Ö „ÄÀéˆÀéˆéˆßÕ+ÚZ³ fÄ3! †•û×,f$Šó fóÿ ØðÀnwäÄŠüÁNFàƒ @ÄŠA �‚¢ ”Á ù Š‚æ<¦¦¦€æ&¦åˆ†¤‰Ã `À�Î €—¥Bô°•Á ö—£CÈU—¥NöÈUóÆeHß5$€ èˆSTOP -- €Á €%ÃDZæœtææ&& ³fAPÁ  û³•t\Ì –%Ä ZŒ´´•t‡ææ æ�ÀeÁePPPHÀÆeN÷ TÉ¥RÈU@É¥OÈUÉ¥SÈU÷ 0 É¥NÈUÉ¥CÈU÷ ð‹p’3Š¢3 ‡ÄŠAW ÿÿ‡Ö ææææÃÖY& Ž�—£—£Îe¶­N ³¤ó‹t Ö ³R³D³Zó~&€$3R3~3D3Z€¶ÆeƒÞ æ&ÃlYóæ ¦)¦÷ ÄÆe‚&÷ -È5€@*÷ ( Ì5#Ì5)ô ô%üƒôeô 4 ô ÷ vÀþmA’ïÁ @à4ÌE�3 3Š¢ÀœS3`D€ó Zò¦ö~ƒ^\ææ æææææÃ&Y& Ž�—£—£Îe¶­N ³¤ó‹tÖ ³R³DÞ \³ d too long23 Hardware I/O error?63 Illegal instruction trap24 Attempt to read/write past end of file25 Attempt to read af¢ó \$w |𮉳V-ó Dìû  �ÂÂì׬R»�D»DÞ Ã,M3 V3 Þ ÃM3 Fû �û `óP óB3 \ ÷ pþ@�� ÷ dþter write26 Recursive I/O not allowed-45 Incompatible variable and format types27 Attempt to use device not in system31 NÀE€ÿxf!‚ ‚ ‚ ‚ ‚ ‚ ‚  ³�H3�I³ \sJ÷ 8þsLÂ%÷ *þsNó D—ÀL׬I( ÀœRÂ%Àó¥RÀóNÀóo available I/O channel28 Open failed for file29 No room for device handler$36 Bad file specification string,44 2nd recordNæÁ�ã @û €3`"Á  ùû¥,û¥ ³ Á ôÞ Ã"Ló J��œH´³ @àÎú€ &Ž Â%æNæÁR  request in ENCODE/DECODE 32 Fmtd-unfmtd-random I/O to same file!33 Attempt to read past end of record"34 Unfmtd I/O to TT orW — w øî­‰— úû  €ÃD >Á¥Á¥& & ÁEÿFà€� ÐÁ ýú ª'¼†ÃœKw ´î†‰¶Á’fôú º'ÆK†w œî…‰ÀDÁœRÁ%Á% LP%37 Random access read/write before define file&38 Random I/O not allowed to TT or LP'39 Record larger than record size in ‚’$J ’ŠJ N ë…ê‡� �Á ý“ˆ•‘‚€ŠÁ� Е  úƒ`CàBД ý€Ö ÁœS‚ÀDƒ� ð@`�àà• Á ü€àë^p€ì¬¾”–�’ˆŒ define file(40 Request for block larger than 65535)41 Define file attempted on open unit#35 Attempt to output to read only fŽŠÆ�H ”–�’ˆŒŽŠÃÊJ³�¢ó š‰÷ ôû3È5‡Í¥�‰¦)€È°ýˆ–%À üˆÃàÿÂ@ÂeH€ € �� � � Á@ÀÀ@@%ile30 No room for buffers*42 Memory overflow compiling object time format.46 Infinite format loop+43 Syntax error in object]�‡ÃbJ€Àe3d³�¢ó š‰€³‚&÷ xû3È5Þ È5÷ p2óó X‡f&ÃJó Õ¥ ýW­ÿÿ(c3 "3 $3 (3 &  time format149 Endfile on random file/47 Attempt to store outside partition048 Unit already open@64 Virtual array initializ ÷ ù@•À¥ ü Z @ 0À¥9Àå0 €`  `„P³ &åó (8À Â#ÀE€ÿŠÁqD$3 (ÁÐ#  S! ! !! #! +! 9! L!  ation failureA65 Virtual array mapping errorB66 Unsupported OPEN/CLOSE keyword or optionC67 Unsupported OPEN/CLOSE keyword or! oóU€&¾ó "ó &eÄc€9`3 "ó &[‡ó "ï€V÷ ˜À•y÷ ŽÀ• tó $À•÷ Ú³ $×,$?‚À•R÷ dó $�À•\Ö À• option351 Inconsistent OPEN/CLOSE statement specifications250 Keyword value error in OPEN statementD68 Direct access record ÷ ®„…‡÷ DÀ• O÷ :f ‚ I¥ýI¥û… „À•÷ d÷ x@•  û ùÅ ‡-$')(/.,:ó &÷ 0ÿó "ò«‰ó &üW¥ ýW©0‡W£9ƒÀesize error0 Non-FORTRAN error call Â%c”‰æ�‘  s û‡�Ñ‹s û‡•‰¡�À�åÀe Á ü‡ ÁÞ³ ‡÷ ’‡À• ;� (Àåó &æ‚ ó "âÄà Ý�ÀU€÷ €;� ³ ó, ‡ª‰:žžddddn:žž:žž: ~"˜žž$¢žžž&4žž3 (È÷ À3 †³ ‡ó,F†óF3 Fó VÀ• ÷ Ìÿ{`û `3 Vû‹€3 T‡ÁlÁ ó,FƒóFBóFÁìF³Â RÒ³ wjÿ³ "À3(Áå(™3 "3 (W È÷ ŒÿÅ÷ @ÿ³ "è÷ .ÿ@•÷ vÿ û€‡ó "�Ä5€ÿŠ ó &¨€ ¦÷ òþÀ"¦÷ èþÀ•¤÷ >ÿÆ€�‚ƒ\I/O syntax error=61 Illegal memory reference20 Invalid logical unit number21 Out of available logical unitS22 Input recor €â ø�3oA�sk÷ TÿÁ g�û ù€÷ Nÿøû €÷ Zÿ[û `Xó DTB÷ "ÿ;�³  J�û õ€÷ ÿ@÷ ÿõóBû €÷ ÿó D FDwÄ ÷‹8Dwäæ˜aæÚV÷ Ìå÷ åæ˜aæIX÷ ¼å÷ åæ–aæÝV÷ xåæÚn÷ vè÷ èä×- D7 :J÷0J÷‹0Jt÷$Jæ˜aæÚV÷ vå÷ ºäæ˜aæ}Xæ˜aæQ\÷ Zßæ¢aæœl÷ Xáæ¢aæ¤l÷ Lá÷ †Þæ˜aæÚV÷ 2ß÷ vÞæ˜aæw\÷ "ß÷ˆ=Á =Á WpÁmz=fÎe«l÷ ¸á· l=×-h=î÷ <Þæ˜aæ‰\÷ ÷ få÷ ªäæ–aæãV÷ "åæu÷ è÷ ’äæ˜aæÚV÷ >å÷ ‚äæ˜aæ«X÷ .å÷ räæ–aæãV÷ êäæu÷ Ðç÷ ZäæuæuæL8÷ äæP,÷ ä÷ �ä÷bCÄÅèÞæön÷ šáæún÷ ’á÷ Þæ˜aæÚV÷ ÈÞ÷ Þæ˜aæ¶\÷ ¸Þæ o÷ já÷ ôÝæ˜aæÚ\÷  Þæo÷ Rá÷ ÜÝæ˜aæ]÷ ˆÞ÷ ÌÝæ˜aæÚV÷ xÞ÷ ¼Ýæ˜aæA]÷ €�\f&ÄÁÌ‹€ÀÊ%éˆÂT³TÀ Ì5 E”Å¥1Рť+Å¥$ó 3 TÅ¥0÷ HÌ‹€Â ÷ <Ì‹€s  †Åžû•€@éˆ{‘øtf÷ œçÅeÄ ù÷ äw ˜åøtützw  åuzw |åÞn÷ .Cæ˜aæÒX÷ ¬ä÷ ðã÷ CÈ0æuæuæL8÷ ŽãæP,÷ ”ã÷ äæu÷ 6ç÷èBÄÅøtf÷ „…‡s ú†@”÷ ùs ツ…‡Ì‹€áˆþ‡‡m �´ ô5ÿô4 w€&4´ 4-‡4Ì5@ÌE€4 £‰÷ œæž æ"çÅeÄ ù÷ ¤ã÷ òHæ˜aæÒX÷ Jä÷ Žã÷ ÜHÐ7 †Bæ˜aæY÷ 0äæu÷ âæ÷ lãæu÷ 8àæ˜aæ%Y÷ ä÷ RãÀ¨HÀ  ÀaXX+Ê+æ˜aæÚV÷ �ˆÝæ&ææ&vC‡ô¥÷ jÌ5ÌEôåÌUôe´  €‡&ô 4-2†÷ .æž æ€ˆÝæŠ&& æ&èã÷ ,ãæ˜aæÚV÷ Øã÷ ãæ˜aæÚV÷ Èã÷ ãæ˜aæRY÷ ¸ã÷ üâæ˜aæ„Y÷ ¨ã÷ ìâæ–aæÝV÷ dãæân÷ bæ÷ Ôâ÷B×-úA7 ôAæ˜aæÚV÷ nã÷ ²âv‡´  €‡æž æ ˆÝÎ ÷†ÌE€Ì5@ôÿÿß‹*3 pÄr —‰ô5ÞÌU3 rÄp˜‰w¸è¦‚f&æ'’$€Ò ¦ ¦J"æ˜aæÚV÷ ^ã÷ ¢â×-ÎA}æ˜aæ¢Y÷ Fã÷ Šâæ˜aæ×Y÷ 6ã÷ zâæ–aæZ÷ òâææn÷ ðåæèn÷ èåæên÷ àå÷ Râæ˜aæÚV÷ þâ÷ Bâæ˜aæZ÷ îâ÷ 2âK…€�‚ƒ„¦v…ŽÞ ¦¶v…&æ¦f&Í Ã.Eó D߀�‚ƒ„…‡\&€Àe &&&à &Ð~'&Ð�Pöÿ0ôÿˆ‡ƒæ–aæZ÷ ªâæìn÷ ¨åæîn÷  åæðn÷ ˜å÷ âæ:A÷ ºÔ& æaFzæ,A÷ ªÔ& æpCzzæA÷ ˜Ôz·G·Gæ A÷ †Ô& æaFzæþ@÷ vÔ& æpCzzæ‚�€‡ ˆ¡ˆ¢ˆ£ˆ¤ˆ¥ˆ¦ˆ§ˆ¨ˆ©ˆªˆ«ˆ¬ˆ­ˆ®ˆ¯ˆ‡‡°Ì Ò ÒÖÌÜD!ŠJ P ÀÀÀÀ%f@‡Õ @‡Õ @H‡@’ÀEÿ‡Õ @H—‡¦)î@÷ dÔz·èF·æF8æ˜aæxZ÷ Lâ÷ �áæ˜aæ­Z÷ <â÷ €áæ–aæãV÷ øáæðt÷ Þä÷ háæ˜aæÚV÷ â÷ Xáæ˜aæåZ÷ â÷ Háæ–aæãV÷ Àáæôt÷ ¦ä÷ €f&æ€ýˆÎ…÷ Æe ‡Õ A@Aæÿÿ÷ 0÷ Bæ÷ <æCEÕ•:ÃeöËü€Ãe:/ÃÕ�ÃÕ�ƒò€‡Ä2&ÀÀ÷ 0À5 €Ä< æ 0áæ˜aæÚV÷ Üá÷ áæ˜aæH[÷ Ìá÷ áæ–aæÝV÷ ˆáæòn÷ †ä÷ øà ×-2@À  ×-&@Á @Ð÷@ ÷ FÀ  æFæFæFæ Fz–Á Á @ C Ä ‡á� Î ÷Ö ‡€ð@&æ€ýˆ–%‡7 ÞÒV7 F7 F÷2F÷HL÷ÿÿDL÷ÿÿâE7 âE÷ÿÿàE÷ÿÿÞE7 âE7 ÚE÷ÿÿÜE÷àEÄ(ÅuÕ•@Ð÷üEæE÷øEâEæ˜aæÚV÷ Ná÷ ’àæ˜aæ{[÷ >á÷ ‚àæ˜aæ®[÷ .á÷ ràæ–aæÝV÷ êàæôn÷ èã÷ Zàæ˜aæÚV÷ á÷ Jà÷ ˆ?ÅÌa÷  æu÷ Òá×- Ä üæ˜aæÚV÷ Xç÷ œææ˜aæîV÷ Hç÷ Œææ˜aæW÷ 8ç÷ |ææ˜aæÚV÷ (ç÷ lææ˜aæ:W÷ ç÷ \ææ˜aæÚV÷ ç÷ LæÅºa÷ âæ˜aæÚV÷ ðæ÷ 4ææV?ÅÎa÷ ª æ˜aæÚV÷ Ðà÷ àæ˜aæÇ[÷ Àà÷&?Á>?Á WpÁm?fÎe«l÷ Vã· ?×-?î÷ Úßæ–aæ \÷ Ràæön÷ 8ãæún÷ 0ã÷ ºßw 4áönún˜aærW÷ àæ÷ $ææ˜aæ¹W÷ Ðæ÷ ææ˜aæöW÷ Àææ aæ†l÷ ¾è÷ øåæ–aæçV÷ pææžaæu÷ ¢è÷ Üå÷úDÅuW¥ · ìD×-èD(÷÷ÞDÃĆlz–÷ð>ò>÷ì>î>÷à>â>÷Ü>Þ>÷Ü>Ò>÷Ø>Î>w áúnönz& æ Bz·Â>·À>w èàôtðtzw Ôàow êào& æÀAzw Àà o÷ˆD >÷„Dœ>ÅÖa÷ Ø ÅÜaÅu•à ýæ˜aæ X÷ Tææžaæu÷ Rè÷ Œåæ˜aæÚV÷ 8æ÷ |åæ˜aæÚV÷ (æ÷ låæ˜aæX÷ æ÷ \åæ–aæÝV÷ Ô忨n÷ Òè÷ Då×-fDÅÄa÷ º÷‹÷ Ð æ˜aæÚV÷ Úß÷ ßæ˜aæÚV÷ Êß÷ ßæ˜aæ\÷ ºß÷ þÞæ˜aæÚV÷ ªß÷ îÞæ˜aæ]÷ šß÷ ÞÞ×- >æ˜aæ-\÷ ‚ßæðt÷ 4âæôt÷ ,â÷ ¶Þ×-â= –À  ¢8¦¦æú8æô8z–Á ° æ˜aæ~^÷ 8Úæx8÷ êÜ÷ tÙn Áj8ffæ¨8æ¢8z–À  ÂN8¦¦æ�8æŠ8z–Á @Ð æ˜aÿæ/Àþ2Àmü2Àmú2Àmø2Àmö2Àmô27t3÷mî2n3¿ À/÷ f3w2ÿ°/æÂ2æ2cæB>÷ œÒ÷ fÓ÷ ÞÒ¿ ”/æ¦2æ@cæB>÷ €Òæ$>÷ †Ò÷ BÓæ$dæÎo÷ nÕæN^÷ âÙæ$8÷ ”Ü÷ Ùw ®Ú°nw ¤Úönz–À8ÐH8ÈF8w �Ú°nw †Úúnz–Àè7Ð.8È,8÷‹è7æ¦aæ¦aæÎ7æÈ7æ…÷ ¸Æe ÷‹Ä7æ¦aæ÷ ®Òÿ b/ÿ v2¿ X/‡ÿP/æ"dæDc÷ BÓæV2÷ Ö÷â2ÄÅ�of÷ øÕÅeÄ ù÷ bÒÿ/æ"dæˆc÷ Óæ$dæÎo÷ Õ÷ @Ò¿ ö.×/ 2¿ ”aæª7æ¤7æ…÷ ”Æe 7  7÷eŒ7÷eˆ7÷ 8w¸þ7 Š7÷‹~7w ÀÐ7À À 7ºl‚77¼l~7÷‹t7w€üæ˜aæ¨^÷ Ù÷ DØæ–aæÝV÷ ¼Øæo÷ ê.‡ÿâ.æ&dæDc÷ ÔÒæè1÷ žÕ÷t2ÄÅ�of÷ ŠÕÅeÄ ù÷ ôÑÿ¨.æ&dæˆc÷ šÒæ$dæÎo÷ ’Ô÷ ÒÑÿ†.‡ÿ~.æ"dæ�c÷ pÒ÷ ´Ñ¿ ºÛ÷ ,Ø×-Œ7_æ˜aæÛ^÷ ÐØ÷ Ø÷t7ÄÇÅÜ_÷h7Ád7Ac1ŠYu· Z7×-V7&õAAœ€uÁÅÿ@p�€uÄ è÷úb:7÷e#477 ê6÷æ607÷m&7*7ÅFb÷ öïj.w8þÿ`.æ"dæ¿c÷ RÒ÷ –Ñ¿ L.wþÿB.æ"dæðc÷ 4Ò÷ xÑ¿ ..wÂþÿ $.ÿÿÿ81¿ .‡7 ÆÓ(dÿ .æ¼1æ…÷ ÄÌ–%7à1wÞ1Å>d÷ ÀÌ· Ò6×-Î6Çð÷þ66=÷ú62=Åb÷ ÷ê6Ê<÷æ6Æ6@ŠÀ½D6æ7¼1wº1¿ à-7 ´17 ²1¿ Ô-÷ª1ÃÄ$pÅx1ÿ¼-•à ú¿ ²-7 Š17 –1ÿ ¤-÷ |1 ¿ š-w lÒ@p& æaFz÷ ÷b1ÿ ~-×-V1¿ r-æD1æhÞ÷ ¬Ýæ–aæÝV÷ $Þæôn÷ "á÷ ”Ý÷ Ò<wNú÷¨<ÅrlÁ¼<Á WpÁm–Þuz·²9·°9w Þ¾lðtz–ÈYæuæuæL8÷ 8Üæ¤3÷ >Ü÷ ÈÜæ¾l÷ àß÷’;ÄÅøtf÷ ÌßÅeÄ ù÷ NÜ÷ V9æ˜aæ˜]÷ ôÜ÷ 8Ü ÷ >9èÖ÷ ,Öæu÷ Â×wÜð7 ˆØRb÷Ä5ÃÄ8oÅDoÔãsÔ#1ÕãóÕ#1à ö÷ 5÷‹H;O÷”5”5æuæuæ¬;÷ †Õæ†;÷ ŒÕ÷ Ö÷n5ÄÅøtf÷ À  æ69æ09æ`AæZAz–Á @пæ˜aæ^÷ ºÜæ¾l÷ lß÷ öÛÀLAÀ  ÀaX®2 3æu÷ ¬Ø÷ 4;÷‹.Am÷ì:÷†m²:÷¾l®:÷Ü:;æu"ÙÅeÄ ù÷ ¤Õw ×øtützw &×uzw ×ho÷ >5æ cæZb÷ 2Ö÷ vÕ÷ (5È· 5æ5Î ÷ Èw îÖuzw æÖuzw ÂÖlo0æuæuæ¬;÷ ðÔæ†;÷ öÔæuæÈ5÷ \Ûæˆ4÷ bÛ÷ ìÛ÷¾:ÄÅøtf÷ øÞÅeÄ ù÷ zÛÀ¶:À À Á^:ôt öt· Â:æ¾:Î ÷ Îw äÜuzw ÜÜuzw ¼Ü¤nw Òܤnw ÈÜoz–÷ €Õælo÷ ˜Ø÷Ð4ÄÅøtf÷ „ØÅeÄ ù÷ Õ÷ ¼4æ cæZb÷ ¬Õ÷ ðÔ÷ ¦4Ðw dÖloðtz– À2:À  ÀaXÌ9h:w @Öloôtz–Y÷b4w* æ˜aæÈ]÷ ÖÛæo÷  Þ÷ Û­÷eú9÷eö9· $:÷- ::žw÷:þlĆmźl÷:>:æuæuæÈ5÷ ‚ÚæX5÷ ˆÚ÷ Ûæ÷ ,Þ÷Þ9Á÷z4ÃøtÄ8oÅDo÷Z4÷X4æT4æN4&&z–Ì>4ô<4æ64æ04ffz–Í 4õ4ÄeÅe÷ 4×÷4 4÷44À˜9À  ÀaÂøt¦÷ ÞÂeÁ ù÷ šÚÀÖ9À À ôt4ötË æ˜aæõ]÷ 0Û÷ tÚË ÊæææÄ9æ¾9z–-×-z9 æ˜aæ^÷ þÚæÐn÷ °Ý÷ :Ú×-Z9 XÒ9h:æ cæ�b÷ ØÔ÷ ÔÀr9À  ÀaXÒ9h:÷°3Ä8oÅDoæ cæÀb÷ ¤Ôæbo÷ n×&÷ P×f÷ J×÷ ÔÓÄeÅe· x3×-t3ä÷‹9æ cæ÷bæ˜aæ^÷ ÞÚf÷ ’Ý÷ ÚÃeÄeÅe· 09÷-,9(9‘7 9æu÷ ÊÖ÷ T9w˜÷ÿÿê8÷ B9÷þ8÷89V9÷¾lÊ8÷†mÆ8 Á¾8ffæø>æò>z÷ fÔ÷\3n3÷íX3h3æxo÷ $×÷ –Ów Õôttoz–÷F3Ä8÷B3À8‡7 âÕ*cÿ(0æ:3æ2cæB>÷ Óæ>÷ Ó÷ ÖÓ÷®3Ä#ňof÷ ÈÖÅeÄ ù÷ 2Ó è*Åve÷ Hæ7JY¿ Ø* ÷ @YÀ  ×-6Y à ÀÐ.ÿ¸*æXeæÃd÷ ªÎ÷ îÍ¿ ¤*æXeæe÷ –ÎÀ"ÀíþXÃúX —rÁ7¤.w` .æ�p÷ DÑ÷ ¶Íÿ"¿ h$�À r7À(· ¼(¿ T$�À rw®(¿ D$æÒpÀ˜(À :fÀm–(&ÎeYuæ…÷ ˜RÆeÿU$· n(×-j(ÿ $÷o@(R(¿ þ#· H(ÿXô#· B(ÿ->(j*æ&e÷ ¤Ïÿ#\*Åze÷ Êå¿ P*æ>.æfeæ…÷ ´åÆe¿ 6*ÿ &.¿ ,*‡ÿ'$*÷@.ÄÅupÿ(*Õ• Ä ù¿ *÷ .ÿ*ø)Â.€À Àmâ-"(wðþ¿ à#×/(¿ Ô#‡ÿ[Ì#Àü'ÀåÁþ'Wp7 (wà(¿ °#7 þ'÷ö'(÷ (ÿ]œ#ÁÔ'wpæ'÷f,ê'w`æ'¿ †#æÔ'÷ |¹w PÈTuzw HÈLuzw ’ÿ,â)r�tp¿ Ú)‚ ·ö-¿ Ð)— æÿ0Ä)Å€e÷ Nå¿ ¸)Å„e÷ ”Ë¿ ¬)ňe÷ ¶ ¿  )Å”e÷ ª ¿ ”)Å e÷ ž ¿ ˆ)Ŭe÷ ’ ¿ |)‡7 (ϸeÿn)À$ÈÌp¿ d#ÿ  'ÿaX#Å$h÷ 8õ¿ L#Å*h÷ V¿ @#ÿd8#ÅDh÷ (ÿe*#· x'÷-t'Š'¾¿ #ÀJ'ÁP'Wp-7^'wàZ'¿ #À4'Ào2'7R'÷åL'¿ ì"–-7B27@2¿ ^)Àˆ-762742¿ N)Àz-7*27(2¿ >)Àl-7272¿ .)‡7 ÚÎÀeÿ )7 j-¿ )÷b-¿ )ÀH-€  ¿ ü(ÿ4-ÿð( ÿ æ,'æ"hæ"'æÈpæÀpæ…÷ àÆe ¿ Æ"‡7 rÈRhÿ¸"7 ('¿ °"÷ÿÿ"'¿ ¦"7 '¿ ž"7 '¿ –"÷?'¿ Œ"÷ï'¿ ‚" ÿ‹î&À  ׯä& Á -À  ×/-?Á °ÿ Ð(æhæÈe÷ ÂÌ÷ Ìÿ º(÷ ¢1¿ °(‡ÿ¨(÷ ìÍÿž( ÿ Î,À  ×/Ä,ïÁ °ÿ~(æhæúe÷ pÌæ¤,÷ @Ðÿb"7 Ö&¿ Z"÷Ð&¿ P"÷È&¿ F"÷>À&¿ <"÷í¸&ÿ0"w ÇØpw üÆHuzæö*÷ ¸zw êÆPuzæà*÷ ¸z& æ@z·š&·˜&Å¢j÷ 6Æ7:Ï÷ ¬Ëÿ`(÷ H1¿ V(‡ÿN(÷ ’ÍÿD(×/„,Z,ÿ6(÷f,1¿ ,(×/d,(¿ (ÿ(V,ÿ(÷L,æ0¿ (À>,ÀmÖ0 @¿ ø'ÿ@*,ÿíÂ0$,n&¿ æ!w ¼ÆÚpw ²ÆLuzæ®*÷ ηzw  ÆTuzæ˜*÷ ¼·z& æ@z·T&·R&Ŧj÷ ìÅ7&&¿ œ! ÷-&&À  ÷-&&Á °1ÿz!æšjæZh÷ lÅæÿæ'(ÿÞ'÷,®0¿ Ô'×/ ,¿ È'ÿþ+ÿ"¼'÷ô+�0¿ ²'Àæ+Àm€0 ð¿  'ÿðÒ+ÿíl0Ì+ÿ%Ž'ÿ Ä+¿ „'‡ÿ'|'×/¼+ZwHÿ)Ö%÷ È÷ ¨Äÿ\!÷ D*¿ R!÷ –ÆÿH!÷-È%¾%¿ 1w <ÒDp& æaFzz& æpCz÷ â·(1ÿD-×-1¿ 8-w øÑ@pLpzw ÒDp& æpCzz& æ@z÷ ¦Â·ì0ÿ-w ÚÑDp& æaFzw °ÑLp¿ ð,æÊ0 ×/ +Á @Ð<ÿ0Ö&÷*+ÿ1Ê&ÀðÀïø*Áü*wp+7+w`+¿ ®&æÄpÀ+À :fÀmò*&ÎeYuæ…÷ UÆeÿ3‚&· Ø*×-Ô*Ó¿ r&÷oª*¼*÷ æÂw žÑDp¿ Þ,÷Æ0¼0· ¸0¿ Ð,w ¢ÑDpæÍÌæÌ>z÷ PÂÁœ0Á ±*p¿ ®,Áˆ0Ê0à Ã*p×p ÁàÀz0À p,p¿ Œ,÷l0ÿ€,Ãb0Ãmd0÷X0¿ p, × ¿ h&· ²*ÿ6^&· ¬*ÿ-¨*Œ*wêþ¿ J&×/€*¿ >&‡ÿ96&÷f*Ž*÷åˆ*¿ &&ÀX*Á\*Wp7r*wàn*¿ &7 \*÷T*l*÷ h*ÿ<ú%Á2*wpD*÷L*@*À   ò *pÁ °ÿN,æ4dæ0dÀÀ &Îmò/÷ ¢ÎÀÀ &Îe*p÷ úÒ÷ lÏÿ ,· 0×-þ/Çÿ,÷eô/· à/×-Ü/wNþ¿ ô+‡7  ÑDdw`<*¿ ä%æ2*÷ Ú»w ®ÊPuzw ¦ÊHuzw ‚ÊÌp¿ Â%ÿ þ)ÿ@¶%Å$h÷ –÷¿ ª%Å*h÷ ´¿ ž%ÿC–%Å6h÷ †ÿDˆ%· Ö)÷-Ò)æ)¾¿ x%÷¨)Æ)÷eÀ)ÿæ+7 ²4¿ Þ+7 ¬4¿ Ö+7 ¦4¿ Î+7  4¿ Æ+÷(˜4¿ ¼+÷(�4¿ ²+7 Š47 ˆ4¿ ¦+7 ‚47 €4¿ š+÷€@x47 v4¿ Œ+÷€@n47 l4¿ ~+÷j/d4¿ t+÷�/Ä¿ h%Àš)Áž)Wp7´)wà°)¿ P%æ�)æ"hæ†)æÈpæÀpæ…÷ DÆe ¿ *%‡ÿI"%ÁR)À r7j)· f)¿ %Á<)À rwV)¿ ú$÷F)ÿLî$À€%ÅZuÿ`+ŠÿX+Ä ÷¿ P+Åre÷ °æ7²Y¿ @+ ×-¨YàÀ  ÷ œYÁ @Ðÿ +æXeæLd÷ Ï÷ Vο +æXeæ�d÷ þÎ÷ BÎÿö*æ¶d÷ 0ÐÿñÀï)7>)÷í0)8)¿ Ø$æÄpÀ,)À :fÀm)&ÎeYuæ…÷ ,SÆe¿ ®$ ÷-ú(ö(À  ×/Ö(Á @ÐLÿPŒ$÷à(ÿQ€$Á°(ö(÷pÎ(BÂà·À(  7ü#¿ dæ0(÷ Zµw Äq¿ R÷‹Â# ¿ Hæ(÷ >µw öÃqÿE47 Ê#ÿF*Áö'À r7¸#· ´#¿ Áà'À rw¤#¿ æ qÀðÀíÈ'À ¸hÀmˆ#Z!×-V!¹÷eD!· L!×-H!�¿ Ì Â8!— À  — Á C�CŠÀÀ — !Á °¿ œ‡ÿ#”7 !ÿ$Š ×-ö Á ÷ è À @°Nÿ&&ÎeYuæ…÷ RMÆe¿ Ô÷-j#\#TÿKÆw †Ãqüpzw rÃq¿ ²÷‹"#ÿN¦Å¬j÷ ÈÃf&w lÃqzw HÃqŲj÷ ÌÂ7P'¿ |÷m #H'¿ rÿQj· ÖF¿ bÂÊ ÂmÊ �À r÷¼F 7`¾ ¿ DƒÁÀ rw° · ¬ ¿ .÷œ ÿ*"ÁŒ ÁíŽ Wp(÷ˆ ˆ w`„ ¿ Å\l÷ ~ÓÁv Aœiq@P7�\ ¿ îÅjŬj÷ ŒÃf&w 0Ãqzw ÃqŶj÷ �Â7'¿ @÷mÐ" 'ÿS4· Ê"÷-Æ"¸"wôþÿT÷ž"è&¿ ÷–"à&¿ ‡7 ¶ÃºjÿüÀ¬"7Ø"7Ö"¿ ì`l÷ pÓÿ-à· P ×-L Öÿ.Î÷e8 ×-4 ˜¿ ¼‡f&f&¦ Âå �„ ûÂe Ä „`ÂâÿÄe&Ä Ä „eÄ Ä Ä ó€ÅeBÁ¸VÉ N"÷Ð"Ä(Å(qÿØŠÄ ú¿ Îÿ €"+ÿ Âæ*kær"æ(qæÔN÷ ¸À÷ ÂæPq÷ rÄ÷ äÀ¿ š>ÿ ’æ(kæÂj÷ „ÁæPq÷ NÄ÷ ÀÀÿ t‡ÿlQ$úBÕ®(Í<ÅåÈ �ÈUÀ& � 0… ü‡u� õŠ ±@ Á ý3÷ BÒÄPAÀ VÅ&ÅeW!"V ƒÅ´VÅ'&†æž f@!ý‚€È !Ä æ*kæ"æ(qæ*O÷ bÀ÷ ¶Áæ"÷ Ä÷ ŽÀ¿ Dÿ<æ(kæöj÷ .Áæà!÷ àÃ÷ jÀÿ‡ÿæÌ!æ*kæ(qæ¸!æ²!æ…÷ Æe ¿ ð‡7 &Ä „etŒUŸ‰w ø¹›‰w ò¹œ‰w ì¹�‰#Ö Bœ ‚ ±� ±þÿñ üÿ ³` ×®PñU úÿ×®PñUúÿó, ‚ž‰³ñU€úÿ1Š ‚€0 È5œÂ,kÿâÅ¢k÷ HØ7DK¿ Ò÷¼!!À Àm.!7’¬J¿ 4÷‹¤J¿ *‡ÿ"Â�’J—  Âÿ — MÀ  — WÁ @ÐÀ½ð ¿ ò÷ ^Jÿf@Ü &€ýˆ †ñ5 ñEúÿñEáŽ Ž Ž Ž çˆ„‡ €€Mxdxd €¨z¸Ú}ôerl ,�' ž *è ×-RJÀ  ×-FJ>Á °#ÿÆæžkæ:k÷ ¸¿æÜš÷ ‚Â÷ ô¾ÿ¨ ×-JÀ Á�� Aаwúþÿ!ˆ‡ÿ"€ ×-ìIÀ  ×-àIí**** TERPLT *****ž$ ** Screen-Plotting LENPLT **ž- Enter DEVICE:FILENAME of data to be analyzed. RDOž4 Enter formaÁ °!ÿ$^æžkægk÷ P¿æÞš÷ Â÷ Œ¾ÿ&@ ×-¬IíÀ À½( w–þÿ($‡ÿ)Ŧk÷ x¿ ÷‹ wrþÿ, Â�nI— MÀ  — Nt of input file - enclose in parentheses.ž Format mustž- have at least three DATA fields, even if filež doesn't.ž DefaultÁ @Ð — WÁ @п Ô÷ @Iÿ.Ê ×­8I,À  ×­,I;Á @п ª÷ Iÿ0 wþ7 JÀ¨kÿ�÷üHö"÷åð"¿ €÷òè"÷íèHâ"¿ p ×­ is: � &�'ž4 Enter a (1) if you do NOT have IDOCs/label, else C/Rž0 Enter a (1) if file has NO time column, else C/Rž* ÞHaÀ  ×­ÒHzÁ °¿ PÀ�ÀHÀå 7�¸Hÿ >÷¨"Årqÿ .÷š"š"¿ $Õ­”Hÿ· „"×-€"6ì¿ æXlæ°k÷ ú½æàš÷ ¦À÷ 6½ÿEnter the first time in the file (seconds)ž# Enter time increment between pointsž+ Blank line detected before first data pointj ×­ÚN.¿ ^ ÷eÊNÿ0R Ūj÷ ®¿ F ×­¶N.¿ : ÷å¦Nÿ3. ÿ š$wÿ5 ÷ž$ $÷íä(š$¿  ÷�$’$÷íÖ(Œ$¿ þÀ‚$€ Á|$€  ê‡ÿâ×-P"4¿ Ö· @"ÿÌ ×-8"À  ×-,"!Á @п ¬· "ÿ¢÷"÷âkþ!ÿ�Áú!Áíü!Wp(÷îGô!w`ð!¿ v÷à!ÿÿ9ä÷h$j$¿ Ú÷`$\$¿ Ð÷X$T$¿ Æ÷ÿÿ4$ÿ=º÷ @$wŒÿ?ª÷0$2$€7 ,$¿ šæ$÷ �µæ$÷ ˆµz·$·$¿ |Á$À Âü#€ rjÁØ!Á AêkÁoÄ!ÁmÈ!W¬§q0.ÿJ²!Âm²!�À r÷¬!¬!7`¨!¿ ,ƒÁÀ rw˜!· ”!¿ Å\l÷ ŒÔÁ„!Aœiq@P7�j!¿ üÅ`l÷ ~Ôÿ î·  d start time past data file end time.ž& Program done. (Normal DE termination)ž( Enter a (1) to turn off graphics screen.ž2 dplpVeje4ehe`elejeup^e`enejelp\e`epejedpZe`eø€3N˜pé€{—  pž* ***** TYAXIS ERROR: ISTRTX out of range ()ž* ***ž The first time entry is  ž) ***** First time entry is bad: ž. Enter a (1) if you do NOT want to use HH:MMTo plot another component enter RETURN, else a (1)(Px Èð@h�¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø(Px È:SSž format, else enter RETURN.ž1 Please enter the start time (HH:MM:SS). To startž4 plotting from the beginning of the filð@h�¸à0X€¨Ðø Hp˜Àè 8 ` ˆ ° Ø ( P x   È ð  @ h � ¸ à  0 X € ¨ Ð ø H p ˜ À è 8`ˆ°Ø(Px Èe enter RETURN&&ž1 Please enter end time (HH:MM:SS). NOTE: Therež' are 6 tick-increments on the time axis.ž1 Pleasð@h�¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø(Px Èð@h�¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø(Px Èe enter the start time in seconds. To startž4 plotting from the beginning of the file enter RETURNž4 Please enter the end timð@h�¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø(Px Èð@h�¸à 0 X € ¨ Ð ø !H!p!˜!À!è!"8"`"ˆ"°"Ø"#(#P#x# #È#e (seconds). NOTE: Therež' are 6 tick-increments on the time axis.ž/ Which data component is to be plotted? (1,2,3)ž/ Ifð#$@$h$�$¸$à$%0%X%ÿÿ(9/Ü+1ÉZäÿulWšanWu”aÈnu¦aÈnðtœlôt¤l”a¨a”aŠ]ðtön oo ªa¬a®a”a you know the max and min values enter a C/R;ž otherwise enter a (1)ž/ What are the maximum and minimum values of the �ž c°aša¦a¦a¦a ²aœa´a”aœaša¦a¦a¶a ªaœa®a¤a°a”aän¦a¦a ªaœa´a¤aœa”a¦arl¶a"o¦a¸a˜a€Q¶R8ož/ *** Blank line detected during scanomponent?š ž ARE THE FOLLOWING CORRECT?ž Start time:  ¦ ž End time:  ž Start time: �¦ž End time: �&�ž co: ž* *** Bad data point found just after time:  ž Component ž minimum:   ž Maximum:   ž ** Nummponent:¦žMinimum value:  ¦žMaximum value:  ž Plotting density:  ž sec/inchž Data increment:  ž units/inchber of points surveyed: ž **ãs#1ãó#1ï8¸‚o’’’�ž File ž: Orbit number: ž Year: ž Daž- ooooooooooooooooooooooooooooooooooooooooooooož oooooooooooooož1 If these are correct enter RETURN; if NOT correctž enter (1y: &�ž. ***** Blank line detected in IDOCs: ž- ***** Error in reading IDOCs: ž- ***** Error i)1‚ TERPLTž, Blank (zero) line detected before start timež' ***** Bad data point just after point: ž& Blank (zn reading label:   M3KT p ¨HÀÌ>ÍÌTp6dñ€üX\pž1 ***** TYINIT ERROR: Screen array address greaterero) line detected: ž& ***** Bad data point just after time:  ž% *** ERROR: Data point out of range (  )žž than 160000¦ž [Relink with switch /H:160000]TYINIT Abortž. ***** TYINIT ERROR: Screen array address lessž than 2000 *** ERROR: Time out of range ( )ž. To continue this plot enter RETURN, else a (1)‚ž Data file empty.ž- Requeste0¦ž[Relink with switch /B:]TYINIT Abort ** TYLIB: 2.10 U OF M SSC ** àÿäÿ í�î!ÙšZudeÚš  x# #È#ð#$@$h$�$¸$à$%0%X%@ qqœjqqqö€H…qž, ***** TYNUM ERROR: Bad integer conversion ()ž) ***** T @€0123456789ABCDYNUM ERROR: Bad real conversion ()(ÛxHžZq MWž% ***** SMSYM ERROR: IX out of range ()ž% ***** SMSYM ERROR: IYEFGHIJKLMNOPQRSTUVWXYZ.-+*/^=()<>[]:!?,;0101011011010101110100101100101111000100011101110011110011110010011111011011100011101001 out of range ()MNW,;àÿ k—.; jqž( ***** GRGASC ERROR: Illegal character ()0 -<KZix‡11111101111100111010010010001111111101111101111111001111101111101101111101010110101110101110010101100101010110101101101110111100–¥´ÃÒáðÿ,;JYhw†•¤³ÂÑàïþ +:IXgv…”£²ÁÐßîý ätätÖtˆ COMPONE11010011110010011010011101110110110001110110111110110111101001001011111110100100100110110111010110111110010010010000000001010100** TYAXIS ERROR: ISTRTY out of range ()(F9.3) (F9.3)(Px Èð@h�¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø(NT (1X,E14.7,3(1X,E11.4))FIRST SECONDTHIRD Px Èð@h�¸à0X€¨Ðø Hp˜Àè 8 ` ˆ ° Ø ( P x   È ð  @ h � ¸ à  0 X € ¨ Ð ø H p ˜ À è 8`ˆ°Ø(Px Èð@h�¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø(Px Èð@h�¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø(Px Èð@h�¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø(Px Èð@h�¸à 0 X € ¨ Ð ø !H!p!˜!À!è!"8"`"ˆ"°"Ø"#(#P#x# #È#ð#$@$h$�$¸$à$%0%X%Ìp²pÀpÈp²ph hÀpÈpÌp h,f hÀpÈpÌp h4f hø€lMØpž% ***** TYPLOT ERROR: X out of range ()ž% ***** TYPLOT ERROR: Y out of range ()..(Px Èð@h�¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø(Px Èð@h�¸à0X€¨Ðø Hp˜Àè 8 ` ˆ ° Ø ( P x   È ð  @ h � ¸ à  0 X € ¨ Ð ø H p ˜ À è 8`ˆ°Ø(Px Èð@h�¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø(Px Èð@h�¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø(P : : x Èð@h�¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø(Px Èð@h�¸à 0 X € ¨ Ð ø !H!p!˜!À!è!"8"`"ˆ"°"Ø"#(#P#  0100100101110100111101101101111100100111101111101100111001101101101110101110110001111100011010010010010111111101101101101010101101101101000101010000000101101010101101010010010101101111100010001111010000000000000000000111000000000010111010000000101010101000100100010001001000000000101010000111000111000001010010010001100010010010100001010100010001100010001010100011010010010011110010010010110000010000010000010000010010010010000011001111100010010000000100010010000010    OUTINE WRITTEN BY C JEFF PALM C UNIVERSITY OF MINNESOTA C  IXTEMP=47 LUN = 1 REPLOT=.FALSE. TMCOMP=.TRUE. NORMAL=.TRUE. ENDFIL=.FALSE. ERR FALL 1979 (?) C C C REVISED ( 1980-1981 )--BY JEFF NYGREN, BOB ERLANDSON C REVISED (12-AUG-1981)--BY JOHN PEOR =.FALSE. C C*****ASSIGN INPUT/OUTPUT DEVICES C 1 FORMAT(' ') 2 FORMAT(I) 4 FORMAT(F15.7) 5 FORMAT(40A1ARSON C REVISED ( 1982? )--BY RALPH KNOX, CARY KANGAS C REVISED (25-JAN-1984)--BY GREG ROELOFS C REVISED (14-) 6 FORMAT(8(/)) WRITE(7,1) WRITE(7,7) WRITE(7,8) 7 FORMAT(' ***** TERDFT *****MAY-1984)--BY GREG ROELOFS C REVISED ( 6-AUG-1984)--BY GREG ROELOFS C REVISED (15-NOV-1984)--BY GREG ROELOFS C MOÕ ABƒÃEøÿ—týÿ�`ÉÜúš‡ DIFIED (3-JAN-1985)--BY GREG ROELOFS C REVISED (21-FEB-1985)--BY GREG ROELOFS C C LOGICAL*1 CHAR,IFMT(40),IFMT1(40@€&ÄÁsô5ÿÌ5€ó TÀˆ›éˆ3 Tàˆþ‡À¥ àˆþ‡À ÷ ‹4 m€’´ ÀE€ÿÙÀ% ÖÀ¥wf‹À% �C ˇ–‰É• ),IPRINT(18) LOGICAL NORMAL,ENDFIL,ERROR,REPLOT,TMCOMP REAL*8 PPTLAB(3),AVELAB(3),SHFLAB(3) INTEGER SCREEN(s„‡ €20,240) COMMON /PLT/NN,N3,K3,NTRANS,DATA(256),XR(256),PWR(129), + PWRMIN,PWRMAX,PMIN,PMAX,IXTEMP COMMON /AV PROGRAM TERDFT C C This program performs a dynamic Fourier transform on a set of C data anER/CDATA(16),NPAVG COMMON /TYBLOC/IXPOS,IYPOS,IXSTRT,IYSTRT,IXTICK,IYTICK,XLOW, + YLOW,XINC,YINC,IABT,SCREEN d outputs the density plot to the Terak screen. It can C be used for either DE or Rocket Lab data. Besides the main pro-  COMMON /ASCII/IADDR1,IXX,IYY,CHAR DIMENSION DAT(3),LABEL(32) C DATA PPTLAB/'Points p','er trans','form '/  C gram, the following subroutines are included: TRANS, DPLOT, C AVERG, and INPT. TERDFT must be linked with FTO1A, I DATA AVELAB/'Points t','o be ave','raged '/ DATA SHFLAB/'Points t','o be shi','fted '/ DATA IFMT1/'(','2DOCS, and C TYLIB2. C C C THIS PROGRAM WAS WRITTEN BY C ','X',',','E','1','3','.','7',',','3','(', + '1','X',',','E','1','1','.','4',')',')',' ',' ',' ',' ', + ' ',' ','  JEFF NYGREN C UNIVERSITY OF MINNESOTA C 5 AUGUST 1980 C C C ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '/ DATA IPRINT/'F','I','R','S','T',' ','S','E','C','O','N','D', + 'T', BASED ON A TWO-PART PROGRAM WRITTEN BY C WADE STEBBINGS AND BRUCE CHUCKEL C AND A SUBR'H','I','R','D',' '/ C C*****INITIALIZE VARIABLES C FACTOR=32752. !32752 seems to be an arbitrary choice  l, else C/R') READ(5,2) JINPUT 37 IF (JINPUT.NE.1) CALL IDOCS(LUN,1,ENDFIL) IF (ENDFIL) GOTO 960 IF (REhe file enter a C/R') READ(5,61) ISH,ISM,ISS 61 FORMAT(I2,1X,I2,1X,I2) STARTM=ISH*3600.+ISM*60.+ISS GOTPLOT) GOTO 52 C C*****READ IN THE FIRST TIME ENTRY AND PRINT IT. C 41 WRITE(7,1) WRITE(7,43) 43 FORMAT(' EnterO 72 65 WRITE(7,66) WRITE(7,67) 66 FORMAT(' Please enter start time in seconds. To start') 67 FORMAT(' plott a (1) if file has NO time column, else C/R') READ(5,2) KERK IF (KERK.EQ.1) TMCOMP=.FALSE. IBRNCH=2 ing from the beginning of the file enter a C/R') READ(5,4) STARTM 72 WRITE(7,1) CALL INPT(NTRANS,PPTLAB,128) IF (TMCOMP) GOTO 50 C IBRNCH=1 WRITE(7,1) WRITE(7,45) 45 FORMAT(' Enter the first time in the file (se IF (NTRANS.LT.64) NTRANS=64 IF (NTRANS.GT.256) NTRANS=256 NN=NTRANS/2+1 N3=NN !conds)') READ(5,4) TIME1 WRITE(7,1) WRITE(7,47) 47 FORMAT(' Enter time increment between points') N3 and K3 are used in DPLOT K3=1 IF (NTRANS.NE.256) GOTO 74 N3=N3+1 K3=2 C 74 WRITE(7,75) 75  READ(5,4) DELTAT 48 READ(LUN,IFMT,END=960,ERR=995) (DAT(J),J=1,3) DJUNK=DAT(1)+DAT(2)+DAT(3) IF (DJUNK.EQ.0. FORMAT(' Enter a (1) if you want averaging, else RETURN') READ(5,2) KIRK WRITE(7,1) 76 IF (KIRK.EQ.1) CALL I ') 8 FORMAT(' ** Dynamic Fourier Spectrum Screen Plotter **'/) WRITE(7,10) 10 FORMAT(/' Enter DEVICE:FILEN0) WRITE(7,51) IF (DJUNK.EQ.0.0) GOTO 48 GOTO 52 C 50 READ(LUN,IFMT,END=960,ERR=995) TIME1,(DAT(J),J=1,3) AME of file to be analyzed'/) CALL ASSIGN(LUN,0,-1,'RDO') C C*****VARIABLE FORMAT C DO 15 I=1,40 15 IFMT IF (TIME1.EQ.0) WRITE(7,51) IF (TIME1.EQ.0) GOTO 50 51 FORMAT(' Blank line detected before first data point') C (I)=' ' WRITE(7,1) WRITE(7,19) WRITE(7,20) WRITE(7,1) WRITE(7,22) IFMT1 19 FORMAT(' Enter 52 BACKSPACE LUN WRITE(7,1) WRITE(7,53) TIME1 53 FORMAT(' The first time entry is ',1PE16.7) C C***** format of input file - enclose in parentheses.', + ' Format') 20 FORMAT(' must have at least three DATA fields, eveENTER THE PLOTTING INFORMATION FROM THE USER. C 54 WRITE(7,1) WRITE(7,1) WRITE(7,55) WRITE(7,56) 55 n if file', + ' doesn''t.') 22 FORMAT(' Default is: ',40A1) READ(5,5) IFMT DO 25 I=1,40 25 IF ( FORMAT(' Enter a (1) if you do NOT want to use HH:MM:SS') 56 FORMAT(' format, else enter a C/R.') READ(5,2) JIM IFMT(I).NE.' ') GOTO 29 DO 26 I=1,40 26 IFMT(I)=IFMT1(I) 29 WRITE(7,30) 30 FORMAT(1X,40A1) C C*****READ  NNHMS=1 IF (JIM.EQ.1) NNHMS=0 WRITE(7,1) WRITE(7,1) IF (JIM.EQ.1) GOTO 65 WRITE(7,59) IN THE IDOCS C WRITE(7,1) WRITE(7,1) WRITE(7,32) 32 FORMAT(' Enter a (1) if you do NOT have IDOCs/labe WRITE(7,60) 59 FORMAT(' Please enter start time (HH:MM:SS). To start') 60 FORMAT(' plotting from the beginning of t NTRANS/2) IF (STARTM.LT.TIME1) STARTM=TIME1 ENDTM=STARTM + DELTAT*(NSHIFT*67+NTRANS) C FLO=0.0 FHI=15.7)') READ(5,127) PMIN1,PMAX1 127 FORMAT(2F15.7) C IF (PMIN1.LT.PMAX1) GOTO 128 TEMP=PMIN1 PMI1.0/(2.0*DELTAT) WRITE(7,82) FHI 82 FORMAT(' The Nyquist frequency is ',F11.5,' Hz.') WRITE(7,1) WRITE(N1=PMAX1 PMAX1=TEMP 128 PMAX=PMAX1*10.0E-10 PMIN=PMIN1*10.0E-10 C WRITE(7,1) WRITE(7,1) W7,1) WRITE(7,85) 85 FORMAT(' Which component is to be plotted? (1,2,3)') READ(5,2) ICOMP IF ((ICOMP.LTRITE(7,150) 150 FORMAT(' ARE THE FOLLOWING CORRECT?') WRITE(7,1) WRITE(7,152) 152 FORMAT(' ooooooooooooooooo.1).OR.(ICOMP.GT.3)) ICOMP=1 C C*****NOW FIND FIRST TIME TO BE PLOTTED AND DO FIRST TRANSFORM C IF (TMCOMP) GOTO 95 Cooooooooooooooooooooooooooooooooooo') C TMSHFT=DELTAT*NSHIFT WRITE(7,155) STARTM WRITE(7,156) ENDTM  INDEX=0 90 READ(LUN,IFMT,ERR=90,END=960) D1,D2,D3 INDEX=INDEX+1 TIME=TIME1+DELTAT*(INDEX-1) IF  WRITE(7,1) WRITE(7,158) PMIN1,PMAX1 WRITE(7,1) WRITE(7,161) NTRANS WRITE(7,163) DELTAT WRITE(TIME.LT.STARTM) GOTO 90 GOTO 100 C 95 READ(LUN,IFMT,ERR=95,END=960) TIME,D1,D2,D3 IF (TIME.EQ.0) WRITE(7,96)(7,165) NPAVG WRITE(7,167) NSHIFT WRITE(7,169) TMSHFT C 155 FORMAT(' Start time of first transform:',6X,F12.3, IF ((TIME.LT.STARTM).OR.(TIME.EQ.0)) GOTO 95 96 FORMAT(' Blank (zero) line detected before start time') C 100 BA' sec') 156 FORMAT(' End time of last transform:',9X,F12.3,' sec') 158 FORMAT(' Power settings:',10X,'PMIN = ',F16.7,'E-09CKSPACE LUN DO 117 I=1,NTRANS DO 113 J=1,NPAVG IF (TMCOMP) GOTO 105 C READ(LUN,IFMT,'/26X, + 'PMAX = ',F16.7,'E-09') 161 FORMAT(' Number of points per transform =',17X,I3) 163 FORMAT(' Data sample raEND=960,ERR=970) (DAT(K),K=1,3) INDEX=INDEX+1 TIME=TIME1+DELTAT*(INDEX-1) GOTO 110 C 1te (delta t) =',15X,F9.4) 165 FORMAT(' Number of points per average =',19X,I3) 167 FORMAT(' Points shifted between transfoNPT(NPAVG,AVELAB,1) IF (NPAVG.GT.16) WRITE(7,77) IF (NPAVG.GT.16) GOTO 76 77 FORMAT(' ** Maximum number of poi05 READ(LUN,IFMT,ERR=970,END=960) TIME,(DAT(K),K=1,3) C 110 CDATA(J)=DAT(ICOMP) 113 CONTINUE nts per average is 16 **') C IF (.NOT.TMCOMP) GOTO 80 WRITE(7,78) WRITE(7,79) 78 FORMAT(' What is the  IF (NPAVG.GT.1) CALL AVERG DATA(I)=CDATA(1)/FACTOR 117 CONTINUE C WRITE(7,1) WRITE(7,120) 120 time increment between points before') 79 FORMAT(' averaging? (Default is 6.0)') READ(5,4) DELTAT IF (DELTAT.E FORMAT(' First transform:') PWRMIN=9.0E30 PWRMAX=0.0 CALL TRANS C C*****ENTER REST OF PLOTTING INFO FQ.0) DELTAT=6. 80 DELTAT=DELTAT*NPAVG WRITE(7,1) CALL INPT(NSHIFT,SHFLAB,5) C STARTM=STARTM - DELTAT*(ROM USER C WRITE(7,1) WRITE(7,1) WRITE(7,125) 125 FORMAT( ' Enter PMIN, PMAX (in units of 1.0E-9) (2F  WRITE(7,172) 172 FORMAT(' If these are correct enter C/R; if NOT correct enter', + ' (1)') READ(5,2) INP(7,6) WRITE(7,370) ICOUNT,CENTIM 370 FORMAT(' ICOUNT = ',I4,' Center time = ',F9.3) C CALL TRUT IF (INPUT.EQ.0) GOTO 175 REWIND LUN IF (JINPUT.NE.1) CALL IDOCS(LUN,0,ENDFIL) GOTO 54 C C*****AANS CALL DPLOT C 380 CONTINUE C C C***************************************************************** C 40LL INFORMATION IS ENTERED. INITIALIZE THE PLOTTER, DRAW THE AXIS. C 175 WRITE(7,6) TSTART=STARTM + DELTAT*(NTRANS/2)0 WRITE(7,6) WRITE(7,410) 410 FORMAT(' To reverse the gray scale enter RETURN, else a (1)') READ(5,2) JINX  TIMINC=TMSHFT*10. FREQIC=(FHI-FLO)/16. C CALL TYINIT(1,57,1,' TERDFT') CALL TYPLTS(TSTART,FL WRITE(7,6) IF (JINX.EQ.1) GOTO 500 C DO 430 IY=15,209 DO 420 IX=4,20 SCREEN(IX,IY)=-SCO,TIMINC,FREQIC) CALL TYAXIS(47,30,273,40,3,0,0,1,NNHMS) CALL TYAXIS(47,31,196,12,3,0,90,1,0) CALL TYAXIS(4REEN(IX,IY)-1 ! (-1) = 65535 420 CONTINUE 430 CONTINUE GOTO 400 C C*****CLEAR SCREEN AND CON7,226,273,40,1,0,0,1,0) C CALL DPLOT C ISTRT=1 IEND=NTRANS-NSHIFT CENTIM=TSTART C C*************TINUE? C 500 WRITE(7,510) 510 FORMAT(' To continue this plot enter RETURN, else a (1)') READ(5,2) JOJO IF (************* MAIN LOOP **************************** C C 300 DO 380 ICOUNT=ISTRT,ISTRT+67 IF (ICOUNT.EQ.1) GOTO 3JOJO.EQ.1) GOTO 570 C WRITE(7,6) DO 540 IY=15,209 DO 530 IX=4,20 SCREEN(IX,IY)=0 530 80 C DO 310 I=1,IEND DATA(I)=DATA(I+NSHIFT) !Shift old data over 310 CONTINUE C  CONTINUE 540 CONTINUE C IADR=IADDR1+8560 DO 550 I=0,199 CALL IPOKEB(IADR+I,0) 550 CONTI DO 360 I=1,NSHIFT !Read in new data DO 350 J=1,NPAVG IF (TMCOMP) GOTO 330 NUE C ISTRT=ISTRT+68 IXTEMP=47 XLOW=CENTIM + DELTAT*NSHIFT CALL TYAXIS(47,30,273,40,3,0,0,1,NNHMS) C READ(LUN,IFMT,END=960,ERR=970) (DAT(K),K=1,3) INDEX=INDEX+1 TIME=TIME1+DELTAT* GOTO 300 C C*****FILE EMPTY: STOP C 570 WRITE(7,6) WRITE(7,605) 605 FORMAT(' Enter a (1) to turn off gra(INDEX-1) GOTO 340 C 330 READ(LUN,IFMT,END=960,ERR=970) TIME,(DAT(K),K=1,3) C 340 CDATphics screen.') READ(5,2) JOHN IF (JOHN.EQ.1) CALL IPOKE("177744,"07) ICOUNT=ICOUNT-1 PWRMIN=PWRMIN*A(J)=DAT(ICOMP) 350 CONTINUE IF (NPAVG.GT.1) CALL AVERG DATA(I+IEND)=CDATA(1)/FACTOR 3601.0E9 PWRMAX=PWRMAX*1.0E9 WRITE(7,1) WRITE(7,610) ICOUNT WRITE(7,620) PWRMIN WRITE(7,630) PWRrms =',12X,I5) 169 FORMAT(' Time between transforms =',15X,F12.4) C WRITE(7,152) WRITE(7,1) WRITE(7,1)  CONTINUE C C *** WRITE THE TIME AND DO THE TRANSFORM C CENTIM=CENTIM + DELTAT*NSHIFT WRITE  PWRMIN,PWRMAX,PMIN,PMAX,IXTEMP DIMENSION XI(256) C DATA PI/3.1415926536/ C C*****INITIALIZE VARIABLES C MASKS/1,2,4,8,16,32,64,128/ DATA ICHAR/'0','0','0','0','0','0','1','0','0','0','0','0', + '0','1','0','0' INV=0 C DO 10 I=1,NTRANS XR(I)=DATA(I) XI(I)=0.0 10 CONTINUE C C*****MULTIPLY DATA BY A 1,'0','0','0','0','0','0','0','1', + '0','1','0','0','0','0','1','0','0','0','0','1', + '1','0','MAX 610 FORMAT(' Transforms performed: ',I5) 620 FORMAT(' Minimum power: ',F16.7,'E-09') 630 FORMAT(' Maximum 0% COSINE-TAPERED WINDOW AND DO TRANSFORM C M=INT(FLOAT(NTRANS)/20.+.5) DO 20 I=1,M WEIGHT=.5-.5*COS(PIpower: ',F16.7,'E-09') C IF (NORMAL) WRITE(7,660) IF (ENDFIL) WRITE(7,670) IF (ERROR) WRITE(7,680) 660 *FLOAT(I-1)/FLOAT(M)) XR(I)=XR(I)*WEIGHT XR(NTRANS-I+1)=XR(NTRANS-I+1)*WEIGHT 20 CONTINUE CALL FORMAT(//' Normal DE/Rocket termination'//) 670 FORMAT(//' End of file'//) 680 FORMAT(//' Error in reading FTO1A(XR,XI,NTRANS,INV) IF (INV.EQ.-1) STOP 'Error in FTO1A' C C*****COMPUTE POWER AND CHECK FOR NEW MAX OR MIN C  data'//) C WRITE(7,690) 690 FORMAT(' To plot another component enter RETURN, else a (1)') READ(5,2) NINPUT  DO 30 I=1,NN PWR(I)=XR(I)*XR(I)+XI(I)*XI(I) IF (PWR(I).GT.PWRMX) PWRMX=PWR(I) IF (PWR(I).LE.PW IF (NINPUT.NE.1) STOP 'This is what is known as mega-awesome.' C REPLOT=.TRUE. NORMAL=.TRUE. ENDFIL=.RMN) PWRMN=PWR(I) 30 CONTINUE C IF (PWRMX.LE.PWRMAX) GOTO 50 PWRMAX=PWRMX WRITE(7,40) PWRMAX*1.0E9 FALSE. ERROR =.FALSE. PWRMIN=9.0E30 PWRMAX=0.0 IXTEMP=47 REWIND LUN GOTO 37 C C***** 40 FORMAT(' New maximum power: ',F16.7,'E-09') C 50 IF (PWRMN.GE.PWRMIN) RETURN PWRMIN=PWRMN WRITEERROR CONDITIONS C 960 ENDFIL=.TRUE. NORMAL=.FALSE. GOTO 570 C 970 ERROR=.TRUE. NORMAL=.FALSE. (7,60) PWRMIN*1.0E9 60 FORMAT(' New minimum power: ',F16.7,'E-09') C RETURN END  GOTO 570 C 995 WRITE(7,996) 996 FORMAT(' ***** First data entry is bad: ') GOTO(48,50) IBRNCH C  SUBROUTINE DPLOT C C This subroutine plots a Fourier spectrum as a line of gray- C scale intensity. END SUBROUTINE TRANS C C This subroutine prepares the data for transforming, ca There are 9 shades available and they cover C the same range of intensities as LENDFT. C C LOGICAL*1 CHAR,MASKS(lls the C transform subroutine (FTO1A), and computes the power of each C discrete frequency. The power values are ret8),ICHAR(4,3,8),NBYTE COMMON /PLT/NN,N3,K3,NTRANS,DATA(256),XR(256),PWR(129), + PWRMIN,PWRMAX,PMIN,PMAX,IXTEMP urned to the main C program in the array PWR. C C COMMON /PLT/NN,N3,K3,NTRANS,DATA(256),XR(256),PWR(129), +  COMMON /ASCII/IADDR1,IX,IY,CHAR DIMENSION D(9) C DATA D/.0001,.0003,.001,.003,.01,.03,.1,.3,1.0/ DATA   Terak doesn't have C room for 129 columns. Hence each pair of values is averaged C into one column (except the 65th: it's unique). C PINV=1.0/(PMAX-PMIN) DO 80 L=1,65 PP=(XR(L)-PMIN)*PINV IF (PP.LE.D(1))  PROGRAM TERPLT C C ******* Single-axis LENPLT ******* C GOTO 70 IF (PP.LE.D(8)) GOTO 30 INDX=9 GOTO 50 C 30 DO 40 I=2,8 INDX=I  ** Screen Plotter ** C C C C This program plots each component of the magnetic field with the C time axis pl IF (PP.LE.D(INDX)) GOTO 50 40 CONTINUE C 50 INDX=INDX-1 DO 60 J=1,3 IADDRT=IADDRotted lengthwise. This program will plot any number C of points, and it must be linked with IDOCS and TYLIB2 (or later C 1+40*(IYTEMP-J) DO 60 I=1,4 IF (ICHAR(I,J,INDX).EQ.'0') GOTO 60 IADR=IADDRT + (IXTE versions). C C C THIS PROGRAM WAS WRITTEN BY C RALPH D. KNOX C 0','0','0','1','1','0','0','0','0','1', + '1','1','0','0','0','1','1','0','0','0','1','1', + '1'MP+I)/8 IBIT=MOD(IXTEMP+I,8)+1 NBYTE=IPEEKB(IADR).OR.MASKS(IBIT) CALL IPOKEB(IAD,'1','1','0','0','1','1','1','0','0','1','1', + '1','1','1','0','1','1','1','1','0','1','1','1', + R,NBYTE) 60 CONTINUE C 70 IYTEMP=IYTEMP-3 80 CONTINUE C C IXTEMP=IXTEMP+4 C RETURN  '1','1','1','1','1','1','1','1','1','1','1','1'/ C DO 10 I=K3,N3,K3 IF (NN.EQ.33) XR(2*I-1)=PWR(I)  END SUBROUTINE AVERG C C This subroutine averages the values in the CDATA a !The array XR is used IF (NN.EQ.33) XR(2*I)=PWR(I) ! here only to save IF (NN.EQ.6rray and C returns the average value in CDATA(1). C C COMMON /AVER/CDATA(16),NPAVG C SUM=0.0 C DO 5) XR(I)=PWR(I) ! memory; it is reset IF (NN.EQ.129) XR(I/2)=(PWR(I-1)+PWR(I))*0.5 ! each time i10 I=1,NPAVG SUM=SUM+CDATA(I) 10 CONTINUE C CDATA(1)=SUM/NPAVG C RETURN END n TRANS 10 CONTINUE C IYTEMP=209 C C*****FIND CORRECT DENSITY VALUE AND DO OVERPRINTING LOOP. Note that C  SUBROUTINE INPT(INPUT,INAME,IDEF) REAL*8 INAME(3) C WRITE(7,10) INAME,IDEF 10 FORMAT(' Input (INTEGER):  exactly 65 elements of the XR array are plotted; this is the C reason for the special value of N3 in the case that NN= ',3A8/' Default is ',I3) READ(5,20) INPUT 20 FORMAT(I) IF (INPUT.EQ.0) INPUT=IDEF TYPE* C RETU129 (so C the loop variable 'I' goes up to 130 and I/2 goes to 65). K3 C is set equal to 2 for NN=129 because theRN END  IFMT(40),IFMT1(40),STSTR(8),ENDSTR(8), + IPRINT(18),SCREEN(40,240),CHAR LOGICAL EMPTY,DONE,PBEGIN,BEGIN,REPLOT,END WRITE(7,22) IFMT1 19 FORMAT(' Enter format of input file - enclose in parentheses.', + ' Format must') 20 FOR,TMCOMP,CONTIN COMMON /HELLO/STARTM,ENDTM,DAT(3),TIME1,DELTAT,IBRNCH,LUN, + TMCOMP,IFMT COMMON /TYBLOC/IXPOMAT(' have at least three DATA fields, even if file', + ' doesn''t.'/) 22 FORMAT(' Default is: ',40A1) READ(5S,IYPOS,IXSTRT,IYSTRT,IXTICK,IYTICK,XLOW, + YLOW,XINC,YINC,IABT,SCREEN COMMON /ASCII/IADDR1,IXX,IYY,CHAR DI,5) IFMT DO 25 I=1,40 25 IF (IFMT(I).NE.' ') GOTO 30 DO 26 I=1,40 26 IFMT(I)=IFMT1(I) 30 WRITE(7MENSION TIME(50),DATA(50),LABEL(32) C DATA IFMT1/'(','2','X',',','E','1','3','.','7',',','3','(', + '1','X',',',,32) IFMT 32 FORMAT(1X,40A1) C C*****READ IN THE IDOCS (ICODS) C WRITE(7,1) WRITE(7,1) WRITE(7,35) 'E','1','1','.','4',')',')',' ',' ',' ',' ', + ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '/ DATA IPRI 35 FORMAT(' Enter a (1) if you do NOT have IDOCs/label, else C/R') READ(5,2) JINPUT 37 IF (JINPUT.NE.1) CALL IDOCSNT/'F','I','R','S','T',' ','S','E','C','O','N','D', + 'T','H','I','R','D',' '/ DATA LABEL2/' ',' ',' ',' ',' ',' '(LUN,1,END) IF (END) GOTO 399 IF (REPLOT) GOTO 81 C C*****READ IN THE FIRST TIME ENTRY AND PRINT IT. C 50 W,' ','C','O','M','P','O', + 'N','E','N','T',' ',' ',' ',' '/ C C*****INITIALIZE VARIABLES C TIME99=0.0 RITE(7,1) WRITE(7,52) 52 FORMAT(' Enter a (1) if file has NO time column, else C/R') READ(5,2) KERK IF  IBLOCK=50 LUN = 1 TMCOMP=.TRUE. EMPTY =.TRUE. DONE =.FALSE. PBEGIN=.TRUE. BEGIN =(KERK.EQ.1) TMCOMP=.FALSE. IBRNCH=2 IF (TMCOMP) GOTO 58 C IBRNCH=1 WRITE(7,1) WRITE(7,53)  UNIVERSITY OF MINNESOTA C 15 SEPTEMBER 1982 C C C REVISED (27-JAN-1983)--B.TRUE. END =.FALSE. REPLOT=.FALSE. CONTIN=.TRUE. C C*****ASSIGN DEVICES C 1 FORMAT(' ') 2 FOY RALPH D. KNOX C REVISED (14-FEB-1983)--BY RALPH D. KNOX C REVISED (27-JUL-1983)--BY RALPH D. KNOX C REVISED ( 7RMAT(I) 3 FORMAT(I3) 4 FORMAT(F15.7) 5 FORMAT(40A1) DO 7 I=1,40 7 IFMT(I)=' ' WRITE(7,1) -SEP-1983)--BY GREG ROELOFS C REVISED (22-SEP-1983)--BY GREG ROELOFS C REVISED (20-JAN-1984)--BY GREG ROELOFS C R WRITE(7,8) WRITE(7,9) 8 FORMAT(' ***** TERPLT *****') 9 FORMAT(' ** Screen-Plotting LEVISED ( 5-MAR-1984)--BY GREG ROELOFS C REVISED (30-JUL-1984)--BY GREG ROELOFS C REVISED (18-OCT-1984)--BY GREG ROELOFENPLT **') WRITE(7,1) WRITE(7,10) 10 FORMAT(' Enter DEVICE:FILENAME of data to be analyzed.') WRITE(7,1S C CREATED ( 3-JAN-1985)--BY GREG ROELOFS C REVISED (20-FEB-1985)--BY GREG ROELOFS C C LOGICAL*1 LABEL2(20),) CALL ASSIGN(LUN,' ',-1,'RDO') C C*****VARIABLE FORMAT C WRITE(7,1) WRITE(7,19) WRITE(7,20)  DJUNK=DAT(1)+DAT(2)+DAT(3) IF (DJUNK.EQ.0) WRITE(7,59) IF (DJUNK.EQ.0) GOTO 56 GOTO 61 C 58 READ(LUN,I4) STARTM WRITE(7,1) WRITE(7,102) 102 FORMAT(' Please enter the end time (seconds).') READ(5,4) ENDTM FMT,END=399,ERR=67) TIME1,(DAT(J),J=1,3) IF (TIME1.EQ.0) WRITE(7,59) IF (TIME1.EQ.0) GOTO 58 59 FORMAT(' Blank105 WRITE(7,1) WRITE(7,110) 110 FORMAT(' Which data component is to be plotted? (1,2,3)') READ(5,2) ICOMP  line detected before first data point') C 61 EMPTY=.FALSE. WRITE(7,62) TIME1 62 FORMAT(' The first time entry i IF ((ICOMP.LT.1).OR.(ICOMP.GT.3)) ICOMP=1 IF ((STARTM.EQ.0).OR.(STARTM.LT.TIME1)) STARTM=TIME1 WRITE(7,1) s ',1PE15.7) BACKSPACE LUN GOTO 81 C 67 WRITE(7,68) 68 FORMAT(' ***** First time entry is bad: ') GOTO(56,58) IBRNCH C C*****ENTER THE PLOTTING INFORMATION FROM THE USER. C 81 WRITE(7,1) WRITE(7,1) enter a (1)') READ(5,2) INPUT WRITE(7,1) IF (INPUT.EQ.0) GOTO 129 CALL MAXMIN REWIND LUN  WRITE(7,1) WRITE(7,88) WRITE(7,89) WRITE(7,90) 88 FORMAT(' Enter a (1) if you do NOT want to use  IF (JINPUT.NE.1) CALL IDOCS(LUN,0,END) 129 WRITE(7,1) WRITE(7,130) (IPRINT((ICOMP-1)*6+I),I=1,6) 130 FORMAT(' WHH:MM:SS') 89 FORMAT(' format, else enter RETURN. NOTE: There') 90 FORMAT(' are only 6.5 inches available for eahat are the maximum and minimum values of the ',6A1, + ' component?') READ(5,140) AMIN,AMAX 140 FORMAT(2F10.3) ch plot.') READ(5,2) JIM NNHMS=1 IF (JIM.EQ.1) NNHMS=0 WRITE(7,1) WRITE(7,1) IF (JIM.E IF (AMIN.LT.AMAX) GOTO 141 AMAX1=AMAX AMAX=AMIN AMIN=AMAX1 C 141 DATAIC=(AMAX-AMIN)/10.0 TQ.1) GOTO 98 WRITE(7,92) WRITE(7,93) 92 FORMAT(' Please enter start time (HH:MM:SS). To start') 93 FORMATIMINT=ENDTM-STARTM TIMINC=TIMINT/6.5 ENDBLK=ENDTM C CALL HHMMSS(STARTM,STSTR) CALL HHMMSS(ENDTM,END(' plotting from the beginning of the file enter RETURN') READ(5,94) ISH,ISM,ISS 94 FORMAT(I2,1X,I2,1X,I2) WRISTR) C C*****ASK THE USER IF THE INFORMATION IS CORRECT; IF NOT, LOOP BACK C WRITE(7,1) WRITE(7,1) WRITETE(7,1) WRITE(7,95) 95 FORMAT(' Please enter end time (HH:MM:SS).') READ(5,94) IEH,IEM,IES STARTM=ISH*3(7,155) 155 FORMAT(' ARE THE FOLLOWING CORRECT?') WRITE(7,1) WRITE(7,171) IF (JIM.EQ.1) WRITE(7,157) STA53 FORMAT(' Enter the first time in the file (seconds)') READ(5,4) TIME1 WRITE(7,1) WRITE(7,55) 55 FO600.+ISM*60.+ISS ENDTM=IEH*3600.+IEM*60.+IES GOTO 105 98 WRITE(7,99) WRITE(7,100) 99 FORMAT(' PleasRMAT(' Enter time increment between points') READ(5,4) DELTAT 56 READ(LUN,IFMT,END=399,ERR=67) (DAT(J),J=1,3) e enter start time in seconds. To start') 100 FORMAT(' plotting from the beginning of the file enter RETURN') READ(5, DAT(J),J=1,3) INDEX=INDEX+1 TIME(1)=TIME1 + DELTAT*(INDEX-1) IF (TIME(1).LT.STARTM) GOTO 210 GOTO 24 *** SCREEN FULL: STOP PLOTTING FOR NOW C 342 CONTIN=.FALSE. BACKSPACE LUN ICOUNT=ICOUNT-1 IF (ICORTM,ENDTM 157 FORMAT(' Start time: ',F13.5,11X,'End time: ',F13.5) IF (JIM.NE.1) WRITE(7,158) STSTR,ENDSTR 158 FORM0 C C *** TIME COMPONENT C 220 READ(LUN,IFMT,END=399,ERR=235) TIME(1),(DAT(J),J=1,3) IF (TIME(1).EQ.0) WRITE(7,AT(' Start time: ',8A1,19X,'End time: ',8A1) WRITE(7,1) C WRITE(7,159) (IPRINT((ICOMP-1)*6+I),I=1,6) 159 FOR230) IF ((TIME(1).EQ.0).OR.(TIME(1).LT.STARTM)) GOTO 220 230 FORMAT(' Blank (zero) line detected before start time') MAT(1X,6A1,' component:') WRITE(7,160) AMIN,AMAX 160 FORMAT(5X,'Minimum value: ',F10.3,5X,'Maximum value: ',F10.3) C  GOTO 240 C C *** ERROR MESSAGE C 235 WRITE(7,335) TIME(1) GOTO(210,220) IBRNCH C 240 BACKSPACE LUN  WRITE(7,1) WRITE(7,162) TIMINC 162 FORMAT(' Plotting density: ',F12.4,' sec/inch') WRITE(7,164) DATAIC  INDEX=INDEX-1 C C*****LOAD IN THE DATA ARRAY WITH THE NEXT IBLOCK DATA POINTS C 275 IF (TMCOMP) GOTO 315 C C ** 164 FORMAT(' Data increment: ',F12.4,' units/inch') WRITE(7,171) 171 FORMAT(' oooooooooooooooooooooooooooooooooooo* NO TIME COMPONENT IN FILE C DO 310 I=1,IBLOCK ICOUNT=I C 280 READ(LUN,IFMT,END=345,ERR=290) (DAT(J),Jooooooooo', + 'oooooooooooooo') WRITE(7,1) WRITE(7,172) 172 FORMAT(' If these are correct enter RETURN; =1,3) DATA(I)=DAT(ICOMP) INDEX=INDEX+1 TIME(I)=TIME1 + DELTAT*(INDEX-1) IF (TIME(I).GT.Eif NOT correct', + ' enter (1)') READ(5,2) INPUT IF (INPUT.NE.0) GOTO 81 C C*****ALL INFORMATION IS ENTERNDBLK) GOTO 342 GOTO 310 C 290 WRITE(7,300) INDEX 300 FORMAT(' ***** Bad data point just after point: ',IED. INITIALIZE THE PLOTTER, WRITE THE LABELS. C DO 195 I=1,6 195 LABEL2(I)=IPRINT((ICOMP-1)*6+I) C WRITE(5) GOTO 280 C 310 CONTINUE GOTO 352 C C *** TIME COMPONENT IN FILE C 315 DO 340 I=1,IBLOCK 7,197) 197 FORMAT('1',24(/)) CALL TYINIT(1,57,1,' TERPLT') CALL TYPLTS(STARTM,AMIN,TIMINC,DATAIC)  ICOUNT=I C 320 READ(LUN,IFMT,END=345,ERR=330) TIME(I),(DAT(J),J=1,3) DATA(I)=DAT(ICOMP) IF (TICALL TYAXIS(52,220,261,40,1,0,0,1,0) CALL TYAXIS(312,20,201,20,1,0,90,1,0) CALL TYAXIS(52,20,261,40,3,0,0,1,NNHMS)ME(I).EQ.0) WRITE(7,325) IF (TIME(I).EQ.0) GOTO 320 325 FORMAT(' Blank (zero) line detected: ')  CALL TYAXIS(52,20,201,20,3,LABEL2,90,1,0) C C*****NOW FIND THE FIRST TIME TO BE PLOTTED. C INDEX=1 IF ( IF (TIME(I).GT.ENDBLK) GOTO 342 GOTO 340 C 330 IF (I.EQ.1) WRITE(7,335) TIME99 IF (I.NE.1) WRITE(TIME1.GE.STARTM) GOTO 275 IF (TMCOMP) GOTO 220 C C *** NO TIME COMPONENT C 210 READ(LUN,IFMT,END=399,ERR=235) (7,335) TIME(I-1) 335 FORMAT(' ***** Bad data point just after time: ',1PE15.7) C 340 CONTINUE GOTO 352 C C 84 FORMAT(24(/)) DO 390 IY=21,219 SCREEN(7,IY)=SCREEN(7,IY).AND."37 !LSB corr. to left-most dot DTM,ENDTM,DAT(3),TIME1,DELTAT,IBRNCH,LUN, + TMCOMP,IFMT DIMENSION RMIN(3),RMAX(3) C DO 10 J=1,3 RO 388 IX=8,39 SCREEN(IX,IY)=0 388 CONTINUE 390 CONTINUE C IADR=IADDR1+8960 DO 394 I=0MIN(J)= 9.0E30 10 RMAX(J)=-9.0E30 INDEX=1 IF (TMCOMP) GOTO 30 GOTO 20 C C*****NO TIME COMPONENT C,199 CALL IPOKEB(IADR+I,0) 394 CONTINUE XLOW=ENDBLK CALL TYAXIS(52,20,261,40,3,0,0,1,NNHMS) C  15 INDX=INDEX 20 READ(LUN,IFMT,END=80,ERR=60) (DAT(J),J=1,3) DJUNK=DAT(1)+DAT(2)+DAT(3) !If the STARTM=ENDBLK ENDBLK=ENDBLK+TIMINT PBEGIN=.TRUE. CONTIN=.TRUE. GOTO 275 C C*****DIAGNOSE PROGRre is only one com- IF (DJUNK.EQ.0) WRITE(7,40) !ponent and it is zero, IF (DJUNK.EQ.0) GOTO 20 UNT.EQ.0) GOTO 378 GOTO 352 C C *** FILE EMPTY: STOP PLOTTING FOR GOOD C 345 DONE=.TRUE. ICOUNT=ICOUNT-AM TERMINATION AND PRINT THE APPROPRIATE C MESSAGE. C 399 WRITE(7,1) IF (EMPTY) WRITE(7,400) 400 FORMAT(' D1 C C*****READY TO START PLOTTING. PLOT IBLOCK POINTS. C 352 DO 375 I=1,ICOUNT IF ((TIME(I).GE.STARTM).AND.(TIMata file empty.') IF (BEGIN.AND..NOT.EMPTY) WRITE(7,410) 410 FORMAT(' Requested start time past data file end time.') E(I).LE.ENDBLK)) GOTO 360 WRITE(7,366) TIME(I) GOTO 375 360 IF ((DATA(I).LT.AMIN).OR.(DATA(I).GT.AMAX) IF (.NOT.EMPTY.AND..NOT.BEGIN) WRITE(7,420) 420 FORMAT(' Program done. (Normal DE termination)') REPLOT=.FALSE) WRITE(7,365) + DATA(I) 365 FORMAT(' *** ERROR: Data point out of range (',1PE11.4,')') 366 FORMAT(' ***. WRITE(7,430) 430 FORMAT(' Enter a (1) to turn off graphics screen.'/) READ(5,2) JOHN IF (JOHN.EQ.1) CA ERROR: Time out of range (',1PE14.7,')') IF (DATA(I).LT.AMIN) DATA(I)=AMIN IF (DATA(I).GT.AMAX) DATA(I)=AMLL IPOKE("177744,"07) C WRITE(7,1) WRITE(7,460) 460 FORMAT(' To plot another component enter RETURN, else a (1AX IF (PBEGIN) CALL TYPLOT(TIME(I),DATA(I),1,0) IF (.NOT.PBEGIN) CALL TYPLOT(TIME(I),DATA(I),2,0) )') READ(5,2) NINPUT IF (NINPUT.EQ.1) STOP TIME99=0.0 REPLOT=.TRUE. PBEGIN=.TRUE. CONTPBEGIN=.FALSE. 375 CONTINUE C BEGIN=.FALSE. IF (DONE) GOTO 399 C TIME99=TIME(ICOUNT) IF (CONIN=.TRUE. BEGIN =.TRUE. DONE =.FALSE. END =.FALSE. WRITE(7,1) WRITE(7,1) WRITE(7,1)TIN) GOTO 275 C C*****PLOT NEXT SCREEN? C 378 WRITE(7,380) 380 FORMAT(' To continue this plot enter RETURN, else a (1)' REWIND LUN GOTO 37 C END SUBROUTINE MAXMIN C C MAXMIN finds the maximum and minimu/) READ(5,2) JOJO IF (JOJO.EQ.1) GOTO 399 C WRITE(7,384) !Clear text screen 3m values of each of the C three components. C C LOGICAL*1 IFMT(40) LOGICAL TMCOMP COMMON /HELLO/STAR T MAX/MIN C 80 DO 100 J=1,3 WRITE(7,90) J,RMIN(J),RMAX(J) 90 FORMAT(' Component ',I1,' minimum: ',1PE12.4ines are analogous. HYLIB C has also been modified to make it as precise as possible; the C variables XPOS and YPOS n,' Maximum: ', + 1PE12.4) 100 CONTINUE C IF (.NOT.TMCOMP) WRITE(7,110) INDEX-INDX 110 FORMAT(' **ow reflect the plotter's actual posi- C tion, not its theoretical location (it is, after all, discrete). C The followi Number of points surveyed: ',I5,' **') C IF (ENDTM.GT.TIMMAX) ENDTM=TIMMAX RETURN END ng is a list of the subroutines contained in HYLIB. C C C HYINIT -- Initializes the Terak/Diablo interface and some of C the variables. C C HYPLTS -- Initializes the remaining HYLIB variables. C C HYOFF --- Prints ending header and resets the Diablo to normal C printing mode. C C PUTCHR -- Sends characters (and plotting codes) to the Diablo. C C SETHMI -- Sets the Horizontal Motion Index of the Diablo. C C SETVMI C C C \||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||/ C = -- Sets the Vertical Motion Index of the Diablo. C C ABHTAB -- Moves the plotter to the specified Absolute Horizontal  !this message is incorrect INDEX=INDEX+1 TIM=TIME1 + DELTAT*(INDEX-1) GOTO 50 C C*****T = C = * * * * * *** ***** ****** = C = * * * * * IME COMPONENT C 30 READ(LUN,IFMT,END=80,ERR=60) TIM,(DAT(J),J=1,3) IF (TIM.EQ.0) WRITE(7,40) IF (TIM.EQ.0) GO * * * * = C = ******* * * * * ***** * = C = * * *TO 30 40 FORMAT(' *** Blank line detected during scan: ') C C*****UPDATE MAX/MIN C 50 IF (TIM.LT.STARTM) GO * * * * * = C = * * * ****** *** ***** * = C = TO(15,30) IBRNCH IF (TIM.GT.ENDTM) GOTO 80 DO 55 J=1,3 D=DAT(J) IF (D.LT.RMIN(J)) RMIN(J)=D  = C /||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||\ C  IF (D.GT.RMAX(J)) RMAX(J)=D 55 CONTINUE TIMMAX=TIM GOTO(20,30) IBRNCH C C*****ERROR MESSAGE C C C C HYLIB is a graphics library for the Diablo. It was originally C called PLIB1 and at one time contained the rou60 WRITE(7,70) 70 FORMAT(' *** Bad data point found just after time: ',1PE15.7) GOTO(20,30) IBRNCH C C*****PRINtines which now C make up TYLIB. HYLIB has been revised to conform more closely C with TYLIB, and many of the subrout s. C C HYPLOT -- Plots characters and draws lines between them if so C desired. C C HYLINE initialize all remaining COM- C MON block variables so subsequent calls to plotting subroutines will C work. C C  -- Draws lines. C C HYSYM --- Prints character strings, using CHARS. C C CHARS --- Prints character string as Parameter Description C --------- ----------- C C IBUFFR  specified by HYSYM, one C character at a time. C C HYNUM --- Prints formatted numbers. C C  Buffering control (0=normal buffering, 1=inhibit C buffering). See PUTCHR. C C YMAXX  HORDMP -- Dumps the Terak graphics-screen image to the Diablo, C horizontally. C C VERDMP -- Dump Maximum Y value (in inches) expected during plot. C IABT determines the results of exceeding this C s the Terak graphics-screen image to the Diablo, C vertically. C C HHMMSS -- Converts a value from  limit. C C IABT Abort flag that controls action when YMAXX is exceeded. C seconds to HH:MM:SS format. C C C************************************************************************* C C C  0 = abort if YMAXX is exceeded C 1 = print error message on screen and ignore C C  THIS LIBRARY WAS CREATED AT C THE LAURENCE J. CAHILL INSTITUTE FOR AWESOME PROGRAMMING C TITLE Character string, ' ... ', (40 chars max) to C be used for plot identification. If read BY ROBERT P. LARSEN C UNIVERSITY OF MINNESOTA C 1978-1979 C C C  C in using a formatted read, TITLE should be C either an INTEGER array dimens OVERHAULED BY C RAMBO ROELOFS C UNIVERSITY OF Mioned at 20 C and read using a 20A2 format, or a LOGICAL*1 C array of 40, readINNESOTA C NOVEMBER 1984 - JUNE 1985 C C C REVISIONS COMPLETED (26-JUN-1985)--BY GREG ROELOFS C  using a 40A1 format. C C LUN Logical unit number of the KB handler, if it C was assC Tab position. C C ABVTAB -- Moves the plotter to the specified Absolute Vertical C  REVISED ( 4-JUL-1985)--BY GREG ROELOFS C C C************************************************************************* C  Tab position. C C MODEX --- Moves the plotter to the specified x-position. C C MODEY --- Moves the plotte SUBROUTINE HYINIT(IBUFFR,YMAXX,IABT,TITLE,LUN) C C HYINIT initializes the basic things necessary for plor to the specified y-position. C C HXAXIS -- Draws the x-axis, one dot per call. C C HYAXIS -- Draws the y-axitting on the C Diablo. When making a plot, HYPLTS is the next subroutine that C should be called. Its purpose is to igned. This parameter should be set C to 0 if KB: was not loaded (by CALL ASSIGN). C C NOTE: Lo(LFN) IF (ICHAN.LT.0) STOP 'HYINIT ERROR: I/O channel not available' C RETURN END SUBgical Unit 6 (LP:) must not be open for I/O during C plotting or errors will result. So if you are using C ROUTINE HYPLTS(STARTX,STARTY,XXLOW,YYLOW,XXINC,YYINC, + XXTICK,NNHMI,NNVMI,BBACK,NNHMS) C C This subroutine initial your friendly Diablo as a line printer you must first C CALL CLOSE(6) before calling HYINIT, or you will feel Cizes the remaining global HYLIB variables C and positions the printer for plotting. C C Parameter  exceedingly stupid when you abort. At least you should. C C C REVISED (29-NOV-1984)--BY GREG ROELOFS C C  Description C --------- ----------- C C STARTX, Position of user's origin in  LOGICAL*1 ITIME(8),IDATE(9),ITITLE(40),TITLE(1) COMMON /HYTERM/LVN,ICHAN,NBUF,IBUFR,VERSN,ITIME,IDATE,ITITLE inches, relative to C STARTY the header and left-hand edge of the paper. C C XXLOW, Values to  COMMON /HYBLOC/ YMAX,IABORT,LFN,XSTART,YSTART,XLOW,YLOW, + XINC,YINC,XTICK,NHMI,NVMI,HMI,VMI,HMI2,VMI2,BACK,NHMS, be printed at the first tick of the x- C YYLOW and y-axes, respectively. C C XXINC, Increment+ XPOS,YPOS,XAXMAX C C*****OPEN AN I/O CHANNEL IF NEEDED C LFN=LUN IF (LUN.EQ.0) LFN=25 IF (LUN.EQ.0) C to be added to XXLOW or YYLOW for each C YYINC succeeding tick (i.e., first x-tick is XXLOW, C ALL ASSIGN(LFN,'KB:') C C*****INITIALIZE VARIABLES C VERSN=7.00 !HYLIB version number  next one is XXLOW+XXINC, etc.) C C XXTICK Distance between ticks on the x-axis, in inches. C C  LVN=LUN IBUFR=IBUFFR IF ((IBUFR.NE.0).AND.(IBUFR.NE.1)) IBUFR=0 YMAX=YMAXX IABORT=IABT NBUF NNHMI, Horizontal and vertical motion indices; range for C NNVMI both is 0 to 125. For horizontal=0 C C*****LOAD TITLE, TIME AND DATE; THEN PRINT HEADER C DO 10 I=1,40 10 ITITLE(I)=32 C I=1 20 IF motion, the C distance between characters is (NNHMI/120) and C for vertical m (TITLE(I).EQ.0) GOTO 30 ITITLE(I)=TITLE(I) I=I+1 IF (I.LE.40) GOTO 20 C 30 CALL TIME(ITIME) CAotion the distance is (NNVMI/48) C [in inches]. Standard Elite printing thus corre- C LL DATE(IDATE) C WRITE(LFN,40) VERSN,ITITLE,IDATE,ITIME 40 FORMAT(//' ** HYLIB: ',F4.2,' U of M SSC **',9X,'plo sponds to NNHMI=10 and NNVMI=8. C C BBACK Maximum allowable backward movement (x-direction). C C t: ', + 40A1,10X,'Date: ',9A1,' Time: ',8A1//) REWIND LFN C C*****CHECK FOR VALID CHANNEL C ICHAN=ILUN NNHMS Flag which determines how numbers on the x-axis are C are printed: C  OUTINE HYOFF C C HYOFF is the terminating subroutine of the Diablo plotting C package. When called, HYOFF transmits  SUBROUTINE PUTCHR(N) C C PUTCHR transmits data to the Diablo in unaltered form (as ASCII the remainder of the C plot buffer to the Diablo, prints a closing message, and C restores the program's file environmC code). The acceptable input range for N is 0 to 126. If the C buffering parameter IBUFR (set by the prior call of Hent to the state it was C in before the start of plotting. If plotting is terminated C in some other way (e.g. error YINIT) is C 0 then PUTCHR will collect the input data until the 64-byte C buffer is filled and then will transmit it a 0 = printed normally C 1 = converted to HH:MM:SS format (numbers assumed C abort), the plotter must be C turned off and on once to reset the HMI and VMI. C C C REVISED (28-NOV-1984)--BY GREG  to be in seconds) C C COMMON /HYBLOC/ YMAX,IABORT,LFN,XSTART,YSTART,XLOW,YLOW, + XINC,YINC,XTICK,NHMIROELOFS C C LOGICAL*1 ITIME(8),IDATE(9),ITITLE(40) COMMON /HYTERM/LUN,ICHAN,NBUF,IBUFR,VERSN,ITIME,IDATE,ITITLE ,NVMI,HMI,VMI,HMI2,VMI2,BACK,NHMS, + XPOS,YPOS,XAXMAX C C*****INITIALIZE VARIABLES C XSTART=STARTX YSTAR COMMON /HYBLOC/ YMAX,IABORT,LFN,XSTART,YSTART,XLOW,YLOW, + XINC,YINC,XTICK,NHMI,NVMI,HMI,VMI,HMI2,VMI2,BACK,NHMS, T=STARTY XLOW=XXLOW YLOW=YYLOW XINC=XXINC YINC=YYINC XTICK=XXTICK IF (XTICK.LE.0) STOP + XPOS,YPOS,XAXMAX C C*****MOVE BEYOND END OF PLOT C CALL MODEX(XAXMAX+1.5,0) C C*****RESET PLOTTER TO PRINT  'HYPLTS ERROR: XTICK must be positive' BACK=ABS(BBACK) NHMS=NNHMS C XAXMAX=-1.0 C NHMI=NNHMI MODE AND CLEAR OUT BUFFERS C CALL SETHMI(10) CALL SETVMI(8) CALL PUTCHR(27) !Reset FORM F NVMI=NNVMI CALL SETHMI(NHMI) CALL SETVMI(NVMI) HMI=FLOAT(NHMI)/120. VMI=FLOAT(NVMI)/48. HEED CALL PUTCHR(12) ! to 66 lines per CALL PUTCHR(66) ! page IBUFR=1 MI2=HMI*0.5 VMI2=VMI*0.5 C CALL ABHTAB(0) XPOS=0.0 !Define printer origin (diffe CALL PUTCHR(0) !: filler I=IWAIT(ICHAN) C C*****PRINT ENDING MESSAGE AND CLOSE I/O CHANNEL rent YPOS=0.0 ! from user origin) CALL MODEY(0.0) YSTART=YPOS IF ((YMAX+YSC CALL DATE(IDATE) CALL TIME(ITIME) C WRITE(LFN,10) VERSN,ITITLE,IDATE,ITIME 10 FORMAT(' '/' ** HYLIB:TART).GT.13.1) YMAX=13.1-YSTART !Diablo width = 13.1" C C*****MESS WITH FORM FEED (SET LINES/PAGE TO 120) C CALL PU ',F4.2,' U of M SSC ** end of ', + 'plot: ',40A1,16X,9A1,9X,8A1//) C CALL CLOSE(LFN) TCHR(27) CALL PUTCHR(12) CALL PUTCHR(120) C RETURN END SUBR !Force ending message IF (LUN.NE.0) CALL ASSIGN(LFN,'KB:') ! to be printed NOW C RETURN END  NE.1)) RETURN C NWORDS=(NBUF+1)/2 IBUF(NBUF+1)=0 !Add on end in case NBUF is odd NBUF=NWOied by N*VMI. C C N = 0 to 125 C C CALL PUTCHR(27) ! CALL PUTCHR(11) RDS*2 C C*****WAIT FOR PREVIOUS TRANSFER TO COMPLETE AND CHECK STATUS C IF (IWAIT(ICHAN).NE.0) STOP 'PUTCHR ERROR: Ch ! CALL PUTCHR(N+1) C RETURN END SUBROUTINE MODEX(X,IOPT) C Cannel I/O error' C C*****MOVE DATA TO TRANSMISSION BUFFER AND INITIATE I/O C DO 10 I=1,NBUF 10 TBUF(I)=IBUF(I)  MODEX moves the printer to the position specified by X, relative C to the user-defined origin (XSTART,YSTART). IOPT d C I=IWRITE(NWORDS,TBUF,0,ICHAN) !IWRITE is a system NBUF=0 ! subroutinetermines how C the x-axis is drawn in moving to position X (see HXAXIS for details). C The y-position of the plotter e (as is IWAIT) C RETURN END SUBROUTINE SETHMI(N) C C SETHMI sets theis not changed. C C COMMON /HYBLOC/ YMAX,IABORT,LFN,XSTART,YSTART,XLOW,YLOW, + XINC,YINC,XTICK,NHMI,NVMI,HMI,VMI Horizontal Motion Index of the plotter to N. C C N = 0 to 125 C C CALL PUTCHR(27) ! ,HMI2,VMI2,BACK,NHMS, + XPOS,YPOS,XAXMAX C CALL SETVMI(NVMI) DELTAX=X+XSTART-XPOS IF (ABS(DELTAX).Ls one 64-byte block. C This results in faster program execution since it allows your C program to execute at the same  CALL PUTCHR(31) ! CALL PUTCHR(N+1) C RETURN END time as the plotter is plotting C your program's data. The other mode (when IBUFR is 1) causes C characters to be sen SUBROUTINE SETVMI(N) C C SETVMI sets the Vertical Motion Index of the plotter to N. C C N = 0 to 125 C C t one by one and is not recommended, as it C is inefficient. C C C REVISED (29-NOV-1984)--BY GREG ROELOFS C C  CALL PUTCHR(27) ! CALL PUTCHR(30) ! CALL PUTCHR(N+1) C RETU LOGICAL*1 IBUF(64),TBUF(64),ITIME(8),IDATE(9),ITITLE(40) COMMON /HYTERM/LUN,ICHAN,NBUF,IBUFR,VERSN,ITIME,IDATE,ITITLE RN END SUBROUTINE ABHTAB(N) C C ABHTAB moves the plotter carriage to the Abso C C*****CHECK FOR VALID N C IF ((N.LT.0).OR.(N.GT.126)) STOP 'PUTCHR ERROR: Illegal N' C C*****PUT CHARACTER IN BUFlute Horizontal C Tab position specified by N*HMI. C C N = 0 to 125 C C CALL PUTCHR(27) !FER C NBUF=NBUF+1 !NBUF is number of characters in buffer IBUF(NBUF)=N !IBUF is the 64 CALL PUTCHR(9) ! CALL PUTCHR(N+1) C RETURN END -byte buffer of characters C C*****CHECK IF BUFFER READY TO BE TRANSMITTED, AND SEND IT C IF ((NBUF.NE.64).AND.(IBUFR. SUBROUTINE ABVTAB(N) C C ABVTAB moves the plotter paper to the Absolute Vertical Tab C position specif (10) ! XPOS=XPOS+VMI GOTO 20 C END SUBROUS=NEWHMI*NYMOV/120. CALL SETHMI(NHMI) YDIF=ABS(YNEW-YPOS) IF (YDIF.LE.HMI2) RETURN NYMOV=INT(YDIF/HMTINE MODEY(Y) C C MODEY moves the printer to the position specified by Y, relative C to the user-defined origin (XSTAI+.5) ICHAR=32 !Space IF (YNEW.LT.YPOS) ICHAR=8 !Backspace DO RT,YSTART). The x-position of the C plotter is not changed. C C COMMON /HYBLOC/ YMAX,IABORT,LFN,XSTART,YSTART,XLO40 I=1,NYMOV 40 CALL PUTCHR(ICHAR) C ISIGN=(ICHAR-20)/12 YPOS=YPOS + HMI*NYMOV*ISIGN C RETURN W,YLOW, + XINC,YINC,XTICK,NHMI,NVMI,HMI,VMI,HMI2,VMI2,BACK,NHMS, + XPOS,YPOS,XAXMAX C C*****CHECK FOR OUT-OF-RAN END SUBROUTINE HXAXIS(IOPT) C C This subroutine draws the x-axis one dot per call, GE C IF (Y.LE.YMAX) GOTO 15 WRITE(7,10) 10 FORMAT(' ***** MODEY ERROR: Y too big') IF (IABORT.EQ.0) Sincluding the C ticks and numbers if so desired. C C Parameter Description C --------- TOP Y=YMAX C C*****INITIALIZE VARIABLES C 15 YNEW=Y+YSTART IF (ABS(YNEW-YPOS).LE.HMI2) RETURN NEWHMI ----------- C C IOPT Flag controlling how much of axis is drawn. C =NHMI NYMOV=INT(YNEW/HMI+.5) IF (NYMOV.LE.125) GOTO 20 C C*****COMPUTE NEW HORIZONTAL MOTION INDEX AND ABSOLUTE  0 = no axis drawn C 1 = axis only C 2 = axis with ticks C TAB POSITION: C The argument of ABHTAB must be less than or equal to 125, so C NEWHMI must be chosen accordingly.  3 = axis with ticks and numbers C C LOGICAL*1 WHEN(8),WORD(10) COMMON /HYBLOC/ YMAX,IABORT,LFN,XSTAR C N=INT(NYMOV/125. + 1.0) !Round up only NYMOV=INT(FLOAT(NYMOV)/FLOAT(N) + .5) NEWHMI=N*NHT,YSTART,XLOW,YLOW, + XINC,YINC,XTICK,NHMI,NVMI,HMI,VMI,HMI2,VMI2,BACK,NHMS, + XPOS,YPOS,XAXMAX C IF (IOPTE.VMI2) RETURN IF (DELTAX.GT.0) GOTO 20 C C*****MOVE BACK; DO NOT DRAW AXIS C IF (ABS(DELTAX).GT.BACK) STOP 'MOMI IF (NHMI.NE.1) GOTO 20 C C*****CHECK IF WITHIN DIABLO BOUNDS: The Diablo's print range is C positions 0 throDEX ERROR: X too far back' 10 IF (ABS(X+XSTART-XPOS).LE.VMI2) RETURN CALL PUTCHR(27) ! ugh 1572. For the special case of NHMI = 1, C the following settings for NEWHMI and NYMOV are optimal. C IF ((NE CALL PUTCHR(10) ! (backwards) XPOS=XPOS-VMI GOTO 10 C C*****MOVE FORWARD; DRWHMI*NYMOV).LE.1572) GOTO 30 !NHMI = 1 NEWHMI=14 NYMOV=112 C C*****ADJUST 'NYMOV' IF NECESSARY, AND MOVE TO AW AXIS IF REQUESTED C 20 IF (IOPT.GT.0) CALL HXAXIS(IOPT) IF (ABS(X+XSTART-XPOS).LE.VMI2) RETURN CALL PUTCHRPOSITION 'Y' C 20 IF ((NEWHMI*NYMOV).GT.1572) NYMOV=NYMOV-1 30 CALL SETHMI(NEWHMI) CALL ABHTAB(NYMOV) YPO 46) !Dot CALL PUTCHR(8) ! C XX=ABS(XPOS-XSTART) XNT=AMOD(XX,XTICK) + (inches). C C IFLIP Flag which determines which direction ticks face. C 1 = ticks, num1./96. IF (XNT.GT.XTICK) XNT=XNT-XTICK IF (XNT.GE.VMI) RETURN !Not close enough to next tick yet Ibers, and label face up C -1 = ticks, numbers, and label face down C C LABEL Character F (IOPT.LT.3) GOTO 40 C C*****NUMBERS C CALL MODEY(-1.0) CALL SETHMI(10) XVAL=XINC*AINT(XX+.5) + XLOW string, ' ... ', (20 chars max) to C be used in labeling the y-axis. If read C  IF (NHMS.NE.1) GOTO 10 C CALL HHMMSS(XVAL,WHEN) CALL CHARS(WHEN,8) GOTO 30 C 10 ENCODE(10,20,WOR in using a formatted read, LABEL should be C either an INTEGER array dimensioned at 10 C D) XVAL 20 FORMAT(F10.4) CALL CHARS(WORD,10) C 30 CALL SETHMI(NHMI) C C*****TICKS C 40 IF (IOPT.LT.2) RET and read using a 10A2 format, or a LOGICAL*1 C array of 20, read using a 20A1 format. C URN TICLEN=.15 CALL MODEY(-TICLEN) CALL SETHMI(1) NT=INT(TICLEN*120.+.5) DO 50 I=1,NT C N Number of characters in LABEL. C C LOGICAL*1 WORD(10),LABEL(20) COMMON /HYBLOC/ YMAX,IABO CALL PUTCHR(46) 50 CONTINUE CALL SETHMI(NHMI) XAXMAX=XPOS C RETURN END RT,LFN,XSTART,YSTART,XLOW,YLOW, + XINC,YINC,XTICK,NHMI,NVMI,HMI,VMI,HMI2,VMI2,BACK,NHMS, + XPOS,YPOS,XAXMAX C C* SUBROUTINE HYAXIS(X,Y,YLEN,IOPT,YYTICK,IFLIP,LABEL,N) C C This subroutine draws the y-axis with numbers, ticks (facing ****LABEL C IF (IOPT.LE.0) RETURN IF ((YYTICK.LE.0).AND.(IOPT.GE.2)) STOP + 'HYAXIS ERROR: YTICK must beup C or down), and a label (if one is given). C C Parameter Description C ---------  positive' C YLAB=Y + .5*YLEN - N/24. XX=X-.6*IFLIP IF (N.GT.0) CALL HYSYM(XX,YLAB,LABEL,N,0) TICLE ----------- C C X,Y Position of left end of axis, relative to user- C N=.2 C C*****NUMBERS C IF (IOPT.LT.3) GOTO 30 XX=X - (TICLEN+.1)*IFLIP CALL MODEX(XX,0) YNUM=Y-.3 defined coordinates (usually (0,0)). C C YLEN Length of y-axis (inches). C C IOPT Fl YVAL=YLOW C 10 CALL MODEY(YNUM) CALL SETHMI(10) ENCODE(10,20,WORD) YVAL 20 FORMAT(F10.4) Cag specifying how much of y-axis is drawn. C 1 = axis and label C 2 = axis, tiALL CHARS(WORD,10) YVAL=YVAL+YINC YNUM=YNUM+YYTICK IF ((YNUM+.3).LE.YLEN) GOTO 10 C C*****TICKS C 30 .LE.0) RETURN IF (XPOS.LE.XAXMAX) RETURN C C*****AXIS C IF (YPOS.NE.YSTART) CALL MODEY(0.0) CALL PUTCHR(cks, and label C 3 = axis, ticks, numbers, and label C C YYTICK Distance between ticks  0) CALL MODEY(Y) !(Now exact) C RETURN END SUBROUTINE HYPORT,LFN,XSTART,YSTART,XLOW,YLOW, + XINC,YINC,XTICK,NHMI,NVMI,HMI,VMI,HMI2,VMI2,BACK,NHMS, + XPOS,YPOS,XAXMAX C LOT(X,Y,NPEN,IOPT,CHAR) C C HYPLOT is the main Diablo plotting routine. It is used to plot C characters at specified IF (Y.LE.YMAX) GOTO 20 WRITE(7,10) 10 FORMAT(' ***** HYPLOT ERROR: Y too big') IF (IABORT.EQ.0) STOP  IF (IOPT.LT.2) GOTO 70 CALL MODEX(X,0) NNHMI=NHMI NHMI=1 !Make tick positions a points, with the option of drawing a line C as it goes. This subroutine is also commonly used to draw sections C of s exact HMI=1./120. ! as possible. HMI2=HMI*0.5 YTICK=Y 40 CALL MODEY(YTICK) the x-axis, using calls of the form CALL HYPLOT(X,Y,0,3,0). C C Parameter Description C ---- CALL SETVMI(1) NT=INT(TICLEN*48.+.5) DO 50 I=1,NT CALL PUTCHR(46) !Dot CALL ----- ----------- C C X,Y Position of the character to be plotted, relative C PUTCHR(8) ! IF (IFLIP.EQ.1) CALL PUTCHR(27) ! (Backwards) CALL PUTCHR(10)  to the user's coordinates (in inches). C C NPEN Flag which determines whether a line is dra ! 50 CONTINUE DO 60 I=1,NT IF (IFLIP.EQ.-1) CALL PUTCHR(27) ! CALL PUTCwn in C moving from the present position to (X,Y). C 0 = no line drawn C HR(10) ! 60 CONTINUE YTICK=YTICK+YYTICK IF (YTICK.LE.YLEN) GOTO 40 NHMI=NNHMI  1 = line drawn C C IOPT Flag specifying how much of the x-axis is drawn C  HMI=FLOAT(NHMI)/120. HMI2=HMI*0.5 C C*****AXIS C 70 IF (IOPT.EQ.1) CALL MODEX(X,0) !Else x-position already  in moving to (X,Y). C 0 = no axis drawn C 1 = axis only C correct CALL MODEY(Y) CALL SETHMI(5) CALL SETVMI(2) NT=INT(YLEN*24.+.5) CALL PUTCHR(27)  2 = axis and ticks C 3 = axis, ticks, and numbers C C CHAR Character of ! CALL PUTCHR(10) ! DO 80 I=1,NT CALL PUTCHR(95)  the form '#', where # is the character C to be plotted at (X,Y). If string is longer than C !Underline 80 CONTINUE CALL PUTCHR(10) ! YPOS=YPOS+YLEN !Need not  one character, only the first is plotted. ASCII C code is also acceptable (e.g. 46 forbe exact (see below) C C*****RESET PLOTTER VARIABLES C CALL SETHMI(NHMI) CALL SETVMI(NVMI) CALL MODEX(X, a dot, 0 for C no character at all [NUL]). C C LOGICAL*1 CHAR COMMON /HYBLOC/ YMAX,IAB!  YMAX,IABORT,LFN,XSTART,YSTART,XLOW,YLOW, + XINC,YINC,XTICK,NHMI,NVMI,HMI,VMI,HMI2,VMI2,BACK,NHMS, + XPOS,YPOS,XAXLL PUTCHR(8) ! XPOS=XPOS + VMI*XSIGN IF ((XSIGN.LT.0).OR.(XPOS.LE.XAXMAX).OR.(IOPMAX C C*****CHECK FOR OUT-OF-RANGE C IF (YY.LT.YMAX) GOTO 20 WRITE(7,10) 10 FORMAT(' ***** HYLINE ERROR: YT.EQ.0)) GOTO 70 CALL HXAXIS(IOPT) CALL MODEY(YPOS-YSTART) GOTO 70 C C *** X FINISHED - CHECK FOR Y  too big') IF (IABORT.EQ.0) STOP YY=YMAX C C*****INITIALIZE VARIABLES C 20 X=XX+XSTART Y=YY+YSTART C 100 IF ((YSIGN*(Y-YPOS)).LE.HMI2) GOTO 110 YCALC=Y GOTO 80 C C*****RESUME FORWARD PRINTING C 110 CALL P DELTAX=X-XPOS DELTAY=Y-YPOS XSIGN=1.0 YSIGN=1.0 C IF (DELTAX.GT.0) GOTO 30 IF (ABS(DELUTCHR(27) CALL PUTCHR(53) C RETURN END SUBROUTINE HYSYM(X,Y,WORD,N,ITHETA) TAX).GT.BACK) STOP 'HYLINE ERROR: X too far back' XSIGN=-1.0 C 30 IF (DELTAY.GE.0) GOTO 40 CALL PUTCHR(27)  C C HYSYM prints the character string WORD at position (X,Y), either C horizontally or vertically. C C Paramete Y=YMAX C 20 IF (NPEN.EQ.1) CALL HYLINE(X,Y,IOPT) CALL MODEX(X,IOPT) CALL MODEY(Y) CALL CHARS(CHAR, ! CALL PUTCHR(54) !'6' (Backward print on) YSIGN=-1.0 C C*****CASE 1: S1) IF (CHAR.GE.32) CALL PUTCHR(8) ! C RETURN END SUBROUTINLOPE = INFINITE C 40 IF (ABS(DELTAX).GE.VMI) GOTO 60 C 50 CALL PUTCHR(46) YPOS=YPOS + YSIGN*HMI IF ((YSIE HYLINE(XX,YY,IOPT) C C This subroutine draws a line from the current plotter position C to the point (XX,YY). For GN*(Y-YPOS)).GT.HMI2) GOTO 50 !Not yet past YY GOTO 110 C C*****CASE 2: NORMAL C 60 SLOPE=DELTAY/DELTAX simply drawing lines between points C (no characters plotted), HYLINE is recommended over HYPLOT. C C Parameter  YTEMP=Y-SLOPE*X C C *** CALCULATE DESIRED 'YPOS' AND DRAW DOTS IN Y-DIRECTION C 70 YCALC=YTEMP + SLOPE*XPOS 80  Description C --------- ----------- C C XX,YY Position to whi IF ((YSIGN*(YCALC-YPOS)).LE.HMI2) GOTO 90 !Time to move in x-dir CALL PUTCHR(46) !Dot ch line is being drawn, in inches C (relative to user-defined origin). C C IOPT Flag  YPOS=YPOS + HMI*YSIGN IF ((YSIGN*(Y-YPOS)).GT.HMI2) GOTO 80 !Not yet past YY C C *** DRAW A DOT IN X-DIRECspecifying how much of x-axis is drawn. C 0 = no axis drawn C 1 = axis only CTION C 90 IF ((XSIGN*(X-XPOS)).LE.VMI2) GOTO 100 !Already past XX IF (DELTAX.LT.0) CALL PUTCHR(27) ! 2 = axis and ticks C 3 = axis, ticks, and numbers C C COMMON /HYBLOC/ CALL PUTCHR(10) ! CALL PUTCHR(46) !Dot CA"  the actual number of characters). C C ITHETA Angle at which WORD is to be printed. C  UNIVERSITY OF MINNESOTA C 13 NOVEMBER 1984 C C LOGICAL*1 WORD(135) C  0 = horizontal C 90 = vertical C C LOGICAL*1 WORD(135) COMMON /HYB IF (N.LE.135) GOTO 20 WRITE(7,10) N 10 FORMAT(' ***** CHARS ERROR: String too long (',I3,')') N=135 C 20LOC/ YMAX,IABORT,LFN,XSTART,YSTART,XLOW,YLOW, + XINC,YINC,XTICK,NHMI,NVMI,HMI,VMI,HMI2,VMI2,BACK,NHMS, + XPOS,YPOS DO 50 I=1,N IF (WORD(I).EQ.0) GOTO 50 DO 30 J=1,126 JJ=J IF (WORD(I).NE.JJ) GOT,XAXMAX C IF (N.LE.0) RETURN CALL MODEX(X,0) CALL MODEY(Y) IF (ITHETA.NE.0) GOTO 10 C C*****HORIZO 30 CALL PUTCHR(JJ) GOTO 50 30 CONTINUE WRITE(7,40) I 40 FORMAT(' ***** CHONTAL LABEL C CALL SETHMI(10) CALL CHARS(WORD,N) CALL SETHMI(NHMI) C YPOS=YPOS + FLOAT(N)*10./120.ARS ERROR: Illegal character (#',I3,')') 50 CONTINUE C RETURN END SUBROUTINE HY !NHMI was 10 RETURN C C*****VERTICAL LABEL C 10 CALL SETVMI(7) DO 20 I=1,N CALL CHARNUM(X,Y,ANUM,ITYPE,IFMT,ITHETA) C C HYNUM is used to print numbers on the Diablo. C C Parameter S(WORD(I),1) CALL PUTCHR(8) ! 20 CALL PUTCHR(10) !  Description C --------- ----------- C C X,Y Position of the first digit in CALL SETVMI(NVMI) C XPOS=XPOS + FLOAT(N)*7./48. !NVMI was 7 C RETURN END  ANUM. C C ANUM Number to be printed. C C ITYPE Flag specifying whether ANUM is real or integr Description C --------- ----------- C C X,Y Position SUBROUTINE CHARS(WORD,N) C C This subroutine sends the characters in WORD to the Diablo, one C at of first character of WORD, with respect C to the user-defined origin (in inches). C C WORD  a time. WORD is a LOGICAL*1 variable of length N, with N C between 1 and 135. Longer strings will be cut off at 135 char Character string, ' ... ', (135 chars max) to C be printed. If read using a formatted read, C- C acters. CHARS uses the fact that the characters in a LOGICAL*1 C variable are stored as their ASCII equivalent; h WORD should be a LOGICAL*1 array dimensioned C at 135 (or less), or an INTEGERence, any char- C acter in the standard ASCII set may be plotted, including: form C feed (12), line feed (10),  array of 67 C or less. C C N Number of characters in WORD (may be larger than C (7), and (27). C C C THIS SUBROUTINE WAS WRITTEN BY C GREG ROELOFS C #  '(I5)' C '(13HStart time = ,F9.3)' C C ITHETA Angle at which numbers tation for details). Note also that none of the Diablo C plotting routines uses Graphics Mode: thus with every character are to be printed. C 0 = horizontal C 90 = vertical C C C  C plotted the carriage moves forward one HMI. This is the reason for C the LASBIT variable (see VERDMP: it's easier t THIS SUBROUTINE WAS WRITTEN AT C UNIVERSITY OF MINNESOTA C 1979 o understand). C C Parameter Description C --------- ----------- CC C C REVISED (19-DEC-1984)--BY GREG ROELOFS C REVISED (14-JUN-1985)--BY GREG ROELOFS C C LOGICAL*1 NUMBUF(4 C TITLE Character string, ' ... ', (40 chars max) con- C taining the plot title. TITL0),IFMT(30) EQUIVALENCE(NUM,ANUMM) C C*****INITIALIZE VARIABLES C ANUMM=ANUM DO 10 I=1,40 10 NUMBE should be C either a LOGICAL*1 array dimensioned at 40 C or an INTEGER arrayUF(I)=0 C IF (ITYPE.EQ.0) GOTO 40 C C*****INTEGER C ENCODE(40,IFMT,NUMBUF,ERR=20) NUM GOTO 70 20 WR dimensioned at 20. C C LUN Logical unit number of the KB handler, if it C was assigITE(7,30) NUM 30 FORMAT(' ***** HYNUM ERROR: Bad integer conversion (',I6,')') RETURN C C*****REAL C 40 ENCODned. This parameter should be set C to 0 if KB: was not loaded (by CALL ASSIGN). C C (IADDR1) E(40,IFMT,NUMBUF,ERR=50) ANUM GOTO 70 50 WRITE(7,60) ANUM 60 FORMAT(' ***** HYNUM ERROR: Bad real conversion (', Address of the first element in the array con- C taining the graphics screen image to be plotted F15.7,')') RETURN C C*****PRINT NUMBER C 70 CALL HYSYM(X,Y,NUMBUF,40,ITHETA) C RETURN END  C on the Diablo. C C NOTE: Logical Unit 6 (LP:) must not be open for I/O during the C  SUBROUTINE HORDMP(TITLE,LUN) C C HORDMP will dump any Terak graphics-screen image to the Diablo i call to HORDMP or you may be disappointed by the lack of C awesomenosity in your results. But that's your problemn C horizontal format. The actual plotting loop is exactly analogous C to that of VERDMP, except that it is somewhat . C C C THIS SUBROUTINE WAS WRITTEN BY C GREG ROELOFS C er. C 0 = real C 1 = integer C C IFMT Format string, '( ... more complicated due C to the structure of absolute tabbing on the Diablo (that is, one C can only tab to one of the f)', (30 chars max) corre- C sponding to ANUM. Examples: C '(F15.7)' C irst 126 print positions of a given C HMI, and we have 315 of them--see the Model 1641 Product Descrip- C tion documen$ L BE PLOTTED; (0) BITS WILL BE IGNORED C DO 60 J=1,240 LASBIT=.FALSE. DO 50 I=1,40 DO 4----- ----------- C C TITLE Character string, ' ... ', (40 chars max) con- C UNIVERSITY OF MINNESOTA C 7 NOVEMBER 1984 C C C REVISED (29-NOV-1984)--BY GREG ROELOFS C C 0 IBIT=1,8 N=8*I + IBIT - 9 IF (N.GT.314) GOTO 50 !Last 5 columns don't fit C C  LOGICAL*1 MASKS(8),TITLE(1) LOGICAL LASBIT,DONE COMMON /HYBLOC/ YMAX,IABORT,LFN,XSTART,YSTART,XLOW,YLOW,  *** Is the bit set? C IADR=IADDR1 + I + 40*J - 41 IF ((IPEEKB(IADR).AND.MASKS(IBIT)).EQ + XINC,YINC,XTICK,NHMI,NVMI,HMI,VMI,HMI2,VMI2,BACK,NHMS, + XPOS,YPOS,XAXMAX C DATA MASKS/1,2,4,8,16,32,64,128.0) GOTO 30 C C *** Set: Position plotter and print a dot C IF (LASBIT) GOTO 20 !Plo/ C C*****INITIALIZE PLOTTER C XSTART=0.0 !These variables are XAXMAX=0.0 tter already in position ISPC=MOD(N,3)+1 IF ((ISPC.EQ.3).AND.(IPOS.EQ.(N-1))) GOTO 15 C C  ! initialized so HYOFF and XPOS=0.0 ! MODEX will work, since N *** Tab to previous space(s) if exact tab is not possible C CALL SETHMI(15) CALL ABHTAVMI=8 ! HYPLTS is not called. VMI=8./48. VMI2=VMI*0.5 DONE=.FALSE. B(N/3) CALL SETHMI(5) GOTO(20,15) ISPC !If ISPC=3, no transfer C C IADDR1=IPEEK("177740) !Graphic Address Register C CALL HYINIT(0,0.0,0,TITLE,LUN) CALL SETVMI(2)*** Space forward if necessary C CALL PUTCHR(32) 15 CALL PUTCHR(32) C C *** Plot a  C CALL PUTCHR(27) !Set lines per page CALL PUTCHR(12) ! to 80 to'.' C 20 CALL PUTCHR(46) !Dot IPOS=N+1 LASBIT=.TRUE.  avoid gap CALL PUTCHR(80) ! at top-of-form mark. C C*****PUT IN '+'s AT CORNERS OF PLOT C  GOTO 40 C 30 LASBIT=.FALSE. 40 CONTINUE 50 CONTINUE CALL PUTCHR(10) 5 CALL SETHMI(15) CALL ABHTAB(0) CALL PUTCHR(43) CALL ABHTAB(104) CALL SETHMI(5) CALL PUTCH !One line feed 60 CONTINUE C C*****CLOSE PLOTTER C DONE=.TRUE. GOTO 5 C 70 CALL HYOFF C R(32) CALL PUTCHR(32) CALL PUTCHR(43) IF (DONE) GOTO 70 CALL PUTCHR(10) C C*****SCAN SCREEN LEFT T RETURN END SUBROUTINE VERDMP(TITLE,LUN) C C VERDMP will dump any Terak graO RIGHT, TOP TO BOTTOM STARTING AT THE UPPER C LEFT-HAND CORNER. THE SCAN IS BIT BY BIT: EVERY SET BIT (1) C WILphics-screen image to the Diablo C in vertical format. C C Parameter Description C ----%  LOGICAL LASBIT,DONE COMMON /HYBLOC/ YMAX,IABORT,LFN,XSTART,YSTART,XLOW,YLOW, + XINC,YINC,XTICK,NHMI,NVMI,HMI,VMI,C C *** Set: Position plotter by absolute tabbing C IF (LASBIT) GOTO 10 CALL SETHMI2,VMI2,BACK,NHMS, + XPOS,YPOS,XAXMAX C DATA MASKS/1,2,4,8,16,32,64,128/ C C*****INITIALIZE PLOTTER C HMI(10) CALL ABHTAB(N/2) CALL SETHMI(5) C C *** Space forward if necessary C  XSTART=0.0 !These variables are XAXMAX=0.0 ! initialized so HY IF (MOD(N,2).EQ.1) CALL PUTCHR(32) C C *** Plot a dot C 10 CALL PUTCHR(46) OFF and XPOS=0.0 ! MODEX will work, since NVMI=8 ! LASBIT=.TRUE. GOTO 30 C 20 LASBIT=.FALSE. 30 CONTINUE CALL PUTCHR(1 taining the plot title. TITLE should be C either a LOGICAL*1 array dimensioned at 40  HYPLTS is not called. VMI=8./48. VMI2=VMI*0.5 DONE=.FALSE. IADDR1=IPEEK("177740) C or an INTEGER array dimensioned at 20. C C LUN Logical unit number of the KB handle!Graphic Address Register C CALL HYINIT(0,0.0,0,TITLE,LUN) CALL SETVMI(2) C CALL PUTCHR(27) r, if it C was assigned. This parameter should be set C to 0 if KB: was not l !Set lines per page to CALL PUTCHR(12) ! 120 to avoid gap at CALL PUTCHR(120) oaded (by CALL ASSIGN). C C (IADDR1) Address of the first element in the array con- C tai ! top-of-form mark. C C*****PUT '+'s ON CORNERS OF PLOT C 5 CALL SETHMI(10) CALL ABHTAB(6) ning the graphics screen image to be plotted C on the Diablo. C C NOTE: Logical Unit 6 (LP:) mus CALL PUTCHR(43) CALL ABHTAB(125) CALL SETHMI(5) CALL PUTCHR(32) CALL PUTCHR(43) IF (DOt not be open for I/O during the C call to VERDMP or you may be disappointed by the lack of C awesomenosNE) GOTO 60 CALL PUTCHR(10) C C*****SCAN SCREEN BOTTOM TO TOP, LEFT TO RIGHT STARTING AT THE LOWER C LEFT-HAND City in your results. But that's your problem. C C C THIS SUBROUTINE WAS WRITTEN C ORNER. THE SCAN IS BIT BY BIT: EVERY SET BIT (1) C WILL BE PLOTTED; (0) BITS WILL BE IGNORED C DO 50 I=1,40  A LONG TIME AGO C IN A GALAXY FAR, FAR AWAY C ETC. C C C REVI DO 40 IBIT=1,8 LASBIT=.FALSE. DO 30 J=240,1,-1 N=252-J C C *** ISED ( 6-NOV-1984)--BY GREG ROELOFS C REVISED (29-NOV-1984)--BY GREG ROELOFS C C LOGICAL*1 MASKS(8),TITLE(1) s the bit set? C IADR=IADDR1 + I + 40*J - 41 IF ((IPEEKB(IADR).AND.MASKS(IBIT)).EQ.0) GOTO 20 & **INITIALIZE VARIABLES C VAL=AMOD(ABS(VALUE),86400.) RVAL=0 DO 5 I=1,8 5 WHY(I)=HOW(I) C C*****C 2 = output to both screen and Diablo (assumed C to be unit 3) C C ONVERT 'VAL' TO HOURS, MINUTES, SECONDS C DO 30 I=0,2 IF (I.EQ.0) IVAL=VAL/3600. IF (I.EQ.1) IVAL=(V END Logical variable set to TRUE if end-of-file is en- C countered. C C C AL-RVAL*3600.)/60. IF (I.EQ.2) IVAL=VAL-DVAL-RVAL*60.+.5 DVAL=RVAL*3600. !Delay value THIS SUBROUTINE WAS WRITTEN BY C GREG ROELOFS C UNIVERSITY OF MINNESOTA C RVAL=IVAL N=3*I+1 WHO(N)=RVAL*0.1 WHO(N+1)=IVAL-10*WHO(N) DO 20 J=1,2  12 MARCH 1984 C C C REVISED ( 6-FEB-1985)--BY GREG ROELOFS C C LOGICAL END DI N=3*I+J IF ((N.EQ.1).AND.(WHO(N).EQ.0)) GOTO 20 ENCODE(1,10,WHY(N)) WHO(N) 10 FORMAT(IMENSION ICOD(35),LABEL(32) C C*****READ IN IDOCS/LABEL C 10 READ(LUN,20,END=110,ERR=70) (ICOD(I),I=1,35) JUNK=ICOD1) 20 CONTINUE 30 CONTINUE C RETURN END (1)+ICOD(2)+ICOD(3)+ICOD(4)+ICOD(5)+ICOD(6)+ICOD(7) IF (JUNK.EQ.0) GOTO 60 READ(LUN,20,END=110) READ(LUN,30,END=110,ERR=80) LABEL 20 FORMAT(3I8,I3,2I5,I3,28I2) 30 FORMAT(32A2) C C*****PRINT OUT INFORMATION C 35 IF (NUM.L0) !One line feed 40 CONTINUE 50 CONTINUE C C*****CLOSE PLOTTER C DONE=.TRUE.  GOTO 5 C 60 CALL HYOFF C RETURN END SUBROUTINE HHMMSS(VALUE,WHY) C C  SUBROUTINE IDOCS(LUN,NUM,END) C C This subroutine reads in the IDOCs and label, checks for blank lines This subroutine converts the real value VALUE, assumed to be in C seconds, into a character string of the form HH:MM:SS., C and prints out the orbit number, year, day, and label. C C Parameter Description C  The string C is returned as the character array WHY. Because. C C THIS SUBROUTINE WAS WRITTEN BY C --------- ----------- C C LUN Logical unit number assigned to the device from C  GREG ROELOFS C UNIVERSITY OF MINNESOTA C 18 DECEM which the IDOCs are to be read. C C NUM Flag controlling where the information is pBER 1984 C C LOGICAL*1 WHY(8),HOW(8) INTEGER WHO(8) C DATA HOW/' ',' ',':',' ',' ',':',' ',' '/ C C***rinted. C 0 = print nothing C 1 = output to Terak screen only (unit 7) C ' 0) GOTO 10 80 WRITE(7,105) GOTO 35 90 FORMAT(' ***** Blank line detected in IDOCs: ') 100 FORmplements the Sande-Tukey Radix-2 fast Fourier C transform. Either the direct or inverse transform may be computed. C MAT(' ***** Error in reading IDOCs: ') 105 FORMAT(' ***** Error in reading label: ') C 110  Parameters are as follows: C C VALUE VALUE C NAME TYPE ON END=.TRUE. RETURN END SUBROUTINE HHMMSS(VALUE,WHY) C C This subroutine coENTRY ON RETURN C ---- ---- -------- --------- C C XR REAL array Reanverts the real value VALUE, assumed to be in C seconds, into a character string of the form HH:MM:SS. The string C il part of Real part of C the series the transform C C XI REAL array s returned as the character array WHY. Because. C C THIS SUBROUTINE WAS WRITTEN BY C  Imaginary part of Imaginary part of C the series the transform C C N  GREG ROELOFS C UNIVERSITY OF MINNESOTA C 18 DECEMBER 1984 C C  INTEGER Length of series (same) C C INV INTEGER 0 for direct -1 for error C  LOGICAL*1 WHY(8),HOW(8) INTEGER WHO(8) C DATA HOW/' ',' ',':',' ',' ',':',' ',' '/ C C*****INITIALIZE VARIABLE transform return; else C 1 for inverse unchanged C S C VAL=ABS(VALUE) RVAL=0 DO 5 I=1,8 5 WHY(I)=HOW(I) C C*****CONVERT 'VAL' TO HOURS, MINUTES, SE transform C C---------------------------------------------------------------------- C C The DIRECT FoCONDS C DO 30 I=0,2 IF (I.EQ.0) IVAL=VAL/3600. IF (I.EQ.1) IVAL=(VAL-RVAL*3600.)/60. IF (Iurier transform is: C C N C (1/N) SUM X(k)*EXP[-2*PI*i*(k-1)*(j-1)/N], j=1 TO N C .EQ.2) IVAL=VAL-DVAL-RVAL*60.+.5 DVAL=RVAL*3600. !Delay value RVAL=IVAL N=3k=1 C C---------------------------------------------------------------------- C C The INVERSE Fourier transform is: C E.0) RETURN WRITE(7,40) LUN,(ICOD(J),J=5,7) WRITE(7,50) LABEL IF (NUM.EQ.1) RETURN WRITE(3,40) LUN,(*I+1 WHO(N)=RVAL*0.1 WHO(N+1)=IVAL-10*WHO(N) DO 20 J=1,2 N=3*I+J IF ((N.ICOD(J),J=5,7) WRITE(3,50) LABEL 40 FORMAT(' File ',I1,': Orbit number: ',I5,' Year: ', + I3,' DEQ.1).AND.(WHO(N).EQ.0)) GOTO 20 ENCODE(1,10,WHY(N)) WHO(N) 10 FORMAT(I1) 20 CONTINUE 30 ay: ',I3) 50 FORMAT(1X,32A2) RETURN C C*****ERROR MESSAGES C 60 WRITE(7,90) GOTO 10 70 WRITE(7,10 CONTINUE C RETURN END SUBROUTINE FTO1A(XR,XI,N,INV) C C This subroutine i( C N C SUM X(k)*EXP[ 2*PI*i*(k-1)*(j-1)/N], j=1 TO N C k=1 C C--------------- L=L1+I1 250 CONTINUE 255 CONTINUE I0=I0-1 I3=I3+I3 I1=I1/2 2------------------------------------------------------- C C C THIS SUBROUTINE WAS WRITTEN BY C 60 CONTINUE UM=1.0 IF (INV.EQ.0) UM=1.0/FLOAT(NO) DO 310 J=1,NO K=0 J1=J-1  JEFF PALM C UNIVERSITY OF MINNESOTA C 1979-1980 C C C  DO 320 I=1,II K=2*K + MOD(J1,2) J1=J1/2 320 CONTINUE K=K+1 IF (K.LT.J)  REVISED (19-APR-1985)--BY GREG ROELOFS C C C LOGICAL FIRST DIMENSION XR(N),XI(N),UR(15),UI(15) C DATA GOTO 310 ZR=XR(J) ZI=XI(J) XR(J)=XR(K)*UM XI(J)=XI(K)*UM XR(K)=ZR*UM FIRST /.TRUE./ C IF (.NOT.FIRST) GOTO 120 UR(1)=0.0 UI(1)=1.0 DO 110 I=2,15 UR(I)=SQRT((1 XI(K)=ZI*UM 310 CONTINUE C RETURN END SUBROUTINE SCALE(ARRAY,N,NDIV,FIRSTV,DE.0+UR(I-1))*0.5) UI(I)=UI(I-1)/(2.0*UR(I)) 110 CONTINUE FIRST=.FALSE. C 120 IF ((N.GT.0).AND.(N.LE.20LTAV) C C This subroutine finds scale factors for the array ARRAY, for use C in scaling axes. It is a condensation o48)) GOTO 130 INV=-1 RETURN C 130 NO=1 II=0 140 NO=NO+NO II=II+1 IF (NO.LT.N) GOTO 140f five subprograms which C previously were found in HYLIB. The option to look at every K C points in ARRAY has been d I1=NO/2 I3=1 I0=II DO 260 I4=1,II DO 255 K=1,I1 WR=1.0 WI=0.0 ecommitted. C C Parameter Description C --------- ----------- C C KK=K-1 DO 230 I=1,I0 IF (KK.EQ.0) GOTO 240 IF (MOD(KK,2).EQ.0) GOTO 230 ARRAY Array for which scaling factors are to be chosen. C C N Number of points in ARRAY. C J0=I0-I WS=WR*UR(J0)-WI*UI(J0) WI=WR*UI(J0) + WI*UR(J0) WR=WS  C NDIV Number of divisions on axis (i.e. number of ticks C minus one) C C FIR 230 KK=KK/2 240 IF (INV.EQ.0) WI=-WI L=K DO 250 J=1,I3 L1=L+I1 STV On return, lowest value on axis (corresponding to C lowest tick) C C DELTAV  ZR=XR(L) + XR(L1) ZI=XI(L) + XI(L1) Z=WR*(XR(L)-XR(L1))-WI*(XI(L)-XI(L1))  On return, increment between values on adjacent C ticks. C C NOTE: If ARRAY is in a COMMON bloc XI(L1)=WR*(XI(L)-XI(L1)) + WI*(XR(L)-XR(L1)) XR(L1)=Z XR(L)=ZR XI(L)=ZI k in the main program, it would C be more efficient to rewrite this subroutine to include the C COMMON b) Ž ‚ ¶Œ †¶#‚¶ã 6 öÞŽà¶Œ‡Â ‚cƒÃƒí¦‚ƒmƒíd€÷ `ö €Ò•-Î 9÷ fþ÷ XþÃEÿÀ@à ƒ ƒ ƒ Ãe0Ò�Î î(ö ê€Ö …Ö ƒƒŒ†ƒŒ)†÷ €„…ÆeC HÒ• ƒŠü�‡÷ þ À%ú‚À%ö‚÷ æý‚ ùÒ•0Ò•.Î ÀÒ•0Ž ö ø€ÏÃÒ�Ã+-Å € ÃÒ�Ê•/Ðê+0°ŠŠÅå ü€Åe:r‘ÅC ÆeÖ öe Ò•*ö û· ÃâkÄhÁœußj(Á ÀD$È Æ"&À¼ ýˆÀÌýˆÅ(fÕ & æ€Æå¶ýˆ„lock, and remove ARRAY and N from the dummy list above. C C C MODIFIED ( 5-MAR-1985)--BY GREG ROELOFS C C DIMENSÿÿÿÿÿÿÿÏ€ION ARRAY(N),P(9) C DATA P/1.,2.,2.5,3.,4.,5.,6.,7.5,8./ C C*****INITIALIZE VARIABLES C M=9 AMIN= 9.0E30 AMAX=-9.0E30 DO 10 I=1,N IF (ARRAY(I).GT.AMAX) AMAX=ARRAY(I) IF (ARRAY(I).LT.AMIN) AMIN=ARRAY(I) 10 CONTINUE DIFF=AMAX-AMIN IF (NDIV.LT.1) STOP 'SCALE ERROR: NDIV too small' DIV=NDIV TÄ’pÄe*Œ ĆpÄe*Œ¶¶ ‚ �N A f C�ŠÁÁå�Á%ʃÝ�v … ‡ Ž\ ü‡æ �‰ õ€“\Ä(pÄe*Œ ÄpÄe*ŒLOG=ALOG10(DIFF/DIV) C C*****FIND SCALE FACTOR C T=INT(TLOG) IF (T.GT.TLOG) T=T-1.0 PLIM=DIFF/(DIV*10.**¦¦6 6 & � f Â�6ŠA ‡Â üv�Š�ÐÁ  6ŒN\€&f$&Ð  ÷ h÷ ¤ýÂ% Â% ÎU@÷ ŽÂå— ‚ Ë ƒT) IF (PLIM.GT.P(M)) PLIM=PLIM*0.1 C C*****"SMALLP" ROUTINE C DO 20 I=1,M L=I IF (P(L).GE.P¶ ÷ <÷ .…`D A @ Π耎 æ— þÿÂå‚ ‚  Âe Ãæ    ‡Îe€õ‡ŠÍà ¶ &f€Â €÷ | ‚�€ä‡ ”ÂE€ÿÂå ‡ö LIM) GOTO 30 20 CONTINUE STOP 'SCALE ERROR: PLIM too big' C C*****CHECK IF SCALE FACTOR IS REASONABLE C 30 ÷€Ö ‚ CPQCQBƒ“æ¾Âà‚m— Æÿ†Ö Å‚ ÷ Ð÷ vŽ  ˜ú‚÷ €— &î‚ õ€  À5@éÃ%P‚Ãe°E ÷ Tà Πò÷ <À5þûÎÕ€e DELTAV=P(L)*10.**T PARAM=((AMIN+AMAX)/DELTAV - DIV)*0.5 FIRSTV=INT(PARAM) IF (FIRSTV.GT.PARAM) FIRSTV=FIRSš‡N N ÷ (E D A @ ‘‡�… ‚Âeb"Ö …„b" ‡¡    ‡Å D A @ ‡&f&f÷ êÿ÷ æÿ…eD A @ „eA @ �e@ €e‡&f&f À ì÷ TV-1.0 FIRSTV=FIRSTV*DELTAV VMAX=FIRSTV + DIV*DELTAV IF (AMAX.LE.VMAX) RETURN C L=L+1 IF (L.ûC r &@Ár&@r(&DsPA r „C�Å wA `€×t ‡ÂE ÂEÂDƒÓ ÀÁ&fÄÅ£££Ž& @ Ž & LE.M) GOTO 30 L=1 T=T+1.0 GOTO 30 C END ‚Œ†öåÀ  ¶�6±Œ&Š€CÎ÷ ‚Âå€÷ ÿ÷ Î ‚ ù÷ DÿŽ ÷ ô ù÷ àþ‚ ü‚6Œ‡‚c6Œ†‚#ƒ‚m  �÷ öþ ‡÷ ÿ* € € € ÀEÀ`ÂEðÿ& ±N  ý€°U–‡¿‰þ‡Æ%@†½‰Æ"ÀÀ éˆwZ ¤ ?Err 60 stack overflowed ABCDEFGHIJKLMNOPQRSTUVWXYZ$. 012345678”a³rƒŽ‡Àr…@ÀE€ÿ÷ TùÆdæ„æó‹t6æÃXa3 Dó‹t³~ƒÖ Þ æ„æÃ8aó‹tö~3 r3 p3 óX 3Š¢9fromin routine "" line € ?Err (PC=D& &&æÛæÉ@„ 8Z D& &&Î 6  æÛæÉA„ Žº ô\Ä º ôÎ \ƒ‡\æ�*÷”÷ ÂÈUÈ €ÈE€È‹™‰Þ &À÷ ì€w"æ�*÷b÷ �ÈUÈ €ÈE€È‹�™‰Þ ó¨¯`È5 ‰w¤æ�*÷.÷ \ÈU‚È Ô º º °ü °8°8°8°8°ž €� €@ €À Ö Àe€‡¦¦\Î ë¶Š\¶S\ö‹ Îe€& æ€@„ 8ì Ä‚ ¶Œ†Îe€\€��ð ð ÈU€Þ æ�"ó$`È5 ‰÷ óóó凿�*¦÷Þ÷ ÈU‚È �ð ð ÈU€Þ æÐÈ5 ‰û• ³ ÷ ÈóÂ, Ãf&¦¦à ú\:º×™¼c&£>X4%Àá]É@ÛfEA�‰  æ� Áe@ & f& f& f„ Ž8` Îå€ö ff¦¦î€�Ö óó凿 æ¦Ãþ_‚³DóÿR³ŠSÒ‹ü‚3 ¤ó‹tÆeÞ \ƒ¶¶^Þ ÃÀ_ÂDÉÀœ¤ Á ÁsNœ $ÁœS…‡ÄfÄe*Œ€Áƒ€ †ÁÀ Ãp‡€ ü†Cp‡À øf\�‰üÎ Î\Î Î ø \Îeû€ † \މ\A@ÀE€A‡DÚeB÷ � sLÁls ‡&¦÷ Vÿ‚€æ óLæLÀ &ÀE x¦’¦ólL€ œø ê*½†w ´ý†‰¹P�Ñ• ‡Ñ•(s÷ bÞ Ã_ÂDû•ê°‰wäÄŠüÁNFàƒ @ÄŠA �‚¢ ”Á ù Š‚æ<¦¦¦€æ&¦åˆ†¤‰ÃDeÀ�Î €—¥Bô°•Á ö—£CÈU—¥NöÈU,³ ÷ Jû•)³ œs ‡¦÷ Êþ‚Á‘”Ê‹ôs�æNæ‡& & ¦¦Ò ¦¦·ææL³cæNæ& & ¦¦ÿ üÚ^†w ÷ $ÀŽýˆÀ5ßðÀ5ß&÷ jk Î ÀPéˆÀ’ýˆ &ä ìˆ!zƒÄåÔ7@kÄí4kÄE&Â.km„à&ÄEÄå  ü&ÄåP&óÆe�ÀeÁePPPHÀÆeN÷ TÉ¥RÈU@É¥OÈUÉ¥SÈU÷ 0 É¥NÈUÉ¥CÈU÷ ð‹p’3Š¢3 ‡ÄŠAW !_ƒÂÂeÔ" „ ý‚s�ts�u³³³³³v³xÄåF3l3 ÀtÂ# ýs !5ƒ÷ 4#ÀŽýˆÀ5 ·#¤j‡Â"Âe!#ƒÆeÿÿ‡Ö óæŠ¦)¦÷ |Æe‚&÷ Ê-È5€@*÷ ð Ì5#Ì5)ô ô%üƒôeô 4 ô ÷ .ÀþmA’ïÁ @à4ÌE�3 ó€óPóe"P³j„3h3|3z÷ è"ß° ßU $÷ ®"ó‹u!\ÀgéˆßÕ+èˆ?Err 59 USR not locked?Err 62 FORTRAN start fai3Š¢„‡\ô ñÀ@`À  ॠû€ @àÀE4ßô ÷ô ÷ ÈÀæÂ €�€ƒf¦ ÷ BýÎ €Â% Â% Îe@læLÀ¶&ö5Œ‰ö5‹‰ЉÀÌýˆ€¶¶6 6 –f�&¦æAÁE€ÿði@÷ ŠÂlB`¦’)� ó rÄ÷ (Â厠 ‚Á ‡Î €B`Á ‡Á ‡�`î†Ö ±A@^À €Ö Ö †¡€  A ò…¡^”ÂE€ÿÂå ‡ÀÀ€�ÁeB‰CIE Â`æÁ- À †Å  rwŠŠŽ’€ÊŠíˆÂ¹€”@ Ò‹þùÎÿÿÃ# À" éˆ÷ ^€éˆÃ ÷ R÷ X΋ �Ö ÷ Â!ßÕ+ƒ‚€�÷ ¬!ßÕ+Ã&i ³‹ÁŠ D E þ†AŒ@ ‡àD Å ùD à �Áe0b�ëÁb�Á à úŠÁ%-Ö „…‡Ò•*Î üV ÷Í¥�‰)@%@æ Žæ Žæ Žæ…&÷ €Ö à ÷ ÷ ïw„ À”Fáˆþ‡ûà ÷ îÿÃîhæzÀ|ÃÎÀ÷ ”€÷ ŽÃ ÷ ÆÿÀÆhÀ•?áˆþ‡÷ DW =W ?Ã+ ÷ žÿ�±À•A �Á �e‚÷ Е-Áe1P”P”P”Е-‚ÂÂeöý€Âe/:��Â��‡JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECæ�*æØæ�*æÖæƒÃe æÃb³dó @Œáˆþ‡À•†Á @Œü‡õÀ•)áˆþ‡À 鈇& € Îå üÎe:À ÷ èÿ€•áˆþ‡‡ ƒ ë‚ƒà€ ûÂ(÷ êÿæ÷ äÿæÃœÙ áˆþ‡Ã Ø€ø3� óœ¢¡š‰³³ƒÖ Ž÷ˆÃøaóó³³góVóÌ`óbó XwÈó b‡¬‰€Ã¸a3p\îa3r\æÃ¢a³pæÃ+ N ³¤ó‹t Ö ³R³D³Zój~&€$3R3~3D3Z€¶ÆeƒÞ æ&ÃH\ÀœS3`D€ó Zò¦ö~ƒ^\ææ ææatible variable and format types27 Attempt to use device not in system31 No available I/O channel28 Open failed for fileæææÃ\& Ž�—£—£Îe¶­N ³¤ó‹tÖ ³R³DÞ \³R³DƒÖ ¶¶^D €�C Š29 No room for device handler$36 Bad file specification string,44 2nd record request in ENCODE/DECODE 32 Fmtd-unfmtd-random IÃÃå˜ Ã%èÿ  æv v ‡f&\& &Äd[Äe*Œz\ffz\& &Ä@[Äe*Œz\ffz\ff& /O to same file!33 Attempt to read past end of record"34 Unfmtd I/O to TT or LP%37 Random access read/write before define fil&Ä[Äe*Œz\ff& &ÄìZÄe*Œz\f&¦ÃØZ³�¢÷ . 3È5nÈ‹~�÷ FÌ5*4&Å Å ýÌ54-e&38 Random I/O not allowed to TT or LP'39 Record larger than record size in define file(40 Request for block larger than 655‚÷ ùó,pó‹tó*p&朢³d÷ âý,³•¢„÷ �Å Ì5Â妀@a3 ü‡sá ÀÌ5À�@Ðüˆ ±@ Á ý€3@35)41 Define file attempted on open unit#35 Attempt to output to read only file30 No room for buffers*42 Memory overflow co3 r3 pÄ3! †•û÷ Z°#ö†páóÖ ÀÄ Ä ýÀ‚¤þ Š3 3Š¢„…‡æÿÿÔƒ‚�  �É¥FÉ¥TÎ KÑ¥ ó±Kƒmpiling object time format.46 Infinite format loop+43 Syntax error in object time format149 Endfile on random file/47 Attemp‚�€Á Е ûÈ•T‹È•FKÈ5@È5#ÈEÌ €Ì5�mÈ5 ŠÒ• Áåÿ Š� ý�ÂþmÊU€÷ ˜‡|ÿ|ÿt to store outside partition048 Unit already open@64 Virtual array initialization failureA65 Virtual array mapping errorB66 | 11 Floating underflow6 Output conversion error4 Computed goto out Unsupported OPEN/CLOSE keyword or optionC67 Unsupported OPEN/CLOSE keyword or option351 Inconsistent OPEN/CLOSE statement specof range 12 Floating zero divide2 Integer zero divide3 Compiler generated error16 Wrong number of arguments 13 Sqrt of nifications250 Keyword value error in OPEN statementD68 Direct access record size error0 Non-FORTRAN error call Â%c”‰ ý†‰‡>^B¶   D&&„ ,€‡æ�*æ\æ�*æf&f¦æ€ÃD^æ ÷ D³ öƒ‚�€‡@&@&&Ý egative number1 Integer overflow 10 Floating overflow5 Input conversion error14 Undefined exponentiation operation15 Lo@�ˆMÖ õÖ øÖ @ö@&@&&MÖ ùÖ @÷æú¦)¦÷ ÒÆe‚&÷ È5€@ ÷ F4 4 ÌE�Ì54 3 3Š¢„‡\Ö „g of zero or negative number7 Incompatible object modules553 List directed I/O syntax error=61 Illegal memory reference20 Ä\À^éˆÀ`éˆéˆßÕ+Ãv]³ fÄ3! †•û×,f$Šó fóÿ ÈðÀnHß5$€ èˆ^STOP -- €Á €%à ]æœtææInvalid logical unit number21 Out of available logical unitS22 Input record too long23 Hardware I/O error?63 Illegal inst&& ³fAPÁ  û³•t\Ì –%Äæ\Œ´´•t‡ææ æææææÃ²\& Ž�—£—£Îe¶­ruction trap24 Attempt to read/write past end of file25 Attempt to read after write26 Recursive I/O not allowed-45 Incomp, `û `3 Vû‹€3 T‡ÁlÁ ó,FƒóFBóFÁìF³Â RÒ³ w €â ø�3oA�sk÷ TÿÁ g�û ù€÷ Nÿøû €÷ .ÿ@•÷ vÿ û€‡ó "�Ä5€ÿŠ ó &¨€ ¦÷ òþÀ"¦÷ èþÀ•¤÷ >ÿÆf&ÄÁÌ‹€À)éˆÂT³TÀ Ì5 E”Å¥1Рť+Å¥÷ Zÿ[û `Xó DTB÷ "ÿ;�³  J�û õ€÷ ÿ@÷ ÿõóBû €÷ ÿó D¢ó \$w ´î®‰³V-ó Dìû  �ÂÂì׬R»�$ó 3 TÅ¥0÷ HÌ‹€Â ÷ <Ì‹€s  †Åžû•€@éˆ{‘„…‡s ú†@”÷ ùs ツ…‡Ì‹€áˆþ‡‡m �´ ô5ÿôD»DÞ ÃP3 V3 Þ ÃøO3 Fû �û `óP óB3 \ ÷ pþ@�� ÷ dþÀE€ÿx´$‚ ‚ ‚ ‚ ‚ ‚ ‚  ³�H3�I³ \sJ÷ 8þsLÂ%4 w€&4´ 4-‡4Ì5@ÌE€4 £‰÷ œæž æ�ˆÝæ\)ææ&vC‡ô¥÷ jÌ5ÌEôåÌU÷ *þsNó D—ÀL׬I( ÀœRÂ%Àó¥RÀóNÀóNæÁ�ã @û €3`"Á  ùû¥,ôe´  €‡&ô 4-2†÷ .æž æ€ˆÝæÈ)& æ&v‡´  €‡æž æ ˆÝÎ ÷†ÌE€Ì5@ôÿÿß‹*3 pÄû¥ ³ Á ôÞ ÃþNó J��œH´³ @àÎH!€ &Ž Â%æNæÁR W — w 0í­‰— úû  €ÃD >Á¥Á¥r —‰ô5ÞÌU3 rÄp˜‰w禂f&æ@*’$€Ò ¦ ¦J"K…€�‚ƒ„¦v…ŽÞ ¦¶v…&æ¦f&Í ÃHó D& & ÁEÿFà€� ÐÁ ýú è*¼†ÃxNw ì솉¶Á’fôú ø*ÃbN†w Ôì…‰ÀDÁœRÁ%Á% ‚’$J ’ŠJ N ë…ê‡� �Á ý“ˆ•‘‚€ŠÁ� Е ß€�‚ƒ„…‡\&€Àe &&&à &м*&Ð�Pöÿ0ôÿˆ‡ƒ‚�€‡ ˆ¡ˆ¢ˆ£ˆ¤ˆ¥ˆ¦ˆ§ˆ¨ˆ©ˆªˆ«ˆ¬ˆ­ˆ®ˆ¯ˆ‡‡þRXÒÖÌÜ’$ØÐÖ úƒ`CàBД ý€Ö ÁœS‚ÀDƒ� ð@`�àà• Á ü€àë¬"¾!Î!:"ú!\" "â"ä"Þ"à"Ö"Ú"Ü"Ø""Þ!b"–!î!â"ä"Þ"à"Ö"Ú"Ü"Ø"æM³�¢ó š‰÷ ôûÀÀÀÀD(´@‡Õ @‡Õ @H‡@’ÀEÿ‡Õ @H—‡¦)€f&æ€ýˆÎ…÷ Æe ‡Õ A@Aæÿÿ÷ 0÷ Bæ÷ <æCE3È5‡Í¥�‰¦)€È°ýˆ–%À üˆÃàÿÂ@ÂeH€ € �� � � Á@ÀÀ@@%]�‡Ã>M€Àe3d³�¢ó š‰€³‚&÷ xû3Õ•:ÃeöËü€Ãe:/ÃÕ�ÃÕ�ƒò€‡Ä2&ÀÀ÷ 0À5 €Ä< æ Á @ C Ä ‡á� Î ÷Ö ‡€ð@&æ€ýˆ–%‡7 ØÚ_÷ÿG¾G÷àºG÷/È5Þ È5÷ V7óó X‡f&ÃîLó Õ¥ ýW­ÿÿ(c3 "3 $3 (3 &  ÷ ù@•À¥ ü Z @ 0À¥9Àå0 €` œ]÷°G7  G÷ÿÿžG÷ÿÿˆG7 ˆG7 ˆGæjæ_÷ Äå÷ åæjæ"_÷ ´å÷ øäæjæL_÷ ¤å÷ èäæjæƒ_÷ ”å÷ ØäÅ:j÷ Œà÷LGÄ(ÅœrÕ• Ä üæ `„P³ &åó (8À 'ÀE€ÿŠÁq’'3 (Á'  S! ! !! #! +! 9! L!  ! oóU€&¾ó "ó &eÄc€9`3 "ó &[‡ó "jæ_÷ få÷ ªäæjæ¼_÷ Vå÷ šäæjæþ_÷ Få÷ Šäæjæ_÷ 6å÷ zäæjæ?`÷ &åæjæÄr÷ ìè÷ ^äæjæ_÷ Öäæ jæœr÷ Ðè÷ Bä÷¾FÅœrï€V÷ ˜À•y÷ ŽÀ• tó $À•÷ Ú³ $×,$?‚À•R÷ dó $�À•\Ö À•÷ ®„…‡÷ DÀ• O÷ :f ‚ I¥ýI¥û… „À•÷ W¥ · °F×-¬F(÷÷¢FÃÄÄrÅœr•à ýæjæV`÷ ºä÷ þãæjæ_÷ ªä÷ îãæjæ_÷ šä÷ Þãæjæ[`÷ Šä÷ Îãæjæ_÷ Fäæ¼s÷ é÷ d÷ x@•  û ùÅ ‡-$')(/.,:ó &÷ 0ÿó "ò«‰ó &üW¥ ýW©0‡W£9ƒÀe (Àåó &æ‚ ó "âÄà Ý�ÀU€÷ €¶ã×-6FÅDj÷ J÷‹Fwž÷‹ Fw˜æjæ_÷ >ä÷ ‚ãæjæ“`÷ .ä÷ rãæjæ_÷ êãæ¾s÷ °è÷ Zã×-ÜE7 ÆE÷ÐE÷‹¼Et÷ÄEæjæ�‘  s û‡�Ñ‹s û‡•‰¡�À�åÀe Á ü‡ ÁÞ³ ‡÷ ’‡À• ;�À3 †³ ‡ó,F†óF3 Fó VÀ• ÷ Ìÿ{;� ³ ó, ‡ª‰:žžddddn:žž:žž: ~"˜žž$¢žžž&4žž3 (È÷ jÿ³ "À3(Áå(™3 "3 (W È÷ ŒÿÅ÷ @ÿ³ "è- :=÷ hÝ÷ Þæþs÷ àâæòs÷ Øâæös÷ Ðâæús÷ Èâ÷ ŠÝ÷ L@æjæ¥c÷ 0Þ÷ tÝ æ6@æ0@æ @æ@z–À  ÷ @Á @ÐÁæ¸s÷ Ú÷À?÷Š’?æjæ_÷ ä×÷ (׿jæf÷ Ô׿*t÷ fÜæ&t÷ FÜ÷ ×Ådj÷ FÅdj÷ t· æ9÷-â9ð9w:þæjæ_÷ ”×÷ ØÖæjæEf÷ „×÷ ÈÖæjæ_÷ @׿,t÷Ä?÷ ‰„?÷‹ ?1æ¸sæœræ:=÷ ÌÜæH=÷ ÒÜ÷ \Ý÷Î?ÄÅ4sf÷ 0âÅeÄ ù÷ êÜ· ž?æš?Î ÷ Îw HàÆszw @àÂszw àþs"æ¸sæœræH=÷ Ü÷ °Öæjæ_÷ \×÷  Ö×-�9÷ˆ9ÄÃÅ@h÷|9Âx9Bc �þ‰A rþ‰· f9×-b9ñÅeÄ êºæjæ{f÷ ×÷ LÖæjæ_÷ ÄÖæ2t÷ ŠÛæ_÷ èã÷ ,ãæjæÇ`÷ Øã÷ ãæjæ_÷ ”ãæÂs÷ Bè÷ ãæjæ_÷ °ã÷ ôâæjæõ`÷  ã÷ äâæjæ_÷ \ãæÆs÷ è÷ Ìâæ¸sæœræ:=÷ râæV=÷ xÜæ:=÷ bÜ÷ úÜæþs÷ Úá÷d?ÄÅ4sf÷ ÆáÅeÄ ù÷ €ÜÀ2?À À ÁÌ>0s 2s÷e¾>· ô>÷-ð>U—×-þTÅdj÷ < w ¤ß ‰´szw ”ß’s÷e÷ xâ÷ ã÷· ²>÷-®>zJwìþæjæ_÷ ÐÜ÷ ÜæjæÕc÷ ÀÜ÷ Ü÷ãsTT÷#1PT7 NT7 LTÅdj÷ .æjæ_÷ ”Ü÷ ØÛæjæ_÷ „Ü÷ ÈÛæjæìc÷ tÜ÷ ¸Ûpç÷ÂDÄÅ4sf÷ \çÅeÄ ù÷ â÷ œDæjæa÷ ¼â÷ â÷ †DÐæ¸s÷ ÆÞæjæ_÷ žâ÷ âáæjæKa÷ ŽâæÂs÷ ç÷ Êáæjæ_÷ vâ÷ ºáææjæ d÷ 0Üæt÷ Þàæt÷ Öà÷ ˜Ûw òÞttz–÷R>X>÷N>T>÷J>D>÷F>@>÷B><>÷>>8>w ÒÞtæ_pæ‰1zw ¦Þš‰w ¼Þtæ_pæ‰1zw �Þ–‰æjæ_÷ fâ÷ ªáæjæoa÷ Vâ÷ šáæjæ¡a÷ Fâ÷ Šáæjæ_÷ âæÐs÷ Èæ÷ rá÷D×-D7 úCæjæ_÷ â÷ Páæjæ_÷ üá÷ @á×-ÔC?jæ_÷ æÛ÷ *Ûæjæ_÷ ÖÛ÷ Ûæjæ%d÷ ÆÛ÷ Ûæjæ_÷ ¶Û÷ úÚæjæCd÷ ¦Û÷ êÚæŽ=÷ Ìw NÞÆszw *Þtæjæ{d÷ €ÛæÚs÷ úß÷ ¼Úæjæjæ¾a÷ äá÷ (áæjæïa÷ Ôá÷ áæjæ&b÷ �áæÔs÷ VææÖs÷ NææØs÷ Fæ÷ ðàæˆC÷ Ò& æaFzæzC÷ Ò& æpCzzæjC÷ øÑz·bC·`Cææ¨d÷ hÛæâs÷ âß÷ ¤Úæjæ_÷ PÛ÷ ”ÚæjæÒd÷ @Ûæt÷ ºßæt÷ ²ß÷ tÚæjæ_÷ Û÷ dÚæjæe÷ Ûæˆ÷ ¢ß÷ LÚæjæ6e÷ øÚæÆs÷ rßjæ/b÷ fá÷ ªàæjæ`b÷ Vá÷ šàæjæ_÷ áæÚs÷ Àå÷ ‚àæjæ_÷ .á÷ ràÅLj÷ ²×-¶N@÷@¬N×-¨N÷žNÁšNÀ r7ŠN· †N÷‚N÷ 4Úæjæ[e÷ àÚæà‰÷ rß÷ Úæjæ�e÷ ÈÚæàs÷ Zß÷ Úæjæ¬e÷ °Úæt÷ *ß÷ ìÙæjæCd÷ ˜Ú÷ ÜÙæjæ_÷ ˆÚ÷ ÌÙæjæ_÷ xÚ÷ ¼Ùæj‚N÷~N×-|N· pN÷lNæjæ—b÷ Êà÷ àæjæ_÷ †àæÞs÷ Lå÷ ößæjæ_÷ ¢à÷ æß÷ˆX×-‚BÅTj÷ ×-tXæjæÉb÷ tà÷ ¸ßæÎe÷ hÚ÷ ¬Ùæjæ_÷ $Úæt÷ êÞ÷ ”Ù÷ l<æ¸s÷ Ý×-<Åfj÷  w¨÷æjæ_÷ Ú÷ bÙÁ®GÀ r&÷ „Êw ¾ÜÆszw ¶ÜÚszw ’Ütw ¨Ü×-\Xì÷‹$Bæjæýb÷ Và÷ šßæjæ_÷ àæÆs÷ Àä÷ ‚ß÷ B÷ÀAB7 BæX÷ œÐw ÖâÆszw ²âÆsæjæ_÷ à÷ LßÅ\j÷ ŒæäAæÞAÁˆMt& æ Bzw ~Ütw ‚Üêsæsz& æ€Bz·ø;·ö;Ånj÷ Åxj÷ ŒÅ‚j÷ ÒÅ–j÷ ÊŪj÷ ÂÅdj÷ Z÷Â;÷$G¾;÷ív;¸;÷¦;´;÷¢;°;÷¦;¬;÷À r&÷ ^Ðw ˜âÆszz·ÀA·¾Aw tâÚsÂsz–÷’A¨A÷ŽA¤AÁ¤AWpCæDMN`÷ Ðw ZâÆszw RâÚszw .ââs7 ‚A7 €A& æ€@w 6âÆs& æAzz· ;¶;÷eC°;×-œ;wª÷;ÅŠÀ;Àm8;À À †ˆ· ;÷-þ:f;ð÷ô:÷þ:÷ ‰È:÷‹Ú:1æ¸sæœræ:=÷ ØæH=÷ Ø÷ –Ø÷;ÄÅhA·fAæjæPc÷ ^ßæês÷ Øã÷ šÞæjæ_÷ Fß÷ ŠÞæjævc÷ 6ß÷ zÞæjæ_÷ òÞæîs÷ ¸ã÷ bÞ ×-AÀ  ×-AÁ @Ð÷ö@÷‹´@87 4sf÷ jÝÅeÄ ù÷ $Ø· Ø:æÔ:Î ÷ HÉw ‚ÛÆszw zÛÂszw VÛþs"æ¸sæœræ:=÷ ¤×æH=÷ ª×÷ 4Øæþs÷ Ý÷ž:ÄÅ4sf÷ ÝÅeÄ ù÷ º×Àî@æ¸sæœræ3÷ êÝæ:=÷ ÔÝ÷ lÞæòs÷ Lãæös÷ Dãæús÷ <ã÷ þÝ· ²@æ®@Î ÷ "Ïw \áÆszw TáÂszw 0áþsw 4áþsÚsz–Ë?æ¸sæœræn3÷ ~Ýæl:À À Á:0s 2s÷e:· .:÷-*:>P—×-8PÅdj÷ vw ÞÚ ‰´szÀø9Àm^:À À °†°ˆ· ä9÷-à9:wäþæú9÷ €Èw ºÚÆszw ²Ú&tzw ŽÚ&t. t9æn9z–wd9w`9Åe÷ n9Éw rÕpx’‰z–÷>9^J÷:9ZJæ0kæáj÷ ªÒw ^Õ’‰æ(kænOzw 2Õ‚xæ‚x÷ ×÷ ÐÑw *Õtxމz–‡÷ø8J÷L¿ -À5&&& æAw ÏŠzzzw ìÎŽzÿ ê,÷eÖ4÷eÒ4÷eÎ4÷eÊ4÷ 5¿ È,7 ²4ÿ¾, ÿ *4à æ& æ4ææ ÷ ŽÆ–åÎ ��µô8 Jæ0kæk÷ `Òw ÕŽ‰æ(kænOzw èÔ†xæ†x÷ ÄÖ÷ †Ñ‡7 ´ÕHkÂÈ?·f9Á¾?�àÀ 7r¸?7r9· n9€À À Ãe†‡Á ?Á Á wX9·P9÷ L9÷Œ?L9÷ H9 ÿŽ,ÿÿÿü3¿ „,‡ÿ|,÷v4¿ r,7 p4ÿh,Âd4‚`·^4¿ Z,· X4¿ R,¿ À3ïÿF,�À r7>4¿ 6,÷64¿ ,,÷*4.4¿ ",÷&4÷4R4€À À Äe†ƒw:9€À À Åe‚‡w,9×-^?! À9À À ð‚ƒð„ƒ×-D?! Àü8À À ð†ƒðˆƒ×-*?AÌô×-?�ææffz& æ@ÿ,÷4ÿ,÷€@ 47 4¿ ö+7 47 4¿ ê+÷ò3ú3÷ ö3¿ Ü+÷Ô3ÿ!Ð+÷ â3[ÿ#Ä+ÁÖ3À rÁ Aÿ%°+Á´3Áí¦3w¼3¿  +Á Á wzØ3zÁ¢8À rÀ À °†ƒ°ˆƒÃmª8÷m¨8 8Äm¤8Åm¢8÷mØ>x8÷ �8µ÷Ñn8& æ€@w ÐÓš‰–‰zz·Z8·X8÷T8÷Al8÷Šƒ:8w ÀÓ"yw ¶Ó–‰zw ®Ó,yzw w zÔ3w ŒÍ¤zØzzwDzÆ3wFzÂ3w vͨzÜzzz·„3·‚3¿ b+w ^ͤzÜzzw TͨzØzzz·Z3·X3¿ @+÷V3H3÷R3D3ÿ).+Á@3À r763· 3÷-33ŠÓ2yw ŽÓ2yøxz–}w €Ó2yyz–÷ 8÷ú7÷ö78Àþ7À À æô7æî7&öx&ôxz–· Ò7×-Î7è÷ Ô7÷Ð7÷Rk¶7Á¸7ÁíÂ7Wp(÷nº7Ÿÿ*+ÿ ~2¿ +÷ 3÷e€ 3ÿ,ò*÷ú2 3¿ è*÷3÷ä23ÿ.Ö*ÃÖ2÷ð2÷mè2ê2¿ Ä*ÀÞ2À Á Á Ám"2wü2wø2ÂÈ2 �Á Á Ám2wè2÷ 4Ö×-*9Uæjæ_÷ ØÖ÷ Ö÷ 9ÄÃÅ@h÷9Àü8@cÀ 0 þ‰· ð8×-ì8ôÅeÄ í÷,tÞ8÷ep!Ø87 Z8÷V8Ö8÷mÊ8Ð8žj÷ Àï· B8×->8Çðw`¶7÷ž7Á¨7Á AVkÁoŒ7ÁmŒ7W¬—x0%ÂöGÂm|7�À r÷‚7‚77`~7ƒÁÀ rwr7· n7Åjk÷ PéÁb7Aœ�x@P7�@7Ånk÷ Fé· 67×-27È÷e$7÷eDœ8÷/NæP8÷ ÖÆw ÙÆszw Ù&tzw äØî‰Å‚j÷ bwÂüæjæ_÷ .Ö÷ rÕæjæ­f÷ Ö÷ bÕæjæ_÷ ÚÕæ6t÷  Ú÷ JÕ×-D8ÅÄj÷ "ï÷ · 47×-07±÷å7÷e 7÷ 27wÆþ÷evG‡7 >Ótk7 $77 "7÷7ÄžGÅ ‰æ7æ 7ffÕ z·ü6·ú6Ä ñæò6æì6æpG÷ ö¿z·&G·$G‡(8w ¢ØŽ‰æ(kænOzw vØŽ‰w ŒØ’‰æ(kænOzw `Ø’‰æjæ_÷ ¶Õ÷ úÔæjæÙf÷ ¦Õæ*t÷ 8Ú÷ âÔæjæõf÷ ŽÕæމ÷ Ú÷ ÊÔæjæg÷ vÕæ’‰÷ 7 èÒ|kæ´kæ„k÷ ^Ïæ¶kæÈ6÷ 6ÓæÂ6÷ äÓ÷ ŽÎæ²kæ®k÷ Ïæ¦6÷ ÌÓ÷ vÎÿ š6ÿ˜6’6æ´k÷ hÏ÷ ^·7 ŒÒ¸kÿ®/æz6æÀkææD÷ öÍæªD÷ üÍðÙ÷ ²Ô÷‹7æjæ7g÷ XÕ÷ œÔ÷‹7æjæ`g÷ BÕ÷ †Ô÷‹ò6æjæxg÷ ,Õ÷ pÔæjæšg÷ Õ÷ `Ôæjæ_÷ ØÔæ8t÷ žÙ÷ HÔ×-D7æÐg÷ ü×÷ ¸Î÷î6Ä#Ålyf÷ rÓÅeÄ ù÷ Îÿl/À>6Àm<6Àm:6Àm86Àm66Àm467´6÷m.6®6¿ F/÷ ¦6w2ÿ6/æ6æÀkææD÷ ~Í÷ HÎ÷ ÀÍ¿ /ææ5÷ÿÿ¦6÷ÿÿ”67 ”67 ”6÷ãstL÷#1pL7 nL7 lL÷/pLæ¸s÷ €×wHð÷ÿÿd67 \6wnþ÷ÿÿZ67 N6w`þæjæ÷g÷ ŽÔ÷ ÒÓÀV6À  ÀaXl.Þ.‡7 æÎkææD÷ bÍæÈD÷ hÍ÷ $Îæ²læ²y÷ Ò÷ �Íÿ è.ÿ ¶5¿ Þ.‡ÿÖ.æ°læÒk÷ $Îæ–5÷ ¶Ò÷"6ÄÅtyf÷ ¢ÒÅeÄ ù÷ DÍÿœ.æ°læê×Êj7 Þ:÷Ú:÷öAö:ÊĊƒÅTtÔÔ  ÷ Þ:ùæÖA÷ ´Ä& æ Bz& æ@z·®:·¬:Å6k÷ DÖ7�:÷ˆ:÷Šƒx:÷~:�:÷ Œ:æˆ:÷ rÄw ¬ÖTxzl÷ êÍæ²læ²y÷ ªÑ÷ "Í¿ |.×/J5¿ p.‡ÿh.æ´læÒk÷ ¶Íæ(5÷ HÒ÷´5ÄÅtyf÷ 4ÒÅeÄ ù÷ ÖÌÿ..æ´læl÷ |Íæ²læ²y÷ <Ñæf:÷ bÄz·p:·n:& æ@Å:k÷ Íf&& æ@zz·::·8:w rÖ^xw hÖlxzw HÖ^xÁ:AÁí:Á Á æ:æ:fŒƒfŠƒz±Šƒ±Œƒ÷eè9· î9÷-ê9ê9÷ ´Ìÿ .‡ÿ.æ°læl÷ RÍ÷ –Ì¿ ð-w8þÿæ-æ°læMl÷ 4Í÷ xÌ¿ Ò-wþÿÈ-æ°læ~l÷ Í÷ ZÌ¿ ´-wÂþÿ ª-ÿÿÿx4¿  -‡7 pжlÿ²Å>k÷ n×-Ø9ÿÿæÒj÷ bÖ÷È9÷Þ@æ9ʃÄTtÅЇææææÓ z&&&&Ô zz�µffæŽ9æˆ9z–w~9wz9ffæ’-÷‹|5dÿ†-7 ø47 ö4¿ z-÷€@&57 $5¿ l-÷d5÷š5÷ zL5÷zH5÷HzD5÷Lz@5ÿ B-& æ€@w Nψzz& æAz·^5·\5ÅÀl÷ ²ÆÄ 5/ :0¿ (w40w00¿ (Á 0Á @À À Àm`/æ 0æ0&&zŒ´¿ Ø'@À À Àm>/æü/æö/&&z�µ¿ ´'æÖ/æÐ/æÚ/æÔ/z@À À Àm/ˆ”!‡ÿ9Œ!÷4*\*÷åV*¿ |!À&*Á.*Wp7@*wà<*¿ d!7 **÷"*:*÷ 6*ÿ<P!Áþ)wp*÷**w` *¿ :!æ*÷ ±w @Ãö‰zw 8Ãî‰zw Ãn{¿ !ÿ °¿ Ž'æ´/æ®/æ´/æ®/z@À À Àmâ.ˆ°ÿPf'ÄeÅe· z/÷-v/T/w²þ¿ J'‡7 ÊÄlÿ<'7 „>¿ 4'7 ~>¿ ,'7 x>¿ $'7 r>¿ '÷(j>Ð)ÿ@ !Ťp÷ V¿ !Ūp÷ ø¿ ô ÿCì Ŷp÷ ÊÿDÞ · ¤)÷- )´)¾¿ Î ÷v)”)÷eŽ)¿ ¾ Àh)Áp)Wp7‚)wà~)¿ ¦ æZ)æ¢pæP)æj{¿ '÷(b>¿ '7 \>7 Z>¿ ü&7 T>7 R>¿ ð&÷€@J>7 H>¿ â&÷€@@>7 >>¿ Ô&÷8/6>¿ Ê&÷^/Ä€%ÅŠÿ¶&Šÿ®&Ä ÷¿ ¦&Åòm÷ ß7„c¿ –&æb{æ…÷ ˆÆe ¿ € ‡ÿIx Á )À r78)· 4)¿ b Á )À rw$)¿ P ÷)ÿLD ÀñÀïê(7 )÷íþ()¿ . æf{Àú(À ºnÀmê(&Îeÿ‰ ×-zcàÀ  ÷ ncÁ @Ðÿv&æØmæÌl÷ ÄÅ÷ Å¿ b&æØmæm÷ °Å÷ ôÄÿL&æ6m÷ ªÈÿ>&Åöm÷ ²Þ7c¿ .& ÷ cÀ  ×-c à ÀÐæ…÷ þ\Æe¿  ÷-È(Ä(À  ×/¦(Á @ÐLÿPâ÷®(ÿQÖÁ~(È(÷pœ(BÂà·Ž(¿ ¾�À r7Ž(· Š(¿ ª�À rw|(¿ šæt{.ÿ&æØmæCm÷ \Å÷  Ä¿ ú%æØmæ‚m÷ HÅÀ"ÀíÐbÃÌb —rÁ7r.w`n.æ2{÷ ¾É÷ hÄÿ"À%æ¦m÷ Èÿ#²%Åúm÷ 4Þ¿ ¦%æ .ææmæ…÷ Àf(À ºnÀmd(&Îeÿ‰æ…÷ j\ÆeÿUn· <(×-8(ÿ ^÷o ( (¿ T· (ÿXJ· (ÿ- (ð'wðþ¿ 6×/æ'¿ *‡ÿ["ÀÊ'ÀåÁÐ'ÞÆe¿ Œ%ÿ ô-¿ ‚%‡ÿ'z%÷.ÄÅ{ÿ(f%Õ• Ä ù¿ Z%÷î-ÿ*N%Âä-€À Àm°-’ÿ,8%r�{¿ 0%‚ ·Ä-¿ &%— æÿ0%ÅnWp7Ú'wàÖ'¿ 7 Ì'÷Ä'Þ'÷ Ú'ÿ]òÁ 'wp´'÷86¸'w`´'¿ Üæ¢'÷ ¨®w âÀú‰zw ÚÀò‰zw ¶Àn{¿ ºÿ r'ÿa®Å¤p÷ ø¿ ¢Åªp÷ š¿ –÷ ¸Ý¿ %Ån÷ F¿ %Ån÷ ú¿ ö$Ån÷ î¿ ê$Å n÷ â¿ Þ$Å,n÷ Ö¿ Ò$‡7 ¢Ç8nÿÄ$Àd-7<7<¿ ´$ÀV-7<7<¿ ¤$ÀH-7ü;7ú;¿ ÿdŽÅÄp÷ lÿe€· F'÷-B'X'¾¿ pÀ'Á"'Wp-7,'wà('¿ XÀ'Ào'7 '÷å'¿ Bæö&æ¢pæì&æj{æb{æ…÷ $Æe ¿ ‡7 ìÀ”$À:-7ð;7î;¿ „$‡7 TÇ@nÿv$7 8-¿ n$÷0-¿ d$À-€  ¿ R$ÿ-ÿF$ ÿ ì,À  ×/â,?Á °ÿ &$æœpæHn÷ tÃ÷ ¸ÂÒpÿÀò&7'7'¿ þ÷'Ä(ņ{ÿêŠÄ ú¿ àÿ Æ&+ÿ ÔæBqæ¸&æ†{æìT÷ &¼÷ Z¿æ®{÷ ¨Á÷ R¼¿ ¬>ÿ ¤æ@qæÚp÷ ò¼æwä2æÚ2æÔ2æØ2æÒ2z·ž2·œ2¿ r*Á Á ÁmØ1wº2w¶2�Á Á ÁmÄ1wª2w¦2æž2æ˜2æš2æ”2z·\2·Z2¿ ,*æv2æp2æt2æn2z·t2ÿ $÷ t;¿ $‡ÿþ#÷ fÆÿô# ÿ œ,À  ×/’,ïÁ °ÿÔ#æœpæzn÷ "Ãær,÷ ´Ç÷ ^Âÿ¶#÷ ;¿ ¬#‡ÿ¤#÷ Æÿš#×/N,·r2æ2æ2æf2æ`2zæT2æN2æP2æJ2z·L2·J2æö1æð1æ>2æ82zz·ú1·ø1¿ Æ)æÒ1æÌ1æ2æ2zæÄ1æ¾1æ2æ2zz�Á Á Ám1Z,ÿŒ#÷4,Ö:¿ ‚#×/0,(¿ v#ÿ(",ÿj#÷,¸:¿ `#À ,Àm¨: @¿ N#ÿ@ø+ÿí”:ò+ÿ<#(ÿ4#÷Þ+€:¿ *#×/Ø+¿ #ÿÊ+ÿ‰±¿ Œ)�Á Á Ámð0ɪ1ñ¨1¿ t)Á Á ÁmØ0ÉŠ1ñˆ1¿ \)Á Á ÁmÂ0Év1ñt1¿ D)÷^1÷m^1X1ÿ74)÷ n1wNþÿ8$)· ,1Ã-(1w ý"#÷À+b:¿ #À´+ÀmR: ð¿ ö"ÿð +ÿí>:š+ÿ%ä"ÿ ”+¿ Ú"‡ÿ'Ò"×/†+ZwHÿ)À"÷„+ÿ*´"Á\+Ámv+B ·p+¿  "�À r7¿ )÷ 1¿ )÷m 1 1¿ )ÁÀ r7ø0ÿ<î(÷ &1wÎü¿ à(÷€@ 17 1¿ Ò(ÿ B0¿ È(& æ€@æ¾0÷ ޏz·ä0·â0ÿ@ª(÷Ä0Ä0Å 0ÿA–(b+· ^+¿ Œ"�À rwP+¿ |"æf{ÀðÀï+À ºnÀm4+&Îeÿ‰æ…÷ H_Æe¿ N" ÷-++À  ×/ð*Á @Ð<ÿ0,"÷ø*ÿ1 "ÀðÀïÆ*Á7 ž0¿ Ž(÷ª0¼0÷ ¸0¿ €(÷x0÷x0´0ÿDn(Áv0Á Ø0 —rwf0÷`b0¿ R(Á‚0À r7x0ÿF>(÷ z0â¿ 4(· <0¿ ,(÷-40F0\ÿJ(7>07Î*wpâ*7à*w`Ü*¿ "æf{ÀÐ*À ºnÀmÀ*&Îeÿ‰æ…÷ Ô^Æeÿ3Ø!· ¦*×-¢*Ó¿ È!÷ov*Š*¿ ¾!· €*ÿ6´!· z*ÿ-v*Z*wêþ¿  !×/P*¿ 0 ÷e|YÿŠ÷‹²%¿ €÷åhYÿt·  %¿ lÿ-˜%Ž%¿ `‡ÿXÀ„%À Àmt%7’:Y¿ F÷‹2Y¿ <‡ÿ4Â� Y—  Âÿ$ — MÀ  — ê"Áíì"Wp(÷æ"æ"w`â"¿ þņr÷ ˆÎÁÔ"Aœû{@P7�º"¿ äÅŠr÷ zÎÿ-Ö· ®"×-ª"Öÿ.Ä÷e–"×-’"˜¿ ²‡f&f&¦ Âå �„ ûÂe WÁ @ÐÀ½6%¿ ÷ ìXÿú ×-àXÀ  ×-ÔX>Á °#ÿØæ¶qæRq÷ &»æ‚¯÷ ¸¿÷ bºÿº ×- XÀ Á�Ö$Aаwúþÿ!š‡ÿÄ „`ÂâÿÄe&Ä Ä „eÄ Ä Ä ó€ÅeBÁì^É N"Q$úBÕ®(Í<ÅåÈ �ÈUÀ& � 0… ü‡u� õŠ ±@ Á ý3÷ LÍÄPA"’ ×-zXÀ  ×-nXíÁ °!ÿ$pæ¶qæq÷ ¾ºæ„¯÷ P¿÷ ú¹ÿ&R ×-:XíÀ À½n$w–þÿ(6‡ÿ).žq÷ ”¿ "÷‹J$wrþÿÀT^Å&ÅeW!V^ ƒÅè^Å'&†æž f@!ý‚€È !Ä &Ä „etÀ]Ÿ‰w J³›‰w D³œ‰w >³�‰#Ö Bœ ‚ ±� ±þÿñ üÿ ³` ×®PñU , Â�üW— MÀ  — NÁ @Ð — WÁ @п æ÷ ÎWÿ.Ü ×­ÆW,À  ×­ºW;Á @п ¼÷ ¦Wÿ0²wþ7 €½Àqÿ¢æÐ#æ…÷ úÿ×®PñUúÿó, ‚ž‰³ñU€úÿ1Š ‚€0 È5È5È5€ÈU ÈU�„…‡æˆ& À&Àëˆ3 @&∆‰&âˆ5‡Â¥ä´–%ÄÀ#L¿ †7 Ô#7 Ò#¿ z÷Ê#ÃÄÌ{Åœ#ÿb•à ú¿ X7 ª#7 ²#ÿ J÷ œ# ¿ @w R¼È{& æaFz÷ ˜©·‚#ÿ $×-v#¿ À.Ì ³à ó, &ƒ@æ ãˆ#‡„& Àñ5úÿfÀf@Ü &€ýˆ †ñ5 ñEúÿñEáŽ Ž Ž Ž çˆ„‡ €€Mxdxd €¨zF#&&w ¼è{& æaFzz& æpCz÷ \©·F#ÿè×-:#¿ Üw î»È{w ä»ð{zw Ü»è{& æpCzz& æ@z÷ ©·#ÿ¨w ¶»è{& æaFzw Œ»¸Ú}œr ,�'‚ž% ***** TERDFT ***** ž2 ** Dynamic Fourier Spectrum Screen Plotter *ð{¿ �æä"÷ \©w z»è{¿ ~÷Ü"Ö"· Ò"¿ pw ~»è{æÍÌæÌ>z÷ ƨÁ¶"Á ±Ò{¿ NÁ¢"ä"à ÃÒ{×p ÁàÀ”"À pÔ{¿ ,÷†"ÿ Ã|"Ãmz"÷*ž, Enter DEVICE:FILENAME of file to be analyzed RDO ž4 Enter format of input file - enclose in parentheses.ž Formatž2r"¿  × À   ò Ò{Á °ÿîæÌqæÈqÀÀ &Îm"÷ ž¶ÀÀ &ÎeÒ{÷ ¾¼÷ h·ÿÀ· "×-"Çÿ®÷e "· ú!×-ö!wHþ¿  must have at least three DATA fields, even if filež doesn't.ž Default is: � &�'ž4 Enter a (1) if you do NOT have IDO”‡7 d»Òqÿ†÷nUT%÷åN%¿ v÷òF%÷íZU@%¿ f ×­PUaÀ  ×­DUzÁ °¿ FÀ�2UÀå 7�*Uÿ 4÷%Å|ÿ $÷ø$ø$¿ Õ­UCs/label, else C/Rž0 Enter a (1) if file has NO time column, else C/Rž* Enter the first time in the file (seconds)ž# Enter tiÿ· â$×-Þ$6ì¿ þæ‚ræÚq÷ L·æ†¯÷ À»÷ ˆ¶ÿà‡ÿØ×-®$4¿ Ì· ž$ÿ ×-–$À  ×-Š$!Á @п ¢· r$ÿ˜÷me increment between pointsž+ Blank line detected before first data pointž The first time entry is  ž. Enter a (1) ifn$÷ r\$ÿ†ÁX$ÁíZ$Wp(÷`TR$w`N$¿ l÷>$ÿ`Á6$Á ArÁo"$Ám&$W¬9|0.ÿ@Â$Âm$�À r÷ $ $7`$¿ "ƒÁÀ rw you do NOT want to use HH:MM:SSž format, else enter a C/R.ž- Please enter start time (HH:MM:SS). To startž3 plotting from ®{÷ „Á÷ .¼ÿ †‡ÿ~æBqæb&æ†{æBU÷ л÷ ¿æJ&÷ :Á÷ ü»¿ VÿNæ@qæq÷ œ¼æ&&÷ Á÷ Ø»ÿ0‡ÿ(æ&æBqæ†{æþ%æö#· ò#¿ ņr÷ –ÏÁâ#Aœû{@P7�È#¿ òÅŠr÷ ˆÏÿ ä· ¸#×-´#¹÷e¢#· ª#×-¦#�¿  –#— À  — Á C�CŠÀÀ — !Á °ø%æ…÷ Æe ¿ ‡7 Ò¿Dqÿôźq÷ nÕ7ÒY¿ ä÷&ÊY¿ Ú÷ú%ÂY¿ Ð7 ü%¿ È7 ð%¿ À×/æ%Z¿ ´÷ÿÿÚ%ÿ ¨ÿ  ÷‹È%¿ –¿ ’‡ÿ#Š7 ^#ÿ$€ ×-T#Á ÷ F#À @°Nÿ&`· HS¿ XÂ(#Âm(#�À r÷.S #7`#¿ :ƒÁÀ rw#· #¿ $÷ú"ÿ*Á1 First data entry is bad: (<PdxŒ ´ÈÜð,@Th|�¤¸Ìàô0DXl€”¨¼Ðäø  4H\p„** TYAXIS ERROR: ISTRTY out of range ()(F9.3) (F9.3)(Px Èð@h�¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø(the beginning of the file enter a C/R&&ž- Please enter start time in seconds. To startž3 plotting from the beginning o˜¬ÀÔèü$8L`tˆœ°ÄØì(<PdxŒ ´ÈÜð,@Th|�¤¸Ìàô0DXl€”¨¼Ðäø  4H\p„f the file enter a C/Rž. Enter a (1) if you want averaging, else RETURNž0 ** Maximum number of points per average is 16 **ž0 ˜¬ÀÔèü $ 8 L ` t ˆ œ ° Ä Ø ì  ( < P d x Œ   ´ È Ü ð   , @ T h | � ¤ ¸ Ì à ô   0 D X l € ” ¨ ¼ Ð ä ø 4 H \ p „ What is the time increment between points beforež averaging? (Default is 6.0)ž The Nyquist frequency is  ž Hz.ž* Which ˜ ¬ À Ô è ü $8L`tˆœ°ÄØì(<PdxŒ ´ÈÜð,@Th|�¤¸Ìàô0DXl€”¨¼Ðäø  4H\p„component is to be plotted? (1,2,3)ž, Blank (zero) line detected before start timež First transform:ž0 Enter PMIN, PMAX ˜¬ÿÿ(ÿGà/€ãs#1‰1_p9Ä ZâäÿnO(k¸sj j¶_¸sj¤sˆìrjà‰sjàssj¸sj¤sj$jj ftæst(in units of 1.0E-9) (2F15.7)šž ARE THE FOLLOWING CORRECT?ž4 oooooooooooooooooooooooooooooooooooooooooooooooooooož Stt j&j(j jjjjjÒs j*j,j.jjj0jjj j2j(j jjjjjjž- ***** Error in reading IDOCs: ž-enterž (1) TERDFTž ICOUNT = ž Center time =  ž2 To reverse the gray scale enter RETURN, else a (1)ž. To ***** Error in reading label:   ¯(èÁzÌzñ€üXþzž1 ***** TYINIT ERROR: Screen array address greater continue this plot enter RETURN, else a (1)ž( Enter a (1) to turn off graphics screen.ž Transforms performed: ž Miniž than 160000¦ž [Relink with switch /H:160000]TYINIT Abortž. ***** TYINIT ERROR: Screen array address lessž than 2000mum power: žE-09ž Maximum power: žE-09ž! Normal DE/Rocket terminationž End of filež 0¦ž[Relink with switch /B:]TYINIT Abort ** TYLIB: 2.00 U OF M SSC ** àÿäÿ í�î!¯Šäm€¯ Error in reading dataž2 To plot another component enter RETURN, else a (1)This is what is known as mega-awesome.ž) ***** {{Ömêm´mèmàmìmêm{Þmàmîmêm{Ümàmðmêm{Úmàmø€3N:{é€{— B{ž* ***** TYAXIS ERROR: ISTRTX out of range ()ž* ***2 ÿÿ­  : : Px Èð@h�¸à0X€¨Ðø Hp˜Àè 8 ` ˆ ° Ø ( P x   È ð  @ h � ¸ à  0 X € ¨ Ð ø H p ˜ À è 8`ˆ°Ø(Px Èð@h�¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø(Px Èð@h�¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø(Px Èð@h�¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø(Px Èð@h�¸à 0 X € ¨ Ð ø !H!p!˜!À!è!"8"`"ˆ"°"Ø"#(#P#x# #È#ð#$@$h$�$¸$à$%0%X%n{T{b{j{T{žp pb{j{n{ p¬n pb{j{n{ p´n pö€H…z{ž, ***** TYNUM ERROR: Bad integer conversion ()ž) ***** TYNUM ERROR: Bad real conversion ()(ÛxHž¸{ MWž% ***** SMSYM ERROR: IX out of range ()ž% ***** SMSYM ERROR: IY out of range ()MNW,;àÿ¸qM3KTÈ{ Ì>ÍÌ—.; ü{ž( ***** GRGASC ERROR: Illegal characIAÛter ()0 -<KZix‡–¥´ÃÒáðÿ,;JYhw†•¤³ÂÑàïþ +:IXgv…”£²ÁÐßîý  @€000000100000010000000001010000100001100001100001110001100011111001110011111011110111111111111111Ñ9·�:RIvvhˆ(1X,E14.7,3(1X,E11.4))FIRST SECONDTHIRD Points per transformƒ;oD<¦›#= ×õ=�ÂÌ>ÍÌ™?š™€@ Points to be averaged Points to be shifted 3 0010010011110010010010110000010000010000010000010010010010000011001111100010010000000100010010000010 @€0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ.-+*/^=()<>[]:!?,;010101101101010111010010110010111100010001110111001111001111001001111101101110001110100111111101111100111010010010001111111101111101111111001111101111101101111101010110101110101110010101100101010110101101101110111100110100111100100110100111011101101100011101101111101101111010010010111111101001001001101101110101101111100100100100000000010101000100100101110100111101101101111100100111101111101100111001101101101110101110110001111100011010010010010111111101101101101010101101101101000101010000000101101010101101010010010101101111100010001111010000000000000000000111000000000010111010000000101010101000100100010001001000000000101010000111000111000001010010010001100010010010100001010100010001100010001010100011014 5 6 Õ ABƒÃEøÿ—týÿ�`ÉÜ ¯‡ @€&ÄÁsô5ÿÌ5€ó TÀ.°éˆ3 Tàˆþ‡À¥ àˆþ‡À ÷ ¦y4 m€’´ ÀE7 .45 1.8 3.65 1.4 3.85 1.2 4.1 1.1 4.6 1.0 4.7 0.95 å 0.8 3000.0 1.0 1600.0 1.15 1000.0 1.35 505.0 1.60 230.0 1.80 110.0 2.00 61.0 2.15 33.0 å 2.40 10.5 2.65 8.2 2.90 4.3 3.10 2.8 3.45 1.8 3.65 1.4 3.85 1.2 4.1 1.1 å 4.6 1.0 4.7 0.95 åååå€ÿÙÀ% ÖÀ¥wþyÀ% �C ˇ–‰É• s„‡ €åååå C THIS IS A FILE THAT CONTAINS UNH C PHOTOMETER CALIBRATION DATA C FILTERED TO LOOK AT 4270 ANGSTROM VåOLTS INTENSITY(KRAY) FLIGHT 29.015 '85 GREENLAND 0.8 3000.0 1.0 1600.0 1.15 1000.0 1.35 505.0 1å.60 230.0 1.80 110.0 2.00 61.0 2.15 33.0 2.40 10.5 2.65 8.2 2.90 4.3 3.10 2.8 3å8 åååååååååååååååååååååååååå9 åååååååååååååååååååååååååå: åååååååååååååååååååååååååå; åååååååååååååååååååååååååå< åååååååååååååååååååååååååå= åååååååååååååååååååååååååå> åååååååååååååååååååååååååå? åååååååååååååååååååååååååå@ ååååååååååååååååååååååååååA ååååååååååååååååååååååååååB ååååååååååååååååååååååååååC ååååååååååååååååååååååååååD ååååååååååååååååååååååååååE ååååååååååååååååååååååååååF ååååååååååååååååååååååååååG ååååååååååååååååååååååååååH ååååååååååååååååååååååååååI ååååååååååååååååååååååååååJ ååååååååååååååååååååååååååK ååååååååååååååååååååååååååL åååååååååååååååååååååååååå