ruby-dcl 1.6.2

data/GenWrapper/proto/grph2_ugpack.fp

@@ -0,0 +1,436 @@
+/*
+ * grph2_ugpack.fp
+ *
+ * $Id: grph2_ugpack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * grph2/ugpack/ugvect.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UGVECT(U,MU,V,MV,NX,NY)
+ */
+      SUBROUTINE UGVECT(
+          REAL (MU,NY) U
+          INTEGER MU
+          REAL (MV,NY) V
+          INTEGER MV
+          INTEGER NX
+          INTEGER NY
+      )
+
+/*****************************************************
+ * grph2/ugpack/ugunit.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UGUNIT
+ */
+/*
+      SUBROUTINE UGUNIT(
+      )
+ */
+
+/*****************************************************
+ * grph2/ugpack/ugsut.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UGSUT(CSIDE,CTTL)
+ *      CHARACTER CSIDE*(*),CTTL*(*)
+ */
+      SUBROUTINE UGSUT(
+          CHARACTER*(*) CSIDE
+          CHARACTER*(*) CTTL
+      )
+
+/* 
+ *      ENTRY UGDUT
+ */
+/*
+      SUBROUTINE UGDUT(
+      )
+*/
+
+/*****************************************************
+ * grph2/ugpack/ugpget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UGPGET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UGPGET(
+ *          CHARACTER*(*) CP
+ *          INTEGER o IPARA
+ *      )
+ */
+
+/* 
+ *      ENTRY UGPSET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UGPSET(
+ *          CHARACTER*(*) CP
+ *          INTEGER IPARA
+ *      )
+ */
+
+/* 
+ *      ENTRY UGPSTX(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UGPSTX(
+ *          CHARACTER*(*) CP
+ *          INTEGER IPARA
+ *      )
+ */
+
+/*****************************************************
+ * grph2/ugpack/ugpqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UGPQNP(NCP)
+ */
+      SUBROUTINE UGPQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UGPQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGPQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UGPQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGPQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UGPQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGPQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UGPQIT(IDX, ITP)
+ */
+      SUBROUTINE UGPQIT(
+          INTEGER IDX
+          INTEGER o ITP
+      )
+
+/* 
+ *      ENTRY UGPQVL(IDX, IPARA)
+ */
+      SUBROUTINE UGPQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UGPSVL(IDX, IPARA)
+ */
+      SUBROUTINE UGPSVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UGPQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGPQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/ugpack/ugiget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UGIGET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGIGET(
+          CHARACTER*(*) CP
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UGISET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGISET(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UGISTX(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGISTX(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+
+/*****************************************************
+ * grph2/ugpack/ugiqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UGIQNP(NCP)
+ */
+      SUBROUTINE UGIQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UGIQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGIQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UGIQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGIQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UGIQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGIQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UGIQVL(IDX, IPARA)
+ */
+      SUBROUTINE UGIQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UGISVL(IDX, IPARA)
+ */
+      SUBROUTINE UGISVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UGIQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGIQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/ugpack/uglget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UGLGET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UGLGET(
+          CHARACTER*(*) CP
+          LOGICAL o LPARA
+      )
+
+/* 
+ *      ENTRY UGLSET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UGLSET(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+
+/* 
+ *      ENTRY UGLSTX(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UGLSTX(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+
+/*****************************************************
+ * grph2/ugpack/uglqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UGLQNP(NCP)
+ */
+      SUBROUTINE UGLQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UGLQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGLQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UGLQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGLQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UGLQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGLQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UGLQVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UGLQVL(
+          INTEGER IDX
+          LOGICAL o LPARA
+      )
+
+/* 
+ *      ENTRY UGLSVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UGLSVL(
+          INTEGER IDX
+          LOGICAL LPARA
+      )
+
+/* 
+ *      ENTRY UGLQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGLQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/ugpack/ugrget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UGRGET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGRGET(
+          CHARACTER*(*) CP
+          REAL o RPARA
+      )
+
+/* 
+ *      ENTRY UGRSET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGRSET(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+
+/* 
+ *      ENTRY UGRSTX(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGRSTX(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+
+/*****************************************************
+ * grph2/ugpack/ugrqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UGRQNP(NCP)
+ */
+      SUBROUTINE UGRQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UGRQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGRQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UGRQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGRQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UGRQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGRQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UGRQVL(IDX, RPARA)
+ */
+      SUBROUTINE UGRQVL(
+          INTEGER IDX
+          REAL o RPARA
+      )
+
+/* 
+ *      ENTRY UGRSVL(IDX, RPARA)
+ */
+      SUBROUTINE UGRSVL(
+          INTEGER IDX
+          REAL RPARA
+      )
+
+/* 
+ *      ENTRY UGRQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UGRQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+

data/GenWrapper/proto/grph2_uhpack.fp

@@ -0,0 +1,246 @@
+/*
+ * grph2_uhpack.fp
+ *
+ * $Id: grph2_uhpack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * grph2/uhpack/uherb.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UHERB(N,UPX1,UPX2,UPY)
+ *      REAL      UPX1(*),UPX2(*),UPY(*)
+ */
+      SUBROUTINE UHERB(
+          INTEGER N
+          REAL (N) UPX1
+          REAL (N) UPX2
+          REAL (N) UPY
+      )
+
+/*****************************************************
+ * grph2/uhpack/uherbz.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UHERBZ(N,UPX1,UPX2,UPY,ITYPE,INDEX,RSIZE)
+ *      REAL      UPX1(*),UPX2(*),UPY(*)
+ */
+      SUBROUTINE UHERBZ(
+          INTEGER N
+          REAL (N) UPX1
+          REAL (N) UPX2
+          REAL (N) UPY
+          INTEGER ITYPE
+          INTEGER INDEX
+          REAL RSIZE
+      )
+
+/*****************************************************
+ * grph2/uhpack/uhdif.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UHDIF(N,UPX1,UPX2,UPY)
+ *      REAL      UPX1(*),UPX2(*),UPY(*)
+ */
+      SUBROUTINE UHDIF(
+          INTEGER N
+          REAL (N) UPX1
+          REAL (N) UPX2
+          REAL (N) UPY
+      )
+
+/*****************************************************
+ * grph2/uhpack/uhdifz.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UHDIFZ(N,UPX1,UPX2,UPY,ITPAT1,ITPAT2)
+ *      REAL      UPX1(*),UPX2(*),UPY(*)
+ */
+      SUBROUTINE UHDIFZ(
+          INTEGER N
+          REAL (N) UPX1
+          REAL (N) UPX2
+          REAL (N) UPY
+          INTEGER ITPAT1
+          INTEGER ITPAT2
+      )
+
+/*****************************************************
+ * grph2/uhpack/uhbrf.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UHBRF(N,UPX1,UPX2,UPY)
+ *      REAL      UPX1(*),UPX2(*),UPY(*)
+ */
+      SUBROUTINE UHBRF(
+          INTEGER N
+          REAL (N) UPX1
+          REAL (N) UPX2
+          REAL (N) UPY
+      )
+
+/*****************************************************
+ * grph2/uhpack/uhbrfz.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UHBRFZ(N,UPX1,UPX2,UPY,ITYPE,INDEX,RSIZE)
+ *      REAL      UPX1(*),UPX2(*),UPY(*)
+ */
+      SUBROUTINE UHBRFZ(
+          INTEGER N
+          REAL (N) UPX1
+          REAL (N) UPX2
+          REAL (N) UPY
+          INTEGER ITYPE
+          INTEGER INDEX
+          REAL RSIZE
+      )
+
+/*****************************************************
+ * grph2/uhpack/uhbra.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UHBRA(N,UPX1,UPX2,UPY)
+ *      REAL      UPX1(*),UPX2(*),UPY(*)
+ */
+      SUBROUTINE UHBRA(
+          INTEGER N
+          REAL (N) UPX1
+          REAL (N) UPX2
+          REAL (N) UPY
+      )
+
+/*****************************************************
+ * grph2/uhpack/uhbraz.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UHBRAZ(N,UPX1,UPX2,UPY,ITPAT1,ITPAT2,RSIZE)
+ *      REAL      UPX1(*),UPX2(*),UPY(*)
+ */
+      SUBROUTINE UHBRAZ(
+          INTEGER N
+          REAL (N) UPX1
+          REAL (N) UPX2
+          REAL (N) UPY
+          INTEGER ITPAT1
+          INTEGER ITPAT2
+          REAL RSIZE
+      )
+
+/*****************************************************
+ * grph2/uhpack/uhbrl.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UHBRL(N,UPX,UPY)
+ *      REAL      UPX(*),UPY(*)
+ */
+      SUBROUTINE UHBRL(
+          INTEGER N
+          REAL (N) UPX
+          REAL (N) UPY
+      )
+
+/*****************************************************
+ * grph2/uhpack/uhbrlz.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UHBRLZ(N,UPX,UPY,ITYPE,INDEX,RSIZE)
+ *      REAL      UPX(*),UPY(*)
+ */
+      SUBROUTINE UHBRLZ(
+          INTEGER N
+          REAL (N) UPX
+          REAL (N) UPY
+          INTEGER ITYPE
+          INTEGER INDEX
+          REAL RSIZE
+      )
+
+/*****************************************************
+ * grph2/uhpack/uhbxf.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UHBXF(N,UPX1,UPX2,UPY)
+ *      REAL      UPX1(*),UPX2(*),UPY(*)
+ */
+      SUBROUTINE UHBXF(
+          INTEGER N
+          REAL (N) UPX1
+          REAL (N) UPX2
+          REAL (N+1) UPY
+      )
+
+/*****************************************************
+ * grph2/uhpack/uhbxfz.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UHBXFZ(N,UPX1,UPX2,UPY,ITYPE,INDEX)
+ *      REAL      UPX1(*),UPX2(*),UPY(*)
+ */
+      SUBROUTINE UHBXFZ(
+          INTEGER N
+          REAL (N) UPX1
+          REAL (N) UPX2
+          REAL (N+1) UPY
+          INTEGER ITYPE
+          INTEGER INDEX
+      )
+
+/*****************************************************
+ * grph2/uhpack/uhbxa.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UHBXA(N,UPX1,UPX2,UPY)
+ *      REAL      UPX1(*),UPX2(*),UPY(*)
+ */
+      SUBROUTINE UHBXA(
+          INTEGER N
+          REAL (N) UPX1
+          REAL (N) UPX2
+          REAL (N+1) UPY
+      )
+
+/*****************************************************
+ * grph2/uhpack/uhbxl.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UHBXL(N,UPX,UPY)
+ *      REAL      UPX(*),UPY(*)
+ */
+      SUBROUTINE UHBXL(
+          INTEGER N
+          REAL (N) UPX
+          REAL (N+1) UPY
+      )
+
+/*****************************************************
+ * grph2/uhpack/uhbxaz.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UHBXAZ(N,UPX1,UPX2,UPY,ITPAT1,ITPAT2)
+ *      REAL      UPX1(*),UPX2(*),UPY(*)
+ */
+      SUBROUTINE UHBXAZ(
+          INTEGER N
+          REAL (N) UPX1
+          REAL (N) UPX2
+          REAL (N+1) UPY
+          INTEGER ITPAT1
+          INTEGER ITPAT2
+      )
+
+/*****************************************************
+ * grph2/uhpack/uhbxlz.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UHBXLZ(N,UPX,UPY,ITYPE,INDEX)
+ *      REAL      UPX(*),UPY(*)
+ */
+      SUBROUTINE UHBXLZ(
+          INTEGER N
+          REAL (N) UPX
+          REAL (N+1) UPY
+          INTEGER ITYPE
+          INTEGER INDEX
+      )
+