commit 9f397368cce0b94f76d4f1d74150ccc75c498e8b
author Wolfgang Pechlaner <libo@pechlaner.at> Mon Sep 12 05:36:51 2011 -0500
committer Norbert Thiebaud <nthiebaud@gmail.com> Mon Sep 12 05:37:15 2011 -0500
tree 0bba88f0e8c4937f80006c87506d52133b61c532
parent 9e126721bcffb2b588560da886b95b15551c683b

fdo#40759 Fix GAMMADIST() result for x=0

sc/source/core/tool/interpr6.cxx

diff --git a/sc/source/core/tool/interpr6.cxx b/sc/source/core/tool/interpr6.cxx
index abd6f18..573a4d7 100644
--- a/sc/source/core/tool/interpr6.cxx
+++ b/sc/source/core/tool/interpr6.cxx
@@ -152,8 +152,25 @@ double ScInterpreter::GetUpRegIGamma( double fA, double fX )
double ScInterpreter::GetGammaDistPDF( double fX, double fAlpha, double fLambda )
{
    RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "sc", "er", "ScInterpreter::GetGammaDistPDF" );
    if (fX <= 0.0)
    if (fX < 0.0)
        return 0.0;     // see ODFF
    else if (fX == 0)
        // in this case 0^0 isn't zero
    {
        if (fAlpha < 1.0)
        {
            SetError(errDivisionByZero);  // should be #DIV/0
            return HUGE_VAL;
        }
        else if (fAlpha == 1)
        {
            return (1.0 / fLambda);
        }
        else
        {
            return 0.0;
        }
    }
    else
    {
        double fXr = fX / fLambda;