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

/*****************************************************
 * grph2/uwpack/uwsgxa.f
 ****************************************************/
/* 
 *      SUBROUTINE UWSGXA(XP,NX)
 *      REAL      XP(*)
 */
      SUBROUTINE UWSGXA(
          REAL (NX) XP
          INTEGER NX
      )

/* 
 *      ENTRY UWQGXA(XP,NX)
 *      REAL      XP(*)
 */
      SUBROUTINE UWQGXA(
          REAL (NX) o XP
          INTEGER o NX
      )

/* 
 *      ENTRY UWSGXB(UXMIN,UXMAX,NX)
 */
      SUBROUTINE UWSGXB(
          REAL UXMIN
          REAL UXMAX
          INTEGER NX
      )

/* 
 *      ENTRY UWQGXB(UXMIN,UXMAX,NX)
 */
      SUBROUTINE UWQGXB(
          REAL o UXMIN
          REAL o UXMAX
          INTEGER o NX
      )

/* 
 *      ENTRY UWSGXZ(LSETX)
 *      LOGICAL   LSETX
 */
      SUBROUTINE UWSGXZ(
          LOGICAL LSETX
      )

/* 
 *      ENTRY UWQGXZ(LSETX)
 *      LOGICAL   LSETX
 */
      SUBROUTINE UWQGXZ(
          LOGICAL o LSETX
      )

/*****************************************************
 * grph2/uwpack/uwsgya.f
 ****************************************************/
/* 
 *      SUBROUTINE UWSGYA(YP,NY)
 *      REAL      YP(*)
 */
      SUBROUTINE UWSGYA(
          REAL (NY) YP
          INTEGER NY
      )

/* 
 *      ENTRY UWQGYA(YP,NY)
 *      REAL      YP(*)
 */
      SUBROUTINE UWQGYA(
          REAL (NY) o YP
          INTEGER o NY
      )

/* 
 *      ENTRY UWSGYB(UYMIN,UYMAX,NY)
 */
      SUBROUTINE UWSGYB(
          REAL UYMIN
          REAL UYMAX
          INTEGER NY
      )

/* 
 *      ENTRY UWQGYB(UYMIN,UYMAX,NY)
 */
      SUBROUTINE UWQGYB(
          REAL o UYMIN
          REAL o UYMAX
          INTEGER o NY
      )

/* 
 *      ENTRY UWSGYZ(LSETY)
 *      LOGICAL   LSETY
 */
      SUBROUTINE UWSGYZ(
          LOGICAL LSETY
      )

/* 
 *      ENTRY UWQGYZ(LSETY)
 *      LOGICAL   LSETY
 */
      SUBROUTINE UWQGYZ(
          LOGICAL o LSETY
      )

/*****************************************************
 * grph2/uwpack/uwqgxi.f
 ****************************************************/
/* 
 *      SUBROUTINE UWQGXI(UX,IUX,FRAC)
 */
      SUBROUTINE UWQGXI(
          REAL UX
          INTEGER o IUX
          REAL o FRAC
      )

/* 
 *      ENTRY UWIGXI
 */
      SUBROUTINE UWIGXI(
      )

/*****************************************************
 * grph2/uwpack/uwqgyi.f
 ****************************************************/
/* 
 *      SUBROUTINE UWQGYI(UY,IUY,FRAC)
 */
      SUBROUTINE UWQGYI(
          REAL UY
          INTEGER o IUY
          REAL o FRAC
      )

/* 
 *      ENTRY UWIGYI
 */
      SUBROUTINE UWIGYI(
      )

/*****************************************************
 * grph2/uwpack/ruwgx.f
 ****************************************************/
/* 
 *      REAL FUNCTION RUWGX(IX)
 */
      REAL FUNCTION RUWGX(
          INTEGER IX
      )

/*****************************************************
 * grph2/uwpack/ruwgy.f
 ****************************************************/
/* 
 *      REAL FUNCTION RUWGY(IY)
 */
      REAL FUNCTION RUWGY(
          INTEGER IY
      )

/*****************************************************
 * grph2/uwpack/iuwgx.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IUWGX(UX)
 */
      INTEGER FUNCTION IUWGX(
          REAL UX
      )

/*****************************************************
 * grph2/uwpack/iuwgy.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION IUWGY(UY)
 */
      INTEGER FUNCTION IUWGY(
          REAL UY
      )

/*****************************************************
 * grph2/uwpack/uwdflt.f
 ****************************************************/
/* 
 *      SUBROUTINE UWDFLT(NX,NY)
 */
      SUBROUTINE UWDFLT(
          INTEGER NX
          INTEGER NY
      )

