ruby-dcl 1.6.2

data/GenWrapper/proto/grph2_ulpack.fp

@@ -0,0 +1,516 @@
+/*
+ * grph2_ulpack.fp
+ *
+ * $Id: grph2_ulpack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * grph2/ulpack/ulxlog.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ULXLOG ( CSIDE, NLBL, NTICKS )
+ *      CHARACTER CH(MAXL)*16,CHR*8,CFMT*16,CSGI,CSIDE
+ */
+      SUBROUTINE ULXLOG(
+          CHARACTER*(*) CSIDE
+          INTEGER NLBL
+          INTEGER NTICKS
+      )
+
+/*****************************************************
+ * grph2/ulpack/ulylog.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ULYLOG ( CSIDE, NLBL, NTICKS )
+ *      CHARACTER CH(MAXL)*16,CHR*8,CFMT*16,CSGI,CSIDE
+ */
+      SUBROUTINE ULYLOG(
+          CHARACTER*(*) CSIDE
+          INTEGER NLBL
+          INTEGER NTICKS
+      )
+
+/*****************************************************
+ * grph2/ulpack/ulxlbl.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ULXLBL ( BL, NBL, INUM )
+ *      DIMENSION XBL(10,4),NXBL(4),BL(*)
+ */
+      SUBROUTINE ULXLBL(
+          REAL (NBL) o BL
+          INTEGER o NBL
+          INTEGER INUM
+      )
+
+/* 
+ *      ENTRY ULSXBL ( BL, NBL )
+ *      DIMENSION XBL(10,4),NXBL(4),BL(*)
+ */
+      SUBROUTINE ULSXBL(
+          REAL (NBL) BL
+          INTEGER NBL
+      )
+
+/* 
+ *      ENTRY ULQXBL ( BL, NBL )
+ *      DIMENSION XBL(10,4),NXBL(4),BL(*)
+ */
+      SUBROUTINE ULQXBL(
+          REAL (NBL) o BL
+          INTEGER o NBL
+      )
+
+/*****************************************************
+ * grph2/ulpack/ulylbl.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ULYLBL ( BL, NBL, INUM )
+ *      DIMENSION YBL(10,4),NYBL(4),BL(*)
+ */
+      SUBROUTINE ULYLBL(
+          REAL (NBL) o BL
+          INTEGER o NBL
+          INTEGER INUM
+      )
+
+/* 
+ *      ENTRY ULSYBL ( BL, NBL )
+ *      DIMENSION YBL(10,4),NYBL(4),BL(*)
+ */
+      SUBROUTINE ULSYBL(
+          REAL (NBL) BL
+          INTEGER NBL
+      )
+
+/* 
+ *      ENTRY ULQYBL ( BL, NBL )
+ *      DIMENSION YBL(10,4),NYBL(4),BL(*)
+ */
+      SUBROUTINE ULQYBL(
+          REAL (NBL) o BL
+          INTEGER o NBL
+      )
+
+/*****************************************************
+ * grph2/ulpack/ulpget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ULPGET(CP,IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE ULPGET(
+ *          CHARACTER*(*) CP
+ *          INTEGER o IPARA
+ *      )
+ */
+
+/* 
+ *      ENTRY ULPSET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE ULPSET(
+ *          CHARACTER*(*) CP
+ *          INTEGER IPARA
+ *      )
+ */
+
+/* 
+ *      ENTRY ULPSTX(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE ULPSTX(
+ *          CHARACTER*(*) CP
+ *          INTEGER IPARA
+ *      )
+ */
+
+/*****************************************************
+ * grph2/ulpack/ulpqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ULPQNP(NCP)
+ */
+      SUBROUTINE ULPQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY ULPQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULPQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY ULPQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULPQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY ULPQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULPQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY ULPQIT(IDX, ITP)
+ */
+      SUBROUTINE ULPQIT(
+          INTEGER IDX
+          INTEGER o ITP
+      )
+
+/* 
+ *      ENTRY ULPQVL(IDX, IPARA)
+ */
+      SUBROUTINE ULPQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY ULPSVL(IDX, IPARA)
+ */
+      SUBROUTINE ULPSVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY ULPQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULPQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/ulpack/uliget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ULIGET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULIGET(
+          CHARACTER*(*) CP
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY ULISET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULISET(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY ULISTX(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULISTX(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+
+/*****************************************************
+ * grph2/ulpack/uliqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ULIQNP(NCP)
+ */
+      SUBROUTINE ULIQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY ULIQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULIQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY ULIQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULIQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY ULIQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULIQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY ULIQVL(IDX, IPARA)
+ */
+      SUBROUTINE ULIQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY ULISVL(IDX, IPARA)
+ */
+      SUBROUTINE ULISVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY ULIQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULIQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/ulpack/ullget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ULLGET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE ULLGET(
+          CHARACTER*(*) CP
+          LOGICAL o LPARA
+      )
+
+/* 
+ *      ENTRY ULLSET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE ULLSET(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+
+/* 
+ *      ENTRY ULLSTX(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE ULLSTX(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+
+/*****************************************************
+ * grph2/ulpack/ullqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ULLQNP(NCP)
+ */
+      SUBROUTINE ULLQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY ULLQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULLQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY ULLQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULLQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY ULLQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULLQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY ULLQVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE ULLQVL(
+          INTEGER IDX
+          LOGICAL o LPARA
+      )
+
+/* 
+ *      ENTRY ULLSVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE ULLSVL(
+          INTEGER IDX
+          LOGICAL LPARA
+      )
+
+/* 
+ *      ENTRY ULLQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULLQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/ulpack/ulrget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ULRGET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULRGET(
+          CHARACTER*(*) CP
+          REAL o RPARA
+      )
+
+/* 
+ *      ENTRY ULRSET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULRSET(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+
+/* 
+ *      ENTRY ULRSTX(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULRSTX(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+
+/*****************************************************
+ * grph2/ulpack/ulrqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ULRQNP(NCP)
+ */
+      SUBROUTINE ULRQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY ULRQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULRQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY ULRQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULRQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY ULRQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULRQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY ULRQVL(IDX, RPARA)
+ */
+      SUBROUTINE ULRQVL(
+          INTEGER IDX
+          REAL o RPARA
+      )
+
+/* 
+ *      ENTRY ULRSVL(IDX, RPARA)
+ */
+      SUBROUTINE ULRSVL(
+          INTEGER IDX
+          REAL RPARA
+      )
+
+/* 
+ *      ENTRY ULRQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ULRQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/ulpack/ulxsfm.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ULXSFM ( CXFMT )
+ *      CHARACTER CXFMT*(*)
+ */
+      SUBROUTINE ULXSFM(
+          CHARACTER*(*) CXFMT
+      )
+
+/* 
+ *      ENTRY ULXQFM ( CXFMT )
+ *      CHARACTER CXFMT*(*)
+ */
+      SUBROUTINE ULXQFM(
+          CHARACTER*(*) o CXFMT
+      )
+
+/*****************************************************
+ * grph2/ulpack/ulysfm.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ULYSFM ( CYFMT )
+ *      CHARACTER CYFMT*(*)
+ */
+      SUBROUTINE ULYSFM(
+          CHARACTER*(*) CYFMT
+      )
+
+/* 
+ *      ENTRY ULYQFM ( CYFMT )
+ *      CHARACTER CYFMT*(*)
+ */
+      SUBROUTINE ULYQFM(
+          CHARACTER*(*) o CYFMT
+      )
+