?COSANG 2-MAR-2005 11:23Compaq Fortran V7.5-2630 H $BSS$$DATA$^ $LITERAL$ COSMOL$ANGINIWHICHARTHURFIXi4K$CODE$($LINK$BNCSIZCNTRCTMERRORLOWSIZ>PATH(J INICOS(J` QQ(J( ANGSIZ(J@ LOWLEV(J  BNGSIZ(JX& BSSTEP(JF ASDRHS(J ODEINT(J9 POLEX(J8- MMM(JH0H ETAZ(COSANG =6 H$H76H76H76 H$H76 H$76 H$H7  0@` Z=h\SOMETHING'S WRONG!!!!!!ERROR IN ODEINT: TOO MANY STEPSERROR IN ODEINT: STEPSIZE TOO SMALL`=@1ERROR 12: ERROR CALCULATING D32, EXPANDING PHASE=@3ERROR 12: ERROR CALCULATING D32, CONTRACTING PHASE=@3ERROR 12: ERROR CALCULATING D34, CONTRACTING PHASE=@3ERROR 12: ERROR CALCULATING D14, CONTRACTING PHASE@=@1ERROR 12: ERROR CALCULATING D14, EXPANDING PHASEx=0"ERROR 11: OVERFLOW ERROR POSSIBLE=0%ERROR 13: BNGSIZ INVALID FOR WMTYPE = ERROR 6: Z2 < 0.0= ERROR 5: Z1 < 0.0= ERROR 7: Z1 > ZMAX=H9NOT REALLY LARGER THAN ZMAX BUT CLOSE ENOUGH FOR TROUBLEP= ERROR 9: Z2 > ZMAXh=@2ERROR 4: COMPUTATION NOT RECOMMENDED IN WMTYPE 17=@6YOU MUST CALL INICOS FIRST!!!!!!!!!!!!!!!!!!!!!!!!!!!=8)INICOS ERROR 3: ROUNDOFF ERROR, BAD ZMAX=8)INICOS ERROR 2: ETA OUT OF RANGE; ETA = 8=.&INICOS ERROR 1: OMEGA < 0.0; OMEGA = @=( 'ՙ''ՙ''ՙ''ՙ' D=,$'ՙ'R $=  $=  (='ՙ' =#;p^~4Gx^~8! ޴>^^~ޜcGqG8~GP_&{"?""R"@`EG4[P"b/@ PX>G@ZkpB"""H]"H}tGxb@Zk1TG4GTG/4G8=10D1D! CTG"eB@G_&9#PX="R"b"P"?"Gb/@ZkpB"""`]"`tGxb@Zk/G`¤& F@T//4GaTG 4GŢFF bT€ FUG@ /T`4G4GTD %TG4GtG@F e@ GT4GGG %TG4G4GD % GT/4GTGtAF  峝 GT/4GGG E 峑_BG/`2V % 峆/3FTBb/pST@ZktGwáWPBXb"GaTPaT@Zk"PBB\8"Xb@TH@ZkH=b*TG/@ T& T/ T % _//_G T/@ e S//pGTPB8"Xb@Zk4G" %T E@G e?//fBbAGTpaU@ZkBAT BTb/TATAAU/aaT0W@Zk0"gT`Bhb/0TTH=/@Zk`BHPhb@ZkP=`B@T\hb/AT W!W`X=@ZkX`=@TTGTgA]T`g]`T"  /%TFfC¦h]ƅ„?%G 0@GtGG@B)!8 TMU/LUMULU/,U UU/,///%T0`@BBlD?""0b"`bGP"@PR"X]G/@Zk_F&fE/TD@cT/C`T@ TCCU/ `T TT/ _8ݦ֢W  e@h===Ų%pcGp]x]}ݤ=]]}݌#k///`@AT@T/AAU@`U T/ Tk//P#Gh^~GP"p^x~"^[~cGhGGPq?""$ H^_&{"bR" PX@Zki$GXb"PB_&"bGR"P" 1@W@L"/# P=X}?"`b"/@ZkB"""btG`]"`@ZkB"G""X"PP]"tGb@Zk//6/8"G4G¦_&b"BbGR"!5@h"D#?"/PXݶ"P"@Zk/ 4GTG0$b"P"BGbx`TP"P"2 jT/ @C_&R"l PX?"@Zkf/TGPtG#?"@""BbG`b"XP]_&XR"P"t"@ZkBG""PtGP]"b"X"@ZkC//0"GTG¦_&b"BbGR"!@T"/0AT// #?"/(P"XݶP"@Zk!GPtG#?"P""BbG`b"P]_&XR"P""@ZkBG""PtGP]"b"X"@Zk//@G4G#?""b"BbG"$P]_&XP"R"/@Zk//r/`G#4G?""BbGb"P]_&"XR"P"@Zk//V/Bbp@TATJTAaU/JU!AU-T/@Zk`tG4G_&pb?"R"`$P"GBb`Tx"@=`=+T` P}X"b"@Zk`""8="@]@]"Hb"8b#@T ""*DU` T_/,W@]g@`G#$ "H QqWcGh]p]x}]}#k///#G#^~G`"^~"޴P[>^~cGGHG "$P>X^_&?"R" 1@{"XbW@ D`޶h@Zk@B"`""HbtGp]"p@Zk@Bx"G""h"``]"tGHb@Zk$G_&b"R"PBXb`"G// `=s""?"h}b"@Zk@B"""HbtGx]"x@ZkGdG"?"`" =PBXbG2BB@BPF_&R"pFb"`h""@Zk@B"`""HbtG]"@Zk@Bh"G""h"``]"tGHb@Zk0¤d%u@CQF T/@ lU T@}7///b@Bb:#TZB`NBT/ONTNVO/V/.UU@ZkBtG4Gh?""b"`=GpBxb Tx"#T@= @#p]_&xR"p"@Zkh@@T``T"8]8="@]"b"G "pb#\@$GGpB?"b"xbG = p]_&"@"R"xp"@Zk3/d "E8="@]"Gb"pb# WdT "DT8}@]/@$GTGpB?"b"xbG/""  `]_&R"h`"/@Zk//" E HDpx]%@"eBbɅ$TdTJBT/KJTJUKU/*jUNU@Zk@} tGb4G_&GR"b"¦pBxbTx" @#?"/`hݶ"`"@Zk@="8="@]"b"pb#8]G@@T!"T "`T_+W \g@$GTGpB?"b"xbG" `]_&"R"h`"@Zk//E"d@U @x] dU@}DU5//T )Bb/MBT`NMT/MUNV-U/U@ZkhtGT4G_&`=$"R"bpBG"xb$Txs"@=/` =}?"b"@Zkh}/CCTcTg8]"8="@]"Gb" "pb#_@(GTGbpB_&"xbR""G #s"==?"}b"@Zk6dE"8="@]"b"pb#G GGdT "DT8}@]6@_&"pB?"R"xbb"G`" #`ݴ` h@Zk/ px}H}P=X/WWWicG]]}ݤ=]}#k/p#@`^~h^p~xcGGG#@2ۅxH* T/ T-T _/XU@ X/lOU"H_V/l/ "b#8b8 "~ "~X"`b" 8"k@@=G_&BH""R"GbP"K!8D/O /// P}X?"b"@ZkDdBtG?"Bbb"P"GX`D8R"/ PX]_&"R"/@Zk.//"x`DBG`_&P="R"b"P"bG1"X=?"@Zk/BG_&" P}"R"X=?"b"P"bG@ZkH#C00PcG`]h]p}x#k///0#^~ ^(~08@޴H_PX>`^h~+Wpx޵^~ޜGQrG$bT#GGGG4"=[({ݤ\] k]dB/[p" PB`BF/9@///Յ 5(@ "  @0U@"Fs"`B@"c! )1@9Ն 5(A " 0B0U@8u"QFcs"@"`B @` > @F@"A "Շ5Uu c! )@19` `///s"1""! '!!/GG"GtG!G@ZkbG3@G S"sӅBATLTJT _KT__ _N///_ __ _U2 U/  VR U r'TQT/ U(0҆/ GU8/RT gUp2_TTx_R_WT_r____qV 2V/V(RW@r'VYT0GV8҇H/VZTPXV@R"P2 _JT"XR_BKT`_h _rR ҆ST(20r82UTXTRT@R"_ __ _________U U  V/ UV5V/xW2W'T/ U GU gU02gV'V8@RWGVHrPrX2`hR////"R"_\T_/VVh/0؇ˢ~=T__WG4Gk61B vC6Gr0`CkUxC[{C[{C;`K =iC@#GG]@⦀G"@@BD/9 ///PЅ (@#Z# Zڕ @C00@^":D"B@"Pc!)1:9Zy pІ 0(pAZ##zږ C0p@80"8Dc"@"B:zz:_Z#~" @CD@"A#PЇ Zc!ڗ)19 ///P"#"X\/ T.U-U/MU&`Tʢ8F1Fݔ}" " `#~>~GGG]"GGGTG@Zk T(0 @(//)0 B)=*#T _!JDU&@/U//tG*/G]B ](}08 @ݤHPX=`]h}pxݥ]}݌#k/cG```@GWZx@G"BGG7`/6 v(V@#ٕ9# 9 :C0@օ"9E"B@"ֆc!y)Y19ٖ 6 v(VAٕ9## C90@օ8^"Ec"@"ByY9#>" :CYG@"A#ևVvVٕ ٗYc!)y19Y ///v"#"x /{K0 G 0@A[WAK;sJJAJJA`@*@I BJ!Z #! ACj@GgD/9///τ /(@N!! Δ A0@!F)! A@!Oc!.)19NMφ /(A!N!Ζ CA0o@8O" Gc)!@! A.nN!~! AnD@!AN!υχO Εc!)Η1N9?///o)!J!!j? /TG /Gd//G//G\//G//@#(^~0^8~@HP޴X`h>p^x~^~GXGp0BݤG#GGG棘"]|``Cq{#`CFq/L///88хUPu1QpXՕ`5 ((цuhU8" p81"1q8"@Ֆ{#`CH5/k 88PqPuч1Xu`՗ х(0(h58" pՕ81"pQq8"5{#@`CuHUUPu8"81"8"цqP0Ї U5՗(0Ֆ8@uH `/0{#""1"5HB bJ! X !(b*!//4G tG//M+CG"=G">G"b#@ G ="}"GH"b#G_WaTA!T =@_bGG __@SH__@//$d @___aAUkU;/tVvV  1xW(A(q/z[W00/|W88Q/jW@@@_ __/aUKVwV____rk_s7_U4Vm|]VUHHU @! @1"@q_p_o]n:_ _ T`j_kV (!0ч (Q08Q8@! @1"_aVsa_/tV _KVr_vV_4Vq_SVr_lU_Vp_y:W _VUp^oL_uW_Vp^Un_jV_UUno]m^ _ T`*\/ T`m_T`_T`_ /Q ! 1"lU _/ T`,_0B!`T/T*//;\W/\W\T/W.0b4GC///G(]0]8}@HPݤX`h=p]x}]}#k///]}@ @GUTP/WV/8"@G/ AV,KKKCݦk __WWMVkUv ]//#4 ^~(^0~8@H޴WPX`>hp^x~Gb TG~Gݠ@h"% @sSU@҅"Fh4"KKT/JJT Ur/MMTS sѕq/ U҆ (3  V0RRTSSTQ8"1"V8S(rYYT0VіXXT 5B!QyW#Dc@8҅ZZT8R")qHWq8s"! 11 @J@T U9/{3MMT sѕAq UR (30sQQT /= V[[TIQ1"O"QVh8(AAT02WQSST Bp1V Gc@8҅3WLLTH8R"xq8s"! 1 @1J@T Uq/ S1"MMT 5Byѕ#F8R"8s""3R2]]T U҆RRTr qWWTQQT MWQ1=WіQVwWW!cq)Q191/ ///Ӈ! "R"s"^^TTԗ?pbV¤C }GG"GtG@ZkBT ////C "GGGtGT@Zk///"@h)!/GGG$% @xhT@`TptAaT/D///@Uх1 PaUqMmTPpT1  U(І0(1/pVRrT1VvT@QVQ8p08ч6W XxTQ(Q/[{T@"іW1HqPW@1"ї@lT!  @1AoTqp (P08@1"SsTUuT@U@"11aUTtT\|TXxTPхXZzT3V`hQVpцxчq UQUѕWQ5WіїqQPX1`1hpxQ //хp! 1""KkT Uq? UC GGG"tG@Zk//["G$ݠ@Wxhh"  @6@ px!@!LLTAPPT䅀aV!a2V0a UOOT ć/ V0V U/ ///(PpLU(ą0ІMU0DPVV8DWWTW^^T@CU@H$NNTVRRTV/ZZT~WHnTOOTpPVQQTP/kVpPVP0VV`WpWXC`T8"XćR@V8  zV Ė/ V@WdD(PpLU(Ć0/MU0d/PVV8WWTW@0Ѕ^^TSWVVT@$HUCCTVXXT~WHP/vVQQTppU]]TP/ZV KUpP0T`W.Tp\VVVX8"XćC`T8 D XU / 1T@Ė/]Vdy_8 VWWT^^T8"ЅWLUMUDPV kV$$Vd~WUPPWZZTІAAT]]TCCT0UQQT ć/VOV/VVX`Wp/ \U NU/ qUA T ]VCUĕ$(00(VWWTW8 ^^TLU8"$ЅVMU/WTTT~WPVWQQT4TUV[`WUA TdNU$ĕ////pP  D"RRT/jTrTC`TdG ](]0}8@HݤPX`=p]x}h#/k///G//J]u//paDxaĆhA!ZZTVVTtV!aOOT ćW qU vV/ ZVoU/s#G ;P^~G ^(~GGVaB08G@޴HG` #CB G@B 0 B @A5@w_#^B ! "GD'DB`DRGu #CBCCuDS/yED@D#e d y(9䕣 @ ? dD#c08e!d% @ "@9#D:cYBYهEZ@ EZZ# (yŗڗ AC D?# c089!x C "@9#xD)zcY1B89:9 ~ ? @9# @$D @> EDAD#ن#E%D $cyŖ!)Ėce19d /"#Z#9#/8`F k///] BG [@1 E&B @"D/9 ///@҅ (r@ "ו B0@"WG! @@R"RcwWE@҆ R("? ז @0r@8"Gc! @R" @Ww"~" BD@R" ҇R2r2חW7cw7 ///!  R"?/G [ tBtDc Bp"ZpZ#1# CE7B2D9 ///r (R@":Z# z EC0҆@2~ D9# C@R"Rc!)Z1ږ9Z r ҇(A:Z#"z B0R@282 `?= Gc9#@R" CڗZ:?Z#> ECD@R"A"r2҅: z:c!)1ڕ9 ///r9#"R"w? / @/ /// @_//// / [ B"0B `"/F@G {GGp! GpCx㋀7W/wVJTWW/2VVQ"@Bu^RUp`//@A/V$RV9~Waٗ/QOUWd@+WOV/1T!9/SKU.V$نKV  ׇ UyRNUw0WNV d (!(7WYOPUו19V($(PV00woW KQU ,lV d00هQV88W+T((yNLU(76VV($LV@8$8 U00ٕSVU@! @"@9#0@d2WVV3W@ R"y@B^RUז$7!/V!!VA~WRVٗ@ @"@9#@! !NOUd7y]AU:WdOVW0Va7AVVن UXZUaٕZV1;VćąKPUPVxVMQU7WQVdW5WY,,W9YyUėVUUA!SLUAUVٖWLVĕyW7@/aWR" ه"9#! 2[V/KRURVy/  VWd/_  "SsB SsB3`Jc C BGs"P3BW`GQ#@CF7/@ (@d" 䕑$ @0 @ $FZ#@C@ c$ĕ$U@@` ( ?d"D pBd0`@8@~ FcZ#@ @CdD? ># @F@ d"`@ėdc䖩D @///Z#s" _G] ](}08@ݤHP#/k///GG[/G//G<//G//#$@^~H^P~X`^h~pGGP{H[Pb>^cABTÅJAT/MaU kUKbU/JULUAU ~*MU>NU/NU@Zk> ^ T`b#\"X!!*T`+T(0 8"-MT8%@cTc$ "(]0=GKlUЅ@]H]P}/a"TKmUBbU/dDUBNTbCTh}$TpA/T/AT`]!W1X#k/#08 _`^~h^px^cGG[TaPT/W`*W@" B\ / !// _ k]8bUr`*LUs@" H! / UjLT8/BUb`*LUc"T8 !\/[`*,T\/xF8 /*ATBUQ`/*LUQ//F8 /J!TBUE`/*LUE//F8 /A!T*ATBU/7`*LU8/FxBb T//@ZkT8 \&`* T'BT8 B\/`*LT /8FB!\b+ATKkU8}@Zk8=/@!TB0ATb@@Zk@=8JTBU`/*LU//8@ MUJ]_UJTY/ @cG`]h]x]p#k///"BG_&P="R"bGhb"P"X=?"@ZkXBGTG"`b@Zk<GDFOR$WRITE_SEQ_LIS<b# DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<GDFOR$WRITE_SEQ_LIS_XMIT<b# DFOR$WRITE_SEQ_LIS_XMIT<@DFOR$WRITE_SEQ_LIS_XMIT<LGDFOR$WRITE_SEQ_LIS<b# DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<GDFOR$WRITE_SEQ_LIS_XMIT<b# DFOR$WRITE_SEQ_LIS_XMIT<@DFOR$WRITE_SEQ_LIS_XMIT4dGx MATH$SQRT_G4hb#  MATH$SQRT_G4t@x MATH$SQRT_G4 G MATH$POW_GG4b#  MATH$POW_GG 4 @ MATH$POW_GG4 G MATH$POW_GG4b#  MATH$POW_GG4 @ MATH$POW_GG4 4GD MATH$POW_GG4<b#  MATH$POW_GG4 @@D MATH$POW_GG4G MATH$SQRT_G4b#  MATH$SQRT_G4@ MATH$SQRT_G4G MATH$ACOS_G4b#  MATH$ACOS_G4@ MATH$ACOS_G4G MATH$COS_G4b#  MATH$COS_G4@ MATH$COS_G4G MATH$COS_G4b#  MATH$COS_G4@ MATH$COS_G4 G8 MATH$COS_G4b#  MATH$COS_G44@8 MATH$COS_G< GTDFOR$WRITE_SEQ_LIS<$b# DFOR$WRITE_SEQ_LIS<P@TDFOR$WRITE_SEQ_LIS<G<DFOR$WRITE_SEQ_LIS< b# (DFOR$WRITE_SEQ_LIS<8@<DFOR$WRITE_SEQ_LIS< TGDFOR$WRITE_SEQ_FMT< `b# (DFOR$WRITE_SEQ_FMT< @DFOR$WRITE_SEQ_FMT< GDFOR$WRITE_SEQ_FMT_XMIT< b# (DFOR$WRITE_SEQ_FMT_XMIT< @DFOR$WRITE_SEQ_FMT_XMIT< GDFOR$WRITE_SEQ_FMT_XMIT< b# (DFOR$WRITE_SEQ_FMT_XMIT< @DFOR$WRITE_SEQ_FMT_XMIT<0 G| DFOR$WRITE_SEQ_LIS<4 b# (DFOR$WRITE_SEQ_LIS<x @| DFOR$WRITE_SEQ_LIS< G DFOR$WRITE_SEQ_LIS< b# (DFOR$WRITE_SEQ_LIS< @ DFOR$WRITE_SEQ_LIS< 0 Gd DFOR$WRITE_SEQ_FMT< 4 b# (DFOR$WRITE_SEQ_FMT< ` @d DFOR$WRITE_SEQ_FMT< h G DFOR$WRITE_SEQ_FMT_XMIT<  b# (DFOR$WRITE_SEQ_FMT_XMIT<  @ DFOR$WRITE_SEQ_FMT_XMIT< G DFOR$WRITE_SEQ_LIS< b# (DFOR$WRITE_SEQ_LIS< @ DFOR$WRITE_SEQ_LIS< @ Gt DFOR$WRITE_SEQ_FMT< D b# (DFOR$WRITE_SEQ_FMT< p @t DFOR$WRITE_SEQ_FMT< x G DFOR$WRITE_SEQ_FMT_XMIT<  b# (DFOR$WRITE_SEQ_FMT_XMIT<  @ DFOR$WRITE_SEQ_FMT_XMIT< G DFOR$WRITE_SEQ_LIS< b# (DFOR$WRITE_SEQ_LIS< @ DFOR$WRITE_SEQ_LIS<@ Gt DFOR$WRITE_SEQ_LIS<D b# (DFOR$WRITE_SEQ_LIS<p @t DFOR$WRITE_SEQ_LIS4 G MATH$SQRT_G4 b# ( MATH$SQRT_G4 @ MATH$SQRT_G< GL DFOR$WRITE_SEQ_LIS< b# (DFOR$WRITE_SEQ_LIS<H @L DFOR$WRITE_SEQ_LIS< \GDFOR$WRITE_SEQ_FMT < b# DFOR$WRITE_SEQ_FMT< @DFOR$WRITE_SEQ_FMT< GDFOR$WRITE_SEQ_FMT_XMIT< b# DFOR$WRITE_SEQ_FMT_XMIT< @DFOR$WRITE_SEQ_FMT_XMIT< G4DFOR$WRITE_SEQ_FMT_XMIT< ,b# DFOR$WRITE_SEQ_FMT_XMIT< 0@4DFOR$WRITE_SEQ_FMT_XMIT< TGDFOR$WRITE_SEQ_FMT< Xb# DFOR$WRITE_SEQ_FMT< @DFOR$WRITE_SEQ_FMT< GDFOR$WRITE_SEQ_FMT_XMIT< b# DFOR$WRITE_SEQ_FMT_XMIT< @DFOR$WRITE_SEQ_FMT_XMIT< G$DFOR$WRITE_SEQ_FMT< b# DFOR$WRITE_SEQ_FMT<  @$DFOR$WRITE_SEQ_FMT< (GHDFOR$WRITE_SEQ_FMT_XMIT< 4b# DFOR$WRITE_SEQ_FMT_XMIT< D@HDFOR$WRITE_SEQ_FMT_XMIT< HGtDFOR$WRITE_SEQ_FMT_XMIT< lb# DFOR$WRITE_SEQ_FMT_XMIT< p@tDFOR$WRITE_SEQ_FMT_XMIT4b#  MATH$SQRT_G4G MATH$SQRT_G4@ MATH$SQRT_G<HGDFOR$WRITE_SEQ_LIS<Lb# DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<G(DFOR$WRITE_SEQ_LIS<b# DFOR$WRITE_SEQ_LIS<$@(DFOR$WRITE_SEQ_LIS<GDFOR$WRITE_SEQ_LIS<b# DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS4,Gl MATH$SQRT_G40b#  MATH$SQRT_G4h@l MATH$SQRT_G<GDFOR$WRITE_SEQ_LIS<b# DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<@GDFOR$WRITE_SEQ_LIS<Lb# DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS4G MATH$SQRT_G4b#  MATH$SQRT_G4@ MATH$SQRT_G<@GDFOR$WRITE_SEQ_LIS<Lb# DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<GDFOR$WRITE_SEQ_LIS<b# DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<|GDFOR$WRITE_SEQ_LIS<b# DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<DGDFOR$WRITE_SEQ_LIS<Xb# DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<GDFOR$WRITE_SEQ_LIS<b# DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<GHDFOR$WRITE_SEQ_LIS<0b# DFOR$WRITE_SEQ_LIS<D@HDFOR$WRITE_SEQ_LIS<PGDFOR$WRITE_SEQ_LIS<b# DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS4FGHG MATH$SQRT_G 4Fb# MATH$SQRT_G4DG@HG MATH$SQRT_G4IGI MATH$LOG10_G4Ib# H MATH$LOG10_G4I@I MATH$LOG10_G4$JGDJ MATH$SQRT_G4,Jb# H MATH$SQRT_G4@J@DJ MATH$SQRT_G4TJGhJ MATH$SQRT_G4\Jb# H MATH$SQRT_G4dJ@hJ MATH$SQRT_G<JGKDFOR$WRITE_SEQ_LIS<Kb# HDFOR$WRITE_SEQ_LIS<K@KDFOR$WRITE_SEQ_LIS4KG4K DFOR$STOP4,Kb# H DFOR$STOP40K@4K DFOR$STOP ,  =B  DFOR$WRITE_SEQ_LIS= (; MATH$SQRT_G=@ H=0`0H;=0 7 DFOR$HANDLER=;=:?6-C ;;  DFOR$STOP=8  MATH$LOG10_G=0`;;=0@F;= , A@A=09;=PX| ;=0 -;=X =0(&;=`? <;=?  ;= @333333@ffffff =0;= t 9KH>;;= =CAN'T GET HERE =,@̚>׼H X;=0`@;=0 7 DFOR$HANDLER= ; ;=8-@o zERROR IN BSSTEP>Ƶ  =ERROR  =8 =@+88x=0 ;=d 7 DFOR$HANDLER= ; ( DFOR$WRITE_SEQ_FMT_XMIT DFOR$WRITE_SEQ_FMT=  =: ANGSIZ ERROR =: INICOS ERROR (=0h;=L 7 DFOR$HANDLER=;;=Z2  p= @Z1  =0p;=d 7 DFOR$HANDLER=( @R-8es?UUUUUU?h  MATH$POW_GG MATH$COS_G(DFOR$WRITE_SEQ_LIS_XMIT=.  MATH$ACOS_G=@UUUUUU F=6.-COSANGCompaq Fortran V7.5-2630 = 4 4= INICOS4=\Tlllll l - -( 3 3 6 6 8 D D  W \  b           & . & + 1 7 A A A  S g g k k k i i k k i i ] _ ] T uh $ +  "         X  8 $.A 6 6 & I " d :=  4=  =  = ` r= `4 4=QQ`4=  = @ = 4 (4= ANGSIZ4=         (  Z     M      $                 !  !  ! w 9 5 9 9 9 5 = S O S S < Z=   4=  e4= & = < =  =  4 4= BNGSIZ 4=OG e e e e e e 1 e 1 % 1( = A L L O O' ] } y ] W } }              ܁                              "  " " &  4 4 4 0 : 8 <  ^ T ^ T  d     x r  r  r  $        ( 8     H Z=  4=  e4=  = D Z=  $4=  e4= ! = D Z=  4=  e4= w = @ =  8= @4 4= LOWLEV@4=             $ M       0 =  R= 4 4= ODEINT4=                        (   @   D  6      (   D    0                 (   @     & D& }p        (   @                     P(      @       '.  =  f= &4 X4= BSSTEP&4=   9  9  9   9  9  9                                          ;       $      ,        D    0        n    G` '  '  +  )  '  /  / 0  =   T= -4 84= MMM-4=   i b i j  i b i b i f                                                                                                                 `         W    d     L -h  = 0 = 94 4= POLEX94=d\ f  b  Y b  b  [ W b  Y Y d  b  d  d  d  d  d  d  f  d  f  f  f  d  f  d  d  d  d  d  f  f  f  d  f  f  d  d  f  d  d  f  f  f  d  d  d  d   n  n  p  p  p  p  p  p  p  p ( p  p  p @ p  p  p   z  z  |  |  |  |  |  |  |  | ( |  |  | @ |  |  |                                                                                                                  (   2@    8 d   ! =  ,= F4 4= ASDRHSF4= i (                    &  & ? '  &  &  '  '  &  &  Z=  F4=  e4=  = ` =  = 0H4 H4= ETAZ0H4=sk 1 ZH  1 X F  <     -   ' % ! !       e       ,  =  Le4 =   DFOR$HANDLER DFOR$WRITE_SEQ_LIS DFOR$WRITE_SEQ_LIS_XMIT DFOR$HANDLER DFOR$WRITE_SEQ_FMT DFOR$WRITE_SEQ_FMT_XMIT DFOR$HANDLER DFOR$HANDLER DFOR$HANDLER DFOR$STOP MATH$LOG10_G MATH$SQRT_G MATH$POW_GG MATH$ACOS_G MATH$COS_G(COSANG