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

/*****************************************************
 * grph2/udpack/udcntr.f
 ****************************************************/
/* 
 *      SUBROUTINE UDCNTR(Z,MX,NX,NY)
 *      REAL      Z(MX,*)
 */
      SUBROUTINE UDCNTR(
          REAL (MX,NY) Z
          INTEGER MX
          INTEGER NX
          INTEGER NY
      )

/*****************************************************
 * grph2/udpack/udcntz.f
 ****************************************************/
/* 
 *      SUBROUTINE UDCNTZ(Z,MX,NX,NY,IBR,NBR2)
 *      REAL      Z(MX,*)
 *      INTEGER   IBR(NBR2)
 */
      SUBROUTINE UDCNTZ(
          REAL (MX,NY) Z
          INTEGER MX
          INTEGER NX
          INTEGER NY
          INTEGER (NBR2) t IBR
          INTEGER NBR2
      )

/*****************************************************
 * grph2/udpack/udgcla.f
 ****************************************************/
/* 
 *      SUBROUTINE UDGCLA(XMIN,XMAX,DX)
 */
      SUBROUTINE UDGCLA(
          REAL XMIN
          REAL XMAX
          REAL DX
      )

/*****************************************************
 * grph2/udpack/udgclb.f
 ****************************************************/
/* 
 *      SUBROUTINE UDGCLB(Z,MX,NX,NY,DX)
 *      REAL      Z(MX,*)
 */
      SUBROUTINE UDGCLB(
          REAL (MX,NY) Z
          INTEGER MX
          INTEGER NX
          INTEGER NY
          REAL DX
      )

/*****************************************************
 * grph2/udpack/udiclv.f
 ****************************************************/
/* 
 *      SUBROUTINE UDICLV
 */
      SUBROUTINE UDICLV(
      )

/* 
 *      ENTRY UDSCLV(ZLEV,INDX,ITYP,CLV,HL)
 *      CHARACTER CLV*(*)
 */
      SUBROUTINE UDSCLV(
          REAL ZLEV
          INTEGER INDX
          INTEGER ITYP
          CHARACTER*(*) CLV
          REAL HL
      )

/* 
 *      ENTRY UDQCLV(ZLEV,INDX,ITYP,CLV,HL,NLEV)
 *      CHARACTER CLV*(*)
 */
      SUBROUTINE UDQCLV(
          REAL o ZLEV
          INTEGER o INDX
          INTEGER o ITYP
          CHARACTER*(*) o CLV
          REAL o HL
          INTEGER NLEV
      )

/* 
 *      ENTRY UDQCLN(NLEV)
 */
      SUBROUTINE UDQCLN(
          INTEGER o NLEV
      )

/* 
 *      ENTRY UDDCLV(ZLEV)
 */
      SUBROUTINE UDDCLV(
          REAL ZLEV
      )

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

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

/*****************************************************
 * grph2/udpack/rudlev.f
 ****************************************************/
/* 
 *      REAL FUNCTION RUDLEV(NLEV)
 */
      REAL FUNCTION RUDLEV(
          INTEGER NLEV
      )

/*****************************************************
 * grph2/udpack/udline.f
 ****************************************************/
/* 
 *      SUBROUTINE UDLINE(Z,MX,KX,KY,KK,CX,LOPEN,IBR)
 *      REAL      Z(MX,*)
 *      LOGICAL   LOPEN
 *      INTEGER   IBR(*)
 */
/*
      SUBROUTINE UDLINE(
          REAL (MX,*) Z
          INTEGER MX
          INTEGER KX
          INTEGER KY
          INTEGER KK
          REAL CX
          LOGICAL LOPEN
          INTEGER (*) io IBR
      )
 */

/*****************************************************
 * grph2/udpack/uduxuy.f
 ****************************************************/
/* 
 *      SUBROUTINE UDUXUY(Z,MX,IX,IY,K,CX,UX,UY)
 *      REAL      Z(MX,*)
 */
/*
      SUBROUTINE UDUXUY(
          REAL (MX,*) Z
          INTEGER MX
          INTEGER IX
          INTEGER IY
          INTEGER K
          REAL CX
          REAL o UX
          REAL o UY
      )
*/

/*****************************************************
 * grph2/udpack/udgrdn.f
 ****************************************************/
/* 
 *      SUBROUTINE UDGRDN(MODE,IX,IY,K,JX,JY,JK)
 *      INTEGER JX(0:3),JY(0:3),JK(0:3)
 */
/*
      SUBROUTINE UDGRDN(
          INTEGER MODE
          INTEGER IX
          INTEGER IY
          INTEGER K
          INTEGER (0:3) o JX
          INTEGER (0:3) o JY
          INTEGER (0:3) o JK
      )
 */

/*****************************************************
 * grph2/udpack/rudval.f
 ****************************************************/
/* 
 *      REAL FUNCTION RUDVAL(ZZ,CZ)
 */
/* 
      REAL FUNCTION RUDVAL(
          REAL ZZ
          REAL CZ
      )
 */

/*****************************************************
 * grph2/udpack/udbset.f
 ****************************************************/
/* 
 *      SUBROUTINE UDBSET(I,J,K,L,IBR)
 *      INTEGER   IBR(NBR,0:*)
 */
/* 
      SUBROUTINE UDBSET(
          INTEGER I
          INTEGER J
          INTEGER K
          INTEGER L
          INTEGER (NBR,0:*) io IBR
      )
 */

/*****************************************************
 * grph2/udpack/udbclr.f
 ****************************************************/
/* 
 *      SUBROUTINE UDBCLR(I,J,K,L,IBR)
 *      INTEGER   IBR(NBR,0:*)
 */
/* 
      SUBROUTINE UDBCLR(
          INTEGER I
          INTEGER J
          INTEGER K
          INTEGER L
          INTEGER (NBR,0:*) io IBR
      )
 */

/*****************************************************
 * grph2/udpack/ludchk.f
 ****************************************************/
/* 
 *      LOGICAL FUNCTION LUDCHK(I,J,K,L,IBR)
 *      INTEGER   IBR(NBR,0:*)
 */
/*
      LOGICAL FUNCTION LUDCHK(
          INTEGER I
          INTEGER J
          INTEGER K
          INTEGER L
          INTEGER (NBR,0:*) IBR
      )
 */

/*****************************************************
 * grph2/udpack/udiclr.f
 ****************************************************/
/* 
 *      SUBROUTINE UDICLR(IX,N)
 *      INTEGER   IX(*)
 */
      SUBROUTINE UDICLR(
          INTEGER (N) o IX
          INTEGER N
      )

/*****************************************************
 * grph2/udpack/udlabl.f
 ****************************************************/
/* 
 *      SUBROUTINE UDLABL(VAL,CVAL)
 *      CHARACTER CVAL*(*),CFMT*(*)
 */
      SUBROUTINE UDLABL(
          REAL VAL
          CHARACTER*(*) o CVAL
      )

/* 
 *      ENTRY UDSFMT(CFMT)
 *      CHARACTER CVAL*(*),CFMT*(*)
 */
      SUBROUTINE UDSFMT(
          CHARACTER*(*) CFMT
      )

/* 
 *      ENTRY UDQFMT(CFMT)
 *      CHARACTER CVAL*(*),CFMT*(*)
 */
      SUBROUTINE UDQFMT(
          CHARACTER*(*) o CFMT
      )

/*****************************************************
 * grph2/udpack/udpget.f
 ****************************************************/
/* 
 *      SUBROUTINE UDPGET(CP, IPARA)
 *      CHARACTER CP*(*)
 */
/*      SUBROUTINE UDPGET(
 *          CHARACTER*(*) CP
 *          INTEGER o IPARA
 *      )
 */

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

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

/*****************************************************
 * grph2/udpack/udpqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UDPQNP(NCP)
 */
      SUBROUTINE UDPQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

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

/*****************************************************
 * grph2/udpack/udiget.f
 ****************************************************/
/* 
 *      SUBROUTINE UDIGET(CP, IPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UDIGET(
          CHARACTER*(*) CP
          INTEGER o IPARA
      )

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

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

/*****************************************************
 * grph2/udpack/udiqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UDIQNP(NCP)
 */
      SUBROUTINE UDIQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

/*****************************************************
 * grph2/udpack/udlget.f
 ****************************************************/
/* 
 *      SUBROUTINE UDLGET(CP, LPARA)
 *      CHARACTER CP*(*)
 *      LOGICAL   LPARA, LP
 */
      SUBROUTINE UDLGET(
          CHARACTER*(*) CP
          LOGICAL o LPARA
      )

/* 
 *      ENTRY UDLSET(CP, LPARA)
 *      CHARACTER CP*(*)
 *      LOGICAL   LPARA, LP
 */
      SUBROUTINE UDLSET(
          CHARACTER*(*) CP
          LOGICAL LPARA
      )

/* 
 *      ENTRY UDLSTX(CP, LPARA)
 *      CHARACTER CP*(*)
 *      LOGICAL   LPARA, LP
 */
      SUBROUTINE UDLSTX(
          CHARACTER*(*) CP
          LOGICAL LPARA
      )

/*****************************************************
 * grph2/udpack/udlqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UDLQNP(NCP)
 *      INTEGER   NCP
 */
      SUBROUTINE UDLQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

/*****************************************************
 * grph2/udpack/udrget.f
 ****************************************************/
/* 
 *      SUBROUTINE UDRGET(CP, RPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UDRGET(
          CHARACTER*(*) CP
          REAL o RPARA
      )

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

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

/*****************************************************
 * grph2/udpack/udrqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UDRQNP(NCP)
 */
      SUBROUTINE UDRQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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