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