Trailing-Edge
-
PDP-10 Archives
-
decuslib10-06
-
43,50401/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