/*
 * math1_intlib.fp
 *
 * $Id: math1_intlib.fp,v 1.1 2000/11/19 16:00:16 keiko Exp $
 */

/*****************************************************
 * math1/intlib/irlt.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IRLT(RX)
 */
      INTEGER FUNCTION IRLT(
          REAL RX
      )

/*****************************************************
 * math1/intlib/irge.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IRGE(RX)
 */
      INTEGER FUNCTION IRGE(
          REAL RX
      )

/*****************************************************
 * math1/intlib/irle.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IRLE(RX)
 */
      INTEGER FUNCTION IRLE(
          REAL RX
      )

/*****************************************************
 * math1/intlib/irgt.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IRGT(RX)
 */
      INTEGER FUNCTION IRGT(
          REAL RX
      )