ruby-dcl 1.6.2

data/GenWrapper/etc/Mk_proto

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

data/GenWrapper/etc/dcl_gen

@@ -0,0 +1,13 @@
+#!/bin/sh
+# $Id: dcl_gen,v 1.2 2011-02-23 17:47:10 koshiro Exp $
+
+cd ../
+###ruby proto2c.rb proto/grph*.f77proto proto/math1.f77proto > code
+###ruby proto2c.rb proto/grph*.f77proto proto/math1.f77proto proto/misc1.f77proto > code
+#ruby proto2c.rb proto/*.fp > code
+ruby proto2c.rb proto/g*.fp proto/m*1_*.fp proto/math2_[^o]*.fp > code
+
+cat etc/p_header >  ../dcl.c
+cat code         >> ../dcl.c
+cat etc/p_init   >> ../dcl.c
+

data/GenWrapper/etc/p_header

@@ -0,0 +1,63 @@
+/*
+ * $Id: p_header,v 1.2 2011-02-23 17:47:10 koshiro Exp $
+ */
+
+#include <stdio.h>
+#include "ruby.h"
+#include "libtinyf2c.h"
+#include "narray.h"
+
+/* for compatibility with ruby 1.6 */
+#ifndef StringValuePtr
+#define StringValuePtr(s) STR2CSTR(s)
+#endif
+
+#define DFLT_SIZE 32
+
+extern char    *dcl_obj2ccharary(VALUE, int, int);
+extern integer *dcl_obj2cintegerary(VALUE);
+extern real    *dcl_obj2crealary(VALUE);
+extern complex *dcl_obj2ccomplexary(VALUE);
+extern logical *dcl_obj2clogicalary(VALUE);
+
+extern VALUE dcl_ccharary2obj(char *, int, int);
+extern VALUE dcl_cintegerary2obj(integer *, int, int, int *);
+extern VALUE dcl_crealary2obj(real *, int, int, int *);
+extern VALUE dcl_ccomplexary2obj(complex *, int, char *);
+extern VALUE dcl_clogicalary2obj(logical *, int, int, int *);
+
+extern void dcl_freeccharary(char *);
+extern void dcl_freecintegerary(integer *);
+extern void dcl_freecrealary(real *);
+extern void dcl_freeccomplexary(complex *);
+extern void dcl_freeclogicalary(logical *);
+
+/* for functions which return real */
+/* fnclib */
+extern real rd2r_(real *);
+extern real rr2d_(real *);
+extern real rexp_(real *, integer *, integer *);
+extern real rfpi_(void);
+extern real rmod_(real *, real *);
+/* gnmlib */
+extern real rgnlt_(real *);
+extern real rgnle_(real *);
+extern real rgngt_(real *);
+extern real rgnge_(real *);
+/* rfalib */
+extern real rmax_(real *, integer *, integer *);
+extern real rmin_(real *, integer *, integer *);
+extern real rsum_(real *, integer *, integer *);
+extern real rave_(real *, integer *, integer *);
+extern real rvar_(real *, integer *, integer *);
+extern real rstd_(real *, integer *, integer *);
+extern real rrms_(real *, integer *, integer *);
+extern real ramp_(real *, integer *, integer *);
+/* rfblib */
+extern real rprd_(real *, real *, integer *, integer *, integer *);
+extern real rcov_(real *, real *, integer *, integer *, integer *);
+extern real rcor_(real *, real *, integer *, integer *, integer *);
+
+
+extern VALUE mDCL;
+