ruby-dcl 1.6.2

data/GenWrapper/proto/grph2_uypack.fp

@@ -0,0 +1,295 @@
+/*
+ * grph2_uypack.fp
+ *
+ * $Id: grph2_uypack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * grph2/uypack/uyptmz.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UYPTMZ(UY,N,UPX,ROFFY,RTICK,INDEX)
+ *      REAL      UY(*)
+ */
+/*
+      SUBROUTINE UYPTMZ(
+          REAL (N) UY
+          INTEGER N
+          REAL UPX
+          REAL ROFFY
+          REAL RTICK
+          INTEGER INDEX
+      )
+ */
+
+/*****************************************************
+ * grph2/uypack/uyplba.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UYPLBA(UY,CH,NC,N,UPX,ROFFY,RSIZE,IROTA,ICENT,INDEX)
+ *      REAL      UY(*)
+ *      CHARACTER CH(*)*(*)
+ */
+/*
+      SUBROUTINE UYPLBA(
+          REAL (N) UY
+          CHARACTER*(*) (N) CH
+          INTEGER NC
+          INTEGER N
+          REAL UPX
+          REAL ROFFY
+          REAL RSIZE
+          INTEGER IROTA
+          INTEGER ICENT
+          INTEGER INDEX
+      )
+ */
+
+/*****************************************************
+ * grph2/uypack/uyplbb.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UYPLBB(UY,CH,NC,N,UPX,ROFFY,RSIZE,IROTA,ICENT,INDEX,
+ *     +                  RBTWN,LBOUND,LBMSG)
+ *      REAL      UY(*)
+ *      CHARACTER CH(*)*(*)
+ *      LOGICAL   LBOUND,LBMSG
+ */
+/*
+      SUBROUTINE UYPLBB(
+          REAL (N) UY
+          CHARACTER*(*) (N) CH
+          INTEGER NC
+          INTEGER N
+          REAL UPX
+          REAL ROFFY
+          REAL RSIZE
+          INTEGER IROTA
+          INTEGER ICENT
+          INTEGER INDEX
+          REAL RBTWN
+          LOGICAL LBOUND
+          LOGICAL LBMSG
+      )
+ */
+
+/*****************************************************
+ * grph2/uypack/uysaxz.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UYSAXZ(CSIDE,ROFFY)
+ *      CHARACTER CSIDE*1
+ */
+      SUBROUTINE UYSAXZ(
+          CHARACTER*1 CSIDE
+          REAL ROFFY
+      )
+
+/*****************************************************
+ * grph2/uypack/uysaxs.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UYSAXS(CSIDE)
+ *      CHARACTER CSIDE*1
+ */
+      SUBROUTINE UYSAXS(
+          CHARACTER*1 CSIDE
+      )
+
+/*****************************************************
+ * grph2/uypack/uysoff.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UYSOFF
+ */
+/*
+      SUBROUTINE UYSOFF(
+      )
+ */
+
+/* 
+ *      ENTRY UYROFF
+ */
+/*
+      SUBROUTINE UYROFF(
+      )
+ */
+
+/*****************************************************
+ * grph2/uypack/uypaxs.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UYPAXS(CSIDE,ISLCT)
+ *      CHARACTER CSIDE*1
+ */
+      SUBROUTINE UYPAXS(
+          CHARACTER*1 CSIDE
+          INTEGER ISLCT
+      )
+
+/*****************************************************
+ * grph2/uypack/uyptmk.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UYPTMK(CSIDE,ISLCT,UY,N)
+ *      CHARACTER CSIDE*1
+ *      REAL      UY(*)
+ */
+      SUBROUTINE UYPTMK(
+          CHARACTER*1 CSIDE
+          INTEGER ISLCT
+          REAL (N) UY
+          INTEGER N
+      )
+
+/*****************************************************
+ * grph2/uypack/uyplbl.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UYPLBL(CSIDE,ISLCT,UY,CH,NC,N)
+ *      CHARACTER CSIDE*1,CH(*)*(*)
+ *      REAL      UY(*)
+ */
+      SUBROUTINE UYPLBL(
+          CHARACTER*1 CSIDE
+          INTEGER ISLCT
+          REAL (N) UY
+          CHARACTER*(*) (N) CH
+          INTEGER NC
+          INTEGER N
+      )
+
+/*****************************************************
+ * grph2/uypack/uypnum.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UYPNUM(CSIDE,ISLCT,UY,N)
+ *      CHARACTER CSIDE*1
+ *      REAL      UY(*)
+ */
+      SUBROUTINE UYPNUM(
+          CHARACTER*1 CSIDE
+          INTEGER ISLCT
+          REAL (N) UY
+          INTEGER N
+      )
+
+/*****************************************************
+ * grph2/uypack/uypttl.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UYPTTL(CSIDE,ISLCT,CTTL,PX)
+ *      CHARACTER CSIDE*1,CTTL*(*)
+ */
+      SUBROUTINE UYPTTL(
+          CHARACTER*1 CSIDE
+          INTEGER ISLCT
+          CHARACTER*(*) CTTL
+          REAL PX
+      )
+
+/*****************************************************
+ * grph2/uypack/uyaxlb.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UYAXLB(CSIDE,UY1,N1,UY2,CH,NC,N2)
+ *      CHARACTER CSIDE*1,CH(*)*(*)
+ *      REAL      UY1(*),UY2(*)
+ */
+      SUBROUTINE UYAXLB(
+          CHARACTER*1 CSIDE
+          REAL (N1) UY1
+          INTEGER N1
+          REAL (N2) UY2
+          CHARACTER*(*) (N2) CH
+          INTEGER NC
+          INTEGER N2
+      )
+
+/*****************************************************
+ * grph2/uypack/uyaxnm.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UYAXNM(CSIDE,UY1,N1,UY2,N2)
+ *      CHARACTER CSIDE*1
+ *      REAL      UY1(*),UY2(*)
+ */
+      SUBROUTINE UYAXNM(
+          CHARACTER*1 CSIDE
+          REAL (N1) UY1
+          INTEGER N1
+          REAL (N2) UY2
+          INTEGER N2
+      )
+
+/*****************************************************
+ * grph2/uypack/uyaxdv.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UYAXDV(CSIDE,DY1,DY2)
+ *      CHARACTER CSIDE*1
+ */
+      SUBROUTINE UYAXDV(
+          CHARACTER*1 CSIDE
+          REAL DY1
+          REAL DY2
+      )
+
+/*****************************************************
+ * grph2/uypack/uymttl.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UYMTTL(CSIDE,CTTL,PX)
+ *      CHARACTER CSIDE*1,CTTL*(*)
+ */
+      SUBROUTINE UYMTTL(
+          CHARACTER*1 CSIDE
+          CHARACTER*(*) CTTL
+          REAL PX
+      )
+
+/*****************************************************
+ * grph2/uypack/uysttl.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UYSTTL(CSIDE,CTTL,PX)
+ *      CHARACTER CSIDE*1,CTTL*(*)
+ */
+      SUBROUTINE UYSTTL(
+          CHARACTER*1 CSIDE
+          CHARACTER*(*) CTTL
+          REAL PX
+      )
+
+/*****************************************************
+ * grph2/uypack/luychk.f
+ ****************************************************/
+/* 
+ *      LOGICAL FUNCTION LUYCHK(CSIDE)
+ *      CHARACTER CSIDE*(*)
+ */
+/*
+      LOGICAL FUNCTION LUYCHK(
+          CHARACTER*(*) CSIDE
+      )
+ */
+
+/*****************************************************
+ * grph2/uypack/uysfmt.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UYSFMT(CFMT)
+ *      CHARACTER CFMT*(*)
+ */
+      SUBROUTINE UYSFMT(
+          CHARACTER*(*) CFMT
+      )
+
+/* 
+ *      ENTRY UYQFMT(CFMT)
+ *      CHARACTER CFMT*(*)
+ */
+      SUBROUTINE UYQFMT(
+          CHARACTER*(*) o CFMT
+      )
+

data/GenWrapper/proto/grph2_uzpack.fp

@@ -0,0 +1,574 @@
+/*
+ * grph2_uzpack.fp
+ *
+ * $Id: grph2_uzpack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * grph2/uzpack/uzpget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UZPGET(CP,IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UZPGET(
+ *          CHARACTER*(*) CP
+ *          INTEGER o IPARA
+ *      )
+ */
+
+/* 
+ *      ENTRY UZPSET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UZPSET(
+ *          CHARACTER*(*) CP
+ *          INTEGER IPARA
+ *      )
+ */
+
+/* 
+ *      ENTRY UZPSTX(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UZPSTX(
+ *          CHARACTER*(*) CP
+ *          INTEGER IPARA
+ *      )
+ */
+
+/*****************************************************
+ * grph2/uzpack/uzpqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UZPQNP(NCP)
+ */
+      SUBROUTINE UZPQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UZPQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZPQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UZPQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZPQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UZPQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZPQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UZPQIT(IDX, ITP)
+ */
+      SUBROUTINE UZPQIT(
+          INTEGER IDX
+          INTEGER o ITP
+      )
+
+/* 
+ *      ENTRY UZPQVL(IDX, IPARA)
+ */
+      SUBROUTINE UZPQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UZPSVL(IDX, IPARA)
+ */
+      SUBROUTINE UZPSVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UZPQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZPQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/uzpack/uzinit.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UZINIT
+ */
+      SUBROUTINE UZINIT(
+      )
+
+/*****************************************************
+ * grph2/uzpack/uzfact.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UZFACT(RFACT)
+ */
+      SUBROUTINE UZFACT(
+          REAL RFACT
+      )
+
+/*****************************************************
+ * grph2/uzpack/uzcget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UZCGET(CP,CPARA)
+ *      CHARACTER CP*(*), CPARA*(*)
+ */
+      SUBROUTINE UZCGET(
+          CHARACTER*(*) CP
+          CHARACTER*(*) o CPARA
+      )
+
+/* 
+ *      ENTRY UZCSET(CP,CPARA)
+ *      CHARACTER CP*(*), CPARA*(*)
+ */
+      SUBROUTINE UZCSET(
+          CHARACTER*(*) CP
+          CHARACTER*(*) CPARA
+      )
+
+/* 
+ *      ENTRY UZCSTX(CP, CPARA)
+ *      CHARACTER CP*(*), CPARA*(*)
+ */
+      SUBROUTINE UZCSTX(
+          CHARACTER*(*) CP
+          CHARACTER*(*) CPARA
+      )
+
+/*****************************************************
+ * grph2/uzpack/uzcqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UZCQNP(NCP)
+ */
+      SUBROUTINE UZCQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UZCQID(CP, IDX)
+ *      CHARACTER CP*(*), CVAL*(*)
+ */
+      SUBROUTINE UZCQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UZCQCP(IDX,CP)
+ *      CHARACTER CP*(*), CVAL*(*)
+ */
+      SUBROUTINE UZCQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UZCQCL(IDX,CP)
+ *      CHARACTER CP*(*), CVAL*(*)
+ */
+      SUBROUTINE UZCQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UZCQVL(IDX,CVAL)
+ *      CHARACTER CP*(*), CVAL*(*)
+ */
+      SUBROUTINE UZCQVL(
+          INTEGER IDX
+          CHARACTER*(*) o CVAL
+      )
+
+/* 
+ *      ENTRY UZCSVL(IDX,CVAL)
+ *      CHARACTER CP*(*), CVAL*(*)
+ */
+      SUBROUTINE UZCSVL(
+          INTEGER IDX
+          CHARACTER*(*) CVAL
+      )
+
+/* 
+ *      ENTRY UZCQIN(CP, IN)
+ *      CHARACTER CP*(*), CVAL*(*)
+ */
+      SUBROUTINE UZCQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/* 
+ *      ENTRY UZCSAV(IU)
+ */
+      SUBROUTINE UZCSAV(
+          INTEGER IU
+      )
+
+/* 
+ *      ENTRY UZCRST(IU)
+ */
+      SUBROUTINE UZCRST(
+          INTEGER IU
+      )
+
+/*****************************************************
+ * grph2/uzpack/uziget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UZIGET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZIGET(
+          CHARACTER*(*) CP
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UZISET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZISET(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UZISTX(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZISTX(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+
+/*****************************************************
+ * grph2/uzpack/uziqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UZIQNP(NCP)
+ */
+      SUBROUTINE UZIQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UZIQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZIQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UZIQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZIQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UZIQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZIQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UZIQVL(IDX, IPARA)
+ */
+      SUBROUTINE UZIQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UZISVL(IDX, IPARA)
+ */
+      SUBROUTINE UZISVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UZIQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZIQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/* 
+ *      ENTRY UZISAV(IU)
+ */
+      SUBROUTINE UZISAV(
+          INTEGER IU
+      )
+
+/* 
+ *      ENTRY UZIRST(IU)
+ */
+      SUBROUTINE UZIRST(
+          INTEGER IU
+      )
+
+/*****************************************************
+ * grph2/uzpack/uzlget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UZLGET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UZLGET(
+          CHARACTER*(*) CP
+          LOGICAL o LPARA
+      )
+
+/* 
+ *      ENTRY UZLSET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UZLSET(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+
+/* 
+ *      ENTRY UZLSTX(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UZLSTX(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+
+/*****************************************************
+ * grph2/uzpack/uzlqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UZLQNP(NCP)
+ */
+      SUBROUTINE UZLQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UZLQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZLQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UZLQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZLQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UZLQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZLQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UZLQVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UZLQVL(
+          INTEGER IDX
+          LOGICAL o LPARA
+      )
+
+/* 
+ *      ENTRY UZLSVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UZLSVL(
+          INTEGER IDX
+          LOGICAL LPARA
+      )
+
+/* 
+ *      ENTRY UZLQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZLQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/* 
+ *      ENTRY UZLSAV(IU)
+ */
+      SUBROUTINE UZLSAV(
+          INTEGER IU
+      )
+
+/* 
+ *      ENTRY UZLRST(IU)
+ */
+      SUBROUTINE UZLRST(
+          INTEGER IU
+      )
+
+/*****************************************************
+ * grph2/uzpack/uzrget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UZRGET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZRGET(
+          CHARACTER*(*) CP
+          REAL o RPARA
+      )
+
+/* 
+ *      ENTRY UZRSET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZRSET(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+
+/* 
+ *      ENTRY UZRSTX(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZRSTX(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+
+/*****************************************************
+ * grph2/uzpack/uzrqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UZRQNP(NCP)
+ */
+      SUBROUTINE UZRQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UZRQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZRQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UZRQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZRQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UZRQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZRQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UZRQVL(IDX, RPARA)
+ */
+      SUBROUTINE UZRQVL(
+          INTEGER IDX
+          REAL o RPARA
+      )
+
+/* 
+ *      ENTRY UZRSVL(IDX, RPARA)
+ */
+      SUBROUTINE UZRSVL(
+          INTEGER IDX
+          REAL RPARA
+      )
+
+/* 
+ *      ENTRY UZRQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UZRQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/* 
+ *      ENTRY UZRSAV(IU)
+ */
+      SUBROUTINE UZRSAV(
+          INTEGER IU
+      )
+
+/* 
+ *      ENTRY UZRRST(IU)
+ */
+      SUBROUTINE UZRRST(
+          INTEGER IU
+      )
+
+/*****************************************************
+ * grph2/uzpack/uzpsav.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UZPSAV
+ */
+      SUBROUTINE UZPSAV(
+      )
+
+/* 
+ *      ENTRY UZPRST
+ */
+      SUBROUTINE UZPRST(
+      )
+