ruby-dcl 1.6.2

data/GenWrapper/proto/grph2_uepack.fp

@@ -0,0 +1,601 @@
+/*
+ * grph2_uepack.fp
+ *
+ * $Id: grph2_uepack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * grph2/uepack/uetone.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UETONE(Z,MX,NX,NY)
+ *      REAL      Z(MX,*)
+ */
+      SUBROUTINE UETONE(
+          REAL (MX,NY) Z
+          INTEGER MX
+          INTEGER NX
+          INTEGER NY
+      )
+
+/*****************************************************
+ * grph2/uepack/uetonf.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UETONF (Z,MX,NX,NY)
+ *      REAL      Z(MX,*)
+ */
+      SUBROUTINE UETONF(
+          REAL (MX,NY) Z
+          INTEGER MX
+          INTEGER NX
+          INTEGER NY
+      )
+
+/*****************************************************
+ * grph2/uepack/uetonb.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UETONB(Z,MX,NX,NY)
+ *      REAL      Z(MX,*)
+ */
+#if DCLVER >= 534
+      SUBROUTINE UETONB(
+          REAL (MX,NY) Z
+          INTEGER MX
+          INTEGER NX
+          INTEGER NY
+      )
+#endif
+
+/*****************************************************
+ * grph2/uepack/uetonc.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UETONC (Z,MX,NX,NY)
+ *      REAL      Z(MX,*)
+ */
+      SUBROUTINE UETONC(
+          REAL (MX,NY) Z
+          INTEGER MX
+          INTEGER NX
+          INTEGER NY
+      )
+
+/*****************************************************
+ * grph2/uepack/uezchk.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UEZCHK(Z,MX,NX,NY,CNAME,ISTAT)
+ *      REAL      Z(MX,*)
+ *      CHARACTER CNAME*(*)
+ */
+      SUBROUTINE UEZCHK(
+          REAL (MX,NY) Z
+          INTEGER MX
+          INTEGER NX
+          INTEGER NY
+          CHARACTER*(*) CNAME
+          INTEGER o ISTAT
+      )
+
+/*****************************************************
+ * grph2/uepack/uegtla.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UEGTLA(XMIN,XMAX,DX)
+ */
+      SUBROUTINE UEGTLA(
+          REAL XMIN
+          REAL XMAX
+          REAL DX
+      )
+
+/*****************************************************
+ * grph2/uepack/uegtlb.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UEGTLB(Z,MX,NX,NY,DX)
+ *      REAL      Z(MX,*)
+ */
+      SUBROUTINE UEGTLB(
+          REAL (MX,NY) Z
+          INTEGER MX
+          INTEGER NX
+          INTEGER NY
+          REAL DX
+      )
+
+/*****************************************************
+ * grph2/uepack/ueitlv.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UEITLV
+ */
+      SUBROUTINE UEITLV(
+      )
+
+/* 
+ *      ENTRY UESTLV(TLEV1,TLEV2,IPAT)
+ */
+      SUBROUTINE UESTLV(
+          REAL TLEV1
+          REAL TLEV2
+          INTEGER IPAT
+      )
+
+/* 
+ *      ENTRY UEQTLV(TLEV1,TLEV2,IPAT,ITON)
+ */
+      SUBROUTINE UEQTLV(
+          REAL o TLEV1
+          REAL o TLEV2
+          INTEGER o IPAT
+          INTEGER ITON
+      )
+
+/* 
+ *      ENTRY UEQNTL(NTON)
+ */
+      SUBROUTINE UEQNTL(
+          INTEGER o NTON
+      )
+
+/* 
+ *      ENTRY UESTLZ(LSET)
+ *      LOGICAL   LSET
+ */
+/*
+      SUBROUTINE UESTLZ(
+          LOGICAL LSET
+      )
+ */
+
+/* 
+ *      ENTRY UEQTLZ(LSET)
+ *      LOGICAL   LSET
+ */
+/*
+      SUBROUTINE UEQTLZ(
+          LOGICAL o LSET
+      )
+ */
+
+/*****************************************************
+ * grph2/uepack/uestln.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UESTLN(TLEVN,IPATN,NTON)
+ *      REAL      TLEVN(*)
+ *      INTEGER   IPATN(*)
+ */
+      SUBROUTINE UESTLN(
+          REAL (NTON+1) TLEVN
+          INTEGER (NTON) IPATN
+          INTEGER NTON
+      )
+
+/*****************************************************
+ * grph2/uepack/iueton.f
+ ****************************************************/
+/* 
+ *      INTEGER FUNCTION IUETON(ZLEV)
+ */
+      INTEGER FUNCTION IUETON(
+          REAL ZLEV
+      )
+
+/*****************************************************
+ * grph2/uepack/uearea.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UEAREA(XP,YP,ZP,VLVM,AX,AY,NP,NI,NG)
+ *      REAL     XP(4),YP(4),ZP(4),VLVM(2),AX(*),AY(*)
+ *      INTEGER  NP(2),NI(2)
+ */
+/*
+      SUBROUTINE UEAREA(
+          REAL (4) XP
+          REAL (4) YP
+          REAL (4) ZP
+          REAL (2) VLVM
+          REAL (*) o AX
+          REAL (*) o AY
+          INTEGER (2) o NP
+          INTEGER (2) o NI
+          INTEGER o NG
+      )
+ */
+
+/* 
+ *      ENTRY UEAINT
+ */
+/*
+      SUBROUTINE UEAINT(
+      )
+ */
+
+/*****************************************************
+ * grph2/uepack/uepget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UEPGET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UEPGET(
+ *          CHARACTER*(*) CP
+ *          INTEGER o IPARA
+ *      )
+ */
+
+/* 
+ *      ENTRY UEPSET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UEPSET(
+ *          CHARACTER*(*) CP
+ *          INTEGER IPARA
+ *      )
+ */
+
+/* 
+ *      ENTRY UEPSTX(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UEPSTX(
+ *          CHARACTER*(*) CP
+ *          INTEGER IPARA
+ *      )
+ */
+
+/*****************************************************
+ * grph2/uepack/uepqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UEPQNP(NCP)
+ */
+      SUBROUTINE UEPQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UEPQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UEPQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UEPQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UEPQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UEPQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UEPQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UEPQIT(IDX, ITP)
+ */
+      SUBROUTINE UEPQIT(
+          INTEGER IDX
+          INTEGER o ITP
+      )
+
+/* 
+ *      ENTRY UEPQVL(IDX, IPARA)
+ */
+      SUBROUTINE UEPQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UEPSVL(IDX, IPARA)
+ */
+      SUBROUTINE UEPSVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UEPQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UEPQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/uepack/ueiget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UEIGET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UEIGET(
+          CHARACTER*(*) CP
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UEISET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UEISET(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UEISTX(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UEISTX(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+
+/*****************************************************
+ * grph2/uepack/ueiqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UEIQNP(NCP)
+ */
+      SUBROUTINE UEIQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UEIQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UEIQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UEIQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UEIQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UEIQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UEIQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UEIQVL(IDX, IPARA)
+ */
+      SUBROUTINE UEIQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UEISVL(IDX, IPARA)
+ */
+      SUBROUTINE UEISVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UEIQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UEIQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/uepack/uelget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UELGET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UELGET(
+          CHARACTER*(*) CP
+          LOGICAL o LPARA
+      )
+
+/* 
+ *      ENTRY UELSET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UELSET(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+
+/* 
+ *      ENTRY UELSTX(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UELSTX(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+
+/*****************************************************
+ * grph2/uepack/uelqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UELQNP(NCP)
+ */
+      SUBROUTINE UELQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UELQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UELQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UELQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UELQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UELQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UELQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UELQVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UELQVL(
+          INTEGER IDX
+          LOGICAL o LPARA
+      )
+
+/* 
+ *      ENTRY UELSVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UELSVL(
+          INTEGER IDX
+          LOGICAL LPARA
+      )
+
+/* 
+ *      ENTRY UELQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UELQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/uepack/uerget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UERGET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UERGET(
+          CHARACTER*(*) CP
+          REAL o RPARA
+      )
+
+/* 
+ *      ENTRY UERSET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UERSET(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+
+/* 
+ *      ENTRY UERSTX(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UERSTX(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+
+/*****************************************************
+ * grph2/uepack/uerqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UERQNP(NCP)
+ */
+      SUBROUTINE UERQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UERQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UERQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UERQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UERQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UERQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UERQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UERQVL(IDX, RPARA)
+ */
+      SUBROUTINE UERQVL(
+          INTEGER IDX
+          REAL o RPARA
+      )
+
+/* 
+ *      ENTRY UERSVL(IDX, RPARA)
+ */
+      SUBROUTINE UERSVL(
+          INTEGER IDX
+          REAL RPARA
+      )
+
+/* 
+ *      ENTRY UERQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UERQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+