The TAN function returns the trigonometric tangent of a REAL argument.

## Syntax

TAN (x)

*x* is an INTENT(IN) scalar or array of type REAL, and must be expressed in radians.

The result is of the same type and kind as *x*. Its value is a REAL representation of the tangent of *x*.

## Example

real ::x..5,y(2)=(/1.,1./) write(*,*) tan(x) ! writes .54630249 write(*,*) tan(y) ! writes 1.5574077 1.5574077