ruby-dcl 1.6.2

data/GenWrapper/proto/math1_00

@@ -0,0 +1,12 @@
+/*
+ * math1_00
+ *   log to split math1.f77proto into math1_xxxlib.fp
+ *
+ * $Id: math1_00,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+-----
+/*
+ * math1.f77proto
+ * #Id: math1.f77proto,v 1.2 2000/11/05 14:39:34 keiko Exp $
+ */
+

data/GenWrapper/proto/math1_blklib.fp

@@ -0,0 +1,58 @@
+/*
+ * math1_blklib.fp
+ *
+ * $Id: math1_blklib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * math1/blklib/iblklt.f
+ ****************************************************/
+/* 
+ *      INTEGER FUNCTION IBLKLT(RX,N,RR)
+ *      REAL      RX(*)
+ */
+      INTEGER FUNCTION IBLKLT(
+          REAL (N) RX
+          INTEGER N
+          REAL RR
+      )
+
+/*****************************************************
+ * math1/blklib/iblkle.f
+ ****************************************************/
+/* 
+ *      INTEGER FUNCTION IBLKLE(RX,N,RR)
+ *      REAL      RX(*)
+ */
+      INTEGER FUNCTION IBLKLE(
+          REAL (N) RX
+          INTEGER N
+          REAL RR
+      )
+
+/*****************************************************
+ * math1/blklib/iblkgt.f
+ ****************************************************/
+/* 
+ *      INTEGER FUNCTION IBLKGT(RX,N,RR)
+ *      REAL      RX(*)
+ */
+      INTEGER FUNCTION IBLKGT(
+          REAL (N) RX
+          INTEGER N
+          REAL RR
+      )
+
+/*****************************************************
+ * math1/blklib/iblkge.f
+ ****************************************************/
+/* 
+ *      INTEGER FUNCTION IBLKGE(RX,N,RR)
+ *      REAL      RX(*)
+ */
+      INTEGER FUNCTION IBLKGE(
+          REAL (N) RX
+          INTEGER N
+          REAL RR
+      )
+

data/GenWrapper/proto/math1_chrlib.fp

@@ -0,0 +1,83 @@
+/*
+ * math1_chrlib.fp
+ *
+ * $Id: math1_chrlib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * math1/chrlib/cladj.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE CLADJ(CHR)
+ *      CHARACTER CHR*(*)
+ */
+      SUBROUTINE CLADJ(
+          CHARACTER*(*) io CHR
+      )
+
+/*****************************************************
+ * math1/chrlib/lenb.f
+ ****************************************************/
+/* 
+ *      INTEGER FUNCTION LENB(C)
+ *      CHARACTER C*(*)
+ */
+      INTEGER FUNCTION LENB(
+          CHARACTER*(*) C
+      )
+
+/*****************************************************
+ * math1/chrlib/lenc.f
+ ****************************************************/
+/* 
+ *      INTEGER FUNCTION LENC(C)
+ *      CHARACTER C*(*)
+ */
+      INTEGER FUNCTION LENC(
+          CHARACTER*(*) C
+      )
+
+/*****************************************************
+ * math1/chrlib/leny.f
+ ****************************************************/
+/* 
+ *      INTEGER FUNCTION LENY(C)
+ *      CHARACTER C*(*)
+ */
+      INTEGER FUNCTION LENY(
+          CHARACTER*(*) C
+      )
+
+/*****************************************************
+ * math1/chrlib/lenz.f
+ ****************************************************/
+/* 
+ *      INTEGER FUNCTION LENZ(C)
+ *      CHARACTER C*(*)
+ */
+      INTEGER FUNCTION LENZ(
+          CHARACTER*(*) C
+      )
+
+/*****************************************************
+ * math1/chrlib/cradj.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE CRADJ(CHR)
+ *      CHARACTER CHR*(*)
+ */
+      SUBROUTINE CRADJ(
+          CHARACTER*(*) io CHR
+      )
+
+/*****************************************************
+ * math1/chrlib/crvrs.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE CRVRS(CHR)
+ *      CHARACTER CHR*(*)
+ */
+      SUBROUTINE CRVRS(
+          CHARACTER*(*) io CHR
+      )
+

data/GenWrapper/proto/math1_fnclib.fp

@@ -0,0 +1,79 @@
+/*
+ * math1_fnclib.fp
+ *
+ * $Id: math1_fnclib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * math1/fnclib/igus.f
+ ****************************************************/
+/* 
+ *      INTEGER FUNCTION IGUS(RX)
+ */
+      INTEGER FUNCTION IGUS(
+          REAL RX
+      )
+
+/*****************************************************
+ * math1/fnclib/imod.f
+ ****************************************************/
+/* 
+ *      INTEGER FUNCTION IMOD(IX,ID)
+ */
+      INTEGER FUNCTION IMOD(
+          INTEGER IX
+          INTEGER ID
+      )
+
+/*****************************************************
+ * math1/fnclib/rmod.f
+ ****************************************************/
+/* 
+ *      REAL FUNCTION RMOD(RX,RD)
+ */
+      REAL FUNCTION RMOD(
+          REAL RX
+          REAL RD
+      )
+
+/*****************************************************
+ * math1/fnclib/rexp.f
+ ****************************************************/
+/* 
+ *      REAL FUNCTION REXP(RX,IB,IE)
+ */
+      REAL FUNCTION REXP(
+          REAL RX
+          INTEGER IB
+          INTEGER IE
+      )
+
+/*****************************************************
+ * math1/fnclib/rd2r.f
+ ****************************************************/
+/* 
+ *      REAL FUNCTION RD2R(X)
+ */
+      REAL FUNCTION RD2R(
+          REAL X
+      )
+
+/*****************************************************
+ * math1/fnclib/rr2d.f
+ ****************************************************/
+/* 
+ *      REAL FUNCTION RR2D(X)
+ */
+      REAL FUNCTION RR2D(
+          REAL X
+      )
+
+/*****************************************************
+ * math1/fnclib/rfpi.f
+ ****************************************************/
+/* 
+ *      REAL FUNCTION RFPI()
+ */
+      REAL FUNCTION RFPI(
+      )
+

data/GenWrapper/proto/math1_gnmlib.fp

@@ -0,0 +1,118 @@
+/*
+ * math1_gnmlib.fp
+ *
+ * $Id: math1_gnmlib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * math1/gnmlib/gnsave.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE GNSAVE
+ */
+      SUBROUTINE GNSAVE(
+      )
+
+/* 
+ *      ENTRY GNRSET
+ */
+      SUBROUTINE GNRSET(
+      )
+
+/*****************************************************
+ * math1/gnmlib/gnsblk.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE GNSBLK(XB,NB)
+ *      REAL      XB(*)
+ */
+      SUBROUTINE GNSBLK(
+          REAL (NB) XB
+          INTEGER NB
+      )
+
+/* 
+ *      ENTRY GNQBLK(XB,NB)
+ *      REAL      XB(*)
+ */
+      SUBROUTINE GNQBLK(
+          REAL (NB) o XB
+          INTEGER o NB
+      )
+
+/* 
+ *      ENTRY GNLT(RX,BX,IP)
+ */
+      SUBROUTINE GNLT(
+          REAL RX
+          REAL o BX
+          INTEGER o IP
+      )
+
+/* 
+ *      ENTRY GNLE(RX,BX,IP)
+ */
+      SUBROUTINE GNLE(
+          REAL RX
+          REAL o BX
+          INTEGER o IP
+      )
+
+/* 
+ *      ENTRY GNGT(RX,BX,IP)
+ */
+      SUBROUTINE GNGT(
+          REAL RX
+          REAL o BX
+          INTEGER o IP
+      )
+
+/* 
+ *      ENTRY GNGE(RX,BX,IP)
+ */
+      SUBROUTINE GNGE(
+          REAL RX
+          REAL o BX
+          INTEGER o IP
+      )
+
+/*****************************************************
+ * math1/gnmlib/rgnlt.f
+ ****************************************************/
+/* 
+ *      REAL FUNCTION RGNLT(RX)
+ */
+      REAL FUNCTION RGNLT(
+          REAL RX
+      )
+
+/*****************************************************
+ * math1/gnmlib/rgnle.f
+ ****************************************************/
+/* 
+ *      REAL FUNCTION RGNLE(RX)
+ */
+      REAL FUNCTION RGNLE(
+          REAL RX
+      )
+
+/*****************************************************
+ * math1/gnmlib/rgnge.f
+ ****************************************************/
+/* 
+ *      REAL FUNCTION RGNGE(RX)
+ */
+      REAL FUNCTION RGNGE(
+          REAL RX
+      )
+
+/*****************************************************
+ * math1/gnmlib/rgngt.f
+ ****************************************************/
+/* 
+ *      REAL FUNCTION RGNGT(RX)
+ */
+      REAL FUNCTION RGNGT(
+          REAL RX
+      )
+

data/GenWrapper/proto/math1_gt2dlib.fp

@@ -0,0 +1,144 @@
+/*
+ * math1_gt2dlib.fp
+ *
+ * T Horinouchi 2004/11/09
+ */
+
+#if DCLVER >= 530
+
+/*****************************************************
+ * math1/gt2dlib/g2fbli.f:
+ ****************************************************/
+/*
+ *      SUBROUTINE G2FBLI(P,Q, Z00,Z10,Z01,Z11,
+ *     &                  Z)
+ */
+      SUBROUTINE G2FBLI(
+          REAL P
+          REAL Q
+          REAL Z00
+          REAL Z10
+          REAL Z01
+          REAL Z11
+          REAL o Z
+      )
+
+/*****************************************************
+ * math1/gt2dlib/g2fbl2.f:
+ ****************************************************/
+/*
+ *      SUBROUTINE G2FBL2(P,Q,X00,X10,X01,X11,Y00,Y10,Y01,Y11,
+ *     &                  X,Y)
+ */
+      SUBROUTINE G2FBL2(
+          REAL P
+          REAL Q
+          REAL X00
+          REAL X10
+          REAL X01
+          REAL X11
+          REAL Y00
+          REAL Y10
+          REAL Y01
+          REAL Y11
+          REAL o X
+          REAL o Y
+      )
+
+/*****************************************************
+ * math1/gt2dlib/g2ibl2.f:
+ ****************************************************/
+/*
+ *      SUBROUTINE G2IBL2(X,Y,X00,X10,X01,X11,Y00,Y10,Y01,Y11,
+ *     &                  P,Q)
+ */
+      SUBROUTINE G2IBL2(
+          REAL X
+          REAL Y
+          REAL X00
+          REAL X10
+          REAL X01
+          REAL X11
+          REAL Y00
+          REAL Y10
+          REAL Y01
+          REAL Y11
+          REAL o P
+          REAL o Q
+      )
+
+/*****************************************************
+ * math1/gt2dlib/g2fctr.g:
+ ****************************************************/
+/*
+ *      SUBROUTINE G2FCTR(UX, UY, CX, CY)
+ */
+      SUBROUTINE G2FCTR(
+          REAL UX
+          REAL UY
+          REAL o CX
+          REAL o CY
+      )
+
+/*
+ *      ENTRY G2ICTR(CX, CY, UX, UY)
+ */
+      SUBROUTINE G2ICTR(
+          REAL CX
+          REAL CY
+          REAL o UX
+          REAL o UY
+      )
+
+/*
+ *      ENTRY G2QCTI(LINI)
+ */
+      SUBROUTINE G2QCTI(
+          LOGICAL o LINI
+      )
+
+/*
+ *      ENTRY G2QCTM(CXMINE, CXMAXE, CYMINE, CYMAXE)
+ */
+      SUBROUTINE G2QCTM(
+          REAL o CXMINE
+          REAL o CXMAXE
+          REAL o CYMINE
+          REAL o CYMAXE
+      )
+
+/*
+ *      ENTRY G2SCTR(NX, NY, UXA,UYA, CXA,CYA)
+ *      REAL UXA(NX), UYA(NY)
+ *      REAL CXA(NX,NY), CYA(NX,NY)
+ */
+      SUBROUTINE G2SCTR(
+          INTEGER NX
+          INTEGER NY
+          REAL (NX) UXA
+          REAL (NY) UYA
+          REAL (NX,NY) CXA
+          REAL (NX,NY) CYA
+      )
+
+/*****************************************************
+ * math1/gt2dlib/lg2inq.f
+ ****************************************************/
+/*
+ *      LOGICAL FUNCTION LG2INQ(CX,CY,
+ *     &                         CX00,CX10,CX01,CX11,CY00,CY10,CY01,CY11)
+ */
+      LOGICAL FUNCTION LG2INQ(
+          REAL CX
+          REAL CY
+          REAL CX00
+          REAL CX10
+          REAL CX01
+          REAL CX11
+          REAL CY00
+          REAL CY10
+          REAL CY01
+          REAL CY11
+      )
+
+#endif