ruby-dcl 1.8.1 → 1.8.2

data/ext/numru/math1_lrllib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -86,7 +85,7 @@ dcl_lreq(obj, x, y)
     i_y = (real)NUM2DBL(y);
 
 
-    o_rtn_val = lreq_(&i_x, &i_y);
+    o_rtn_val = lreq__(&i_x, &i_y);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -115,7 +114,7 @@ dcl_lreq0(obj, x, y)
     i_y = (real)NUM2DBL(y);
 
 
-    o_rtn_val = lreq0_(&i_x, &i_y);
+    o_rtn_val = lreq0__(&i_x, &i_y);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -144,7 +143,7 @@ dcl_lreq1(obj, x, y)
     i_y = (real)NUM2DBL(y);
 
 
-    o_rtn_val = lreq1_(&i_x, &i_y);
+    o_rtn_val = lreq1__(&i_x, &i_y);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -178,7 +177,7 @@ dcl_lreqa(obj, x, y, epsl)
     i_epsl = (real)NUM2DBL(epsl);
 
 
-    o_rtn_val = lreqa_(&i_x, &i_y, &i_epsl);
+    o_rtn_val = lreqa__(&i_x, &i_y, &i_epsl);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -207,7 +206,7 @@ dcl_lrne(obj, x, y)
     i_y = (real)NUM2DBL(y);
 
 
-    o_rtn_val = lrne_(&i_x, &i_y);
+    o_rtn_val = lrne__(&i_x, &i_y);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -236,7 +235,7 @@ dcl_lrne0(obj, x, y)
     i_y = (real)NUM2DBL(y);
 
 
-    o_rtn_val = lrne0_(&i_x, &i_y);
+    o_rtn_val = lrne0__(&i_x, &i_y);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -265,7 +264,7 @@ dcl_lrne1(obj, x, y)
     i_y = (real)NUM2DBL(y);
 
 
-    o_rtn_val = lrne1_(&i_x, &i_y);
+    o_rtn_val = lrne1__(&i_x, &i_y);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -299,7 +298,7 @@ dcl_lrnea(obj, x, y, epsl)
     i_epsl = (real)NUM2DBL(epsl);
 
 
-    o_rtn_val = lrnea_(&i_x, &i_y, &i_epsl);
+    o_rtn_val = lrnea__(&i_x, &i_y, &i_epsl);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -328,7 +327,7 @@ dcl_lrlt(obj, x, y)
     i_y = (real)NUM2DBL(y);
 
 
-    o_rtn_val = lrlt_(&i_x, &i_y);
+    o_rtn_val = lrlt__(&i_x, &i_y);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -357,7 +356,7 @@ dcl_lrlt0(obj, x, y)
     i_y = (real)NUM2DBL(y);
 
 
-    o_rtn_val = lrlt0_(&i_x, &i_y);
+    o_rtn_val = lrlt0__(&i_x, &i_y);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -386,7 +385,7 @@ dcl_lrlt1(obj, x, y)
     i_y = (real)NUM2DBL(y);
 
 
-    o_rtn_val = lrlt1_(&i_x, &i_y);
+    o_rtn_val = lrlt1__(&i_x, &i_y);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -420,7 +419,7 @@ dcl_lrlta(obj, x, y, epsl)
     i_epsl = (real)NUM2DBL(epsl);
 
 
-    o_rtn_val = lrlta_(&i_x, &i_y, &i_epsl);
+    o_rtn_val = lrlta__(&i_x, &i_y, &i_epsl);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -449,7 +448,7 @@ dcl_lrgt(obj, x, y)
     i_y = (real)NUM2DBL(y);
 
 
-    o_rtn_val = lrgt_(&i_x, &i_y);
+    o_rtn_val = lrgt__(&i_x, &i_y);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -478,7 +477,7 @@ dcl_lrgt0(obj, x, y)
     i_y = (real)NUM2DBL(y);
 
 
-    o_rtn_val = lrgt0_(&i_x, &i_y);
+    o_rtn_val = lrgt0__(&i_x, &i_y);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -507,7 +506,7 @@ dcl_lrgt1(obj, x, y)
     i_y = (real)NUM2DBL(y);
 
 
-    o_rtn_val = lrgt1_(&i_x, &i_y);
+    o_rtn_val = lrgt1__(&i_x, &i_y);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -541,7 +540,7 @@ dcl_lrgta(obj, x, y, epsl)
     i_epsl = (real)NUM2DBL(epsl);
 
 
-    o_rtn_val = lrgta_(&i_x, &i_y, &i_epsl);
+    o_rtn_val = lrgta__(&i_x, &i_y, &i_epsl);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -570,7 +569,7 @@ dcl_lrle(obj, x, y)
     i_y = (real)NUM2DBL(y);
 
 
-    o_rtn_val = lrle_(&i_x, &i_y);
+    o_rtn_val = lrle__(&i_x, &i_y);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -599,7 +598,7 @@ dcl_lrle0(obj, x, y)
     i_y = (real)NUM2DBL(y);
 
 
-    o_rtn_val = lrle0_(&i_x, &i_y);
+    o_rtn_val = lrle0__(&i_x, &i_y);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -628,7 +627,7 @@ dcl_lrle1(obj, x, y)
     i_y = (real)NUM2DBL(y);
 
 
-    o_rtn_val = lrle1_(&i_x, &i_y);
+    o_rtn_val = lrle1__(&i_x, &i_y);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -662,7 +661,7 @@ dcl_lrlea(obj, x, y, epsl)
     i_epsl = (real)NUM2DBL(epsl);
 
 
-    o_rtn_val = lrlea_(&i_x, &i_y, &i_epsl);
+    o_rtn_val = lrlea__(&i_x, &i_y, &i_epsl);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -691,7 +690,7 @@ dcl_lrge(obj, x, y)
     i_y = (real)NUM2DBL(y);
 
 
-    o_rtn_val = lrge_(&i_x, &i_y);
+    o_rtn_val = lrge__(&i_x, &i_y);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -720,7 +719,7 @@ dcl_lrge0(obj, x, y)
     i_y = (real)NUM2DBL(y);
 
 
-    o_rtn_val = lrge0_(&i_x, &i_y);
+    o_rtn_val = lrge0__(&i_x, &i_y);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -749,7 +748,7 @@ dcl_lrge1(obj, x, y)
     i_y = (real)NUM2DBL(y);
 
 
-    o_rtn_val = lrge1_(&i_x, &i_y);
+    o_rtn_val = lrge1__(&i_x, &i_y);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -783,7 +782,7 @@ dcl_lrgea(obj, x, y, epsl)
     i_epsl = (real)NUM2DBL(epsl);
 
 
-    o_rtn_val = lrgea_(&i_x, &i_y, &i_epsl);
+    o_rtn_val = lrgea__(&i_x, &i_y, &i_epsl);
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 

data/ext/numru/math1_maplib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -79,7 +78,7 @@ dcl_mpscon(obj, ylat0)
     i_ylat0 = (real)NUM2DBL(ylat0);
 
 
-    mpscon_(&i_ylat0);
+    mpscon__(&i_ylat0);
 
     return Qnil;
 
@@ -98,7 +97,7 @@ dcl_mpscoa(obj, ylat1)
     i_ylat1 = (real)NUM2DBL(ylat1);
 
 
-    mpscoa_(&i_ylat1);
+    mpscoa__(&i_ylat1);
 
     return Qnil;
 
@@ -122,7 +121,7 @@ dcl_mpscoc(obj, ylat1, ylat2)
     i_ylat2 = (real)NUM2DBL(ylat2);
 
 
-    mpscoc_(&i_ylat1, &i_ylat2);
+    mpscoc__(&i_ylat1, &i_ylat2);
 
     return Qnil;
 
@@ -141,7 +140,7 @@ dcl_mpsbon(obj, ylat1)
     i_ylat1 = (real)NUM2DBL(ylat1);
 
 
-    mpsbon_(&i_ylat1);
+    mpsbon__(&i_ylat1);
 
     return Qnil;
 
@@ -160,7 +159,7 @@ dcl_mpsotg(obj, rsat)
     i_rsat = (real)NUM2DBL(rsat);
 
 
-    mpsotg_(&i_rsat);
+    mpsotg__(&i_rsat);
 
     return Qnil;
 

data/ext/numru/math1_oslib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -73,7 +72,7 @@ dcl_osqarn(obj)
     integer o_n;
     VALUE n;
 
-    osqarn_(&o_n);
+    osqarn__(&o_n);
 
     n = INT2NUM(o_n);
 
@@ -99,7 +98,7 @@ dcl_osgarg(obj, n)
     o_chr= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_chr, '\0', DFLT_SIZE+1);
 
-    osgarg_(&i_n, o_chr, (ftnlen)DFLT_SIZE);
+    osgarg__(&i_n, o_chr, (ftnlen)DFLT_SIZE);
 
     chr = rb_str_new2(o_chr);
 

data/ext/numru/math1_rfalib.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_rmax(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rmax_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rmax__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -134,7 +133,7 @@ dcl_rmax0(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rmax0_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rmax0__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -173,7 +172,7 @@ dcl_rmax1(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rmax1_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rmax1__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -212,7 +211,7 @@ dcl_rmin(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rmin_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rmin__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -251,7 +250,7 @@ dcl_rmin0(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rmin0_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rmin0__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -290,7 +289,7 @@ dcl_rmin1(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rmin1_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rmin1__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -329,7 +328,7 @@ dcl_rsum(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rsum_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rsum__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -368,7 +367,7 @@ dcl_rsum0(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rsum0_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rsum0__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -407,7 +406,7 @@ dcl_rsum1(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rsum1_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rsum1__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -446,7 +445,7 @@ dcl_rave(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rave_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rave__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -485,7 +484,7 @@ dcl_rave0(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rave0_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rave0__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -524,7 +523,7 @@ dcl_rave1(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rave1_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rave1__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -563,7 +562,7 @@ dcl_rvar(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rvar_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rvar__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -602,7 +601,7 @@ dcl_rvar0(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rvar0_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rvar0__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -641,7 +640,7 @@ dcl_rvar1(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rvar1_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rvar1__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -680,7 +679,7 @@ dcl_rstd(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rstd_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rstd__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -719,7 +718,7 @@ dcl_rstd0(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rstd0_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rstd0__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -758,7 +757,7 @@ dcl_rstd1(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rstd1_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rstd1__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -797,7 +796,7 @@ dcl_rrms(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rrms_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rrms__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -836,7 +835,7 @@ dcl_rrms0(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rrms0_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rrms0__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -875,7 +874,7 @@ dcl_rrms1(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = rrms1_(i_rx, &i_n, &i_jx);
+    o_rtn_val = rrms1__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -914,7 +913,7 @@ dcl_ramp(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = ramp_(i_rx, &i_n, &i_jx);
+    o_rtn_val = ramp__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -953,7 +952,7 @@ dcl_ramp0(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = ramp0_(i_rx, &i_n, &i_jx);
+    o_rtn_val = ramp0__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -992,7 +991,7 @@ dcl_ramp1(obj, rx, n, jx)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = ramp1_(i_rx, &i_n, &i_jx);
+    o_rtn_val = ramp1__(i_rx, &i_n, &i_jx);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -1053,7 +1052,7 @@ dcl_rvmax(obj, rx, ns, np, nq, nd)
     i_nq = dcl_obj2cintegerary(nq);
 
 
-    o_rtn_val = rvmax_(i_rx, i_ns, i_np, i_nq, &i_nd);
+    o_rtn_val = rvmax__(i_rx, i_ns, i_np, i_nq, &i_nd);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -1117,7 +1116,7 @@ dcl_rvmax0(obj, rx, ns, np, nq, nd)
     i_nq = dcl_obj2cintegerary(nq);
 
 
-    o_rtn_val = rvmax0_(i_rx, i_ns, i_np, i_nq, &i_nd);
+    o_rtn_val = rvmax0__(i_rx, i_ns, i_np, i_nq, &i_nd);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -1181,7 +1180,7 @@ dcl_rvmin(obj, rx, ns, np, nq, nd)
     i_nq = dcl_obj2cintegerary(nq);
 
 
-    o_rtn_val = rvmin_(i_rx, i_ns, i_np, i_nq, &i_nd);
+    o_rtn_val = rvmin__(i_rx, i_ns, i_np, i_nq, &i_nd);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -1245,7 +1244,7 @@ dcl_rvmax1(obj, rx, ns, np, nq, nd)
     i_nq = dcl_obj2cintegerary(nq);
 
 
-    o_rtn_val = rvmax1_(i_rx, i_ns, i_np, i_nq, &i_nd);
+    o_rtn_val = rvmax1__(i_rx, i_ns, i_np, i_nq, &i_nd);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -1309,7 +1308,7 @@ dcl_rvmin1(obj, rx, ns, np, nq, nd)
     i_nq = dcl_obj2cintegerary(nq);
 
 
-    o_rtn_val = rvmin1_(i_rx, i_ns, i_np, i_nq, &i_nd);
+    o_rtn_val = rvmin1__(i_rx, i_ns, i_np, i_nq, &i_nd);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -1373,7 +1372,7 @@ dcl_rvmin0(obj, rx, ns, np, nq, nd)
     i_nq = dcl_obj2cintegerary(nq);
 
 
-    o_rtn_val = rvmin0_(i_rx, i_ns, i_np, i_nq, &i_nd);
+    o_rtn_val = rvmin0__(i_rx, i_ns, i_np, i_nq, &i_nd);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 

data/ext/numru/math1_rfblib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -109,7 +108,7 @@ dcl_rprd(obj, rx, ry, n, jx, jy)
     i_ry = dcl_obj2crealary(ry);
 
 
-    o_rtn_val = rprd_(i_rx, i_ry, &i_n, &i_jx, &i_jy);
+    o_rtn_val = rprd__(i_rx, i_ry, &i_n, &i_jx, &i_jy);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -163,7 +162,7 @@ dcl_rcov(obj, rx, ry, n, jx, jy)
     i_ry = dcl_obj2crealary(ry);
 
 
-    o_rtn_val = rcov_(i_rx, i_ry, &i_n, &i_jx, &i_jy);
+    o_rtn_val = rcov__(i_rx, i_ry, &i_n, &i_jx, &i_jy);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 
@@ -217,7 +216,7 @@ dcl_rcor(obj, rx, ry, n, jx, jy)
     i_ry = dcl_obj2crealary(ry);
 
 
-    o_rtn_val = rcor_(i_rx, i_ry, &i_n, &i_jx, &i_jy);
+    o_rtn_val = rcor__(i_rx, i_ry, &i_n, &i_jx, &i_jy);
 
     rtn_val = rb_float_new((double)o_rtn_val);
 

data/ext/numru/math1_sublib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -87,7 +86,7 @@ dcl_vignn(obj, n, jx)
 
     o_ix= ALLOCA_N(integer, i_jx*(i_n-1)+1);
 
-    vignn_(o_ix, &i_n, &i_jx);
+    vignn__(o_ix, &i_n, &i_jx);
 
     {int array_shape[1] = {i_jx*(i_n-1)+1};
      ix = dcl_cintegerary2obj(o_ix, i_jx*(i_n-1)+1, 1, array_shape);
@@ -119,7 +118,7 @@ dcl_vrgnn(obj, n, jx)
 
     o_rx= ALLOCA_N(real, i_jx*(i_n-1)+1);
 
-    vrgnn_(o_rx, &i_n, &i_jx);
+    vrgnn__(o_rx, &i_n, &i_jx);
 
     {int array_shape[1] = {i_jx*(i_n-1)+1};
      rx = dcl_crealary2obj(o_rx, i_jx*(i_n-1)+1, 1, array_shape);
@@ -163,7 +162,7 @@ dcl_dxfloc(obj, nd, ns, np)
     i_np = dcl_obj2cintegerary(np);
 
 
-    dxfloc_(&i_nd, i_ns, i_np, &o_ncp);
+    dxfloc__(&i_nd, i_ns, i_np, &o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -204,7 +203,7 @@ dcl_dxiloc(obj, nd, ns, ncp)
 
     o_np= ALLOCA_N(integer, (i_nd));
 
-    dxiloc_(&i_nd, i_ns, o_np, &i_ncp);
+    dxiloc__(&i_nd, i_ns, o_np, &i_ncp);
 
     {int array_shape[1] = {i_nd};
      np = dcl_cintegerary2obj(o_np, (i_nd), 1, array_shape);