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

/*****************************************************
 * grph2/uspack/usgrph.f
 ****************************************************/
/* 
 *      SUBROUTINE USGRPH(N, X, Y)
 *      REAL      X(*), Y(*)
 */
      SUBROUTINE USGRPH(
          INTEGER N
          REAL (N) X
          REAL (N) Y
      )

/*****************************************************
 * grph2/uspack/ussttl.f
 ****************************************************/
/* 
 *      SUBROUTINE USSTTL(CXTTL, CXUNIT, CYTTL, CYUNIT)
 *      CHARACTER*(*) CXTTL, CXUNIT, CYTTL, CYUNIT
 */
      SUBROUTINE USSTTL(
          CHARACTER*(*) CXTTL
          CHARACTER*(*) CXUNIT
          CHARACTER*(*) CYTTL
          CHARACTER*(*) CYUNIT
      )

/*****************************************************
 * grph2/uspack/usspnt.f
 ****************************************************/
/* 
 *      SUBROUTINE USSPNT(N, X, Y)
 *      REAL  X(*), Y(*)
 */
      SUBROUTINE USSPNT(
          INTEGER N
          REAL (N) X
          REAL (N) Y
      )

/*****************************************************
 * grph2/uspack/uspfit.f
 ****************************************************/
/* 
 *      SUBROUTINE USPFIT
 */
      SUBROUTINE USPFIT(
      )

/*****************************************************
 * grph2/uspack/usdaxs.f
 ****************************************************/
/* 
 *      SUBROUTINE USDAXS
 */
      SUBROUTINE USDAXS(
      )

/*****************************************************
 * grph2/uspack/usinit.f
 ****************************************************/
/* 
 *      SUBROUTINE USINIT
 */
      SUBROUTINE USINIT(
      )

/*****************************************************
 * grph2/uspack/uspget.f
 ****************************************************/
/* 
 *      SUBROUTINE USPGET(CP,IPARA)
 *      CHARACTER CP*(*)
 */
/*      SUBROUTINE USPGET(
 *          CHARACTER*(*) CP
 *          INTEGER o IPARA
 *      )
 */

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

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

/*****************************************************
 * grph2/uspack/uspqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE USPQNP(NCP)
 */
      SUBROUTINE USPQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

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

/*****************************************************
 * grph2/uspack/uscget.f
 ****************************************************/
/* 
 *      SUBROUTINE USCGET(CP,CPARA)
 *      CHARACTER CP*(*), CPARA*(*)
 */
      SUBROUTINE USCGET(
          CHARACTER*(*) CP
          CHARACTER*(*) o CPARA
      )

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

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

/*****************************************************
 * grph2/uspack/uscqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE USCQNP(NCP)
 */
      SUBROUTINE USCQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

/*****************************************************
 * grph2/uspack/usurdl.f
 ****************************************************/
/* 
 *      SUBROUTINE USURDL(UMIN, UMAX, VMIN, VMAX)
 */
      SUBROUTINE USURDL(
          REAL io UMIN
          REAL io UMAX
          REAL VMIN
          REAL VMAX
      )

/*****************************************************
 * grph2/uspack/usxaxs.f
 ****************************************************/
/* 
 *      SUBROUTINE USXAXS(CSIDE)
 *      CHARACTER  CSIDE*(*), CS*1
 */
      SUBROUTINE USXAXS(
          CHARACTER*(*) CSIDE
      )

/*****************************************************
 * grph2/uspack/usyaxs.f
 ****************************************************/
/* 
 *      SUBROUTINE USYAXS(CSIDE)
 *      CHARACTER  CSIDE*(*), CS*1
 */
      SUBROUTINE USYAXS(
          CHARACTER*(*) CSIDE
      )

/*****************************************************
 * grph2/uspack/ususcu.f
 ****************************************************/
/* 
 *      SUBROUTINE USUSCU(CAXIS, UMIN,  UMAX,  VMIN,  VMAX,  MODE)
 *      CHARACTER   CAXIS*1,  CFMT*8
 */
      SUBROUTINE USUSCU(
          CHARACTER*1 CAXIS
          REAL UMIN
          REAL UMAX
          REAL VMIN
          REAL VMAX
          INTEGER MODE
      )

/*****************************************************
 * grph2/uspack/ususcl.f
 ****************************************************/
/* 
 *      SUBROUTINE USUSCL(CAXIS, UMIN,  UMAX,  VMIN,  VMAX)
 *      CHARACTER   CAXIS*1, CP*8
 */
      SUBROUTINE USUSCL(
          CHARACTER*1 CAXIS
          REAL UMIN
          REAL UMAX
          REAL VMIN
          REAL VMAX
      )

/*****************************************************
 * grph2/uspack/usxaxu.f
 ****************************************************/
/* 
 *      SUBROUTINE USXAXU(CXS)
 *      CHARACTER CXS*(*), CXFMT*8, CXUNIT*32
 */
      SUBROUTINE USXAXU(
          CHARACTER*(*) CXS
      )

/*****************************************************
 * grph2/uspack/usxaxl.f
 ****************************************************/
/* 
 *      SUBROUTINE USXAXL(CXS)
 *      CHARACTER CXS*(*), CUNIT*32, CXSUB*32, CSBLBL*32, CPOS*1, CP*8
 */
      SUBROUTINE USXAXL(
          CHARACTER*(*) CXS
      )

/*****************************************************
 * grph2/uspack/usyaxu.f
 ****************************************************/
/* 
 *      SUBROUTINE USYAXU(CYS)
 *      CHARACTER CYS*(*), CYFMT*8, CYUNIT*32
 */
      SUBROUTINE USYAXU(
          CHARACTER*(*) CYS
      )

/*****************************************************
 * grph2/uspack/usyaxl.f
 ****************************************************/
/* 
 *      SUBROUTINE USYAXL(CYS)
 *      CHARACTER CYS*(*), CUNIT*32, CYSUB*32, CSBLBL*32, CPOS*1, CP*8
 */
      SUBROUTINE USYAXL(
          CHARACTER*(*) CYS
      )

/*****************************************************
 * grph2/uspack/usxsub.f
 ****************************************************/
/* 
 *      SUBROUTINE USXSUB(CXA, CYA, CLABEL, RLBL)
 *      CHARACTER CLABEL*(*), CXS*1, CYS*1, CXA*1, CYA*1, CP*8
 */
      SUBROUTINE USXSUB(
          CHARACTER*1 CXA
          CHARACTER*1 CYA
          CHARACTER*(*) CLABEL
          REAL RLBL
      )

/*****************************************************
 * grph2/uspack/usysub.f
 ****************************************************/
/* 
 *      SUBROUTINE USYSUB(CYA, CXA, CLABEL, RLBL)
 *      CHARACTER CLABEL*(*), CXS*1, CYS*1, CXA*1, CYA*1, CP*8
 */
      SUBROUTINE USYSUB(
          CHARACTER*1 CYA
          CHARACTER*1 CXA
          CHARACTER*(*) CLABEL
          REAL RLBL
      )

/*****************************************************
 * grph2/uspack/csblbl.f
 ****************************************************/
/* 
 *      FUNCTION CSBLBL(UFAC, UOFF, CUNIT)
 *      CHARACTER CSBLBL*(*), CUNIT*(*), CSUB*32, CBLKT*2,
 */
      CHARACTER*(*) FUNCTION CSBLBL(
          REAL UFAC
          REAL UOFF
          CHARACTER*(*) CUNIT
      )

/*****************************************************
 * grph2/uspack/uschvl.f
 ****************************************************/
/* 
 *      SUBROUTINE USCHVL(X, CHX)
 *      REAL X
 *      CHARACTER CHX*(*), CFMT*16, CVAL*16, CEXP*8, CEXP2*8, CSGI*1
 */
      SUBROUTINE USCHVL(
          REAL X
          CHARACTER*(*) o CHX
      )

/*****************************************************
 * grph2/uspack/usxoff.f
 ****************************************************/
/* 
 *      SUBROUTINE USXOFF(CXS)
 *      CHARACTER*1 CXS, CP*8
 */
      SUBROUTINE USXOFF(
          CHARACTER*1 CXS
      )

/*****************************************************
 * grph2/uspack/usyoff.f
 ****************************************************/
/* 
 *      SUBROUTINE USYOFF(CYS)
 *      CHARACTER*1 CYS, CP*8
 */
      SUBROUTINE USYOFF(
          CHARACTER*1 CYS
      )

/*****************************************************
 * grph2/uspack/uszdgt.f
 ****************************************************/
/* 
 *      SUBROUTINE USZDGT(UMIN,  UMAX,  DUL,   MAXDGT,
 *     #                  UOFF,  UFACT, NDGT,  LDGT)
 */
      SUBROUTINE USZDGT(
          REAL UMIN
          REAL UMAX
          REAL DUL
          INTEGER MAXDGT
          REAL io UOFF
          REAL io UFACT
          INTEGER o NDGT
          INTEGER o LDGT
      )

/*****************************************************
 * grph2/uspack/uswapz.f
 ****************************************************/
/* 
 *      SUBROUTINE USWAPZ(X1, X2, N)
 *      REAL X1(N), X2(N)
 */
      SUBROUTINE USWAPZ(
          REAL (N) io X1
          REAL (N) io X2
          INTEGER N
      )

/*****************************************************
 * grph2/uspack/usurdt.f
 ****************************************************/
/* 
 *      SUBROUTINE USURDT(UMIN, UMAX, VMIN, VMAX, DUT)
 */
      SUBROUTINE USURDT(
          REAL io UMIN
          REAL io UMAX
          REAL VMIN
          REAL VMAX
          REAL o DUT
      )

/*****************************************************
 * grph2/uspack/usaxcl.f
 ****************************************************/
/* 
 *      SUBROUTINE USAXCL(CSIDE, JD0, CTYPE, ND)
 *      CHARACTER  CSIDE*(*), CTYPE*(*), CS, CT
 */
      SUBROUTINE USAXCL(
          CHARACTER*(*) CSIDE
          INTEGER JD0
          CHARACTER*(*) CTYPE
          INTEGER ND
      )

/*****************************************************
 * grph2/uspack/usaxdv.f
 ****************************************************/
/* 
 *      SUBROUTINE USAXDV(CSIDE, DTICK, DLBL)
 *      CHARACTER  CSIDE*(*), CS
 */
      SUBROUTINE USAXDV(
          CHARACTER*(*) CSIDE
          REAL DTICK
          REAL DLBL
      )

/*****************************************************
 * grph2/uspack/usaxlb.f
 ****************************************************/
/* 
 *      SUBROUTINE USAXLB(CSIDE, DTICK, N1, DLABEL, CH, NC, N2)
 *      CHARACTER  CSIDE*(*), CS, CH(*)*(*)
 *      REAL       DTICK(N1), DLABEL(N2), DTZ(N0),DLZ(N0)
 */
      SUBROUTINE USAXLB(
          CHARACTER*(*) CSIDE
          REAL (N1) DTICK
          INTEGER N1
          REAL (N2) DLABEL
          CHARACTER*(*) (N2) CH
          INTEGER NC
          INTEGER N2
      )

/*****************************************************
 * grph2/uspack/usaxlg.f
 ****************************************************/
/* 
 *      SUBROUTINE USAXLG(CSIDE, NLBL, NTICKS)
 *      CHARACTER  CSIDE*(*), CS
 */
      SUBROUTINE USAXLG(
          CHARACTER*(*) CSIDE
          INTEGER NLBL
          INTEGER NTICKS
      )

/*****************************************************
 * grph2/uspack/usaxnm.f
 ****************************************************/
/* 
 *      SUBROUTINE USAXNM(CSIDE, DTICK, N1, DLABEL, N2)
 *      CHARACTER  CSIDE*(*), CS
 *      REAL       DTICK(N1), DLABEL(N2), DTZ(N0),DLZ(N0)
 */
      SUBROUTINE USAXNM(
          CHARACTER*(*) CSIDE
          REAL (N1) DTICK
          INTEGER N1
          REAL (N2) DLABEL
          INTEGER N2
      )

/*****************************************************
 * grph2/uspack/usaxsc.f
 ****************************************************/
/* 
 *      SUBROUTINE USAXSC(CSIDE)
 *      CHARACTER  CSIDE*(*), CS, CP*8
 */
      SUBROUTINE USAXSC(
          CHARACTER*(*) CSIDE
      )

/*****************************************************
 * grph2/uspack/usiget.f
 ****************************************************/
/* 
 *      SUBROUTINE USIGET(CP, IPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE USIGET(
          CHARACTER*(*) CP
          INTEGER o IPARA
      )

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

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

/*****************************************************
 * grph2/uspack/usiqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE USIQNP(NCP)
 */
      SUBROUTINE USIQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

/*****************************************************
 * grph2/uspack/uslget.f
 ****************************************************/
/* 
 *      SUBROUTINE USLGET(CP, LPARA)
 *      CHARACTER CP*(*)
 *      LOGICAL   LPARA
 */
      SUBROUTINE USLGET(
          CHARACTER*(*) CP
          LOGICAL o LPARA
      )

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

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

/*****************************************************
 * grph2/uspack/uslqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE USLQNP(NCP)
 */
      SUBROUTINE USLQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

/*****************************************************
 * grph2/uspack/uspaxs.f
 ****************************************************/
/* 
 *      SUBROUTINE USPAXS(CSIDE, ISLCT)
 *      CHARACTER  CSIDE*(*), CS
 */
      SUBROUTINE USPAXS(
          CHARACTER*(*) CSIDE
          INTEGER ISLCT
      )

/*****************************************************
 * grph2/uspack/usplbl.f
 ****************************************************/
/* 
 *      SUBROUTINE USPLBL(CSIDE, ISLCT, POS, CH, NC, N)
 *      CHARACTER  CSIDE*(*), CH(*)*(*), CS
 *      REAL       POS(N)
 */
      SUBROUTINE USPLBL(
          CHARACTER*(*) CSIDE
          INTEGER ISLCT
          REAL (N) POS
          CHARACTER*(*) (N) CH
          INTEGER NC
          INTEGER N
      )

/*****************************************************
 * grph2/uspack/uspnum.f
 ****************************************************/
/* 
 *      SUBROUTINE USPNUM(CSIDE, ISLCT, POS, N)
 *      CHARACTER  CSIDE*(*), CS
 *      REAL       POS(N)
 */
      SUBROUTINE USPNUM(
          CHARACTER*(*) CSIDE
          INTEGER ISLCT
          REAL (N) POS
          INTEGER N
      )

/*****************************************************
 * grph2/uspack/usptmk.f
 ****************************************************/
/* 
 *      SUBROUTINE USPTMK(CSIDE, ISLCT, POS, N)
 *      CHARACTER  CSIDE*(*), CS
 *      REAL       POS(N)
 */
      SUBROUTINE USPTMK(
          CHARACTER*(*) CSIDE
          INTEGER ISLCT
          REAL (N) POS
          INTEGER N
      )

/*****************************************************
 * grph2/uspack/uspttl.f
 ****************************************************/
/* 
 *      SUBROUTINE USPTTL(CSIDE, ISLCT, CTTL, POS)
 *      CHARACTER  CSIDE*(*), CTTL*(*), CS
 */
      SUBROUTINE USPTTL(
          CHARACTER*(*) CSIDE
          INTEGER ISLCT
          CHARACTER*(*) CTTL
          REAL POS
      )

/*****************************************************
 * grph2/uspack/usrget.f
 ****************************************************/
/* 
 *      SUBROUTINE USRGET(CP, RPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE USRGET(
          CHARACTER*(*) CP
          REAL o RPARA
      )

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

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

/*****************************************************
 * grph2/uspack/usrqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE USRQNP(NCP)
 */
      SUBROUTINE USRQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

/*****************************************************
 * grph2/uspack/ussaxs.f
 ****************************************************/
/* 
 *      SUBROUTINE USSAXS(CSIDE)
 *      CHARACTER  CSIDE*(*), CS
 */
      SUBROUTINE USSAXS(
          CHARACTER*(*) CSIDE
      )

/*****************************************************
 * grph2/uspack/usxinz.f
 ****************************************************/
/* 
 *      SUBROUTINE USXINZ(CSA, FACA, OFFA)
 *      CHARACTER CSA, CS, CPOS
 */
      SUBROUTINE USXINZ(
          CHARACTER*(*) CSA
          REAL o FACA
          REAL o OFFA
      )

/* 
 *      ENTRY USXTLZ
 */
      SUBROUTINE USXTLZ(
      )

/*****************************************************
 * grph2/uspack/usyinz.f
 ****************************************************/
/* 
 *      SUBROUTINE USYINZ(CSA, FACA, OFFA)
 *      CHARACTER CSA, CS, CPOS
 */
      SUBROUTINE USYINZ(
          CHARACTER*(*) CSA
          REAL o FACA
          REAL o OFFA
      )

/* 
 *      ENTRY USYTLZ
 */
      SUBROUTINE USYTLZ(
      )