ruby-dcl 1.8.1 → 1.8.2

data/ext/numru/math1_xfclib.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_ifromc(obj, cx)
     i_cx = StringValuePtr(cx);
 
 
-    o_rtn_val = ifromc_(i_cx, (ftnlen)strlen(i_cx));
+    o_rtn_val = ifromc__(i_cx, (ftnlen)strlen(i_cx));
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -105,7 +104,7 @@ dcl_lfromc(obj, cx)
     i_cx = StringValuePtr(cx);
 
 
-    o_rtn_val = lfromc_(i_cx, (ftnlen)strlen(i_cx));
+    o_rtn_val = lfromc__(i_cx, (ftnlen)strlen(i_cx));
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -129,7 +128,7 @@ dcl_rfromc(obj, cx)
     i_cx = StringValuePtr(cx);
 
 
-    o_rtn_val = rfromc_(i_cx, (ftnlen)strlen(i_cx));
+    o_rtn_val = rfromc__(i_cx, (ftnlen)strlen(i_cx));
 
     rtn_val = rb_float_new((double)o_rtn_val);
 

data/ext/numru/math2_fftlib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -97,7 +96,7 @@ dcl_cfftb(obj, n, c, wsave)
     i_wsave = dcl_obj2crealary(wsave);
 
 
-    cfftb_(&i_n, io_c, i_wsave);
+    cfftb__(&i_n, io_c, i_wsave);
 
     {int array_shape[1] = {2*i_n};
      c = dcl_crealary2obj(io_c, (2*i_n), 1, array_shape);
@@ -141,7 +140,7 @@ dcl_cfftf(obj, n, c, wsave)
     i_wsave = dcl_obj2crealary(wsave);
 
 
-    cfftf_(&i_n, io_c, i_wsave);
+    cfftf__(&i_n, io_c, i_wsave);
 
     {int array_shape[1] = {2*i_n};
      c = dcl_crealary2obj(io_c, (2*i_n), 1, array_shape);
@@ -170,7 +169,7 @@ dcl_cffti(obj, n)
 
     o_wsave= ALLOCA_N(real, (4*i_n+15));
 
-    cffti_(&i_n, o_wsave);
+    cffti__(&i_n, o_wsave);
 
     {int array_shape[1] = {4*i_n+15};
      wsave = dcl_crealary2obj(o_wsave, (4*i_n+15), 1, array_shape);
@@ -212,7 +211,7 @@ dcl_cosqb(obj, n, x, wsave)
     i_wsave = dcl_obj2crealary(wsave);
 
 
-    cosqb_(&i_n, io_x, i_wsave);
+    cosqb__(&i_n, io_x, i_wsave);
 
     {int array_shape[1] = {i_n};
      x = dcl_crealary2obj(io_x, (i_n), 1, array_shape);
@@ -256,7 +255,7 @@ dcl_cosqf(obj, n, x, wsave)
     i_wsave = dcl_obj2crealary(wsave);
 
 
-    cosqf_(&i_n, io_x, i_wsave);
+    cosqf__(&i_n, io_x, i_wsave);
 
     {int array_shape[1] = {i_n};
      x = dcl_crealary2obj(io_x, (i_n), 1, array_shape);
@@ -285,7 +284,7 @@ dcl_cosqi(obj, n)
 
     o_wsave= ALLOCA_N(real, (3*i_n+15));
 
-    cosqi_(&i_n, o_wsave);
+    cosqi__(&i_n, o_wsave);
 
     {int array_shape[1] = {3*i_n+15};
      wsave = dcl_crealary2obj(o_wsave, (3*i_n+15), 1, array_shape);
@@ -327,7 +326,7 @@ dcl_cost(obj, n, x, wsave)
     i_wsave = dcl_obj2crealary(wsave);
 
 
-    cost_(&i_n, io_x, i_wsave);
+    cost__(&i_n, io_x, i_wsave);
 
     {int array_shape[1] = {i_n};
      x = dcl_crealary2obj(io_x, (i_n), 1, array_shape);
@@ -356,7 +355,7 @@ dcl_costi(obj, n)
 
     o_wsave= ALLOCA_N(real, (3*i_n+15));
 
-    costi_(&i_n, o_wsave);
+    costi__(&i_n, o_wsave);
 
     {int array_shape[1] = {3*i_n+15};
      wsave = dcl_crealary2obj(o_wsave, (3*i_n+15), 1, array_shape);
@@ -415,7 +414,7 @@ dcl_ezfftb(obj, n, azero, a, b, wsave)
 
     o_r= ALLOCA_N(real, (i_n));
 
-    ezfftb_(&i_n, o_r, &i_azero, i_a, i_b, i_wsave);
+    ezfftb__(&i_n, o_r, &i_azero, i_a, i_b, i_wsave);
 
     {int array_shape[1] = {i_n};
      r = dcl_crealary2obj(o_r, (i_n), 1, array_shape);
@@ -468,7 +467,7 @@ dcl_ezfftf(obj, n, r, wsave)
     o_a= ALLOCA_N(real, (i_n/2));
     o_b= ALLOCA_N(real, (i_n/2));
 
-    ezfftf_(&i_n, i_r, &o_azero, o_a, o_b, i_wsave);
+    ezfftf__(&i_n, i_r, &o_azero, o_a, o_b, i_wsave);
 
     azero = rb_float_new((double)o_azero);
     {int array_shape[1] = {i_n/2};
@@ -501,7 +500,7 @@ dcl_ezffti(obj, n)
 
     o_wsave= ALLOCA_N(real, (3*i_n+15));
 
-    ezffti_(&i_n, o_wsave);
+    ezffti__(&i_n, o_wsave);
 
     {int array_shape[1] = {3*i_n+15};
      wsave = dcl_crealary2obj(o_wsave, (3*i_n+15), 1, array_shape);
@@ -543,7 +542,7 @@ dcl_rfftb(obj, n, r, wsave)
     i_wsave = dcl_obj2crealary(wsave);
 
 
-    rfftb_(&i_n, io_r, i_wsave);
+    rfftb__(&i_n, io_r, i_wsave);
 
     {int array_shape[1] = {i_n};
      r = dcl_crealary2obj(io_r, (i_n), 1, array_shape);
@@ -587,7 +586,7 @@ dcl_rfftf(obj, n, r, wsave)
     i_wsave = dcl_obj2crealary(wsave);
 
 
-    rfftf_(&i_n, io_r, i_wsave);
+    rfftf__(&i_n, io_r, i_wsave);
 
     {int array_shape[1] = {i_n};
      r = dcl_crealary2obj(io_r, (i_n), 1, array_shape);
@@ -616,7 +615,7 @@ dcl_rffti(obj, n)
 
     o_wsave= ALLOCA_N(real, (2*i_n+15));
 
-    rffti_(&i_n, o_wsave);
+    rffti__(&i_n, o_wsave);
 
     {int array_shape[1] = {2*i_n+15};
      wsave = dcl_crealary2obj(o_wsave, (2*i_n+15), 1, array_shape);
@@ -658,7 +657,7 @@ dcl_sinqb(obj, n, x, wsave)
     i_wsave = dcl_obj2crealary(wsave);
 
 
-    sinqb_(&i_n, io_x, i_wsave);
+    sinqb__(&i_n, io_x, i_wsave);
 
     {int array_shape[1] = {i_n};
      x = dcl_crealary2obj(io_x, (i_n), 1, array_shape);
@@ -702,7 +701,7 @@ dcl_sinqf(obj, n, x, wsave)
     i_wsave = dcl_obj2crealary(wsave);
 
 
-    sinqf_(&i_n, io_x, i_wsave);
+    sinqf__(&i_n, io_x, i_wsave);
 
     {int array_shape[1] = {i_n};
      x = dcl_crealary2obj(io_x, (i_n), 1, array_shape);
@@ -731,7 +730,7 @@ dcl_sinqi(obj, n)
 
     o_wsave= ALLOCA_N(real, (3*i_n+15));
 
-    sinqi_(&i_n, o_wsave);
+    sinqi__(&i_n, o_wsave);
 
     {int array_shape[1] = {3*i_n+15};
      wsave = dcl_crealary2obj(o_wsave, (3*i_n+15), 1, array_shape);
@@ -773,7 +772,7 @@ dcl_sint(obj, n, x, wsave)
     i_wsave = dcl_obj2crealary(wsave);
 
 
-    sint_(&i_n, io_x, i_wsave);
+    sint__(&i_n, io_x, i_wsave);
 
     {int array_shape[1] = {i_n};
      x = dcl_crealary2obj(io_x, (i_n), 1, array_shape);
@@ -802,7 +801,7 @@ dcl_sinti(obj, n)
 
     o_wsave= ALLOCA_N(real, (2*i_n+i_n/2+15));
 
-    sinti_(&i_n, o_wsave);
+    sinti__(&i_n, o_wsave);
 
     {int array_shape[1] = {2*i_n+i_n/2+15};
      wsave = dcl_crealary2obj(o_wsave, (2*i_n+i_n/2+15), 1, array_shape);

data/ext/numru/math2_intrlib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -93,7 +92,7 @@ dcl_vrintr(obj, rx, n, jx)
     io_rx = dcl_obj2crealary(rx);
 
 
-    vrintr_(io_rx, &i_n, &i_jx);
+    vrintr__(io_rx, &i_n, &i_jx);
 
     {int array_shape[1] = {i_jx*(i_n-1)+1};
      rx = dcl_crealary2obj(io_rx, i_jx*(i_n-1)+1, 1, array_shape);
@@ -126,7 +125,7 @@ dcl_vcintr(obj, cx, n, jx)
     /* initialization: not implemented for cx (ComplexInputOutputArrayVariable) */
 
 
-    vcintr_(io_cx, &i_n, &i_jx);
+    vcintr__(io_cx, &i_n, &i_jx);
 
     /* getresult: not implemented for cx (ComplexInputOutputArrayVariable) */
 

data/ext/numru/math2_rnmlib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -106,7 +105,7 @@ dcl_vrrnm(obj, rx, n, jx, jy, nb)
 
     o_ry= ALLOCA_N(real, i_jy*(i_n-1)+1);
 
-    vrrnm_(i_rx, o_ry, &i_n, &i_jx, &i_jy, &i_nb);
+    vrrnm__(i_rx, o_ry, &i_n, &i_jx, &i_jy, &i_nb);
 
     {int array_shape[1] = {i_jy*(i_n-1)+1};
      ry = dcl_crealary2obj(o_ry, i_jy*(i_n-1)+1, 1, array_shape);
@@ -158,7 +157,7 @@ dcl_vrrnm0(obj, rx, n, jx, jy, nb)
 
     o_ry= ALLOCA_N(real, i_jy*(i_n-1)+1);
 
-    vrrnm0_(i_rx, o_ry, &i_n, &i_jx, &i_jy, &i_nb);
+    vrrnm0__(i_rx, o_ry, &i_n, &i_jx, &i_jy, &i_nb);
 
     {int array_shape[1] = {i_jy*(i_n-1)+1};
      ry = dcl_crealary2obj(o_ry, i_jy*(i_n-1)+1, 1, array_shape);
@@ -210,7 +209,7 @@ dcl_vrrnm1(obj, rx, n, jx, jy, nb)
 
     o_ry= ALLOCA_N(real, i_jx*(i_n-1)+1);
 
-    vrrnm1_(i_rx, o_ry, &i_n, &i_jx, &i_jy, &i_nb);
+    vrrnm1__(i_rx, o_ry, &i_n, &i_jx, &i_jy, &i_nb);
 
     {int array_shape[1] = {i_jx*(i_n-1)+1};
      ry = dcl_crealary2obj(o_ry, i_jx*(i_n-1)+1, 1, array_shape);

data/ext/numru/math2_shtlib.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_shtlib(obj)
     VALUE obj;
 {
-    shtlib_();
+    shtlib__();
 
     return Qnil;
 
@@ -102,7 +101,7 @@ dcl_shtint(obj, mm, jm, im)
 
     o_work= ALLOCA_N(real, (i_jm+1)*(4*i_jm+5*i_mm+14)+(i_mm+1)*(i_mm+1)+i_mm+2+6*i_im+15);
 
-    shtint_(&i_mm, &i_jm, &i_im, o_work);
+    shtint__(&i_mm, &i_jm, &i_im, o_work);
 
     {int array_shape[1] = {(i_jm+1)*(4*i_jm+5*i_mm+14)+(i_mm+1)*(i_mm+1)+i_mm+2+6*i_im+15};
      work = dcl_crealary2obj(o_work, (i_jm+1)*(4*i_jm+5*i_mm+14)+(i_mm+1)*(i_mm+1)+i_mm+2+6*i_im+15, 1, array_shape);
@@ -143,7 +142,7 @@ dcl_shtlap(obj, mm, ind, a)
 
     o_b= ALLOCA_N(real, (i_mm+1)*(i_mm+1));
 
-    shtlap_(&i_mm, &i_ind, i_a, o_b);
+    shtlap__(&i_mm, &i_ind, i_a, o_b);
 
     {int array_shape[1] = {(i_mm+1)*(i_mm+1)};
      b = dcl_crealary2obj(o_b, (i_mm+1)*(i_mm+1), 1, array_shape);
@@ -182,7 +181,7 @@ dcl_shtnml(obj, mm, n, m)
     i_m = NUM2INT(m);
 
 
-    shtnml_(&i_mm, &i_n, &i_m, &o_lr, &o_li);
+    shtnml__(&i_mm, &i_n, &i_m, &o_lr, &o_li);
 
     lr = INT2NUM(o_lr);
     li = INT2NUM(o_li);
@@ -227,7 +226,7 @@ dcl_shtfun(obj, mm, jm, m, work)
 
     o_fun= ALLOCA_N(real, ((2*i_jm+1)*(i_mm-i_m+1)));
 
-    shtfun_(&i_mm, &i_jm, &i_m, o_fun, i_work);
+    shtfun__(&i_mm, &i_jm, &i_m, o_fun, i_work);
 
     {int array_shape[2] = {(2*i_jm+1), (i_mm-i_m+1)};
      fun = dcl_crealary2obj(o_fun, ((2*i_jm+1)*(i_mm-i_m+1)), 2, array_shape);
@@ -288,7 +287,7 @@ dcl_shtlfw(obj, mm, jm, m, isw, wm, work)
 
     o_sm= ALLOCA_N(real, (i_mm-i_m+1));
 
-    shtlfw_(&i_mm, &i_jm, &i_m, &i_isw, i_wm, o_sm, i_work);
+    shtlfw__(&i_mm, &i_jm, &i_m, &i_isw, i_wm, o_sm, i_work);
 
     {int array_shape[1] = {i_mm-i_m+1};
      sm = dcl_crealary2obj(o_sm, (i_mm-i_m+1), 1, array_shape);
@@ -350,7 +349,7 @@ dcl_shtlbw(obj, mm, jm, m, isw, sm, work)
 
     o_wm= ALLOCA_N(real, (2*i_jm+1));
 
-    shtlbw_(&i_mm, &i_jm, &i_m, &i_isw, i_sm, o_wm, i_work);
+    shtlbw__(&i_mm, &i_jm, &i_m, &i_isw, i_sm, o_wm, i_work);
 
     {int array_shape[1] = {2*i_jm+1};
      wm = dcl_crealary2obj(o_wm, (2*i_jm+1), 1, array_shape);
@@ -407,7 +406,7 @@ dcl_shts2w(obj, mm, jm, isw, s, work)
 
     o_w= ALLOCA_N(real, ((2*i_jm+1)*(2*i_mm+1)));
 
-    shts2w_(&i_mm, &i_jm, &i_isw, i_s, o_w, i_work);
+    shts2w__(&i_mm, &i_jm, &i_isw, i_s, o_w, i_work);
 
     {int array_shape[2] = {(2*i_jm+1), (2*i_mm+1)};
      w = dcl_crealary2obj(o_w, ((2*i_jm+1)*(2*i_mm+1)), 2, array_shape);
@@ -474,7 +473,7 @@ dcl_shtswa(obj, mm, jm, isw, m1, m2, s, work)
 
     o_w= ALLOCA_N(real, ((2*i_jm+1)*(2*i_mm+1)));
 
-    shtswa_(&i_mm, &i_jm, &i_isw, &i_m1, &i_m2, i_s, o_w, i_work);
+    shtswa__(&i_mm, &i_jm, &i_isw, &i_m1, &i_m2, i_s, o_w, i_work);
 
     {int array_shape[2] = {(2*i_jm+1), (2*i_mm+1)};
      w = dcl_crealary2obj(o_w, ((2*i_jm+1)*(2*i_mm+1)), 2, array_shape);
@@ -531,7 +530,7 @@ dcl_shtswz(obj, mm, jm, isw, s, work)
 
     o_wz= ALLOCA_N(real, (2*i_jm+1));
 
-    shtswz_(&i_mm, &i_jm, &i_isw, i_s, o_wz, i_work);
+    shtswz__(&i_mm, &i_jm, &i_isw, i_s, o_wz, i_work);
 
     {int array_shape[1] = {2*i_jm+1};
      wz = dcl_crealary2obj(o_wz, (2*i_jm+1), 1, array_shape);
@@ -596,7 +595,7 @@ dcl_shtswm(obj, mm, jm, m, isw, s, work)
     o_wr= ALLOCA_N(real, (2*i_jm+1));
     o_wi= ALLOCA_N(real, (2*i_jm+1));
 
-    shtswm_(&i_mm, &i_jm, &i_m, &i_isw, i_s, o_wr, o_wi, i_work);
+    shtswm__(&i_mm, &i_jm, &i_m, &i_isw, i_s, o_wr, o_wi, i_work);
 
     {int array_shape[1] = {2*i_jm+1};
      wr = dcl_crealary2obj(o_wr, (2*i_jm+1), 1, array_shape);
@@ -671,7 +670,7 @@ dcl_shtswj(obj, mm, jm, isw, j, m1, m2, s, work)
 
     o_wj= ALLOCA_N(real, (2*i_mm+1));
 
-    shtswj_(&i_mm, &i_jm, &i_isw, &i_j, &i_m1, &i_m2, i_s, o_wj, i_work);
+    shtswj__(&i_mm, &i_jm, &i_isw, &i_j, &i_m1, &i_m2, i_s, o_wj, i_work);
 
     {int array_shape[1] = {2*i_mm+1};
      wj = dcl_crealary2obj(o_wj, (2*i_mm+1), 1, array_shape);
@@ -728,7 +727,7 @@ dcl_shtw2s(obj, mm, jm, isw, s, work)
 
     o_w= ALLOCA_N(real, ((i_mm+1)*(i_mm+1)));
 
-    shtw2s_(&i_mm, &i_jm, &i_isw, i_s, o_w, i_work);
+    shtw2s__(&i_mm, &i_jm, &i_isw, i_s, o_w, i_work);
 
     {int array_shape[2] = {(i_mm+1), (i_mm+1)};
      w = dcl_crealary2obj(o_w, ((i_mm+1)*(i_mm+1)), 2, array_shape);
@@ -785,7 +784,7 @@ dcl_shtw2g(obj, mm, jm, im, w, work)
 
     o_g= ALLOCA_N(real, ((2*i_im+1)*(2*i_jm+1)));
 
-    shtw2g_(&i_mm, &i_jm, &i_im, i_w, o_g, i_work);
+    shtw2g__(&i_mm, &i_jm, &i_im, i_w, o_g, i_work);
 
     {int array_shape[2] = {(2*i_im+1), (2*i_jm+1)};
      g = dcl_crealary2obj(o_g, ((2*i_im+1)*(2*i_jm+1)), 2, array_shape);
@@ -852,7 +851,7 @@ dcl_shtwga(obj, mm, jm, im, m1, m2, w, work)
 
     o_g= ALLOCA_N(real, ((2*i_im+1)*(2*i_jm+1)));
 
-    shtwga_(&i_mm, &i_jm, &i_im, &i_m1, &i_m2, i_w, o_g, i_work);
+    shtwga__(&i_mm, &i_jm, &i_im, &i_m1, &i_m2, i_w, o_g, i_work);
 
     {int array_shape[2] = {(2*i_im+1), (2*i_jm+1)};
      g = dcl_crealary2obj(o_g, ((2*i_im+1)*(2*i_jm+1)), 2, array_shape);
@@ -923,7 +922,7 @@ dcl_shtwgm(obj, mm, jm, im, m, wr, wi, work)
 
     o_g= ALLOCA_N(real, ((2*i_im+1)*(2*i_jm+1)));
 
-    shtwgm_(&i_mm, &i_jm, &i_im, &i_m, i_wr, i_wi, o_g, i_work);
+    shtwgm__(&i_mm, &i_jm, &i_im, &i_m, i_wr, i_wi, o_g, i_work);
 
     {int array_shape[2] = {(2*i_im+1), (2*i_jm+1)};
      g = dcl_crealary2obj(o_g, ((2*i_im+1)*(2*i_jm+1)), 2, array_shape);
@@ -967,7 +966,7 @@ dcl_shtwgz(obj, jm, im, wz)
 
     o_g= ALLOCA_N(real, ((2*i_im+1)*(2*i_jm+1)));
 
-    shtwgz_(&i_jm, &i_im, i_wz, o_g);
+    shtwgz__(&i_jm, &i_im, i_wz, o_g);
 
     {int array_shape[2] = {(2*i_im+1), (2*i_jm+1)};
      g = dcl_crealary2obj(o_g, ((2*i_im+1)*(2*i_jm+1)), 2, array_shape);
@@ -1028,7 +1027,7 @@ dcl_shtwgj(obj, mm, im, m1, m2, wj, work)
 
     o_gj= ALLOCA_N(real, (2*i_im+1));
 
-    shtwgj_(&i_mm, &i_im, &i_m1, &i_m2, i_wj, o_gj, i_work);
+    shtwgj__(&i_mm, &i_im, &i_m1, &i_m2, i_wj, o_gj, i_work);
 
     {int array_shape[1] = {2*i_im+1};
      gj = dcl_crealary2obj(o_gj, (2*i_im+1), 1, array_shape);
@@ -1085,7 +1084,7 @@ dcl_shtg2w(obj, mm, jm, im, g, work)
 
     o_w= ALLOCA_N(real, ((2*i_jm+1)*(2*i_mm+1)));
 
-    shtg2w_(&i_mm, &i_jm, &i_im, i_g, o_w, i_work);
+    shtg2w__(&i_mm, &i_jm, &i_im, i_g, o_w, i_work);
 
     {int array_shape[2] = {(2*i_jm+1), (2*i_mm+1)};
      w = dcl_crealary2obj(o_w, ((2*i_jm+1)*(2*i_mm+1)), 2, array_shape);
@@ -1150,7 +1149,7 @@ dcl_shts2g(obj, mm, jm, im, isw, s, work)
     o_w= ALLOCA_N(real, ((2*i_jm+1)*(2*i_mm+1)));
     o_g= ALLOCA_N(real, ((2*i_im+1)*(2*i_jm+1)));
 
-    shts2g_(&i_mm, &i_jm, &i_im, &i_isw, i_s, o_w, o_g, i_work);
+    shts2g__(&i_mm, &i_jm, &i_im, &i_isw, i_s, o_w, o_g, i_work);
 
     {int array_shape[2] = {(2*i_jm+1), (2*i_mm+1)};
      w = dcl_crealary2obj(o_w, ((2*i_jm+1)*(2*i_mm+1)), 2, array_shape);
@@ -1228,7 +1227,7 @@ dcl_shtsga(obj, mm, jm, im, isw, m1, m2, s, work)
     o_w= ALLOCA_N(real, ((2*i_jm+1)*(2*i_mm+1)));
     o_g= ALLOCA_N(real, ((2*i_im+1)*(2*i_jm+1)));
 
-    shtsga_(&i_mm, &i_jm, &i_im, &i_isw, &i_m1, &i_m2, i_s, o_w, o_g, i_work);
+    shtsga__(&i_mm, &i_jm, &i_im, &i_isw, &i_m1, &i_m2, i_s, o_w, o_g, i_work);
 
     {int array_shape[2] = {(2*i_jm+1), (2*i_mm+1)};
      w = dcl_crealary2obj(o_w, ((2*i_jm+1)*(2*i_mm+1)), 2, array_shape);
@@ -1296,7 +1295,7 @@ dcl_shtsgz(obj, mm, jm, im, isw, s, work)
     o_wz= ALLOCA_N(real, (2*i_jm+1));
     o_g= ALLOCA_N(real, ((2*i_im+1)*(2*i_jm+1)));
 
-    shtsgz_(&i_mm, &i_jm, &i_im, &i_isw, i_s, o_wz, o_g, i_work);
+    shtsgz__(&i_mm, &i_jm, &i_im, &i_isw, i_s, o_wz, o_g, i_work);
 
     {int array_shape[1] = {2*i_jm+1};
      wz = dcl_crealary2obj(o_wz, (2*i_jm+1), 1, array_shape);
@@ -1372,7 +1371,7 @@ dcl_shtsgm(obj, mm, jm, im, m, isw, s, work)
     o_wi= ALLOCA_N(real, (2*i_jm+1));
     o_g= ALLOCA_N(real, ((2*i_im+1)*(2*i_jm+1)));
 
-    shtsgm_(&i_mm, &i_jm, &i_im, &i_m, &i_isw, i_s, o_wr, o_wi, o_g, i_work);
+    shtsgm__(&i_mm, &i_jm, &i_im, &i_m, &i_isw, i_s, o_wr, o_wi, o_g, i_work);
 
     {int array_shape[1] = {2*i_jm+1};
      wr = dcl_crealary2obj(o_wr, (2*i_jm+1), 1, array_shape);
@@ -1458,7 +1457,7 @@ dcl_shtsgj(obj, mm, jm, im, isw, j, m1, m2, s, work)
     o_wj= ALLOCA_N(real, (2*i_mm+1));
     o_gj= ALLOCA_N(real, (2*i_im+1));
 
-    shtsgj_(&i_mm, &i_jm, &i_im, &i_isw, &i_j, &i_m1, &i_m2, i_s, o_wj, o_gj, i_work);
+    shtsgj__(&i_mm, &i_jm, &i_im, &i_isw, &i_j, &i_m1, &i_m2, i_s, o_wj, o_gj, i_work);
 
     {int array_shape[1] = {2*i_mm+1};
      wj = dcl_crealary2obj(o_wj, (2*i_mm+1), 1, array_shape);
@@ -1526,7 +1525,7 @@ dcl_shtg2s(obj, mm, jm, im, isw, g, work)
     o_w= ALLOCA_N(real, ((2*i_jm+1)*(2*i_mm+1)));
     o_s= ALLOCA_N(real, (i_mm+1)*(i_mm+1));
 
-    shtg2s_(&i_mm, &i_jm, &i_im, &i_isw, i_g, o_w, o_s, i_work);
+    shtg2s__(&i_mm, &i_jm, &i_im, &i_isw, i_g, o_w, o_s, i_work);
 
     {int array_shape[2] = {(2*i_jm+1), (2*i_mm+1)};
      w = dcl_crealary2obj(o_w, ((2*i_jm+1)*(2*i_mm+1)), 2, array_shape);

data/ext/numru/math2_vstlib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -85,7 +84,7 @@ dcl_vs1int(obj, ix)
     o_wz= ALLOCA_N(real, (i_ix*2));
     o_nw= ALLOCA_N(integer, (i_ix));
 
-    vs1int_(o_wz, o_nw, &i_ix);
+    vs1int__(o_wz, o_nw, &i_ix);
 
     {int array_shape[2] = {i_ix, 2};
      wz = dcl_crealary2obj(o_wz, (i_ix*2), 2, array_shape);
@@ -139,7 +138,7 @@ dcl_vs1din(obj, wz, nw, ix, x)
     i_x = dcl_obj2crealary(x);
 
 
-    vs1din_(io_wz, io_nw, &i_ix, i_x);
+    vs1din__(io_wz, io_nw, &i_ix, i_x);
 
     {int array_shape[2] = {i_ix, 2};
      wz = dcl_crealary2obj(io_wz, (i_ix*2), 2, array_shape);
@@ -187,7 +186,7 @@ dcl_vs1out(obj, wz, nw, ix)
     i_nw = dcl_obj2cintegerary(nw);
 
 
-    vs1out_(io_wz, i_nw, &i_ix);
+    vs1out__(io_wz, i_nw, &i_ix);
 
     {int array_shape[2] = {i_ix, 2};
      wz = dcl_crealary2obj(io_wz, (i_ix*2), 2, array_shape);
@@ -224,7 +223,7 @@ dcl_vs2int(obj, ix, iy)
     o_wz= ALLOCA_N(real, (i_ix*i_iy*5));
     o_nw= ALLOCA_N(integer, (i_ix*i_iy));
 
-    vs2int_(o_wz, o_nw, &i_ix, &i_iy);
+    vs2int__(o_wz, o_nw, &i_ix, &i_iy);
 
     {int array_shape[3] = {i_ix, i_iy, 5};
      wz = dcl_crealary2obj(o_wz, (i_ix*i_iy*5), 3, array_shape);
@@ -292,7 +291,7 @@ dcl_vs2din(obj, wz, nw, ix, iy, x, y)
     i_y = dcl_obj2crealary(y);
 
 
-    vs2din_(io_wz, io_nw, &i_ix, &i_iy, i_x, i_y);
+    vs2din__(io_wz, io_nw, &i_ix, &i_iy, i_x, i_y);
 
     {int array_shape[3] = {i_ix, i_iy, 5};
      wz = dcl_crealary2obj(io_wz, (i_ix*i_iy*5), 3, array_shape);
@@ -346,7 +345,7 @@ dcl_vs2out(obj, wz, nw, ix, iy)
     i_nw = dcl_obj2cintegerary(nw);
 
 
-    vs2out_(io_wz, i_nw, &i_ix, &i_iy);
+    vs2out__(io_wz, i_nw, &i_ix, &i_iy);
 
     {int array_shape[3] = {i_ix, i_iy, 5};
      wz = dcl_crealary2obj(io_wz, (i_ix*i_iy*5), 3, array_shape);

data/ext/numru/misc1_chnlib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -90,7 +89,7 @@ dcl_chngc(obj, ch, ca, cb)
     i_cb = StringValuePtr(cb);
 
 
-    chngc_(io_ch, i_ca, i_cb, (ftnlen)strlen(io_ch), (ftnlen)strlen(i_ca), (ftnlen)strlen(i_cb));
+    chngc__(io_ch, i_ca, i_cb, (ftnlen)strlen(io_ch), (ftnlen)strlen(i_ca), (ftnlen)strlen(i_cb));
 
     ch = rb_str_new2(io_ch);
 
@@ -128,7 +127,7 @@ dcl_chngi(obj, ch, ca, ii, cfmt)
     i_cfmt = StringValuePtr(cfmt);
 
 
-    chngi_(io_ch, i_ca, &i_ii, i_cfmt, (ftnlen)strlen(io_ch), (ftnlen)strlen(i_ca), (ftnlen)strlen(i_cfmt));
+    chngi__(io_ch, i_ca, &i_ii, i_cfmt, (ftnlen)strlen(io_ch), (ftnlen)strlen(i_ca), (ftnlen)strlen(i_cfmt));
 
     ch = rb_str_new2(io_ch);
 
@@ -166,7 +165,7 @@ dcl_chngr(obj, ch, ca, rr, cfmt)
     i_cfmt = StringValuePtr(cfmt);
 
 
-    chngr_(io_ch, i_ca, &i_rr, i_cfmt, (ftnlen)strlen(io_ch), (ftnlen)strlen(i_ca), (ftnlen)strlen(i_cfmt));
+    chngr__(io_ch, i_ca, &i_rr, i_cfmt, (ftnlen)strlen(io_ch), (ftnlen)strlen(i_ca), (ftnlen)strlen(i_cfmt));
 
     ch = rb_str_new2(io_ch);