/*
	ZERO and return EXTEND FORMAT FLOAT
*/

#include "FP_types.h"

zrf_ext(e)
EXTEND	*e;
{
	register short *ipt;
	register short  i;
	register short zero = 0;

	/*	local CAST conversion	*/
	ipt = (short *) e;

	i = sizeof(EXTEND)/sizeof(short);
	while (i--)
		*ipt++ = zero;
}