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