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

/*****************************************************
 * grph2/uypack/uyptmz.f
 ****************************************************/
/* 
 *      SUBROUTINE UYPTMZ(UY,N,UPX,ROFFY,RTICK,INDEX)
 *      REAL      UY(*)
 */
/*
      SUBROUTINE UYPTMZ(
          REAL (N) UY
          INTEGER N
          REAL UPX
          REAL ROFFY
          REAL RTICK
          INTEGER INDEX
      )
 */

/*****************************************************
 * grph2/uypack/uyplba.f
 ****************************************************/
/* 
 *      SUBROUTINE UYPLBA(UY,CH,NC,N,UPX,ROFFY,RSIZE,IROTA,ICENT,INDEX)
 *      REAL      UY(*)
 *      CHARACTER CH(*)*(*)
 */
/*
      SUBROUTINE UYPLBA(
          REAL (N) UY
          CHARACTER*(*) (N) CH
          INTEGER NC
          INTEGER N
          REAL UPX
          REAL ROFFY
          REAL RSIZE
          INTEGER IROTA
          INTEGER ICENT
          INTEGER INDEX
      )
 */

/*****************************************************
 * grph2/uypack/uyplbb.f
 ****************************************************/
/* 
 *      SUBROUTINE UYPLBB(UY,CH,NC,N,UPX,ROFFY,RSIZE,IROTA,ICENT,INDEX,
 *     +                  RBTWN,LBOUND,LBMSG)
 *      REAL      UY(*)
 *      CHARACTER CH(*)*(*)
 *      LOGICAL   LBOUND,LBMSG
 */
/*
      SUBROUTINE UYPLBB(
          REAL (N) UY
          CHARACTER*(*) (N) CH
          INTEGER NC
          INTEGER N
          REAL UPX
          REAL ROFFY
          REAL RSIZE
          INTEGER IROTA
          INTEGER ICENT
          INTEGER INDEX
          REAL RBTWN
          LOGICAL LBOUND
          LOGICAL LBMSG
      )
 */

/*****************************************************
 * grph2/uypack/uysaxz.f
 ****************************************************/
/* 
 *      SUBROUTINE UYSAXZ(CSIDE,ROFFY)
 *      CHARACTER CSIDE*1
 */
      SUBROUTINE UYSAXZ(
          CHARACTER*1 CSIDE
          REAL ROFFY
      )

/*****************************************************
 * grph2/uypack/uysaxs.f
 ****************************************************/
/* 
 *      SUBROUTINE UYSAXS(CSIDE)
 *      CHARACTER CSIDE*1
 */
      SUBROUTINE UYSAXS(
          CHARACTER*1 CSIDE
      )

/*****************************************************
 * grph2/uypack/uysoff.f
 ****************************************************/
/* 
 *      SUBROUTINE UYSOFF
 */
/*
      SUBROUTINE UYSOFF(
      )
 */

/* 
 *      ENTRY UYROFF
 */
/*
      SUBROUTINE UYROFF(
      )
 */

/*****************************************************
 * grph2/uypack/uypaxs.f
 ****************************************************/
/* 
 *      SUBROUTINE UYPAXS(CSIDE,ISLCT)
 *      CHARACTER CSIDE*1
 */
      SUBROUTINE UYPAXS(
          CHARACTER*1 CSIDE
          INTEGER ISLCT
      )

/*****************************************************
 * grph2/uypack/uyptmk.f
 ****************************************************/
/* 
 *      SUBROUTINE UYPTMK(CSIDE,ISLCT,UY,N)
 *      CHARACTER CSIDE*1
 *      REAL      UY(*)
 */
      SUBROUTINE UYPTMK(
          CHARACTER*1 CSIDE
          INTEGER ISLCT
          REAL (N) UY
          INTEGER N
      )

/*****************************************************
 * grph2/uypack/uyplbl.f
 ****************************************************/
/* 
 *      SUBROUTINE UYPLBL(CSIDE,ISLCT,UY,CH,NC,N)
 *      CHARACTER CSIDE*1,CH(*)*(*)
 *      REAL      UY(*)
 */
      SUBROUTINE UYPLBL(
          CHARACTER*1 CSIDE
          INTEGER ISLCT
          REAL (N) UY
          CHARACTER*(*) (N) CH
          INTEGER NC
          INTEGER N
      )

/*****************************************************
 * grph2/uypack/uypnum.f
 ****************************************************/
/* 
 *      SUBROUTINE UYPNUM(CSIDE,ISLCT,UY,N)
 *      CHARACTER CSIDE*1
 *      REAL      UY(*)
 */
      SUBROUTINE UYPNUM(
          CHARACTER*1 CSIDE
          INTEGER ISLCT
          REAL (N) UY
          INTEGER N
      )

/*****************************************************
 * grph2/uypack/uypttl.f
 ****************************************************/
/* 
 *      SUBROUTINE UYPTTL(CSIDE,ISLCT,CTTL,PX)
 *      CHARACTER CSIDE*1,CTTL*(*)
 */
      SUBROUTINE UYPTTL(
          CHARACTER*1 CSIDE
          INTEGER ISLCT
          CHARACTER*(*) CTTL
          REAL PX
      )

/*****************************************************
 * grph2/uypack/uyaxlb.f
 ****************************************************/
/* 
 *      SUBROUTINE UYAXLB(CSIDE,UY1,N1,UY2,CH,NC,N2)
 *      CHARACTER CSIDE*1,CH(*)*(*)
 *      REAL      UY1(*),UY2(*)
 */
      SUBROUTINE UYAXLB(
          CHARACTER*1 CSIDE
          REAL (N1) UY1
          INTEGER N1
          REAL (N2) UY2
          CHARACTER*(*) (N2) CH
          INTEGER NC
          INTEGER N2
      )

/*****************************************************
 * grph2/uypack/uyaxnm.f
 ****************************************************/
/* 
 *      SUBROUTINE UYAXNM(CSIDE,UY1,N1,UY2,N2)
 *      CHARACTER CSIDE*1
 *      REAL      UY1(*),UY2(*)
 */
      SUBROUTINE UYAXNM(
          CHARACTER*1 CSIDE
          REAL (N1) UY1
          INTEGER N1
          REAL (N2) UY2
          INTEGER N2
      )

/*****************************************************
 * grph2/uypack/uyaxdv.f
 ****************************************************/
/* 
 *      SUBROUTINE UYAXDV(CSIDE,DY1,DY2)
 *      CHARACTER CSIDE*1
 */
      SUBROUTINE UYAXDV(
          CHARACTER*1 CSIDE
          REAL DY1
          REAL DY2
      )

/*****************************************************
 * grph2/uypack/uymttl.f
 ****************************************************/
/* 
 *      SUBROUTINE UYMTTL(CSIDE,CTTL,PX)
 *      CHARACTER CSIDE*1,CTTL*(*)
 */
      SUBROUTINE UYMTTL(
          CHARACTER*1 CSIDE
          CHARACTER*(*) CTTL
          REAL PX
      )

/*****************************************************
 * grph2/uypack/uysttl.f
 ****************************************************/
/* 
 *      SUBROUTINE UYSTTL(CSIDE,CTTL,PX)
 *      CHARACTER CSIDE*1,CTTL*(*)
 */
      SUBROUTINE UYSTTL(
          CHARACTER*1 CSIDE
          CHARACTER*(*) CTTL
          REAL PX
      )

/*****************************************************
 * grph2/uypack/luychk.f
 ****************************************************/
/* 
 *      LOGICAL FUNCTION LUYCHK(CSIDE)
 *      CHARACTER CSIDE*(*)
 */
/*
      LOGICAL FUNCTION LUYCHK(
          CHARACTER*(*) CSIDE
      )
 */

/*****************************************************
 * grph2/uypack/uysfmt.f
 ****************************************************/
/* 
 *      SUBROUTINE UYSFMT(CFMT)
 *      CHARACTER CFMT*(*)
 */
      SUBROUTINE UYSFMT(
          CHARACTER*(*) CFMT
      )

/* 
 *      ENTRY UYQFMT(CFMT)
 *      CHARACTER CFMT*(*)
 */
      SUBROUTINE UYQFMT(
          CHARACTER*(*) o CFMT
      )