--*********************************************************************
--*** TOP_LEVEL_ROOTB												***
--***																***
--*** Parameterized Square Root Function							***
--***																***
--*** Usage:														***
--***																***
--*** WIDTH : Input Word Precision - any value > 6					***
--*** PREC : Output Word Precision - any value > (WIDTH/2)			***
--***																***
--*** (WIDTH/2) most significant bits of output contain the root,	***
--*** following bits are the fractional portion of the root			***
--***																***
--*** Compile with Carry Chains										***
--***																***
--***																***
--***																***
--*********************************************************************

FUNCTION rootb (rad[WIDTH..1])
	RETURNS (root[PREC..1]);

PARAMETERS
(
 WIDTH = 12,
 PREC = 8
);

subdesign top_level_rootb
(
 rad[WIDTH..1] : INPUT;
 root[PREC..1] : OUTPUT;
)

BEGIN

  root[] = rootb (rad[]) WITH (WIDTH=WIDTH,PREC=PREC);

END;