 
      DOUBLE PRECISION FUNCTION DASINH(X)
C***BEGIN PROLOGUE  DASINH
C***DATE WRITTEN   770601   (YYMMDD)
C***REVISION DATE  820801   (YYMMDD)
C***CATEGORY NO.  C4C
C***KEYWORDS  DOUBLE PRECISION,ELEMENTARY FUNCTION,
C             INVERSE HYPERBOLIC SINE
C***AUTHOR  FULLERTON, W., (LANL)
C***PURPOSE  Computes the arc hyperbolic Sine.
C***DESCRIPTION
C
C DASINH(X) calculates the double precision arc hyperbolic
C sine for double precision argument X.
C***REFERENCES  (NONE)
C***ROUTINES CALLED  D1MACH,DCSEVL,INITDS
C***END PROLOGUE  DASINH
 
 
