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

/*****************************************************
 * math1/indxlib/indxcf.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION INDXCF(CX,N,JD,CH)
 *      CHARACTER CX(*)*1,CH*1
 */
      INTEGER FUNCTION INDXCF(
          CHARACTER*1 (JD*(N-1)+1) CX
          INTEGER N
          INTEGER JD
          CHARACTER*1 CH
      )

/*****************************************************
 * math1/indxlib/indxcl.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION INDXCL(CX,N,JD,CH)
 *      CHARACTER CX(*)*1,CH*1
 */
      INTEGER FUNCTION INDXCL(
          CHARACTER*1 (JD*(N-1)+1) CX
          INTEGER N
          INTEGER JD
          CHARACTER*1 CH
      )

/*****************************************************
 * math1/indxlib/indxmf.f
 ****************************************************/
/* NB: (INDXMF) The size of CX depends on that of CH, which is unknown. */
/* 
 *      INTEGER FUNCTION INDXMF(CX,N,JD,CH)
 *      CHARACTER CX*(*),CH*(*)
 */
      INTEGER FUNCTION INDXMF(
          CHARACTER*(*) CX
          INTEGER N
          INTEGER JD
          CHARACTER*(*) CH
      )

/*****************************************************
 * math1/indxlib/indxml.f
 ****************************************************/
/* NB: (INDXML) The size of CX depends on that of CH, which is unknown. */
/* 
 *      INTEGER FUNCTION INDXML(CX,N,JD,CH)
 *      CHARACTER CX*(*),CH*(*)
 */
      INTEGER FUNCTION INDXML(
          CHARACTER*(*) CX
          INTEGER N
          INTEGER JD
          CHARACTER*(*) CH
      )

/*****************************************************
 * math1/indxlib/indxnf.f
 ****************************************************/
/* NB: (INDXNF) The size of CX depends on that of CH, which is unknown. */
/* 
 *      INTEGER FUNCTION INDXNF(CX,N,JD,CH)
 *      CHARACTER CX*(*),CH*(*)
 */
      INTEGER FUNCTION INDXNF(
          CHARACTER*(*) CX
          INTEGER N
          INTEGER JD
          CHARACTER*(*) CH
      )

/*****************************************************
 * math1/indxlib/indxnl.f
 ****************************************************/
/* NB: (INDXNL) The size of CX depends on that of CH, which is unknown. */
/* 
 *      INTEGER FUNCTION INDXNL(CX,N,JD,CH)
 *      CHARACTER CX*(*),CH*(*)
 */
      INTEGER FUNCTION INDXNL(
          CHARACTER*(*) CX
          INTEGER N
          INTEGER JD
          CHARACTER*(*) CH
      )

/*****************************************************
 * math1/indxlib/indxif.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION INDXIF(IX,N,JD,II)
 *      INTEGER   IX(*)
 */
      INTEGER FUNCTION INDXIF(
          INTEGER (JD*(N-1)+1) IX
          INTEGER N
          INTEGER JD
          INTEGER II
      )

/*****************************************************
 * math1/indxlib/indxil.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION INDXIL(IX,N,JD,II)
 *      INTEGER   IX(*)
 */
      INTEGER FUNCTION INDXIL(
          INTEGER (JD*(N-1)+1) IX
          INTEGER N
          INTEGER JD
          INTEGER II
      )

/*****************************************************
 * math1/indxlib/indxrf.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION INDXRF(RX,N,JD,RR)
 *      REAL      RX(*)
 */
      INTEGER FUNCTION INDXRF(
          REAL (JD*(N-1)+1) RX
          INTEGER N
          INTEGER JD
          REAL RR
      )

/*****************************************************
 * math1/indxlib/indxrl.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION INDXRL(RX,N,JD,RR)
 *      REAL      RX(*)
 */
      INTEGER FUNCTION INDXRL(
          REAL (JD*(N-1)+1) RX
          INTEGER N
          INTEGER JD
          REAL RR
      )

/*****************************************************
 * math1/indxlib/nindxc.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION NINDXC(CX,N,JD,CH)
 *      CHARACTER CX(*)*1,CH*1
 */
      INTEGER FUNCTION NINDXC(
          CHARACTER*1 (JD*(N-1)+1) CX
          INTEGER N
          INTEGER JD
          CHARACTER*1 CH
      )

/*****************************************************
 * math1/indxlib/nindxm.f
 ****************************************************/
/* NB: (NINDXM) The size of CX depends on that of CH, which is unknown. */
/* 
 *      INTEGER FUNCTION NINDXM(CX,N,JD,CH)
 *      CHARACTER CX*(*),CH*(*)
 */
      INTEGER FUNCTION NINDXM(
          CHARACTER*(*) CX
          INTEGER N
          INTEGER JD
          CHARACTER*(*) CH
      )

/*****************************************************
 * math1/indxlib/nindxn.f
 ****************************************************/
/* NB: (NINDXN) The size of CX depends on that of CH, which is unknown. */
/* 
 *      INTEGER FUNCTION NINDXN(CX,N,JD,CH)
 *      CHARACTER CX*(*),CH*(*)
 */
      INTEGER FUNCTION NINDXN(
          CHARACTER*(*) CX
          INTEGER N
          INTEGER JD
          CHARACTER*(*) CH
      )

/*****************************************************
 * math1/indxlib/nindxi.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION NINDXI(IX,N,JD,II)
 *      INTEGER   IX(*)
 */
      INTEGER FUNCTION NINDXI(
          INTEGER (JD*(N-1)+1) IX
          INTEGER N
          INTEGER JD
          INTEGER II
      )

/*****************************************************
 * math1/indxlib/nindxr.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION NINDXR(RX,N,JD,RR)
 *      REAL      RX(*)
 */
      INTEGER FUNCTION NINDXR(
          REAL (JD*(N-1)+1) RX
          INTEGER N
          INTEGER JD
          REAL RR
      )