/*--------------------------------------------------------------------------*/
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;
}
}
/*--------------------------------------------------------------------------*/
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;
}
}
/*--------------------------------------------------------------------------*/
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;
}
}
/*--------------------------------------------------------------------------*/
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;
}
}