8 lines
75 B
FortranFixed
8 lines
75 B
FortranFixed
function tanh(a)
|
|
|
|
b = exp(a)
|
|
c = 1.0/b
|
|
tanh = (b-c)/(b+c)
|
|
return
|
|
end
|