safe_cos Function

public elemental function safe_cos(x) result(y)

cos(x). Plain elemental inline around the intrinsic; see safe_exp and the module docstring.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	x

Return Value real(kind=wp)

Source Code

   elemental function safe_cos(x) result(y)
      !! `cos(x)`.  Plain elemental inline around the intrinsic; see
      !! `safe_exp` and the module docstring.
      real(wp), intent(in) :: x
      real(wp) :: y
      y = cos(x)
   end function safe_cos