00100	      FUNCTION DARCOS(X)
00200	      DOUBLE PRECISION X
00300	      DARCOS=DATAN(DSQRT(1-X**2)/X)
00400	      RETURN
00500	      END

