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