JHELBIG_ANGSIZ_OLD 18-JUN-1997 18:21!Digital Fortran 90 V7.1-330 h$BSS$$DATA$ COSMOL$ANGINIWHICHARTHURFIXih,$CODE$$LINK$5 $LITERAL$BNCSIZCNTRCTMERRORLOWSIZ>PATH@Jp$HELBIG_ANGSIZ_OLD$INICOS8J$HELBIG_ANGSIZ_OLD$QQ@J$HELBIG_ANGSIZ_OLD$ANGSIZ@J@ $HELBIG_ANGSIZ_OLD$BNGSIZ@J$HELBIG_ANGSIZ_OLD$LOWLEV(JH@'BSSTEP(J+ASDRHS@J$HELBIG_ANGSIZ_OLD$ODEINT8J($HELBIG_ANGSIZ_OLD$MMM@J $HELBIG_ANGSIZ_OLD$POLEX8J@$$HELBIG_ANGSIZ_OLD$ETAZ 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 =6 H$H76H76H76 H$H76 H$76 H$H7  0@` @=( 'ՙ''ՙ''ՙ''ՙ' D=,$'ՙ'R $=  $=  (='ՙ' =0#~X^4G`^h~px޴^~ޜcGG8~QG@p_&"R"0@4X[M 0GH~{""{?"PH"G@ZkpB( xb"(]""HH]"tG@Zk48=G!. 0""GT4GB1CF!CTGbt"@0G_&#?"HݶR"Pb"H"G@ZkpB0 xbH"""H]"tG@Zkø"᳸E @`bs"`T3AT CT`¤ &EUƔ `4G@TGtGGŲ`G@G__4GGETG@tGG@G{@ _lU`Geq_-eTBbpmT@Zk$TtGdáWPBXb"GAT\@Zk"PB8"c\@TXbH@ZkH=B,T@ T T T`GM_ TG%DpgTPB8"Xb@Zk4G? \%8G2ÌBbAgTpT@ZkFTcTBb\FTTA&TaAT0W@ZkgT0„`Bhb0T@ZkPTT`BhbH\@Zk@TH݄`B\hb&W WTf \@Zk@TTGT`\`T$T? %%fFG¤€9T`@gJ!T AAUJjUAU!*T-T'T) $T0A A C0¦BGb""?"@b"G@_&HR"H"Pݶ@Zk_tG'GT%$BcTCCT@TA#T  T TTc8] _`"0}Re@ݦ1"q Eeu ]WG"GcX]`]h}pxݤ]}݌#kGGG`@AT@ TAAU@`U T Tk`#~X^`^h~px^~cGG8^GPq?"[$  G_&"@{"{"HR"@"G@Zk&Bb?"@}@D(GP@]X"_&H"R"`b"@"L"G@ZkxB b"@""@]"tG@ZkxBG"@""H"@]"tGb@Zk# $8"G!5@D #¦4GP"@Hݶ $l`TBb+ 0PjT@4GCa TG_&@8"H"?"R"b"@"G@ZkRGTG#?"LtG@]@"P_&H"R"`b"@"t"/__@T$Bb?"70 AT G0 TG_&"@}"HR"b"@"G@Zk"GG#?"tG@]P"P_&H"R"`b"@""GBb@ZkxBG"@H"""@]"tGb@Zk @G#4G"@] `G#4G"@]H_&"?"R"b"Bb@"G@Zk# $QX"hB@TqpbATJ$TAaUJU!AU-T@ZkXhB$ lT@tG T4GB0_&@ h"H}"b?"R"Pb"H"G@Zk@X"0]@T"*DU((="0]"Hb"` T8 "0 "b#_+W@]uN@`G#$ "80 QWqcGGX]`]h}p]}x#kG #~p^x^~޴>^~cGG8G@>" H^?"@}@D$"@[G;#_&P{"X>R"P""GH{@ZkBbP"P""P]"tG@ZkBGh"PX"""P]"tGb@Zk$@BG b_&s"P=X}"?"R"b"P""HbG@ZkB bP"""P]"tG@ZkGD$!@ @]!@15 B!C!F& D@BHb"!@G"_&P?"XݶR"b"P""G@ZkBb"PP""P]"tG@ZkBGX"P""X"P]"tGb@Zku@0¤%T@d lU T0}20"Bb.TQ1qOBTPUO/VPPV/VU@Zk$bPtG-T T4GpBh"xb0=" `# X]_&`?"R"b"X"G@ZkP"@@T` T"(](="0]"8b"( "G`b#K@ =$GGpB. P]8"_&X"xb?"R"b"P"G@Zk Db'CT"T"!W(="0]"(]8b"0G'( "`b#@$GpB TGP]"_&X"?"R"b"xbP"G@ZkÀ "( AHDB\Pe0"BcUɅ bLTMULUMU,UU@Zk%b X#TtG T4G_&$0=?" h"`}"pBxbR"hb"`"G@ZkX0=@T!$T"((="0]"8b"G( "``T`b#_*W \G@$pBG TGX]_&"xb`"?"R"b"X"G@Zk? T&( @P] T U0/__T) IBbNTOUNVO/V.UU@Zk$bX#T$tG TbpB4G_&0=hs" ` `=h}"?"R"b"`"Gxb@ZkX@T``T"(="(0]"8b"G( "`b#]@(G #DbTG_&pBs"X="`}?"R"b"X"Gxb@Zk3"TT(="0]"8b"G( "(`b#06@GpBG` _&Xݴxb"?"`R"b"X"G@Zk À( (P}W8}@WWHCe$cGGp]x]}ݤ=]}#kG#@~P^X^`~hcG#81G0xGG*T _lU ` T4GG-T 4G0C4CFsmKU8 _Ue b~("$ s" ~`b"(X"b#8"e@x0=GBH"bI!5@?"b"GK @]_&H"R"@"@ZkAGU@ bBtG_&8s"@=H}"?"R"b"@"Gb@Zk-Gu@BBGbR"@H]_&"?"R"b"@"G@ZkGB""G_&H="b?"R"@=b"@"G@Zk8=#C0"1QcGGP]X]`}hp#kGGGP#^ ^(~08@޴HP_X>`^h~px!W޵^~G~#GGGrQ=[({ݤG$bT][=\x R"!\}B1Q4B}B2 1" R"R?145B1"2R"¥'!x !X!_G"GGGtG@Zk#b "s"4 } @G&@pSxsӅ3_1 B___} B s"JTKTLTMT _ _ _ _ U U  V -V AU aU U USs pSs15 Bs"_RT_rVAVS?GG/0"k 71B wC4T0`C_RyC_V! k ;`K[{C} @[{C;C9# Ԇ40B}Bٖ " 9#9?T05B"Y9# T<cW;bW[W`%`Tꢈ]"G5B)F " 4"^]">GG"GGTG@Zk T0BI0@BI= ,5A*#T _JDU@UaYtGJG] ](}08@ݤHPX=`]h}pxݥ]}G#kcG`}`@GGօ65B}Bؕ " #8GV55B"#X+G?0K 0@BD@BK$2@JRRB}`@RRB@ `m͆4B}B` ! G45B! TGGG4#^ ^(~08@޴HPX^`~G~Gp~xW"b T0}@G"``3Ss@@TAATJJTU! @ R"KKT҅U} @px s" UՕ " Uh5Uu? G!5 @R"LLTps"" U?BT¤"GC GGtGT@Zk'5@BG4}@GGG$ px҅`0Pp@`TAaT2JjTKkTRr! @U} @ "U Up R" U2RrX2`Rhr@ p҆!5 @TtT"pҖR"V?'5@"VCGGGtG@ZkG7}@W(p&x慈F``Fd = ą$f*TKKT @ UNNT}@ UQQTSVTTT+T UUTVA TLUOUR@V$D? pƆ 5@  WWTVVUVG]G ](}08@ݤHX]`}Pp#ks ;#G~G^GVqB G }BGG`7Ww6! @9} @V " " 9#7Yvy69 W!5 @""V9#Y?5`B}B G"r2Rw! @r} @7 R" "Ww G2!5 @R""7?GG Gh" tBG}B Rr2W6BR}Bw R" "7W?r65BR"w"85 CisaB3Bp;4G1"Q7J WBWBGCh< G"G+@Uk+TL TJKUP}B<@@@@wׅ+U!w.U00VMU2KKUR3VOU6BVU-VNNU}BTU "OVaPPU ! SSU2 s"R R"ar3 vUӅUӖ7rו _Wr2V65B"! s"R"PURRU pUAr85C0B1"9 K Y9CY9CGC}B9#` :@C}@Cy  9#9@G:5@C 9#ٕ_G]G #k#~8^@^HP^cGG00["TjPTW_{p@ WqG4B"_!b Wd@ WeGBTB\b]@ KT^TB"!b T`@TTO@  TPJ]BUbI@  TJG_uB JTbT?@  T@àB@JUbT7@  T8áB JJUb JTT.@  T/àBhbBb+T @ZkTb!@  T"G_BTB\b@ KTG_5B!JTJ]A!T(=_0JTJJU(]@BHb@Zk(=b@TT@  T T T @Gc8]@]P]H`#kG`"BG_&0="b?"R"(=pb"("G@ZkPBXbx"GTG@ZkGGG@#(^0^8~@HP޴X`h>p^x~޵^~GG~G#GX0{ݤGG]%}Bh"@``Tqԅ0B "1}BU 1" "Օu5 Tq05B"U1"u"sB( bh  !*!J!G 4G tGNA">"GGG"b#_]_G ="G}"H"Gb#_WaAUA!T =_GG,}@ ``0ApxW @}@ ! "z[W_Vw8\|W_Vw:\`W_Vw\]_Vw`] 5@lU! " _Vw]ݢ-5A 0BwVV#֬(PVOVOTU04G@G(]0]8}@HPݤX`h=p]x}ݥ]}G#kG]]RTB@bX}Z SSV{ñB 8]TTVKB b+_W_RVVWr[VUGG#$0^8^@~HP^X~`G~G>^P{[{cCÅ@BTATL@U JUAaUKmUJBU!,T@`U ^.Tc\@Zk^ ~T\P"*KU!hb#aAU ("> .NT(ޕ,_cTc$KlU "]a"T KmU=G0]8]@}GBbUBNTdDUbCTX}$T`A/T"W!ATP]!Hp#k<GDFOR$WRITE_SEQ_LIS<b#pDFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<GDFOR$WRITE_SEQ_LIS_XMIT<b#pDFOR$WRITE_SEQ_LIS_XMIT<@DFOR$WRITE_SEQ_LIS_XMIT<8GDFOR$WRITE_SEQ_LIS<Tb#pDFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<GDFOR$WRITE_SEQ_LIS_XMIT<b#pDFOR$WRITE_SEQ_LIS_XMIT<@DFOR$WRITE_SEQ_LIS_XMIT4G$ MATH$SQRT_G 4b#p MATH$SQRT_G4 @$ MATH$SQRT_G4 4GL MATH$POW_GG48b#p MATH$POW_GG4 H@L MATH$POW_GG4 PGl MATH$POW_GG4`b#p MATH$POW_GG4 h@l MATH$POW_GG4 G MATH$POW_GG4b#p MATH$POW_GG4 @ MATH$POW_GG4 G  MATH$SQRT_G4b#p MATH$SQRT_G4@  MATH$SQRT_G4(GL MATH$ACOS_G4,b#p MATH$ACOS_G4H@L MATH$ACOS_G4TGd MATH$COS_G4Xb#p MATH$COS_G4`@d MATH$COS_G4lG MATH$COS_G4pb#p MATH$COS_G4|@ MATH$COS_G4G MATH$COS_G4b#p MATH$COS_G4@ MATH$COS_G<LGDFOR$WRITE_SEQ_LIS<Tb#pDFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<$GlDFOR$WRITE_SEQ_LIS<Lb#DFOR$WRITE_SEQ_LIS<h@lDFOR$WRITE_SEQ_LIS< 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_XMIT< b#DFOR$WRITE_SEQ_FMT_XMIT< @ DFOR$WRITE_SEQ_FMT_XMIT<GDFOR$WRITE_SEQ_LIS<b#DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<H G DFOR$WRITE_SEQ_LIS<L b#DFOR$WRITE_SEQ_LIS< @ DFOR$WRITE_SEQ_LIS<  G DFOR$WRITE_SEQ_FMT<  b#DFOR$WRITE_SEQ_FMT<  @ DFOR$WRITE_SEQ_FMT<  G4 DFOR$WRITE_SEQ_FMT_XMIT< , b#DFOR$WRITE_SEQ_FMT_XMIT< 0 @4 DFOR$WRITE_SEQ_FMT_XMIT< G DFOR$WRITE_SEQ_LIS< b#DFOR$WRITE_SEQ_LIS< @ DFOR$WRITE_SEQ_LIS4 G MATH$SQRT_G4 b# MATH$SQRT_G4 @ MATH$SQRT_G<, Gt DFOR$WRITE_SEQ_LIS<P b#DFOR$WRITE_SEQ_LIS<p @t DFOR$WRITE_SEQ_LIS<  G DFOR$WRITE_SEQ_FMT<  b#DFOR$WRITE_SEQ_FMT<  @ DFOR$WRITE_SEQ_FMT<  G( DFOR$WRITE_SEQ_FMT_XMIT<  b#DFOR$WRITE_SEQ_FMT_XMIT< $ @( DFOR$WRITE_SEQ_FMT_XMIT< ( GT DFOR$WRITE_SEQ_FMT_XMIT< L b#DFOR$WRITE_SEQ_FMT_XMIT< P @T DFOR$WRITE_SEQ_FMT_XMIT < \ G DFOR$WRITE_SEQ_FMT<  b#DFOR$WRITE_SEQ_FMT<  @ DFOR$WRITE_SEQ_FMT<  G DFOR$WRITE_SEQ_FMT_XMIT<  b#DFOR$WRITE_SEQ_FMT_XMIT<  @ DFOR$WRITE_SEQ_FMT_XMIT< GLDFOR$WRITE_SEQ_FMT< b#DFOR$WRITE_SEQ_FMT< H@LDFOR$WRITE_SEQ_FMT< LGlDFOR$WRITE_SEQ_FMT_XMIT< Pb#DFOR$WRITE_SEQ_FMT_XMIT< h@lDFOR$WRITE_SEQ_FMT_XMIT< lGDFOR$WRITE_SEQ_FMT_XMIT< b#DFOR$WRITE_SEQ_FMT_XMIT< @DFOR$WRITE_SEQ_FMT_XMIT4G MATH$SQRT_G4b# MATH$SQRT_G4@ MATH$SQRT_G<DGDFOR$WRITE_SEQ_LIS<Lb#DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<G0DFOR$WRITE_SEQ_LIS<b#DFOR$WRITE_SEQ_LIS<,@0DFOR$WRITE_SEQ_LIS<GDFOR$WRITE_SEQ_LIS<b#DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS4GP MATH$SQRT_G40b# MATH$SQRT_G4L@P MATH$SQRT_G<GDFOR$WRITE_SEQ_LIS<b#DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<GlDFOR$WRITE_SEQ_LIS<Db#DFOR$WRITE_SEQ_LIS<h@lDFOR$WRITE_SEQ_LIS4G MATH$SQRT_G4b# MATH$SQRT_G4@ MATH$SQRT_G<GPDFOR$WRITE_SEQ_LIS<Hb#DFOR$WRITE_SEQ_LIS<L@PDFOR$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< GXDFOR$WRITE_SEQ_LIS<b#DFOR$WRITE_SEQ_LIS<T@XDFOR$WRITE_SEQ_LIS<lGDFOR$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<G<DFOR$WRITE_SEQ_LIS<b#DFOR$WRITE_SEQ_LIS<8@<DFOR$WRITE_SEQ_LIS4&G& MATH$LOG10_G4&b#@ MATH$LOG10_G4&@& MATH$LOG10_G4|&G& MATH$SQRT_G4&b#@ MATH$SQRT_G4&@& MATH$SQRT_G<&G'DFOR$WRITE_SEQ_LIS<&b#@DFOR$WRITE_SEQ_LIS<'@'DFOR$WRITE_SEQ_LIS4'G4' DFOR$STOP 4 'b#@ DFOR$STOP40'@4' DFOR$STOP4@+G+ MATH$SQRT_G4D+b# MATH$SQRT_G4+@+ MATH$SQRT_G ,  MATH$LOG10_G DFOR$WRITE_SEQ_LIS;; ;=:?6-C=08$;=`$ 7 DFOR$HANDLER= @ MATH$SQRT_G DFOR$STOP ;=B=8==0;;=00+;= p( A@A=0 ;= , `;=0;=p< =0(@';=T ;=?x ;= @333333@ffffff=0;= d <9KH>;;==CAN'T GET HERE=@o z>׼HH;=0P;=p( 7 DFOR$HANDLER= ;;= ,@ERROR IN BSSTEPX= >Ƶ p=ERROR x=8=+88x( DFOR$WRITE_SEQ_FMT_XMIT=0p@ ;=H 7 DFOR$HANDLER= ;=@ DFOR$WRITE_SEQ_FMT= =: ANGSIZ ERROR=: INICOS ERROR=0X;=4 7 DFOR$HANDLER=;;=Z2 `= @Z1 p=0X;=X 7 DFOR$HANDLER=( @R-8es?UUUUUU?h MATH$POW_GG MATH$COS_G(DFOR$WRITE_SEQ_LIS_XMIT=. MATH$ACOS_G=@UUUUUU  = SOMETHING'S WRONG!!!!!! =(ERROR IN ODEINT: TOO MANY STEPS 8=0#ERROR IN ODEINT: STEPSIZE TOO SMALL `=pbERROR 12: ERROR CALCULATING D32, EXPANDING PHASEERROR 12: ERROR CALCULATING D32, CONTRACTING PHASE =@2ERROR 12: ERROR CALCULATING D34, CONTRACTING PHASE =@2ERROR 12: ERROR CALCULATING D14, CONTRACTING PHASE 8=`QERROR 12: ERROR CALCULATING D14, EXPANDING PHASEERROR 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 =XJNOT REALLY LARGER THAN ZMAX BUT CLOSE ENOUGH FOR TROUBLEERROR 9: Z2 > ZMAX P=@1ERROR 4: COMPUTATION NOT RECOMMENDED IN WMTYPE 17 =@5YOU MUST CALL INICOS FIRST!!!!!!!!!!!!!!!!!!!!!!!!!!! =}uINICOS ERROR 3: ROUNDOFF ERROR, BAD ZMAXINICOS ERROR 2: ETA OUT OF RANGE; ETA = INICOS ERROR 1: OMEGA < 0.0; OMEGA = T=D<;HELBIG_ANGSIZ_OLDDigital Fortran 90 V7.1-330 c= &4p4='$HELBIG_ANGSIZ_OLD$INICOS4= < >  M O U X X Z f  ~                   & & M I  U c c U u q         (   ( $  X \s F  D X F D  k d $= x4 := L4=  = "44=#$HELBIG_ANGSIZ_OLD$QQ4=  := 4= 0 ;= &44='$HELBIG_ANGSIZ_OLD$ANGSIZ4=     Z            B   D > D J > D  J  \ \ \ X `5 v r v v 8 $= 4 :=  4= p F= &@ 44='$HELBIG_ANGSIZ_OLD$BNGSIZ@ 4= ̰  U  U I  a c s                                        . ,  >   @ :  @ :  F J @  F  X T X X \  x   x                        ;     L $=  4 := 4=  = &44='$HELBIG_ANGSIZ_OLD$LOWLEV4=               0 $= H4 := l4=  = &44='$HELBIG_ANGSIZ_OLD$ODEINT4=qi                         (  P           0          & D&  & }\               # _ '  '  ' 0 +  +  +  +  +  +  $= ,4 := 4= p = #4(4=$$HELBIG_ANGSIZ_OLD$MMM4=  ^ b ^ b Z f ^ b                                 H  @    8 $= X4 := d 4=  T= % 44=&$HELBIG_ANGSIZ_OLD$POLEX 4= W  Y  U  W W  Y  Y  Y  [  [  Y  Y  Y  Y   e  e  e  e  e  e  e   q  o  q  q  q  q  q  q  y  w  y      y                               w G $        $=  4 := $4=  = $$4@4=%$HELBIG_ANGSIZ_OLD$ETAZ$4= X F F E  E       >  < E  < E  E       /    + E   ' E  E  ! # E  E  %  E  E  )  +  E  -  /  E  E  5  E  E  9  ?  E  T $ $= $4 := &4=  = @'4H4= BSSTEP@'4=   j  j    j       *  *  *  *  *  (  (  (  (  (  (  (  ( ( ;  ;  ;  7  C $ ? ( I  I < I  I  I  I  7  7 G\ Y  Y  Y  [  Y  ]  a 0 a  $= '4 := d*4=  = +44= ASDRHS+4= i 0 O  S  S  S  S         )     $= 8+4 := \,4= h =