funOverB_0 Function

private pure function funOverB_0(b) result(ret)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: b

Return Value real(kind=dp)


Source Code

    pure function funOverB_0(b) result(ret)
        real(dp), intent(in) :: b
        real(dp) :: ret
        !ASSERT( b > 0.0_dp)
        ret = funOverB(b, 0.0_dp)
    end function funOverB_0