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

/*****************************************************
 * grph1/slpack/slinit.f
 ****************************************************/
/* 
 *      SUBROUTINE SLINIT(WXMAX,WYMAX,FACT)
 */
      SUBROUTINE SLINIT(
          REAL WXMAX
          REAL WYMAX
          REAL FACT
      )

/* 
 *      ENTRY SLSIZE(CSZEZ)
 *      CHARACTER CSZEZ*(*)
 */
      SUBROUTINE SLSIZE(
          CHARACTER*(*) CSZEZ
      )

/* 
 *      ENTRY SLFORM(DXA,DYA)
 */
      SUBROUTINE SLFORM(
          REAL DXA
          REAL DYA
      )

/*****************************************************
 * grph1/slpack/sldiv.f
 ****************************************************/
/* 
 *      SUBROUTINE SLDIV(CFORM,IX,IY)
 *      CHARACTER CFORM*(*)
 */
      SUBROUTINE SLDIV(
          CHARACTER*(*) CFORM
          INTEGER IX
          INTEGER IY
      )

/*****************************************************
 * grph1/slpack/slmgn.f
 ****************************************************/
/* 
 *      SUBROUTINE SLMGN(XL,XR,YB,YT)
 */
      SUBROUTINE SLMGN(
          REAL XL
          REAL XR
          REAL YB
          REAL YT
      )

/*****************************************************
 * grph1/slpack/slrat.f
 ****************************************************/
/* 
 *      SUBROUTINE SLRAT(RX,RY)
 */
      SUBROUTINE SLRAT(
          REAL RX
          REAL RY
      )

/*****************************************************
 * grph1/slpack/slqrct.f
 ****************************************************/
/* 
 *      SUBROUTINE SLQRCT(LEV,IFRM,XAMIN,XAMAX,YAMIN,YAMAX)
 */
/*
      SUBROUTINE SLQRCT(
          INTEGER LEV
          INTEGER IFRM
          REAL o XAMIN
          REAL o XAMAX
          REAL o YAMIN
          REAL o YAMAX
      )
 */

/*****************************************************
 * grph1/slpack/slpage.f
 ****************************************************/
/* 
 *      SUBROUTINE SLPAGE(LEV,IFRM,IPAGE)
 */
/*
      SUBROUTINE SLPAGE(
          INTEGER LEV
          INTEGER IFRM
          INTEGER o IPAGE
      )
 */

/*****************************************************
 * grph1/slpack/slpcnr.f
 ****************************************************/
/* 
 *      SUBROUTINE SLPCNR
 */
/*
      SUBROUTINE SLPCNR(
      )
 */

/*****************************************************
 * grph1/slpack/slsttl.f
 ****************************************************/
/* 
 *      SUBROUTINE SLSTTL(CTTL,CSIDE,PX,PY,HT,NT)
 *      CHARACTER CTTL*(*),CSIDE*(*)
 */
      SUBROUTINE SLSTTL(
          CHARACTER*(*) CTTL
          CHARACTER*(*) CSIDE
          REAL PX
          REAL PY
          REAL HT
          INTEGER NT
      )

/* 
 *      ENTRY SLDTTL(NT)
 */
      SUBROUTINE SLDTTL(
          INTEGER NT
      )

/* 
 *      ENTRY SLPTTL
 */
/*
      SUBROUTINE SLPTTL(
      )
 */

/*****************************************************
 * grph1/slpack/sltlcv.f
 ****************************************************/
/* 
 *      SUBROUTINE SLTLCV(CTLIN,CTLOUT,LOUT)
 *      CHARACTER CTLIN*(*),CTLOUT*(*)
 */
/*
      SUBROUTINE SLTLCV(
          CHARACTER*(*) CTLIN
          CHARACTER*(*) o CTLOUT
          INTEGER o LOUT
      )
 */

/*****************************************************
 * grph1/slpack/slpvpr.f
 ****************************************************/
/* 
 *      SUBROUTINE SLPVPR(INDEX)
 */
      SUBROUTINE SLPVPR(
          INTEGER INDEX
      )

/*****************************************************
 * grph1/slpack/slpwwr.f
 ****************************************************/
/* 
 *      SUBROUTINE SLPWWR(INDEX)
 */
      SUBROUTINE SLPWWR(
          INTEGER INDEX
      )

/*****************************************************
 * grph1/slpack/slpwvr.f
 ****************************************************/
/* 
 *      SUBROUTINE SLPWVR(INDEX)
 */
      SUBROUTINE SLPWVR(
          INTEGER INDEX
      )

/*****************************************************
 * grph1/slpack/slpvpc.f
 ****************************************************/
/* 
 *      SUBROUTINE SLPVPC(INDEX,RC)
 */
      SUBROUTINE SLPVPC(
          INTEGER INDEX
          REAL RC
      )

/*****************************************************
 * grph1/slpack/slpwwc.f
 ****************************************************/
/* 
 *      SUBROUTINE SLPWWC(INDEX,RC)
 */
      SUBROUTINE SLPWWC(
          INTEGER INDEX
          REAL RC
      )

/*****************************************************
 * grph1/slpack/slpwvc.f
 ****************************************************/
/* 
 *      SUBROUTINE SLPWVC(INDEX,RC)
 */
      SUBROUTINE SLPWVC(
          INTEGER INDEX
          REAL RC
      )

/*****************************************************
 * grph1/slpack/slzttl.f
 ****************************************************/
/* 
 *      SUBROUTINE SLZTTL(CSIDE,CTTL,PX,PY,RSIZE,INDEX)
 *      CHARACTER CTTL*(*),CSIDE*(*)
 */
/*
      SUBROUTINE SLZTTL(
          CHARACTER*(*) CSIDE
          CHARACTER*(*) CTTL
          REAL PX
          REAL PY
          REAL RSIZE
          INTEGER INDEX
      )
 */

/*****************************************************
 * grph1/slpack/sldivz.f
 ****************************************************/
/* 
 *      SUBROUTINE SLDIVZ(XAMIN,XAMAX,YAMIN,YAMAX,CFORM,IX,IY,
 *     +                  XBMIN,XBMAX,YBMIN,YBMAX)
 *      CHARACTER CFORM*(*)
 *      REAL      XBMIN(IX*IY),XBMAX(IX*IY),YBMIN(IX*IY),YBMAX(IX*IY)
 */
/*
      SUBROUTINE SLDIVZ(
          REAL XAMIN
          REAL XAMAX
          REAL YAMIN
          REAL YAMAX
          CHARACTER*(*) CFORM
          INTEGER IX
          INTEGER IY
          REAL (IX*IY) o XBMIN
          REAL (IX*IY) o XBMAX
          REAL (IX*IY) o YBMIN
          REAL (IX*IY) o YBMAX
      )
 */

/*****************************************************
 * grph1/slpack/slmgnz.f
 ****************************************************/
/* 
 *      SUBROUTINE SLMGNZ(XAMIN,XAMAX,YAMIN,YAMAX,XL,XR,YB,YT)
 */
/*
      SUBROUTINE SLMGNZ(
          REAL io XAMIN
          REAL io XAMAX
          REAL io YAMIN
          REAL io YAMAX
          REAL XL
          REAL XR
          REAL YB
          REAL YT
      )
 */

/*****************************************************
 * grph1/slpack/slratz.f
 ****************************************************/
/* 
 *      SUBROUTINE SLRATZ(XAMIN,XAMAX,YAMIN,YAMAX,RX,RY)
 */
/*
      SUBROUTINE SLRATZ(
          REAL io XAMIN
          REAL io XAMAX
          REAL io YAMIN
          REAL io YAMAX
          REAL RX
          REAL RY
      )
 */

/*****************************************************
 * grph1/slpack/slqsiz.f
 ****************************************************/
/* 
 *      SUBROUTINE SLQSIZ(CSIZE,DX,DY)
 *      CHARACTER CSIZE*(*)
 */
/*
      SUBROUTINE SLQSIZ(
          CHARACTER*(*) CSIZE
          REAL o DX
          REAL o DY
      )
 */