Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0001/dtanh.for
There is 1 other file named dtanh.for in the archive. Click here to see a list.
	FUNCTION DTANH (X)
	DOUBLE PRECISION DTANH, X
	DTANH = TANH (SNGL(X))
	RETURN
	END