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