funA Function

private pure function funA(b, x, y) result(ret)

Arguments

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

Return Value real(kind=dp)


Contents

Source Code

funA

Source Code

    pure function funA(b, x, y) result(ret)
        real(dp), intent(in) :: b, x, y
        real(dp) :: ret
        !ASSERT( (b + y) >= 0.0_dp)
        ret = sqrt((b + x) / (b + y))
    end function funA