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

/*****************************************************
 * grph2/uhpack/uherb.f
 ****************************************************/
/* 
 *      SUBROUTINE UHERB(N,UPX1,UPX2,UPY)
 *      REAL      UPX1(*),UPX2(*),UPY(*)
 */
      SUBROUTINE UHERB(
          INTEGER N
          REAL (N) UPX1
          REAL (N) UPX2
          REAL (N) UPY
      )

/*****************************************************
 * grph2/uhpack/uherbz.f
 ****************************************************/
/* 
 *      SUBROUTINE UHERBZ(N,UPX1,UPX2,UPY,ITYPE,INDEX,RSIZE)
 *      REAL      UPX1(*),UPX2(*),UPY(*)
 */
      SUBROUTINE UHERBZ(
          INTEGER N
          REAL (N) UPX1
          REAL (N) UPX2
          REAL (N) UPY
          INTEGER ITYPE
          INTEGER INDEX
          REAL RSIZE
      )

/*****************************************************
 * grph2/uhpack/uhdif.f
 ****************************************************/
/* 
 *      SUBROUTINE UHDIF(N,UPX1,UPX2,UPY)
 *      REAL      UPX1(*),UPX2(*),UPY(*)
 */
      SUBROUTINE UHDIF(
          INTEGER N
          REAL (N) UPX1
          REAL (N) UPX2
          REAL (N) UPY
      )

/*****************************************************
 * grph2/uhpack/uhdifz.f
 ****************************************************/
/* 
 *      SUBROUTINE UHDIFZ(N,UPX1,UPX2,UPY,ITPAT1,ITPAT2)
 *      REAL      UPX1(*),UPX2(*),UPY(*)
 */
      SUBROUTINE UHDIFZ(
          INTEGER N
          REAL (N) UPX1
          REAL (N) UPX2
          REAL (N) UPY
          INTEGER ITPAT1
          INTEGER ITPAT2
      )

/*****************************************************
 * grph2/uhpack/uhbrf.f
 ****************************************************/
/* 
 *      SUBROUTINE UHBRF(N,UPX1,UPX2,UPY)
 *      REAL      UPX1(*),UPX2(*),UPY(*)
 */
      SUBROUTINE UHBRF(
          INTEGER N
          REAL (N) UPX1
          REAL (N) UPX2
          REAL (N) UPY
      )

/*****************************************************
 * grph2/uhpack/uhbrfz.f
 ****************************************************/
/* 
 *      SUBROUTINE UHBRFZ(N,UPX1,UPX2,UPY,ITYPE,INDEX,RSIZE)
 *      REAL      UPX1(*),UPX2(*),UPY(*)
 */
      SUBROUTINE UHBRFZ(
          INTEGER N
          REAL (N) UPX1
          REAL (N) UPX2
          REAL (N) UPY
          INTEGER ITYPE
          INTEGER INDEX
          REAL RSIZE
      )

/*****************************************************
 * grph2/uhpack/uhbra.f
 ****************************************************/
/* 
 *      SUBROUTINE UHBRA(N,UPX1,UPX2,UPY)
 *      REAL      UPX1(*),UPX2(*),UPY(*)
 */
      SUBROUTINE UHBRA(
          INTEGER N
          REAL (N) UPX1
          REAL (N) UPX2
          REAL (N) UPY
      )

/*****************************************************
 * grph2/uhpack/uhbraz.f
 ****************************************************/
/* 
 *      SUBROUTINE UHBRAZ(N,UPX1,UPX2,UPY,ITPAT1,ITPAT2,RSIZE)
 *      REAL      UPX1(*),UPX2(*),UPY(*)
 */
      SUBROUTINE UHBRAZ(
          INTEGER N
          REAL (N) UPX1
          REAL (N) UPX2
          REAL (N) UPY
          INTEGER ITPAT1
          INTEGER ITPAT2
          REAL RSIZE
      )

/*****************************************************
 * grph2/uhpack/uhbrl.f
 ****************************************************/
/* 
 *      SUBROUTINE UHBRL(N,UPX,UPY)
 *      REAL      UPX(*),UPY(*)
 */
      SUBROUTINE UHBRL(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY
      )

/*****************************************************
 * grph2/uhpack/uhbrlz.f
 ****************************************************/
/* 
 *      SUBROUTINE UHBRLZ(N,UPX,UPY,ITYPE,INDEX,RSIZE)
 *      REAL      UPX(*),UPY(*)
 */
      SUBROUTINE UHBRLZ(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY
          INTEGER ITYPE
          INTEGER INDEX
          REAL RSIZE
      )

/*****************************************************
 * grph2/uhpack/uhbxf.f
 ****************************************************/
/* 
 *      SUBROUTINE UHBXF(N,UPX1,UPX2,UPY)
 *      REAL      UPX1(*),UPX2(*),UPY(*)
 */
      SUBROUTINE UHBXF(
          INTEGER N
          REAL (N) UPX1
          REAL (N) UPX2
          REAL (N+1) UPY
      )

/*****************************************************
 * grph2/uhpack/uhbxfz.f
 ****************************************************/
/* 
 *      SUBROUTINE UHBXFZ(N,UPX1,UPX2,UPY,ITYPE,INDEX)
 *      REAL      UPX1(*),UPX2(*),UPY(*)
 */
      SUBROUTINE UHBXFZ(
          INTEGER N
          REAL (N) UPX1
          REAL (N) UPX2
          REAL (N+1) UPY
          INTEGER ITYPE
          INTEGER INDEX
      )

/*****************************************************
 * grph2/uhpack/uhbxa.f
 ****************************************************/
/* 
 *      SUBROUTINE UHBXA(N,UPX1,UPX2,UPY)
 *      REAL      UPX1(*),UPX2(*),UPY(*)
 */
      SUBROUTINE UHBXA(
          INTEGER N
          REAL (N) UPX1
          REAL (N) UPX2
          REAL (N+1) UPY
      )

/*****************************************************
 * grph2/uhpack/uhbxl.f
 ****************************************************/
/* 
 *      SUBROUTINE UHBXL(N,UPX,UPY)
 *      REAL      UPX(*),UPY(*)
 */
      SUBROUTINE UHBXL(
          INTEGER N
          REAL (N) UPX
          REAL (N+1) UPY
      )

/*****************************************************
 * grph2/uhpack/uhbxaz.f
 ****************************************************/
/* 
 *      SUBROUTINE UHBXAZ(N,UPX1,UPX2,UPY,ITPAT1,ITPAT2)
 *      REAL      UPX1(*),UPX2(*),UPY(*)
 */
      SUBROUTINE UHBXAZ(
          INTEGER N
          REAL (N) UPX1
          REAL (N) UPX2
          REAL (N+1) UPY
          INTEGER ITPAT1
          INTEGER ITPAT2
      )

/*****************************************************
 * grph2/uhpack/uhbxlz.f
 ****************************************************/
/* 
 *      SUBROUTINE UHBXLZ(N,UPX,UPY,ITYPE,INDEX)
 *      REAL      UPX(*),UPY(*)
 */
      SUBROUTINE UHBXLZ(
          INTEGER N
          REAL (N) UPX
          REAL (N+1) UPY
          INTEGER ITYPE
          INTEGER INDEX
      )