ruby-dcl 1.6.2

data/GenWrapper/proto/grph2_00

@@ -0,0 +1,16 @@
+/*
+ * grph2_00
+ *   log to split grph2.f77proto into grph2_xxpack.fp
+ *
+ * $Id: grph2_00,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+-----
+/*
+ * grph2.f77proto
+ * #Id: grph2.f77proto,v 1.2 2000/11/05 14:39:33 keiko Exp $
+ */
+
+/*
+ * Packages deleted: none
+ */
+

data/GenWrapper/proto/grph2_grpack.fp

@@ -0,0 +1,139 @@
+/*
+ * grph2_grpack.fp
+ *
+ * $Id: grph2_grpack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout 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 >= 530
+      SUBROUTINE GRSCWD(
+          REAL CXMIN
+          REAL CXMAX
+          REAL CYMIN
+          REAL CYMAX
+      )
+#endif

data/GenWrapper/proto/grph2_ucpack.fp

@@ -0,0 +1,522 @@
+/*
+ * grph2_ucpack.fp
+ *
+ * $Id: grph2_ucpack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * grph2/ucpack/nucchr.f
+ ****************************************************/
+/* 
+ *      INTEGER FUNCTION NUCCHR(CS,ND)
+ *      CHARACTER CS*(*)
+ */
+/*
+      INTEGER FUNCTION NUCCHR(
+          CHARACTER*(*) CS
+          INTEGER ND
+      )
+ */
+
+/*****************************************************
+ * grph2/ucpack/nucday.f
+ ****************************************************/
+/* 
+ *      INTEGER FUNCTION NUCDAY(CS,ND)
+ *      CHARACTER CS*(*)
+ */
+/*
+      INTEGER FUNCTION NUCDAY(
+          CHARACTER*(*) CS
+          INTEGER ND
+      )
+ */
+
+/*****************************************************
+ * grph2/ucpack/ucpget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UCPGET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UCPGET(
+ *          CHARACTER*(*) CP
+ *          INTEGER o IPARA
+ *      )
+ */
+
+/* 
+ *      ENTRY UCPSET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UCPSET(
+ *          CHARACTER*(*) CP
+ *          INTEGER IPARA
+ *      )
+ */
+
+/* 
+ *      ENTRY UCPSTX(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UCPSTX(
+ *          CHARACTER*(*) CP
+ *          INTEGER IPARA
+ *      )
+ */
+
+/*****************************************************
+ * grph2/ucpack/ucpqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UCPQNP(NCP)
+ */
+      SUBROUTINE UCPQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UCPQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCPQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UCPQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCPQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UCPQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCPQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UCPQIT(IDX, ITP)
+ */
+      SUBROUTINE UCPQIT(
+          INTEGER IDX
+          INTEGER o ITP
+      )
+
+/* 
+ *      ENTRY UCPQVL(IDX, IPARA)
+ */
+      SUBROUTINE UCPQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UCPSVL(IDX, IPARA)
+ */
+      SUBROUTINE UCPSVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UCPQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCPQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/ucpack/ucxacl.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UCXACL(CSIDE,JD0,ND)
+ *      CHARACTER CSIDE*1
+ */
+      SUBROUTINE UCXACL(
+          CHARACTER*1 CSIDE
+          INTEGER JD0
+          INTEGER ND
+      )
+
+/*****************************************************
+ * grph2/ucpack/ucxady.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UCXADY(CSIDE,JD0,ND)
+ *      CHARACTER CSIDE*1
+ */
+      SUBROUTINE UCXADY(
+          CHARACTER*1 CSIDE
+          INTEGER JD0
+          INTEGER ND
+      )
+
+/*****************************************************
+ * grph2/ucpack/ucxamn.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UCXAMN(CSIDE,JD0,ND)
+ *      CHARACTER CSIDE*1
+ */
+      SUBROUTINE UCXAMN(
+          CHARACTER*1 CSIDE
+          INTEGER JD0
+          INTEGER ND
+      )
+
+/*****************************************************
+ * grph2/ucpack/ucxayr.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UCXAYR(CSIDE,JD0,ND)
+ *      CHARACTER CSIDE*1
+ */
+      SUBROUTINE UCXAYR(
+          CHARACTER*1 CSIDE
+          INTEGER JD0
+          INTEGER ND
+      )
+
+/*****************************************************
+ * grph2/ucpack/ucyacl.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UCYACL(CSIDE,JD0,ND)
+ *      CHARACTER CSIDE*1
+ */
+      SUBROUTINE UCYACL(
+          CHARACTER*1 CSIDE
+          INTEGER JD0
+          INTEGER ND
+      )
+
+/*****************************************************
+ * grph2/ucpack/ucyady.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UCYADY(CSIDE,JD0,ND)
+ *      CHARACTER CSIDE*1
+ */
+      SUBROUTINE UCYADY(
+          CHARACTER*1 CSIDE
+          INTEGER JD0
+          INTEGER ND
+      )
+
+/*****************************************************
+ * grph2/ucpack/ucyamn.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UCYAMN(CSIDE,JD0,ND)
+ *      CHARACTER CSIDE*1
+ */
+      SUBROUTINE UCYAMN(
+          CHARACTER*1 CSIDE
+          INTEGER JD0
+          INTEGER ND
+      )
+
+/*****************************************************
+ * grph2/ucpack/ucyayr.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UCYAYR(CSIDE,JD0,ND)
+ *      CHARACTER CSIDE*1
+ */
+      SUBROUTINE UCYAYR(
+          CHARACTER*1 CSIDE
+          INTEGER JD0
+          INTEGER ND
+      )
+
+/*****************************************************
+ * grph2/ucpack/uciget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UCIGET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCIGET(
+          CHARACTER*(*) CP
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UCISET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCISET(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UCISTX(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCISTX(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+
+/*****************************************************
+ * grph2/ucpack/uciqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UCIQNP(NCP)
+ */
+      SUBROUTINE UCIQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UCIQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCIQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UCIQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCIQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UCIQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCIQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UCIQVL(IDX, IPARA)
+ */
+      SUBROUTINE UCIQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UCISVL(IDX, IPARA)
+ */
+      SUBROUTINE UCISVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UCIQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCIQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/ucpack/uclget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UCLGET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UCLGET(
+          CHARACTER*(*) CP
+          LOGICAL o LPARA
+      )
+
+/* 
+ *      ENTRY UCLSET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UCLSET(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+
+/* 
+ *      ENTRY UCLSTX(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UCLSTX(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+
+/*****************************************************
+ * grph2/ucpack/uclqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UCLQNP(NCP)
+ */
+      SUBROUTINE UCLQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UCLQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCLQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UCLQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCLQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UCLQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCLQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UCLQVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UCLQVL(
+          INTEGER IDX
+          LOGICAL o LPARA
+      )
+
+/* 
+ *      ENTRY UCLSVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UCLSVL(
+          INTEGER IDX
+          LOGICAL LPARA
+      )
+
+/* 
+ *      ENTRY UCLQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCLQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/ucpack/ucrget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UCRGET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCRGET(
+          CHARACTER*(*) CP
+          REAL o RPARA
+      )
+
+/* 
+ *      ENTRY UCRSET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCRSET(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+
+/* 
+ *      ENTRY UCRSTX(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCRSTX(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+
+/*****************************************************
+ * grph2/ucpack/ucrqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UCRQNP(NCP)
+ */
+      SUBROUTINE UCRQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UCRQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCRQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UCRQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCRQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UCRQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCRQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UCRQVL(IDX, RPARA)
+ */
+      SUBROUTINE UCRQVL(
+          INTEGER IDX
+          REAL o RPARA
+      )
+
+/* 
+ *      ENTRY UCRSVL(IDX, RPARA)
+ */
+      SUBROUTINE UCRSVL(
+          INTEGER IDX
+          REAL RPARA
+      )
+
+/* 
+ *      ENTRY UCRQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UCRQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+