sinhm_fun Function

private elemental function sinhm_fun(x)

Calculate sinhm(x) = sinh(x) / x - 1

Arguments

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

Return Value real


Contents

Source Code

sinhm_fun

Source Code

  elemental real function sinhm_fun(x)
    real, intent(in) :: x
    if (is_zero(x)) then
       sinhm_fun = 0
    else
       sinhm_fun = sinh(x) / x - 1
    end if
  end function sinhm_fun