coshmm_fun Function

private elemental function coshmm_fun(x)

Calculate coshmm(x) = (cosh(x) - 1 - x * x / 2) / (x * x)

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: x

Return Value real


Contents

Source Code

coshmm_fun

Source Code

  elemental real function coshmm_fun(x)
    real, intent(in) :: x
    if (is_zero(x)) then
       coshmm_fun = 0
    else
       coshmm_fun = (cosh(x) - 1 - x*x/2) / (x*x)
    end if
  end function coshmm_fun