acos(x) computes the arccosine of
x (inverse of
result = acos(x)
x- The type shall be
realwith a magnitude that is less than one.
The return value is of the same type and kind as
x. The real part of the result is in radians and lies in the range .
program test_acos real(8) :: x = 0.866_8 x = acos(x) end program test_acos
Inverse function: cos