00100	      FUNCTION DARSIN(X)
00200	      DOUBLE PRECISION X
00300	      DARSIN=DATAN(X/SQRT(1-X**2))
00400	      RETURN
00500	      END

