* (k820309F 48C8LV7.5MF DISK$USER:[HELBIG.PROGRAMME.LIBRARY.COSMOL.ANGSIZ.1_2-0]HELBIG_ANGSIZ.F90;80HELBIG_ANGSIZINICOSANGSIZBNGSIZCHOICERISKLOOPS#@  #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@#@ #BNGSIZ%SIGN#BNGSIZ%SQRT#BNGSIZ%REAL#D14R #D34R!#D32R"#IERROR#@SIGN@SQRT@REALD@  D@! D@" D@#  $  % @ &cfn#fn# 3buapp(HELBIG_ANGSIZ>(INICOSf4INICOS%MAX4INICOS%COS5INICOS%ACOS5INICOS%SQRT84INICOS%ABSl5INICOS%DBLE5INICOS%REAL8aINICOS%LAMBDR8aINICOS%OMEGARF8aINICOS%ETAR~8aINICOS%ETAVAR8aINICOS%DEEBUG8aINICOS%TYPEWM&8aINICOS%MMAXZ^8aINICOS%ZMAXR8aINICOS%BOUNCY8aINICOS%IERRORANGSIZ5ANGSIZ%SIGN5ANGSIZ%SQRT5ANGSIZ%DBLEQ5ANGSIZ%REAL8aANGSIZ%Z1R8aANGSIZ%Z2R8aANGSIZ%D12R.8aANGSIZ%IERRORfBNGSIZ 5BNGSIZ%SIGN8 5BNGSIZ%SQRTm 5BNGSIZ%REAL 8aBNGSIZ%D14R 8aBNGSIZ%D34R 8aBNGSIZ%D32RJ 8aBNGSIZ%IERROR 8CHOICE 8RISK