ruby-dcl 1.6.2

data/GenWrapper/proto/grph2_umpack.fp

@@ -0,0 +1,676 @@
+/*
+ * grph2_umpack.fp
+ *
+ * $Id: grph2_umpack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * grph2/umpack/umpmap.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMPMAP(CDSN)
+ *      CHARACTER CDSN*(*)
+ */
+      SUBROUTINE UMPMAP(
+          CHARACTER*(*) CDSN
+      )
+
+/*****************************************************
+ * grph2/umpack/umqfnm.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMQFNM(CPARA,CFNAME)
+ *      CHARACTER CPARA*(*),CFNAME*(*)
+ */
+      SUBROUTINE UMQFNM(
+          CHARACTER*(*) CPARA
+          CHARACTER*(*) o CFNAME
+      )
+
+/*****************************************************
+ * grph2/umpack/umpglb.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMPGLB
+ */
+      SUBROUTINE UMPGLB(
+      )
+
+/*****************************************************
+ * grph2/umpack/umpgrd.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMPGRD
+ */
+      SUBROUTINE UMPGRD(
+      )
+
+/*****************************************************
+ * grph2/umpack/umplim.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMPLIM
+ */
+      SUBROUTINE UMPLIM(
+      )
+
+/*****************************************************
+ * grph2/umpack/uminit.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMINIT
+ */
+      SUBROUTINE UMINIT(
+      )
+
+/*****************************************************
+ * grph2/umpack/umscnt.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMSCNT(XCNT, YCNT, ROT)
+ */
+      SUBROUTINE UMSCNT(
+          REAL XCNT
+          REAL YCNT
+          REAL ROT
+      )
+
+/* 
+ *      ENTRY UMQCNT(XCNT, YCNT, ROT)
+ */
+      SUBROUTINE UMQCNT(
+          REAL o XCNT
+          REAL o YCNT
+          REAL o ROT
+      )
+
+/*****************************************************
+ * grph2/umpack/umscwd.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMSCWD(XCNTR, YCNTR, R)
+ */
+      SUBROUTINE UMSCWD(
+          REAL XCNTR
+          REAL YCNTR
+          REAL R
+      )
+
+/* 
+ *      ENTRY UMQCWD(XCNTR, YCNTR, R)
+ */
+      SUBROUTINE UMQCWD(
+          REAL o XCNTR
+          REAL o YCNTR
+          REAL o R
+      )
+
+/*****************************************************
+ * grph2/umpack/umspnt.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMSPNT(N, UX, UY)
+ *      REAL      UX(*), UY(*)
+ */
+      SUBROUTINE UMSPNT(
+          INTEGER N
+          REAL (N) UX
+          REAL (N) UY
+      )
+
+/* 
+ *      ENTRY UMQPNT(N, UXA, UYA)
+ */
+      SUBROUTINE UMQPNT(
+          INTEGER N
+          REAL o UXA
+          REAL o UYA
+      )
+
+/* 
+ *      ENTRY UMQPTN(N)
+ */
+      SUBROUTINE UMQPTN(
+          INTEGER o N
+      )
+
+/* 
+ *      ENTRY UMRPNT
+ */
+      SUBROUTINE UMRPNT(
+      )
+
+/*****************************************************
+ * grph2/umpack/umpfit.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMPFIT
+ */
+      SUBROUTINE UMPFIT(
+      )
+
+/*****************************************************
+ * grph2/umpack/umpget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMPGET(CP,IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UMPGET(
+ *          CHARACTER*(*) CP
+ *          INTEGER o IPARA
+ *      )
+ */
+
+/* 
+ *      ENTRY UMPSET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UMPSET(
+ *          CHARACTER*(*) CP
+ *          INTEGER IPARA
+ *      )
+ */
+
+/* 
+ *      ENTRY UMPSTX(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE UMPSTX(
+ *          CHARACTER*(*) CP
+ *          INTEGER IPARA
+ *      )
+ */
+
+/*****************************************************
+ * grph2/umpack/umpqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMPQNP(NCP)
+ */
+      SUBROUTINE UMPQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UMPQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMPQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UMPQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMPQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UMPQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMPQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UMPQIT(IDX, ITP)
+ */
+      SUBROUTINE UMPQIT(
+          INTEGER IDX
+          INTEGER o ITP
+      )
+
+/* 
+ *      ENTRY UMPQVL(IDX, IPARA)
+ */
+      SUBROUTINE UMPQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UMPSVL(IDX, IPARA)
+ */
+      SUBROUTINE UMPSVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UMPQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMPQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/umpack/umspct.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMSPCT
+ */
+      SUBROUTINE UMSPCT(
+      )
+
+/*****************************************************
+ * grph2/umpack/umspcw.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMSPCW
+ */
+      SUBROUTINE UMSPCW(
+      )
+
+/*****************************************************
+ * grph2/umpack/umspwd.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMSPWD
+ */
+      SUBROUTINE UMSPWD(
+      )
+
+/*****************************************************
+ * grph2/umpack/umsppt.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMSPPT
+ */
+      SUBROUTINE UMSPPT(
+      )
+
+/*****************************************************
+ * grph2/umpack/umspdf.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMSPDF
+ */
+      SUBROUTINE UMSPDF(
+      )
+
+/*****************************************************
+ * grph2/umpack/umbndc.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMBNDC(XMIN, XMAX, YMIN, YMAX)
+ */
+      SUBROUTINE UMBNDC(
+          REAL io XMIN
+          REAL o XMAX
+          REAL o YMIN
+          REAL o YMAX
+      )
+
+/*****************************************************
+ * grph2/umpack/umbndp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMBNDP(VXMIN, VXMAX, VYMIN, VYMAX)
+ */
+      SUBROUTINE UMBNDP(
+          REAL io VXMIN
+          REAL o VXMAX
+          REAL o VYMIN
+          REAL o VYMAX
+      )
+
+/*****************************************************
+ * grph2/umpack/umbndr.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMBNDR(FUNC, FTR,
+ *     +                  XMIN,  XMAX,  YMIN,  YMAX )
+ */
+      SUBROUTINE UMBNDR(
+          REAL FUNC
+          REAL FTR
+          REAL o XMIN
+          REAL o XMAX
+          REAL o YMIN
+          REAL o YMAX
+      )
+
+/*****************************************************
+ * grph2/umpack/umqtxy.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMQTXY(TXMINZ, TXMAXZ, TYMINZ, TYMAXZ)
+ */
+      SUBROUTINE UMQTXY(
+          REAL o TXMINZ
+          REAL o TXMAXZ
+          REAL o TYMINZ
+          REAL o TYMAXZ
+      )
+
+/*****************************************************
+ * grph2/umpack/umstvz.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMSTVZ
+ */
+      SUBROUTINE UMSTVZ(
+      )
+
+/*****************************************************
+ * grph2/umpack/umsgrd.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMSGRD
+ */
+      SUBROUTINE UMSGRD(
+      )
+
+/*****************************************************
+ * grph2/umpack/umscom.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMSCOM
+ */
+      SUBROUTINE UMSCOM(
+      )
+
+/*****************************************************
+ * grph2/umpack/umiget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMIGET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMIGET(
+          CHARACTER*(*) CP
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UMISET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMISET(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UMISTX(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMISTX(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+
+/*****************************************************
+ * grph2/umpack/umiqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMIQNP(NCP)
+ */
+      SUBROUTINE UMIQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UMIQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMIQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UMIQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMIQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UMIQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMIQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UMIQVL(IDX, IPARA)
+ */
+      SUBROUTINE UMIQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY UMISVL(IDX, IPARA)
+ */
+      SUBROUTINE UMISVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY UMIQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMIQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/umpack/umlget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMLGET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UMLGET(
+          CHARACTER*(*) CP
+          LOGICAL o LPARA
+      )
+
+/* 
+ *      ENTRY UMLSET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UMLSET(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+
+/* 
+ *      ENTRY UMLSTX(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UMLSTX(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+
+/*****************************************************
+ * grph2/umpack/umlqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMLQNP(NCP)
+ */
+      SUBROUTINE UMLQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UMLQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMLQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UMLQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMLQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UMLQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMLQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UMLQVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UMLQVL(
+          INTEGER IDX
+          LOGICAL o LPARA
+      )
+
+/* 
+ *      ENTRY UMLSVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UMLSVL(
+          INTEGER IDX
+          LOGICAL LPARA
+      )
+
+/* 
+ *      ENTRY UMLQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMLQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * grph2/umpack/umrget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMRGET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMRGET(
+          CHARACTER*(*) CP
+          REAL o RPARA
+      )
+
+/* 
+ *      ENTRY UMRSET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMRSET(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+
+/* 
+ *      ENTRY UMRSTX(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMRSTX(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+
+/*****************************************************
+ * grph2/umpack/umrqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMRQNP(NCP)
+ */
+      SUBROUTINE UMRQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY UMRQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMRQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY UMRQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMRQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UMRQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMRQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY UMRQVL(IDX, RPARA)
+ */
+      SUBROUTINE UMRQVL(
+          INTEGER IDX
+          REAL o RPARA
+      )
+
+/* 
+ *      ENTRY UMRSVL(IDX, RPARA)
+ */
+      SUBROUTINE UMRSVL(
+          INTEGER IDX
+          REAL RPARA
+      )
+
+/* 
+ *      ENTRY UMRQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UMRQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+
+/*****************************************************
+ * grph2/umpack/umfmap.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE UMFMAP(CDSN)
+ *      CHARACTER CDSN*(*)
+ */
+#if DCLVER >= 530
+      SUBROUTINE UMFMAP(
+          CHARACTER*(*) CDSN
+      )
+#endif
+