tanh.f

Version 6 Unix 核心源代码 Version 6 Unix 核心源代码

	function tanh(a)

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