safe_sin Function

public elemental function safe_sin(x) result(y)

sin(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_sin(x) result(y)
      !! `sin(x)`.  Plain elemental inline around the intrinsic; see
      !! `safe_exp` and the module docstring.
      real(wp), intent(in) :: x
      real(wp) :: y
      y = sin(x)
   end function safe_sin