/* fudge enter fudge factors, or some arbitrary number, with fudge command
 * other sections of the code access these numbers via the common block 
 * prototype for this function is in cddefines.h so that it can be used without
 * declarations */
#include "cddefines.h"
#include "fudgec.h"

double fudge(long int ipnt)
{
	double fudge_v;

#	ifdef DEBUG_FUN
	fputs( "<+>fudge()\n", debug_fp );
#	endif

	if( ipnt >= fudgec.nfudge )
	{
		fprintf( ioQQQ, " FUDGE factor not entered for array number %3ld\n", 
		  ipnt );
		puts( "[Stop in fudge]" );
		exit(1);
	}
	else
	{
		fudge_v = fudgec.fudgea[ipnt];
	}


#	ifdef DEBUG_FUN
	fputs( " <->fudge()\n", debug_fp );
#	endif
	return( fudge_v );
}