[mod.computers.gould] LIBPC TRUNC.c

klimbal@EE.PURDUE.EDU (11/22/85)

In order for trunc to work correctly on the 9080 the return value
must first be cast to a float and then to a long. 

	/* Copyright (c) 1979 Regents of the University of California */

	static char sccsid[] = "@(#)TRUNC.c 1.2 3/7/81";

	long
	TRUNC(value)

		double	value;
	{
		return (long)(float)(value);
	}

--Phil