ruby-dcl 1.7.1 → 1.8.2

data/ext/numru/grph2_uspack.c

@@ -1,10 +1,9 @@
 /*
- * $Id: p_header,v 1.3 2015/03/18 03:27:42 horinout Exp $
+ * $Id$
  */
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -15,6 +14,10 @@
 
 #define DFLT_SIZE 32
 
+#ifndef NARRAY_BIGMEM
+typedef int    na_shape_t;
+#endif
+
 extern char    *dcl_obj2ccharary(VALUE, int, int);
 extern integer *dcl_obj2cintegerary(VALUE);
 extern real    *dcl_obj2crealary(VALUE);
@@ -22,10 +25,10 @@ extern complex *dcl_obj2ccomplexary(VALUE);
 extern logical *dcl_obj2clogicalary(VALUE);
 
 extern VALUE dcl_ccharary2obj(char *, int, int);
-extern VALUE dcl_cintegerary2obj(integer *, int, int, int *);
-extern VALUE dcl_crealary2obj(real *, int, int, int *);
-extern VALUE dcl_ccomplexary2obj(complex *, int, char *);
-extern VALUE dcl_clogicalary2obj(logical *, int, int, int *);
+extern VALUE dcl_cintegerary2obj(integer *, na_shape_t, int, na_shape_t *);
+extern VALUE dcl_crealary2obj(real *, na_shape_t, int, na_shape_t *);
+/* extern VALUE dcl_ccomplexary2obj(complex *, int, char *); */
+extern VALUE dcl_clogicalary2obj(logical *, na_shape_t, int, na_shape_t *);
 
 extern void dcl_freeccharary(char *);
 extern void dcl_freecintegerary(integer *);
@@ -93,7 +96,7 @@ dcl_usgrph(obj, n, x, y)
     i_y = dcl_obj2crealary(y);
 
 
-    usgrph_(&i_n, i_x, i_y);
+    usgrph__(&i_n, i_x, i_y);
 
     dcl_freecrealary(i_x);
     dcl_freecrealary(i_y);
@@ -130,7 +133,7 @@ dcl_ussttl(obj, cxttl, cxunit, cyttl, cyunit)
     i_cyunit = StringValuePtr(cyunit);
 
 
-    ussttl_(i_cxttl, i_cxunit, i_cyttl, i_cyunit, (ftnlen)strlen(i_cxttl), (ftnlen)strlen(i_cxunit), (ftnlen)strlen(i_cyttl), (ftnlen)strlen(i_cyunit));
+    ussttl__(i_cxttl, i_cxunit, i_cyttl, i_cyunit, (ftnlen)strlen(i_cxttl), (ftnlen)strlen(i_cxunit), (ftnlen)strlen(i_cyttl), (ftnlen)strlen(i_cyunit));
 
     return Qnil;
 
@@ -167,7 +170,7 @@ dcl_usspnt(obj, n, x, y)
     i_y = dcl_obj2crealary(y);
 
 
-    usspnt_(&i_n, i_x, i_y);
+    usspnt__(&i_n, i_x, i_y);
 
     dcl_freecrealary(i_x);
     dcl_freecrealary(i_y);
@@ -180,7 +183,7 @@ static VALUE
 dcl_uspfit(obj)
     VALUE obj;
 {
-    uspfit_();
+    uspfit__();
 
     return Qnil;
 
@@ -190,7 +193,7 @@ static VALUE
 dcl_usdaxs(obj)
     VALUE obj;
 {
-    usdaxs_();
+    usdaxs__();
 
     return Qnil;
 
@@ -200,7 +203,7 @@ static VALUE
 dcl_usinit(obj)
     VALUE obj;
 {
-    usinit_();
+    usinit__();
 
     return Qnil;
 
@@ -213,7 +216,7 @@ dcl_uspqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uspqnp_(&o_ncp);
+    uspqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -237,7 +240,7 @@ dcl_uspqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uspqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    uspqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -263,7 +266,7 @@ dcl_uspqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uspqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uspqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -289,7 +292,7 @@ dcl_uspqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uspqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uspqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -313,7 +316,7 @@ dcl_uspqit(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uspqit_(&i_idx, &o_itp);
+    uspqit__(&i_idx, &o_itp);
 
     itp = INT2NUM(o_itp);
 
@@ -337,7 +340,7 @@ dcl_uspqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uspqvl_(&i_idx, &o_ipara);
+    uspqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -364,7 +367,7 @@ dcl_uspsvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    uspsvl_(&i_idx, &i_ipara);
+    uspsvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -385,7 +388,7 @@ dcl_uspqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uspqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    uspqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -411,7 +414,7 @@ dcl_uscget(obj, cp)
     o_cpara= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cpara, '\0', DFLT_SIZE+1);
 
-    uscget_(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
+    uscget__(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
 
     cpara = rb_str_new2(o_cpara);
 
@@ -438,7 +441,7 @@ dcl_uscset(obj, cp, cpara)
     i_cpara = StringValuePtr(cpara);
 
 
-    uscset_(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
+    uscset__(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
 
     return Qnil;
 
@@ -462,7 +465,7 @@ dcl_uscstx(obj, cp, cpara)
     i_cpara = StringValuePtr(cpara);
 
 
-    uscstx_(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
+    uscstx__(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
 
     return Qnil;
 
@@ -475,7 +478,7 @@ dcl_uscqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uscqnp_(&o_ncp);
+    uscqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -499,7 +502,7 @@ dcl_uscqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uscqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    uscqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -525,7 +528,7 @@ dcl_uscqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uscqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uscqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -551,7 +554,7 @@ dcl_uscqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uscqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uscqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -577,7 +580,7 @@ dcl_uscqvl(obj, idx)
     o_cval= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cval, '\0', DFLT_SIZE+1);
 
-    uscqvl_(&i_idx, o_cval, (ftnlen)DFLT_SIZE);
+    uscqvl__(&i_idx, o_cval, (ftnlen)DFLT_SIZE);
 
     cval = rb_str_new2(o_cval);
 
@@ -604,7 +607,7 @@ dcl_uscsvl(obj, idx, cval)
     i_cval = StringValuePtr(cval);
 
 
-    uscsvl_(&i_idx, i_cval, (ftnlen)strlen(i_cval));
+    uscsvl__(&i_idx, i_cval, (ftnlen)strlen(i_cval));
 
     return Qnil;
 
@@ -625,7 +628,7 @@ dcl_uscqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uscqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    uscqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -662,7 +665,7 @@ dcl_usurdl(obj, umin, umax, vmin, vmax)
     i_vmax = (real)NUM2DBL(vmax);
 
 
-    usurdl_(&io_umin, &io_umax, &i_vmin, &i_vmax);
+    usurdl__(&io_umin, &io_umax, &i_vmin, &i_vmax);
 
     umin = rb_float_new((double)io_umin);
     umax = rb_float_new((double)io_umax);
@@ -685,7 +688,7 @@ dcl_usxaxs(obj, cside)
     i_cside = StringValuePtr(cside);
 
 
-    usxaxs_(i_cside, (ftnlen)strlen(i_cside));
+    usxaxs__(i_cside, (ftnlen)strlen(i_cside));
 
     return Qnil;
 
@@ -704,7 +707,7 @@ dcl_usyaxs(obj, cside)
     i_cside = StringValuePtr(cside);
 
 
-    usyaxs_(i_cside, (ftnlen)strlen(i_cside));
+    usyaxs__(i_cside, (ftnlen)strlen(i_cside));
 
     return Qnil;
 
@@ -748,7 +751,7 @@ dcl_ususcu(obj, caxis, umin, umax, vmin, vmax, mode)
     i_mode = NUM2INT(mode);
 
 
-    ususcu_(i_caxis, &i_umin, &i_umax, &i_vmin, &i_vmax, &i_mode, (ftnlen)strlen(i_caxis));
+    ususcu__(i_caxis, &i_umin, &i_umax, &i_vmin, &i_vmax, &i_mode, (ftnlen)strlen(i_caxis));
 
     return Qnil;
 
@@ -787,7 +790,7 @@ dcl_ususcl(obj, caxis, umin, umax, vmin, vmax)
     i_vmax = (real)NUM2DBL(vmax);
 
 
-    ususcl_(i_caxis, &i_umin, &i_umax, &i_vmin, &i_vmax, (ftnlen)strlen(i_caxis));
+    ususcl__(i_caxis, &i_umin, &i_umax, &i_vmin, &i_vmax, (ftnlen)strlen(i_caxis));
 
     return Qnil;
 
@@ -806,7 +809,7 @@ dcl_usxaxu(obj, cxs)
     i_cxs = StringValuePtr(cxs);
 
 
-    usxaxu_(i_cxs, (ftnlen)strlen(i_cxs));
+    usxaxu__(i_cxs, (ftnlen)strlen(i_cxs));
 
     return Qnil;
 
@@ -825,7 +828,7 @@ dcl_usxaxl(obj, cxs)
     i_cxs = StringValuePtr(cxs);
 
 
-    usxaxl_(i_cxs, (ftnlen)strlen(i_cxs));
+    usxaxl__(i_cxs, (ftnlen)strlen(i_cxs));
 
     return Qnil;
 
@@ -844,7 +847,7 @@ dcl_usyaxu(obj, cys)
     i_cys = StringValuePtr(cys);
 
 
-    usyaxu_(i_cys, (ftnlen)strlen(i_cys));
+    usyaxu__(i_cys, (ftnlen)strlen(i_cys));
 
     return Qnil;
 
@@ -863,7 +866,7 @@ dcl_usyaxl(obj, cys)
     i_cys = StringValuePtr(cys);
 
 
-    usyaxl_(i_cys, (ftnlen)strlen(i_cys));
+    usyaxl__(i_cys, (ftnlen)strlen(i_cys));
 
     return Qnil;
 
@@ -897,7 +900,7 @@ dcl_usxsub(obj, cxa, cya, clabel, rlbl)
     i_rlbl = (real)NUM2DBL(rlbl);
 
 
-    usxsub_(i_cxa, i_cya, i_clabel, &i_rlbl, (ftnlen)strlen(i_cxa), (ftnlen)strlen(i_cya), (ftnlen)strlen(i_clabel));
+    usxsub__(i_cxa, i_cya, i_clabel, &i_rlbl, (ftnlen)strlen(i_cxa), (ftnlen)strlen(i_cya), (ftnlen)strlen(i_clabel));
 
     return Qnil;
 
@@ -931,7 +934,7 @@ dcl_usysub(obj, cya, cxa, clabel, rlbl)
     i_rlbl = (real)NUM2DBL(rlbl);
 
 
-    usysub_(i_cya, i_cxa, i_clabel, &i_rlbl, (ftnlen)strlen(i_cya), (ftnlen)strlen(i_cxa), (ftnlen)strlen(i_clabel));
+    usysub__(i_cya, i_cxa, i_clabel, &i_rlbl, (ftnlen)strlen(i_cya), (ftnlen)strlen(i_cxa), (ftnlen)strlen(i_clabel));
 
     return Qnil;
 
@@ -964,7 +967,7 @@ dcl_csblbl(obj, ufac, uoff, cunit)
     o_rtn_val= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_rtn_val, '\0', DFLT_SIZE+1);
 
-    csblbl_(o_rtn_val, (ftnlen)DFLT_SIZE, &i_ufac, &i_uoff, i_cunit, (ftnlen)strlen(i_cunit));
+    csblbl__(o_rtn_val, (ftnlen)DFLT_SIZE, &i_ufac, &i_uoff, i_cunit, (ftnlen)strlen(i_cunit));
 
     rtn_val = rb_str_new2(o_rtn_val);
 
@@ -990,7 +993,7 @@ dcl_uschvl(obj, x)
     o_chx= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_chx, '\0', DFLT_SIZE+1);
 
-    uschvl_(&i_x, o_chx, (ftnlen)DFLT_SIZE);
+    uschvl__(&i_x, o_chx, (ftnlen)DFLT_SIZE);
 
     chx = rb_str_new2(o_chx);
 
@@ -1012,7 +1015,7 @@ dcl_usxoff(obj, cxs)
     i_cxs = StringValuePtr(cxs);
 
 
-    usxoff_(i_cxs, (ftnlen)strlen(i_cxs));
+    usxoff__(i_cxs, (ftnlen)strlen(i_cxs));
 
     return Qnil;
 
@@ -1031,7 +1034,7 @@ dcl_usyoff(obj, cys)
     i_cys = StringValuePtr(cys);
 
 
-    usyoff_(i_cys, (ftnlen)strlen(i_cys));
+    usyoff__(i_cys, (ftnlen)strlen(i_cys));
 
     return Qnil;
 
@@ -1079,7 +1082,7 @@ dcl_uszdgt(obj, umin, umax, dul, maxdgt, uoff, ufact)
     io_ufact = (real)NUM2DBL(ufact);
 
 
-    uszdgt_(&i_umin, &i_umax, &i_dul, &i_maxdgt, &io_uoff, &io_ufact, &o_ndgt, &o_ldgt);
+    uszdgt__(&i_umin, &i_umax, &i_dul, &i_maxdgt, &io_uoff, &io_ufact, &o_ndgt, &o_ldgt);
 
     uoff = rb_float_new((double)io_uoff);
     ufact = rb_float_new((double)io_ufact);
@@ -1122,7 +1125,7 @@ dcl_uswapz(obj, x1, x2, n)
     io_x2 = dcl_obj2crealary(x2);
 
 
-    uswapz_(io_x1, io_x2, &i_n);
+    uswapz__(io_x1, io_x2, &i_n);
 
     {int array_shape[1] = {i_n};
      x1 = dcl_crealary2obj(io_x1, (i_n), 1, array_shape);
@@ -1168,7 +1171,7 @@ dcl_usurdt(obj, umin, umax, vmin, vmax)
     i_vmax = (real)NUM2DBL(vmax);
 
 
-    usurdt_(&io_umin, &io_umax, &i_vmin, &i_vmax, &o_dut);
+    usurdt__(&io_umin, &io_umax, &i_vmin, &i_vmax, &o_dut);
 
     umin = rb_float_new((double)io_umin);
     umax = rb_float_new((double)io_umax);
@@ -1207,7 +1210,7 @@ dcl_usaxcl(obj, cside, jd0, ctype, nd)
     i_nd = NUM2INT(nd);
 
 
-    usaxcl_(i_cside, &i_jd0, i_ctype, &i_nd, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_ctype));
+    usaxcl__(i_cside, &i_jd0, i_ctype, &i_nd, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_ctype));
 
     return Qnil;
 
@@ -1236,7 +1239,7 @@ dcl_usaxdv(obj, cside, dtick, dlbl)
     i_dlbl = (real)NUM2DBL(dlbl);
 
 
-    usaxdv_(i_cside, &i_dtick, &i_dlbl, (ftnlen)strlen(i_cside));
+    usaxdv__(i_cside, &i_dtick, &i_dlbl, (ftnlen)strlen(i_cside));
 
     return Qnil;
 
@@ -1296,7 +1299,7 @@ dcl_usaxlb(obj, cside, dtick, n1, dlabel, ch, nc, n2)
     i_ch = dcl_obj2ccharary(ch, (i_n2*DFLT_SIZE), DFLT_SIZE);
 
 
-    usaxlb_(i_cside, i_dtick, &i_n1, i_dlabel, i_ch, &i_nc, &i_n2, (ftnlen)strlen(i_cside), (ftnlen)DFLT_SIZE);
+    usaxlb__(i_cside, i_dtick, &i_n1, i_dlabel, i_ch, &i_nc, &i_n2, (ftnlen)strlen(i_cside), (ftnlen)DFLT_SIZE);
 
     dcl_freecrealary(i_dtick);
     dcl_freecrealary(i_dlabel);
@@ -1329,7 +1332,7 @@ dcl_usaxlg(obj, cside, nlbl, nticks)
     i_nticks = NUM2INT(nticks);
 
 
-    usaxlg_(i_cside, &i_nlbl, &i_nticks, (ftnlen)strlen(i_cside));
+    usaxlg__(i_cside, &i_nlbl, &i_nticks, (ftnlen)strlen(i_cside));
 
     return Qnil;
 
@@ -1376,7 +1379,7 @@ dcl_usaxnm(obj, cside, dtick, n1, dlabel, n2)
     i_dlabel = dcl_obj2crealary(dlabel);
 
 
-    usaxnm_(i_cside, i_dtick, &i_n1, i_dlabel, &i_n2, (ftnlen)strlen(i_cside));
+    usaxnm__(i_cside, i_dtick, &i_n1, i_dlabel, &i_n2, (ftnlen)strlen(i_cside));
 
     dcl_freecrealary(i_dtick);
     dcl_freecrealary(i_dlabel);
@@ -1398,7 +1401,7 @@ dcl_usaxsc(obj, cside)
     i_cside = StringValuePtr(cside);
 
 
-    usaxsc_(i_cside, (ftnlen)strlen(i_cside));
+    usaxsc__(i_cside, (ftnlen)strlen(i_cside));
 
     return Qnil;
 
@@ -1419,7 +1422,7 @@ dcl_usiget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    usiget_(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
+    usiget__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -1446,7 +1449,7 @@ dcl_usiset(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    usiset_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    usiset__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1470,7 +1473,7 @@ dcl_usistx(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    usistx_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    usistx__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1483,7 +1486,7 @@ dcl_usiqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    usiqnp_(&o_ncp);
+    usiqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1507,7 +1510,7 @@ dcl_usiqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    usiqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    usiqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -1533,7 +1536,7 @@ dcl_usiqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    usiqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    usiqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1559,7 +1562,7 @@ dcl_usiqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    usiqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    usiqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1583,7 +1586,7 @@ dcl_usiqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    usiqvl_(&i_idx, &o_ipara);
+    usiqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -1610,7 +1613,7 @@ dcl_usisvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    usisvl_(&i_idx, &i_ipara);
+    usisvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -1631,7 +1634,7 @@ dcl_usiqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    usiqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    usiqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -1655,7 +1658,7 @@ dcl_uslget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uslget_(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
+    uslget__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -1679,7 +1682,7 @@ dcl_uslset(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    uslset_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    uslset__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1700,7 +1703,7 @@ dcl_uslstx(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    uslstx_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    uslstx__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1713,7 +1716,7 @@ dcl_uslqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uslqnp_(&o_ncp);
+    uslqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1737,7 +1740,7 @@ dcl_uslqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uslqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    uslqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -1763,7 +1766,7 @@ dcl_uslqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uslqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uslqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1789,7 +1792,7 @@ dcl_uslqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uslqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uslqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1813,7 +1816,7 @@ dcl_uslqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uslqvl_(&i_idx, &o_lpara);
+    uslqvl__(&i_idx, &o_lpara);
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -1837,7 +1840,7 @@ dcl_uslsvl(obj, idx, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    uslsvl_(&i_idx, &i_lpara);
+    uslsvl__(&i_idx, &i_lpara);
 
     return Qnil;
 
@@ -1858,7 +1861,7 @@ dcl_uslqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uslqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    uslqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -1885,7 +1888,7 @@ dcl_uspaxs(obj, cside, islct)
     i_islct = NUM2INT(islct);
 
 
-    uspaxs_(i_cside, &i_islct, (ftnlen)strlen(i_cside));
+    uspaxs__(i_cside, &i_islct, (ftnlen)strlen(i_cside));
 
     return Qnil;
 
@@ -1936,7 +1939,7 @@ dcl_usplbl(obj, cside, islct, pos, ch, nc, n)
     i_ch = dcl_obj2ccharary(ch, (i_n*DFLT_SIZE), DFLT_SIZE);
 
 
-    usplbl_(i_cside, &i_islct, i_pos, i_ch, &i_nc, &i_n, (ftnlen)strlen(i_cside), (ftnlen)DFLT_SIZE);
+    usplbl__(i_cside, &i_islct, i_pos, i_ch, &i_nc, &i_n, (ftnlen)strlen(i_cside), (ftnlen)DFLT_SIZE);
 
     dcl_freecrealary(i_pos);
     dcl_freeccharary(i_ch);
@@ -1977,7 +1980,7 @@ dcl_uspnum(obj, cside, islct, pos, n)
     i_pos = dcl_obj2crealary(pos);
 
 
-    uspnum_(i_cside, &i_islct, i_pos, &i_n, (ftnlen)strlen(i_cside));
+    uspnum__(i_cside, &i_islct, i_pos, &i_n, (ftnlen)strlen(i_cside));
 
     dcl_freecrealary(i_pos);
 
@@ -2017,7 +2020,7 @@ dcl_usptmk(obj, cside, islct, pos, n)
     i_pos = dcl_obj2crealary(pos);
 
 
-    usptmk_(i_cside, &i_islct, i_pos, &i_n, (ftnlen)strlen(i_cside));
+    usptmk__(i_cside, &i_islct, i_pos, &i_n, (ftnlen)strlen(i_cside));
 
     dcl_freecrealary(i_pos);
 
@@ -2053,7 +2056,7 @@ dcl_uspttl(obj, cside, islct, cttl, pos)
     i_pos = (real)NUM2DBL(pos);
 
 
-    uspttl_(i_cside, &i_islct, i_cttl, &i_pos, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
+    uspttl__(i_cside, &i_islct, i_cttl, &i_pos, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
 
     return Qnil;
 
@@ -2074,7 +2077,7 @@ dcl_usrget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    usrget_(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
+    usrget__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -2101,7 +2104,7 @@ dcl_usrset(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    usrset_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    usrset__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -2125,7 +2128,7 @@ dcl_usrstx(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    usrstx_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    usrstx__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -2138,7 +2141,7 @@ dcl_usrqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    usrqnp_(&o_ncp);
+    usrqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -2162,7 +2165,7 @@ dcl_usrqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    usrqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    usrqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -2188,7 +2191,7 @@ dcl_usrqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    usrqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    usrqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -2214,7 +2217,7 @@ dcl_usrqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    usrqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    usrqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -2238,7 +2241,7 @@ dcl_usrqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    usrqvl_(&i_idx, &o_rpara);
+    usrqvl__(&i_idx, &o_rpara);
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -2265,7 +2268,7 @@ dcl_usrsvl(obj, idx, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    usrsvl_(&i_idx, &i_rpara);
+    usrsvl__(&i_idx, &i_rpara);
 
     return Qnil;
 
@@ -2286,7 +2289,7 @@ dcl_usrqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    usrqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    usrqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -2308,7 +2311,7 @@ dcl_ussaxs(obj, cside)
     i_cside = StringValuePtr(cside);
 
 
-    ussaxs_(i_cside, (ftnlen)strlen(i_cside));
+    ussaxs__(i_cside, (ftnlen)strlen(i_cside));
 
     return Qnil;
 
@@ -2331,7 +2334,7 @@ dcl_usxinz(obj, csa)
     i_csa = StringValuePtr(csa);
 
 
-    usxinz_(i_csa, &o_faca, &o_offa, (ftnlen)strlen(i_csa));
+    usxinz__(i_csa, &o_faca, &o_offa, (ftnlen)strlen(i_csa));
 
     faca = rb_float_new((double)o_faca);
     offa = rb_float_new((double)o_offa);
@@ -2345,7 +2348,7 @@ static VALUE
 dcl_usxtlz(obj)
     VALUE obj;
 {
-    usxtlz_();
+    usxtlz__();
 
     return Qnil;
 
@@ -2368,7 +2371,7 @@ dcl_usyinz(obj, csa)
     i_csa = StringValuePtr(csa);
 
 
-    usyinz_(i_csa, &o_faca, &o_offa, (ftnlen)strlen(i_csa));
+    usyinz__(i_csa, &o_faca, &o_offa, (ftnlen)strlen(i_csa));
 
     faca = rb_float_new((double)o_faca);
     offa = rb_float_new((double)o_offa);
@@ -2382,7 +2385,7 @@ static VALUE
 dcl_usytlz(obj)
     VALUE obj;
 {
-    usytlz_();
+    usytlz__();
 
     return Qnil;