?øCOSANG 16-JUN-1997 16:57!Digital Fortran 77 V7.1-107 0ˆ,$DATA$ˆ¨$BSS$ˆt$IODATA$œ COSMOLœ$ANGINIœWHICHœARTHURœFIXip+$CODE$ˆ($LINK$œBNCSIZœCNTRCTœMERRORœLOWSIZœÐ>PATH(Jˆ INICOS(J¸ QQ DFOR$WRITE_SEQ_LIS DFOR$HANDLER(J@@ ANGSIZ(J ð LOWLEV DFOR$WRITE_SEQ_FMT(J   BNGSIZ(J�@ ODEINT(J@P BSSTEP(JÐ`' ASDRHS(J 0 MMM(Jø# POLEX(JHÐ( ETAZ DFOR$STOP MATH$LOG10_G MATH$SQRT_G MATH$POW_GG MATH$ACOS_G MATH$COS_G(COSANG L–=4,  0@` ”–=|t6AHVH76H76H76AHVH76AHV76AHVH7 @–=( ã½'ÏÕ™'ã½'ÏÕ™'ã½'ÏÕ™'ã½'ÏÕ™' D–=,$ã½'ÏÕ™'ÿÿÿÿR÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $–=  $–=  (–=ã½'ÏÕ™' ø–=àØ ÿÞ#~·@> þ·p^·4àGx^´€~´ˆž´�¾´˜Þ´ þ´¨¾·°^œ¸~œÀžœÈ¾œÐÞœÿcþGûGH~¶€Q€ôGP¾¶p€øž¤¨ù{§8”@Ø4£[³úB§úb§0 ã´äGÀÿ _&Xž¶@^”"`´ÿÿ?"h>´€ÿR"èÿb"Xž"´àG@Zk!àÃÿGH¤8„ ðÈðù"€àTÔ# ¨ù"¦TàGúB§²úb§ àXB"`]¶åG8Ý"_&X�¶"hݶÿÿ?"€ÿR"èÿb"X�"´àG@Zkàèù¤೨ù¢¤@ú¤% øÿ„¥ øÿÆ $° ü `TÄ%¢ ò&„¡AT¹ Ôðù‚€ CTå³%DU¦”`Øå³4àGå³ Ø@ÌTàGE²©àÃtàG Ì”àG…²¤àÃÿ_ÿ_`Ôå³ôàGå³ Ø@ÌáGŲ™àÃ4áG Ì´àG³”àÃÿ_ÿ_ Øå³TáGå³@ÌtáGE³ŠààÔå³”áGå³@Ì´áG°‚àÃ@Ô å_ü‚…ËlU`Å”áGå³%²å³xàÃÿ_ÿ_-dTøùB§úb§pmT@Zk TtâGøÿ”iàáÿW8B§@b§˜"†FATÆ\@Zklú"€8B§c\øÿ"†@T@b§X”@ZkX=„üB…,ÃT@ T Të T`ÕÔáG°å³å³RàÃà_À TÄ€ÍôáGå³%°å³IàÃpfT8B§øÿ"†@b§@Zk4âGÿÿ? øÿ”°%°å³=àÀÍÔàGå³²å³7àÃÿ_lú€øùB§úb§AfTp¡T@ZkAT cTˆB§�b§\A T¥TAAUaAT0áW@ZkfT0"„HB§Pb§0ÁTÁTX=”@ZkP THB§Pb§`–X†@Zk@ T`=„HB§Æ\Pb§!áW àWÊ Ta@]X=”@Zk@ TXÝ„TâGÁT`&\`€T Tøÿ”ÿÿ? °%°%°f”F”ÿGøÿE…ðþ"¦¢Q•7âðù¢€ EU¦…†…Æ…ü„ðÿ‚„KJUJjUK‹UJªU*KU NUÊFU(@Åøÿå…0à@²•ì@/äUúB§�ÿ‚"åGúb§"ÿÿ?"´àGøÿå• @æc¢_&€ÿR"`â`�¶Xݶ(úb"X�"@ZktàGøÿå—°øÿe„&„„F…eT% $°BcTCCT@TA#T  T TÀTØÿÔc H=¦ ÿ_8}…E¢1¢e¢P�¦à½¦ðþ¦–…f• %²e°T²u²`òàÃÿG Œ]¥ è§ðý¦·°�íW¸‘ÿcýGp]§x]¤€}¤ˆ�¤�½¤˜Ý¤ ý¤°]Œ¸}ŒÀ�ŒÈ½ŒÐÝŒ¨½§àÞ#€úk„;¤a…A…øÿ�…AT@ TAAU@`U T T€úk@ÿÞ#~·þ·x^·€^´ˆ~´�ž´˜¾· ^œ¨~œ°žœÿcþGûGH^¶óGP€q€ó³ÿÿ?"ðú›¤Pû[§„¢„ €âX»"´æG_&X¾¶pû{"Xû{§"Pþ¶€ÿR"Pž"´àG@ZkàÃøÿ  þ"" þB§¨þb§¡@ }@DࢤâÔàGøÿ¤"X=¶þâ"P}¶ÔáG`½¶_&pý¶"h=·ÿÿ?"€ÿR"°þb"P�"ÔàG(þ¢¦Ðÿµ"@Zk# “ äøÿ$°ààÃÿGxÿ"¤üÿ ”àG!  5@D à¢#²‚â€ÿb"4æGX}¶P½¶sàÃÿ_  ðÿ„$¢PûB§]àá`TXûb§) Ô8¦P…êjT@Õ4áGC²S â@‚"TâG_&X�¶"Pݶÿÿ?"€ÿR"pûb"P�"´àG@ZkFààTáG#°hÿ""AàtàGÀÿ¢"X=¶P}¶çGh½¶_&`ý¶"ÿÿ?"€ÿR"0b"P�"(þ¢¦èÿµ"-àÃà@T$ PûB§Xûb§ÿÿ?"+Ô8¤ „áAT ÔôàG²$ à�B"TâGX]¶_&P�¶"€ÿR"pûb"P�"´àG@ZkààáG#°pÿ""àtàGÀÿ¢"X=¶P}¶çGh½¶_&`ý¶"ÿÿ?"€ÿR"0b"P�"(þ¢¦ôÿµ" þB§¨þb§ÔàG@Zk@Ø ´àG¨""#°ààÃ`Ø ÔàG#°À"" à4âGX=¶P}¶_&"ÿÿ?"€ÿR"PûB§Xûb§pûb"P�"´àG@Zk#  äøÿ$°OàÃ8û€ˆû"¦@ûB§Hûb§@T‘…q…øÿ±…A„TJ$TAaUJŠU!AU-T@Zk8û‚�˜þB…øú¤ lTP”ê Tà³táG0þB"4äGÿÿ?"8½•pûb" @Å$ PûB§² à`]¶_&X�¶"€ÿR"X�"´àGXûb§@ZkP„8û"€8]…Øû¢¦@€T"*DU@�”@="8]"¸ÿb"8 •"` T0 µ"àüb#à_+àW«@]u•õ—@Ó0ü¤”áG ä#°øÿ$° àÃØû¦�þ"¦H�¦0 �„øÿQ”€äWq”‘”�ÿcýGx]§€]¤ˆ}¤��¤ ]Œ¨}Œ°�Œ˜½§ÀÞ#€úkÿGÿÞ#°ÿ ~·þ·ˆ^·�^´˜~´ ž´¨¾´°Þ´¸þ´ÀµÈ>µÐ¾·Ø^œà~œèžœÿcþGûGH¶óG�ü›¤@[§P>¶ÔáG$ „ X^¶"´ @¡} @4Dó³ àÄ¢ÀâÀÿû"ÔàGhþ¶`>·_&pž´P{"€´€ÿR"x>¶ÿÿ?"`ž"ÔàGÈÿ»¦H{§@Zk $ X"ð@B§ à”äGÈÿ¢¦„"h¶"`]¶_&p�¶ÿÿ?"€ÿR"€b"`�"µ"Hb§ÔàG@Zk´áG°ÿGŸD$ °•!@ö±™ @¡]!@1D àD¢ÔáGHb§"@âÀÿb"ÔàGÀ#h}¶_&`½¶ÿÿ?"p�´€ÿR"€·Pb"x]·`�"ÔàGÈÿ¢¦@B§,µ"@Zk °°u@äuæ0¢¤˜ü¤øÿ%„„æ³ÊT@Õøÿd…Øü‚� lU T8}•1àÃÿ_ØüÂ�(ý"¦àüB§èüb§.TQ†1†øÿq†OBTPâUO/VPPV/VóU@Zkøÿ$„Øü¢�8b…`”táG-T ðüB§ë TÐÿ""4äG_&øüb§8=”" `Å#°àp=¶h}¶ÿÿ?"€ÿR"ýb"h�"´àG@Zk`„Øü"€°þ¤@@Tà—` T”xý¢¦°þâ¤"@]”@="8]"øÿb"çG( µ"€þb#=@ÓÐý¥$ ”áG ðüB§Ð""æGä²" à_&h=¶"`}¶ÿÿ?"€ÿR"ýb"`�"´àGøüb§@ZkàÃøÿD„„Øüb€'„xý¢¦CTÿÿ"T²"!áW@="8]"@]”øÿb"8”çG'”( µ"€þb#@Ó $ ”áGðüB§ä²ú àxÿ""TæG_&h=¶"`}¶ÿÿ?"€ÿR"ýb"`�"´àGøüb§@ZkìàÃÿGˆü¦xý"¤  ¢( A„úð„B\`”ÖàÃÿ_øÿe…(ý"¥àüB§èüb§cUé…É…øÿ †L„TM„ULÌUMíU,¬U�U@Zk%„8b…ÿÿ #Th”í T°táGÐÿB"4äGÿÿ?"8=”ýb"  Å$ ðüB§² àx]¶_&p�¶"€ÿR"p�"´àGøüb§@Zk ø=ôìh„8=„xý¢¦"@€T!$Tç—@="@�”8]"øÿb"çG``T( µ"€þb#à_*àWª \G•²@Ó $ ðüB§øüb§ä”áG²™ àˆ""TæG_&p=¶h}¶"ÿÿ?"€ÿR"ýb"h�"´àG@ZkŒàÃÿGøÿ„…„xý¤ÿÿ? Á€T&°( @…`]• Ôøÿ„…ƒT ƒU8�•-àÃÿ_ÿ_T)† †øÿI†àüB§èüb§N„TOÄUNVO/V.îUÒU@Zkøÿ$„8b…h”#T$¡táGë TÐÿ"4äGðüB§øüb§8=”ÿÿ?" `Ű áx¶p]¶_&"€ÿR"ýb"p�"´àG@Zkh„ç—@€T``T”"xý¢¦@="@�”8]"øÿb"çG( µ"€þb#W@Ó(¡ ”áG å#°@à@ÿ"TæGp¶ðüB§øüb§h]¶_&"ÿÿ?"€ÿR"ýb"h�"´àG@Zk1àÃøÿ„„„xý¢¦"ƒTæ³T@="8]"øÿb"çG( µ"@�”€þb#8”2@Ó¡„ ”áGðüB§声€àÿ"!æG_&p=µ"øüb§ÿÿ?"hý´€ÿR"ýb"h�"´àG@Zk àÃxý¥( („`}„‚âWH}¤ƒãWP½¤X�¤�áWC�e�$�ÿcýGˆ]§�]¤˜}¤ �¤¨½¤°Ý¤¸ý¤À¥È=¥Ø]Œà}Œè�ŒÐ½§ðÞ#€úkÐþ;€€ÿÞ#~·þ·`^·h^´p~´x¾·ÿcþGôGÐÿÞ#„r…Pÿ›¦ûGþ·@¶H½¶ô³@›…êT@ÕÌlU€Åèÿ¢…*`U ê_ÊMU@Å“… `Ua THB…H½¦ á_ʪU@Åõ—\àÃøÿ¤øþ¢¦~´pb"´ "$ µ"¶ ¾¶ðÿ"8=”8�"¨ÿ¢"pÿb#8¤´[@ÓPÿ¤@=¤pþB§ x""ôáG_&@ä! °5@xþb§€ÿR"P�"´àGA àæP}¶X=¶"ÿÿ?"�þb"@Zk9àáU@ ätäGpþB§Àÿ"P]¶_&X¶"ÿÿ?"€ÿR"�þb"xþb§P�"´àG@Zk(ààu@äpþB§ôãGP" _&P=¶xþb§"X=´ÿÿ?"€ÿR"�þb"P�"´àG@ZkàÃpþB§ÔáG°ÿ _&P¶"xþb§ÿÿ?"X´€ÿR"�þb"P�"´àG@ZkàÄH=¤”#„C…0"¦1”Q•ÿcýG`]§h]¤p}¤x½§€Þ#€úkÿGÿGÿG„1„R…@ÿÞ#^·4àG ^´(~´0ž´8¾´@Þ´Hþ´à_PµX>µ*AU`^µh~µpžµ+àWx¾µ€Þµˆþµ�¾·˜^œ«@] ~œ¨žœ°¾œþGóG~·àÿÞ#ûGk]þ·p¢Ø]¥ðGñGà}¥ˆÿ§àÿ›¥(»¥À¥È=¥òGõG X„Ðý¦ì³6q`Bí³x #=”ê³ë³í³`î¹ ÓB çÀî€÷£7„„W…w…�€B¹ –B8”” ÷" #ðÿX•øÿx•òÿ?÷º “B@ç7„0€Bº “B÷"8”#ùÿ_÷ˆÿâ¥4àGXï!ˆÿ"¦I§"ïGx 1"éGtàG@Zk# „ˆÿ‚¦4àGè”": ì2q @³ AB`æ³ òC "„(`æpþT…xþt…€þ”…ˆþ´…�Ô…ðô£˜ô… †¨4†î_�Bï_ð_ñ_· B ”"JjTKkTLlTMmT ê_ ë_ ì_ í_ ÊU ëU  V -V AU aU �U ¡UàÿT•èÿt•ðÿ”•øÿ´•Ûÿÿö¸ B çÿGpþT†�t†0B”"ó_º BRrTò_rVAVøÿT–ôÿ_÷m£0"¦7q @4àG1`ï4T±†m¢õ_;1`Cˆÿ§» {Bô_0`Bx #RqBô•V$€Ö#`çm²” ì3—`J¹ áBSsBSsB3B¸1" çàî€ø£Ø†ø†‡8‡�ÀBº ×BÑ–ñ– # 1"ðÿ—øÿ1—òÿ_÷µ ÁB æX‡0ÀB³ ÁB#Q—1"ùÿö\…„T¤„<dW;eW[›W`Ï#€TŒ¢ý"ãGæG´5€BE€öˆÿ‚¦H§þ¶èGx ´" T" 4"¾¶^¶]">¶ïG}”è”"éGTáG@Zkˆÿ¤„ `„ `TÄ ¢0B ²àÃK¢0@BK²%…T0ÀA=„ïØ®"tàG$$T `„ ã_D…T!€Ø‡…ËlUp`ÕIÿ¿êˆÿ¤Œ² @”ýG]§ ]¤(}¤0�¤8½¤@ݤHý¤P¥X=¥`]¥h}¥p�¥x½¥€Ý¥ˆý¥˜]Œ }Œ¨�Œ°½Œ�½§ÀÞ#€úkˆÿ¦ V”æÿÿÃc ˆÿ"§Ð]§4àGx 9#`ì8q`@» C`çï¹…€ù£Ù…ù…†�àB± øBº•Ú• 9#ú• Z#øÿ–òÿ?ö² ãB@æ9†0àB  ãB9#:–Z#ùÿô� *q`@4àG*€ä0¥­ ˆÿb¥!0 @x k!I¨@­°øÿ)” `ì%— HE¥@® CAE¥@A°¥ Àå@íÿGK†€ë£k†‹†«†�à@¶ ê@E–e– k!…– ¥ øÿ¥–òÿßö» ã@`çˆ0à@± ã@k!Å–¥ ùÿ?öˆÿ§ X””ÿÿÈÿb¦TàGL² S”�ÿÿÃÿG„ PÿÞ#Øÿ;¤(^·0^´h! 8~´@ž´H¾´PÞ´Xþ´`µh>µp^µx~µ€žµˆ¾µ�Þµ˜þµ ¾·¨^œþG~·ðÿÞ#ûGþ·ðG°ý¤0[§óGôG'„¸¥õG”ú³3q@4àGèG=”(ìµ `B æ`î`ô£`ñ£”…±…Ô…ñ…†1†T†�B ”"q†² B°ÿ�• 1"¸ÿÁ• !  ÿ–¨ÿA–àÿ¡•èÿá•ðÿ!–øÿa–èÿ_öµ B  æÿG”†±†0B”"² B°ÿ�–¡–1"! öÿ_öØÿ‚¥8ÿB€ ¢¥h,!L!¸l!Œ!4àGOÍAÞ´üÿ¯"~µ"ãGìGéG�"àÿb#“@Óüÿˆ]…ÿ_^µãGݱ ="ëG}"H‚"èG¸ÿb#à_ÁàWaAUA!T =”u@Óã¡4àGêGåG0àí!qàA² /@"@æ! ì`ð£`ñ£‡1‡P‡q‡xW�‡±‡Ї�@ "„µ @ 1"z[Wø_ÁøVw8\|�Wú_ÁúVw:\`ÀWü_ÊüVw\]à_ËàVw`]áÿ¿ö¶ @ Àæ�…±…0@l�U¹ @"1" ì_ÎìVwÌ]õÿ?÷ä…}£0`CoïVÏâU"àÕ²}ÁA¦ÿ_öG†(‚=†Q0VP0V–PV°VœÿÆ0B§4àGZ°ýG(]§0]¤8}¤@�¤H½¤PݤXý¤`¥h=¥p]¥x}¥€�¥ˆ½¥�Ý¥˜ý¥¨]Œ ½§°Þ#€úk‡†½†= À½¦@†Èý¦¶õ @µ–•V‡–ÀæV¶V×–ÞÿÿÃ Õ @ä8"‡Èý¥Y¹V/—×ÿÿÃA-@ ¦üÿÁ‹p‹È=§û_ÝûWþ_U½VØþWu¸V¹–ÊÿÿÃÿGÿG4„�ÿÞ#^·4àG^´ ~´(ž´0¾´8Þ´@þ´HµP¾·X^œ`~œþG~·ûGñGÕ ±¢pž¤x¾¤øÿÛ¦ˆÖ"Þ´4q BßGŒÀàWb T1 î¡ •B# ä"€î`ó£`ò£„ ØÄ–=´ ¬ 3„S…s…@@T’…²…AATJJT€U�@ R"KKTðÿÒ…øÿò…¡U· @pþ–•xþ¶• s" ÊU€þÖ• Ö" ëUhþö•àÿ”èÿ6”ðÿV•øÿv•àÿÿö¡ @ ä“…²…0@R"LLT¡ @pþ¶•s"Ö" ¬Uøÿ–•ôÿ?ô„øÿâ¤BT"D§ˆç çGåGäGtàGTàGT”@Zk YÀ@Gô# 4àGåGçG5 ì1q @´ !B&€æ% îpþ“…xþ³…€þÓ…ˆþó…`ò£„2„R…r…@`T†AaT3†S†JjTKkTs†�B€U¡U· Bpþ– ÊU ëUxþ3– R"”3” s"ðÿS•øÿs•`þS–hþs–@ó£Ýÿÿö¸ B çpþ³†’†Ó†0BTtT» BpþÓ–R"s"´Vøÿ“–ôÿ÷ý†D§0A"âVçGåGäGtàGý–@Zk  A¹ÿôc 4àG<`ì0q`@± B æ± ðC ÿW) æpþ'„xþ‡…€þç…ˆþG†`ç£`å£G…§…†e…Å…%†g†…†KKT*T �UNNT� @ ç ðUQQTµ 0@ ¥ SVTTT+T ŽUñUTVA TL€UOàUR@Vàÿ%”èÿ…•ðÿ啸ÿE–Ùÿ¿ö¶ #@ Àæpþ§†Ç†å†0 @ç WWT¹ #@¥ ¶V·VU Vøÿ¥–óÿ?÷ýG]§]¤ }¤(�¤0½¤8ݤ@ý¤H¥X]Œ`}ŒP½§pÞ#€úks¢„¢ ;¦àÿÞ#4àG~·òG^·õG^´VqB¾·þG ¤øÿ”$î6qB¹ ÐBàG çÀî`ø£8„X…x…7”� @:”¹ 6@W• ÷" # Z#øÿ8„èÿZ•ðÿw•ðÿz•øÿ7”øÿ:”íÿ?÷¶ 0@ ÀæÿGX…0 @¶ 0@÷"øÿW•#Z•Z#÷ÿßö¹5`B! ç6qBÖî û¦¸ ÐB4àG ë÷"çÀîÿG€ò£r…2„R…w•� @r…´ 6@7” R" ÷"ðÿW•øÿw•òÿŸöµ 0@¿ æ2„0 @  0@R"7”÷"ùÿô·àÔ¢óG ;¤8qB4àGh! ¹ tB–4Gî· Càæï€ò£R…r…2„A•�@CR…· XCa• R" ! ðÿ!”øÿA•òÿÿö´ PC€ær…0@C¸ PCR"a•! ùÿ÷41ÀBn€îsaB3B€ÿ;€4àGøÿ1"Q…2— K ›§RRBRRB:qB’C4àGh#àGêR"õG+@Uk+TL TJKUTî¢ PC?@ä>@ï@ò£@ø£@÷£r…¸…ò…†Ò…+«U¸…/VP‹U� @ R"-®Uøÿ2†Ø…KKUW†s†.ÑU—†PVU�U–¢ :@x•Q�U #MMUKŽUàÿr– s"W–‘VOOU ÷"NNUðÿ†øÿW†èÿÓ†VKVèÿ3–èÿ¸•èÿ—–ðÿø•ðÿ–øÿØ•øÿW–èÿÒ–ðÿ3†øÿ³…ðÿ³–øÿs•ðÿ2–øÿ²• ó£Åÿ_ô¢ 0@@äÿG’†¸††s…4´V0 @R"¢ 0@øÿr•#s"÷"O”UTTUøÿó•Vøÿ˜–øÿ÷•íÿ_ô0 Cº 4Cøÿ1"—ÿ_÷6—ÀJ"î ›§VÖB"qBVÖB² P@–C4àGêÖ"@æ@ìÿGÀ…€à£@†`†À†� @¸ "@Ö•V– v– Ö"øÿÖ–òÿ÷± 0@ æ †0 @¹ 0@ 6–Ö"ùÿ?÷ýG]§]¤½§ Þ#€úkÿGÿGÿG�ÿÞ#$»�(^·ðG0^´8~´@ž´H¾·P^œX~œ`žœþG~·ûG¶ñG^¶P„øÿ›¤°ÿ[§d…D…øÿÄ…¸ÿ{§@BTATL@U JUAaUKmUJBU!,T@`U ^•.T”c\@Zk£…^… ~…T`ÿ"¤\¦¨ÿÂ�*KU! xÿb#aAU°• ">” à"NT ^”#@Ó”cTÃ…ã…¤d…$‚�@„¤…KlU "€]…¦ýG(]§dDU0]¤8}¤KmU@�¤a"TBbUBNTbCTX}Œ$T`�ŒA/T"âW!ATP]Œ0”H½§pÞ#€úk�ÿÞ#àÿ¤~·þ·H^·P^´X¾·`^œÿcþGûG0„0[€ "TjPTôêâWÿ_øÿ{…p@Õ ëWqàÃÿG4@ðÿ"¤öÿ_! øÿb… ðêâWd@Õ ëWeàÃÿGêBTB\øÿb…]@Õ KT^àÃT@ðÿ"¤öèÿ¦! øÿb…„ àT`@TêTO@Õ  TPàÃJ]êBUøÿb…I@Õ  TJàÃÿGÿ_¡u@ ä JTøÿb…êT?@Õ  T@àð•@æ@JUøÿb…êT7@Õ  T8àáµ@ äJJUøÿb… JTêT.@Õ  T/àðÕ@ælb�¸ÿB§Àÿb§á+T Ä@ZkêTøÿb…!@Õ  T"àÃÿGÿ_êBTB\øÿb…@Õ KTàÃÿGÿ_ 5@ä!JTJ]A!T8=”àÃÿ_0JTJJU8]•8B§@b§@Zk8=„øÿb…@TêT@Õ  TàÃØøÿ‚… T ÈâT @ÄýGÿcH]§P]¤`]ŒX½§pÞ#€úkÿGHB§ôâGÈÿ _&8¶"Pb§ÿÿ?"@´€ÿR"hb"8�"´àG@ZkXB§`b§ÿGÿGTàG@ZkÍ<„ÿGÈDFOR$WRITE_SEQ_LISÑ<ˆb# ˆDFOR$WRITE_SEQ_LISÓ<Ä@ÓÈDFOR$WRITE_SEQ_LISÍ<üÿGDDFOR$WRITE_SEQ_LISÑ<b# ˆDFOR$WRITE_SEQ_LISÓ<@@ÓDDFOR$WRITE_SEQ_LISÍ4”ÿG¤ MATH$SQRT_GÑ4˜b# ˆ MATH$SQRT_GÓ4 @Ó¤ MATH$SQRT_GÍ4 ¸ÿGÐ MATH$POW_GGÑ4 ¼b# ˆ MATH$POW_GGÓ4 Ì@ÓÐ MATH$POW_GGÍ4 ÔÿGð MATH$POW_GGÑ4 äb# ˆ MATH$POW_GGÓ4 ì@Óð MATH$POW_GGÍ4 HÿGX MATH$POW_GGÑ4 Pb# ˆ MATH$POW_GGÓ4 T@ÓX MATH$POW_GGÍ4”ÿG¨ MATH$SQRT_G ðÑ4˜b# ˆ MATH$SQRT_GÓ4¤@Ó¨ MATH$SQRT_GÍ4°ÿGÔ MATH$ACOS_GÑ4´b# ˆ MATH$ACOS_GÓ4Ð@ÓÔ MATH$ACOS_GÍ4 ÜÿGô MATH$COS_GÑ4àb# ˆ MATH$COS_GÓ4 ð@Óô MATH$COS_GÍ4 øÿG  MATH$COS_GÑ4üb# ˆ MATH$COS_GÓ4 @Ó  MATH$COS_GÍ4 ÿG8 MATH$COS_GÑ4b# ˆ MATH$COS_GÓ4 4@Ó8 MATH$COS_GÍ<ÔÿGDFOR$WRITE_SEQ_LISÑ<àb# ˆDFOR$WRITE_SEQ_LISÓ<@ÓDFOR$WRITE_SEQ_LISÍ<”ÿGÔDFOR$WRITE_SEQ_LISÑ<¸b# @DFOR$WRITE_SEQ_LISÓ<Ð@ÓÔDFOR$WRITE_SEQ_LISÍ< àÿGLDFOR$WRITE_SEQ_FMTÑ< äb# @DFOR$WRITE_SEQ_FMTÓ< H@ÓLDFOR$WRITE_SEQ_FMTÍ<¬ÿG DFOR$WRITE_SEQ_LISÑ<¸b# @DFOR$WRITE_SEQ_LISÓ<@Ó DFOR$WRITE_SEQ_LISÍ<lÿGÄDFOR$WRITE_SEQ_LISÑ<pb# @DFOR$WRITE_SEQ_LISÓ<À@ÓÄDFOR$WRITE_SEQ_LISÍ<  ÿG( DFOR$WRITE_SEQ_FMTÑ<  b# @DFOR$WRITE_SEQ_FMTÓ< $ @Ó( DFOR$WRITE_SEQ_FMTÍ<x ÿG� DFOR$WRITE_SEQ_LISÑ<| b# @DFOR$WRITE_SEQ_LISÓ<Œ @Ó� DFOR$WRITE_SEQ_LISÍ4¨ ÿGÜ MATH$SQRT_GÑ4¬ b# @ MATH$SQRT_GÓ4Ø @ÓÜ MATH$SQRT_GÍ< ÿGH DFOR$WRITE_SEQ_LISÑ<@ b# @DFOR$WRITE_SEQ_LISÓ<D @ÓH DFOR$WRITE_SEQ_LISÍ< l ÿGä DFOR$WRITE_SEQ_FMTÑ< Ü b#  DFOR$WRITE_SEQ_FMTÓ< à @Óä DFOR$WRITE_SEQ_FMTÍ< ô ÿG< DFOR$WRITE_SEQ_FMTÑ< 0 b#  DFOR$WRITE_SEQ_FMTÓ< 8 @Ó< DFOR$WRITE_SEQ_FMTÑ< p b#  DFOR$WRITE_SEQ_FMTÍ< ¸ ÿGÄ DFOR$WRITE_SEQ_FMTÓ< À @ÓÄ DFOR$WRITE_SEQ_FMTÍ4 ÿGL MATH$SQRT_GÑ4 b#   MATH$SQRT_GÓ4H @ÓL MATH$SQRT_GÍ<h ÿG´ DFOR$WRITE_SEQ_LISÑ<| b#  DFOR$WRITE_SEQ_LISÓ<° @Ó´ DFOR$WRITE_SEQ_LISÍ< ÿGPDFOR$WRITE_SEQ_LISÑ<Hb#  DFOR$WRITE_SEQ_LISÓ<L@ÓPDFOR$WRITE_SEQ_LISÍ<´ÿGøDFOR$WRITE_SEQ_LISÑ<ðb#  DFOR$WRITE_SEQ_LISÓ<ô@ÓøDFOR$WRITE_SEQ_LISÍ48ÿGl MATH$SQRT_GÑ4<b#   MATH$SQRT_GÓ4h@Ól MATH$SQRT_GÍ<¨ÿGØDFOR$WRITE_SEQ_LISÑ<Ðb#  DFOR$WRITE_SEQ_LISÓ<Ô@ÓØDFOR$WRITE_SEQ_LISÍ<0ÿGxDFOR$WRITE_SEQ_LISÑ<4b#  DFOR$WRITE_SEQ_LISÓ<t@ÓxDFOR$WRITE_SEQ_LIS °Í4ÐÿGô MATH$SQRT_GÑ4Ôb#   MATH$SQRT_GÓ4ð@Óô MATH$SQRT_GÍ<ÿGXDFOR$WRITE_SEQ_LISÑ<b#  DFOR$WRITE_SEQ_LISÓ<T@ÓXDFOR$WRITE_SEQ_LISÍ<¸ÿGäDFOR$WRITE_SEQ_LISÑ<¼b#  DFOR$WRITE_SEQ_LISÓ<à@ÓäDFOR$WRITE_SEQ_LISÍ<4ÿGxDFOR$WRITE_SEQ_LISÑ<Xb#  DFOR$WRITE_SEQ_LISÓ<t@ÓxDFOR$WRITE_SEQ_LISÍ<ÜÿG,DFOR$WRITE_SEQ_LISÑ<üb# DFOR$WRITE_SEQ_LISÓ<(@Ó,DFOR$WRITE_SEQ_LISÍ<<ÿGpDFOR$WRITE_SEQ_LISÑ<`b# DFOR$WRITE_SEQ_LISÓ<l@ÓpDFOR$WRITE_SEQ_LISÍ<|ÿG´DFOR$WRITE_SEQ_LISÑ<�b# DFOR$WRITE_SEQ_LISÓ<°@Ó´DFOR$WRITE_SEQ_LISÍ<¸ÿGðDFOR$WRITE_SEQ_LISÑ<Ðb# DFOR$WRITE_SEQ_LISÓ<ì@ÓðDFOR$WRITE_SEQ_LISÍ4¬'ÿGø' MATH$SQRT_GÑ4¼'b# Ð MATH$SQRT_GÓ4ô'@Óø' MATH$SQRT_GÍ4@*ÿGT* MATH$LOG10_GÑ4D*b# H MATH$LOG10_GÓ4P*@ÓT* MATH$LOG10_GÍ4¼*ÿGÈ* MATH$SQRT_GÑ4À*b# H MATH$SQRT_GÓ4Ä*@ÓÈ* MATH$SQRT_GÍ< +ÿGX+DFOR$WRITE_SEQ_LISÑ<8+b# HDFOR$WRITE_SEQ_LISÓ<T+@ÓX+DFOR$WRITE_SEQ_LISÍ4X+ÿGp+ DFOR$STOPÑ4\+b# H DFOR$STOPÓ4l+@Óp+ DFOR$STOP €  –É MATH$LOG10_G= SOMETHING'S WRONG!!!!!!;; ;=:?â6ë-C=Ù0HÐ(;=p( 7 DFOR$HANDLER= €@ €–É MATH$SQRT_GÉ DFOR$WRITE_SEQ_LISÉ DFOR$STOP=8B=0;;=‰0(`';= p0 A@A=‰0#;= 8 `;=‰00;=p<ü =‰0(P;=°\üÿ ;=€? p– ;= @333333@ffffff �–=‰0@;= Àxüÿ <Ô9KHëþ ÂÈ>;;= CAN'T GET HERE à–=0$ERROR IN ODEINT: STEPSIZE TOO SMALL –= ,@ÌÌÌÌÍÌ – @;=Ù0`ð;=€( 7 DFOR$HANDLER= ; Ð;=ˆy@o zš>ò×¼šH¯ERROR IN ODEINT: TOO MANY STEPSÐ>÷Ƶ �íERROR IN BSSTEPERROR 12: ERROR CALCULATING D32, EXPANDING PHASE à–=@3ERROR 12: ERROR CALCULATING D32, CONTRACTING PHASE –=@3ERROR 12: ERROR CALCULATING D14, CONTRACTING PHASE P–=: INICOS ERROR `–=ERROR  h–0;=0"ERROR 11: OVERFLOW ERROR POSSIBLE ˜–=‰@=Ù0ˆ ;=ðLü 7 DFOR$HANDLER= ;=+8û8ª�äxÉ DFOR$WRITE_SEQ_FMT=8-8 8ERROR 13: BNGSIZ INVALID FOR WMTYPE  –=8  (–=@3ERROR 12: ERROR CALCULATING D34, CONTRACTING PHASE `–=: ANGSIZ ERROR p–=@1ERROR 12: ERROR CALCULATING D14, EXPANDING PHASE ¨–=Z2  °–=Z1  ¸–;=@2ERROR 4: COMPUTATION NOT RECOMMENDED IN WMTYPE 17 ø–=PA @NOT REALLY LARGER THAN ZMAX BUT CLOSE ENOUGH FOR TROUBLE @–=Ù0x@;=À4 7 DFOR$HANDLER=88 x–;= ERROR 9: Z2 > ZMAX ˜–=@6YOU MUST CALL INICOS FIRST!!!!!!!!!!!!!!!!!!!!!!!!!!! Ж= ERROR 7: Z1 > ZMAX è–= ERROR 5: Z1 < 0.0 –= ERROR 6: Z2 < 0.0 –=8)INICOS ERROR 3: ROUNDOFF ERROR, BAD ZMAX H–=0&INICOS ERROR 1: OMEGA < 0.0; OMEGA =  p–=8. x–=?µøãˆðhõ?UUUUUU=Ù0p;=àPü |7 DFOR$HANDLER=@RÁ-8esÉ MATH$POW_GGÉ MATH$COS_G=8)INICOS ERROR 2: ETA OUT OF RANGE; ETA =  –É MATH$ACOS_G=@UUUUUU I˜=910¼COSANGDigital Fortran 77 V7.1-107 ¤= ¾€4 ˆ4= INICOS¹4=C;‚¹lÂøl¾øl¯À l«øl¾ü  üü +ü -üÈøü 3ø 3ü 6ø 6ü 8üÈ…¹üøü Dü Dü Dü üø Wð \üøüü füü j ü v ôüü †üü Šü –�¹ôüü ¬ü ® üüü ¾ü Àüüðü âü àô ìü ì üü úü&Ô üü&øø„¹øü ' üôüü 7ü 3ü Aüü Aüüüüüü Sü Oøè eüü gìð k�¹ø kü k iôüü iø ]ü _ ]üüüü(ü ¥ø ¥üüÞø ²üÚü ²øü�¹ü ´"ü ´üüü Õüì çü °Þü °Xü…ø ²sø $ ü "ü $ü 6üü "ü&¹üüüüüô ü I øøD $= ¢p4 := Ì4= ¿ r= ¾€4 ¸4=QQ¹4= ¹ �Ô := <4= ¿0 .= ¾€@4 @4= ANGSIZ¹@4=ÍÅ‚¹ ™ãÀü üü �ü �ôÐ üü ¥ðøZ´øü °ø °ð ²üüèüü ¾üü Àüð‚¹øÈ Êø¸ü ÐüðøÌ Úø¬ü æü æüüüü ðø òüÌøüü �•ü …¹ �•Ü !ü üüü  üü ! ü 'üü )üü Üì 9ø 9ü 9 5üüü =8¹øüüüü S Oü Süü S ü4 $= ¢€4 := Ü 4= ¿Ð L= ¾€ 4  4= BNGSIZ¹ 4=ëã…¹ eÏü e˰ü eÏü 1 eÏü 1 % üüøÀüü =ü ?ü Aü Aü Aü Aàð L€¹ìü Oü¸ø øü wü wüø }ü }ü yø �ÿü ‰ �ÿÜ ‹ø �ü ‹�¹ üü ‘ü ‹ ü ‘üüüà ¡ü ¡üøÔü ± ¯ü ¯üüü Ô üü Ðüü Ð�¹ Îü Î ü Øü Ð ü Òü Øüôü Þü Üüüü Ìø øü øüøü  €¹ø ��ü  ��Ü ü üüü  üü  ü "üü $üü Üø 4 0ü 4€¹ü 4ðüüü 8üøü Ðø T üü ^ T øü dü `ô �æô �æè rü v�¹ r ü z xü r ü xüüüÜ ˆüôØü ˜ –üüü È üüü · µüü ·S¹ü ¹üüü Âü Àüüü Ìü ø æøø æüüüD $= ¢„ 4 := ¬4= ¿à = ¾€ð4 4= LOWLEV¹ð4=»³…¹ Š ô•Ô  ôŠð üì Š üôü �ô � üü ©ø ©àüü ¬ü ¬üüü ®üü °,¹üø8 ´üø8 ¸üÈü ôì, $= ¢<4 := 4= ¿P B= ¾€@4 �4= ODEINT¹@4=áÙ‚¹ �  Ž ü â¾ø â­è â­ø â­ô â­ì â­à â7ü â ìü â èü ˆ ü Ž üüü ü�¹ð ¡ ø ¡ ø ¡ ô ¡ ô ¡ ø ¯ üÜø µ ü µ ì0 µ ü µ øP µ ð µ ø µ ü�¹ µ  üüü ¿ üø Á üü à  Á üü Ç  Á øüüüü É ü É ø É ø É ø É �¹ô É ô É ø üàü Þ ø¼ì è üô ¯ Dü ¯ }ü ô &ü ô &ø ¯ }øød Þ üü ø ü�¹ ø ì ø ø ø ü ø ü ø ô ø ô ø øü þ ü  ü    ü    üüü  M¹ü  ô  ø  ü  ü  ô  ô   ð øô $= ¢4 := ˆ4= ¿ = ¾€P4 @4= BSSTEP¹P4=¤œ‚¹ é  t  9 Àü 9 Àø 9 ­¨ 9 ±ø 9 ¯ø ç ü ë  üðü ø ü ø ü ø ü ø  ö ø ö �¹ü ö ü ö üø ö ðü ö ôü ö ôü ø   üÔø  $ ìüÜ(  ø  �¹ø<  ô  ü  ô  ü  øü  Kø M ìôôP ' ø ) ü +  )  ' øü + ü¹ø / üÐ $= ¢Ü4 := P4= ¿à /= ¾€04 4= MMM¹04=ÑÉ‚¹ Ì  i fø i bÈ —  i jø Ì ü Ì ôð Ò ü Ò ø Ð ø Ò ø Ð ü Ð ü Ò  Ð ü„¹ Ò ü Ð ô Ò  Ð ø Ð ü Ð ø Ð  üüü Þ ä Ú øüøÜØ ê ü ê ø è ü è �¹ü ê ø è ü è ü ì  è ôø è ü è ü è øü è  üü æ ü ô ü ô ü æ ø>¹äP þ ø þ ø8 þ ô þ ø þ ø þ  ü8 $= ¢ˆ4 := È"4= ¿Ð b= ¾€#4 ø4= POLEX¹#4=ú‚¹ b  : 'ü Wü Uì Uôüè d ü d ü d ôü f ü f ü d ð d ô d ü d „¹ øøø p ø p ô p ü p ü p ø p ô p ô p  ôø | ø z øð | ü | ü | „¹ø | ô | ô | øô „  ‚ ü „  üü �  Œ ü Œ  ü �  „ øüüðüü Ž ü Ž �¹ü Ž üô Œ ø Ž üüü � üü ”  Œ  ü ”  Œ  ü ”  �  Œ  ü –  Œ  üü � �¹ü ” üü – ü – ü � ô �  Œ ðüü � ü Œ ô Œ ôü ” ü – ü Œ  ‚ ðh¹ ž ü ž ü ž ü ž ü ž ô ž ø ž ü ž ü ž ô ž ô ž  ø$ $= ¢<#4 := <'4= ¿` X= ¾€`'4 Ð4= ASDRHS¹`'4=÷ ® iü ®  � ü4 �„ ø �„ ô �ˆ ô �ˆ ü �ˆ ü �ˆ ü   ø   ô   üü   ü  j¹üü   üìø & è & ü ' ü & ü '  & ô ' ü '  & ø & ü $= ¢¤'4 := Ä(4= ¿p = ¾€Ð(4 H4= ETAZ¹Ð(4=¶®…¹ 1 Zü 1 XÜø Š øFü Ž Fü Ó ü Ó  ” ü ” ü – >ü – <üø Ó  ˜ <ü Ó ü Ó  £ „¹ü £ ü ¥ /ü §  ¥ ü+øø Ó  « 'üü Ó ü Ó  ¯ ø#ü Ó ø Ó  ³ øü Ó ø Ó „¹ · øü ¹ üø Ó  » øü ½ øüü Ó ü Ó  à ü Ó ü Ó  Ç øèä Í üø Ó ¹üüøô Ý üÈ $= ¢ü(4 := ü*4= ¿  = ½