A2k820309F 48C8LV7.55F DISK$USER:[HELBIG.PROGRAMME.LIBRARY.COSMOL.ANGSIZ.1_2-0]HELBIG_ANGSIZ.F90;7HELBIG_ANGSIZ_OLDINICOSANGSIZBNGSIZCHOICERISKLOOPS#@  #INICOS%MAX#INICOS%COS#INICOS%ACOS#INICOS%SQRT#INICOS%ABS#INICOS%DBLE#INICOS%REAL#LAMBDR #OMEGAR #ETAR #ETAVAR #DEEBUG #TYPEWM#MMAXZ#ZMAXR#BOUNCY#IERROR@MAX@COS@ACOS@SQRT@ABS@DBLE@REAL@@  @@  @@  @ @ D@D@D@ D@D@#@ #ANGSIZ%SIGN#ANGSIZ%SQRT#ANGSIZ%DBLE#ANGSIZ%REAL#Z1R#Z2R#D12R#IERROR@SIGN@SQRT@DBLE@REAL@@ @@ D@ D@#@ #HELBIG_ANGSIZ_OLD!BNGSIZ!BNCSIZ#HELBIG_ANGSIZ_OLD!BNGSIZ!LOWSIZ!#HELBIG_ANGSIZ_OLD!BNGSIZ!CNTRCT##HELBIG_ANGSIZ_OLD!BNGSIZ!MERROR%#BNGSIZ%SIGN'#BNGSIZ%SQRT(#BNGSIZ%REAL)#D14R*#D34R+#D32R,#IERROR-@#BNGSIZ%BNCSIZ%Z1#BNGSIZ%BNCSIZ%Z2#BNGSIZ%BNCSIZ%D12 @ @ @  @!#BNGSIZ%LOWSIZ%YSTART" @@@" ppp@##BNGSIZ%CNTRCT%VALUE2$@@$@%#BNGSIZ%MERROR%MSTEP&@&@'SIGN@(SQRT@)REALD@* D@+ D@, D@-  .  / @ 0ffn#fn'3buapp(HELBIG_ANGSIZ_OLDA(INICOSi4INICOS%MAX4INICOS%COS5INICOS%ACOS5INICOS%SQRT;4INICOS%ABSo5INICOS%DBLE5INICOS%REAL8aINICOS%LAMBDR8aINICOS%OMEGARI8aINICOS%ETAR8aINICOS%ETAVAR8aINICOS%DEEBUG8aINICOS%TYPEWM)8aINICOS%MMAXZa8aINICOS%ZMAXR8aINICOS%BOUNCY8aINICOS%IERROR ANGSIZ5ANGSIZ%SIGN5ANGSIZ%SQRT5ANGSIZ%DBLET5ANGSIZ%REAL8aANGSIZ%Z1R8aANGSIZ%Z2R8aANGSIZ%D12R18aANGSIZ%IERRORi1BNGSIZ0 HELBIG_ANGSIZ_OLD!BNGSIZ!BNCSIZ!% @BNGSIZ%BNCSIZ%Z1!e @BNGSIZ%BNCSIZ%Z2" @BNGSIZ%BNCSIZ%D120