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

/*****************************************************
 * math1/blklib/iblklt.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IBLKLT(RX,N,RR)
 *      REAL      RX(*)
 */
      INTEGER FUNCTION IBLKLT(
          REAL (N) RX
          INTEGER N
          REAL RR
      )

/*****************************************************
 * math1/blklib/iblkle.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IBLKLE(RX,N,RR)
 *      REAL      RX(*)
 */
      INTEGER FUNCTION IBLKLE(
          REAL (N) RX
          INTEGER N
          REAL RR
      )

/*****************************************************
 * math1/blklib/iblkgt.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IBLKGT(RX,N,RR)
 *      REAL      RX(*)
 */
      INTEGER FUNCTION IBLKGT(
          REAL (N) RX
          INTEGER N
          REAL RR
      )

/*****************************************************
 * math1/blklib/iblkge.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IBLKGE(RX,N,RR)
 *      REAL      RX(*)
 */
      INTEGER FUNCTION IBLKGE(
          REAL (N) RX
          INTEGER N
          REAL RR
      )