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

/*****************************************************
 * grph2/uvpack/uverb.f
 ****************************************************/
/* 
 *      SUBROUTINE UVERB(N,UPX,UPY1,UPY2)
 *      REAL      UPX(*),UPY1(*),UPY2(*)
 */
      SUBROUTINE UVERB(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY1
          REAL (N) UPY2
      )

/*****************************************************
 * grph2/uvpack/uverbz.f
 ****************************************************/
/* 
 *      SUBROUTINE UVERBZ(N,UPX,UPY1,UPY2,ITYPE,INDEX,RSIZE)
 *      REAL      UPX(*),UPY1(*),UPY2(*)
 */
      SUBROUTINE UVERBZ(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY1
          REAL (N) UPY2
          INTEGER ITYPE
          INTEGER INDEX
          REAL RSIZE
      )

/*****************************************************
 * grph2/uvpack/uvdif.f
 ****************************************************/
/* 
 *      SUBROUTINE UVDIF(N,UPX,UPY1,UPY2)
 *      REAL      UPX(*),UPY1(*),UPY2(*)
 */
      SUBROUTINE UVDIF(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY1
          REAL (N) UPY2
      )

/*****************************************************
 * grph2/uvpack/uvdifz.f
 ****************************************************/
/* 
 *      SUBROUTINE UVDIFZ(N,UPX,UPY1,UPY2,ITPAT1,ITPAT2)
 *      REAL      UPX(*),UPY1(*),UPY2(*)
 */
      SUBROUTINE UVDIFZ(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY1
          REAL (N) UPY2
          INTEGER ITPAT1
          INTEGER ITPAT2
      )

/*****************************************************
 * grph2/uvpack/uvbrf.f
 ****************************************************/
/* 
 *      SUBROUTINE UVBRF(N,UPX,UPY1,UPY2)
 *      REAL      UPX(*),UPY1(*),UPY2(*)
 */
      SUBROUTINE UVBRF(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY1
          REAL (N) UPY2
      )

/*****************************************************
 * grph2/uvpack/uvbrfz.f
 ****************************************************/
/* 
 *      SUBROUTINE UVBRFZ(N,UPX,UPY1,UPY2,ITYPE,INDEX,RSIZE)
 *      REAL      UPX(*),UPY1(*),UPY2(*)
 */
      SUBROUTINE UVBRFZ(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY1
          REAL (N) UPY2
          INTEGER ITYPE
          INTEGER INDEX
          REAL RSIZE
      )

/*****************************************************
 * grph2/uvpack/uvbra.f
 ****************************************************/
/* 
 *      SUBROUTINE UVBRA(N,UPX,UPY1,UPY2)
 *      REAL      UPX(*),UPY1(*),UPY2(*)
 */
      SUBROUTINE UVBRA(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY1
          REAL (N) UPY2
      )

/*****************************************************
 * grph2/uvpack/uvbraz.f
 ****************************************************/
/* 
 *      SUBROUTINE UVBRAZ(N,UPX,UPY1,UPY2,ITPAT1,ITPAT2,RSIZE)
 *      REAL      UPX(*),UPY1(*),UPY2(*)
 */
      SUBROUTINE UVBRAZ(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY1
          REAL (N) UPY2
          INTEGER ITPAT1
          INTEGER ITPAT2
          REAL RSIZE
      )

/*****************************************************
 * grph2/uvpack/uvbrl.f
 ****************************************************/
/* 
 *      SUBROUTINE UVBRL(N,UPX,UPY)
 *      REAL      UPX(*),UPY(*)
 */
      SUBROUTINE UVBRL(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY
      )

/*****************************************************
 * grph2/uvpack/uvbrlz.f
 ****************************************************/
/* 
 *      SUBROUTINE UVBRLZ(N,UPX,UPY,ITYPE,INDEX,RSIZE)
 *      REAL      UPX(*),UPY(*)
 */
      SUBROUTINE UVBRLZ(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY
          INTEGER ITYPE
          INTEGER INDEX
          REAL RSIZE
      )

/*****************************************************
 * grph2/uvpack/uvbxf.f
 ****************************************************/
/* 
 *      SUBROUTINE UVBXF(N,UPX,UPY1,UPY2)
 *      REAL      UPX(*),UPY1(*),UPY2(*)
 */
      SUBROUTINE UVBXF(
          INTEGER N
          REAL (N+1) UPX
          REAL (N) UPY1
          REAL (N) UPY2
      )

/*****************************************************
 * grph2/uvpack/uvbxfz.f
 ****************************************************/
/* 
 *      SUBROUTINE UVBXFZ(N,UPX,UPY1,UPY2,ITYPE,INDEX)
 *      REAL      UPX(*),UPY1(*),UPY2(*)
 */
      SUBROUTINE UVBXFZ(
          INTEGER N
          REAL (N+1) UPX
          REAL (N) UPY1
          REAL (N) UPY2
          INTEGER ITYPE
          INTEGER INDEX
      )

/*****************************************************
 * grph2/uvpack/uvbxa.f
 ****************************************************/
/* 
 *      SUBROUTINE UVBXA(N,UPX,UPY1,UPY2)
 *      REAL      UPX(*),UPY1(*),UPY2(*)
 */
      SUBROUTINE UVBXA(
          INTEGER N
          REAL (N+1) UPX
          REAL (N) UPY1
          REAL (N) UPY2
      )

/*****************************************************
 * grph2/uvpack/uvbxaz.f
 ****************************************************/
/* 
 *      SUBROUTINE UVBXAZ(N,UPX,UPY1,UPY2,ITPAT1,ITPAT2)
 *      REAL      UPX(*),UPY1(*),UPY2(*)
 */
      SUBROUTINE UVBXAZ(
          INTEGER N
          REAL (N+1) UPX
          REAL (N) UPY1
          REAL (N) UPY2
          INTEGER ITPAT1
          INTEGER ITPAT2
      )

/*****************************************************
 * grph2/uvpack/uvbxl.f
 ****************************************************/
/* 
 *      SUBROUTINE UVBXL(N,UPX,UPY)
 *      REAL      UPX(*),UPY(*)
 */
      SUBROUTINE UVBXL(
          INTEGER N
          REAL (N+1) UPX
          REAL (N) UPY
      )

/*****************************************************
 * grph2/uvpack/uvbxlz.f
 ****************************************************/
/* 
 *      SUBROUTINE UVBXLZ(N,UPX,UPY,ITYPE,INDEX)
 *      REAL      UPX(*),UPY(*)
 */
      SUBROUTINE UVBXLZ(
          INTEGER N
          REAL (N+1) UPX
          REAL (N) UPY
          INTEGER ITYPE
          INTEGER INDEX
      )