tanh.f

UNIX v6源代码 这几乎是最经典的unix版本 unix操作系统设计和莱昂氏unix源代码分析都是用的该版

	function tanh(a)

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