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

/*****************************************************
 * grph2/uzpack/uzpget.f
 ****************************************************/
/* 
 *      SUBROUTINE UZPGET(CP,IPARA)
 *      CHARACTER CP*(*)
 */
/*      SUBROUTINE UZPGET(
 *          CHARACTER*(*) CP
 *          INTEGER o IPARA
 *      )
 */

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

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

/*****************************************************
 * grph2/uzpack/uzpqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UZPQNP(NCP)
 */
      SUBROUTINE UZPQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

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

/*****************************************************
 * grph2/uzpack/uzinit.f
 ****************************************************/
/* 
 *      SUBROUTINE UZINIT
 */
      SUBROUTINE UZINIT(
      )

/*****************************************************
 * grph2/uzpack/uzfact.f
 ****************************************************/
/* 
 *      SUBROUTINE UZFACT(RFACT)
 */
      SUBROUTINE UZFACT(
          REAL RFACT
      )

/*****************************************************
 * grph2/uzpack/uzcget.f
 ****************************************************/
/* 
 *      SUBROUTINE UZCGET(CP,CPARA)
 *      CHARACTER CP*(*), CPARA*(*)
 */
      SUBROUTINE UZCGET(
          CHARACTER*(*) CP
          CHARACTER*(*) o CPARA
      )

/* 
 *      ENTRY UZCSET(CP,CPARA)
 *      CHARACTER CP*(*), CPARA*(*)
 */
      SUBROUTINE UZCSET(
          CHARACTER*(*) CP
          CHARACTER*(*) CPARA
      )

/* 
 *      ENTRY UZCSTX(CP, CPARA)
 *      CHARACTER CP*(*), CPARA*(*)
 */
      SUBROUTINE UZCSTX(
          CHARACTER*(*) CP
          CHARACTER*(*) CPARA
      )

/*****************************************************
 * grph2/uzpack/uzcqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UZCQNP(NCP)
 */
      SUBROUTINE UZCQNP(
          INTEGER o NCP
      )

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

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

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

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

/* 
 *      ENTRY UZCSVL(IDX,CVAL)
 *      CHARACTER CP*(*), CVAL*(*)
 */
      SUBROUTINE UZCSVL(
          INTEGER IDX
          CHARACTER*(*) CVAL
      )

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

/* 
 *      ENTRY UZCSAV(IU)
 */
      SUBROUTINE UZCSAV(
          INTEGER IU
      )

/* 
 *      ENTRY UZCRST(IU)
 */
      SUBROUTINE UZCRST(
          INTEGER IU
      )

/*****************************************************
 * grph2/uzpack/uziget.f
 ****************************************************/
/* 
 *      SUBROUTINE UZIGET(CP, IPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UZIGET(
          CHARACTER*(*) CP
          INTEGER o IPARA
      )

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

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

/*****************************************************
 * grph2/uzpack/uziqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UZIQNP(NCP)
 */
      SUBROUTINE UZIQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

/* 
 *      ENTRY UZISAV(IU)
 */
      SUBROUTINE UZISAV(
          INTEGER IU
      )

/* 
 *      ENTRY UZIRST(IU)
 */
      SUBROUTINE UZIRST(
          INTEGER IU
      )

/*****************************************************
 * grph2/uzpack/uzlget.f
 ****************************************************/
/* 
 *      SUBROUTINE UZLGET(CP, LPARA)
 *      CHARACTER CP*(*)
 *      LOGICAL   LPARA
 */
      SUBROUTINE UZLGET(
          CHARACTER*(*) CP
          LOGICAL o LPARA
      )

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

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

/*****************************************************
 * grph2/uzpack/uzlqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UZLQNP(NCP)
 */
      SUBROUTINE UZLQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

/* 
 *      ENTRY UZLSAV(IU)
 */
      SUBROUTINE UZLSAV(
          INTEGER IU
      )

/* 
 *      ENTRY UZLRST(IU)
 */
      SUBROUTINE UZLRST(
          INTEGER IU
      )

/*****************************************************
 * grph2/uzpack/uzrget.f
 ****************************************************/
/* 
 *      SUBROUTINE UZRGET(CP, RPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UZRGET(
          CHARACTER*(*) CP
          REAL o RPARA
      )

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

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

/*****************************************************
 * grph2/uzpack/uzrqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UZRQNP(NCP)
 */
      SUBROUTINE UZRQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

/* 
 *      ENTRY UZRSAV(IU)
 */
      SUBROUTINE UZRSAV(
          INTEGER IU
      )

/* 
 *      ENTRY UZRRST(IU)
 */
      SUBROUTINE UZRRST(
          INTEGER IU
      )

/*****************************************************
 * grph2/uzpack/uzpsav.f
 ****************************************************/
/* 
 *      SUBROUTINE UZPSAV
 */
      SUBROUTINE UZPSAV(
      )

/* 
 *      ENTRY UZPRST
 */
      SUBROUTINE UZPRST(
      )