tanh(x) computes the hyperbolic tangent of x.
FORTRAN 77 and later, for a complex argument Fortran 2008 or later
x = tanh(x)
x - The type shall be real or complex.The return value has same type and kind as x. If x is complex, the imaginary part of the result is in radians. If x is real, the return value lies in the range .
program test_tanh
real(8) :: x = 2.1_8
x = tanh(x)
end program test_tanh