11711Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21711Smckusick 3*3037Smckusic static char sccsid[] = "@(#)TRUNC.c 1.2 03/07/81"; 41711Smckusick 5*3037Smckusic long 61711Smckusick TRUNC(value) 71711Smckusick 81711Smckusick double value; 91711Smckusick { 101711Smckusick return (long)(value); 111711Smckusick } 12