ruby-dcl 1.7.1 → 1.8.2

data/ext/numru/grph2_ugpack.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 *);
@@ -108,7 +111,7 @@ dcl_ugvect(obj, u, mu, v, mv, nx, ny)
     i_v = dcl_obj2crealary(v);
 
 
-    ugvect_(i_u, &i_mu, i_v, &i_mv, &i_nx, &i_ny);
+    ugvect__(i_u, &i_mu, i_v, &i_mv, &i_nx, &i_ny);
 
     dcl_freecrealary(i_u);
     dcl_freecrealary(i_v);
@@ -135,7 +138,7 @@ dcl_ugsut(obj, cside, cttl)
     i_cttl = StringValuePtr(cttl);
 
 
-    ugsut_(i_cside, i_cttl, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
+    ugsut__(i_cside, i_cttl, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
 
     return Qnil;
 
@@ -148,7 +151,7 @@ dcl_ugpqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    ugpqnp_(&o_ncp);
+    ugpqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -172,7 +175,7 @@ dcl_ugpqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ugpqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    ugpqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -198,7 +201,7 @@ dcl_ugpqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    ugpqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    ugpqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -224,7 +227,7 @@ dcl_ugpqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    ugpqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    ugpqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -248,7 +251,7 @@ dcl_ugpqit(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    ugpqit_(&i_idx, &o_itp);
+    ugpqit__(&i_idx, &o_itp);
 
     itp = INT2NUM(o_itp);
 
@@ -272,7 +275,7 @@ dcl_ugpqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    ugpqvl_(&i_idx, &o_ipara);
+    ugpqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -299,7 +302,7 @@ dcl_ugpsvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    ugpsvl_(&i_idx, &i_ipara);
+    ugpsvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -320,7 +323,7 @@ dcl_ugpqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ugpqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    ugpqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -344,7 +347,7 @@ dcl_ugiget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ugiget_(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
+    ugiget__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -371,7 +374,7 @@ dcl_ugiset(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    ugiset_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    ugiset__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -395,7 +398,7 @@ dcl_ugistx(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    ugistx_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    ugistx__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -408,7 +411,7 @@ dcl_ugiqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    ugiqnp_(&o_ncp);
+    ugiqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -432,7 +435,7 @@ dcl_ugiqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ugiqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    ugiqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -458,7 +461,7 @@ dcl_ugiqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    ugiqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    ugiqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -484,7 +487,7 @@ dcl_ugiqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    ugiqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    ugiqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -508,7 +511,7 @@ dcl_ugiqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    ugiqvl_(&i_idx, &o_ipara);
+    ugiqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -535,7 +538,7 @@ dcl_ugisvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    ugisvl_(&i_idx, &i_ipara);
+    ugisvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -556,7 +559,7 @@ dcl_ugiqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ugiqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    ugiqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -580,7 +583,7 @@ dcl_uglget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uglget_(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
+    uglget__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -604,7 +607,7 @@ dcl_uglset(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    uglset_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    uglset__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -625,7 +628,7 @@ dcl_uglstx(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    uglstx_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    uglstx__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -638,7 +641,7 @@ dcl_uglqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uglqnp_(&o_ncp);
+    uglqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -662,7 +665,7 @@ dcl_uglqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uglqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    uglqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -688,7 +691,7 @@ dcl_uglqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uglqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uglqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -714,7 +717,7 @@ dcl_uglqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uglqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uglqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -738,7 +741,7 @@ dcl_uglqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uglqvl_(&i_idx, &o_lpara);
+    uglqvl__(&i_idx, &o_lpara);
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -762,7 +765,7 @@ dcl_uglsvl(obj, idx, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    uglsvl_(&i_idx, &i_lpara);
+    uglsvl__(&i_idx, &i_lpara);
 
     return Qnil;
 
@@ -783,7 +786,7 @@ dcl_uglqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uglqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    uglqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -807,7 +810,7 @@ dcl_ugrget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ugrget_(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
+    ugrget__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -834,7 +837,7 @@ dcl_ugrset(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    ugrset_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    ugrset__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -858,7 +861,7 @@ dcl_ugrstx(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    ugrstx_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    ugrstx__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -871,7 +874,7 @@ dcl_ugrqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    ugrqnp_(&o_ncp);
+    ugrqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -895,7 +898,7 @@ dcl_ugrqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ugrqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    ugrqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -921,7 +924,7 @@ dcl_ugrqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    ugrqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    ugrqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -947,7 +950,7 @@ dcl_ugrqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    ugrqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    ugrqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -971,7 +974,7 @@ dcl_ugrqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    ugrqvl_(&i_idx, &o_rpara);
+    ugrqvl__(&i_idx, &o_rpara);
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -998,7 +1001,7 @@ dcl_ugrsvl(obj, idx, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    ugrsvl_(&i_idx, &i_rpara);
+    ugrsvl__(&i_idx, &i_rpara);
 
     return Qnil;
 
@@ -1019,7 +1022,7 @@ dcl_ugrqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ugrqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    ugrqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 

data/ext/numru/grph2_uhpack.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 *);
@@ -102,7 +105,7 @@ dcl_uherb(obj, n, upx1, upx2, upy)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uherb_(&i_n, i_upx1, i_upx2, i_upy);
+    uherb__(&i_n, i_upx1, i_upx2, i_upy);
 
     dcl_freecrealary(i_upx1);
     dcl_freecrealary(i_upx2);
@@ -167,7 +170,7 @@ dcl_uherbz(obj, n, upx1, upx2, upy, itype, index, rsize)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uherbz_(&i_n, i_upx1, i_upx2, i_upy, &i_itype, &i_index, &i_rsize);
+    uherbz__(&i_n, i_upx1, i_upx2, i_upy, &i_itype, &i_index, &i_rsize);
 
     dcl_freecrealary(i_upx1);
     dcl_freecrealary(i_upx2);
@@ -217,7 +220,7 @@ dcl_uhdif(obj, n, upx1, upx2, upy)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uhdif_(&i_n, i_upx1, i_upx2, i_upy);
+    uhdif__(&i_n, i_upx1, i_upx2, i_upy);
 
     dcl_freecrealary(i_upx1);
     dcl_freecrealary(i_upx2);
@@ -277,7 +280,7 @@ dcl_uhdifz(obj, n, upx1, upx2, upy, itpat1, itpat2)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uhdifz_(&i_n, i_upx1, i_upx2, i_upy, &i_itpat1, &i_itpat2);
+    uhdifz__(&i_n, i_upx1, i_upx2, i_upy, &i_itpat1, &i_itpat2);
 
     dcl_freecrealary(i_upx1);
     dcl_freecrealary(i_upx2);
@@ -327,7 +330,7 @@ dcl_uhbrf(obj, n, upx1, upx2, upy)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uhbrf_(&i_n, i_upx1, i_upx2, i_upy);
+    uhbrf__(&i_n, i_upx1, i_upx2, i_upy);
 
     dcl_freecrealary(i_upx1);
     dcl_freecrealary(i_upx2);
@@ -392,7 +395,7 @@ dcl_uhbrfz(obj, n, upx1, upx2, upy, itype, index, rsize)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uhbrfz_(&i_n, i_upx1, i_upx2, i_upy, &i_itype, &i_index, &i_rsize);
+    uhbrfz__(&i_n, i_upx1, i_upx2, i_upy, &i_itype, &i_index, &i_rsize);
 
     dcl_freecrealary(i_upx1);
     dcl_freecrealary(i_upx2);
@@ -442,7 +445,7 @@ dcl_uhbra(obj, n, upx1, upx2, upy)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uhbra_(&i_n, i_upx1, i_upx2, i_upy);
+    uhbra__(&i_n, i_upx1, i_upx2, i_upy);
 
     dcl_freecrealary(i_upx1);
     dcl_freecrealary(i_upx2);
@@ -507,7 +510,7 @@ dcl_uhbraz(obj, n, upx1, upx2, upy, itpat1, itpat2, rsize)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uhbraz_(&i_n, i_upx1, i_upx2, i_upy, &i_itpat1, &i_itpat2, &i_rsize);
+    uhbraz__(&i_n, i_upx1, i_upx2, i_upy, &i_itpat1, &i_itpat2, &i_rsize);
 
     dcl_freecrealary(i_upx1);
     dcl_freecrealary(i_upx2);
@@ -548,7 +551,7 @@ dcl_uhbrl(obj, n, upx, upy)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uhbrl_(&i_n, i_upx, i_upy);
+    uhbrl__(&i_n, i_upx, i_upy);
 
     dcl_freecrealary(i_upx);
     dcl_freecrealary(i_upy);
@@ -603,7 +606,7 @@ dcl_uhbrlz(obj, n, upx, upy, itype, index, rsize)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uhbrlz_(&i_n, i_upx, i_upy, &i_itype, &i_index, &i_rsize);
+    uhbrlz__(&i_n, i_upx, i_upy, &i_itype, &i_index, &i_rsize);
 
     dcl_freecrealary(i_upx);
     dcl_freecrealary(i_upy);
@@ -652,7 +655,7 @@ dcl_uhbxf(obj, n, upx1, upx2, upy)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uhbxf_(&i_n, i_upx1, i_upx2, i_upy);
+    uhbxf__(&i_n, i_upx1, i_upx2, i_upy);
 
     dcl_freecrealary(i_upx1);
     dcl_freecrealary(i_upx2);
@@ -712,7 +715,7 @@ dcl_uhbxfz(obj, n, upx1, upx2, upy, itype, index)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uhbxfz_(&i_n, i_upx1, i_upx2, i_upy, &i_itype, &i_index);
+    uhbxfz__(&i_n, i_upx1, i_upx2, i_upy, &i_itype, &i_index);
 
     dcl_freecrealary(i_upx1);
     dcl_freecrealary(i_upx2);
@@ -762,7 +765,7 @@ dcl_uhbxa(obj, n, upx1, upx2, upy)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uhbxa_(&i_n, i_upx1, i_upx2, i_upy);
+    uhbxa__(&i_n, i_upx1, i_upx2, i_upy);
 
     dcl_freecrealary(i_upx1);
     dcl_freecrealary(i_upx2);
@@ -803,7 +806,7 @@ dcl_uhbxl(obj, n, upx, upy)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uhbxl_(&i_n, i_upx, i_upy);
+    uhbxl__(&i_n, i_upx, i_upy);
 
     dcl_freecrealary(i_upx);
     dcl_freecrealary(i_upy);
@@ -862,7 +865,7 @@ dcl_uhbxaz(obj, n, upx1, upx2, upy, itpat1, itpat2)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uhbxaz_(&i_n, i_upx1, i_upx2, i_upy, &i_itpat1, &i_itpat2);
+    uhbxaz__(&i_n, i_upx1, i_upx2, i_upy, &i_itpat1, &i_itpat2);
 
     dcl_freecrealary(i_upx1);
     dcl_freecrealary(i_upx2);
@@ -913,7 +916,7 @@ dcl_uhbxlz(obj, n, upx, upy, itype, index)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uhbxlz_(&i_n, i_upx, i_upy, &i_itype, &i_index);
+    uhbxlz__(&i_n, i_upx, i_upy, &i_itype, &i_index);
 
     dcl_freecrealary(i_upx);
     dcl_freecrealary(i_upy);