/*PutExtra enter and 'extra' intensity source for some line */
#include "cddefines.h"
#include "extrintn.h"
#include "putextra.h"

void PutExtra(double Extra)
{

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

	ExtrIntn.ExtraInten = (float)Extra;


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