ruby-dcl 1.8.1 → 1.8.2

data/ext/numru/math1_fnclib.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_igus(obj, rx)
     i_rx = (real)NUM2DBL(rx);
 
 
-    o_rtn_val = igus_(&i_rx);
+    o_rtn_val = igus__(&i_rx);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -110,7 +109,7 @@ dcl_imod(obj, ix, id)
     i_id = NUM2INT(id);
 
 
-    o_rtn_val = imod_(&i_ix, &i_id);
+    o_rtn_val = imod__(&i_ix, &i_id);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -139,7 +138,7 @@ dcl_rmod(obj, rx, rd)
     i_rd = (real)NUM2DBL(rd);
 
 
-    o_rtn_val = rmod_(&i_rx, &i_rd);
+    o_rtn_val = rmod__(&i_rx, &i_rd);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -173,7 +172,7 @@ dcl_rexp(obj, rx, ib, ie)
     i_ie = NUM2INT(ie);
 
 
-    o_rtn_val = rexp_(&i_rx, &i_ib, &i_ie);
+    o_rtn_val = rexp__(&i_rx, &i_ib, &i_ie);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -197,7 +196,7 @@ dcl_rd2r(obj, x)
     i_x = (real)NUM2DBL(x);
 
 
-    o_rtn_val = rd2r_(&i_x);
+    o_rtn_val = rd2r__(&i_x);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -221,7 +220,7 @@ dcl_rr2d(obj, x)
     i_x = (real)NUM2DBL(x);
 
 
-    o_rtn_val = rr2d_(&i_x);
+    o_rtn_val = rr2d__(&i_x);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -237,7 +236,7 @@ dcl_rfpi(obj)
     real o_rtn_val;
     VALUE rtn_val;
 
-    o_rtn_val = rfpi_();
+    o_rtn_val = rfpi__();
 
     rtn_val = rb_float_new((double)o_rtn_val);
 

data/ext/numru/math1_gnmlib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -70,7 +69,7 @@ static VALUE
 dcl_gnsave(obj)
     VALUE obj;
 {
-    gnsave_();
+    gnsave__();
 
     return Qnil;
 
@@ -80,7 +79,7 @@ static VALUE
 dcl_gnrset(obj)
     VALUE obj;
 {
-    gnrset_();
+    gnrset__();
 
     return Qnil;
 
@@ -108,7 +107,7 @@ dcl_gnsblk(obj, xb, nb)
     i_xb = dcl_obj2crealary(xb);
 
 
-    gnsblk_(i_xb, &i_nb);
+    gnsblk__(i_xb, &i_nb);
 
     dcl_freecrealary(i_xb);
 
@@ -127,7 +126,7 @@ dcl_gnqblk(obj)
 
     o_xb= ALLOCA_N(real, (o_nb));
 
-    gnqblk_(o_xb, &o_nb);
+    gnqblk__(o_xb, &o_nb);
 
     {int array_shape[1] = {o_nb};
      xb = dcl_crealary2obj(o_xb, (o_nb), 1, array_shape);
@@ -156,7 +155,7 @@ dcl_gnlt(obj, rx)
     i_rx = (real)NUM2DBL(rx);
 
 
-    gnlt_(&i_rx, &o_bx, &o_ip);
+    gnlt__(&i_rx, &o_bx, &o_ip);
 
     bx = rb_float_new((double)o_bx);
     ip = INT2NUM(o_ip);
@@ -183,7 +182,7 @@ dcl_gnle(obj, rx)
     i_rx = (real)NUM2DBL(rx);
 
 
-    gnle_(&i_rx, &o_bx, &o_ip);
+    gnle__(&i_rx, &o_bx, &o_ip);
 
     bx = rb_float_new((double)o_bx);
     ip = INT2NUM(o_ip);
@@ -210,7 +209,7 @@ dcl_gngt(obj, rx)
     i_rx = (real)NUM2DBL(rx);
 
 
-    gngt_(&i_rx, &o_bx, &o_ip);
+    gngt__(&i_rx, &o_bx, &o_ip);
 
     bx = rb_float_new((double)o_bx);
     ip = INT2NUM(o_ip);
@@ -237,7 +236,7 @@ dcl_gnge(obj, rx)
     i_rx = (real)NUM2DBL(rx);
 
 
-    gnge_(&i_rx, &o_bx, &o_ip);
+    gnge__(&i_rx, &o_bx, &o_ip);
 
     bx = rb_float_new((double)o_bx);
     ip = INT2NUM(o_ip);
@@ -262,7 +261,7 @@ dcl_rgnlt(obj, rx)
     i_rx = (real)NUM2DBL(rx);
 
 
-    o_rtn_val = rgnlt_(&i_rx);
+    o_rtn_val = rgnlt__(&i_rx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -286,7 +285,7 @@ dcl_rgnle(obj, rx)
     i_rx = (real)NUM2DBL(rx);
 
 
-    o_rtn_val = rgnle_(&i_rx);
+    o_rtn_val = rgnle__(&i_rx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -310,7 +309,7 @@ dcl_rgnge(obj, rx)
     i_rx = (real)NUM2DBL(rx);
 
 
-    o_rtn_val = rgnge_(&i_rx);
+    o_rtn_val = rgnge__(&i_rx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -334,7 +333,7 @@ dcl_rgngt(obj, rx)
     i_rx = (real)NUM2DBL(rx);
 
 
-    o_rtn_val = rgngt_(&i_rx);
+    o_rtn_val = rgngt__(&i_rx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 

data/ext/numru/math1_gt2dlib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -108,7 +107,7 @@ dcl_g2fbli(obj, p, q, z00, z10, z01, z11)
     i_z11 = (real)NUM2DBL(z11);
 
 
-    g2fbli_(&i_p, &i_q, &i_z00, &i_z10, &i_z01, &i_z11, &o_z);
+    g2fbli__(&i_p, &i_q, &i_z00, &i_z10, &i_z01, &i_z11, &o_z);
 
     z = rb_float_new((double)o_z);
 
@@ -179,7 +178,7 @@ dcl_g2fbl2(obj, p, q, x00, x10, x01, x11, y00, y10, y01, y11)
     i_y11 = (real)NUM2DBL(y11);
 
 
-    g2fbl2_(&i_p, &i_q, &i_x00, &i_x10, &i_x01, &i_x11, &i_y00, &i_y10, &i_y01, &i_y11, &o_x, &o_y);
+    g2fbl2__(&i_p, &i_q, &i_x00, &i_x10, &i_x01, &i_x11, &i_y00, &i_y10, &i_y01, &i_y11, &o_x, &o_y);
 
     x = rb_float_new((double)o_x);
     y = rb_float_new((double)o_y);
@@ -251,7 +250,7 @@ dcl_g2ibl2(obj, x, y, x00, x10, x01, x11, y00, y10, y01, y11)
     i_y11 = (real)NUM2DBL(y11);
 
 
-    g2ibl2_(&i_x, &i_y, &i_x00, &i_x10, &i_x01, &i_x11, &i_y00, &i_y10, &i_y01, &i_y11, &o_p, &o_q);
+    g2ibl2__(&i_x, &i_y, &i_x00, &i_x10, &i_x01, &i_x11, &i_y00, &i_y10, &i_y01, &i_y11, &o_p, &o_q);
 
     p = rb_float_new((double)o_p);
     q = rb_float_new((double)o_q);
@@ -283,7 +282,7 @@ dcl_g2fctr(obj, ux, uy)
     i_uy = (real)NUM2DBL(uy);
 
 
-    g2fctr_(&i_ux, &i_uy, &o_cx, &o_cy);
+    g2fctr__(&i_ux, &i_uy, &o_cx, &o_cy);
 
     cx = rb_float_new((double)o_cx);
     cy = rb_float_new((double)o_cy);
@@ -315,7 +314,7 @@ dcl_g2ictr(obj, cx, cy)
     i_cy = (real)NUM2DBL(cy);
 
 
-    g2ictr_(&i_cx, &i_cy, &o_ux, &o_uy);
+    g2ictr__(&i_cx, &i_cy, &o_ux, &o_uy);
 
     ux = rb_float_new((double)o_ux);
     uy = rb_float_new((double)o_uy);
@@ -332,7 +331,7 @@ dcl_g2qcti(obj)
     logical o_lini;
     VALUE lini;
 
-    g2qcti_(&o_lini);
+    g2qcti__(&o_lini);
 
     lini = (o_lini == FALSE_) ? Qfalse : Qtrue;
 
@@ -354,7 +353,7 @@ dcl_g2qctm(obj)
     VALUE cymine;
     VALUE cymaxe;
 
-    g2qctm_(&o_cxmine, &o_cxmaxe, &o_cymine, &o_cymaxe);
+    g2qctm__(&o_cxmine, &o_cxmaxe, &o_cymine, &o_cymaxe);
 
     cxmine = rb_float_new((double)o_cxmine);
     cxmaxe = rb_float_new((double)o_cxmaxe);
@@ -420,7 +419,7 @@ dcl_g2sctr(obj, nx, ny, uxa, uya, cxa, cya)
     i_cya = dcl_obj2crealary(cya);
 
 
-    g2sctr_(&i_nx, &i_ny, i_uxa, i_uya, i_cxa, i_cya);
+    g2sctr__(&i_nx, &i_ny, i_uxa, i_uya, i_cxa, i_cya);
 
     dcl_freecrealary(i_uxa);
     dcl_freecrealary(i_uya);
@@ -491,7 +490,7 @@ dcl_lg2inq(obj, cx, cy, cx00, cx10, cx01, cx11, cy00, cy10, cy01, cy11)
     i_cy11 = (real)NUM2DBL(cy11);
 
 
-    o_rtn_val = lg2inq_(&i_cx, &i_cy, &i_cx00, &i_cx10, &i_cx01, &i_cx11, &i_cy00, &i_cy10, &i_cy01, &i_cy11);
+    o_rtn_val = lg2inq__(&i_cx, &i_cy, &i_cx00, &i_cx10, &i_cx01, &i_cx11, &i_cy00, &i_cy10, &i_cy01, &i_cy11);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 

data/ext/numru/math1_ifalib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -95,7 +94,7 @@ dcl_imax(obj, ix, n, jx)
     i_ix = dcl_obj2cintegerary(ix);
 
 
-    o_rtn_val = imax_(i_ix, &i_n, &i_jx);
+    o_rtn_val = imax__(i_ix, &i_n, &i_jx);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -134,7 +133,7 @@ dcl_imax0(obj, ix, n, jx)
     i_ix = dcl_obj2cintegerary(ix);
 
 
-    o_rtn_val = imax0_(i_ix, &i_n, &i_jx);
+    o_rtn_val = imax0__(i_ix, &i_n, &i_jx);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -173,7 +172,7 @@ dcl_imax1(obj, ix, n, jx)
     i_ix = dcl_obj2cintegerary(ix);
 
 
-    o_rtn_val = imax1_(i_ix, &i_n, &i_jx);
+    o_rtn_val = imax1__(i_ix, &i_n, &i_jx);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -212,7 +211,7 @@ dcl_imin(obj, ix, n, jx)
     i_ix = dcl_obj2cintegerary(ix);
 
 
-    o_rtn_val = imin_(i_ix, &i_n, &i_jx);
+    o_rtn_val = imin__(i_ix, &i_n, &i_jx);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -251,7 +250,7 @@ dcl_imin0(obj, ix, n, jx)
     i_ix = dcl_obj2cintegerary(ix);
 
 
-    o_rtn_val = imin0_(i_ix, &i_n, &i_jx);
+    o_rtn_val = imin0__(i_ix, &i_n, &i_jx);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -290,7 +289,7 @@ dcl_imin1(obj, ix, n, jx)
     i_ix = dcl_obj2cintegerary(ix);
 
 
-    o_rtn_val = imin1_(i_ix, &i_n, &i_jx);
+    o_rtn_val = imin1__(i_ix, &i_n, &i_jx);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -329,7 +328,7 @@ dcl_isum(obj, ix, n, jx)
     i_ix = dcl_obj2cintegerary(ix);
 
 
-    o_rtn_val = isum_(i_ix, &i_n, &i_jx);
+    o_rtn_val = isum__(i_ix, &i_n, &i_jx);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -368,7 +367,7 @@ dcl_isum0(obj, ix, n, jx)
     i_ix = dcl_obj2cintegerary(ix);
 
 
-    o_rtn_val = isum0_(i_ix, &i_n, &i_jx);
+    o_rtn_val = isum0__(i_ix, &i_n, &i_jx);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -407,7 +406,7 @@ dcl_isum1(obj, ix, n, jx)
     i_ix = dcl_obj2cintegerary(ix);
 
 
-    o_rtn_val = isum1_(i_ix, &i_n, &i_jx);
+    o_rtn_val = isum1__(i_ix, &i_n, &i_jx);
 
     rtn_val = INT2NUM(o_rtn_val);
 

data/ext/numru/math1_indxlib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -99,7 +98,7 @@ dcl_indxcf(obj, cx, n, jd, ch)
     i_cx = dcl_obj2ccharary(cx, (i_jd*(i_n-1)+1), 1);
 
 
-    o_rtn_val = indxcf_(i_cx, &i_n, &i_jd, i_ch, (ftnlen)1, (ftnlen)strlen(i_ch));
+    o_rtn_val = indxcf__(i_cx, &i_n, &i_jd, i_ch, (ftnlen)1, (ftnlen)strlen(i_ch));
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -142,7 +141,7 @@ dcl_indxcl(obj, cx, n, jd, ch)
     i_cx = dcl_obj2ccharary(cx, (i_jd*(i_n-1)+1), 1);
 
 
-    o_rtn_val = indxcl_(i_cx, &i_n, &i_jd, i_ch, (ftnlen)1, (ftnlen)strlen(i_ch));
+    o_rtn_val = indxcl__(i_cx, &i_n, &i_jd, i_ch, (ftnlen)1, (ftnlen)strlen(i_ch));
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -182,7 +181,7 @@ dcl_indxmf(obj, cx, n, jd, ch)
     i_ch = StringValuePtr(ch);
 
 
-    o_rtn_val = indxmf_(i_cx, &i_n, &i_jd, i_ch, (ftnlen)strlen(i_cx), (ftnlen)strlen(i_ch));
+    o_rtn_val = indxmf__(i_cx, &i_n, &i_jd, i_ch, (ftnlen)strlen(i_cx), (ftnlen)strlen(i_ch));
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -221,7 +220,7 @@ dcl_indxml(obj, cx, n, jd, ch)
     i_ch = StringValuePtr(ch);
 
 
-    o_rtn_val = indxml_(i_cx, &i_n, &i_jd, i_ch, (ftnlen)strlen(i_cx), (ftnlen)strlen(i_ch));
+    o_rtn_val = indxml__(i_cx, &i_n, &i_jd, i_ch, (ftnlen)strlen(i_cx), (ftnlen)strlen(i_ch));
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -260,7 +259,7 @@ dcl_indxnf(obj, cx, n, jd, ch)
     i_ch = StringValuePtr(ch);
 
 
-    o_rtn_val = indxnf_(i_cx, &i_n, &i_jd, i_ch, (ftnlen)strlen(i_cx), (ftnlen)strlen(i_ch));
+    o_rtn_val = indxnf__(i_cx, &i_n, &i_jd, i_ch, (ftnlen)strlen(i_cx), (ftnlen)strlen(i_ch));
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -299,7 +298,7 @@ dcl_indxnl(obj, cx, n, jd, ch)
     i_ch = StringValuePtr(ch);
 
 
-    o_rtn_val = indxnl_(i_cx, &i_n, &i_jd, i_ch, (ftnlen)strlen(i_cx), (ftnlen)strlen(i_ch));
+    o_rtn_val = indxnl__(i_cx, &i_n, &i_jd, i_ch, (ftnlen)strlen(i_cx), (ftnlen)strlen(i_ch));
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -342,7 +341,7 @@ dcl_indxif(obj, ix, n, jd, ii)
     i_ix = dcl_obj2cintegerary(ix);
 
 
-    o_rtn_val = indxif_(i_ix, &i_n, &i_jd, &i_ii);
+    o_rtn_val = indxif__(i_ix, &i_n, &i_jd, &i_ii);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -386,7 +385,7 @@ dcl_indxil(obj, ix, n, jd, ii)
     i_ix = dcl_obj2cintegerary(ix);
 
 
-    o_rtn_val = indxil_(i_ix, &i_n, &i_jd, &i_ii);
+    o_rtn_val = indxil__(i_ix, &i_n, &i_jd, &i_ii);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -430,7 +429,7 @@ dcl_indxrf(obj, rx, n, jd, rr)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = indxrf_(i_rx, &i_n, &i_jd, &i_rr);
+    o_rtn_val = indxrf__(i_rx, &i_n, &i_jd, &i_rr);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -474,7 +473,7 @@ dcl_indxrl(obj, rx, n, jd, rr)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = indxrl_(i_rx, &i_n, &i_jd, &i_rr);
+    o_rtn_val = indxrl__(i_rx, &i_n, &i_jd, &i_rr);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -517,7 +516,7 @@ dcl_nindxc(obj, cx, n, jd, ch)
     i_cx = dcl_obj2ccharary(cx, (i_jd*(i_n-1)+1), 1);
 
 
-    o_rtn_val = nindxc_(i_cx, &i_n, &i_jd, i_ch, (ftnlen)1, (ftnlen)strlen(i_ch));
+    o_rtn_val = nindxc__(i_cx, &i_n, &i_jd, i_ch, (ftnlen)1, (ftnlen)strlen(i_ch));
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -557,7 +556,7 @@ dcl_nindxm(obj, cx, n, jd, ch)
     i_ch = StringValuePtr(ch);
 
 
-    o_rtn_val = nindxm_(i_cx, &i_n, &i_jd, i_ch, (ftnlen)strlen(i_cx), (ftnlen)strlen(i_ch));
+    o_rtn_val = nindxm__(i_cx, &i_n, &i_jd, i_ch, (ftnlen)strlen(i_cx), (ftnlen)strlen(i_ch));
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -596,7 +595,7 @@ dcl_nindxn(obj, cx, n, jd, ch)
     i_ch = StringValuePtr(ch);
 
 
-    o_rtn_val = nindxn_(i_cx, &i_n, &i_jd, i_ch, (ftnlen)strlen(i_cx), (ftnlen)strlen(i_ch));
+    o_rtn_val = nindxn__(i_cx, &i_n, &i_jd, i_ch, (ftnlen)strlen(i_cx), (ftnlen)strlen(i_ch));
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -639,7 +638,7 @@ dcl_nindxi(obj, ix, n, jd, ii)
     i_ix = dcl_obj2cintegerary(ix);
 
 
-    o_rtn_val = nindxi_(i_ix, &i_n, &i_jd, &i_ii);
+    o_rtn_val = nindxi__(i_ix, &i_n, &i_jd, &i_ii);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -683,7 +682,7 @@ dcl_nindxr(obj, rx, n, jd, rr)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = nindxr_(i_rx, &i_n, &i_jd, &i_rr);
+    o_rtn_val = nindxr__(i_rx, &i_n, &i_jd, &i_rr);
 
     rtn_val = INT2NUM(o_rtn_val);
 

data/ext/numru/math1_intlib.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_irlt(obj, rx)
     i_rx = (real)NUM2DBL(rx);
 
 
-    o_rtn_val = irlt_(&i_rx);
+    o_rtn_val = irlt__(&i_rx);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -105,7 +104,7 @@ dcl_irge(obj, rx)
     i_rx = (real)NUM2DBL(rx);
 
 
-    o_rtn_val = irge_(&i_rx);
+    o_rtn_val = irge__(&i_rx);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -129,7 +128,7 @@ dcl_irle(obj, rx)
     i_rx = (real)NUM2DBL(rx);
 
 
-    o_rtn_val = irle_(&i_rx);
+    o_rtn_val = irle__(&i_rx);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -153,7 +152,7 @@ dcl_irgt(obj, rx)
     i_rx = (real)NUM2DBL(rx);
 
 
-    o_rtn_val = irgt_(&i_rx);
+    o_rtn_val = irgt__(&i_rx);
 
     rtn_val = INT2NUM(o_rtn_val);