ruby-dcl 1.7.1 → 1.8.0

data/GenWrapper/proto/math1_00

@@ -1,12 +0,0 @@
-/*
- * 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

@@ -1,58 +0,0 @@
-/*
- * 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

@@ -1,83 +0,0 @@
-/*
- * 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_clsplib.fp

@@ -1,74 +0,0 @@
-/*
- * math1_clsplib.fp
- *
- * $Id: math1_clsplib.fp,v 1.3 2012/03/08 05:16:17 koshiro Exp $
- */
-
-#if DCLVER >= 544
-
-/*****************************************************
- * math1/clsplib/clrgsv.f
- ****************************************************/
-/* 
- *      SUBROUTINE CLRGSV(R,G,B,H,S,V,N,M)
- */
-      SUBROUTINE CLRGSV(
-        INTEGER (N,M) R
-        INTEGER (N,M) G
-        INTEGER (N,M) B
-        REAL (N,M) o H
-        REAL (N,M) o S
-        REAL (N,M) o V
-        INTEGER N
-        INTEGER M
-      )
-
-/*****************************************************
- * math1/clsplib/clsvrg.f
- ****************************************************/
-/* 
- *      SUBROUTINE CLSVRG(H,S,V,R,G,B,N,M)
- */
-      SUBROUTINE CLSVRG(
-        REAL (N,M) H
-        REAL (N,M) S
-        REAL (N,M) V
-        INTEGER (N,M) o R
-        INTEGER (N,M) o G
-        INTEGER (N,M) o B
-        INTEGER N
-        INTEGER M
-      )
-
-/*****************************************************
- * math1/clsplib/inorml.f
- ****************************************************/
-/* 
- *      SUBROUTINE INORML(V,W,N,M,X,Y)
- */
-      SUBROUTINE INORML(
-        INTEGER (N,M) V
-        REAL (N,M) o W
-        INTEGER N
-        INTEGER M
-        REAL X
-        REAL Y
-      )
-
-/*****************************************************
- * math1/clsplib/rnorml.f
- ****************************************************/
-/* 
- *      SUBROUTINE RNORML(V,W,N,M,X,Y)
- */
-      SUBROUTINE RNORML(
-        REAL (N,M) V
-        REAL (N,M) o W
-        INTEGER N
-        INTEGER M
-        REAL X
-        REAL Y
-      )
-
-#endif
-

data/GenWrapper/proto/math1_fnclib.fp

@@ -1,79 +0,0 @@
-/*
- * 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

@@ -1,118 +0,0 @@
-/*
- * 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

@@ -1,144 +0,0 @@
-/*
- * 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