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

/*****************************************************
 * grph2/uupack/uulin.f
 ****************************************************/
/* 
 *      SUBROUTINE UULIN(N,UPX,UPY)
 *      REAL      UPX(*),UPY(*)
 */
      SUBROUTINE UULIN(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY
      )

/*****************************************************
 * grph2/uupack/uulinz.f
 ****************************************************/
/* 
 *      SUBROUTINE UULINZ(N,UPX,UPY,ITYPE,INDEX)
 *      REAL      UPX(*),UPY(*)
 */
      SUBROUTINE UULINZ(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY
          INTEGER ITYPE
          INTEGER INDEX
      )

/*****************************************************
 * grph2/uupack/uumrk.f
 ****************************************************/
/* 
 *      SUBROUTINE UUMRK(N,UPX,UPY)
 *      REAL      UPX(*),UPY(*)
 */
      SUBROUTINE UUMRK(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY
      )

/*****************************************************
 * grph2/uupack/uumrkz.f
 ****************************************************/
/* 
 *      SUBROUTINE UUMRKZ(N,UPX,UPY,ITYPE,INDEX,RSIZE)
 *      REAL      UPX(*),UPY(*)
 */
      SUBROUTINE UUMRKZ(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY
          INTEGER ITYPE
          INTEGER INDEX
          REAL RSIZE
      )

/*****************************************************
 * grph2/uupack/uupget.f
 ****************************************************/
/* 
 *      SUBROUTINE UUPGET(CP,IPARA)
 *      CHARACTER CP*(*)
 */
/*      SUBROUTINE UUPGET(
 *          CHARACTER*(*) CP
 *          INTEGER o IPARA
 *      )
 */

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

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

/*****************************************************
 * grph2/uupack/uupqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UUPQNP(NCP)
 */
      SUBROUTINE UUPQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

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

/*****************************************************
 * grph2/uupack/uuinit.f
 ****************************************************/
/* 
 *      SUBROUTINE UUINIT
 */
      SUBROUTINE UUINIT(
      )

/*****************************************************
 * grph2/uupack/uuslnt.f
 ****************************************************/
/* 
 *      SUBROUTINE UUSLNT(ITYPE)
 */
      SUBROUTINE UUSLNT(
          INTEGER ITYPE
      )

/* 
 *      ENTRY UUQLNT(ITYPE)
 */
      SUBROUTINE UUQLNT(
          INTEGER o ITYPE
      )

/* 
 *      ENTRY UUSLNI(INDEX)
 */
      SUBROUTINE UUSLNI(
          INTEGER INDEX
      )

/* 
 *      ENTRY UUQLNI(INDEX)
 */
      SUBROUTINE UUQLNI(
          INTEGER o INDEX
      )

/*****************************************************
 * grph2/uupack/uusmkt.f
 ****************************************************/
/* 
 *      SUBROUTINE UUSMKT(ITYPE)
 */
      SUBROUTINE UUSMKT(
          INTEGER ITYPE
      )

/* 
 *      ENTRY UUQMKT(ITYPE)
 */
      SUBROUTINE UUQMKT(
          INTEGER o ITYPE
      )

/* 
 *      ENTRY UUSMKI(INDEX)
 */
      SUBROUTINE UUSMKI(
          INTEGER INDEX
      )

/* 
 *      ENTRY UUQMKI(INDEX)
 */
      SUBROUTINE UUQMKI(
          INTEGER o INDEX
      )

/* 
 *      ENTRY UUSMKS(RSIZE)
 */
      SUBROUTINE UUSMKS(
          REAL RSIZE
      )

/* 
 *      ENTRY UUQMKS(RSIZE)
 */
      SUBROUTINE UUQMKS(
          REAL o RSIZE
      )

/*****************************************************
 * grph2/uupack/uusebt.f
 ****************************************************/
/* 
 *      SUBROUTINE UUSEBT(ITYPE)
 */
      SUBROUTINE UUSEBT(
          INTEGER ITYPE
      )

/* 
 *      ENTRY UUQEBT(ITYPE)
 */
      SUBROUTINE UUQEBT(
          INTEGER o ITYPE
      )

/* 
 *      ENTRY UUSEBI(INDEX)
 */
      SUBROUTINE UUSEBI(
          INTEGER INDEX
      )

/* 
 *      ENTRY UUQEBI(INDEX)
 */
      SUBROUTINE UUQEBI(
          INTEGER o INDEX
      )

/* 
 *      ENTRY UUSEBS(RSIZE)
 */
      SUBROUTINE UUSEBS(
          REAL RSIZE
      )

/* 
 *      ENTRY UUQEBS(RSIZE)
 */
      SUBROUTINE UUQEBS(
          REAL o RSIZE
      )

/*****************************************************
 * grph2/uupack/uusbrs.f
 ****************************************************/
/* 
 *      SUBROUTINE UUSBRS(RSIZE)
 */
      SUBROUTINE UUSBRS(
          REAL RSIZE
      )

/* 
 *      ENTRY UUQBRS(RSIZE)
 */
      SUBROUTINE UUQBRS(
          REAL o RSIZE
      )

/*****************************************************
 * grph2/uupack/uusfrt.f
 ****************************************************/
/* 
 *      SUBROUTINE UUSFRT(ITYPE)
 */
      SUBROUTINE UUSFRT(
          INTEGER ITYPE
      )

/* 
 *      ENTRY UUQFRT(ITYPE)
 */
      SUBROUTINE UUQFRT(
          INTEGER o ITYPE
      )

/* 
 *      ENTRY UUSFRI(INDEX)
 */
      SUBROUTINE UUSFRI(
          INTEGER INDEX
      )

/* 
 *      ENTRY UUQFRI(INDEX)
 */
      SUBROUTINE UUQFRI(
          INTEGER o INDEX
      )

/*****************************************************
 * grph2/uupack/uusarp.f
 ****************************************************/
/* 
 *      SUBROUTINE UUSARP(ITPT1,ITPT2)
 */
      SUBROUTINE UUSARP(
          INTEGER ITPT1
          INTEGER ITPT2
      )

/* 
 *      ENTRY UUQARP(ITPT1,ITPT2)
 */
      SUBROUTINE UUQARP(
          INTEGER o ITPT1
          INTEGER o ITPT2
      )

/*****************************************************
 * grph2/uupack/uusidv.f
 ****************************************************/
/* 
 *      SUBROUTINE UUSIDV(UMIN, UMAX)
 */
      SUBROUTINE UUSIDV(
          REAL UMIN
          REAL UMAX
      )

/* 
 *      ENTRY UUQIDV(UMIN, UMAX)
 */
      SUBROUTINE UUQIDV(
          REAL o UMIN
          REAL o UMAX
      )

/*****************************************************
 * grph2/uupack/uuiget.f
 ****************************************************/
/* 
 *      SUBROUTINE UUIGET(CP, IPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UUIGET(
          CHARACTER*(*) CP
          INTEGER o IPARA
      )

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

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

/*****************************************************
 * grph2/uupack/uuiqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UUIQNP(NCP)
 */
      SUBROUTINE UUIQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

/*****************************************************
 * grph2/uupack/uulget.f
 ****************************************************/
/* 
 *      SUBROUTINE UULGET(CP, LPARA)
 *      CHARACTER CP*(*)
 *      LOGICAL   LPARA
 */
      SUBROUTINE UULGET(
          CHARACTER*(*) CP
          LOGICAL o LPARA
      )

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

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

/*****************************************************
 * grph2/uupack/uulqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UULQNP(NCP)
 */
      SUBROUTINE UULQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

/*****************************************************
 * grph2/uupack/uurget.f
 ****************************************************/
/* 
 *      SUBROUTINE UURGET(CP, RPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UURGET(
          CHARACTER*(*) CP
          REAL o RPARA
      )

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

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

/*****************************************************
 * grph2/uupack/uurqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UURQNP(NCP)
 */
      SUBROUTINE UURQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

