source/wham/src-M/arcos.f

   1       FUNCTION ARCOS(X)
   2       implicit real*8 (a-h,o-z)
   3       include 'COMMON.GEO'
   4       IF (DABS(X).LT.1.0D0) GOTO 1
   5       ARCOS=0.5D0*(PI-DSIGN(1.0D0,X)*PI)
   6       RETURN
   7     1 ARCOS=DACOS(X)
   8       RETURN
   9       END