coshm_fun Function

private elemental function coshm_fun(x)

Calculate coshm(x) = cosh(x) - 1

Arguments

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

Return Value real


Contents

Source Code


Source Code

  elemental real function coshm_fun(x)
    real, intent(in) :: x
    coshm_fun = cosh(x) - 1
  end function coshm_fun