FUNCTION DTANH (X)
	DOUBLE PRECISION DTANH, X
	DTANH = TANH (SNGL(X))
	RETURN
	END