ruby-dcl 1.7.1 → 1.8.2

data/ext/numru/grph1_sgpack.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 *);
@@ -75,7 +78,7 @@ dcl_sgopn(obj, iws)
     i_iws = NUM2INT(iws);
 
 
-    sgopn_(&i_iws);
+    sgopn__(&i_iws);
 
     return Qnil;
 
@@ -85,7 +88,7 @@ static VALUE
 dcl_sgfrm(obj)
     VALUE obj;
 {
-    sgfrm_();
+    sgfrm__();
 
     return Qnil;
 
@@ -95,7 +98,7 @@ static VALUE
 dcl_sgcls(obj)
     VALUE obj;
 {
-    sgcls_();
+    sgcls__();
 
     return Qnil;
 
@@ -108,7 +111,7 @@ dcl_sgpqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    sgpqnp_(&o_ncp);
+    sgpqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -132,7 +135,7 @@ dcl_sgpqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    sgpqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    sgpqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -158,7 +161,7 @@ dcl_sgpqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    sgpqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    sgpqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -184,7 +187,7 @@ dcl_sgpqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    sgpqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    sgpqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -208,7 +211,7 @@ dcl_sgpqit(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    sgpqit_(&i_idx, &o_itp);
+    sgpqit__(&i_idx, &o_itp);
 
     itp = INT2NUM(o_itp);
 
@@ -232,7 +235,7 @@ dcl_sgpqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    sgpqvl_(&i_idx, &o_ipara);
+    sgpqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -259,7 +262,7 @@ dcl_sgpsvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    sgpsvl_(&i_idx, &i_ipara);
+    sgpsvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -280,7 +283,7 @@ dcl_sgpqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    sgpqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    sgpqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -293,7 +296,7 @@ static VALUE
 dcl_sgpwsn(obj)
     VALUE obj;
 {
-    sgpwsn_();
+    sgpwsn__();
 
     return Qnil;
 
@@ -327,7 +330,7 @@ dcl_sgsvpt(obj, vxmin, vxmax, vymin, vymax)
     i_vymax = (real)NUM2DBL(vymax);
 
 
-    sgsvpt_(&i_vxmin, &i_vxmax, &i_vymin, &i_vymax);
+    sgsvpt__(&i_vxmin, &i_vxmax, &i_vymin, &i_vymax);
 
     return Qnil;
 
@@ -346,7 +349,7 @@ dcl_sgqvpt(obj)
     VALUE vymin;
     VALUE vymax;
 
-    sgqvpt_(&o_vxmin, &o_vxmax, &o_vymin, &o_vymax);
+    sgqvpt__(&o_vxmin, &o_vxmax, &o_vymin, &o_vymax);
 
     vxmin = rb_float_new((double)o_vxmin);
     vxmax = rb_float_new((double)o_vxmax);
@@ -386,7 +389,7 @@ dcl_sgswnd(obj, uxmin, uxmax, uymin, uymax)
     i_uymax = (real)NUM2DBL(uymax);
 
 
-    sgswnd_(&i_uxmin, &i_uxmax, &i_uymin, &i_uymax);
+    sgswnd__(&i_uxmin, &i_uxmax, &i_uymin, &i_uymax);
 
     return Qnil;
 
@@ -405,7 +408,7 @@ dcl_sgqwnd(obj)
     VALUE uymin;
     VALUE uymax;
 
-    sgqwnd_(&o_uxmin, &o_uxmax, &o_uymin, &o_uymax);
+    sgqwnd__(&o_uxmin, &o_uxmax, &o_uymin, &o_uymax);
 
     uxmin = rb_float_new((double)o_uxmin);
     uxmax = rb_float_new((double)o_uxmax);
@@ -440,7 +443,7 @@ dcl_sgssim(obj, simfac, vxoff, vyoff)
     i_vyoff = (real)NUM2DBL(vyoff);
 
 
-    sgssim_(&i_simfac, &i_vxoff, &i_vyoff);
+    sgssim__(&i_simfac, &i_vxoff, &i_vyoff);
 
     return Qnil;
 
@@ -457,7 +460,7 @@ dcl_sgqsim(obj)
     VALUE vxoff;
     VALUE vyoff;
 
-    sgqsim_(&o_simfac, &o_vxoff, &o_vyoff);
+    sgqsim__(&o_simfac, &o_vxoff, &o_vyoff);
 
     simfac = rb_float_new((double)o_simfac);
     vxoff = rb_float_new((double)o_vxoff);
@@ -491,7 +494,7 @@ dcl_sgsmpl(obj, plx, ply, plrot)
     i_plrot = (real)NUM2DBL(plrot);
 
 
-    sgsmpl_(&i_plx, &i_ply, &i_plrot);
+    sgsmpl__(&i_plx, &i_ply, &i_plrot);
 
     return Qnil;
 
@@ -508,7 +511,7 @@ dcl_sgqmpl(obj)
     VALUE ply;
     VALUE plrot;
 
-    sgqmpl_(&o_plx, &o_ply, &o_plrot);
+    sgqmpl__(&o_plx, &o_ply, &o_plrot);
 
     plx = rb_float_new((double)o_plx);
     ply = rb_float_new((double)o_ply);
@@ -547,7 +550,7 @@ dcl_sgstxy(obj, txmin, txmax, tymin, tymax)
     i_tymax = (real)NUM2DBL(tymax);
 
 
-    sgstxy_(&i_txmin, &i_txmax, &i_tymin, &i_tymax);
+    sgstxy__(&i_txmin, &i_txmax, &i_tymin, &i_tymax);
 
     return Qnil;
 
@@ -566,7 +569,7 @@ dcl_sgqtxy(obj)
     VALUE tymin;
     VALUE tymax;
 
-    sgqtxy_(&o_txmin, &o_txmax, &o_tymin, &o_tymax);
+    sgqtxy__(&o_txmin, &o_txmax, &o_tymin, &o_tymax);
 
     txmin = rb_float_new((double)o_txmin);
     txmax = rb_float_new((double)o_txmax);
@@ -591,7 +594,7 @@ dcl_sgstrn(obj, itr)
     i_itr = NUM2INT(itr);
 
 
-    sgstrn_(&i_itr);
+    sgstrn__(&i_itr);
 
     return Qnil;
 
@@ -604,7 +607,7 @@ dcl_sgqtrn(obj)
     integer o_itr;
     VALUE itr;
 
-    sgqtrn_(&o_itr);
+    sgqtrn__(&o_itr);
 
     itr = INT2NUM(o_itr);
 
@@ -617,7 +620,7 @@ static VALUE
 dcl_sgstrf(obj)
     VALUE obj;
 {
-    sgstrf_();
+    sgstrf__();
 
     return Qnil;
 
@@ -638,7 +641,7 @@ dcl_sgtrqf(obj, ntx)
     i_ntx = NUM2INT(ntx);
 
 
-    sgtrqf_(&i_ntx, &o_ltr);
+    sgtrqf__(&i_ntx, &o_ltr);
 
     ltr = (o_ltr == FALSE_) ? Qfalse : Qtrue;
 
@@ -664,7 +667,7 @@ dcl_sgtrsl(obj, cts)
     o_ctl= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_ctl, '\0', DFLT_SIZE+1);
 
-    sgtrsl_(i_cts, o_ctl, (ftnlen)strlen(i_cts), (ftnlen)DFLT_SIZE);
+    sgtrsl__(i_cts, o_ctl, (ftnlen)strlen(i_cts), (ftnlen)DFLT_SIZE);
 
     ctl = rb_str_new2(o_ctl);
 
@@ -688,7 +691,7 @@ dcl_sgtrsn(obj, cts)
     i_cts = StringValuePtr(cts);
 
 
-    sgtrsn_(i_cts, &o_ntx, (ftnlen)strlen(i_cts));
+    sgtrsn__(i_cts, &o_ntx, (ftnlen)strlen(i_cts));
 
     ntx = INT2NUM(o_ntx);
 
@@ -714,7 +717,7 @@ dcl_sgtrls(obj, ctl)
     o_cts= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cts, '\0', DFLT_SIZE+1);
 
-    sgtrls_(i_ctl, o_cts, (ftnlen)strlen(i_ctl), (ftnlen)DFLT_SIZE);
+    sgtrls__(i_ctl, o_cts, (ftnlen)strlen(i_ctl), (ftnlen)DFLT_SIZE);
 
     cts = rb_str_new2(o_cts);
 
@@ -738,7 +741,7 @@ dcl_sgtrln(obj, ctl)
     i_ctl = StringValuePtr(ctl);
 
 
-    sgtrln_(i_ctl, &o_ntx, (ftnlen)strlen(i_ctl));
+    sgtrln__(i_ctl, &o_ntx, (ftnlen)strlen(i_ctl));
 
     ntx = INT2NUM(o_ntx);
 
@@ -764,7 +767,7 @@ dcl_sgtrns(obj, ntx)
     o_cts= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cts, '\0', DFLT_SIZE+1);
 
-    sgtrns_(&i_ntx, o_cts, (ftnlen)DFLT_SIZE);
+    sgtrns__(&i_ntx, o_cts, (ftnlen)DFLT_SIZE);
 
     cts = rb_str_new2(o_cts);
 
@@ -790,7 +793,7 @@ dcl_sgtrnl(obj, ntx)
     o_ctl= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_ctl, '\0', DFLT_SIZE+1);
 
-    sgtrnl_(&i_ntx, o_ctl, (ftnlen)DFLT_SIZE);
+    sgtrnl__(&i_ntx, o_ctl, (ftnlen)DFLT_SIZE);
 
     ctl = rb_str_new2(o_ctl);
 
@@ -814,7 +817,7 @@ dcl_isgtrc(obj, ctr)
     i_ctr = StringValuePtr(ctr);
 
 
-    o_rtn_val = isgtrc_(i_ctr, (ftnlen)strlen(i_ctr));
+    o_rtn_val = isgtrc__(i_ctr, (ftnlen)strlen(i_ctr));
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -854,7 +857,7 @@ dcl_sgplu(obj, n, upx, upy)
     i_upy = dcl_obj2crealary(upy);
 
 
-    sgplu_(&i_n, i_upx, i_upy);
+    sgplu__(&i_n, i_upx, i_upy);
 
     dcl_freecrealary(i_upx);
     dcl_freecrealary(i_upy);
@@ -894,7 +897,7 @@ dcl_sgplv(obj, n, vpx, vpy)
     i_vpy = dcl_obj2crealary(vpy);
 
 
-    sgplv_(&i_n, i_vpx, i_vpy);
+    sgplv__(&i_n, i_vpx, i_vpy);
 
     dcl_freecrealary(i_vpx);
     dcl_freecrealary(i_vpy);
@@ -934,7 +937,7 @@ dcl_sgplr(obj, n, rpx, rpy)
     i_rpy = dcl_obj2crealary(rpy);
 
 
-    sgplr_(&i_n, i_rpx, i_rpy);
+    sgplr__(&i_n, i_rpx, i_rpy);
 
     dcl_freecrealary(i_rpx);
     dcl_freecrealary(i_rpy);
@@ -956,7 +959,7 @@ dcl_sgsplt(obj, itype)
     i_itype = NUM2INT(itype);
 
 
-    sgsplt_(&i_itype);
+    sgsplt__(&i_itype);
 
     return Qnil;
 
@@ -969,7 +972,7 @@ dcl_sgqplt(obj)
     integer o_itype;
     VALUE itype;
 
-    sgqplt_(&o_itype);
+    sgqplt__(&o_itype);
 
     itype = INT2NUM(o_itype);
 
@@ -991,7 +994,7 @@ dcl_sgspli(obj, index)
     i_index = NUM2INT(index);
 
 
-    sgspli_(&i_index);
+    sgspli__(&i_index);
 
     return Qnil;
 
@@ -1004,7 +1007,7 @@ dcl_sgqpli(obj)
     integer o_index;
     VALUE index;
 
-    sgqpli_(&o_index);
+    sgqpli__(&o_index);
 
     index = INT2NUM(o_index);
 
@@ -1054,7 +1057,7 @@ dcl_sgplzu(obj, n, upx, upy, itype, index)
     i_upy = dcl_obj2crealary(upy);
 
 
-    sgplzu_(&i_n, i_upx, i_upy, &i_itype, &i_index);
+    sgplzu__(&i_n, i_upx, i_upy, &i_itype, &i_index);
 
     dcl_freecrealary(i_upx);
     dcl_freecrealary(i_upy);
@@ -1104,7 +1107,7 @@ dcl_sgplzv(obj, n, vpx, vpy, itype, index)
     i_vpy = dcl_obj2crealary(vpy);
 
 
-    sgplzv_(&i_n, i_vpx, i_vpy, &i_itype, &i_index);
+    sgplzv__(&i_n, i_vpx, i_vpy, &i_itype, &i_index);
 
     dcl_freecrealary(i_vpx);
     dcl_freecrealary(i_vpy);
@@ -1154,7 +1157,7 @@ dcl_sgplzr(obj, n, rpx, rpy, itype, index)
     i_rpy = dcl_obj2crealary(rpy);
 
 
-    sgplzr_(&i_n, i_rpx, i_rpy, &i_itype, &i_index);
+    sgplzr__(&i_n, i_rpx, i_rpy, &i_itype, &i_index);
 
     dcl_freecrealary(i_rpx);
     dcl_freecrealary(i_rpy);
@@ -1194,7 +1197,7 @@ dcl_sgpmu(obj, n, upx, upy)
     i_upy = dcl_obj2crealary(upy);
 
 
-    sgpmu_(&i_n, i_upx, i_upy);
+    sgpmu__(&i_n, i_upx, i_upy);
 
     dcl_freecrealary(i_upx);
     dcl_freecrealary(i_upy);
@@ -1234,7 +1237,7 @@ dcl_sgpmv(obj, n, vpx, vpy)
     i_vpy = dcl_obj2crealary(vpy);
 
 
-    sgpmv_(&i_n, i_vpx, i_vpy);
+    sgpmv__(&i_n, i_vpx, i_vpy);
 
     dcl_freecrealary(i_vpx);
     dcl_freecrealary(i_vpy);
@@ -1274,7 +1277,7 @@ dcl_sgpmr(obj, n, rpx, rpy)
     i_rpy = dcl_obj2crealary(rpy);
 
 
-    sgpmr_(&i_n, i_rpx, i_rpy);
+    sgpmr__(&i_n, i_rpx, i_rpy);
 
     dcl_freecrealary(i_rpx);
     dcl_freecrealary(i_rpy);
@@ -1296,7 +1299,7 @@ dcl_sgspmt(obj, itype)
     i_itype = NUM2INT(itype);
 
 
-    sgspmt_(&i_itype);
+    sgspmt__(&i_itype);
 
     return Qnil;
 
@@ -1309,7 +1312,7 @@ dcl_sgqpmt(obj)
     integer o_itype;
     VALUE itype;
 
-    sgqpmt_(&o_itype);
+    sgqpmt__(&o_itype);
 
     itype = INT2NUM(o_itype);
 
@@ -1331,7 +1334,7 @@ dcl_sgspmi(obj, index)
     i_index = NUM2INT(index);
 
 
-    sgspmi_(&i_index);
+    sgspmi__(&i_index);
 
     return Qnil;
 
@@ -1344,7 +1347,7 @@ dcl_sgqpmi(obj)
     integer o_index;
     VALUE index;
 
-    sgqpmi_(&o_index);
+    sgqpmi__(&o_index);
 
     index = INT2NUM(o_index);
 
@@ -1366,7 +1369,7 @@ dcl_sgspms(obj, rsize)
     i_rsize = (real)NUM2DBL(rsize);
 
 
-    sgspms_(&i_rsize);
+    sgspms__(&i_rsize);
 
     return Qnil;
 
@@ -1379,7 +1382,7 @@ dcl_sgqpms(obj)
     real o_rsize;
     VALUE rsize;
 
-    sgqpms_(&o_rsize);
+    sgqpms__(&o_rsize);
 
     rsize = rb_float_new((double)o_rsize);
 
@@ -1411,7 +1414,7 @@ dcl_sgtxu(obj, ux, uy, chars)
     i_chars = StringValuePtr(chars);
 
 
-    sgtxu_(&i_ux, &i_uy, i_chars, (ftnlen)strlen(i_chars));
+    sgtxu__(&i_ux, &i_uy, i_chars, (ftnlen)strlen(i_chars));
 
     return Qnil;
 
@@ -1440,7 +1443,7 @@ dcl_sgtxv(obj, vx, vy, chars)
     i_chars = StringValuePtr(chars);
 
 
-    sgtxv_(&i_vx, &i_vy, i_chars, (ftnlen)strlen(i_chars));
+    sgtxv__(&i_vx, &i_vy, i_chars, (ftnlen)strlen(i_chars));
 
     return Qnil;
 
@@ -1469,7 +1472,7 @@ dcl_sgtxr(obj, rx, ry, chars)
     i_chars = StringValuePtr(chars);
 
 
-    sgtxr_(&i_rx, &i_ry, i_chars, (ftnlen)strlen(i_chars));
+    sgtxr__(&i_rx, &i_ry, i_chars, (ftnlen)strlen(i_chars));
 
     return Qnil;
 
@@ -1488,7 +1491,7 @@ dcl_sgstxs(obj, rsize)
     i_rsize = (real)NUM2DBL(rsize);
 
 
-    sgstxs_(&i_rsize);
+    sgstxs__(&i_rsize);
 
     return Qnil;
 
@@ -1501,7 +1504,7 @@ dcl_sgqtxs(obj)
     real o_rsize;
     VALUE rsize;
 
-    sgqtxs_(&o_rsize);
+    sgqtxs__(&o_rsize);
 
     rsize = rb_float_new((double)o_rsize);
 
@@ -1523,7 +1526,7 @@ dcl_sgstxr(obj, irota)
     i_irota = NUM2INT(irota);
 
 
-    sgstxr_(&i_irota);
+    sgstxr__(&i_irota);
 
     return Qnil;
 
@@ -1536,7 +1539,7 @@ dcl_sgqtxr(obj)
     integer o_irota;
     VALUE irota;
 
-    sgqtxr_(&o_irota);
+    sgqtxr__(&o_irota);
 
     irota = INT2NUM(o_irota);
 
@@ -1558,7 +1561,7 @@ dcl_sgstxc(obj, icent)
     i_icent = NUM2INT(icent);
 
 
-    sgstxc_(&i_icent);
+    sgstxc__(&i_icent);
 
     return Qnil;
 
@@ -1571,7 +1574,7 @@ dcl_sgqtxc(obj)
     integer o_icent;
     VALUE icent;
 
-    sgqtxc_(&o_icent);
+    sgqtxc__(&o_icent);
 
     icent = INT2NUM(o_icent);
 
@@ -1593,7 +1596,7 @@ dcl_sgstxi(obj, index)
     i_index = NUM2INT(index);
 
 
-    sgstxi_(&i_index);
+    sgstxi__(&i_index);
 
     return Qnil;
 
@@ -1606,7 +1609,7 @@ dcl_sgqtxi(obj)
     integer o_index;
     VALUE index;
 
-    sgqtxi_(&o_index);
+    sgqtxi__(&o_index);
 
     index = INT2NUM(o_index);
 
@@ -1661,7 +1664,7 @@ dcl_sgpmzu(obj, n, upx, upy, itype, index, rsize)
     i_upy = dcl_obj2crealary(upy);
 
 
-    sgpmzu_(&i_n, i_upx, i_upy, &i_itype, &i_index, &i_rsize);
+    sgpmzu__(&i_n, i_upx, i_upy, &i_itype, &i_index, &i_rsize);
 
     dcl_freecrealary(i_upx);
     dcl_freecrealary(i_upy);
@@ -1716,7 +1719,7 @@ dcl_sgpmzv(obj, n, vpx, vpy, itype, index, rsize)
     i_vpy = dcl_obj2crealary(vpy);
 
 
-    sgpmzv_(&i_n, i_vpx, i_vpy, &i_itype, &i_index, &i_rsize);
+    sgpmzv__(&i_n, i_vpx, i_vpy, &i_itype, &i_index, &i_rsize);
 
     dcl_freecrealary(i_vpx);
     dcl_freecrealary(i_vpy);
@@ -1771,7 +1774,7 @@ dcl_sgpmzr(obj, n, rpx, rpy, itype, index, rsize)
     i_rpy = dcl_obj2crealary(rpy);
 
 
-    sgpmzr_(&i_n, i_rpx, i_rpy, &i_itype, &i_index, &i_rsize);
+    sgpmzr__(&i_n, i_rpx, i_rpy, &i_itype, &i_index, &i_rsize);
 
     dcl_freecrealary(i_rpx);
     dcl_freecrealary(i_rpy);
@@ -1823,7 +1826,7 @@ dcl_sgtxzu(obj, ux, uy, chars, rsize, irota, icent, index)
     i_index = NUM2INT(index);
 
 
-    sgtxzu_(&i_ux, &i_uy, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, (ftnlen)strlen(i_chars));
+    sgtxzu__(&i_ux, &i_uy, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, (ftnlen)strlen(i_chars));
 
     return Qnil;
 
@@ -1872,7 +1875,7 @@ dcl_sgtxzv(obj, vx, vy, chars, rsize, irota, icent, index)
     i_index = NUM2INT(index);
 
 
-    sgtxzv_(&i_vx, &i_vy, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, (ftnlen)strlen(i_chars));
+    sgtxzv__(&i_vx, &i_vy, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, (ftnlen)strlen(i_chars));
 
     return Qnil;
 
@@ -1921,7 +1924,7 @@ dcl_sgtxzr(obj, rx, ry, chars, rsize, irota, icent, index)
     i_index = NUM2INT(index);
 
 
-    sgtxzr_(&i_rx, &i_ry, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, (ftnlen)strlen(i_chars));
+    sgtxzr__(&i_rx, &i_ry, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, (ftnlen)strlen(i_chars));
 
     return Qnil;
 
@@ -1958,7 +1961,7 @@ dcl_sgtnu(obj, n, upx, upy)
     i_upy = dcl_obj2crealary(upy);
 
 
-    sgtnu_(&i_n, i_upx, i_upy);
+    sgtnu__(&i_n, i_upx, i_upy);
 
     dcl_freecrealary(i_upx);
     dcl_freecrealary(i_upy);
@@ -1998,7 +2001,7 @@ dcl_sgtnv(obj, n, vpx, vpy)
     i_vpy = dcl_obj2crealary(vpy);
 
 
-    sgtnv_(&i_n, i_vpx, i_vpy);
+    sgtnv__(&i_n, i_vpx, i_vpy);
 
     dcl_freecrealary(i_vpx);
     dcl_freecrealary(i_vpy);
@@ -2038,7 +2041,7 @@ dcl_sgtnr(obj, n, rpx, rpy)
     i_rpy = dcl_obj2crealary(rpy);
 
 
-    sgtnr_(&i_n, i_rpx, i_rpy);
+    sgtnr__(&i_n, i_rpx, i_rpy);
 
     dcl_freecrealary(i_rpx);
     dcl_freecrealary(i_rpy);
@@ -2060,7 +2063,7 @@ dcl_sgstnp(obj, itpat)
     i_itpat = NUM2INT(itpat);
 
 
-    sgstnp_(&i_itpat);
+    sgstnp__(&i_itpat);
 
     return Qnil;
 
@@ -2073,7 +2076,7 @@ dcl_sgqtnp(obj)
     integer o_itpat;
     VALUE itpat;
 
-    sgqtnp_(&o_itpat);
+    sgqtnp__(&o_itpat);
 
     itpat = INT2NUM(o_itpat);
 
@@ -2118,7 +2121,7 @@ dcl_sgtnzu(obj, n, upx, upy, itpat)
     i_upy = dcl_obj2crealary(upy);
 
 
-    sgtnzu_(&i_n, i_upx, i_upy, &i_itpat);
+    sgtnzu__(&i_n, i_upx, i_upy, &i_itpat);
 
     dcl_freecrealary(i_upx);
     dcl_freecrealary(i_upy);
@@ -2163,7 +2166,7 @@ dcl_sgtnzv(obj, n, vpx, vpy, itpat)
     i_vpy = dcl_obj2crealary(vpy);
 
 
-    sgtnzv_(&i_n, i_vpx, i_vpy, &i_itpat);
+    sgtnzv__(&i_n, i_vpx, i_vpy, &i_itpat);
 
     dcl_freecrealary(i_vpx);
     dcl_freecrealary(i_vpy);
@@ -2208,7 +2211,7 @@ dcl_sgtnzr(obj, n, rpx, rpy, itpat)
     i_rpy = dcl_obj2crealary(rpy);
 
 
-    sgtnzr_(&i_n, i_rpx, i_rpy, &i_itpat);
+    sgtnzr__(&i_n, i_rpx, i_rpy, &i_itpat);
 
     dcl_freecrealary(i_rpx);
     dcl_freecrealary(i_rpy);
@@ -2245,7 +2248,7 @@ dcl_sglnu(obj, ux1, uy1, ux2, uy2)
     i_uy2 = (real)NUM2DBL(uy2);
 
 
-    sglnu_(&i_ux1, &i_uy1, &i_ux2, &i_uy2);
+    sglnu__(&i_ux1, &i_uy1, &i_ux2, &i_uy2);
 
     return Qnil;
 
@@ -2279,7 +2282,7 @@ dcl_sglnv(obj, vx1, vy1, vx2, vy2)
     i_vy2 = (real)NUM2DBL(vy2);
 
 
-    sglnv_(&i_vx1, &i_vy1, &i_vx2, &i_vy2);
+    sglnv__(&i_vx1, &i_vy1, &i_vx2, &i_vy2);
 
     return Qnil;
 
@@ -2313,7 +2316,7 @@ dcl_sglnr(obj, rx1, ry1, rx2, ry2)
     i_ry2 = (real)NUM2DBL(ry2);
 
 
-    sglnr_(&i_rx1, &i_ry1, &i_rx2, &i_ry2);
+    sglnr__(&i_rx1, &i_ry1, &i_rx2, &i_ry2);
 
     return Qnil;
 
@@ -2332,7 +2335,7 @@ dcl_sgslni(obj, index)
     i_index = NUM2INT(index);
 
 
-    sgslni_(&i_index);
+    sgslni__(&i_index);
 
     return Qnil;
 
@@ -2345,7 +2348,7 @@ dcl_sgqlni(obj)
     integer o_index;
     VALUE index;
 
-    sgqlni_(&o_index);
+    sgqlni__(&o_index);
 
     index = INT2NUM(o_index);
 
@@ -2387,7 +2390,7 @@ dcl_sglnzu(obj, ux1, uy1, ux2, uy2, index)
     i_index = NUM2INT(index);
 
 
-    sglnzu_(&i_ux1, &i_uy1, &i_ux2, &i_uy2, &i_index);
+    sglnzu__(&i_ux1, &i_uy1, &i_ux2, &i_uy2, &i_index);
 
     return Qnil;
 
@@ -2426,7 +2429,7 @@ dcl_sglnzv(obj, vx1, vy1, vx2, vy2, index)
     i_index = NUM2INT(index);
 
 
-    sglnzv_(&i_vx1, &i_vy1, &i_vx2, &i_vy2, &i_index);
+    sglnzv__(&i_vx1, &i_vy1, &i_vx2, &i_vy2, &i_index);
 
     return Qnil;
 
@@ -2465,7 +2468,7 @@ dcl_sglnzr(obj, rx1, ry1, rx2, ry2, index)
     i_index = NUM2INT(index);
 
 
-    sglnzr_(&i_rx1, &i_ry1, &i_rx2, &i_ry2, &i_index);
+    sglnzr__(&i_rx1, &i_ry1, &i_rx2, &i_ry2, &i_index);
 
     return Qnil;
 
@@ -2499,7 +2502,7 @@ dcl_sglau(obj, ux1, uy1, ux2, uy2)
     i_uy2 = (real)NUM2DBL(uy2);
 
 
-    sglau_(&i_ux1, &i_uy1, &i_ux2, &i_uy2);
+    sglau__(&i_ux1, &i_uy1, &i_ux2, &i_uy2);
 
     return Qnil;
 
@@ -2533,7 +2536,7 @@ dcl_sglav(obj, vx1, vy1, vx2, vy2)
     i_vy2 = (real)NUM2DBL(vy2);
 
 
-    sglav_(&i_vx1, &i_vy1, &i_vx2, &i_vy2);
+    sglav__(&i_vx1, &i_vy1, &i_vx2, &i_vy2);
 
     return Qnil;
 
@@ -2567,7 +2570,7 @@ dcl_sglar(obj, rx1, ry1, rx2, ry2)
     i_ry2 = (real)NUM2DBL(ry2);
 
 
-    sglar_(&i_rx1, &i_ry1, &i_rx2, &i_ry2);
+    sglar__(&i_rx1, &i_ry1, &i_rx2, &i_ry2);
 
     return Qnil;
 
@@ -2586,7 +2589,7 @@ dcl_sgslat(obj, itype)
     i_itype = NUM2INT(itype);
 
 
-    sgslat_(&i_itype);
+    sgslat__(&i_itype);
 
     return Qnil;
 
@@ -2599,7 +2602,7 @@ dcl_sgqlat(obj)
     integer o_itype;
     VALUE itype;
 
-    sgqlat_(&o_itype);
+    sgqlat__(&o_itype);
 
     itype = INT2NUM(o_itype);
 
@@ -2621,7 +2624,7 @@ dcl_sgslai(obj, index)
     i_index = NUM2INT(index);
 
 
-    sgslai_(&i_index);
+    sgslai__(&i_index);
 
     return Qnil;
 
@@ -2634,7 +2637,7 @@ dcl_sgqlai(obj)
     integer o_index;
     VALUE index;
 
-    sgqlai_(&o_index);
+    sgqlai__(&o_index);
 
     index = INT2NUM(o_index);
 
@@ -2681,7 +2684,7 @@ dcl_sglazu(obj, ux1, uy1, ux2, uy2, itype, index)
     i_index = NUM2INT(index);
 
 
-    sglazu_(&i_ux1, &i_uy1, &i_ux2, &i_uy2, &i_itype, &i_index);
+    sglazu__(&i_ux1, &i_uy1, &i_ux2, &i_uy2, &i_itype, &i_index);
 
     return Qnil;
 
@@ -2725,7 +2728,7 @@ dcl_sglazv(obj, vx1, vy1, vx2, vy2, itype, index)
     i_index = NUM2INT(index);
 
 
-    sglazv_(&i_vx1, &i_vy1, &i_vx2, &i_vy2, &i_itype, &i_index);
+    sglazv__(&i_vx1, &i_vy1, &i_vx2, &i_vy2, &i_itype, &i_index);
 
     return Qnil;
 
@@ -2769,7 +2772,7 @@ dcl_sglazr(obj, rx1, ry1, rx2, ry2, itype, index)
     i_index = NUM2INT(index);
 
 
-    sglazr_(&i_rx1, &i_ry1, &i_rx2, &i_ry2, &i_itype, &i_index);
+    sglazr__(&i_rx1, &i_ry1, &i_rx2, &i_ry2, &i_itype, &i_index);
 
     return Qnil;
 
@@ -2788,7 +2791,7 @@ dcl_sgsplc(obj, charx)
     i_charx = StringValuePtr(charx);
 
 
-    sgsplc_(i_charx, (ftnlen)strlen(i_charx));
+    sgsplc__(i_charx, (ftnlen)strlen(i_charx));
 
     return Qnil;
 
@@ -2804,7 +2807,7 @@ dcl_sgqplc(obj)
     o_charx= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_charx, '\0', DFLT_SIZE+1);
 
-    sgqplc_(o_charx, (ftnlen)DFLT_SIZE);
+    sgqplc__(o_charx, (ftnlen)DFLT_SIZE);
 
     charx = rb_str_new2(o_charx);
 
@@ -2826,7 +2829,7 @@ dcl_sgspls(obj, rsize)
     i_rsize = (real)NUM2DBL(rsize);
 
 
-    sgspls_(&i_rsize);
+    sgspls__(&i_rsize);
 
     return Qnil;
 
@@ -2839,7 +2842,7 @@ dcl_sgqpls(obj)
     real o_rsize;
     VALUE rsize;
 
-    sgqpls_(&o_rsize);
+    sgqpls__(&o_rsize);
 
     rsize = rb_float_new((double)o_rsize);
 
@@ -2852,7 +2855,7 @@ static VALUE
 dcl_sgnplc(obj)
     VALUE obj;
 {
-    sgnplc_();
+    sgnplc__();
 
     return Qnil;
 
@@ -2873,7 +2876,7 @@ dcl_sgiget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    sgiget_(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
+    sgiget__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -2900,7 +2903,7 @@ dcl_sgiset(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    sgiset_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    sgiset__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -2924,7 +2927,7 @@ dcl_sgistx(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    sgistx_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    sgistx__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -2937,7 +2940,7 @@ dcl_sgiqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    sgiqnp_(&o_ncp);
+    sgiqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -2961,7 +2964,7 @@ dcl_sgiqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    sgiqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    sgiqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -2987,7 +2990,7 @@ dcl_sgiqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    sgiqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    sgiqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -3013,7 +3016,7 @@ dcl_sgiqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    sgiqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    sgiqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -3037,7 +3040,7 @@ dcl_sgiqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    sgiqvl_(&i_idx, &o_ipara);
+    sgiqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -3064,7 +3067,7 @@ dcl_sgisvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    sgisvl_(&i_idx, &i_ipara);
+    sgisvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -3085,7 +3088,7 @@ dcl_sgiqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    sgiqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    sgiqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -3109,7 +3112,7 @@ dcl_sglget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    sglget_(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
+    sglget__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -3133,7 +3136,7 @@ dcl_sglset(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    sglset_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    sglset__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -3154,7 +3157,7 @@ dcl_sglstx(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    sglstx_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    sglstx__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -3167,7 +3170,7 @@ dcl_sglqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    sglqnp_(&o_ncp);
+    sglqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -3191,7 +3194,7 @@ dcl_sglqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    sglqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    sglqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -3217,7 +3220,7 @@ dcl_sglqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    sglqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    sglqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -3243,7 +3246,7 @@ dcl_sglqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    sglqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    sglqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -3267,7 +3270,7 @@ dcl_sglqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    sglqvl_(&i_idx, &o_lpara);
+    sglqvl__(&i_idx, &o_lpara);
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -3291,7 +3294,7 @@ dcl_sglsvl(obj, idx, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    sglsvl_(&i_idx, &i_lpara);
+    sglsvl__(&i_idx, &i_lpara);
 
     return Qnil;
 
@@ -3312,7 +3315,7 @@ dcl_sglqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    sglqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    sglqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -3339,7 +3342,7 @@ dcl_sgoopn(obj, cprc, com)
     i_com = StringValuePtr(com);
 
 
-    sgoopn_(i_cprc, i_com, (ftnlen)strlen(i_cprc), (ftnlen)strlen(i_com));
+    sgoopn__(i_cprc, i_com, (ftnlen)strlen(i_cprc), (ftnlen)strlen(i_com));
 
     return Qnil;
 
@@ -3358,7 +3361,7 @@ dcl_sgocls(obj, cprc)
     i_cprc = StringValuePtr(cprc);
 
 
-    sgocls_(i_cprc, (ftnlen)strlen(i_cprc));
+    sgocls__(i_cprc, (ftnlen)strlen(i_cprc));
 
     return Qnil;
 
@@ -3379,7 +3382,7 @@ dcl_sgrget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    sgrget_(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
+    sgrget__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -3406,7 +3409,7 @@ dcl_sgrset(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    sgrset_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    sgrset__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -3430,7 +3433,7 @@ dcl_sgrstx(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    sgrstx_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    sgrstx__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -3443,7 +3446,7 @@ dcl_sgrqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    sgrqnp_(&o_ncp);
+    sgrqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -3467,7 +3470,7 @@ dcl_sgrqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    sgrqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    sgrqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -3493,7 +3496,7 @@ dcl_sgrqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    sgrqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    sgrqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -3519,7 +3522,7 @@ dcl_sgrqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    sgrqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    sgrqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -3543,7 +3546,7 @@ dcl_sgrqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    sgrqvl_(&i_idx, &o_rpara);
+    sgrqvl__(&i_idx, &o_rpara);
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -3570,7 +3573,7 @@ dcl_sgrsvl(obj, idx, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    sgrsvl_(&i_idx, &i_rpara);
+    sgrsvl__(&i_idx, &i_rpara);
 
     return Qnil;
 
@@ -3591,7 +3594,7 @@ dcl_sgrqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    sgrqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    sgrqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -3606,7 +3609,7 @@ static VALUE
 dcl_sgpcmd(obj)
     VALUE obj;
 {
-    sgpcmd_();
+    sgpcmd__();
 
     return Qnil;
 
@@ -3629,7 +3632,7 @@ dcl_sgscmn(obj, nc)
     i_nc = NUM2INT(nc);
 
 
-    sgscmn_(&i_nc);
+    sgscmn__(&i_nc);
 
     return Qnil;
 
@@ -3646,7 +3649,7 @@ dcl_sgqcmn(obj)
     integer o_nmax;
     VALUE nmax;
 
-    sgqcmn_(&o_nmax);
+    sgqcmn__(&o_nmax);
 
     nmax = INT2NUM(o_nmax);
 
@@ -3687,7 +3690,7 @@ dcl_sgscwd(obj, cxmin, cxmax, cymin, cymax)
     i_cymax = (real)NUM2DBL(cymax);
 
 
-    sgscwd_(&i_cxmin, &i_cxmax, &i_cymin, &i_cymax);
+    sgscwd__(&i_cxmin, &i_cxmax, &i_cymin, &i_cymax);
 
     return Qnil;
 
@@ -3710,7 +3713,7 @@ dcl_sgqcwd(obj)
     VALUE cymin;
     VALUE cymax;
 
-    sgqcwd_(&o_cxmin, &o_cxmax, &o_cymin, &o_cymax);
+    sgqcwd__(&o_cxmin, &o_cxmax, &o_cymin, &o_cymax);
 
     cxmin = rb_float_new((double)o_cxmin);
     cxmax = rb_float_new((double)o_cxmax);
@@ -3751,7 +3754,7 @@ dcl_isgrgb(obj, ir, ig, ib)
     i_ib = NUM2INT(ib);
 
 
-    o_rtn_val = isgrgb_(&i_ir, &i_ig, &i_ib);
+    o_rtn_val = isgrgb__(&i_ir, &i_ig, &i_ib);
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -3777,7 +3780,7 @@ dcl_sgclst(obj, ccfile)
     i_ccfile = StringValuePtr(ccfile);
 
 
-    sgclst_(i_ccfile, (ftnlen)strlen(i_ccfile));
+    sgclst__(i_ccfile, (ftnlen)strlen(i_ccfile));
 
     return Qnil;
 
@@ -3806,7 +3809,7 @@ dcl_sgqcl(obj, num)
     i_num = NUM2INT(num);
 
 
-    sgqcl_(&i_num, &o_nr, &o_ng, &o_nb);
+    sgqcl__(&i_num, &o_nr, &o_ng, &o_nb);
 
     nr = INT2NUM(o_nr);
     ng = INT2NUM(o_ng);
@@ -3867,7 +3870,7 @@ dcl_sgplxu(obj, n, upx, upy, itype, index, icolor)
     i_upy = dcl_obj2crealary(upy);
 
 
-    sgplxu_(&i_n, i_upx, i_upy, &i_itype, &i_index, &i_icolor);
+    sgplxu__(&i_n, i_upx, i_upy, &i_itype, &i_index, &i_icolor);
 
     dcl_freecrealary(i_upx);
     dcl_freecrealary(i_upy);
@@ -3926,7 +3929,7 @@ dcl_sgplxv(obj, n, vpx, vpy, itype, index, icolor)
     i_vpy = dcl_obj2crealary(vpy);
 
 
-    sgplxv_(&i_n, i_vpx, i_vpy, &i_itype, &i_index, &i_icolor);
+    sgplxv__(&i_n, i_vpx, i_vpy, &i_itype, &i_index, &i_icolor);
 
     dcl_freecrealary(i_vpx);
     dcl_freecrealary(i_vpy);
@@ -3985,7 +3988,7 @@ dcl_sgplxr(obj, n, rpx, rpy, itype, index, icolor)
     i_rpy = dcl_obj2crealary(rpy);
 
 
-    sgplxr_(&i_n, i_rpx, i_rpy, &i_itype, &i_index, &i_icolor);
+    sgplxr__(&i_n, i_rpx, i_rpy, &i_itype, &i_index, &i_icolor);
 
     dcl_freecrealary(i_rpx);
     dcl_freecrealary(i_rpy);
@@ -4049,7 +4052,7 @@ dcl_sgpmxu(obj, n, upx, upy, itype, index, icolor, rsize)
     i_upy = dcl_obj2crealary(upy);
 
 
-    sgpmxu_(&i_n, i_upx, i_upy, &i_itype, &i_index, &i_icolor, &i_rsize);
+    sgpmxu__(&i_n, i_upx, i_upy, &i_itype, &i_index, &i_icolor, &i_rsize);
 
     dcl_freecrealary(i_upx);
     dcl_freecrealary(i_upy);
@@ -4113,7 +4116,7 @@ dcl_sgpmxv(obj, n, vpx, vpy, itype, index, icolor, rsize)
     i_vpy = dcl_obj2crealary(vpy);
 
 
-    sgpmxv_(&i_n, i_vpx, i_vpy, &i_itype, &i_index, &i_icolor, &i_rsize);
+    sgpmxv__(&i_n, i_vpx, i_vpy, &i_itype, &i_index, &i_icolor, &i_rsize);
 
     dcl_freecrealary(i_vpx);
     dcl_freecrealary(i_vpy);
@@ -4177,7 +4180,7 @@ dcl_sgpmxr(obj, n, rpx, rpy, itype, index, icolor, rsize)
     i_rpy = dcl_obj2crealary(rpy);
 
 
-    sgpmxr_(&i_n, i_rpx, i_rpy, &i_itype, &i_index, &i_icolor, &i_rsize);
+    sgpmxr__(&i_n, i_rpx, i_rpy, &i_itype, &i_index, &i_icolor, &i_rsize);
 
     dcl_freecrealary(i_rpx);
     dcl_freecrealary(i_rpy);
@@ -4238,7 +4241,7 @@ dcl_sgtxxu(obj, ux, uy, chars, rsize, irota, icent, index, icolor)
     i_icolor = NUM2INT(icolor);
 
 
-    sgtxxu_(&i_ux, &i_uy, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, &i_icolor, (ftnlen)strlen(i_chars));
+    sgtxxu__(&i_ux, &i_uy, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, &i_icolor, (ftnlen)strlen(i_chars));
 
     return Qnil;
 
@@ -4296,7 +4299,7 @@ dcl_sgtxxv(obj, vx, vy, chars, rsize, irota, icent, index, icolor)
     i_icolor = NUM2INT(icolor);
 
 
-    sgtxxv_(&i_vx, &i_vy, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, &i_icolor, (ftnlen)strlen(i_chars));
+    sgtxxv__(&i_vx, &i_vy, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, &i_icolor, (ftnlen)strlen(i_chars));
 
     return Qnil;
 
@@ -4354,7 +4357,7 @@ dcl_sgtxxr(obj, rx, ry, chars, rsize, irota, icent, index, icolor)
     i_icolor = NUM2INT(icolor);
 
 
-    sgtxxr_(&i_rx, &i_ry, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, &i_icolor, (ftnlen)strlen(i_chars));
+    sgtxxr__(&i_rx, &i_ry, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, &i_icolor, (ftnlen)strlen(i_chars));
 
     return Qnil;
 
@@ -4405,7 +4408,7 @@ dcl_sgtnxu(obj, n, upx, upy, itpat, icolor)
     i_upy = dcl_obj2crealary(upy);
 
 
-    sgtnxu_(&i_n, i_upx, i_upy, &i_itpat, &i_icolor);
+    sgtnxu__(&i_n, i_upx, i_upy, &i_itpat, &i_icolor);
 
     dcl_freecrealary(i_upx);
     dcl_freecrealary(i_upy);
@@ -4459,7 +4462,7 @@ dcl_sgtnxv(obj, n, vpx, vpy, itpat, icolor)
     i_vpy = dcl_obj2crealary(vpy);
 
 
-    sgtnxv_(&i_n, i_vpx, i_vpy, &i_itpat, &i_icolor);
+    sgtnxv__(&i_n, i_vpx, i_vpy, &i_itpat, &i_icolor);
 
     dcl_freecrealary(i_vpx);
     dcl_freecrealary(i_vpy);
@@ -4513,7 +4516,7 @@ dcl_sgtnxr(obj, n, rpx, rpy, itpat, icolor)
     i_rpy = dcl_obj2crealary(rpy);
 
 
-    sgtnxr_(&i_n, i_rpx, i_rpy, &i_itpat, &i_icolor);
+    sgtnxr__(&i_n, i_rpx, i_rpy, &i_itpat, &i_icolor);
 
     dcl_freecrealary(i_rpx);
     dcl_freecrealary(i_rpy);
@@ -4564,7 +4567,7 @@ dcl_sglnxu(obj, ux1, uy1, ux2, uy2, index, icolor)
     i_icolor = NUM2INT(icolor);
 
 
-    sglnxu_(&i_ux1, &i_uy1, &i_ux2, &i_uy2, &i_index, &i_icolor);
+    sglnxu__(&i_ux1, &i_uy1, &i_ux2, &i_uy2, &i_index, &i_icolor);
 
     return Qnil;
 
@@ -4612,7 +4615,7 @@ dcl_sglnxv(obj, vx1, vy1, vx2, vy2, index, icolor)
     i_icolor = NUM2INT(icolor);
 
 
-    sglnxv_(&i_vx1, &i_vy1, &i_vx2, &i_vy2, &i_index, &i_icolor);
+    sglnxv__(&i_vx1, &i_vy1, &i_vx2, &i_vy2, &i_index, &i_icolor);
 
     return Qnil;
 
@@ -4660,7 +4663,7 @@ dcl_sglnxr(obj, rx1, ry1, rx2, ry2, index, icolor)
     i_icolor = NUM2INT(icolor);
 
 
-    sglnxr_(&i_rx1, &i_ry1, &i_rx2, &i_ry2, &i_index, &i_icolor);
+    sglnxr__(&i_rx1, &i_ry1, &i_rx2, &i_ry2, &i_index, &i_icolor);
 
     return Qnil;
 
@@ -4713,7 +4716,7 @@ dcl_sglaxu(obj, ux1, uy1, ux2, uy2, itype, index, icolor)
     i_icolor = NUM2INT(icolor);
 
 
-    sglaxu_(&i_ux1, &i_uy1, &i_ux2, &i_uy2, &i_itype, &i_index, &i_icolor);
+    sglaxu__(&i_ux1, &i_uy1, &i_ux2, &i_uy2, &i_itype, &i_index, &i_icolor);
 
     return Qnil;
 
@@ -4766,7 +4769,7 @@ dcl_sglaxv(obj, vx1, vy1, vx2, vy2, itype, index, icolor)
     i_icolor = NUM2INT(icolor);
 
 
-    sglaxv_(&i_vx1, &i_vy1, &i_vx2, &i_vy2, &i_itype, &i_index, &i_icolor);
+    sglaxv__(&i_vx1, &i_vy1, &i_vx2, &i_vy2, &i_itype, &i_index, &i_icolor);
 
     return Qnil;
 
@@ -4819,7 +4822,7 @@ dcl_sglaxr(obj, rx1, ry1, rx2, ry2, itype, index, icolor)
     i_icolor = NUM2INT(icolor);
 
 
-    sglaxr_(&i_rx1, &i_ry1, &i_rx2, &i_ry2, &i_itype, &i_index, &i_icolor);
+    sglaxr__(&i_rx1, &i_ry1, &i_rx2, &i_ry2, &i_itype, &i_index, &i_icolor);
 
     return Qnil;