Example #1
0
/*--------------------------------------------------------------------------*/
static void cdffErr(int status, double bound)
{
    static char *param[7] = {"X", "P", "Q", "F", "Dfn", "Dfd"};
    switch ( status )
    {
        case 1 :
        {
            cdfLowestSearchError(bound);
        }
        break;
        case 2 :
        {
            cdfGreatestSearchError(bound);
        }
        break;
        case 3 :
        {
            Scierror(999, " P + Q .ne. 1 \n");
        }
        break ;
        default :
        {
            CdfDefaultError(param, status, bound);
        }
        break;
    }
}
Example #2
0
/*--------------------------------------------------------------------------*/
static void cdfnorErr(int status, double bound)
{
    static char *param[7] = {"X", "P", "Q", "X", "Mean", "Std"};
    switch ( status )
    {
        case 1 :
        {
            cdfLowestSearchError(bound);
        }
        break;
        case 2 :
        {
            cdfGreatestSearchError(bound);
        }
        break;
        case 3 :
        {
            Scierror(999, " P + Q .ne. 1\n");
        }
        break;
        case 4 :
        {
            Scierror(999, _(" Std must not be zero\n"));
        }
        break;
        default :
        {
            CdfDefaultError(param, status, bound);
        }
        break;
    }
}
Example #3
0
/*--------------------------------------------------------------------------*/
static void cdfbetErr(int status, double bound)
{
    static char *param[] = {"-PQXYAB"};
    switch ( status )
    {
        case 1 :
        {
            cdfLowestSearchError(bound);
        }
        break;
        case 2 :
        {
            cdfGreatestSearchError(bound);
        }
        break;
        case 3 :
        {
            Scierror(999, " P + Q .ne. 1 \n");
        }
        break ;
        case 4 :
        {
            Scierror(999, " X + Y .ne. 1 \n");
        }
        break;
        default :
        {
            CdfDefaultError(param, status, bound);
        }
        break;
    }
}
Example #4
0
/*--------------------------------------------------------------------------*/
static void cdfbinErr(int status,double bound)
{
    static char *param[7] = {"Which", "P","Q","Pr","Ompr","S","Xn"};
    switch ( status )
    {
    case 1 :
        {
            cdfLowestSearchError(bound);
        }
        break;

    case 2 : 
        {
            cdfGreatestSearchError(bound);
        }
        break;

    case 3 : 
        {
            Scierror(999," P + Q .ne. 1 \n");
        }
        break;

    case 4 : 
        {
            Scierror(999," Pr + Ompr .ne. 1 \n");
        }
        break;

    default :
        {
            CdfDefaultError(param, status, bound);
        }
        break;
    }
}