Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0001/dtanh.for
Click decus/20-0001/dtanh.for to see without markup as text/plain
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