ruby-dcl 1.8.1 → 1.8.2

data/ext/numru/grph2_uzpack.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_uzpqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uzpqnp_(&o_ncp);
+    uzpqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -97,7 +96,7 @@ dcl_uzpqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uzpqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    uzpqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -123,7 +122,7 @@ dcl_uzpqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uzpqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uzpqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -149,7 +148,7 @@ dcl_uzpqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uzpqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uzpqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -173,7 +172,7 @@ dcl_uzpqit(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uzpqit_(&i_idx, &o_itp);
+    uzpqit__(&i_idx, &o_itp);
 
     itp = INT2NUM(o_itp);
 
@@ -197,7 +196,7 @@ dcl_uzpqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uzpqvl_(&i_idx, &o_ipara);
+    uzpqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -224,7 +223,7 @@ dcl_uzpsvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    uzpsvl_(&i_idx, &i_ipara);
+    uzpsvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -245,7 +244,7 @@ dcl_uzpqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uzpqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    uzpqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -258,7 +257,7 @@ static VALUE
 dcl_uzinit(obj)
     VALUE obj;
 {
-    uzinit_();
+    uzinit__();
 
     return Qnil;
 
@@ -277,7 +276,7 @@ dcl_uzfact(obj, rfact)
     i_rfact = (real)NUM2DBL(rfact);
 
 
-    uzfact_(&i_rfact);
+    uzfact__(&i_rfact);
 
     return Qnil;
 
@@ -300,7 +299,7 @@ dcl_uzcget(obj, cp)
     o_cpara= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cpara, '\0', DFLT_SIZE+1);
 
-    uzcget_(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
+    uzcget__(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
 
     cpara = rb_str_new2(o_cpara);
 
@@ -327,7 +326,7 @@ dcl_uzcset(obj, cp, cpara)
     i_cpara = StringValuePtr(cpara);
 
 
-    uzcset_(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
+    uzcset__(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
 
     return Qnil;
 
@@ -351,7 +350,7 @@ dcl_uzcstx(obj, cp, cpara)
     i_cpara = StringValuePtr(cpara);
 
 
-    uzcstx_(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
+    uzcstx__(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
 
     return Qnil;
 
@@ -364,7 +363,7 @@ dcl_uzcqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uzcqnp_(&o_ncp);
+    uzcqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -388,7 +387,7 @@ dcl_uzcqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uzcqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    uzcqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -414,7 +413,7 @@ dcl_uzcqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uzcqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uzcqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -440,7 +439,7 @@ dcl_uzcqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uzcqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uzcqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -466,7 +465,7 @@ dcl_uzcqvl(obj, idx)
     o_cval= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cval, '\0', DFLT_SIZE+1);
 
-    uzcqvl_(&i_idx, o_cval, (ftnlen)DFLT_SIZE);
+    uzcqvl__(&i_idx, o_cval, (ftnlen)DFLT_SIZE);
 
     cval = rb_str_new2(o_cval);
 
@@ -493,7 +492,7 @@ dcl_uzcsvl(obj, idx, cval)
     i_cval = StringValuePtr(cval);
 
 
-    uzcsvl_(&i_idx, i_cval, (ftnlen)strlen(i_cval));
+    uzcsvl__(&i_idx, i_cval, (ftnlen)strlen(i_cval));
 
     return Qnil;
 
@@ -514,7 +513,7 @@ dcl_uzcqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uzcqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    uzcqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -536,7 +535,7 @@ dcl_uzcsav(obj, iu)
     i_iu = NUM2INT(iu);
 
 
-    uzcsav_(&i_iu);
+    uzcsav__(&i_iu);
 
     return Qnil;
 
@@ -555,7 +554,7 @@ dcl_uzcrst(obj, iu)
     i_iu = NUM2INT(iu);
 
 
-    uzcrst_(&i_iu);
+    uzcrst__(&i_iu);
 
     return Qnil;
 
@@ -576,7 +575,7 @@ dcl_uziget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uziget_(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
+    uziget__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -603,7 +602,7 @@ dcl_uziset(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    uziset_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    uziset__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -627,7 +626,7 @@ dcl_uzistx(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    uzistx_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    uzistx__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -640,7 +639,7 @@ dcl_uziqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uziqnp_(&o_ncp);
+    uziqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -664,7 +663,7 @@ dcl_uziqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uziqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    uziqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -690,7 +689,7 @@ dcl_uziqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uziqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uziqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -716,7 +715,7 @@ dcl_uziqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uziqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uziqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -740,7 +739,7 @@ dcl_uziqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uziqvl_(&i_idx, &o_ipara);
+    uziqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -767,7 +766,7 @@ dcl_uzisvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    uzisvl_(&i_idx, &i_ipara);
+    uzisvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -788,7 +787,7 @@ dcl_uziqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uziqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    uziqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -810,7 +809,7 @@ dcl_uzisav(obj, iu)
     i_iu = NUM2INT(iu);
 
 
-    uzisav_(&i_iu);
+    uzisav__(&i_iu);
 
     return Qnil;
 
@@ -829,7 +828,7 @@ dcl_uzirst(obj, iu)
     i_iu = NUM2INT(iu);
 
 
-    uzirst_(&i_iu);
+    uzirst__(&i_iu);
 
     return Qnil;
 
@@ -850,7 +849,7 @@ dcl_uzlget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uzlget_(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
+    uzlget__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -874,7 +873,7 @@ dcl_uzlset(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    uzlset_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    uzlset__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -895,7 +894,7 @@ dcl_uzlstx(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    uzlstx_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    uzlstx__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -908,7 +907,7 @@ dcl_uzlqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uzlqnp_(&o_ncp);
+    uzlqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -932,7 +931,7 @@ dcl_uzlqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uzlqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    uzlqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -958,7 +957,7 @@ dcl_uzlqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uzlqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uzlqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -984,7 +983,7 @@ dcl_uzlqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uzlqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uzlqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1008,7 +1007,7 @@ dcl_uzlqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uzlqvl_(&i_idx, &o_lpara);
+    uzlqvl__(&i_idx, &o_lpara);
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -1032,7 +1031,7 @@ dcl_uzlsvl(obj, idx, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    uzlsvl_(&i_idx, &i_lpara);
+    uzlsvl__(&i_idx, &i_lpara);
 
     return Qnil;
 
@@ -1053,7 +1052,7 @@ dcl_uzlqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uzlqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    uzlqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -1075,7 +1074,7 @@ dcl_uzlsav(obj, iu)
     i_iu = NUM2INT(iu);
 
 
-    uzlsav_(&i_iu);
+    uzlsav__(&i_iu);
 
     return Qnil;
 
@@ -1094,7 +1093,7 @@ dcl_uzlrst(obj, iu)
     i_iu = NUM2INT(iu);
 
 
-    uzlrst_(&i_iu);
+    uzlrst__(&i_iu);
 
     return Qnil;
 
@@ -1115,7 +1114,7 @@ dcl_uzrget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uzrget_(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
+    uzrget__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -1142,7 +1141,7 @@ dcl_uzrset(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    uzrset_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    uzrset__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1166,7 +1165,7 @@ dcl_uzrstx(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    uzrstx_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    uzrstx__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1179,7 +1178,7 @@ dcl_uzrqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uzrqnp_(&o_ncp);
+    uzrqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1203,7 +1202,7 @@ dcl_uzrqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uzrqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    uzrqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -1229,7 +1228,7 @@ dcl_uzrqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uzrqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uzrqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1255,7 +1254,7 @@ dcl_uzrqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uzrqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uzrqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1279,7 +1278,7 @@ dcl_uzrqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uzrqvl_(&i_idx, &o_rpara);
+    uzrqvl__(&i_idx, &o_rpara);
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -1306,7 +1305,7 @@ dcl_uzrsvl(obj, idx, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    uzrsvl_(&i_idx, &i_rpara);
+    uzrsvl__(&i_idx, &i_rpara);
 
     return Qnil;
 
@@ -1327,7 +1326,7 @@ dcl_uzrqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uzrqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    uzrqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -1349,7 +1348,7 @@ dcl_uzrsav(obj, iu)
     i_iu = NUM2INT(iu);
 
 
-    uzrsav_(&i_iu);
+    uzrsav__(&i_iu);
 
     return Qnil;
 
@@ -1368,7 +1367,7 @@ dcl_uzrrst(obj, iu)
     i_iu = NUM2INT(iu);
 
 
-    uzrrst_(&i_iu);
+    uzrrst__(&i_iu);
 
     return Qnil;
 
@@ -1378,7 +1377,7 @@ static VALUE
 dcl_uzpsav(obj)
     VALUE obj;
 {
-    uzpsav_();
+    uzpsav__();
 
     return Qnil;
 
@@ -1388,7 +1387,7 @@ static VALUE
 dcl_uzprst(obj)
     VALUE obj;
 {
-    uzprst_();
+    uzprst__();
 
     return Qnil;
 

data/ext/numru/init.c.default

@@ -1,6 +1,6 @@
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
+#include "cdcl.h"
 #include "narray.h"
 
 /* for compatibility with ruby 1.6 */
@@ -73,7 +73,7 @@ void init_misc1_fmtlib(VALUE mDCL);
 void init_misc1_misclib(VALUE mDCL);
 void init_misc1_randlib(VALUE mDCL);
 void init_misc1_timelib(VALUE mDCL);
-
+void init_misc2_tmpack(VALUE mDCL);
 
 static int ruby_msgdmp_err_func(char *csub, char *cmsg, 
 			      int csub_len, int cmsg_len)
@@ -187,6 +187,9 @@ Init_dcl_raw()
     init_misc1_misclib(mDCL);
     init_misc1_randlib(mDCL);
     init_misc1_timelib(mDCL);
+#if DCLVER >= 730
+    init_misc2_tmpack(mDCL);
+#endif
 #if DCLVER >= 532
     rb_define_module_function(mDCL, "init_arg", dcl_init_arg, 2);
 #endif

data/ext/numru/math1_blklib.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_iblklt(obj, rx, n, rr)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = iblklt_(i_rx, &i_n, &i_rr);
+    o_rtn_val = iblklt__(i_rx, &i_n, &i_rr);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -134,7 +133,7 @@ dcl_iblkle(obj, rx, n, rr)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = iblkle_(i_rx, &i_n, &i_rr);
+    o_rtn_val = iblkle__(i_rx, &i_n, &i_rr);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -173,7 +172,7 @@ dcl_iblkgt(obj, rx, n, rr)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = iblkgt_(i_rx, &i_n, &i_rr);
+    o_rtn_val = iblkgt__(i_rx, &i_n, &i_rr);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -212,7 +211,7 @@ dcl_iblkge(obj, rx, n, rr)
     i_rx = dcl_obj2crealary(rx);
 
 
-    o_rtn_val = iblkge_(i_rx, &i_n, &i_rr);
+    o_rtn_val = iblkge__(i_rx, &i_n, &i_rr);
 
     rtn_val = INT2NUM(o_rtn_val);
 

data/ext/numru/math1_chrlib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -80,7 +79,7 @@ dcl_cladj(obj, chr)
     strcpy(io_chr, StringValuePtr(chr));
 
 
-    cladj_(io_chr, (ftnlen)strlen(io_chr));
+    cladj__(io_chr, (ftnlen)strlen(io_chr));
 
     chr = rb_str_new2(io_chr);
 
@@ -104,7 +103,7 @@ dcl_lenb(obj, c)
     i_c = StringValuePtr(c);
 
 
-    o_rtn_val = lenb_(i_c, (ftnlen)strlen(i_c));
+    o_rtn_val = lenb__(i_c, (ftnlen)strlen(i_c));
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -128,7 +127,7 @@ dcl_lenc(obj, c)
     i_c = StringValuePtr(c);
 
 
-    o_rtn_val = lenc_(i_c, (ftnlen)strlen(i_c));
+    o_rtn_val = lenc__(i_c, (ftnlen)strlen(i_c));
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -152,7 +151,7 @@ dcl_leny(obj, c)
     i_c = StringValuePtr(c);
 
 
-    o_rtn_val = leny_(i_c, (ftnlen)strlen(i_c));
+    o_rtn_val = leny__(i_c, (ftnlen)strlen(i_c));
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -176,7 +175,7 @@ dcl_lenz(obj, c)
     i_c = StringValuePtr(c);
 
 
-    o_rtn_val = lenz_(i_c, (ftnlen)strlen(i_c));
+    o_rtn_val = lenz__(i_c, (ftnlen)strlen(i_c));
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -199,7 +198,7 @@ dcl_cradj(obj, chr)
     strcpy(io_chr, StringValuePtr(chr));
 
 
-    cradj_(io_chr, (ftnlen)strlen(io_chr));
+    cradj__(io_chr, (ftnlen)strlen(io_chr));
 
     chr = rb_str_new2(io_chr);
 
@@ -222,7 +221,7 @@ dcl_crvrs(obj, chr)
     strcpy(io_chr, StringValuePtr(chr));
 
 
-    crvrs_(io_chr, (ftnlen)strlen(io_chr));
+    crvrs__(io_chr, (ftnlen)strlen(io_chr));
 
     chr = rb_str_new2(io_chr);
 

data/ext/numru/math1_clsplib.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -122,7 +121,7 @@ dcl_clrgsv(obj, r, g, b, n, m)
     o_s= ALLOCA_N(real, (i_n*i_m));
     o_v= ALLOCA_N(real, (i_n*i_m));
 
-    clrgsv_(i_r, i_g, i_b, o_h, o_s, o_v, &i_n, &i_m);
+    clrgsv__(i_r, i_g, i_b, o_h, o_s, o_v, &i_n, &i_m);
 
     {int array_shape[2] = {i_n, i_m};
      h = dcl_crealary2obj(o_h, (i_n*i_m), 2, array_shape);
@@ -196,7 +195,7 @@ dcl_clsvrg(obj, h, s, v, n, m)
     o_g= ALLOCA_N(integer, (i_n*i_m));
     o_b= ALLOCA_N(integer, (i_n*i_m));
 
-    clsvrg_(i_h, i_s, i_v, o_r, o_g, o_b, &i_n, &i_m);
+    clsvrg__(i_h, i_s, i_v, o_r, o_g, o_b, &i_n, &i_m);
 
     {int array_shape[2] = {i_n, i_m};
      r = dcl_cintegerary2obj(o_r, (i_n*i_m), 2, array_shape);
@@ -256,7 +255,7 @@ dcl_inorml(obj, v, n, m, x, y)
 
     o_w= ALLOCA_N(real, (i_n*i_m));
 
-    inorml_(i_v, o_w, &i_n, &i_m, &i_x, &i_y);
+    inorml__(i_v, o_w, &i_n, &i_m, &i_x, &i_y);
 
     {int array_shape[2] = {i_n, i_m};
      w = dcl_crealary2obj(o_w, (i_n*i_m), 2, array_shape);
@@ -308,7 +307,7 @@ dcl_rnorml(obj, v, n, m, x, y)
 
     o_w= ALLOCA_N(real, (i_n*i_m));
 
-    rnorml_(i_v, o_w, &i_n, &i_m, &i_x, &i_y);
+    rnorml__(i_v, o_w, &i_n, &i_m, &i_x, &i_y);
 
     {int array_shape[2] = {i_n, i_m};
      w = dcl_crealary2obj(o_w, (i_n*i_m), 2, array_shape);