date and time created 91/04/16 14:59:05 by bostic

[unix-history] / usr / src / usr.bin / pascal / libpc / TRUNC.c

/*-
* Copyright (c) 1979 The Regents of the University of California.
* All rights reserved.
*
* %sccs.include.redist.c%
*/

#ifndef lint
static char sccsid[] = "@(#)TRUNC.c     1.3 (Berkeley) %G%";
#endif /* not lint */

long
TRUNC(value)

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