source/unres/src-HCD-5D/arcos.f

   1       double precision FUNCTION ARCOS(X)
   2       implicit none
   3       double precision x
   4       include 'COMMON.GEO'
   5       IF (DABS(X).LT.1.0D0) GOTO 1
   6       ARCOS=PIPOL*(1.0d0-DSIGN(1.0D0,X))
   7       RETURN
   8     1 ARCOS=DACOS(X)
   9       RETURN
  10       END