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

/*****************************************************
 * math1/gnmlib/gnsave.f
 ****************************************************/
/* 
 *      SUBROUTINE GNSAVE
 */
      SUBROUTINE GNSAVE(
      )

/* 
 *      ENTRY GNRSET
 */
      SUBROUTINE GNRSET(
      )

/*****************************************************
 * math1/gnmlib/gnsblk.f
 ****************************************************/
/* 
 *      SUBROUTINE GNSBLK(XB,NB)
 *      REAL      XB(*)
 */
      SUBROUTINE GNSBLK(
          REAL (NB) XB
          INTEGER NB
      )

/* 
 *      ENTRY GNQBLK(XB,NB)
 *      REAL      XB(*)
 */
      SUBROUTINE GNQBLK(
          REAL (NB) o XB
          INTEGER o NB
      )

/* 
 *      ENTRY GNLT(RX,BX,IP)
 */
      SUBROUTINE GNLT(
          REAL RX
          REAL o BX
          INTEGER o IP
      )

/* 
 *      ENTRY GNLE(RX,BX,IP)
 */
      SUBROUTINE GNLE(
          REAL RX
          REAL o BX
          INTEGER o IP
      )

/* 
 *      ENTRY GNGT(RX,BX,IP)
 */
      SUBROUTINE GNGT(
          REAL RX
          REAL o BX
          INTEGER o IP
      )

/* 
 *      ENTRY GNGE(RX,BX,IP)
 */
      SUBROUTINE GNGE(
          REAL RX
          REAL o BX
          INTEGER o IP
      )

/*****************************************************
 * math1/gnmlib/rgnlt.f
 ****************************************************/
/* 
 *      REAL FUNCTION RGNLT(RX)
 */
      REAL FUNCTION RGNLT(
          REAL RX
      )

/*****************************************************
 * math1/gnmlib/rgnle.f
 ****************************************************/
/* 
 *      REAL FUNCTION RGNLE(RX)
 */
      REAL FUNCTION RGNLE(
          REAL RX
      )

/*****************************************************
 * math1/gnmlib/rgnge.f
 ****************************************************/
/* 
 *      REAL FUNCTION RGNGE(RX)
 */
      REAL FUNCTION RGNGE(
          REAL RX
      )

/*****************************************************
 * math1/gnmlib/rgngt.f
 ****************************************************/
/* 
 *      REAL FUNCTION RGNGT(RX)
 */
      REAL FUNCTION RGNGT(
          REAL RX
      )