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

/*****************************************************
 * grph2/grpack/gropn.f
 ****************************************************/
/* 
 *      SUBROUTINE GROPN(IWS)
 */
      SUBROUTINE GROPN(
          INTEGER IWS
      )

/* 
 *      ENTRY GRFRM
 */
      SUBROUTINE GRFRM(
      )

/* 
 *      ENTRY GRFIG
 */
      SUBROUTINE GRFIG(
      )

/* 
 *      ENTRY GRCLS
 */
      SUBROUTINE GRCLS(
      )

/*****************************************************
 * grph2/grpack/grinit.f
 ****************************************************/
/* 
 *      SUBROUTINE GRINIT
 */
      SUBROUTINE GRINIT(
      )

/*****************************************************
 * grph2/grpack/grsvpt.f
 ****************************************************/
/* 
 *      SUBROUTINE GRSVPT(VXMIN, VXMAX, VYMIN, VYMAX)
 */
      SUBROUTINE GRSVPT(
          REAL VXMIN
          REAL VXMAX
          REAL VYMIN
          REAL VYMAX
      )

/*****************************************************
 * grph2/grpack/grswnd.f
 ****************************************************/
/* 
 *      SUBROUTINE GRSWND(UXMIN, UXMAX, UYMIN, UYMAX)
 */
      SUBROUTINE GRSWND(
          REAL UXMIN
          REAL UXMAX
          REAL UYMIN
          REAL UYMAX
      )

/*****************************************************
 * grph2/grpack/grssim.f
 ****************************************************/
/* 
 *      SUBROUTINE GRSSIM(SIMFAC, VXOFF, VYOFF)
 */
      SUBROUTINE GRSSIM(
          REAL SIMFAC
          REAL VXOFF
          REAL VYOFF
      )

/*****************************************************
 * grph2/grpack/grsmpl.f
 ****************************************************/
/* 
 *      SUBROUTINE GRSMPL(PLX, PLY, PLROT)
 */
      SUBROUTINE GRSMPL(
          REAL PLX
          REAL PLY
          REAL PLROT
      )

/*****************************************************
 * grph2/grpack/grstxy.f
 ****************************************************/
/* 
 *      SUBROUTINE GRSTXY(TXMIN, TXMAX, TYMIN, TYMAX)
 */
      SUBROUTINE GRSTXY(
          REAL TXMIN
          REAL TXMAX
          REAL TYMIN
          REAL TYMAX
      )

/*****************************************************
 * grph2/grpack/grstrn.f
 ****************************************************/
/* 
 *      SUBROUTINE GRSTRN(ITR)
 */
      SUBROUTINE GRSTRN(
          INTEGER ITR
      )

/*****************************************************
 * grph2/grpack/grstrf.f
 ****************************************************/
/* 
 *      SUBROUTINE GRSTRF
 */
      SUBROUTINE GRSTRF(
      )

/*****************************************************
 * grph2/grpack/grscwd.f
 ****************************************************/
/* 
 *      SUBROUTINE GRSCWD(CXMIN,CXMAX,CYMIN,CYMAX)
 */
#if DCLVER >= 53
      SUBROUTINE GRSCWD(
          REAL CXMIN
          REAL CXMAX
          REAL CYMIN
          REAL CYMAX
      )
#endif