MiniUnix/usr/source/fort/rt1/tanh.f
Find at most
5
10
20
50
100
500
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