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

/*****************************************************
 * math1/rfalib/rmax.f
 ****************************************************/
/* 
 *      REAL FUNCTION RMAX(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RMAX(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rmax0.f
 ****************************************************/
/* 
 *      REAL FUNCTION RMAX0(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RMAX0(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rmax1.f
 ****************************************************/
/* 
 *      REAL FUNCTION RMAX1(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RMAX1(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rmin.f
 ****************************************************/
/* 
 *      REAL FUNCTION RMIN(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RMIN(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rmin0.f
 ****************************************************/
/* 
 *      REAL FUNCTION RMIN0(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RMIN0(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rmin1.f
 ****************************************************/
/* 
 *      REAL FUNCTION RMIN1(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RMIN1(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rsum.f
 ****************************************************/
/* 
 *      REAL FUNCTION RSUM(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RSUM(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rsum0.f
 ****************************************************/
/* 
 *      REAL FUNCTION RSUM0(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RSUM0(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rsum1.f
 ****************************************************/
/* 
 *      REAL FUNCTION RSUM1(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RSUM1(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rave.f
 ****************************************************/
/* 
 *      REAL FUNCTION RAVE(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RAVE(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rave0.f
 ****************************************************/
/* 
 *      REAL FUNCTION RAVE0(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RAVE0(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rave1.f
 ****************************************************/
/* 
 *      REAL FUNCTION RAVE1(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RAVE1(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rvar.f
 ****************************************************/
/* 
 *      REAL FUNCTION RVAR(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RVAR(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rvar0.f
 ****************************************************/
/* 
 *      REAL FUNCTION RVAR0(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RVAR0(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rvar1.f
 ****************************************************/
/* 
 *      REAL FUNCTION RVAR1(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RVAR1(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rstd.f
 ****************************************************/
/* 
 *      REAL FUNCTION RSTD(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RSTD(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rstd0.f
 ****************************************************/
/* 
 *      REAL FUNCTION RSTD0(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RSTD0(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rstd1.f
 ****************************************************/
/* 
 *      REAL FUNCTION RSTD1(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RSTD1(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rrms.f
 ****************************************************/
/* 
 *      REAL FUNCTION RRMS(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RRMS(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rrms0.f
 ****************************************************/
/* 
 *      REAL FUNCTION RRMS0(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RRMS0(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rrms1.f
 ****************************************************/
/* 
 *      REAL FUNCTION RRMS1(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RRMS1(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/ramp.f
 ****************************************************/
/* 
 *      REAL FUNCTION RAMP(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RAMP(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/ramp0.f
 ****************************************************/
/* 
 *      REAL FUNCTION RAMP0(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RAMP0(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/ramp1.f
 ****************************************************/
/* 
 *      REAL FUNCTION RAMP1(RX,N,JX)
 *      REAL      RX(*)
 */
      REAL FUNCTION RAMP1(
          REAL (JX*(N-1)+1) RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/rfalib/rvmax.f
 ****************************************************/
/* NB: (RVMAX) RX size is given as NS(1)*NS(2)*...*NS(ND) */
/* 
 *      REAL FUNCTION RVMAX(RX,NS,NP,NQ,ND)
 *      REAL      RX(*)
 *      INTEGER   NS(*),NP(*),NQ(*)
 */
      REAL FUNCTION RVMAX(
          REAL (*) RX
          INTEGER (ND) NS
          INTEGER (ND) NP
          INTEGER (ND) NQ
          INTEGER ND
      )

/*****************************************************
 * math1/rfalib/rvmax0.f
 ****************************************************/
/* NB: (RVMAX0) RX size is given as NS(1)*NS(2)*...*NS(ND) */
/* 
 *      REAL FUNCTION RVMAX0(RX,NS,NP,NQ,ND)
 *      REAL      RX(*)
 *      INTEGER   NS(*),NP(*),NQ(*)
 */
      REAL FUNCTION RVMAX0(
          REAL (*) RX
          INTEGER (ND) NS
          INTEGER (ND) NP
          INTEGER (ND) NQ
          INTEGER ND
      )

/*****************************************************
 * math1/rfalib/rvmin.f
 ****************************************************/
/* NB: (MVMIN) RX size is given as NS(1)*NS(2)*...*NS(ND) */
/* 
 *      REAL FUNCTION RVMIN(RX,NS,NP,NQ,ND)
 *      REAL      RX(*)
 *      INTEGER   NS(*),NP(*),NQ(*)
 */
      REAL FUNCTION RVMIN(
          REAL (*) RX
          INTEGER (ND) NS
          INTEGER (ND) NP
          INTEGER (ND) NQ
          INTEGER ND
      )

/*****************************************************
 * math1/rfalib/rvmax1.f
 ****************************************************/
/* NB: (RVMAX1) RX size is given as NS(1)*NS(2)*...*NS(ND) */
/* 
 *      REAL FUNCTION RVMAX1(RX,NS,NP,NQ,ND)
 *      REAL      RX(*)
 *      INTEGER   NS(*),NP(*),NQ(*)
 */
      REAL FUNCTION RVMAX1(
          REAL (*) RX
          INTEGER (ND) NS
          INTEGER (ND) NP
          INTEGER (ND) NQ
          INTEGER ND
      )

/*****************************************************
 * math1/rfalib/rvmin1.f
 ****************************************************/
/* NB: (RVMIN1) RX size is given as NS(1)*NS(2)*...*NS(ND) */
/* 
 *      REAL FUNCTION RVMIN1(RX,NS,NP,NQ,ND)
 *      REAL      RX(*)
 *      INTEGER   NS(*),NP(*),NQ(*)
 */
      REAL FUNCTION RVMIN1(
          REAL (*) RX
          INTEGER (ND) NS
          INTEGER (ND) NP
          INTEGER (ND) NQ
          INTEGER ND
      )

/*****************************************************
 * math1/rfalib/rvmin0.f
 ****************************************************/
/* NB: (RVMIN0) RX size is given as NS(1)*NS(2)*...*NS(ND) */
/* 
 *      REAL FUNCTION RVMIN0(RX,NS,NP,NQ,ND)
 *      REAL      RX(*)
 *      INTEGER   NS(*),NP(*),NQ(*)
 */
      REAL FUNCTION RVMIN0(
          REAL (*) RX
          INTEGER (ND) NS
          INTEGER (ND) NP
          INTEGER (ND) NQ
          INTEGER ND
      )