ruby-dcl 1.8.1 → 1.8.2

data/ext/numru/misc1_datelib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -83,7 +82,7 @@ dcl_date12(obj, idate)
     i_idate = NUM2INT(idate);
 
 
-    date12_(&i_idate, &o_iy, &o_itd);
+    date12__(&i_idate, &o_iy, &o_itd);
 
     iy = INT2NUM(o_iy);
     itd = INT2NUM(o_itd);
@@ -112,7 +111,7 @@ dcl_date13(obj, idate)
     i_idate = NUM2INT(idate);
 
 
-    date13_(&i_idate, &o_iy, &o_im, &o_id);
+    date13__(&i_idate, &o_iy, &o_im, &o_id);
 
     iy = INT2NUM(o_iy);
     im = INT2NUM(o_im);
@@ -143,7 +142,7 @@ dcl_date21(obj, iy, itd)
     i_itd = NUM2INT(itd);
 
 
-    date21_(&o_idate, &i_iy, &i_itd);
+    date21__(&o_idate, &i_iy, &i_itd);
 
     idate = INT2NUM(o_idate);
 
@@ -174,7 +173,7 @@ dcl_date23(obj, iy, itd)
     i_itd = NUM2INT(itd);
 
 
-    date23_(&io_iy, &o_im, &o_id, &i_itd);
+    date23__(&io_iy, &o_im, &o_id, &i_itd);
 
     iy = INT2NUM(io_iy);
     im = INT2NUM(o_im);
@@ -210,7 +209,7 @@ dcl_date31(obj, iy, im, id)
     i_id = NUM2INT(id);
 
 
-    date31_(&o_idate, &i_iy, &i_im, &i_id);
+    date31__(&o_idate, &i_iy, &i_im, &i_id);
 
     idate = INT2NUM(o_idate);
 
@@ -244,7 +243,7 @@ dcl_date32(obj, iy, im, id)
     i_id = NUM2INT(id);
 
 
-    date32_(&io_iy, &i_im, &i_id, &o_itd);
+    date32__(&io_iy, &i_im, &i_id, &o_itd);
 
     iy = INT2NUM(io_iy);
     itd = INT2NUM(o_itd);
@@ -274,7 +273,7 @@ dcl_datef1(obj, n, idate)
     i_idate = NUM2INT(idate);
 
 
-    datef1_(&i_n, &i_idate, &o_ndate);
+    datef1__(&i_n, &i_idate, &o_ndate);
 
     ndate = INT2NUM(o_ndate);
 
@@ -310,7 +309,7 @@ dcl_datef2(obj, n, iy, itd)
     i_itd = NUM2INT(itd);
 
 
-    datef2_(&i_n, &i_iy, &i_itd, &o_ny, &o_ntd);
+    datef2__(&i_n, &i_iy, &i_itd, &o_ny, &o_ntd);
 
     ny = INT2NUM(o_ny);
     ntd = INT2NUM(o_ntd);
@@ -354,7 +353,7 @@ dcl_datef3(obj, n, iy, im, id)
     i_id = NUM2INT(id);
 
 
-    datef3_(&i_n, &i_iy, &i_im, &i_id, &o_ny, &o_nm, &o_nd);
+    datef3__(&i_n, &i_iy, &i_im, &i_id, &o_ny, &o_nm, &o_nd);
 
     ny = INT2NUM(o_ny);
     nm = INT2NUM(o_nm);
@@ -385,7 +384,7 @@ dcl_dateg1(obj, idate, ndate)
     i_ndate = NUM2INT(ndate);
 
 
-    dateg1_(&o_n, &i_idate, &i_ndate);
+    dateg1__(&o_n, &i_idate, &i_ndate);
 
     n = INT2NUM(o_n);
 
@@ -424,7 +423,7 @@ dcl_dateg2(obj, iy, itd, ny, ntd)
     i_ntd = NUM2INT(ntd);
 
 
-    dateg2_(&o_n, &i_iy, &i_itd, &i_ny, &i_ntd);
+    dateg2__(&o_n, &i_iy, &i_itd, &i_ny, &i_ntd);
 
     n = INT2NUM(o_n);
 
@@ -473,7 +472,7 @@ dcl_dateg3(obj, iy, im, id, ny, nm, nd)
     i_nd = NUM2INT(nd);
 
 
-    dateg3_(&o_n, &i_iy, &i_im, &i_id, &i_ny, &i_nm, &i_nd);
+    dateg3__(&o_n, &i_iy, &i_im, &i_id, &i_ny, &i_nm, &i_nd);
 
     n = INT2NUM(o_n);
 
@@ -502,7 +501,7 @@ dcl_ndate1(obj, idate, ndate)
     i_ndate = NUM2INT(ndate);
 
 
-    o_rtn_val = ndate1_(&i_idate, &i_ndate);
+    o_rtn_val = ndate1__(&i_idate, &i_ndate);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -541,7 +540,7 @@ dcl_ndate2(obj, iy, itd, ny, ntd)
     i_ntd = NUM2INT(ntd);
 
 
-    o_rtn_val = ndate2_(&i_iy, &i_itd, &i_ny, &i_ntd);
+    o_rtn_val = ndate2__(&i_iy, &i_itd, &i_ny, &i_ntd);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -590,7 +589,7 @@ dcl_ndate3(obj, iy, im, id, ny, nm, nd)
     i_nd = NUM2INT(nd);
 
 
-    o_rtn_val = ndate3_(&i_iy, &i_im, &i_id, &i_ny, &i_nm, &i_nd);
+    o_rtn_val = ndate3__(&i_iy, &i_im, &i_id, &i_ny, &i_nm, &i_nd);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -618,7 +617,7 @@ dcl_datec1(obj, cform, idate)
     i_idate = NUM2INT(idate);
 
 
-    datec1_(io_cform, &i_idate, (ftnlen)strlen(io_cform));
+    datec1__(io_cform, &i_idate, (ftnlen)strlen(io_cform));
 
     cform = rb_str_new2(io_cform);
 
@@ -651,7 +650,7 @@ dcl_datec2(obj, cform, iy, itd)
     i_itd = NUM2INT(itd);
 
 
-    datec2_(io_cform, &i_iy, &i_itd, (ftnlen)strlen(io_cform));
+    datec2__(io_cform, &i_iy, &i_itd, (ftnlen)strlen(io_cform));
 
     cform = rb_str_new2(io_cform);
 
@@ -689,7 +688,7 @@ dcl_datec3(obj, cform, iy, im, id)
     i_id = NUM2INT(id);
 
 
-    datec3_(io_cform, &i_iy, &i_im, &i_id, (ftnlen)strlen(io_cform));
+    datec3__(io_cform, &i_iy, &i_im, &i_id, (ftnlen)strlen(io_cform));
 
     cform = rb_str_new2(io_cform);
 
@@ -705,7 +704,7 @@ dcl_dateq1(obj)
     integer o_idate;
     VALUE idate;
 
-    dateq1_(&o_idate);
+    dateq1__(&o_idate);
 
     idate = INT2NUM(o_idate);
 
@@ -734,7 +733,7 @@ dcl_ndmon(obj, iy, im)
     i_im = NUM2INT(im);
 
 
-    o_rtn_val = ndmon_(&i_iy, &i_im);
+    o_rtn_val = ndmon__(&i_iy, &i_im);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -752,7 +751,7 @@ dcl_dateq2(obj)
     VALUE iy;
     VALUE itd;
 
-    dateq2_(&o_iy, &o_itd);
+    dateq2__(&o_iy, &o_itd);
 
     iy = INT2NUM(o_iy);
     itd = INT2NUM(o_itd);
@@ -779,7 +778,7 @@ dcl_cmon(obj, im)
     o_rtn_val= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_rtn_val, '\0', DFLT_SIZE+1);
 
-    cmon_(o_rtn_val, (ftnlen)DFLT_SIZE, &i_im);
+    cmon__(o_rtn_val, (ftnlen)DFLT_SIZE, &i_im);
 
     rtn_val = rb_str_new2(o_rtn_val);
 
@@ -805,7 +804,7 @@ dcl_cweek(obj, iw)
     o_rtn_val= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_rtn_val, '\0', DFLT_SIZE+1);
 
-    cweek_(o_rtn_val, (ftnlen)DFLT_SIZE, &i_iw);
+    cweek__(o_rtn_val, (ftnlen)DFLT_SIZE, &i_iw);
 
     rtn_val = rb_str_new2(o_rtn_val);
 
@@ -829,7 +828,7 @@ dcl_iweek1(obj, idate)
     i_idate = NUM2INT(idate);
 
 
-    o_rtn_val = iweek1_(&i_idate);
+    o_rtn_val = iweek1__(&i_idate);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -858,7 +857,7 @@ dcl_iweek2(obj, iy, itd)
     i_itd = NUM2INT(itd);
 
 
-    o_rtn_val = iweek2_(&i_iy, &i_itd);
+    o_rtn_val = iweek2__(&i_iy, &i_itd);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -892,7 +891,7 @@ dcl_iweek3(obj, iy, im, id)
     i_id = NUM2INT(id);
 
 
-    o_rtn_val = iweek3_(&i_iy, &i_im, &i_id);
+    o_rtn_val = iweek3__(&i_iy, &i_im, &i_id);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -916,7 +915,7 @@ dcl_ndyear(obj, iy)
     i_iy = NUM2INT(iy);
 
 
-    o_rtn_val = ndyear_(&i_iy);
+    o_rtn_val = ndyear__(&i_iy);
 
     rtn_val = INT2NUM(o_rtn_val);
 

data/ext/numru/misc1_fmtlib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -88,7 +87,7 @@ dcl_chval(obj, cfmt, val)
     o_cval= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cval, '\0', DFLT_SIZE+1);
 
-    chval_(i_cfmt, &i_val, o_cval, (ftnlen)strlen(i_cfmt), (ftnlen)DFLT_SIZE);
+    chval__(i_cfmt, &i_val, o_cval, (ftnlen)strlen(i_cfmt), (ftnlen)DFLT_SIZE);
 
     cval = rb_str_new2(o_cval);
 

data/ext/numru/misc1_misclib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -83,7 +82,7 @@ dcl_cns(obj, ins)
     o_rtn_val= ALLOCA_N(char, (2));
     memset(o_rtn_val, '\0', 2);
 
-    cns_(o_rtn_val, (ftnlen)1, &i_ins);
+    cns__(o_rtn_val, (ftnlen)1, &i_ins);
 
     rtn_val = rb_str_new2(o_rtn_val);
 
@@ -106,7 +105,7 @@ dcl_cdblk(obj, chr)
     strcpy(io_chr, StringValuePtr(chr));
 
 
-    cdblk_(io_chr, (ftnlen)strlen(io_chr));
+    cdblk__(io_chr, (ftnlen)strlen(io_chr));
 
     chr = rb_str_new2(io_chr);
 

data/ext/numru/misc1_randlib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -83,7 +82,7 @@ dcl_rngu0(obj, iseed)
     io_iseed = NUM2INT(iseed);
 
 
-    o_rtn_val = rngu0_(&io_iseed);
+    o_rtn_val = rngu0__(&io_iseed);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -109,7 +108,7 @@ dcl_rngu1(obj, iseed)
     io_iseed = NUM2INT(iseed);
 
 
-    o_rtn_val = rngu1_(&io_iseed);
+    o_rtn_val = rngu1__(&io_iseed);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -133,7 +132,7 @@ dcl_rngu2(obj, iseed)
     io_iseed = NUM2INT(iseed);
 
 
-    o_rtn_val = rngu2_(&io_iseed);
+    o_rtn_val = rngu2__(&io_iseed);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -159,7 +158,7 @@ dcl_rngu3(obj, iseed)
     io_iseed = NUM2INT(iseed);
 
 
-    o_rtn_val = rngu3_(&io_iseed);
+    o_rtn_val = rngu3__(&io_iseed);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 

data/ext/numru/misc1_timelib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -81,7 +80,7 @@ dcl_time12(obj, itime)
     i_itime = NUM2INT(itime);
 
 
-    time12_(&i_itime, &o_itt);
+    time12__(&i_itime, &o_itt);
 
     itt = INT2NUM(o_itt);
 
@@ -109,7 +108,7 @@ dcl_time13(obj, itime)
     i_itime = NUM2INT(itime);
 
 
-    time13_(&i_itime, &o_ih, &o_im, &o_is);
+    time13__(&i_itime, &o_ih, &o_im, &o_is);
 
     ih = INT2NUM(o_ih);
     im = INT2NUM(o_im);
@@ -135,7 +134,7 @@ dcl_time21(obj, itt)
     i_itt = NUM2INT(itt);
 
 
-    time21_(&o_itime, &i_itt);
+    time21__(&o_itime, &i_itt);
 
     itime = INT2NUM(o_itime);
 
@@ -163,7 +162,7 @@ dcl_time23(obj, itt)
     i_itt = NUM2INT(itt);
 
 
-    time23_(&o_ih, &o_im, &o_is, &i_itt);
+    time23__(&o_ih, &o_im, &o_is, &i_itt);
 
     ih = INT2NUM(o_ih);
     im = INT2NUM(o_im);
@@ -199,7 +198,7 @@ dcl_time31(obj, ih, im, is)
     i_is = NUM2INT(is);
 
 
-    time31_(&o_itime, &i_ih, &i_im, &i_is);
+    time31__(&o_itime, &i_ih, &i_im, &i_is);
 
     itime = INT2NUM(o_itime);
 
@@ -233,7 +232,7 @@ dcl_time32(obj, ih, im, is)
     i_is = NUM2INT(is);
 
 
-    time32_(&i_ih, &i_im, &i_is, &o_itt);
+    time32__(&i_ih, &i_im, &i_is, &o_itt);
 
     itt = INT2NUM(o_itt);
 
@@ -261,7 +260,7 @@ dcl_timec1(obj, cform, itime)
     i_itime = NUM2INT(itime);
 
 
-    timec1_(io_cform, &i_itime, (ftnlen)strlen(io_cform));
+    timec1__(io_cform, &i_itime, (ftnlen)strlen(io_cform));
 
     cform = rb_str_new2(io_cform);
 
@@ -289,7 +288,7 @@ dcl_timec2(obj, cform, itt)
     i_itt = NUM2INT(itt);
 
 
-    timec2_(io_cform, &i_itt, (ftnlen)strlen(io_cform));
+    timec2__(io_cform, &i_itt, (ftnlen)strlen(io_cform));
 
     cform = rb_str_new2(io_cform);
 
@@ -327,7 +326,7 @@ dcl_timec3(obj, cform, ih, im, is)
     i_is = NUM2INT(is);
 
 
-    timec3_(io_cform, &i_ih, &i_im, &i_is, (ftnlen)strlen(io_cform));
+    timec3__(io_cform, &i_ih, &i_im, &i_is, (ftnlen)strlen(io_cform));
 
     cform = rb_str_new2(io_cform);
 
@@ -343,7 +342,7 @@ dcl_timeq1(obj)
     integer o_itime;
     VALUE itime;
 
-    timeq1_(&o_itime);
+    timeq1__(&o_itime);
 
     itime = INT2NUM(o_itime);
 
@@ -359,7 +358,7 @@ dcl_timeq2(obj)
     integer o_itt;
     VALUE itt;
 
-    timeq2_(&o_itt);
+    timeq2__(&o_itt);
 
     itt = INT2NUM(o_itt);