1 /* Copyright (c) 1979 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)TRUNC.c 1.2 03/07/81"; 4 5 long 6 TRUNC(value) 7 8 double value; 9 { 10 return (long)(value); 11 } 12