JHELBIG_ANGSIZ_OLD 2-MAR-2005 11:27Compaq Fortran V7.5-2630  $BSS$$DATA$^ $LITERAL$ COSMOL$ANGINIWHICHARTHURFIXiPATH@J $HELBIG_ANGSIZ_OLD$INICOS8J` $HELBIG_ANGSIZ_OLD$QQ@J( $HELBIG_ANGSIZ_OLD$ANGSIZ@J  $HELBIG_ANGSIZ_OLD$BNGSIZ@J@ $HELBIG_ANGSIZ_OLD$LOWLEV(JXB BSSTEP(JI ASDRHS@J $HELBIG_ANGSIZ_OLD$ODEINT8J8& $HELBIG_ANGSIZ_OLD$MMM@J2 $HELBIG_ANGSIZ_OLD$POLEX8JH? $HELBIG_ANGSIZ_OLD$ETAZ =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#@TP ""*DU` T_/,W@]g@`G#$ "HP 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"GH "pb#\@$GGpB?"b"xbG = p]_&"@"R"xp"@Zk3/d "E8="@]"Gb"pb# WdTH "DT8}@]/@$GTGpB?"b"xbG/""  `]_&R"h`"/@Zk//" EH HDpx]%@"eBbɅ$TdTJBT/KJTJUKU/*jUNU@Zk@} tGb4G_&GR"b"¦pBxbTx" @#?"/`hݶ"`"@Zk@="8="@]"b"pb#8]G@@T!"TH "`T_+W \g@$GTGpB?"b"xbG" `]_&"R"h`"@Zk//E"d@UH @x] dU@}DU5//T )Bb/MBT`NMT/MUNV-U/U@ZkhtGT4G_&`=$"R"bpBG"xb$Txs"@=/` =}?"b"@Zkh}/CCTcTg8]"8="@]"Gb"H "pb#_@(GTGbpB_&"xbR""G #s"==?"}b"@Zk6dE"8="@]"b"pb#G GGdTH "DT8}@]6@_&"pB?"R"xbb"G`" #`ݴ` h@Zk/H px}H}P=X/WWWicG]]}ݤ=]}#k/p#@`^~h^p~xcGGG#@2ۅxH* T/ T-T _/XU@ X/lOU"H_V/l/ "b#8b8@ "~D "~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#GGGG 4"=[({ݤ\] 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""p! '!!/GG"GtG !G@ZkbG p3x@G S"s ӅBAT  LTJT _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ݔ}"0 "( `#~>~GGG]"GGGTG@Zk0 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;s JJAJJA`@ *@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//#4 ^~(^0~8@H޴WPX`>hp^x~Gb TG~Gݠ@"% @sSU@҅"F4"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///"@)!/GGG$% @T@`TtAaT/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$ݠ@W"  @6@ !@!LLT@ᣘAPPT0aV!a2Va 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/vVQQT =ppU]]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//aDaĆA!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 Bh"ZhZ#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! GhCp㋀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 t?= <//G//#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///@#(^~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 bxJ! X !(b*!//4G tG//M+CG"=G">G"b#7_ G ="}"GH"b#G_WaTA!T =3__bGG __S__@//$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 ]//#$@^~H^P~X`^h~pGGP{H[Pb>^cABTÅJAT/MaU kUKbU/JULUAU ~*MU>NU/NU@Zk> ^ T`b#\"X!!*T`+T(0 8"-MT89_cTc$ "(]0=GKlUЅ@]H]P}/a"TKmUBbU/dDUBNTbCTh}$TpA/T/AT`]!W1X#k<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_GG4 @ MATH$POW_GG 4 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_LIS4(AGHA MATH$LOG10_G4,Ab# H MATH$LOG10_G \4DA@HA MATH$LOG10_G4AGA MATH$SQRT_G4Ab# H MATH$SQRT_G4A@A MATH$SQRT_G4AGA MATH$SQRT_G4Ab# H MATH$SQRT_G4A@A MATH$SQRT_G<DBG|BDFOR$WRITE_SEQ_LIS<`Bb# HDFOR$WRITE_SEQ_LIS<xB@|BDFOR$WRITE_SEQ_LIS4|BGB DFOR$STOP4Bb# H DFOR$STOP4B@B DFOR$STOP4IGXJ MATH$SQRT_G4Ib# MATH$SQRT_G4TJ@XJ MATH$SQRT_G ,  =B  DFOR$WRITE_SEQ_LIS= (; MATH$SQRT_G=@ H=0`?;=0 7 DFOR$HANDLER=;=:?6-C ;;  DFOR$STOP=8  MATH$LOG10_G=0`;;=0@I;= , A@A=02;=PX| ;=0 &;=X =0(B;=`? <;=?  ;= @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 Q=A98HELBIG_ANGSIZ_OLDCompaq Fortran V7.5-2630 = &4 4='$HELBIG_ANGSIZ_OLD$INICOS4=\T  O O( U U X X Z f f  y ~             & . "& M S Y c c c  u               T uh $ +  "        + X  Z F.A X X H k D d :=  4=  =  = ` = "`4 4=#$HELBIG_ANGSIZ_OLD$QQ`4=  = @ = &4 (4='$HELBIG_ANGSIZ_OLD$ANGSIZ4=         (  Z     M      $                 D > D > D w \ X \ \ \ X ` v r v v < Z=   4=  e4= I = < =  = & 4 4='$HELBIG_ANGSIZ_OLD$BNGSIZ 4=OG       U  U I U( a e p p s s'     {                ܁                     ,      @ :  F : F F J  X X X T ^ \ `   x  x              $        ( 8     H Z=  4=  e4=  = D Z=  $4=  e4= E = D Z=  4=  e4=  = @ =  /= &@4 4='$HELBIG_ANGSIZ_OLD$LOWLEV@4=         $   /     0 =  e= &4 4='$HELBIG_ANGSIZ_OLD$ODEINT4=                                  (   @   D  6      (   D    0                 (   @      & D& }p                (      @       '  '  +  +  +  +  +  +  + P( +  +  + @ +  +  +  '.  =  g= #&4 84=$$HELBIG_ANGSIZ_OLD$MMM&4=   ^ b ^ j  ^ b ^ b ^ f                                                                                                                 `         W    d     L -h  = 0 = %24 4=&$HELBIG_ANGSIZ_OLD$POLEX24=d\ [  W   Y W  W   [  W W   Y  Y Y  W  Y  Y  Y  Y  Y  Y  [  Y  [  [  [  Y  [  Y  Y  Y  Y  Y  [  [  [  Y  [  [  Y  Y  [  Y  Y  [  [  [  Y  Y  Y  Y   c  c  e  e  e  e  e  e  e  e ( e  e  e @ e  e  e   o  o  q  q  q  q  q  q  q  q ( q  q  q @ q  q  q   w   w  w   y     y   y  w                                                                                           w          (   2@    8 Y   ! =  = $?4 H4=%$HELBIG_ANGSIZ_OLD$ETAZ?4=sk ZH  X F    < E         - E  E   ' ! % ! ! % ! %  )  )  /  -  -  1 e E  5  9  9  ?  I  O , T $ =  f= B4 X4= BSSTEPB4= ,    j  j  j    j  j  j      (  *  *  *  *  *  *  *  (  (  *  (  (  (  *  *  *  *  *  *  *  (  (  *  (  (  (  (  *  (  *  *  *  (  (  (  ;  3 ; ;  7  ;  ?  G $ I  I  I , I  I  I  I D I  I 0 I  I  I  I n 7  7 G` Y  Y  ]  [  Y  a  a 0 (  =   ,= I4 4= ASDRHSI4= i ( O   S  S  S  O        ?        Z=  I4=  e4=  = ` = | 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