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

/*****************************************************
 * grph2/ucpack/nucchr.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION NUCCHR(CS,ND)
 *      CHARACTER CS*(*)
 */
/*
      INTEGER FUNCTION NUCCHR(
          CHARACTER*(*) CS
          INTEGER ND
      )
 */

/*****************************************************
 * grph2/ucpack/nucday.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION NUCDAY(CS,ND)
 *      CHARACTER CS*(*)
 */
/*
      INTEGER FUNCTION NUCDAY(
          CHARACTER*(*) CS
          INTEGER ND
      )
 */

/*****************************************************
 * grph2/ucpack/ucpget.f
 ****************************************************/
/* 
 *      SUBROUTINE UCPGET(CP, IPARA)
 *      CHARACTER CP*(*)
 */
/*      SUBROUTINE UCPGET(
 *          CHARACTER*(*) CP
 *          INTEGER o IPARA
 *      )
 */

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

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

/*****************************************************
 * grph2/ucpack/ucpqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UCPQNP(NCP)
 */
      SUBROUTINE UCPQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

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

/*****************************************************
 * grph2/ucpack/ucxacl.f
 ****************************************************/
/* 
 *      SUBROUTINE UCXACL(CSIDE,JD0,ND)
 *      CHARACTER CSIDE*1
 */
      SUBROUTINE UCXACL(
          CHARACTER*1 CSIDE
          INTEGER JD0
          INTEGER ND
      )

/*****************************************************
 * grph2/ucpack/ucxady.f
 ****************************************************/
/* 
 *      SUBROUTINE UCXADY(CSIDE,JD0,ND)
 *      CHARACTER CSIDE*1
 */
      SUBROUTINE UCXADY(
          CHARACTER*1 CSIDE
          INTEGER JD0
          INTEGER ND
      )

/*****************************************************
 * grph2/ucpack/ucxamn.f
 ****************************************************/
/* 
 *      SUBROUTINE UCXAMN(CSIDE,JD0,ND)
 *      CHARACTER CSIDE*1
 */
      SUBROUTINE UCXAMN(
          CHARACTER*1 CSIDE
          INTEGER JD0
          INTEGER ND
      )

/*****************************************************
 * grph2/ucpack/ucxayr.f
 ****************************************************/
/* 
 *      SUBROUTINE UCXAYR(CSIDE,JD0,ND)
 *      CHARACTER CSIDE*1
 */
      SUBROUTINE UCXAYR(
          CHARACTER*1 CSIDE
          INTEGER JD0
          INTEGER ND
      )

/*****************************************************
 * grph2/ucpack/ucyacl.f
 ****************************************************/
/* 
 *      SUBROUTINE UCYACL(CSIDE,JD0,ND)
 *      CHARACTER CSIDE*1
 */
      SUBROUTINE UCYACL(
          CHARACTER*1 CSIDE
          INTEGER JD0
          INTEGER ND
      )

/*****************************************************
 * grph2/ucpack/ucyady.f
 ****************************************************/
/* 
 *      SUBROUTINE UCYADY(CSIDE,JD0,ND)
 *      CHARACTER CSIDE*1
 */
      SUBROUTINE UCYADY(
          CHARACTER*1 CSIDE
          INTEGER JD0
          INTEGER ND
      )

/*****************************************************
 * grph2/ucpack/ucyamn.f
 ****************************************************/
/* 
 *      SUBROUTINE UCYAMN(CSIDE,JD0,ND)
 *      CHARACTER CSIDE*1
 */
      SUBROUTINE UCYAMN(
          CHARACTER*1 CSIDE
          INTEGER JD0
          INTEGER ND
      )

/*****************************************************
 * grph2/ucpack/ucyayr.f
 ****************************************************/
/* 
 *      SUBROUTINE UCYAYR(CSIDE,JD0,ND)
 *      CHARACTER CSIDE*1
 */
      SUBROUTINE UCYAYR(
          CHARACTER*1 CSIDE
          INTEGER JD0
          INTEGER ND
      )

/*****************************************************
 * grph2/ucpack/uciget.f
 ****************************************************/
/* 
 *      SUBROUTINE UCIGET(CP, IPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UCIGET(
          CHARACTER*(*) CP
          INTEGER o IPARA
      )

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

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

/*****************************************************
 * grph2/ucpack/uciqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UCIQNP(NCP)
 */
      SUBROUTINE UCIQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

/*****************************************************
 * grph2/ucpack/uclget.f
 ****************************************************/
/* 
 *      SUBROUTINE UCLGET(CP, LPARA)
 *      CHARACTER CP*(*)
 *      LOGICAL   LPARA
 */
      SUBROUTINE UCLGET(
          CHARACTER*(*) CP
          LOGICAL o LPARA
      )

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

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

/*****************************************************
 * grph2/ucpack/uclqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UCLQNP(NCP)
 */
      SUBROUTINE UCLQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

/*****************************************************
 * grph2/ucpack/ucrget.f
 ****************************************************/
/* 
 *      SUBROUTINE UCRGET(CP, RPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UCRGET(
          CHARACTER*(*) CP
          REAL o RPARA
      )

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

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

/*****************************************************
 * grph2/ucpack/ucrqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UCRQNP(NCP)
 */
      SUBROUTINE UCRQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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