source/xdrfpdb/src/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=PIPOL*(1.0d0-DSIGN(1.0D0,X))
   6       RETURN
   7     1 ARCOS=DACOS(X)
   8       RETURN
   9       END