funD Function

private pure function funD(b, x) result(ret)

Arguments

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

Return Value real(kind=dp)


Contents

Source Code

funD

Source Code

    pure function funD(b, x) result(ret)
        real(dp), intent(in) :: b, x
        real(dp) :: ret
        !ASSERT( (b + x) > 0.0_dp)
        ret = funA(b, x + 2.0_dp, x) * funA(b, x - 1.0_dp, x + 1.0_dp)
    end function funD