ext/array.c in gsl-1.14.7 vs ext/array.c in gsl-1.15.3

- old
+ new

@@ -167,25 +167,10 @@ { size_t i; for (i = 0; i < v->size; i++) gsl_vector_set(v, i, a[i]); } -void cvector_set_from_rarrays(gsl_vector *v, VALUE ary) -{ - if (CLASS_OF(ary) == rb_cRange) ary = rb_gsl_range2ary(ary); - if (TYPE(ary) == T_ARRAY) { - return cvector_set_from_rarray(v, ary); -#ifdef HAVE_NARRAY_H - } else if (NA_IsNArray(ary)) { - return cvector_set_from_narray(v, ary); -#endif - } else { - rb_raise(rb_eTypeError, - "wrong argument type %s", rb_class2name(CLASS_OF(ary))); - } -} - void carray_set_from_cvector(double *a, const gsl_vector *v) { size_t i; for (i = 0; i < v->size; i++) a[i] = gsl_vector_get(v, i); } @@ -253,18 +238,9 @@ memcpy(v->data, NA_PTR_TYPE(ary2,double*), size*sizeof(double)); /* cvector_set_from_narray(v, ary);*/ return v; } -void cvector_set_from_narray(gsl_vector *v, VALUE ary) -{ - int size; - if (!NA_IsNArray(ary)) - rb_raise(rb_eTypeError, - "wrong argument type %s", rb_class2name(CLASS_OF(ary))); - size = NA_TOTAL(ary); - carray_set_from_narray(v->data, ary); -} #endif gsl_vector_complex* make_vector_complex_clone(const gsl_vector_complex *v) { gsl_vector_complex *vnew = NULL;