MiniUnix/usr/source/fort/rt1/tanh.f

Find at most related files.
including files from this version of Unix.

	function tanh(a)

	b = exp(a)
	c = 1.0/b
	tanh = (b-c)/(b+c)
	return
	end