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

/*****************************************************
 * grph2/umpack/umpmap.f
 ****************************************************/
/* 
 *      SUBROUTINE UMPMAP(CDSN)
 *      CHARACTER CDSN*(*)
 */
      SUBROUTINE UMPMAP(
          CHARACTER*(*) CDSN
      )

/*****************************************************
 * grph2/umpack/umqfnm.f
 ****************************************************/
/* 
 *      SUBROUTINE UMQFNM(CPARA,CFNAME)
 *      CHARACTER CPARA*(*),CFNAME*(*)
 */
      SUBROUTINE UMQFNM(
          CHARACTER*(*) CPARA
          CHARACTER*(*) o CFNAME
      )

/*****************************************************
 * grph2/umpack/umpglb.f
 ****************************************************/
/* 
 *      SUBROUTINE UMPGLB
 */
      SUBROUTINE UMPGLB(
      )

/*****************************************************
 * grph2/umpack/umpgrd.f
 ****************************************************/
/* 
 *      SUBROUTINE UMPGRD
 */
      SUBROUTINE UMPGRD(
      )

/*****************************************************
 * grph2/umpack/umplim.f
 ****************************************************/
/* 
 *      SUBROUTINE UMPLIM
 */
      SUBROUTINE UMPLIM(
      )

/*****************************************************
 * grph2/umpack/uminit.f
 ****************************************************/
/* 
 *      SUBROUTINE UMINIT
 */
      SUBROUTINE UMINIT(
      )

/*****************************************************
 * grph2/umpack/umscnt.f
 ****************************************************/
/* 
 *      SUBROUTINE UMSCNT(XCNT, YCNT, ROT)
 */
      SUBROUTINE UMSCNT(
          REAL XCNT
          REAL YCNT
          REAL ROT
      )

/* 
 *      ENTRY UMQCNT(XCNT, YCNT, ROT)
 */
      SUBROUTINE UMQCNT(
          REAL o XCNT
          REAL o YCNT
          REAL o ROT
      )

/*****************************************************
 * grph2/umpack/umscwd.f
 ****************************************************/
/* 
 *      SUBROUTINE UMSCWD(XCNTR, YCNTR, R)
 */
      SUBROUTINE UMSCWD(
          REAL XCNTR
          REAL YCNTR
          REAL R
      )

/* 
 *      ENTRY UMQCWD(XCNTR, YCNTR, R)
 */
      SUBROUTINE UMQCWD(
          REAL o XCNTR
          REAL o YCNTR
          REAL o R
      )

/*****************************************************
 * grph2/umpack/umspnt.f
 ****************************************************/
/* 
 *      SUBROUTINE UMSPNT(N, UX, UY)
 *      REAL      UX(*), UY(*)
 */
      SUBROUTINE UMSPNT(
          INTEGER N
          REAL (N) UX
          REAL (N) UY
      )

/* 
 *      ENTRY UMQPNT(N, UXA, UYA)
 */
      SUBROUTINE UMQPNT(
          INTEGER N
          REAL o UXA
          REAL o UYA
      )

/* 
 *      ENTRY UMQPTN(N)
 */
      SUBROUTINE UMQPTN(
          INTEGER o N
      )

/* 
 *      ENTRY UMRPNT
 */
      SUBROUTINE UMRPNT(
      )

/*****************************************************
 * grph2/umpack/umpfit.f
 ****************************************************/
/* 
 *      SUBROUTINE UMPFIT
 */
      SUBROUTINE UMPFIT(
      )

/*****************************************************
 * grph2/umpack/umpget.f
 ****************************************************/
/* 
 *      SUBROUTINE UMPGET(CP,IPARA)
 *      CHARACTER CP*(*)
 */
/*      SUBROUTINE UMPGET(
 *          CHARACTER*(*) CP
 *          INTEGER o IPARA
 *      )
 */

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

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

/*****************************************************
 * grph2/umpack/umpqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UMPQNP(NCP)
 */
      SUBROUTINE UMPQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

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

/*****************************************************
 * grph2/umpack/umspct.f
 ****************************************************/
/* 
 *      SUBROUTINE UMSPCT
 */
      SUBROUTINE UMSPCT(
      )

/*****************************************************
 * grph2/umpack/umspcw.f
 ****************************************************/
/* 
 *      SUBROUTINE UMSPCW
 */
      SUBROUTINE UMSPCW(
      )

/*****************************************************
 * grph2/umpack/umspwd.f
 ****************************************************/
/* 
 *      SUBROUTINE UMSPWD
 */
      SUBROUTINE UMSPWD(
      )

/*****************************************************
 * grph2/umpack/umsppt.f
 ****************************************************/
/* 
 *      SUBROUTINE UMSPPT
 */
      SUBROUTINE UMSPPT(
      )

/*****************************************************
 * grph2/umpack/umspdf.f
 ****************************************************/
/* 
 *      SUBROUTINE UMSPDF
 */
      SUBROUTINE UMSPDF(
      )

/*****************************************************
 * grph2/umpack/umbndc.f
 ****************************************************/
/* 
 *      SUBROUTINE UMBNDC(XMIN, XMAX, YMIN, YMAX)
 */
      SUBROUTINE UMBNDC(
          REAL io XMIN
          REAL o XMAX
          REAL o YMIN
          REAL o YMAX
      )

/*****************************************************
 * grph2/umpack/umbndp.f
 ****************************************************/
/* 
 *      SUBROUTINE UMBNDP(VXMIN, VXMAX, VYMIN, VYMAX)
 */
      SUBROUTINE UMBNDP(
          REAL io VXMIN
          REAL o VXMAX
          REAL o VYMIN
          REAL o VYMAX
      )

/*****************************************************
 * grph2/umpack/umbndr.f
 ****************************************************/
/* 
 *      SUBROUTINE UMBNDR(FUNC, FTR,
 *     +                  XMIN,  XMAX,  YMIN,  YMAX )
 */
      SUBROUTINE UMBNDR(
          REAL FUNC
          REAL FTR
          REAL o XMIN
          REAL o XMAX
          REAL o YMIN
          REAL o YMAX
      )

/*****************************************************
 * grph2/umpack/umqtxy.f
 ****************************************************/
/* 
 *      SUBROUTINE UMQTXY(TXMINZ, TXMAXZ, TYMINZ, TYMAXZ)
 */
      SUBROUTINE UMQTXY(
          REAL o TXMINZ
          REAL o TXMAXZ
          REAL o TYMINZ
          REAL o TYMAXZ
      )

/*****************************************************
 * grph2/umpack/umstvz.f
 ****************************************************/
/* 
 *      SUBROUTINE UMSTVZ
 */
      SUBROUTINE UMSTVZ(
      )

/*****************************************************
 * grph2/umpack/umsgrd.f
 ****************************************************/
/* 
 *      SUBROUTINE UMSGRD
 */
      SUBROUTINE UMSGRD(
      )

/*****************************************************
 * grph2/umpack/umscom.f
 ****************************************************/
/* 
 *      SUBROUTINE UMSCOM
 */
      SUBROUTINE UMSCOM(
      )

/*****************************************************
 * grph2/umpack/umiget.f
 ****************************************************/
/* 
 *      SUBROUTINE UMIGET(CP, IPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UMIGET(
          CHARACTER*(*) CP
          INTEGER o IPARA
      )

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

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

/*****************************************************
 * grph2/umpack/umiqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UMIQNP(NCP)
 */
      SUBROUTINE UMIQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

/*****************************************************
 * grph2/umpack/umlget.f
 ****************************************************/
/* 
 *      SUBROUTINE UMLGET(CP, LPARA)
 *      CHARACTER CP*(*)
 *      LOGICAL   LPARA
 */
      SUBROUTINE UMLGET(
          CHARACTER*(*) CP
          LOGICAL o LPARA
      )

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

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

/*****************************************************
 * grph2/umpack/umlqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UMLQNP(NCP)
 */
      SUBROUTINE UMLQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

/*****************************************************
 * grph2/umpack/umrget.f
 ****************************************************/
/* 
 *      SUBROUTINE UMRGET(CP, RPARA)
 *      CHARACTER CP*(*)
 */
      SUBROUTINE UMRGET(
          CHARACTER*(*) CP
          REAL o RPARA
      )

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

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

/*****************************************************
 * grph2/umpack/umrqnp.f
 ****************************************************/
/* 
 *      SUBROUTINE UMRQNP(NCP)
 */
      SUBROUTINE UMRQNP(
          INTEGER o NCP
      )

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

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

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

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

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

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

