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

/*****************************************************
 * math1/fnclib/igus.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IGUS(RX)
 */
      INTEGER FUNCTION IGUS(
          REAL RX
      )

/*****************************************************
 * math1/fnclib/imod.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IMOD(IX,ID)
 */
      INTEGER FUNCTION IMOD(
          INTEGER IX
          INTEGER ID
      )

/*****************************************************
 * math1/fnclib/rmod.f
 ****************************************************/
/* 
 *      REAL FUNCTION RMOD(RX,RD)
 */
      REAL FUNCTION RMOD(
          REAL RX
          REAL RD
      )

/*****************************************************
 * math1/fnclib/rexp.f
 ****************************************************/
/* 
 *      REAL FUNCTION REXP(RX,IB,IE)
 */
      REAL FUNCTION REXP(
          REAL RX
          INTEGER IB
          INTEGER IE
      )

/*****************************************************
 * math1/fnclib/rd2r.f
 ****************************************************/
/* 
 *      REAL FUNCTION RD2R(X)
 */
      REAL FUNCTION RD2R(
          REAL X
      )

/*****************************************************
 * math1/fnclib/rr2d.f
 ****************************************************/
/* 
 *      REAL FUNCTION RR2D(X)
 */
      REAL FUNCTION RR2D(
          REAL X
      )

/*****************************************************
 * math1/fnclib/rfpi.f
 ****************************************************/
/* 
 *      REAL FUNCTION RFPI()
 */
      REAL FUNCTION RFPI(
      )