ruby-dcl 1.8.1 → 1.8.2

data/ext/numru/grph2_ulpack.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -89,7 +88,7 @@ dcl_ulxlog(obj, cside, nlbl, nticks)
     i_nticks = NUM2INT(nticks);
 
 
-    ulxlog_(i_cside, &i_nlbl, &i_nticks, (ftnlen)strlen(i_cside));
+    ulxlog__(i_cside, &i_nlbl, &i_nticks, (ftnlen)strlen(i_cside));
 
     return Qnil;
 
@@ -118,7 +117,7 @@ dcl_ulylog(obj, cside, nlbl, nticks)
     i_nticks = NUM2INT(nticks);
 
 
-    ulylog_(i_cside, &i_nlbl, &i_nticks, (ftnlen)strlen(i_cside));
+    ulylog__(i_cside, &i_nlbl, &i_nticks, (ftnlen)strlen(i_cside));
 
     return Qnil;
 
@@ -142,7 +141,7 @@ dcl_ulxlbl(obj, inum)
 
     o_bl= ALLOCA_N(real, (o_nbl));
 
-    ulxlbl_(o_bl, &o_nbl, &i_inum);
+    ulxlbl__(o_bl, &o_nbl, &i_inum);
 
     {int array_shape[1] = {o_nbl};
      bl = dcl_crealary2obj(o_bl, (o_nbl), 1, array_shape);
@@ -176,7 +175,7 @@ dcl_ulsxbl(obj, bl, nbl)
     i_bl = dcl_obj2crealary(bl);
 
 
-    ulsxbl_(i_bl, &i_nbl);
+    ulsxbl__(i_bl, &i_nbl);
 
     dcl_freecrealary(i_bl);
 
@@ -195,7 +194,7 @@ dcl_ulqxbl(obj)
 
     o_bl= ALLOCA_N(real, (o_nbl));
 
-    ulqxbl_(o_bl, &o_nbl);
+    ulqxbl__(o_bl, &o_nbl);
 
     {int array_shape[1] = {o_nbl};
      bl = dcl_crealary2obj(o_bl, (o_nbl), 1, array_shape);
@@ -225,7 +224,7 @@ dcl_ulylbl(obj, inum)
 
     o_bl= ALLOCA_N(real, (o_nbl));
 
-    ulylbl_(o_bl, &o_nbl, &i_inum);
+    ulylbl__(o_bl, &o_nbl, &i_inum);
 
     {int array_shape[1] = {o_nbl};
      bl = dcl_crealary2obj(o_bl, (o_nbl), 1, array_shape);
@@ -259,7 +258,7 @@ dcl_ulsybl(obj, bl, nbl)
     i_bl = dcl_obj2crealary(bl);
 
 
-    ulsybl_(i_bl, &i_nbl);
+    ulsybl__(i_bl, &i_nbl);
 
     dcl_freecrealary(i_bl);
 
@@ -278,7 +277,7 @@ dcl_ulqybl(obj)
 
     o_bl= ALLOCA_N(real, (o_nbl));
 
-    ulqybl_(o_bl, &o_nbl);
+    ulqybl__(o_bl, &o_nbl);
 
     {int array_shape[1] = {o_nbl};
      bl = dcl_crealary2obj(o_bl, (o_nbl), 1, array_shape);
@@ -297,7 +296,7 @@ dcl_ulpqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    ulpqnp_(&o_ncp);
+    ulpqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -321,7 +320,7 @@ dcl_ulpqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ulpqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    ulpqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -347,7 +346,7 @@ dcl_ulpqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    ulpqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    ulpqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -373,7 +372,7 @@ dcl_ulpqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    ulpqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    ulpqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -397,7 +396,7 @@ dcl_ulpqit(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    ulpqit_(&i_idx, &o_itp);
+    ulpqit__(&i_idx, &o_itp);
 
     itp = INT2NUM(o_itp);
 
@@ -421,7 +420,7 @@ dcl_ulpqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    ulpqvl_(&i_idx, &o_ipara);
+    ulpqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -448,7 +447,7 @@ dcl_ulpsvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    ulpsvl_(&i_idx, &i_ipara);
+    ulpsvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -469,7 +468,7 @@ dcl_ulpqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ulpqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    ulpqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -493,7 +492,7 @@ dcl_uliget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uliget_(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
+    uliget__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -520,7 +519,7 @@ dcl_uliset(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    uliset_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    uliset__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -544,7 +543,7 @@ dcl_ulistx(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    ulistx_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    ulistx__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -557,7 +556,7 @@ dcl_uliqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uliqnp_(&o_ncp);
+    uliqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -581,7 +580,7 @@ dcl_uliqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uliqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    uliqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -607,7 +606,7 @@ dcl_uliqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uliqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uliqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -633,7 +632,7 @@ dcl_uliqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uliqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uliqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -657,7 +656,7 @@ dcl_uliqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uliqvl_(&i_idx, &o_ipara);
+    uliqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -684,7 +683,7 @@ dcl_ulisvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    ulisvl_(&i_idx, &i_ipara);
+    ulisvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -705,7 +704,7 @@ dcl_uliqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uliqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    uliqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -729,7 +728,7 @@ dcl_ullget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ullget_(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
+    ullget__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -753,7 +752,7 @@ dcl_ullset(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    ullset_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    ullset__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -774,7 +773,7 @@ dcl_ullstx(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    ullstx_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    ullstx__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -787,7 +786,7 @@ dcl_ullqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    ullqnp_(&o_ncp);
+    ullqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -811,7 +810,7 @@ dcl_ullqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ullqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    ullqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -837,7 +836,7 @@ dcl_ullqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    ullqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    ullqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -863,7 +862,7 @@ dcl_ullqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    ullqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    ullqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -887,7 +886,7 @@ dcl_ullqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    ullqvl_(&i_idx, &o_lpara);
+    ullqvl__(&i_idx, &o_lpara);
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -911,7 +910,7 @@ dcl_ullsvl(obj, idx, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    ullsvl_(&i_idx, &i_lpara);
+    ullsvl__(&i_idx, &i_lpara);
 
     return Qnil;
 
@@ -932,7 +931,7 @@ dcl_ullqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ullqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    ullqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -956,7 +955,7 @@ dcl_ulrget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ulrget_(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
+    ulrget__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -983,7 +982,7 @@ dcl_ulrset(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    ulrset_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    ulrset__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1007,7 +1006,7 @@ dcl_ulrstx(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    ulrstx_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    ulrstx__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1020,7 +1019,7 @@ dcl_ulrqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    ulrqnp_(&o_ncp);
+    ulrqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1044,7 +1043,7 @@ dcl_ulrqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ulrqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    ulrqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -1070,7 +1069,7 @@ dcl_ulrqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    ulrqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    ulrqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1096,7 +1095,7 @@ dcl_ulrqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    ulrqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    ulrqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1120,7 +1119,7 @@ dcl_ulrqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    ulrqvl_(&i_idx, &o_rpara);
+    ulrqvl__(&i_idx, &o_rpara);
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -1147,7 +1146,7 @@ dcl_ulrsvl(obj, idx, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    ulrsvl_(&i_idx, &i_rpara);
+    ulrsvl__(&i_idx, &i_rpara);
 
     return Qnil;
 
@@ -1168,7 +1167,7 @@ dcl_ulrqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ulrqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    ulrqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -1190,7 +1189,7 @@ dcl_ulxsfm(obj, cxfmt)
     i_cxfmt = StringValuePtr(cxfmt);
 
 
-    ulxsfm_(i_cxfmt, (ftnlen)strlen(i_cxfmt));
+    ulxsfm__(i_cxfmt, (ftnlen)strlen(i_cxfmt));
 
     return Qnil;
 
@@ -1206,7 +1205,7 @@ dcl_ulxqfm(obj)
     o_cxfmt= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cxfmt, '\0', DFLT_SIZE+1);
 
-    ulxqfm_(o_cxfmt, (ftnlen)DFLT_SIZE);
+    ulxqfm__(o_cxfmt, (ftnlen)DFLT_SIZE);
 
     cxfmt = rb_str_new2(o_cxfmt);
 
@@ -1228,7 +1227,7 @@ dcl_ulysfm(obj, cyfmt)
     i_cyfmt = StringValuePtr(cyfmt);
 
 
-    ulysfm_(i_cyfmt, (ftnlen)strlen(i_cyfmt));
+    ulysfm__(i_cyfmt, (ftnlen)strlen(i_cyfmt));
 
     return Qnil;
 
@@ -1244,7 +1243,7 @@ dcl_ulyqfm(obj)
     o_cyfmt= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cyfmt, '\0', DFLT_SIZE+1);
 
-    ulyqfm_(o_cyfmt, (ftnlen)DFLT_SIZE);
+    ulyqfm__(o_cyfmt, (ftnlen)DFLT_SIZE);
 
     cyfmt = rb_str_new2(o_cyfmt);