real function ASIND( x)
	real x
c
c	This FORTRAN callable function returns the ARCSINE
c	of  a specified value as an angle in degrees.
c
	if (ABS( x) .lt. 1.0) go to 100
	ASIND = x * 90.0
	return
c
c	Use trigonometric identity to calculate ARCSINE of X.
c	Then convert radians to degrees.
c
  100	radang = ATAN( x / SQRT( 1.0-x**2))
	ASIND = radang * 57.29577951
	return
c
	end