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 are no other files named dtanh.for in the archive.
	FUNCTION DTANH (X)
	DOUBLE PRECISION DTANH, X
	DTANH = TANH (SNGL(X))
	RETURN
	END