ruby-dcl 1.8.1 → 1.8.2

data/ext/numru/math1_syslib.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_lchreq(obj, ch1, ch2)
     i_ch2 = StringValuePtr(ch2);
 
 
-    o_rtn_val = lchreq_(i_ch1, i_ch2, (ftnlen)strlen(i_ch1), (ftnlen)strlen(i_ch2));
+    o_rtn_val = lchreq__(i_ch1, i_ch2, (ftnlen)strlen(i_ch1), (ftnlen)strlen(i_ch2));
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -118,7 +117,7 @@ dcl_msgdmp(obj, clev, csub, cmsg)
     i_cmsg = StringValuePtr(cmsg);
 
 
-    msgdmp_(i_clev, i_csub, i_cmsg, (ftnlen)strlen(i_clev), (ftnlen)strlen(i_csub), (ftnlen)strlen(i_cmsg));
+    msgdmp__(i_clev, i_csub, i_cmsg, (ftnlen)strlen(i_clev), (ftnlen)strlen(i_csub), (ftnlen)strlen(i_cmsg));
 
     return Qnil;
 
@@ -147,7 +146,7 @@ dcl_mszdmp(obj, cmsg, iunit, lnsize)
     i_lnsize = NUM2INT(lnsize);
 
 
-    mszdmp_(i_cmsg, &i_iunit, &i_lnsize, (ftnlen)strlen(i_cmsg));
+    mszdmp__(i_cmsg, &i_iunit, &i_lnsize, (ftnlen)strlen(i_cmsg));
 
     return Qnil;
 
@@ -170,7 +169,7 @@ dcl_glcget(obj, cp)
     o_cpara= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cpara, '\0', DFLT_SIZE+1);
 
-    glcget_(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
+    glcget__(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
 
     cpara = rb_str_new2(o_cpara);
 
@@ -197,7 +196,7 @@ dcl_glcset(obj, cp, cpara)
     i_cpara = StringValuePtr(cpara);
 
 
-    glcset_(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
+    glcset__(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
 
     return Qnil;
 
@@ -221,7 +220,7 @@ dcl_glcstx(obj, cp, cpara)
     i_cpara = StringValuePtr(cpara);
 
 
-    glcstx_(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
+    glcstx__(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
 
     return Qnil;
 
@@ -244,7 +243,7 @@ dcl_glqfnm(obj, cpara)
     o_cfname= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cfname, '\0', DFLT_SIZE+1);
 
-    glqfnm_(i_cpara, o_cfname, (ftnlen)strlen(i_cpara), (ftnlen)DFLT_SIZE);
+    glqfnm__(i_cpara, o_cfname, (ftnlen)strlen(i_cpara), (ftnlen)DFLT_SIZE);
 
     cfname = rb_str_new2(o_cfname);
 
@@ -260,7 +259,7 @@ dcl_iufopn(obj)
     integer o_rtn_val;
     VALUE rtn_val;
 
-    o_rtn_val = iufopn_();
+    o_rtn_val = iufopn__();
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -307,7 +306,7 @@ dcl_cfsrch(obj, cplist, np, cflist, nf)
     o_cfname= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cfname, '\0', DFLT_SIZE+1);
 
-    cfsrch_(i_cplist, &i_np, i_cflist, &i_nf, o_cfname, (ftnlen)80, (ftnlen)80, (ftnlen)DFLT_SIZE);
+    cfsrch__(i_cplist, &i_np, i_cflist, &i_nf, o_cfname, (ftnlen)80, (ftnlen)80, (ftnlen)DFLT_SIZE);
 
     cfname = rb_str_new2(o_cfname);
 
@@ -325,7 +324,7 @@ dcl_glpqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    glpqnp_(&o_ncp);
+    glpqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -349,7 +348,7 @@ dcl_glpqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    glpqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    glpqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -375,7 +374,7 @@ dcl_glpqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    glpqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    glpqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -401,7 +400,7 @@ dcl_glpqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    glpqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    glpqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -425,7 +424,7 @@ dcl_glpqit(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    glpqit_(&i_idx, &o_itp);
+    glpqit__(&i_idx, &o_itp);
 
     itp = INT2NUM(o_itp);
 
@@ -449,7 +448,7 @@ dcl_glpqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    glpqvl_(&i_idx, &o_ipara);
+    glpqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -476,7 +475,7 @@ dcl_glpsvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    glpsvl_(&i_idx, &i_ipara);
+    glpsvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -497,7 +496,7 @@ dcl_glpqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    glpqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    glpqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -521,7 +520,7 @@ dcl_gliget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    gliget_(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
+    gliget__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -548,7 +547,7 @@ dcl_gliset(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    gliset_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    gliset__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -572,7 +571,7 @@ dcl_glistx(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    glistx_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    glistx__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -593,7 +592,7 @@ dcl_gllget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    gllget_(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
+    gllget__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -617,7 +616,7 @@ dcl_gllset(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    gllset_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    gllset__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -638,7 +637,7 @@ dcl_gllstx(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    gllstx_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    gllstx__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -648,7 +647,7 @@ static VALUE
 dcl_rpnenv(obj)
     VALUE obj;
 {
-    rpnenv_();
+    rpnenv__();
 
     return Qnil;
 
@@ -674,7 +673,7 @@ dcl_rtienv(obj, cpfix, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rtienv_(i_cpfix, i_cp, &o_ipara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
+    rtienv__(i_cpfix, i_cp, &o_ipara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -703,7 +702,7 @@ dcl_rtlenv(obj, cpfix, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rtlenv_(i_cpfix, i_cp, &o_lpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
+    rtlenv__(i_cpfix, i_cp, &o_lpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -732,7 +731,7 @@ dcl_rtrenv(obj, cpfix, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rtrenv_(i_cpfix, i_cp, &o_rpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
+    rtrenv__(i_cpfix, i_cp, &o_rpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -763,7 +762,7 @@ dcl_rtcenv(obj, cpfix, cp)
     o_cpara= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cpara, '\0', DFLT_SIZE+1);
 
-    rtcenv_(i_cpfix, i_cp, o_cpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
+    rtcenv__(i_cpfix, i_cp, o_cpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
 
     cpara = rb_str_new2(o_cpara);
 
@@ -787,7 +786,7 @@ dcl_rlienv(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rlienv_(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
+    rlienv__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -811,7 +810,7 @@ dcl_rllenv(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rllenv_(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
+    rllenv__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -835,7 +834,7 @@ dcl_rlrenv(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rlrenv_(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
+    rlrenv__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -861,7 +860,7 @@ dcl_rlcenv(obj, cp)
     o_cpara= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cpara, '\0', DFLT_SIZE+1);
 
-    rlcenv_(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
+    rlcenv__(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
 
     cpara = rb_str_new2(o_cpara);
 
@@ -885,7 +884,7 @@ dcl_glrget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    glrget_(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
+    glrget__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -912,7 +911,7 @@ dcl_glrset(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    glrset_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    glrset__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -936,7 +935,7 @@ dcl_glrstx(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    glrstx_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    glrstx__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -949,7 +948,7 @@ dcl_gllqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    gllqnp_(&o_ncp);
+    gllqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -973,7 +972,7 @@ dcl_gllqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    gllqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    gllqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -999,7 +998,7 @@ dcl_gllqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    gllqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    gllqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1025,7 +1024,7 @@ dcl_gllqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    gllqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    gllqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1049,7 +1048,7 @@ dcl_gllqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    gllqvl_(&i_idx, &o_lpara);
+    gllqvl__(&i_idx, &o_lpara);
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -1073,7 +1072,7 @@ dcl_gllsvl(obj, idx, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    gllsvl_(&i_idx, &i_lpara);
+    gllsvl__(&i_idx, &i_lpara);
 
     return Qnil;
 
@@ -1094,7 +1093,7 @@ dcl_gllqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    gllqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    gllqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -1107,7 +1106,7 @@ static VALUE
 dcl_rpnget(obj)
     VALUE obj;
 {
-    rpnget_();
+    rpnget__();
 
     return Qnil;
 
@@ -1142,7 +1141,7 @@ dcl_rtiget(obj, cpfix, cps, max)
 
     o_ipara= ALLOCA_N(integer, (i_max));
 
-    rtiget_(i_cpfix, i_cps, o_ipara, &i_max, (ftnlen)strlen(i_cpfix), (ftnlen)8);
+    rtiget__(i_cpfix, i_cps, o_ipara, &i_max, (ftnlen)strlen(i_cpfix), (ftnlen)8);
 
     {int array_shape[1] = {i_max};
      ipara = dcl_cintegerary2obj(o_ipara, (i_max), 1, array_shape);
@@ -1183,7 +1182,7 @@ dcl_rtlget(obj, cpfix, cps, max)
 
     o_lpara= ALLOCA_N(logical, (i_max));
 
-    rtlget_(i_cpfix, i_cps, o_lpara, &i_max, (ftnlen)strlen(i_cpfix), (ftnlen)8);
+    rtlget__(i_cpfix, i_cps, o_lpara, &i_max, (ftnlen)strlen(i_cpfix), (ftnlen)8);
 
     {int array_shape[1] = {i_max};
      lpara = dcl_clogicalary2obj(o_lpara, (i_max), 1, array_shape);
@@ -1224,7 +1223,7 @@ dcl_rtrget(obj, cpfix, cps, max)
 
     o_rpara= ALLOCA_N(real, (i_max));
 
-    rtrget_(i_cpfix, i_cps, o_rpara, &i_max, (ftnlen)strlen(i_cpfix), (ftnlen)8);
+    rtrget__(i_cpfix, i_cps, o_rpara, &i_max, (ftnlen)strlen(i_cpfix), (ftnlen)8);
 
     {int array_shape[1] = {i_max};
      rpara = dcl_crealary2obj(o_rpara, (i_max), 1, array_shape);
@@ -1266,7 +1265,7 @@ dcl_rtcget(obj, cpfix, cps, max)
     o_cpara= ALLOCA_N(char, (i_max*80));
     memset(o_cpara, '\0', (i_max*80));
 
-    rtcget_(i_cpfix, i_cps, o_cpara, &i_max, (ftnlen)strlen(i_cpfix), (ftnlen)8, (ftnlen)80);
+    rtcget__(i_cpfix, i_cps, o_cpara, &i_max, (ftnlen)strlen(i_cpfix), (ftnlen)8, (ftnlen)80);
 
     cpara = dcl_ccharary2obj(o_cpara, (i_max*80), 80);
 
@@ -1300,7 +1299,7 @@ dcl_rliget(obj, cpl, max)
 
     o_ipara= ALLOCA_N(integer, (i_max));
 
-    rliget_(i_cpl, o_ipara, &i_max, (ftnlen)40);
+    rliget__(i_cpl, o_ipara, &i_max, (ftnlen)40);
 
     {int array_shape[1] = {i_max};
      ipara = dcl_cintegerary2obj(o_ipara, (i_max), 1, array_shape);
@@ -1336,7 +1335,7 @@ dcl_rllget(obj, cpl, max)
 
     o_lpara= ALLOCA_N(logical, (i_max));
 
-    rllget_(i_cpl, o_lpara, &i_max, (ftnlen)40);
+    rllget__(i_cpl, o_lpara, &i_max, (ftnlen)40);
 
     {int array_shape[1] = {i_max};
      lpara = dcl_clogicalary2obj(o_lpara, (i_max), 1, array_shape);
@@ -1372,7 +1371,7 @@ dcl_rlrget(obj, cpl, max)
 
     o_rpara= ALLOCA_N(real, (i_max));
 
-    rlrget_(i_cpl, o_rpara, &i_max, (ftnlen)40);
+    rlrget__(i_cpl, o_rpara, &i_max, (ftnlen)40);
 
     {int array_shape[1] = {i_max};
      rpara = dcl_crealary2obj(o_rpara, (i_max), 1, array_shape);
@@ -1409,7 +1408,7 @@ dcl_rlcget(obj, cpl, max)
     o_cpara= ALLOCA_N(char, (i_max*80));
     memset(o_cpara, '\0', (i_max*80));
 
-    rlcget_(i_cpl, o_cpara, &i_max, (ftnlen)40, (ftnlen)80);
+    rlcget__(i_cpl, o_cpara, &i_max, (ftnlen)40, (ftnlen)80);
 
     cpara = dcl_ccharary2obj(o_cpara, (i_max*80), 80);
 
@@ -1423,7 +1422,7 @@ static VALUE
 dcl_rpnopt(obj)
     VALUE obj;
 {
-    rpnopt_();
+    rpnopt__();
 
     return Qnil;
 
@@ -1449,7 +1448,7 @@ dcl_rtiopt(obj, cpfix, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rtiopt_(i_cpfix, i_cp, &o_ipara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
+    rtiopt__(i_cpfix, i_cp, &o_ipara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -1478,7 +1477,7 @@ dcl_rtlopt(obj, cpfix, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rtlopt_(i_cpfix, i_cp, &o_lpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
+    rtlopt__(i_cpfix, i_cp, &o_lpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -1507,7 +1506,7 @@ dcl_rtropt(obj, cpfix, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rtropt_(i_cpfix, i_cp, &o_rpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
+    rtropt__(i_cpfix, i_cp, &o_rpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -1538,7 +1537,7 @@ dcl_rtcopt(obj, cpfix, cp)
     o_cpara= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cpara, '\0', DFLT_SIZE+1);
 
-    rtcopt_(i_cpfix, i_cp, o_cpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
+    rtcopt__(i_cpfix, i_cp, o_cpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
 
     cpara = rb_str_new2(o_cpara);
 
@@ -1562,7 +1561,7 @@ dcl_rliopt(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rliopt_(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
+    rliopt__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -1586,7 +1585,7 @@ dcl_rllopt(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rllopt_(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
+    rllopt__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -1610,7 +1609,7 @@ dcl_rlropt(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rlropt_(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
+    rlropt__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -1636,7 +1635,7 @@ dcl_rlcopt(obj, cp)
     o_cpara= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cpara, '\0', DFLT_SIZE+1);
 
-    rlcopt_(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
+    rlcopt__(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
 
     cpara = rb_str_new2(o_cpara);
 
@@ -1649,7 +1648,7 @@ static VALUE
 dcl_rpnxfl(obj)
     VALUE obj;
 {
-    rpnxfl_();
+    rpnxfl__();
 
     return Qnil;
 
@@ -1675,7 +1674,7 @@ dcl_rtixfl(obj, cpfix, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rtixfl_(i_cpfix, i_cp, &o_ipara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
+    rtixfl__(i_cpfix, i_cp, &o_ipara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -1704,7 +1703,7 @@ dcl_rtlxfl(obj, cpfix, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rtlxfl_(i_cpfix, i_cp, &o_lpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
+    rtlxfl__(i_cpfix, i_cp, &o_lpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -1733,7 +1732,7 @@ dcl_rtrxfl(obj, cpfix, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rtrxfl_(i_cpfix, i_cp, &o_rpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
+    rtrxfl__(i_cpfix, i_cp, &o_rpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -1764,7 +1763,7 @@ dcl_rtcxfl(obj, cpfix, cp)
     o_cval= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cval, '\0', DFLT_SIZE+1);
 
-    rtcxfl_(i_cpfix, i_cp, o_cval, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
+    rtcxfl__(i_cpfix, i_cp, o_cval, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
 
     cval = rb_str_new2(o_cval);
 
@@ -1788,7 +1787,7 @@ dcl_rlixfl(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rlixfl_(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
+    rlixfl__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -1812,7 +1811,7 @@ dcl_rllxfl(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rllxfl_(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
+    rllxfl__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -1836,7 +1835,7 @@ dcl_rlrxfl(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rlrxfl_(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
+    rlrxfl__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -1862,7 +1861,7 @@ dcl_rlcxfl(obj, cp)
     o_cval= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cval, '\0', DFLT_SIZE+1);
 
-    rlcxfl_(i_cp, o_cval, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
+    rlcxfl__(i_cp, o_cval, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
 
     cval = rb_str_new2(o_cval);
 
@@ -1884,7 +1883,7 @@ dcl_prcopn(obj, cproc)
     i_cproc = StringValuePtr(cproc);
 
 
-    prcopn_(i_cproc, (ftnlen)strlen(i_cproc));
+    prcopn__(i_cproc, (ftnlen)strlen(i_cproc));
 
     return Qnil;
 
@@ -1903,7 +1902,7 @@ dcl_prccls(obj, cproc)
     i_cproc = StringValuePtr(cproc);
 
 
-    prccls_(i_cproc, (ftnlen)strlen(i_cproc));
+    prccls__(i_cproc, (ftnlen)strlen(i_cproc));
 
     return Qnil;
 
@@ -1916,7 +1915,7 @@ dcl_prclvl(obj)
     integer o_nlev;
     VALUE nlev;
 
-    prclvl_(&o_nlev);
+    prclvl__(&o_nlev);
 
     nlev = INT2NUM(o_nlev);
 
@@ -1942,7 +1941,7 @@ dcl_prcnam(obj, nlev)
     o_cproc= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cproc, '\0', DFLT_SIZE+1);
 
-    prcnam_(&i_nlev, o_cproc, (ftnlen)DFLT_SIZE);
+    prcnam__(&i_nlev, o_cproc, (ftnlen)DFLT_SIZE);
 
     cproc = rb_str_new2(o_cproc);