ruby-dcl 1.6.2

data/GenWrapper/proto/grph2_uspack.fp

@@ -0,0 +1,989 @@
+/*
+ * grph2_uspack.fp
+ *
+ * $Id: grph2_uspack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout 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(
+      )
+