The COSH function returns the hyperbolic cosine of a REAL argument.
Syntax
COSH (x)
x is an INTENT(IN) scalar or array of type REAL.
The result is of the same type and kind as x. Its value is a REAL representation of the hyperbolic cosine of x.
Example
real :: x=.5,y(2)=(/1.,1./) write(*,*) cosh(x) ! writes 1.127626 write(*,*) cosh(y) ! writes 1.543081 1.543081