cos_reduced Function

private elemental function cos_reduced(r) result(y)

Horner cos Taylor on |r| ≤ π/4. 9 even-power terms.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: r

Return Value real(kind=wp)


Called by

proc~~cos_reduced~~CalledByGraph proc~cos_reduced cos_reduced proc~safe_cos_polynomial safe_cos_polynomial proc~safe_cos_polynomial->proc~cos_reduced proc~safe_sin_polynomial safe_sin_polynomial proc~safe_sin_polynomial->proc~cos_reduced

Variables

Type Visibility Attributes Name Initial
real(kind=wp), private :: p
real(kind=wp), private :: u

Source Code

   elemental function cos_reduced(r) result(y)
      !! Horner cos Taylor on |r| ≤ π/4.  9 even-power terms.
      real(wp), intent(in) :: r
      real(wp) :: y
      real(wp) :: u, p

      u = r*r
      p = COS_C8
      p = p*u + COS_C7
      p = p*u + COS_C6
      p = p*u + COS_C5
      p = p*u + COS_C4
      p = p*u + COS_C3
      p = p*u + COS_C2
      p = p*u + COS_C1
      p = p*u + COS_C0
      y = p
   end function cos_reduced