ruby-dcl 1.6.2

data/GenWrapper/proto/grph2_udpack.fp

@@ -0,0 +1,692 @@
+/*
+ * grph2_udpack.fp
+ *
+ * $Id: grph2_udpack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * grph2/udpack/udcntr.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDCNTR(Z,MX,NX,NY)
+ *      REAL      Z(MX,*)
+ */
+      SUBROUTINE UDCNTR(
+          REAL (MX,NY) Z
+          INTEGER MX
+          INTEGER NX
+          INTEGER NY
+      )
+
+/*****************************************************
+ * grph2/udpack/udcntz.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDCNTZ(Z,MX,NX,NY,IBR,NBR2)
+ *      REAL      Z(MX,*)
+ *      INTEGER   IBR(NBR2)
+ */
+      SUBROUTINE UDCNTZ(
+          REAL (MX,NY) Z
+          INTEGER MX
+          INTEGER NX
+          INTEGER NY
+          INTEGER (NBR2) t IBR
+          INTEGER NBR2
+      )
+
+/*****************************************************
+ * grph2/udpack/udgcla.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDGCLA(XMIN,XMAX,DX)
+ */
+      SUBROUTINE UDGCLA(
+          REAL XMIN
+          REAL XMAX
+          REAL DX
+      )
+
+/*****************************************************
+ * grph2/udpack/udgclb.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDGCLB(Z,MX,NX,NY,DX)
+ *      REAL      Z(MX,*)
+ */
+      SUBROUTINE UDGCLB(
+          REAL (MX,NY) Z
+          INTEGER MX
+          INTEGER NX
+          INTEGER NY
+          REAL DX
+      )
+
+/*****************************************************
+ * grph2/udpack/udiclv.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDICLV
+ */
+      SUBROUTINE UDICLV(
+      )
+
+/* 
+ *      ENTRY UDSCLV(ZLEV,INDX,ITYP,CLV,HL)
+ *      CHARACTER CLV*(*)
+ */
+      SUBROUTINE UDSCLV(
+          REAL ZLEV
+          INTEGER INDX
+          INTEGER ITYP
+          CHARACTER*(*) CLV
+          REAL HL
+      )
+
+/* 
+ *      ENTRY UDQCLV(ZLEV,INDX,ITYP,CLV,HL,NLEV)
+ *      CHARACTER CLV*(*)
+ */
+      SUBROUTINE UDQCLV(
+          REAL o ZLEV
+          INTEGER o INDX
+          INTEGER o ITYP
+          CHARACTER*(*) o CLV
+          REAL o HL
+          INTEGER NLEV
+      )
+
+/* 
+ *      ENTRY UDQCLN(NLEV)
+ */
+      SUBROUTINE UDQCLN(
+          INTEGER o NLEV
+      )
+
+/* 
+ *      ENTRY UDDCLV(ZLEV)
+ */
+      SUBROUTINE UDDCLV(
+          REAL ZLEV
+      )
+
+/* 
+ *      ENTRY UDSCLZ(LSET)
+ *      LOGICAL   LSET
+ */
+/*
+      SUBROUTINE UDSCLZ(
+          LOGICAL LSET
+      )
+ */
+
+/* 
+ *      ENTRY UDQCLZ(LSET)
+ *      LOGICAL   LSET
+ */
+/*
+      SUBROUTINE UDQCLZ(
+          LOGICAL o LSET
+      )
+ */
+
+/*****************************************************
+ * grph2/udpack/rudlev.f
+ ****************************************************/
+/* 
+ *      REAL FUNCTION RUDLEV(NLEV)
+ */
+      REAL FUNCTION RUDLEV(
+          INTEGER NLEV
+      )
+
+/*****************************************************
+ * grph2/udpack/udline.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDLINE(Z,MX,KX,KY,KK,CX,LOPEN,IBR)
+ *      REAL      Z(MX,*)
+ *      LOGICAL   LOPEN
+ *      INTEGER   IBR(*)
+ */
+/*
+      SUBROUTINE UDLINE(
+          REAL (MX,*) Z
+          INTEGER MX
+          INTEGER KX
+          INTEGER KY
+          INTEGER KK
+          REAL CX
+          LOGICAL LOPEN
+          INTEGER (*) io IBR
+      )
+ */
+
+/*****************************************************
+ * grph2/udpack/uduxuy.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDUXUY(Z,MX,IX,IY,K,CX,UX,UY)
+ *      REAL      Z(MX,*)
+ */
+/*
+      SUBROUTINE UDUXUY(
+          REAL (MX,*) Z
+          INTEGER MX
+          INTEGER IX
+          INTEGER IY
+          INTEGER K
+          REAL CX
+          REAL o UX
+          REAL o UY
+      )
+*/
+
+/*****************************************************
+ * grph2/udpack/udgrdn.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDGRDN(MODE,IX,IY,K,JX,JY,JK)
+ *      INTEGER JX(0:3),JY(0:3),JK(0:3)
+ */
+/*
+      SUBROUTINE UDGRDN(
+          INTEGER MODE
+          INTEGER IX
+          INTEGER IY
+          INTEGER K
+          INTEGER (0:3) o JX
+          INTEGER (0:3) o JY
+          INTEGER (0:3) o JK
+      )
+ */
+
+/*****************************************************
+ * grph2/udpack/rudval.f
+ ****************************************************/
+/* 
+ *      REAL FUNCTION RUDVAL(ZZ,CZ)
+ */
+/* 
+      REAL FUNCTION RUDVAL(
+          REAL ZZ
+          REAL CZ
+      )
+ */
+
+/*****************************************************
+ * grph2/udpack/udbset.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDBSET(I,J,K,L,IBR)
+ *      INTEGER   IBR(NBR,0:*)
+ */
+/* 
+      SUBROUTINE UDBSET(
+          INTEGER I
+          INTEGER J
+          INTEGER K
+          INTEGER L
+          INTEGER (NBR,0:*) io IBR
+      )
+ */
+
+/*****************************************************
+ * grph2/udpack/udbclr.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDBCLR(I,J,K,L,IBR)
+ *      INTEGER   IBR(NBR,0:*)
+ */
+/* 
+      SUBROUTINE UDBCLR(
+          INTEGER I
+          INTEGER J
+          INTEGER K
+          INTEGER L
+          INTEGER (NBR,0:*) io IBR
+      )
+ */
+
+/*****************************************************
+ * grph2/udpack/ludchk.f
+ ****************************************************/
+/* 
+ *      LOGICAL FUNCTION LUDCHK(I,J,K,L,IBR)
+ *      INTEGER   IBR(NBR,0:*)
+ */
+/*
+      LOGICAL FUNCTION LUDCHK(
+          INTEGER I
+          INTEGER J
+          INTEGER K
+          INTEGER L
+          INTEGER (NBR,0:*) IBR
+      )
+ */
+
+/*****************************************************
+ * grph2/udpack/udiclr.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDICLR(IX,N)
+ *      INTEGER   IX(*)
+ */
+      SUBROUTINE UDICLR(
+          INTEGER (N) o IX
+          INTEGER N
+      )
+
+/*****************************************************
+ * grph2/udpack/udlabl.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDLABL(VAL,CVAL)
+ *      CHARACTER CVAL*(*),CFMT*(*)
+ */
+      SUBROUTINE UDLABL(
+          REAL VAL
+          CHARACTER*(*) o CVAL
+      )
+
+/* 
+ *      ENTRY UDSFMT(CFMT)
+ *      CHARACTER CVAL*(*),CFMT*(*)
+ */
+      SUBROUTINE UDSFMT(
+          CHARACTER*(*) CFMT
+      )
+
+/* 
+ *      ENTRY UDQFMT(CFMT)
+ *      CHARACTER CVAL*(*),CFMT*(*)
+ */
+      SUBROUTINE UDQFMT(
+          CHARACTER*(*) o CFMT
+      )
+
+/*****************************************************
+ * grph2/udpack/udpget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDPGET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UDPGET(
+ *          CHARACTER*(*) CP
+ *          INTEGER o IPARA
+ *      )
+ */
+
+/* 
+ *      ENTRY UDPSET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UDPSET(
+ *          CHARACTER*(*) CP
+ *          INTEGER IPARA
+ *      )
+ */
+
+/* 
+ *      ENTRY UDPSTX(CP,IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UDPSTX(
+ *          CHARACTER*(*) CP
+ *          INTEGER IPARA
+ *      )
+ */
+
+/*****************************************************
+ * grph2/udpack/udpqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDPQNP(NCP)
+ */
+      SUBROUTINE UDPQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UDPQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDPQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UDPQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDPQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UDPQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDPQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UDPQIT(IDX, ITP)
+ */
+      SUBROUTINE UDPQIT(
+          INTEGER IDX
+          INTEGER o ITP
+      )
+
+/* 
+ *      ENTRY UDPQVL(IDX, IPARA)
+ */
+      SUBROUTINE UDPQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UDPSVL(IDX, IPARA)
+ */
+      SUBROUTINE UDPSVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UDPQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDPQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/udpack/udiget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDIGET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDIGET(
+          CHARACTER*(*) CP
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UDISET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDISET(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UDISTX(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDISTX(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+
+/*****************************************************
+ * grph2/udpack/udiqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDIQNP(NCP)
+ */
+      SUBROUTINE UDIQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UDIQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDIQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UDIQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDIQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UDIQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDIQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UDIQVL(IDX, IPARA)
+ */
+      SUBROUTINE UDIQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UDISVL(IDX, IPARA)
+ */
+      SUBROUTINE UDISVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UDIQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDIQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/udpack/udlget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDLGET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA, LP
+ */
+      SUBROUTINE UDLGET(
+          CHARACTER*(*) CP
+          LOGICAL o LPARA
+      )
+
+/* 
+ *      ENTRY UDLSET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA, LP
+ */
+      SUBROUTINE UDLSET(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+
+/* 
+ *      ENTRY UDLSTX(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA, LP
+ */
+      SUBROUTINE UDLSTX(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+
+/*****************************************************
+ * grph2/udpack/udlqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDLQNP(NCP)
+ *      INTEGER   NCP
+ */
+      SUBROUTINE UDLQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UDLQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDLQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UDLQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDLQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UDLQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDLQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UDLQVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UDLQVL(
+          INTEGER IDX
+          LOGICAL o LPARA
+      )
+
+/* 
+ *      ENTRY UDLSVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UDLSVL(
+          INTEGER IDX
+          LOGICAL LPARA
+      )
+
+/* 
+ *      ENTRY UDLQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDLQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/udpack/udrget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDRGET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDRGET(
+          CHARACTER*(*) CP
+          REAL o RPARA
+      )
+
+/* 
+ *      ENTRY UDRSET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDRSET(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+
+/* 
+ *      ENTRY UDRSTX(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDRSTX(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+
+/*****************************************************
+ * grph2/udpack/udrqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UDRQNP(NCP)
+ */
+      SUBROUTINE UDRQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UDRQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDRQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UDRQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDRQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UDRQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDRQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UDRQVL(IDX, RPARA)
+ */
+      SUBROUTINE UDRQVL(
+          INTEGER IDX
+          REAL o RPARA
+      )
+
+/* 
+ *      ENTRY UDRSVL(IDX, RPARA)
+ */
+      SUBROUTINE UDRSVL(
+          INTEGER IDX
+          REAL RPARA
+      )
+
+/* 
+ *      ENTRY UDRQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UDRQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+