gsl 1.16.0.6 → 2.1.0

data/ext/gsl_native/math.c

@@ -169,6 +169,21 @@ static VALUE rb_gsl_math_eval(double (*func)(const double), VALUE xx)
       return ary;
     }
 #endif
+
+#ifdef HAVE_NMATRIX_H
+    if (NM_IsNMatrix(xx)) {
+      NM_DENSE_STORAGE *nm;
+      double *ptr1, *ptr2;
+      nm = NM_STORAGE_DENSE(xx);
+      size = NM_ELEMENTS_COUNT(xx);
+      ptr1 = (double*) nm->elements;
+      ary = rb_nmatrix_dense_create(FLOAT64, nm->shape, nm->dim, nm->elements, 
+        size);
+      ptr2 = (double*)NM_DENSE_ELEMENTS(ary);
+      for (i = 0; i < size; i++) ptr2[i] = (*func)(ptr1[i]);
+      return ary;
+    }
+#endif
     if (VECTOR_P(xx)) {
       return vector_eval_create(xx, func);
     } else if (MATRIX_P(xx)) {
@@ -230,6 +245,23 @@ static VALUE rb_gsl_math_eval2(double (*func)(const double, const double), VALUE
       return ary;
     }
 #endif
+
+#ifdef HAVE_NMATRIX_H
+    if (NM_IsNMatrix(xx)) {
+      NM_DENSE_STORAGE *nmx, *nmy;
+      double *ptr1, *ptr2, *ptr3;
+      nmx = NM_STORAGE_DENSE(xx);
+      size = NM_ELEMENTS_COUNT(xx);
+      nmy = NM_STORAGE_DENSE(yy);
+      ptr1 = (double*) nmx->elements;
+      ptr2 = (double*) nmy->elements;
+      ary = rb_nmatrix_dense_create(FLOAT64, nmx->shape, nmx->dim, nmx->elements, 
+        size);
+      ptr3 = (double*)NM_DENSE_ELEMENTS(ary);
+      for (i = 0; i < size; i++) ptr3[i] = (*func)(ptr1[i], ptr2[i]);
+      return ary;
+    }
+#endif
     if (VECTOR_P(xx)) {
       CHECK_VECTOR(yy);
       Data_Get_Struct(xx, gsl_vector, v);
@@ -353,6 +385,21 @@ VALUE rb_gsl_pow(VALUE obj, VALUE xx, VALUE nn)
       for (i = 0; i < size; i++) ptr2[i] = pow(ptr1[i], n);
       return ary;
     }
+#endif
+#ifdef HAVE_NMATRIX_H
+    if (NM_IsNMatrix(xx)) {
+      NM_DENSE_STORAGE *nm;
+      double *ptr1, *ptr2;
+      n = NUM2DBL(nn);
+      nm = NM_STORAGE_DENSE(xx);
+      size = NM_ELEMENTS_COUNT(xx);
+      ptr1 = (double*) nm->elements;
+      ary = rb_nmatrix_dense_create(FLOAT64, nm->shape, nm->dim, nm->elements, 
+        size);
+      ptr2 = (double*)NM_DENSE_ELEMENTS(ary);
+      for (i = 0; i < size; i++) ptr2[i] = pow(ptr1[i], n);
+      return ary;
+    }
 #endif
     if (VECTOR_P(xx)) {
       n = NUM2DBL(nn);
@@ -430,6 +477,23 @@ static VALUE rb_gsl_pow_int(VALUE obj, VALUE xx, VALUE nn)
       return ary;
     }
 #endif
+
+#ifdef HAVE_NMATRIX_H
+    if (NM_IsNMatrix(xx)) {
+      NM_DENSE_STORAGE *nm;
+      double *ptr1, *ptr2;
+      CHECK_FIXNUM(nn);
+      n = FIX2INT(nn);
+      nm = NM_STORAGE_DENSE(xx);
+      size = NM_ELEMENTS_COUNT(xx);
+      ptr1 = (double*) nm->elements;
+      ary = rb_nmatrix_dense_create(FLOAT64, nm->shape, nm->dim, nm->elements, 
+        size);
+      ptr2 = (double*)NM_DENSE_ELEMENTS(ary);
+      for (i = 0; i < size; i++) ptr2[i] = gsl_pow_int(ptr1[i], n);
+      return ary;
+    }
+#endif
     if (VECTOR_P(xx)) {
       CHECK_FIXNUM(nn);
       n = FIX2INT(nn);

data/ext/gsl_native/multifit.c

@@ -324,6 +324,9 @@ static VALUE rb_gsl_multifit_fdfsolver_test_gradient(int argc, VALUE *argv, VALU
 {
   gsl_multifit_fdfsolver *solver = NULL;
   gsl_vector *g = NULL;
+#ifndef HAVE_GSL_MULTIFIT_FDFSOLVER_J
+  gsl_matrix *J = NULL;
+#endif
   int status;
   double epsabs;
   Data_Get_Struct(obj, gsl_multifit_fdfsolver, solver);
@@ -331,7 +334,14 @@ static VALUE rb_gsl_multifit_fdfsolver_test_gradient(int argc, VALUE *argv, VALU
   case 1:
     Need_Float(argv[0]);
     g = gsl_vector_alloc(solver->x->size);
+#ifdef HAVE_GSL_MULTIFIT_FDFSOLVER_J
     gsl_multifit_gradient(solver->J, solver->f, g);
+#else
+    J = gsl_matrix_alloc(solver->f->size, solver->x->size);
+    gsl_multifit_fdfsolver_jac(solver, J);
+    gsl_multifit_gradient(J, solver->f, g);
+    gsl_matrix_free(J);
+#endif
     epsabs = NUM2DBL(argv[0]);
     status = gsl_multifit_test_gradient(g, epsabs);
     gsl_vector_free(g);
@@ -353,15 +363,35 @@ static VALUE rb_gsl_multifit_fdfsolver_gradient(int argc, VALUE *argv, VALUE obj
 {
   gsl_multifit_fdfsolver *solver = NULL;
   gsl_vector *g = NULL;
+#ifndef HAVE_GSL_MULTIFIT_FDFSOLVER_J
+  gsl_matrix *J = gsl_matrix_alloc(solver->f->size, solver->x->size);
+#endif
   // local variable "status" declared and set, but never used
   //int status;
   Data_Get_Struct(obj, gsl_multifit_fdfsolver, solver);
+#ifndef HAVE_GSL_MULTIFIT_FDFSOLVER_J
+  gsl_multifit_fdfsolver_jac(solver, J);
+#endif
   if (argc == 1) {
+#ifndef HAVE_GSL_MULTIFIT_FDFSOLVER_J
+    int retval = 0;
+#endif
     Data_Get_Vector(argv[0], g);
+#ifdef HAVE_GSL_MULTIFIT_FDFSOLVER_J
     return INT2FIX(gsl_multifit_gradient(solver->J, solver->f, g));
+#else
+    retval = gsl_multifit_gradient(J, solver->f, g);
+    gsl_matrix_free(J);
+    return INT2FIX(retval);
+#endif
   } else {
     g = gsl_vector_alloc(solver->x->size);
+#ifdef HAVE_GSL_MULTIFIT_FDFSOLVER_J
     /*status =*/ gsl_multifit_gradient(solver->J, solver->f, g);
+#else
+    /*status =*/ gsl_multifit_gradient(J, solver->f, g);
+    gsl_matrix_free(J);
+#endif
     return Data_Wrap_Struct(cgsl_vector, 0, gsl_vector_free, g);
   }
 }
@@ -377,15 +407,33 @@ static VALUE rb_gsl_multifit_fdfsolver_covar(int argc, VALUE *argv, VALUE obj)
   Need_Float(argv[0]);
   Data_Get_Struct(obj, gsl_multifit_fdfsolver, solver);
   epsrel = NUM2DBL(argv[0]);
+#ifndef HAVE_GSL_MULTIFIT_FDFSOLVER_J
+  gsl_matrix *J = gsl_matrix_alloc(solver->f->size, solver->x->size);
+  gsl_multifit_fdfsolver_jac(solver, J);
+#endif
   switch (argc) {
+#ifndef HAVE_GSL_MULTIFIT_FDFSOLVER_J
+    int retval = 0;
+#endif
   case 1:
     covar = gsl_matrix_alloc(solver->x->size, solver->x->size);
+#ifdef HAVE_GSL_MULTIFIT_FDFSOLVER_J
     /*status =*/ gsl_multifit_covar(solver->J, epsrel, covar);
+#else
+    /*status =*/ gsl_multifit_covar(J, epsrel, covar);
+    gsl_matrix_free(J);
+#endif
     return Data_Wrap_Struct(cgsl_matrix, 0, gsl_matrix_free, covar);
     break;
   case 2:
     Data_Get_Matrix(argv[1], covar);
+#ifdef HAVE_GSL_MULTIFIT_FDFSOLVER_J
     return INT2FIX(gsl_multifit_covar(solver->J, epsrel, covar));
+#else
+    retval = gsl_multifit_covar(J, epsrel, covar);
+    gsl_matrix_free(J);
+    return INT2FIX(retval);
+#endif
     break;
   default:
     rb_raise(rb_eArgError, "wrong number of arguments");
@@ -418,7 +466,13 @@ static VALUE rb_gsl_multifit_fdfsolver_J(VALUE obj)
 {
   gsl_multifit_fdfsolver *solver = NULL;
   Data_Get_Struct(obj, gsl_multifit_fdfsolver, solver);
+#ifdef HAVE_GSL_MULTIFIT_FDFSOLVER_J
   return Data_Wrap_Struct(cgsl_matrix_view_ro, 0, NULL, solver->J);
+#else
+  gsl_matrix *J = gsl_matrix_alloc(solver->f->size, solver->x->size);
+  gsl_multifit_fdfsolver_jac(solver, J);
+  return Data_Wrap_Struct(cgsl_matrix_view_ro, 0, gsl_matrix_free, J);
+#endif
 }
 
 /* singleton */
@@ -1699,7 +1753,14 @@ static VALUE rb_gsl_multifit_fit(int argc, VALUE *argv, VALUE klass)
   covar = gsl_matrix_alloc(p, p);
   chi2 = gsl_pow_2(gsl_blas_dnrm2(solver->f));   /* not reduced chi-square */
   dof = n - p;
+#ifdef HAVE_GSL_MULTIFIT_FDFSOLVER_J
   gsl_multifit_covar(solver->J, 0.0, covar);
+#else
+  gsl_matrix *J = gsl_matrix_alloc(n,p);
+  gsl_multifit_fdfsolver_jac(solver, J);
+  gsl_multifit_covar(J, 0.0, covar);
+  gsl_matrix_free(J);
+#endif
   for (i = 0; i < p; i++)
     gsl_vector_set(verr, i, sqrt(chi2/dof*gsl_matrix_get(covar, i, i)));
   gsl_matrix_free(covar);

data/ext/gsl_native/randist.c

@@ -1316,6 +1316,20 @@ VALUE rb_gsl_eval_pdf_cdf(VALUE xx, double (*f)(double))
       return ary;
     }
 #endif
+
+#ifdef HAVE_NMATRIX_H
+    if (NM_IsNMatrix(xx)) {
+      NM_DENSE_STORAGE *nm;
+      double *ptr1, *ptr2;
+      nm = NM_STORAGE_DENSE(xx);
+      n = NM_DENSE_COUNT(xx);
+      ptr1 = (double *) nm->elements;
+      ary = rb_nmatrix_dense_create(FLOAT64, nm->shape, nm->dim, nm->elements, n);
+      ptr2 = (double*)NM_DENSE_ELEMENTS(ary);
+      for (i = 0; i < n; i++) ptr2[i] = (*f)(ptr1[i]);
+      return ary;
+    }
+#endif
     if (VECTOR_P(xx)) {
       Data_Get_Struct(xx, gsl_vector, v);
       vnew = gsl_vector_alloc(v->size);
@@ -1384,6 +1398,20 @@ VALUE rb_gsl_eval_pdf_cdf2(VALUE xx, VALUE aa,
       return ary;
     }
 #endif
+
+#ifdef HAVE_NMATRIX_H
+    if (NM_IsNMatrix(xx)) {
+      NM_DENSE_STORAGE *nm;
+      double *ptr1, *ptr2;
+      nm = NM_STORAGE_DENSE(xx);
+      n = NM_DENSE_COUNT(xx);
+      ptr1 = (double*) nm->elements;
+      ary = rb_nmatrix_dense_create(FLOAT64, nm->shape, nm->dim, nm->elements, n);
+      ptr2 = (double*)NM_DENSE_ELEMENTS(ary);
+      for (i = 0; i < n; i++) ptr2[i] = (*f)(ptr1[i], a);
+      return ary;
+    }
+#endif
     if (VECTOR_P(xx)) {
       Data_Get_Struct(xx, gsl_vector, v);
       vnew = gsl_vector_alloc(v->size);
@@ -1452,6 +1480,20 @@ VALUE rb_gsl_eval_pdf_cdf3(VALUE xx, VALUE aa, VALUE bb,
       return ary;
     }
 #endif
+
+#ifdef HAVE_NMATRIX_H
+    if (NM_IsNMatrix(xx)) {
+      NM_DENSE_STORAGE *nm;
+      double *ptr1, *ptr2;
+      nm = NM_STORAGE_DENSE(xx);
+      n = NM_DENSE_COUNT(xx);
+      ptr1 = (double *) nm->elements;
+      ary = rb_nmatrix_dense_create(FLOAT64, nm->shape, nm->dim, nm->elements, n);
+      ptr2 = (double*) NM_DENSE_ELEMENTS(ary);
+      for (i = 0; i < n; i++) ptr2[i] = (*f)(ptr1[i], a, b);
+      return ary;
+    }
+#endif
     if (VECTOR_P(xx)) {
       Data_Get_Struct(xx, gsl_vector, v);
       vnew = gsl_vector_alloc(v->size);

data/ext/gsl_native/sf.c

@@ -131,6 +131,12 @@ VALUE rb_gsl_sf_eval1(double (*func)(double), VALUE argv)
       return rb_gsl_nary_eval1(argv, func);
     }
 #endif
+
+#ifdef HAVE_NMATRIX_H
+    if (NM_IsNMatrix(argv)) {
+      return rb_gsl_nmatrix_eval1(argv, func);
+    }
+#endif
     if (MATRIX_P(argv)) {
       return matrix_eval_create(argv, func);
     } else if (VECTOR_P(argv)) {

data/ext/gsl_native/sf_ellint.c

@@ -82,17 +82,17 @@ static VALUE rb_gsl_sf_ellint_P_e(VALUE obj, VALUE phi, VALUE k,
 static VALUE rb_gsl_sf_ellint_D(int argc, VALUE *argv, VALUE obj)
 {
   if (argc == 3)
-    return rb_gsl_sf_eval_double3_m(gsl_sf_ellint_D, argv[0], argv[1], argv[2],
+    return rb_gsl_sf_eval_double2_m(gsl_sf_ellint_D, argv[0], argv[1],
                                     INT2FIX(GSL_PREC_DOUBLE));
   else
-    return rb_gsl_sf_eval_double3_m(gsl_sf_ellint_D, argv[0], argv[1], argv[2],
+    return rb_gsl_sf_eval_double2_m(gsl_sf_ellint_D, argv[0], argv[1],
                                     argv[3]);
 }
 
 static VALUE rb_gsl_sf_ellint_D_e(VALUE obj, VALUE phi, VALUE k,
-                                  VALUE n, VALUE m)
+                                  VALUE m)
 {
-  return rb_gsl_sf_eval_e_double3_m(gsl_sf_ellint_D_e, phi, k, n, m);
+  return rb_gsl_sf_eval_e_double2_m(gsl_sf_ellint_D_e, phi, k, m);
 }
 
 static VALUE rb_gsl_sf_ellint_RC(int argc, VALUE *argv, VALUE obj)

data/ext/gsl_native/sf_mathieu.c

@@ -133,11 +133,19 @@ static VALUE sf_mathieu_eval_e_int2_double2(VALUE n1, VALUE n2, VALUE qq, VALUE
 /**********/
 static VALUE rb_gsl_sf_mathieu_a_e(VALUE module, VALUE order, VALUE qq)
 {
+#ifdef HAVE_GSL_SF_MATHIEU_A_E
+  return rb_gsl_sf_eval_e_int_double(gsl_sf_mathieu_a_e, order, qq);
+#else
   return rb_gsl_sf_eval_e_int_double(gsl_sf_mathieu_a, order, qq);
+#endif
 }
 static VALUE rb_gsl_sf_mathieu_a(VALUE module, VALUE order, VALUE qq)
 {
+#ifdef HAVE_GSL_SF_MATHIEU_A_E
+  return sf_mathieu_eval(order, qq, gsl_sf_mathieu_a_e);
+#else
   return sf_mathieu_eval(order, qq, gsl_sf_mathieu_a);
+#endif
 }
 static VALUE rb_gsl_sf_mathieu_a_array(VALUE module, int argc, VALUE *argv)
 {
@@ -145,11 +153,19 @@ static VALUE rb_gsl_sf_mathieu_a_array(VALUE module, int argc, VALUE *argv)
 }
 static VALUE rb_gsl_sf_mathieu_b_e(VALUE module, VALUE order, VALUE qq)
 {
+#ifdef HAVE_GSL_SF_MATHIEU_B_E
+  return rb_gsl_sf_eval_e_int_double(gsl_sf_mathieu_b_e, order, qq);
+#else
   return rb_gsl_sf_eval_e_int_double(gsl_sf_mathieu_b, order, qq);
+#endif
 }
 static VALUE rb_gsl_sf_mathieu_b(VALUE module, VALUE order, VALUE qq)
 {
+#ifdef HAVE_GSL_SF_MATHIEU_B_E
+  return sf_mathieu_eval(order, qq, gsl_sf_mathieu_b_e);
+#else
   return sf_mathieu_eval(order, qq, gsl_sf_mathieu_b);
+#endif
 }
 static VALUE rb_gsl_sf_mathieu_b_array(VALUE module, int argc, VALUE *argv)
 {
@@ -157,11 +173,19 @@ static VALUE rb_gsl_sf_mathieu_b_array(VALUE module, int argc, VALUE *argv)
 }
 static VALUE rb_gsl_sf_mathieu_ce_e(VALUE module, VALUE order, VALUE qq, VALUE zz)
 {
+#ifdef HAVE_GSL_SF_MATHIEU_CE_E
+  return sf_mathieu_eval_e_int_double2(order, qq, zz, gsl_sf_mathieu_ce_e);
+#else
   return sf_mathieu_eval_e_int_double2(order, qq, zz, gsl_sf_mathieu_ce);
+#endif
 }
 static VALUE rb_gsl_sf_mathieu_ce(VALUE module, VALUE order, VALUE qq, VALUE zz)
 {
+#ifdef HAVE_GSL_SF_MATHIEU_CE_E
+  return sf_mathieu_eval_int_double2(order, qq, zz, gsl_sf_mathieu_ce_e);
+#else
   return sf_mathieu_eval_int_double2(order, qq, zz, gsl_sf_mathieu_ce);
+#endif
 }
 static VALUE rb_gsl_sf_mathieu_ce_array(VALUE module, int argc, VALUE *argv)
 {
@@ -169,11 +193,19 @@ static VALUE rb_gsl_sf_mathieu_ce_array(VALUE module, int argc, VALUE *argv)
 }
 static VALUE rb_gsl_sf_mathieu_se_e(VALUE module, VALUE order, VALUE qq, VALUE zz)
 {
+#ifdef HAVE_GSL_SF_MATHIEU_SE_E
+  return sf_mathieu_eval_e_int_double2(order, qq, zz, gsl_sf_mathieu_se_e);
+#else
   return sf_mathieu_eval_e_int_double2(order, qq, zz, gsl_sf_mathieu_se);
+#endif
 }
 static VALUE rb_gsl_sf_mathieu_se(VALUE module, VALUE order, VALUE qq, VALUE zz)
 {
+#ifdef HAVE_GSL_SF_MATHIEU_SE_E
+  return sf_mathieu_eval_int_double2(order, qq, zz, gsl_sf_mathieu_se_e);
+#else
   return sf_mathieu_eval_int_double2(order, qq, zz, gsl_sf_mathieu_se);
+#endif
 }
 static VALUE rb_gsl_sf_mathieu_se_array(VALUE module, int argc, VALUE *argv)
 {
@@ -183,11 +215,19 @@ static VALUE rb_gsl_sf_mathieu_se_array(VALUE module, int argc, VALUE *argv)
 /*****/
 static VALUE rb_gsl_sf_mathieu_Mc_e(VALUE module, VALUE n1, VALUE n2, VALUE q, VALUE x)
 {
+#ifdef HAVE_GSL_SF_MATHIEU_MC_E
+  return sf_mathieu_eval_e_int2_double2(n1, n2, q, x, gsl_sf_mathieu_Mc_e);
+#else
   return sf_mathieu_eval_e_int2_double2(n1, n2, q, x, gsl_sf_mathieu_Mc);
+#endif
 }
 static VALUE rb_gsl_sf_mathieu_Mc(VALUE module, VALUE n1, VALUE n2, VALUE q, VALUE x)
 {
+#ifdef HAVE_GSL_SF_MATHIEU_MC_E
+  return sf_mathieu_eval2(n1, n2, q, x, gsl_sf_mathieu_Mc_e);
+#else
   return sf_mathieu_eval2(n1, n2, q, x, gsl_sf_mathieu_Mc);
+#endif
 }
 static VALUE rb_gsl_sf_mathieu_Mc_array(VALUE module, int argc, VALUE *argv)
 {
@@ -195,11 +235,19 @@ static VALUE rb_gsl_sf_mathieu_Mc_array(VALUE module, int argc, VALUE *argv)
 }
 static VALUE rb_gsl_sf_mathieu_Ms_e(VALUE module, VALUE n1, VALUE n2, VALUE q, VALUE x)
 {
+#ifdef HAVE_GSL_SF_MATHIEU_MS_E
+  return sf_mathieu_eval_e_int2_double2(n1, n2, q, x, gsl_sf_mathieu_Ms_e);
+#else
   return sf_mathieu_eval_e_int2_double2(n1, n2, q, x, gsl_sf_mathieu_Ms);
+#endif
 }
 static VALUE rb_gsl_sf_mathieu_Ms(VALUE module, VALUE n1, VALUE n2, VALUE q, VALUE x)
 {
+#ifdef HAVE_GSL_SF_MATHIEU_MS_E
+  return sf_mathieu_eval2(n1, n2, q, x, gsl_sf_mathieu_Ms_e);
+#else
   return sf_mathieu_eval2(n1, n2, q, x, gsl_sf_mathieu_Ms);
+#endif
 }
 static VALUE rb_gsl_sf_mathieu_Ms_array(VALUE module, int argc, VALUE *argv)
 {

data/ext/gsl_native/spline.c

@@ -85,6 +85,14 @@ static VALUE rb_gsl_spline_init(VALUE obj, VALUE xxa, VALUE yya)
     size = nax->total;
     ptr1 = (double *) nax->ptr;
 #endif
+#ifdef HAVE_NARRAY_H
+  } else if (NM_IsNMatrix(xxa)) {
+    NM_DENSE_STORAGE *nmx = NULL;
+    nmx = NM_STORAGE_DENSE(xxa);
+    size = NM_DENSE_COUNT(xxa);
+    ptr1 = (double *) nmx->elements;
+#endif
+
   } else {
     rb_raise(rb_eTypeError, "not a vector");
   }
@@ -99,6 +107,13 @@ static VALUE rb_gsl_spline_init(VALUE obj, VALUE xxa, VALUE yya)
     GetNArray(yya, nay);
     ptr2 = (double *) nay->ptr;
 #endif
+
+#ifdef HAVE_NARRAY_H
+  } else if (NM_IsNMatrix(yya)) {
+    NM_DENSE_STORAGE *nmy;
+    nmy = NM_STORAGE_DENSE(yya);
+    ptr2 = (double *) nmy->elements;
+#endif
   } else if (VECTOR_P(yya)) {
     Data_Get_Struct(yya, gsl_vector, ya);
     ptr2 = ya->data;
@@ -162,6 +177,21 @@ static VALUE rb_gsl_spline_evaluate(VALUE obj, VALUE xx,
       return ary;
     }
 #endif
+
+#ifdef HAVE_NMATRIX_H
+    if (NM_IsNMatrix(xx)) {
+      double *ptr1 = NULL, *ptr2 = NULL;
+      NM_DENSE_STORAGE *nm = NULL;
+      nm = NM_STORAGE_DENSE(xx);
+      n = NM_DENSE_COUNT(xx);
+      ptr1 = (double *) nm->elements;
+      ary = rb_nmatrix_dense_create(FLOAT64, nm->shape, nm->dim, nm->elements, n);
+      ptr2 = (double*)NM_DENSE_ELEMENTS(ary);
+      for (i = 0; i < n; i++)
+        ptr2[i] = (*eval)(rgs->s, ptr1[i], rgs->a);
+      return ary;
+    }
+#endif
     if (VECTOR_P(xx)) {
       Data_Get_Struct(xx, gsl_vector, v);
       vnew = gsl_vector_alloc(v->size);