The TAN function returns the trigonometric tangent of a REAL argument.
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.
Examplereal :: x..5,y(2)=(/1.,1./) write(*,*) tan(x) ! writes .54630249 write(*,*) tan(y) ! writes 1.5574077 1.5574077