/*
	return a zero float
*/

#include "FP_types.h"

zrf4(l)
long	*l;
{
	*l = 0L;
}