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