4k820309F 48C8LV7.5%B DISK$USER:[HELBIG.PROGRAMME.LIBRARY.COSMOL.ANGSIZ.1_1-1]HELBIG_ANGSIZ_OLD.FOR;2HELBIG_ANGSIZ_OLDINICOSANGSIZBNGSIZETAZMMMPOLEXQQ#@  #HELBIG_ANGSIZ_OLD!INICOS!COSMOL#HELBIG_ANGSIZ_OLD!INICOS!ANGINI#HELBIG_ANGSIZ_OLD!INICOS!FIX#INICOS%MAX#INICOS%COS#INICOS%ACOS#INICOS%SQRT#INICOS%ABS#INICOS%DBLE#INICOS%REAL#LAMBDR#OMEGAR#ETAR#VARETA#DEBUG#WMTYPE#MAXZ#ZMAXR #BOUNCE!#ERROR"@ #INICOS%COSMOL%LAMNUL#INICOS%COSMOL%OMENUL#INICOS%COSMOL%ETAETA#INICOS%COSMOL%K@@ @@ @@ @@@ @$#INICOS%ANGINI%ZZMAX#INICOS%ANGINI%IERROR #INICOS%ANGINI%TYPEWM #INICOS%ANGINI%NOTYET #INICOS%ANGINI%ETAVAR #INICOS%ANGINI%DEEBUG #INICOS%ANGINI%MMAXZ#INICOS%ANGINI%BOUNCY@@ @@ @@  @@ @@ @@ @@@@ @#INICOS%FIX%ZZREAL@@ @MAX@COS@ACOS@SQRT@ABS@DBLE@REAL@@ @@ @@ @@D@D@D@  D@!D@"#@ ##HELBIG_ANGSIZ_OLD!ANGSIZ!ANGINI$#HELBIG_ANGSIZ_OLD!ANGSIZ!BNCSIZ-#HELBIG_ANGSIZ_OLD!ANGSIZ!CNTRCT1#HELBIG_ANGSIZ_OLD!ANGSIZ!MERROR3#HELBIG_ANGSIZ_OLD!ANGSIZ!ARTHUR5#HELBIG_ANGSIZ_OLD!ANGSIZ!FIX7#ANGSIZ%SIGN9#ANGSIZ%SQRT:#ANGSIZ%DBLE;#ANGSIZ%REAL<#Z1R=#Z2R>#D12R?#ERROR@@$$#ANGSIZ%ANGINI%ZMAX%#ANGSIZ%ANGINI%IERROR&#ANGSIZ%ANGINI%WMTYPE'#ANGSIZ%ANGINI%NOTYET(#ANGSIZ%ANGINI%VARETA)#ANGSIZ%ANGINI%DEBUG*#ANGSIZ%ANGINI%MAXZ+#ANGSIZ%ANGINI%BOUNCE,@% @@&@' @(@)@@@*@+@, @-#ANGSIZ%BNCSIZ%ZZ1.#ANGSIZ%BNCSIZ%ZZ2/#ANGSIZ%BNCSIZ%DD120@@. @@/ @@0 @1#ANGSIZ%CNTRCT%VALUE22@@2@3#ANGSIZ%MERROR%MSTEP4@4@5#ANGSIZ%ARTHUR%RISK6@6@7#ANGSIZ%FIX%ZZREAL8@8 @9SIGN@:SQRT@;DBLE@<REAL@@= @@> D@? D@@#@ A#HELBIG_ANGSIZ_OLD!BNGSIZ!ANGINIB#HELBIG_ANGSIZ_OLD!BNGSIZ!BNCSIZK#HELBIG_ANGSIZ_OLD!BNGSIZ!LOWSIZO#HELBIG_ANGSIZ_OLD!BNGSIZ!WHICHQ#HELBIG_ANGSIZ_OLD!BNGSIZ!CNTRCTS#HELBIG_ANGSIZ_OLD!BNGSIZ!MERRORU#BNGSIZ%SIGNW#BNGSIZ%SQRTX#BNGSIZ%REALY#D14RZ#D34R[#D32R\#ERROR]@B$#BNGSIZ%ANGINI%ZMAXC#BNGSIZ%ANGINI%IERRORD#BNGSIZ%ANGINI%WMTYPEE#BNGSIZ%ANGINI%NOTYETF#BNGSIZ%ANGINI%VARETAG#BNGSIZ%ANGINI%DEBUGH#BNGSIZ%ANGINI%MAXZI#BNGSIZ%ANGINI%BOUNCEJ@C @@D@E @F@G@@@H@I@J @K#BNGSIZ%BNCSIZ%Z1L#BNGSIZ%BNCSIZ%Z2M#BNGSIZ%BNCSIZ%D12N@L @M @N @O#BNGSIZ%LOWSIZ%YSTARTP @@@P ppp@Q#BNGSIZ%WHICH%CHOICER@R@S#BNGSIZ%CNTRCT%VALUE2T@@T@U#BNGSIZ%MERROR%MSTEPV@V@WSIGN@XSQRT@YREALD@Z D@[ D@\ D@]%@  ^  #HELBIG_ANGSIZ_OLD!ETAZ!ANGINI_#HELBIG_ANGSIZ_OLD!ETAZ!WHICHh#HELBIG_ANGSIZ_OLD!ETAZ!CNTRCTj#ETAZ%LOG10l#ETAZ%SQRTm#Zn@_$#ETAZ%ANGINI%ZMAX`#ETAZ%ANGINI%IERRORa#ETAZ%ANGINI%WMTYPEb#ETAZ%ANGINI%NOTYETc#ETAZ%ANGINI%VARETAd#ETAZ%ANGINI%DEBUGe#ETAZ%ANGINI%MAXZf#ETAZ%ANGINI%BOUNCEg@` @a@b @c@d@e@f@g @h#ETAZ%WHICH%CHOICEi@i@j#ETAZ%CNTRCT%VALUE2k@k@lLOG10@mSQRT@n #@ o#XINp#NVARq#YINr#DYDXs#HTOTt#NSTEPu#DERIVSv#YOUTw@p  @q @r p5Op5Op @s p5Op5Op@t @u# @v  D@@w p5Op5Op#@ x#POLEX%MINy#NVz#XEST{#YEST|#NCALL}#NUSE~#YOUT#DY@yMIN @z@{  @| p5Op5Op@@}@@~ D@ p5Op5Op D@ p5Op5Op%@    #HELBIG_ANGSIZ_OLD!QQ!COSMOL#V@ #QQ%COSMOL%LAMBDA#QQ%COSMOL%OMEGA#QQ%COSMOL%ETA#QQ%COSMOL%K@ @ @ @ @ @ #LAMBDA#OMEGA#ETA#K@ @ @ @ @$#ZMAX#ERROR#WMTYPE#NOTYET#VARETA#DEBUG#MAXZ#BOUNCE@ @@ @@@@@ @#CHOICE@@#RISK@@#ZZREAL@ jfn#fn'3buapp(HELBIG_ANGSIZ_OLDEINICOS0HELBIG_ANGSIZ_OLD!INICOS!COSMOL%@INICOS%COSMOL%LAMNUL%@INICOS%COSMOL%OMENUL%@INICOS%COSMOL%ETAETA A@INICOS%COSMOL%K0HELBIG_ANGSIZ_OLD!INICOS!ANGINI$@INICOS%ANGINI%ZZMAX%@INICOS%ANGINI%IERROR%@INICOS%ANGINI%TYPEWM%W@INICOS%ANGINI%NOTYET%@INICOS%ANGINI%ETAVAR%@INICOS%ANGINI%DEEBUG$@INICOS%ANGINI%MMAXZ%W@INICOS%ANGINI%BOUNCY-_HELBIG_ANGSIZ_OLD!INICOS!FIX"@INICOS%FIX%ZZREAL64INICOS%MAXj4INICOS%COS5INICOS%ACOS5INICOS%SQRT 4INICOS%ABS< 5INICOS%DBLEq 5INICOS%REAL 8aINICOS%LAMBDR 8aINICOS%OMEGAR 8aINICOS%ETARN 8aINICOS%VARETA 8aINICOS%DEBUG 8aINICOS%WMTYPE 8aINICOS%MAXZ. 8aINICOS%ZMAXRf 8aINICOS%BOUNCE 8aINICOS%ERROR ANGSIZ0\ HELBIG_ANGSIZ_OLD!ANGSIZ!ANGINI#o@ANGSIZ%ANGINI%ZMAX%@ANGSIZ%ANGINI%IERROR%@ANGSIZ%ANGINI%WMTYPE%/@ANGSIZ%ANGINI%NOTYET%o@ANGSIZ%ANGINI%VARETA$@ANGSIZ%ANGINI%DEBUG#@ANGSIZ%ANGINI%MAXZ%/@ANGSIZ%ANGINI%BOUNCE0oHELBIG_ANGSIZ_OLD!ANGSIZ!BNCSIZ"@ANGSIZ%BNCSIZ%ZZ1"=@ANGSIZ%BNCSIZ%ZZ2#}@ANGSIZ%BNCSIZ%DD120bHELBIG_ANGSIZ_OLD!ANGSIZ!CNTRCT%@ANGSIZ%CNTRCT%VALUE20_aHELBIG_ANGSIZ_OLD!ANGSIZ!MERROR$@ANGSIZ%MERROR%MSTEP0`HELBIG_ANGSIZ_OLD!ANGSIZ!ARTHUR#`@ANGSIZ%ARTHUR%RISK-_HELBIG_ANGSIZ_OLD!ANGSIZ!FIX"@ANGSIZ%FIX%ZZREAL?5ANGSIZ%SIGNt5ANGSIZ%SQRT5ANGSIZ%DBLE5ANGSIZ%REAL8aANGSIZ%Z1RK8aANGSIZ%Z2R8aANGSIZ%D12R8aANGSIZ%ERRORyBNGSIZ0lHELBIG_ANGSIZ_OLD!BNGSIZ!ANGINI#@BNGSIZ%ANGINI%ZMAX%@BNGSIZ%ANGINI%IERROR%@BNGSIZ%ANGINI%WMTYPE%?@BNGSIZ%ANGINI%NOTYET%@BNGSIZ%ANGINI%VARETA$@BNGSIZ%ANGINI%DEBUG#@BNGSIZ%ANGINI%MAXZ%?@BNGSIZ%ANGINI%BOUNCE0HELBIG_ANGSIZ_OLD!BNGSIZ!BNCSIZ! @BNGSIZ%BNCSIZ%Z1!J@BNGSIZ%BNCSIZ%Z2"@BNGSIZ%BNCSIZ%D120bHELBIG_ANGSIZ_OLD!BNGSIZ!LOWSIZ%,BNGSIZ%LOWSIZ%YSTART/aHELBIG_ANGSIZ_OLD!BNGSIZ!WHICH$@BNGSIZ%WHICH%CHOICE0]bHELBIG_ANGSIZ_OLD!BNGSIZ!CNTRCT%@BNGSIZ%CNTRCT%VALUE20aHELBIG_ANGSIZ_OLD!BNGSIZ!MERROR$`@BNGSIZ%MERROR%MSTEP5BNGSIZ%SIGN5BNGSIZ%SQRT