ruby-dcl 1.6.2

data/GenWrapper/proto/math2_intrlib.fp

@@ -0,0 +1,32 @@
+/*
+ * math2_intrlib.fp
+ *
+ * $Id: math2_intrlib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * math2/intrlib/vrintr.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE VRINTR(RX,N,JX)
+ *      REAL    RX(*)
+ */
+      SUBROUTINE VRINTR(
+          REAL (JX*(N-1)+1) io RX
+          INTEGER N
+          INTEGER JX
+      )
+
+/*****************************************************
+ * math2/intrlib/vcintr.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE VCINTR(CX,N,JX)
+ *      COMPLEX CX(*),CMISS,CD,C1
+ */
+      SUBROUTINE VCINTR(
+          COMPLEX (JX*(N-1)+1) io CX
+          INTEGER N
+          INTEGER JX
+      )
+

data/GenWrapper/proto/math2_odelib.fp_notused

@@ -0,0 +1,568 @@
+/*
+ * math2_odelib.fp
+ *
+ * $Id: math2_odelib.fp_notused,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * math2/odelib/odrk1.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ODRK1(N, FCN, T, DT, X, DX, XOUT, WORK)
+ *      DIMENSION  X(N), XOUT(N), DX(N)
+ */
+      SUBROUTINE ODRK1(
+          INTEGER N
+          REAL FCN
+          REAL T
+          REAL DT
+          REAL (N) X
+          REAL (N) DX
+          REAL (N) o XOUT
+          REAL t WORK
+      )
+
+/*****************************************************
+ * math2/odelib/odrk2.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ODRK2(N, FCN, T, DT, X, DX, XOUT, WORK)
+ *      DIMENSION  X(N), XOUT(N), DX(N), WORK(N)
+ */
+      SUBROUTINE ODRK2(
+          INTEGER N
+          REAL FCN
+          REAL T
+          REAL DT
+          REAL (N) X
+          REAL (N) DX
+          REAL (N) o XOUT
+          REAL (N) t WORK
+      )
+
+/*****************************************************
+ * math2/odelib/odrk4.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ODRK4(N, FCN, T, DT, X, DX, XOUT, WORK)
+ *      DIMENSION  X(N), XOUT(N), DX(N), WORK(N,3)
+ */
+      SUBROUTINE ODRK4(
+          INTEGER N
+          REAL FCN
+          REAL T
+          REAL DT
+          REAL (N) X
+          REAL (N) DX
+          REAL (N) o XOUT
+          REAL (N,3) t WORK
+      )
+
+/*****************************************************
+ * math2/odelib/odrk4r.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ODRK4R(N, FCN, T, DT, EPSL, X, WORK)
+ *      DIMENSION X(N), WORK(N,7)
+ */
+      SUBROUTINE ODRK4R(
+          INTEGER N
+          REAL FCN
+          REAL io T
+          REAL io DT
+          REAL EPSL
+          REAL (N) io X
+          REAL (N,7) t WORK
+      )
+
+/*****************************************************
+ * math2/odelib/odrk4s.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ODRK4S(N, FCN, T, DT, EPSL, X, WORK)
+ *      DIMENSION X(N), WORK(N,5)
+ */
+      SUBROUTINE ODRK4S(
+          INTEGER N
+          REAL FCN
+          REAL io T
+          REAL io DT
+          REAL EPSL
+          REAL (N) io X
+          REAL (N,5) t WORK
+      )
+
+/*****************************************************
+ * math2/odelib/odrkdu.f
+ ****************************************************/
+/* NB: (ODRKDU) WORK size is (N,5) (ALGR=ODRK4), (N,3) (otherwise). */
+/* 
+ *      SUBROUTINE ODRKDU(N, ALGR, FCN, T, TEND, ISTEP, X, WORK)
+ *      DIMENSION  X(N), WORK(N,*)
+ */
+      SUBROUTINE ODRKDU(
+          INTEGER N
+          REAL ALGR
+          REAL FCN
+          REAL io T
+          REAL TEND
+          INTEGER ISTEP
+          REAL (N) io X
+          REAL (N,*) t WORK
+      )
+
+/*****************************************************
+ * math2/odelib/odrkdv.f
+ ****************************************************/
+/* NB: (ODRKDV) WORK size is (N,7) (ALGR=ODRK4), (N,5) (otherwise). */
+/* 
+ *      SUBROUTINE ODRKDV(N, STEPER, FCN, T, TEND, DT, X, WORK)
+ *      DIMENSION X(N), WORK(N,*)
+ */
+      SUBROUTINE ODRKDV(
+          INTEGER N
+          REAL STEPER
+          REAL FCN
+          REAL io T
+          REAL TEND
+          REAL io DT
+          REAL (N) io X
+          REAL (N,*) t WORK
+      )
+
+/*****************************************************
+ * math2/odelib/odrkg.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ODRKG(N, FCN, T, DT, X, DX, XOUT, WORK)
+ *      DIMENSION  X(N), DX(N), XOUT(N), WORK(N)
+ */
+      SUBROUTINE ODRKG(
+          INTEGER N
+          REAL FCN
+          REAL T
+          REAL DT
+          REAL X
+          REAL (N) io DX
+          REAL (N) o XOUT
+          REAL (N) t WORK
+      )
+
+/*****************************************************
+ * math2/odelib/odrkgr.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ODRKGR(N, FCN, T, DT, EPSL, X, WORK)
+ *      DIMENSION X(N), WORK(N,5)
+ */
+      SUBROUTINE ODRKGR(
+          INTEGER N
+          REAL FCN
+          REAL io T
+          REAL io DT
+          REAL EPSL
+          REAL (N) io X
+          REAL (N,5) t WORK
+      )
+
+/*****************************************************
+ * math2/odelib/odrkgs.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ODRKGS(N, FCN, T, DT, EPSL, X, WORK)
+ *      DIMENSION X(N), WORK(N,3)
+ */
+      SUBROUTINE ODRKGS(
+          INTEGER N
+          REAL FCN
+          REAL io T
+          REAL io DT
+          REAL EPSL
+          REAL (N) io X
+          REAL (N,3) t WORK
+      )
+
+/*****************************************************
+ * math2/odelib/odiget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ODIGET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODIGET(
+          CHARACTER*(*) CP
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY ODISET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODISET(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY ODISTX(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODISTX(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+
+/*****************************************************
+ * math2/odelib/odiqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ODIQNP(NCP)
+ */
+      SUBROUTINE ODIQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY ODIQID(CP,IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODIQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY ODIQCP(IDX,CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODIQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY ODIQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODIQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY ODIQVL(IDX,IPARA)
+ */
+      SUBROUTINE ODIQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY ODISVL(IDX,IPARA)
+ */
+      SUBROUTINE ODISVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY ODIQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODIQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * math2/odelib/odlget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ODLGET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE ODLGET(
+          CHARACTER*(*) CP
+          LOGICAL o LPARA
+      )
+
+/* 
+ *      ENTRY ODLSET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE ODLSET(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+
+/* 
+ *      ENTRY ODLSTX(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE ODLSTX(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+
+/*****************************************************
+ * math2/odelib/odlqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ODLQNP(NCP)
+ */
+      SUBROUTINE ODLQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY ODLQID(CP,IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODLQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY ODLQCP(IDX,CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODLQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY ODLQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODLQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY ODLQVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE ODLQVL(
+          INTEGER IDX
+          LOGICAL o LPARA
+      )
+
+/* 
+ *      ENTRY ODLSVL(IDX,LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE ODLSVL(
+          INTEGER IDX
+          LOGICAL LPARA
+      )
+
+/* 
+ *      ENTRY ODLQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODLQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * math2/odelib/odpget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ODPGET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE ODPGET(
+ *          CHARACTER*(*) CP
+ *          INTEGER o IPARA
+ *      )
+ */
+
+/* 
+ *      ENTRY ODPSET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE ODPSET(
+ *          CHARACTER*(*) CP
+ *          INTEGER IPARA
+ *      )
+ */
+
+/* 
+ *      ENTRY ODPSTX(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+/*      SUBROUTINE ODPSTX(
+ *          CHARACTER*(*) CP
+ *          INTEGER IPARA
+ *      )
+ */
+
+/*****************************************************
+ * math2/odelib/odpqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ODPQNP(NCP)
+ */
+      SUBROUTINE ODPQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY ODPQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODPQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY ODPQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODPQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY ODPQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODPQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY ODPQIT(IDX, ITP)
+ */
+      SUBROUTINE ODPQIT(
+          INTEGER IDX
+          INTEGER o ITP
+      )
+
+/* 
+ *      ENTRY ODPQVL(IDX, IPARA)
+ */
+      SUBROUTINE ODPQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+
+/* 
+ *      ENTRY ODPSVL(IDX, IPARA)
+ */
+      SUBROUTINE ODPSVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+
+/* 
+ *      ENTRY ODPQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODPQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+
+/*****************************************************
+ * math2/odelib/odrget.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ODRGET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODRGET(
+          CHARACTER*(*) CP
+          REAL o RPARA
+      )
+
+/* 
+ *      ENTRY ODRSET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODRSET(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+
+/* 
+ *      ENTRY ODRSTX(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODRSTX(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+
+/*****************************************************
+ * math2/odelib/odrqnp.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE ODRQNP(NCP)
+ */
+      SUBROUTINE ODRQNP(
+          INTEGER o NCP
+      )
+
+/* 
+ *      ENTRY ODRQID(CP,IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODRQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+
+/* 
+ *      ENTRY ODRQCP(IDX,CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODRQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY ODRQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODRQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+
+/* 
+ *      ENTRY ODLQVR(IDX, RPARA)
+ */
+      SUBROUTINE ODLQVR(
+          INTEGER IDX
+          REAL o RPARA
+      )
+
+/* 
+ *      ENTRY ODRSVL(IDX,RPARA)
+ */
+      SUBROUTINE ODRSVL(
+          INTEGER IDX
+          REAL RPARA
+      )
+
+/* 
+ *      ENTRY ODRQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE ODRQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+