V10/cmd/lcc/port.bak/iflr.c

/* iflr.f -- translated by f2c (version of 5 February 1993  1:37:14).
   You must link the resulting object file with the libraries:
	-lF77 -lI77 -lm -lc   (in that order)
*/

#include "f2c.h"

integer iflr_(x)
real *x;
{
    /* System generated locals */
    integer ret_val;


/*  IFLR RETURNS FLR(X) */

    ret_val = (integer) (*x);
    if (*x >= (float)0.) {
	return ret_val;
    }
    if ((real) ret_val != *x) {
	--ret_val;
    }

    return ret_val;
} /* iflr_ */