Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0100/darcos.for
There is 1 other file named darcos.for in the archive. Click here to see a list.
00100	      FUNCTION DARCOS(X)
00200	      DOUBLE PRECISION X
00300	      DARCOS=DATAN(DSQRT(1-X**2)/X)
00400	      RETURN
00500	      END