ruby-dcl 1.8.1 → 1.8.2

data/ext/numru/grph2_ugpack.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -112,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);
@@ -139,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;
 
@@ -152,7 +151,7 @@ dcl_ugpqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    ugpqnp_(&o_ncp);
+    ugpqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -176,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);
 
@@ -202,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);
 
@@ -228,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);
 
@@ -252,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);
 
@@ -276,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);
 
@@ -303,7 +302,7 @@ dcl_ugpsvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    ugpsvl_(&i_idx, &i_ipara);
+    ugpsvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -324,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);
 
@@ -348,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);
 
@@ -375,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;
 
@@ -399,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;
 
@@ -412,7 +411,7 @@ dcl_ugiqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    ugiqnp_(&o_ncp);
+    ugiqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -436,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);
 
@@ -462,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);
 
@@ -488,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);
 
@@ -512,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);
 
@@ -539,7 +538,7 @@ dcl_ugisvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    ugisvl_(&i_idx, &i_ipara);
+    ugisvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -560,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);
 
@@ -584,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;
 
@@ -608,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;
 
@@ -629,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;
 
@@ -642,7 +641,7 @@ dcl_uglqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uglqnp_(&o_ncp);
+    uglqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -666,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);
 
@@ -692,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);
 
@@ -718,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);
 
@@ -742,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;
 
@@ -766,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;
 
@@ -787,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);
 
@@ -811,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);
 
@@ -838,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;
 
@@ -862,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;
 
@@ -875,7 +874,7 @@ dcl_ugrqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    ugrqnp_(&o_ncp);
+    ugrqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -899,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);
 
@@ -925,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);
 
@@ -951,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);
 
@@ -975,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);
 
@@ -1002,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;
 
@@ -1023,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

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -106,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);
@@ -171,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);
@@ -221,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);
@@ -281,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);
@@ -331,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);
@@ -396,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);
@@ -446,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);
@@ -511,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);
@@ -552,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);
@@ -607,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);
@@ -656,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);
@@ -716,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);
@@ -766,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);
@@ -807,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);
@@ -866,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);
@@ -917,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);