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

/*****************************************************
 * math1/ifalib/imax.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IMAX(IX,N,JX)
 *      INTEGER   IX(*)
 */
      INTEGER FUNCTION IMAX(
          INTEGER (JX*(N-1)+1) IX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/ifalib/imax0.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IMAX0(IX,N,JX)
 *      INTEGER   IX(*)
 */
      INTEGER FUNCTION IMAX0(
          INTEGER (JX*(N-1)+1) IX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/ifalib/imax1.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IMAX1(IX,N,JX)
 *      INTEGER   IX(*)
 */
      INTEGER FUNCTION IMAX1(
          INTEGER (JX*(N-1)+1) IX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/ifalib/imin.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IMIN(IX,N,JX)
 *      INTEGER   IX(*)
 */
      INTEGER FUNCTION IMIN(
          INTEGER (JX*(N-1)+1) IX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/ifalib/imin0.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IMIN0(IX,N,JX)
 *      INTEGER   IX(*)
 */
      INTEGER FUNCTION IMIN0(
          INTEGER (JX*(N-1)+1) IX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/ifalib/imin1.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IMIN1(IX,N,JX)
 *      INTEGER   IX(*)
 */
      INTEGER FUNCTION IMIN1(
          INTEGER (JX*(N-1)+1) IX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/ifalib/isum.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION ISUM(IX,N,JX)
 *      INTEGER   IX(*)
 */
      INTEGER FUNCTION ISUM(
          INTEGER (JX*(N-1)+1) IX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/ifalib/isum0.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION ISUM0(IX,N,JX)
 *      INTEGER   IX(*)
 */
      INTEGER FUNCTION ISUM0(
          INTEGER (JX*(N-1)+1) IX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/ifalib/isum1.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION ISUM1(IX,N,JX)
 *      INTEGER   IX(*)
 */
      INTEGER FUNCTION ISUM1(
          INTEGER (JX*(N-1)+1) IX
          INTEGER N
          INTEGER JX
      )