'(k820309 DISK$USER:[HELBIG.PROGRAMME.LIBRARY.COSMOL.ANGSIZ]HELBIG_ANGSIZ_OLD.FOR;19HELBIG_ANGSIZ_OLDINICOSANGSIZBNGSIZETAZMMMPOLEXQQ#@  HELBIG_ANGSIZ_OLD!INICOS!COSMOLHELBIG_ANGSIZ_OLD!INICOS!ANGINIHELBIG_ANGSIZ_OLD!INICOS!FIXINICOS%MAXINICOS%COSINICOS%ACOSINICOS%SQRTINICOS%ABSINICOS%DBLEINICOS%REALLAMBDROMEGARETARVARETADEBUGWMTYPEMAXZZMAXRBOUNCEERROR INICOS%COSMOL%LAMNULINICOS%COSMOL%OMENULINICOS%COSMOL%ETAETAINICOS%COSMOL%K@ @  @( @0 $INICOS%ANGINI%ZZMAXINICOS%ANGINI%IERRORINICOS%ANGINI%TYPEWMINICOS%ANGINI%NOTYETINICOS%ANGINI%ETAVARINICOS%ANGINI%DEEBUGINICOS%ANGINI%MMAXZINICOS%ANGINI%BOUNCY@ @@ @@@@'@.  INICOS%FIX%ZZREAL@  'MAX'COSACOSSQRTABS;DBLEvREAL   ' ,3DD D% D+D2#@ HELBIG_ANGSIZ_OLD!ANGSIZ!ANGINIHELBIG_ANGSIZ_OLD!ANGSIZ!BNCSIZHELBIG_ANGSIZ_OLD!ANGSIZ!CNTRCTHELBIG_ANGSIZ_OLD!ANGSIZ!MERRORHELBIG_ANGSIZ_OLD!ANGSIZ!ARTHURHELBIG_ANGSIZ_OLD!ANGSIZ!FIXANGSIZ%SIGNANGSIZ%SQRTANGSIZ%DBLEANGSIZ%REALZ1RZ2RD12RERRORM$ANGSIZ%ANGINI%ZMAXANGSIZ%ANGINI%IERRORANGSIZ%ANGINI%WMTYPEANGSIZ%ANGINI%NOTYETANGSIZ%ANGINI%VARETAANGSIZ%ANGINI%DEBUGANGSIZ%ANGINI%MAXZANGSIZ%ANGINI%BOUNCEI @GG KK@AKK&K, TANGSIZ%BNCSIZ%ZZ1ANGSIZ%BNCSIZ%ZZ2ANGSIZ%BNCSIZ%DD12@R @R @R" ZANGSIZ%CNTRCT%VALUE2@X`ANGSIZ%MERROR%MSTEP^fANGSIZ%ARTHUR%RISKdmANGSIZ%FIX%ZZREALk ]SIGNI SQRT DBLEwREAL  D" D'#@ HELBIG_ANGSIZ_OLD!BNGSIZ!ANGINIHELBIG_ANGSIZ_OLD!BNGSIZ!BNCSIZHELBIG_ANGSIZ_OLD!BNGSIZ!LOWSIZHELBIG_ANGSIZ_OLD!BNGSIZ!WHICHHELBIG_ANGSIZ_OLD!BNGSIZ!CNTRCTHELBIG_ANGSIZ_OLD!BNGSIZ!MERRORBNGSIZ%SIGNBNGSIZ%SQRTBNGSIZ%REALD14RD34RD32RERROR$BNGSIZ%ANGINI%ZMAXBNGSIZ%ANGINI%IERRORBNGSIZ%ANGINI%WMTYPEBNGSIZ%ANGINI%NOTYETBNGSIZ%ANGINI%VARETABNGSIZ%ANGINI%DEBUGBNGSIZ%ANGINI%MAXZBNGSIZ%ANGINI%BOUNCE @ @A&, BNGSIZ%BNCSIZ%Z1BNGSIZ%BNCSIZ%Z2BNGSIZ%BNCSIZ%D12     BNGSIZ%LOWSIZ%YSTART @A pppBNGSIZ%WHICH%CHOICEBNGSIZ%CNTRCT%VALUE2@$BNGSIZ%MERROR%MSTEP"YSIGNSQRT REALD D D# D(%@  !  HELBIG_ANGSIZ_OLD!ETAZ!ANGINIHELBIG_ANGSIZ_OLD!ETAZ!WHICHHELBIG_ANGSIZ_OLD!ETAZ!CNTRCTETAZ%LOG10ETAZ%SQRTZ $ETAZ%ANGINI%ZMAXETAZ%ANGINI%IERRORETAZ%ANGINI%WMTYPEETAZ%ANGINI%NOTYETETAZ%ANGINI%VARETAETAZ%ANGINI%DEBUGETAZ%ANGINI%MAXZETAZ%ANGINI%BOUNCE         & ,  ETAZ%WHICH%CHOICE  ETAZ%CNTRCT%VALUE2 2 LOG10< SQRT & #@ _ XINNVARYINDYDXHTOTNSTEPDERIVSYOUT_   _  _  p5Op5Op _ # p5Op5Op_ ( _ -"_ 3 ( DA_ ; p5Op5Op#@  POLEX%MINNVXESTYESTNCALLNUSEYOUTDYp MIN       p5Op5Op % + D 2 p5Op5Op D 7 p5Op5Op%@ !  HELBIG_ANGSIZ_OLD!QQ!COSMOLV QQ%COSMOL%LAMBDAQQ%COSMOL%OMEGAQQ%COSMOL%ETAQQ%COSMOL%K   ' , $ efn#fn'3buapp(HELBIG_ANGSIZ_OLDH%INICOS0mHELBIG_ANGSIZ_OLD!INICOS!COSMOL%8INICOS%COSMOL%LAMNUL%48INICOS%COSMOL%OMENUL%l8INICOS%COSMOL%ETAETA 8INICOS%COSMOL%K0HELBIG_ANGSIZ_OLD!INICOS!ANGINI$8INICOS%ANGINI%ZZMAX%8INICOS%ANGINI%IERROR%28INICOS%ANGINI%TYPEWM%j8INICOS%ANGINI%NOTYET%8INICOS%ANGINI%ETAVAR%8INICOS%ANGINI%DEEBUG$8INICOS%ANGINI%MMAXZ%J8INICOS%ANGINI%BOUNCY-RHELBIG_ANGSIZ_OLD!INICOS!FIX"8INICOS%FIX%ZZREAL ,INICOS%MAX8,INICOS%COSd-INICOS%ACOS-INICOS%SQRT,INICOS%ABS-INICOS%DBLE-INICOS%REALD0aINICOS%LAMBDRt0aINICOS%OMEGAR0aINICOS%ETAR0aINICOS%VARETA 0aINICOS%DEBUG4 0aINICOS%WMTYPEd 0aINICOS%MAXZ 0aINICOS%ZMAXR 0aINICOS%BOUNCE 0aINICOS%ERROR$ 8ANGSIZ0\ HELBIG_ANGSIZ_OLD!ANGSIZ!ANGINI#? 8ANGSIZ%ANGINI%ZMAX%w 8ANGSIZ%ANGINI%IERROR% 8ANGSIZ%ANGINI%WMTYPE% 8ANGSIZ%ANGINI%NOTYET% 8ANGSIZ%ANGINI%VARETA$W 8ANGSIZ%ANGINI%DEBUG# 8ANGSIZ%ANGINI%MAXZ% 8ANGSIZ%ANGINI%BOUNCE0 wHELBIG_ANGSIZ_OLD!ANGSIZ!BNCSIZ"v8ANGSIZ%BNCSIZ%ZZ1"8ANGSIZ%BNCSIZ%ZZ2#8ANGSIZ%BNCSIZ%DD120UHELBIG_ANGSIZ_OLD!ANGSIZ!CNTRCT%s8ANGSIZ%CNTRCT%VALUE20THELBIG_ANGSIZ_OLD!ANGSIZ!MERROR$8ANGSIZ%MERROR%MSTEP07SHELBIG_ANGSIZ_OLD!ANGSIZ!ARTHUR#8ANGSIZ%ARTHUR%RISK-RHELBIG_ANGSIZ_OLD!ANGSIZ!FIX"8ANGSIZ%FIX%ZZREALL-ANGSIZ%SIGNy-ANGSIZ%SQRT-ANGSIZ%DBLE-ANGSIZ%REAL0aANGSIZ%Z1R00aANGSIZ%Z2R`0aANGSIZ%D12R0aANGSIZ%ERROR0BNGSIZ0HELBIG_ANGSIZ_OLD!BNGSIZ!ANGINI#8BNGSIZ%ANGINI%ZMAX% 8BNGSIZ%ANGINI%IERROR%C8BNGSIZ%ANGINI%WMTYPE%{8BNGSIZ%ANGINI%NOTYET%8BNGSIZ%ANGINI%VARETA$8BNGSIZ%ANGINI%DEBUG##8BNGSIZ%ANGINI%MAXZ%[8BNGSIZ%ANGINI%BOUNCE0tHELBIG_ANGSIZ_OLD!BNGSIZ!BNCSIZ!8BNGSIZ%BNCSIZ%Z1!?8BNGSIZ%BNCSIZ%Z2"w8BNGSIZ%BNCSIZ%D120UHELBIG_ANGSIZ_OLD!BNGSIZ!LOWSIZ%BNGSIZ%LOWSIZ%YSTART/THELBIG_ANGSIZ_OLD!BNGSIZ!WHICH$8BNGSIZ%WHICH%CHOICE0UHELBIG_ANGSIZ_OLD!BNGSIZ!CNTRCT%i8BNGSIZ%CNTRCT%VALUE20THELBIG_ANGSIZ_OLD!BNGSIZ!MERROR$8BNGSIZ%MERROR%MSTEP--BNGSIZ%SIGNZ-BNGSIZ%SQRT-BNGSIZ%REAL0aBNGSIZ%D14R0aBNGSIZ%D34R0aBNGSIZ%D32RD0aBNGSIZ%ERRORtETAZ.$HELBIG_ANGSIZ_OLD!ETAZ!ANGINI!8ETAZ%ANGINI%ZMAX#/8ETAZ%ANGINI%IERROR#g8ETAZ%ANGINI%WMTYPE#8ETAZ%ANGINI%NOTYET#8ETAZ%ANGINI%VARETA"8ETAZ%ANGINI%DEBUG!G8ETAZ%ANGINI%MAXZ#8ETAZ%ANGINI%BOUNCE-RHELBIG_ANGSIZ_OLD!ETAZ!WHICH" 8ETAZ%WHICH%CHOICE.ASHELBIG_ANGSIZ_OLD!ETAZ!CNTRCT#8ETAZ%CNTRCT%VALUE2.ETAZ%LOG10-ETAZ%SQRT' 0aETAZ%ZW aMMM 0aMMM%XIN 0aMMM%NVAR!aMMM%YIN!aMMM%DYDX0"0aMMM%HTOT`"0aMMM%NSTEP"0MMM%DERIVS"aMMM%YOUTL#bPOLEX#,POLEX%MIN#0aPOLEX%NV $