[unix-history] / usr / src / usr.bin / f77 / libF77 / r_int.c

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 *
 *	@(#)r_int.c	5.2	%G%
 */

float r_int(x)
float *x;
{
double floor();

return( (*x >= 0) ? floor(*x) : -floor(- *x) );
}
Commit	Line	Data
3f950039	1	/*
e309c71b RE	2	* Copyright (c) 1980 Regents of the University of California.
	3	* All rights reserved. The Berkeley software License Agreement
	4	* specifies the terms and conditions for redistribution.
	5	*
46452188	6	* @(#)r_int.c 5.2 %G%
3f950039 DW	7	*/
3f950039 DW	8
46452188	9	float r_int(x)
3f950039 DW	10	float *x;
	11	{
	12	double floor();
	13
	14	return( (x >= 0) ? floor(x) : -floor(- *x) );
	15	}