ruby-dcl 1.6.2

data/GenWrapper/proto/Makefile

@@ -0,0 +1,35 @@
+SRCS = math1_blklib.c math1_chrlib.c math1_fnclib.c math1_gnmlib.c \
+    math1_ifalib.c math1_indxlib.c math1_intlib.c math1_lrllib.c \
+    math1_oslib.c math1_rfalib.c math1_rfblib.c math1_sublib.c \
+    math1_syslib.c math1_vialib.c math1_viblib.c math1_vralib.c \
+    math1_vrblib.c math1_xfclib.c math1_gt2dlib.c \
+    math2_fftlib.c math2_intrlib.c \
+    math2_rnmlib.c math2_shtlib.c math2_vstlib.c \
+    misc1_chnlib.c misc1_datelib.c misc1_fmtlib.c misc1_misclib.c \
+    misc1_randlib.c misc1_timelib.c grph1_csgi.c grph1_scpack.c \
+    grph1_sgpack.c grph1_slpack.c grph1_stpack.c grph1_swpack.c \
+    grph2_grpack.c grph2_ucpack.c grph2_udpack.c grph2_uepack.c \
+    grph2_ugpack.c grph2_uhpack.c grph2_ulpack.c grph2_umpack.c \
+    grph2_uspack.c grph2_uupack.c grph2_uvpack.c grph2_uwpack.c \
+    grph2_uxpack.c grph2_uypack.c grph2_uzpack.c \
+    math1_maplib.c
+#    math2_odelib.c \
+
+.SUFFIXES: .fp
+.fp.c:
+	cd ../ ; \
+	cat etc/p_header              > ../$@ ; \
+	ruby proto2c.rb proto/$< >> ../$@ ; \
+	cp ../$@ ../.$@ ; \
+	ruby cproto2init.rb ../$@ >> ../.$@ ; \
+	mv -f ../.$@ ../$@ ; \
+	cd proto
+
+all: $(SRCS)
+
+clean:
+	cd ../../ ; \
+	$(RM) $(SRCS) ;\
+	cd ..
+
+distclean: clean

data/GenWrapper/proto/grph1_00

@@ -0,0 +1,17 @@
+/*
+ * grph1_00
+ *   log to split grph1.f77proto into grph1_csgi.fp and grph1_xxpack.fp
+ *
+ * $Id: grph1_00,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+-----
+/*
+ * grph1.f77proto
+ * #Id: grph1.f77proto,v 1.2 2000/11/05 14:39:33 keiko Exp $
+ */
+
+/*
+ * Packages deleted (by horinout):
+ *   szpack
+ */
+

data/GenWrapper/proto/grph1_csgi.fp

@@ -0,0 +1,27 @@
+/*
+ * grph1_csgi.fp
+ *
+ * $Id: grph1_csgi.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * grph1/csgi/csgi.f.other
+ ****************************************************/
+/* 
+ *      CHARACTER*1 FUNCTION CSGI(IC)
+ */
+      CHARACTER*1 FUNCTION CSGI(
+          INTEGER IC
+      )
+
+/*****************************************************
+ * grph1/csgi/isgc.f.other
+ ****************************************************/
+/* 
+ *      INTEGER FUNCTION ISGC(CH)
+ *      CHARACTER CH*1
+ */
+      INTEGER FUNCTION ISGC(
+          CHARACTER*1 CH
+      )
+

data/GenWrapper/proto/grph1_scpack.fp

@@ -0,0 +1,442 @@
+/*
+ * grph1_scpack.fp
+ *
+ * $Id: grph1_scpack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+/*****************************************************
+ * grph1/scpack/scsobj.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCSOBJ(XOBJ3, YOBJ3, ZOBJ3)
+ */
+      SUBROUTINE SCSOBJ(
+          REAL XOBJ3
+          REAL YOBJ3
+          REAL ZOBJ3
+      )
+
+/* 
+ *      ENTRY SCQOBJ(XOBJ3, YOBJ3, ZOBJ3)
+ */
+      SUBROUTINE SCQOBJ(
+          REAL o XOBJ3
+          REAL o YOBJ3
+          REAL o ZOBJ3
+      )
+
+/*****************************************************
+ * grph1/scpack/scseye.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCSEYE(XEYE3, YEYE3, ZEYE3)
+ */
+      SUBROUTINE SCSEYE(
+          REAL XEYE3
+          REAL YEYE3
+          REAL ZEYE3
+      )
+
+/* 
+ *      ENTRY SCQEYE(XEYE3, YEYE3, ZEYE3)
+ */
+      SUBROUTINE SCQEYE(
+          REAL o XEYE3
+          REAL o YEYE3
+          REAL o ZEYE3
+      )
+
+/*****************************************************
+ * grph1/scpack/scspln.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCSPLN(IXAX, IYAX, SECT)
+ */
+      SUBROUTINE SCSPLN(
+          INTEGER IXAX
+          INTEGER IYAX
+          REAL SECT
+      )
+
+/* 
+ *      ENTRY SCQPLN(IXAX, IYAX, SECT)
+ */
+      SUBROUTINE SCQPLN(
+          INTEGER o IXAX
+          INTEGER o IYAX
+          REAL o SECT
+      )
+
+/*****************************************************
+ * grph1/scpack/scsprj.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCSPRJ
+ */
+      SUBROUTINE SCSPRJ(
+      )
+
+/*****************************************************
+ * grph1/scpack/scsvpt.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCSVPT(VXMIN, VXMAX, VYMIN, VYMAX, VZMIN, VZMAX)
+ */
+      SUBROUTINE SCSVPT(
+          REAL VXMIN
+          REAL VXMAX
+          REAL VYMIN
+          REAL VYMAX
+          REAL VZMIN
+          REAL VZMAX
+      )
+
+/* 
+ *      ENTRY SCQVPT(VXMIN, VXMAX, VYMIN, VYMAX, VZMIN, VZMAX)
+ */
+      SUBROUTINE SCQVPT(
+          REAL o VXMIN
+          REAL o VXMAX
+          REAL o VYMIN
+          REAL o VYMAX
+          REAL o VZMIN
+          REAL o VZMAX
+      )
+
+/*****************************************************
+ * grph1/scpack/scswnd.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCSWND(UXMIN, UXMAX, UYMIN, UYMAX, UZMIN, UZMAX)
+ */
+      SUBROUTINE SCSWND(
+          REAL UXMIN
+          REAL UXMAX
+          REAL UYMIN
+          REAL UYMAX
+          REAL UZMIN
+          REAL UZMAX
+      )
+
+/* 
+ *      ENTRY SCQWND(UXMIN, UXMAX, UYMIN, UYMAX, UZMIN, UZMAX)
+ */
+      SUBROUTINE SCQWND(
+          REAL o UXMIN
+          REAL o UXMAX
+          REAL o UYMIN
+          REAL o UYMAX
+          REAL o UZMIN
+          REAL o UZMAX
+      )
+
+/*****************************************************
+ * grph1/scpack/scslog.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCSLOG(LXLOG3, LYLOG3, LZLOG3)
+ *      LOGICAL LXLOG3, LYLOG3, LZLOG3
+ */
+      SUBROUTINE SCSLOG(
+          LOGICAL LXLOG3
+          LOGICAL LYLOG3
+          LOGICAL LZLOG3
+      )
+
+/* 
+ *      ENTRY SCQLOG(LXLOG3, LYLOG3, LZLOG3)
+ *      LOGICAL LXLOG3, LYLOG3, LZLOG3
+ */
+      SUBROUTINE SCQLOG(
+          LOGICAL o LXLOG3
+          LOGICAL o LYLOG3
+          LOGICAL o LZLOG3
+      )
+
+/*****************************************************
+ * grph1/scpack/scsorg.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCSORG(SIMFAC, VXORG3, VYORG3, VZORG3)
+ */
+      SUBROUTINE SCSORG(
+          REAL SIMFAC
+          REAL VXORG3
+          REAL VYORG3
+          REAL VZORG3
+      )
+
+/* 
+ *      ENTRY SCQORG(SIMFAC, VXORG3, VYORG3, VZORG3)
+ */
+      SUBROUTINE SCQORG(
+          REAL o SIMFAC
+          REAL o VXORG3
+          REAL o VYORG3
+          REAL o VZORG3
+      )
+
+/*****************************************************
+ * grph1/scpack/scstrn.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCSTRN(ITR3)
+ */
+      SUBROUTINE SCSTRN(
+          INTEGER ITR3
+      )
+
+/* 
+ *      ENTRY SCQTRN(ITR3)
+ */
+      SUBROUTINE SCQTRN(
+          INTEGER o ITR3
+      )
+
+/*****************************************************
+ * grph1/scpack/scstrf.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCSTRF
+ */
+      SUBROUTINE SCSTRF(
+      )
+
+/*****************************************************
+ * grph1/scpack/scplu.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCPLU(N,UPX,UPY,UPZ)
+ *      REAL      UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
+ */
+      SUBROUTINE SCPLU(
+          INTEGER N
+          REAL (N) UPX
+          REAL (N) UPY
+          REAL (N) UPZ
+      )
+
+/* 
+ *      ENTRY SCPLV(N,VPX,VPY,VPZ)
+ *      REAL      UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
+ */
+      SUBROUTINE SCPLV(
+          INTEGER N
+          REAL (N) VPX
+          REAL (N) VPY
+          REAL (N) VPZ
+      )
+
+/* 
+ *      ENTRY SCSPLI(INDEX)
+ */
+      SUBROUTINE SCSPLI(
+          INTEGER INDEX
+      )
+
+/* 
+ *      ENTRY SCQPLI(INDEX)
+ */
+      SUBROUTINE SCQPLI(
+          INTEGER o INDEX
+      )
+
+/*****************************************************
+ * grph1/scpack/scplzu.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCPLZU(N,UPX,UPY,UPZ,INDEX)
+ *      REAL      UPX(*),UPY(*),UPZ(*)
+ */
+      SUBROUTINE SCPLZU(
+          INTEGER N
+          REAL (N) UPX
+          REAL (N) UPY
+          REAL (N) UPZ
+          INTEGER INDEX
+      )
+
+/*****************************************************
+ * grph1/scpack/scplzv.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCPLZV(N,VPX,VPY,VPZ,INDEX)
+ *      REAL      VPX(*),VPY(*),VPZ(*)
+ */
+      SUBROUTINE SCPLZV(
+          INTEGER N
+          REAL (N) VPX
+          REAL (N) VPY
+          REAL (N) VPZ
+          INTEGER INDEX
+      )
+
+/*****************************************************
+ * grph1/scpack/scpmu.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCPMU(N,UPX,UPY,UPZ)
+ *      REAL      UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
+ */
+      SUBROUTINE SCPMU(
+          INTEGER N
+          REAL (N) UPX
+          REAL (N) UPY
+          REAL (N) UPZ
+      )
+
+/* 
+ *      ENTRY SCPMV(N,VPX,VPY,VPZ)
+ *      REAL      UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
+ */
+      SUBROUTINE SCPMV(
+          INTEGER N
+          REAL (N) VPX
+          REAL (N) VPY
+          REAL (N) VPZ
+      )
+
+/* 
+ *      ENTRY SCSPMT(ITYPE)
+ */
+      SUBROUTINE SCSPMT(
+          INTEGER ITYPE
+      )
+
+/* 
+ *      ENTRY SCQPMT(ITYPE)
+ */
+      SUBROUTINE SCQPMT(
+          INTEGER o ITYPE
+      )
+
+/* 
+ *      ENTRY SCSPMI(INDEX)
+ */
+      SUBROUTINE SCSPMI(
+          INTEGER INDEX
+      )
+
+/* 
+ *      ENTRY SCQPMI(INDEX)
+ */
+      SUBROUTINE SCQPMI(
+          INTEGER o INDEX
+      )
+
+/* 
+ *      ENTRY SCSPMS(RSIZE)
+ */
+      SUBROUTINE SCSPMS(
+          REAL RSIZE
+      )
+
+/* 
+ *      ENTRY SCQPMS(RSIZE)
+ */
+      SUBROUTINE SCQPMS(
+          REAL o RSIZE
+      )
+
+/*****************************************************
+ * grph1/scpack/scpmzu.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCPMZU(N,UPX,UPY,UPZ,ITYPE,INDEX,RSIZE)
+ *      REAL      UPX(*),UPY(*),UPZ(*)
+ */
+      SUBROUTINE SCPMZU(
+          INTEGER N
+          REAL (N) UPX
+          REAL (N) UPY
+          REAL (N) UPZ
+          INTEGER ITYPE
+          INTEGER INDEX
+          REAL RSIZE
+      )
+
+/*****************************************************
+ * grph1/scpack/scpmzv.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCPMZV(N,VPX,VPY,VPZ,ITYPE,INDEX,RSIZE)
+ *      REAL      VPX(*),VPY(*),VPZ(*)
+ */
+      SUBROUTINE SCPMZV(
+          INTEGER N
+          REAL (N) VPX
+          REAL (N) VPY
+          REAL (N) VPZ
+          INTEGER ITYPE
+          INTEGER INDEX
+          REAL RSIZE
+      )
+
+/*****************************************************
+ * grph1/scpack/sctnu.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCTNU(UPX,UPY,UPZ)
+ *      REAL      UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
+ */
+      SUBROUTINE SCTNU(
+          REAL (3) UPX
+          REAL (3) UPY
+          REAL (3) UPZ
+      )
+
+/* 
+ *      ENTRY SCTNV(VPX,VPY,VPZ)
+ *      REAL      UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
+ */
+      SUBROUTINE SCTNV(
+          REAL (3) VPX
+          REAL (3) VPY
+          REAL (3) VPZ
+      )
+
+/* 
+ *      ENTRY SCSTNP(ITPAT1, ITPAT2)
+ */
+      SUBROUTINE SCSTNP(
+          INTEGER ITPAT1
+          INTEGER ITPAT2
+      )
+
+/* 
+ *      ENTRY SCQTNP(ITPAT1, ITPAT2)
+ */
+      SUBROUTINE SCQTNP(
+          INTEGER o ITPAT1
+          INTEGER o ITPAT2
+      )
+
+/*****************************************************
+ * grph1/scpack/sctnzu.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCTNZU(UPX,UPY,UPZ,ITPAT1,ITPAT2)
+ *      REAL      UPX(*),UPY(*),UPZ(*)
+ */
+      SUBROUTINE SCTNZU(
+          REAL (3) UPX
+          REAL (3) UPY
+          REAL (3) UPZ
+          INTEGER ITPAT1
+          INTEGER ITPAT2
+      )
+
+/*****************************************************
+ * grph1/scpack/sctnzv.f
+ ****************************************************/
+/* 
+ *      SUBROUTINE SCTNZV(VPX,VPY,VPZ,ITPAT1,ITPAT2)
+ *      REAL      VPX(*),VPY(*),VPZ(*)
+ */
+      SUBROUTINE SCTNZV(
+          REAL (3) VPX
+          REAL (3) VPY
+          REAL (3) VPZ
+          INTEGER ITPAT1
+          INTEGER ITPAT2
+      )