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