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

/*****************************************************
 * grph1/scpack/scsobj.f
 ****************************************************/
/* 
 *      SUBROUTINE SCSOBJ(XOBJ3, YOBJ3, ZOBJ3)
 */
      SUBROUTINE SCSOBJ(
          REAL XOBJ3
          REAL YOBJ3
          REAL ZOBJ3
      )

/* 
 *      ENTRY SCQOBJ(XOBJ3, YOBJ3, ZOBJ3)
 */
      SUBROUTINE SCQOBJ(
          REAL o XOBJ3
          REAL o YOBJ3
          REAL o ZOBJ3
      )

/*****************************************************
 * grph1/scpack/scseye.f
 ****************************************************/
/* 
 *      SUBROUTINE SCSEYE(XEYE3, YEYE3, ZEYE3)
 */
      SUBROUTINE SCSEYE(
          REAL XEYE3
          REAL YEYE3
          REAL ZEYE3
      )

/* 
 *      ENTRY SCQEYE(XEYE3, YEYE3, ZEYE3)
 */
      SUBROUTINE SCQEYE(
          REAL o XEYE3
          REAL o YEYE3
          REAL o ZEYE3
      )

/*****************************************************
 * grph1/scpack/scspln.f
 ****************************************************/
/* 
 *      SUBROUTINE SCSPLN(IXAX, IYAX, SECT)
 */
      SUBROUTINE SCSPLN(
          INTEGER IXAX
          INTEGER IYAX
          REAL SECT
      )

/* 
 *      ENTRY SCQPLN(IXAX, IYAX, SECT)
 */
      SUBROUTINE SCQPLN(
          INTEGER o IXAX
          INTEGER o IYAX
          REAL o SECT
      )

/*****************************************************
 * grph1/scpack/scsprj.f
 ****************************************************/
/* 
 *      SUBROUTINE SCSPRJ
 */
      SUBROUTINE SCSPRJ(
      )

/*****************************************************
 * grph1/scpack/scsvpt.f
 ****************************************************/
/* 
 *      SUBROUTINE SCSVPT(VXMIN, VXMAX, VYMIN, VYMAX, VZMIN, VZMAX)
 */
      SUBROUTINE SCSVPT(
          REAL VXMIN
          REAL VXMAX
          REAL VYMIN
          REAL VYMAX
          REAL VZMIN
          REAL VZMAX
      )

/* 
 *      ENTRY SCQVPT(VXMIN, VXMAX, VYMIN, VYMAX, VZMIN, VZMAX)
 */
      SUBROUTINE SCQVPT(
          REAL o VXMIN
          REAL o VXMAX
          REAL o VYMIN
          REAL o VYMAX
          REAL o VZMIN
          REAL o VZMAX
      )

/*****************************************************
 * grph1/scpack/scswnd.f
 ****************************************************/
/* 
 *      SUBROUTINE SCSWND(UXMIN, UXMAX, UYMIN, UYMAX, UZMIN, UZMAX)
 */
      SUBROUTINE SCSWND(
          REAL UXMIN
          REAL UXMAX
          REAL UYMIN
          REAL UYMAX
          REAL UZMIN
          REAL UZMAX
      )

/* 
 *      ENTRY SCQWND(UXMIN, UXMAX, UYMIN, UYMAX, UZMIN, UZMAX)
 */
      SUBROUTINE SCQWND(
          REAL o UXMIN
          REAL o UXMAX
          REAL o UYMIN
          REAL o UYMAX
          REAL o UZMIN
          REAL o UZMAX
      )

/*****************************************************
 * grph1/scpack/scslog.f
 ****************************************************/
/* 
 *      SUBROUTINE SCSLOG(LXLOG3, LYLOG3, LZLOG3)
 *      LOGICAL LXLOG3, LYLOG3, LZLOG3
 */
      SUBROUTINE SCSLOG(
          LOGICAL LXLOG3
          LOGICAL LYLOG3
          LOGICAL LZLOG3
      )

/* 
 *      ENTRY SCQLOG(LXLOG3, LYLOG3, LZLOG3)
 *      LOGICAL LXLOG3, LYLOG3, LZLOG3
 */
      SUBROUTINE SCQLOG(
          LOGICAL o LXLOG3
          LOGICAL o LYLOG3
          LOGICAL o LZLOG3
      )

/*****************************************************
 * grph1/scpack/scsorg.f
 ****************************************************/
/* 
 *      SUBROUTINE SCSORG(SIMFAC, VXORG3, VYORG3, VZORG3)
 */
      SUBROUTINE SCSORG(
          REAL SIMFAC
          REAL VXORG3
          REAL VYORG3
          REAL VZORG3
      )

/* 
 *      ENTRY SCQORG(SIMFAC, VXORG3, VYORG3, VZORG3)
 */
      SUBROUTINE SCQORG(
          REAL o SIMFAC
          REAL o VXORG3
          REAL o VYORG3
          REAL o VZORG3
      )

/*****************************************************
 * grph1/scpack/scstrn.f
 ****************************************************/
/* 
 *      SUBROUTINE SCSTRN(ITR3)
 */
      SUBROUTINE SCSTRN(
          INTEGER ITR3
      )

/* 
 *      ENTRY SCQTRN(ITR3)
 */
      SUBROUTINE SCQTRN(
          INTEGER o ITR3
      )

/*****************************************************
 * grph1/scpack/scstrf.f
 ****************************************************/
/* 
 *      SUBROUTINE SCSTRF
 */
      SUBROUTINE SCSTRF(
      )

/*****************************************************
 * grph1/scpack/scplu.f
 ****************************************************/
/* 
 *      SUBROUTINE SCPLU(N,UPX,UPY,UPZ)
 *      REAL      UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
 */
      SUBROUTINE SCPLU(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY
          REAL (N) UPZ
      )

/* 
 *      ENTRY SCPLV(N,VPX,VPY,VPZ)
 *      REAL      UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
 */
      SUBROUTINE SCPLV(
          INTEGER N
          REAL (N) VPX
          REAL (N) VPY
          REAL (N) VPZ
      )

/* 
 *      ENTRY SCSPLI(INDEX)
 */
      SUBROUTINE SCSPLI(
          INTEGER INDEX
      )

/* 
 *      ENTRY SCQPLI(INDEX)
 */
      SUBROUTINE SCQPLI(
          INTEGER o INDEX
      )

/*****************************************************
 * grph1/scpack/scplzu.f
 ****************************************************/
/* 
 *      SUBROUTINE SCPLZU(N,UPX,UPY,UPZ,INDEX)
 *      REAL      UPX(*),UPY(*),UPZ(*)
 */
      SUBROUTINE SCPLZU(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY
          REAL (N) UPZ
          INTEGER INDEX
      )

/*****************************************************
 * grph1/scpack/scplzv.f
 ****************************************************/
/* 
 *      SUBROUTINE SCPLZV(N,VPX,VPY,VPZ,INDEX)
 *      REAL      VPX(*),VPY(*),VPZ(*)
 */
      SUBROUTINE SCPLZV(
          INTEGER N
          REAL (N) VPX
          REAL (N) VPY
          REAL (N) VPZ
          INTEGER INDEX
      )

/*****************************************************
 * grph1/scpack/scpmu.f
 ****************************************************/
/* 
 *      SUBROUTINE SCPMU(N,UPX,UPY,UPZ)
 *      REAL      UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
 */
      SUBROUTINE SCPMU(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY
          REAL (N) UPZ
      )

/* 
 *      ENTRY SCPMV(N,VPX,VPY,VPZ)
 *      REAL      UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
 */
      SUBROUTINE SCPMV(
          INTEGER N
          REAL (N) VPX
          REAL (N) VPY
          REAL (N) VPZ
      )

/* 
 *      ENTRY SCSPMT(ITYPE)
 */
      SUBROUTINE SCSPMT(
          INTEGER ITYPE
      )

/* 
 *      ENTRY SCQPMT(ITYPE)
 */
      SUBROUTINE SCQPMT(
          INTEGER o ITYPE
      )

/* 
 *      ENTRY SCSPMI(INDEX)
 */
      SUBROUTINE SCSPMI(
          INTEGER INDEX
      )

/* 
 *      ENTRY SCQPMI(INDEX)
 */
      SUBROUTINE SCQPMI(
          INTEGER o INDEX
      )

/* 
 *      ENTRY SCSPMS(RSIZE)
 */
      SUBROUTINE SCSPMS(
          REAL RSIZE
      )

/* 
 *      ENTRY SCQPMS(RSIZE)
 */
      SUBROUTINE SCQPMS(
          REAL o RSIZE
      )

/*****************************************************
 * grph1/scpack/scpmzu.f
 ****************************************************/
/* 
 *      SUBROUTINE SCPMZU(N,UPX,UPY,UPZ,ITYPE,INDEX,RSIZE)
 *      REAL      UPX(*),UPY(*),UPZ(*)
 */
      SUBROUTINE SCPMZU(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY
          REAL (N) UPZ
          INTEGER ITYPE
          INTEGER INDEX
          REAL RSIZE
      )

/*****************************************************
 * grph1/scpack/scpmzv.f
 ****************************************************/
/* 
 *      SUBROUTINE SCPMZV(N,VPX,VPY,VPZ,ITYPE,INDEX,RSIZE)
 *      REAL      VPX(*),VPY(*),VPZ(*)
 */
      SUBROUTINE SCPMZV(
          INTEGER N
          REAL (N) VPX
          REAL (N) VPY
          REAL (N) VPZ
          INTEGER ITYPE
          INTEGER INDEX
          REAL RSIZE
      )

/*****************************************************
 * grph1/scpack/sctnu.f
 ****************************************************/
/* 
 *      SUBROUTINE SCTNU(UPX,UPY,UPZ)
 *      REAL      UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
 */
      SUBROUTINE SCTNU(
          REAL (3) UPX
          REAL (3) UPY
          REAL (3) UPZ
      )

/* 
 *      ENTRY SCTNV(VPX,VPY,VPZ)
 *      REAL      UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
 */
      SUBROUTINE SCTNV(
          REAL (3) VPX
          REAL (3) VPY
          REAL (3) VPZ
      )

/* 
 *      ENTRY SCSTNP(ITPAT1, ITPAT2)
 */
      SUBROUTINE SCSTNP(
          INTEGER ITPAT1
          INTEGER ITPAT2
      )

/* 
 *      ENTRY SCQTNP(ITPAT1, ITPAT2)
 */
      SUBROUTINE SCQTNP(
          INTEGER o ITPAT1
          INTEGER o ITPAT2
      )

/*****************************************************
 * grph1/scpack/sctnzu.f
 ****************************************************/
/* 
 *      SUBROUTINE SCTNZU(UPX,UPY,UPZ,ITPAT1,ITPAT2)
 *      REAL      UPX(*),UPY(*),UPZ(*)
 */
      SUBROUTINE SCTNZU(
          REAL (3) UPX
          REAL (3) UPY
          REAL (3) UPZ
          INTEGER ITPAT1
          INTEGER ITPAT2
      )

/*****************************************************
 * grph1/scpack/sctnzv.f
 ****************************************************/
/* 
 *      SUBROUTINE SCTNZV(VPX,VPY,VPZ,ITPAT1,ITPAT2)
 *      REAL      VPX(*),VPY(*),VPZ(*)
 */
      SUBROUTINE SCTNZV(
          REAL (3) VPX
          REAL (3) VPY
          REAL (3) VPZ
          INTEGER ITPAT1
          INTEGER ITPAT2
      )