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

/*****************************************************
 * grph1/stpack/stftrf.f
 ****************************************************/
/* 
 *      SUBROUTINE STFTRF(UX, UY, VX, VY)
 */
      SUBROUTINE STFTRF(
          REAL UX
          REAL UY
          REAL o VX
          REAL o VY
      )

/* 
 *      ENTRY STITRF(VX, VY, UX, UY)
 */
      SUBROUTINE STITRF(
          REAL VX
          REAL VY
          REAL o UX
          REAL o UY
      )

/* 
 *      ENTRY STQTRF(LMAPA)
 *      LOGICAL   LMAPA
 */
      SUBROUTINE STQTRF(
          LOGICAL o LMAPA
      )

/* 
 *      ENTRY STSTRF(LMAPA)
 *      LOGICAL   LMAPA
 */
      SUBROUTINE STSTRF(
          LOGICAL LMAPA
      )

/*****************************************************
 * grph1/stpack/stftrn.f
 ****************************************************/
/* 
 *      SUBROUTINE STFTRN(UX, UY, VX, VY)
 */
      SUBROUTINE STFTRN(
          REAL UX
          REAL UY
          REAL o VX
          REAL o VY
      )

/* 
 *      ENTRY STITRN(VX, VY, UX, UY)
 */
      SUBROUTINE STITRN(
          REAL VX
          REAL VY
          REAL o UX
          REAL o UY
      )

/* 
 *      ENTRY STSTRI(ITR)
 */
#if DCLVER >= 53
      SUBROUTINE STSTRI(
          INTEGER ITR
      )
#endif

/* 
 *      ENTRY STSTRP(CXA, CYA, VXOFF, VYOFF)
 */
#if DCLVER >= 53
      SUBROUTINE  STSTRP(
           REAL CXA
           REAL CYA
           REAL VXOFF
           REAL VYOFF
      )
#endif

/*****************************************************
 * grph1/stpack/stftrn.f  if DCL52
 ****************************************************/
/* 
 *      ENTRY STSTRN(ITR, CXA, CYA, VXOFF, VYOFF)
 */
/*****************************************************
 * grph1/stpack/ststrn.f  if DCL53
 ****************************************************/
/* 
 *      SUBROUTINE STSTRN(ITR, CXA, CYA, VXOFF, VYOFF)
 */
      SUBROUTINE STSTRN(
          INTEGER ITR
          REAL CXA
          REAL CYA
          REAL VXOFF
          REAL VYOFF
      )

/*****************************************************
 * grph1/stpack/stfrot.f
 ****************************************************/
/* 
 *      SUBROUTINE STFROT(UX, UY, TX, TY)
 */
      SUBROUTINE STFROT(
          REAL UX
          REAL UY
          REAL o TX
          REAL o TY
      )

/* 
 *      ENTRY STIROT(TX, TY, UX, UY)
 */
      SUBROUTINE STIROT(
          REAL TX
          REAL TY
          REAL o UX
          REAL o UY
      )

/* 
 *      ENTRY STSROT(THETA, PHI, PSI)
 */
      SUBROUTINE STSROT(
          REAL THETA
          REAL PHI
          REAL PSI
      )

/*****************************************************
 * grph1/stpack/stfrad.f
 ****************************************************/
/* 
 *      SUBROUTINE STFRAD(X, Y, RX, RY)
 */
      SUBROUTINE STFRAD(
          REAL X
          REAL Y
          REAL o RX
          REAL o RY
      )

/* 
 *      ENTRY STIRAD(RX, RY, X, Y)
 */
      SUBROUTINE STIRAD(
          REAL RX
          REAL RY
          REAL o X
          REAL o Y
      )

/* 
 *      ENTRY STSRAD(LXDEG, LYDEG)
 *      LOGICAL   LXDEG, LYDEG
 */
      SUBROUTINE STSRAD(
          LOGICAL LXDEG
          LOGICAL LYDEG
      )

/*****************************************************
 * grph1/stpack/stfusr.f
 ****************************************************/
/* 
 *      SUBROUTINE STFUSR(UX, UY, XX, YY)
 */
      SUBROUTINE STFUSR(
          REAL UX
          REAL UY
          REAL o XX
          REAL o YY
      )

/* 
 *      ENTRY STIUSR(XX, YY, UX, UY)
 */
      SUBROUTINE STIUSR(
          REAL XX
          REAL YY
          REAL o UX
          REAL o UY
      )

/* 
 *      ENTRY STSUSR
 */
      SUBROUTINE STSUSR(
      )

/*****************************************************
 * grph1/stpack/stfwtr.f
 ****************************************************/
/* 
 *      SUBROUTINE STFWTR(RX,RY,WX,WY)
 */
      SUBROUTINE STFWTR(
          REAL RX
          REAL RY
          REAL o WX
          REAL o WY
      )

/* 
 *      ENTRY STIWTR(WX,WY,RX,RY)
 */
      SUBROUTINE STIWTR(
          REAL WX
          REAL WY
          REAL o RX
          REAL o RY
      )

/* 
 *      ENTRY STSWTR(RXMIN,RXMAX,RYMIN,RYMAX,
 *     +             WXMIN,WXMAX,WYMIN,WYMAX,IWTRF)
 */
      SUBROUTINE STSWTR(
          REAL RXMIN
          REAL RXMAX
          REAL RYMIN
          REAL RYMAX
          REAL WXMIN
          REAL WXMAX
          REAL WYMIN
          REAL WYMAX
          INTEGER IWTRF
      )

/* 
 *      ENTRY STQWTR(RXMIN,RXMAX,RYMIN,RYMAX,
 *     +             WXMIN,WXMAX,WYMIN,WYMAX,IWTRF)
 */
      SUBROUTINE STQWTR(
          REAL o RXMIN
          REAL o RXMAX
          REAL o RYMIN
          REAL o RYMAX
          REAL o WXMIN
          REAL o WXMAX
          REAL o WYMIN
          REAL o WYMAX
          INTEGER o IWTRF
      )

/* 
 *      ENTRY STSWRC(WSXMN,WSXMX,WSYMN,WSYMX)
 */
      SUBROUTINE STSWRC(
          REAL WSXMN
          REAL WSXMX
          REAL WSYMN
          REAL WSYMX
      )

/* 
 *      ENTRY STQWRC(WSXMN,WSXMX,WSYMN,WSYMX)
 */
      SUBROUTINE STQWRC(
          REAL o WSXMN
          REAL o WSXMX
          REAL o WSYMN
          REAL o WSYMX
      )

/*****************************************************
 * grph1/stpack/stfpr3.f
 ****************************************************/
/* 
 *      SUBROUTINE STFPR3(X, Y, Z, RX, RY)
 */
      SUBROUTINE STFPR3(
          REAL X
          REAL Y
          REAL Z
          REAL o RX
          REAL o RY
      )

/* 
 *      ENTRY STSPR3(XFC, YFC, ZFC, THETA, PHI, PSI, FAC,
 *     +             ZVIEW, RXOFF, RYOFF)
 */
      SUBROUTINE STSPR3(
          REAL XFC
          REAL YFC
          REAL ZFC
          REAL THETA
          REAL PHI
          REAL PSI
          REAL FAC
          REAL ZVIEW
          REAL RXOFF
          REAL RYOFF
      )

/* 
 *      ENTRY STFPR2(X, Y, RX, RY)
 */
      SUBROUTINE STFPR2(
          REAL X
          REAL Y
          REAL o RX
          REAL o RY
      )

/* 
 *      ENTRY STIPR2(RX, RY, X, Y)
 */
      SUBROUTINE STIPR2(
          REAL RX
          REAL RY
          REAL o X
          REAL o Y
      )

/* 
 *      ENTRY STSPR2(IX, IY, SECT)
 */
      SUBROUTINE STSPR2(
          INTEGER IX
          INTEGER IY
          REAL SECT
      )

/* 
 *      ENTRY STEPR2
 */
      SUBROUTINE STEPR2(
      )

/* 
 *      ENTRY STRPR2
 */
      SUBROUTINE STRPR2(
      )

/*****************************************************
 * grph1/stpack/stftr3.f
 ****************************************************/
/* 
 *      SUBROUTINE STFTR3(UX, UY, UZ, VX, VY, VZ)
 */
      SUBROUTINE STFTR3(
          REAL UX
          REAL UY
          REAL UZ
          REAL o VX
          REAL o VY
          REAL o VZ
      )

/* 
 *      ENTRY STSTR3(ITR, CXA, CYA, CZA, VXOFF, VYOFF, VZOFF)
 */
      SUBROUTINE STSTR3(
          INTEGER ITR
          REAL CXA
          REAL CYA
          REAL CZA
          REAL VXOFF
          REAL VYOFF
          REAL VZOFF
      )

/* 
 *      ENTRY STSRD3(LXRD, LYRD, LZRD)
 *      LOGICAL   LXRD, LYRD, LZRD, LXLG, LYLG, LZLG
 */
      SUBROUTINE STSRD3(
          LOGICAL LXRD
          LOGICAL LYRD
          LOGICAL LZRD
      )

/* 
 *      ENTRY STSLG3(LXLG, LYLG, LZLG)
 *      LOGICAL   LXRD, LYRD, LZRD, LXLG, LYLG, LZLG
 */
      SUBROUTINE STSLG3(
          LOGICAL LXLG
          LOGICAL LYLG
          LOGICAL LZLG
      )