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

/*****************************************************
 * grph2/ugpack/ugvect.f
 ****************************************************/
/* 
 *      SUBROUTINE UGVECT(U,MU,V,MV,NX,NY)
 */
      SUBROUTINE UGVECT(
          REAL (MU,NY) U
          INTEGER MU
          REAL (MV,NY) V
          INTEGER MV
          INTEGER NX
          INTEGER NY
      )

/*****************************************************
 * grph2/ugpack/ugunit.f
 ****************************************************/
/* 
 *      SUBROUTINE UGUNIT
 */
/*
      SUBROUTINE UGUNIT(
      )
 */

/*****************************************************
 * grph2/ugpack/ugsut.f
 ****************************************************/
/* 
 *      SUBROUTINE UGSUT(CSIDE,CTTL)
 *      CHARACTER CSIDE*(*),CTTL*(*)
 */
      SUBROUTINE UGSUT(
          CHARACTER*(*) CSIDE
          CHARACTER*(*) CTTL
      )

/* 
 *      ENTRY UGDUT
 */
/*
      SUBROUTINE UGDUT(
      )
*/

/*****************************************************
 * grph2/ugpack/ugpget.f
 ****************************************************/
/* 
 *      SUBROUTINE UGPGET(CP, IPARA)
 *      CHARACTER CP*(*)
 */
/*      SUBROUTINE UGPGET(
 *          CHARACTER*(*) CP
 *          INTEGER o IPARA
 *      )
 */

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

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

/*****************************************************
 * grph2/ugpack/ugpqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UGPQNP(NCP)
 */
      SUBROUTINE UGPQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

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

/*****************************************************
 * grph2/ugpack/ugiget.f
 ****************************************************/
/* 
 *      SUBROUTINE UGIGET(CP, IPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UGIGET(
          CHARACTER*(*) CP
          INTEGER o IPARA
      )

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

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

/*****************************************************
 * grph2/ugpack/ugiqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UGIQNP(NCP)
 */
      SUBROUTINE UGIQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

/*****************************************************
 * grph2/ugpack/uglget.f
 ****************************************************/
/* 
 *      SUBROUTINE UGLGET(CP, LPARA)
 *      CHARACTER CP*(*)
 *      LOGICAL   LPARA
 */
      SUBROUTINE UGLGET(
          CHARACTER*(*) CP
          LOGICAL o LPARA
      )

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

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

/*****************************************************
 * grph2/ugpack/uglqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UGLQNP(NCP)
 */
      SUBROUTINE UGLQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

/*****************************************************
 * grph2/ugpack/ugrget.f
 ****************************************************/
/* 
 *      SUBROUTINE UGRGET(CP, RPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UGRGET(
          CHARACTER*(*) CP
          REAL o RPARA
      )

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

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

/*****************************************************
 * grph2/ugpack/ugrqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UGRQNP(NCP)
 */
      SUBROUTINE UGRQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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