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;