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

/*****************************************************
 * grph2/uepack/uetone.f
 ****************************************************/
/* 
 *      SUBROUTINE UETONE(Z,MX,NX,NY)
 *      REAL      Z(MX,*)
 */
      SUBROUTINE UETONE(
          REAL (MX,NY) Z
          INTEGER MX
          INTEGER NX
          INTEGER NY
      )

/*****************************************************
 * grph2/uepack/uetonf.f
 ****************************************************/
/* 
 *      SUBROUTINE UETONF (Z,MX,NX,NY)
 *      REAL      Z(MX,*)
 */
      SUBROUTINE UETONF(
          REAL (MX,NY) Z
          INTEGER MX
          INTEGER NX
          INTEGER NY
      )

/*****************************************************
 * grph2/uepack/uetonc.f
 ****************************************************/
/* 
 *      SUBROUTINE UETONC (Z,MX,NX,NY)
 *      REAL      Z(MX,*)
 */
      SUBROUTINE UETONC(
          REAL (MX,NY) Z
          INTEGER MX
          INTEGER NX
          INTEGER NY
      )

/*****************************************************
 * grph2/uepack/uezchk.f
 ****************************************************/
/* 
 *      SUBROUTINE UEZCHK(Z,MX,NX,NY,CNAME,ISTAT)
 *      REAL      Z(MX,*)
 *      CHARACTER CNAME*(*)
 */
      SUBROUTINE UEZCHK(
          REAL (MX,NY) Z
          INTEGER MX
          INTEGER NX
          INTEGER NY
          CHARACTER*(*) CNAME
          INTEGER o ISTAT
      )

/*****************************************************
 * grph2/uepack/uegtla.f
 ****************************************************/
/* 
 *      SUBROUTINE UEGTLA(XMIN,XMAX,DX)
 */
      SUBROUTINE UEGTLA(
          REAL XMIN
          REAL XMAX
          REAL DX
      )

/*****************************************************
 * grph2/uepack/uegtlb.f
 ****************************************************/
/* 
 *      SUBROUTINE UEGTLB(Z,MX,NX,NY,DX)
 *      REAL      Z(MX,*)
 */
      SUBROUTINE UEGTLB(
          REAL (MX,NY) Z
          INTEGER MX
          INTEGER NX
          INTEGER NY
          REAL DX
      )

/*****************************************************
 * grph2/uepack/ueitlv.f
 ****************************************************/
/* 
 *      SUBROUTINE UEITLV
 */
      SUBROUTINE UEITLV(
      )

/* 
 *      ENTRY UESTLV(TLEV1,TLEV2,IPAT)
 */
      SUBROUTINE UESTLV(
          REAL TLEV1
          REAL TLEV2
          INTEGER IPAT
      )

/* 
 *      ENTRY UEQTLV(TLEV1,TLEV2,IPAT,ITON)
 */
      SUBROUTINE UEQTLV(
          REAL o TLEV1
          REAL o TLEV2
          INTEGER o IPAT
          INTEGER ITON
      )

/* 
 *      ENTRY UEQNTL(NTON)
 */
      SUBROUTINE UEQNTL(
          INTEGER o NTON
      )

/* 
 *      ENTRY UESTLZ(LSET)
 *      LOGICAL   LSET
 */
/*
      SUBROUTINE UESTLZ(
          LOGICAL LSET
      )
 */

/* 
 *      ENTRY UEQTLZ(LSET)
 *      LOGICAL   LSET
 */
/*
      SUBROUTINE UEQTLZ(
          LOGICAL o LSET
      )
 */

/*****************************************************
 * grph2/uepack/uestln.f
 ****************************************************/
/* 
 *      SUBROUTINE UESTLN(TLEVN,IPATN,NTON)
 *      REAL      TLEVN(*)
 *      INTEGER   IPATN(*)
 */
      SUBROUTINE UESTLN(
          REAL (NTON+1) TLEVN
          INTEGER (NTON) IPATN
          INTEGER NTON
      )

/*****************************************************
 * grph2/uepack/iueton.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IUETON(ZLEV)
 */
      INTEGER FUNCTION IUETON(
          REAL ZLEV
      )

/*****************************************************
 * grph2/uepack/uearea.f
 ****************************************************/
/* 
 *      SUBROUTINE UEAREA(XP,YP,ZP,VLVM,AX,AY,NP,NI,NG)
 *      REAL     XP(4),YP(4),ZP(4),VLVM(2),AX(*),AY(*)
 *      INTEGER  NP(2),NI(2)
 */
/*
      SUBROUTINE UEAREA(
          REAL (4) XP
          REAL (4) YP
          REAL (4) ZP
          REAL (2) VLVM
          REAL (*) o AX
          REAL (*) o AY
          INTEGER (2) o NP
          INTEGER (2) o NI
          INTEGER o NG
      )
 */

/* 
 *      ENTRY UEAINT
 */
/*
      SUBROUTINE UEAINT(
      )
 */

/*****************************************************
 * grph2/uepack/uepget.f
 ****************************************************/
/* 
 *      SUBROUTINE UEPGET(CP, IPARA)
 *      CHARACTER CP*(*)
 */
/*      SUBROUTINE UEPGET(
 *          CHARACTER*(*) CP
 *          INTEGER o IPARA
 *      )
 */

/* 
 *      ENTRY UEPSET(CP, IPARA)
 *      CHARACTER CP*(*)
 */
/*      SUBROUTINE UEPSET(
 *          CHARACTER*(*) CP
 *          INTEGER IPARA
 *      )
 */

/* 
 *      ENTRY UEPSTX(CP, IPARA)
 *      CHARACTER CP*(*)
 */
/*      SUBROUTINE UEPSTX(
 *          CHARACTER*(*) CP
 *          INTEGER IPARA
 *      )
 */

/*****************************************************
 * grph2/uepack/uepqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UEPQNP(NCP)
 */
      SUBROUTINE UEPQNP(
          INTEGER o NCP
      )

/* 
 *      ENTRY UEPQID(CP, IDX)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UEPQID(
          CHARACTER*(*) CP
          INTEGER o IDX
      )

/* 
 *      ENTRY UEPQCP(IDX, CP)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UEPQCP(
          INTEGER IDX
          CHARACTER*(*) o CP
      )

/* 
 *      ENTRY UEPQCL(IDX, CP)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UEPQCL(
          INTEGER IDX
          CHARACTER*(*) o CP
      )

/* 
 *      ENTRY UEPQIT(IDX, ITP)
 */
      SUBROUTINE UEPQIT(
          INTEGER IDX
          INTEGER o ITP
      )

/* 
 *      ENTRY UEPQVL(IDX, IPARA)
 */
      SUBROUTINE UEPQVL(
          INTEGER IDX
          INTEGER o IPARA
      )

/* 
 *      ENTRY UEPSVL(IDX, IPARA)
 */
      SUBROUTINE UEPSVL(
          INTEGER IDX
          INTEGER IPARA
      )

/* 
 *      ENTRY UEPQIN(CP, IN)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UEPQIN(
          CHARACTER*(*) CP
          INTEGER o IN
      )

/*****************************************************
 * grph2/uepack/ueiget.f
 ****************************************************/
/* 
 *      SUBROUTINE UEIGET(CP, IPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UEIGET(
          CHARACTER*(*) CP
          INTEGER o IPARA
      )

/* 
 *      ENTRY UEISET(CP, IPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UEISET(
          CHARACTER*(*) CP
          INTEGER IPARA
      )

/* 
 *      ENTRY UEISTX(CP, IPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UEISTX(
          CHARACTER*(*) CP
          INTEGER IPARA
      )

/*****************************************************
 * grph2/uepack/ueiqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UEIQNP(NCP)
 */
      SUBROUTINE UEIQNP(
          INTEGER o NCP
      )

/* 
 *      ENTRY UEIQID(CP, IDX)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UEIQID(
          CHARACTER*(*) CP
          INTEGER o IDX
      )

/* 
 *      ENTRY UEIQCP(IDX, CP)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UEIQCP(
          INTEGER IDX
          CHARACTER*(*) o CP
      )

/* 
 *      ENTRY UEIQCL(IDX, CP)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UEIQCL(
          INTEGER IDX
          CHARACTER*(*) o CP
      )

/* 
 *      ENTRY UEIQVL(IDX, IPARA)
 */
      SUBROUTINE UEIQVL(
          INTEGER IDX
          INTEGER o IPARA
      )

/* 
 *      ENTRY UEISVL(IDX, IPARA)
 */
      SUBROUTINE UEISVL(
          INTEGER IDX
          INTEGER IPARA
      )

/* 
 *      ENTRY UEIQIN(CP, IN)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UEIQIN(
          CHARACTER*(*) CP
          INTEGER o IN
      )

/*****************************************************
 * grph2/uepack/uelget.f
 ****************************************************/
/* 
 *      SUBROUTINE UELGET(CP, LPARA)
 *      CHARACTER CP*(*)
 *      LOGICAL   LPARA
 */
      SUBROUTINE UELGET(
          CHARACTER*(*) CP
          LOGICAL o LPARA
      )

/* 
 *      ENTRY UELSET(CP, LPARA)
 *      CHARACTER CP*(*)
 *      LOGICAL   LPARA
 */
      SUBROUTINE UELSET(
          CHARACTER*(*) CP
          LOGICAL LPARA
      )

/* 
 *      ENTRY UELSTX(CP, LPARA)
 *      CHARACTER CP*(*)
 *      LOGICAL   LPARA
 */
      SUBROUTINE UELSTX(
          CHARACTER*(*) CP
          LOGICAL LPARA
      )

/*****************************************************
 * grph2/uepack/uelqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UELQNP(NCP)
 */
      SUBROUTINE UELQNP(
          INTEGER o NCP
      )

/* 
 *      ENTRY UELQID(CP, IDX)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UELQID(
          CHARACTER*(*) CP
          INTEGER o IDX
      )

/* 
 *      ENTRY UELQCP(IDX, CP)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UELQCP(
          INTEGER IDX
          CHARACTER*(*) o CP
      )

/* 
 *      ENTRY UELQCL(IDX, CP)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UELQCL(
          INTEGER IDX
          CHARACTER*(*) o CP
      )

/* 
 *      ENTRY UELQVL(IDX, LPARA)
 *      LOGICAL   LPARA
 */
      SUBROUTINE UELQVL(
          INTEGER IDX
          LOGICAL o LPARA
      )

/* 
 *      ENTRY UELSVL(IDX, LPARA)
 *      LOGICAL   LPARA
 */
      SUBROUTINE UELSVL(
          INTEGER IDX
          LOGICAL LPARA
      )

/* 
 *      ENTRY UELQIN(CP, IN)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UELQIN(
          CHARACTER*(*) CP
          INTEGER o IN
      )

/*****************************************************
 * grph2/uepack/uerget.f
 ****************************************************/
/* 
 *      SUBROUTINE UERGET(CP, RPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UERGET(
          CHARACTER*(*) CP
          REAL o RPARA
      )

/* 
 *      ENTRY UERSET(CP, RPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UERSET(
          CHARACTER*(*) CP
          REAL RPARA
      )

/* 
 *      ENTRY UERSTX(CP, RPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UERSTX(
          CHARACTER*(*) CP
          REAL RPARA
      )

/*****************************************************
 * grph2/uepack/uerqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UERQNP(NCP)
 */
      SUBROUTINE UERQNP(
          INTEGER o NCP
      )

/* 
 *      ENTRY UERQID(CP, IDX)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UERQID(
          CHARACTER*(*) CP
          INTEGER o IDX
      )

/* 
 *      ENTRY UERQCP(IDX, CP)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UERQCP(
          INTEGER IDX
          CHARACTER*(*) o CP
      )

/* 
 *      ENTRY UERQCL(IDX, CP)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UERQCL(
          INTEGER IDX
          CHARACTER*(*) o CP
      )

/* 
 *      ENTRY UERQVL(IDX, RPARA)
 */
      SUBROUTINE UERQVL(
          INTEGER IDX
          REAL o RPARA
      )

/* 
 *      ENTRY UERSVL(IDX, RPARA)
 */
      SUBROUTINE UERSVL(
          INTEGER IDX
          REAL RPARA
      )

/* 
 *      ENTRY UERQIN(CP, IN)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UERQIN(
          CHARACTER*(*) CP
          INTEGER o IN
      )