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

@@ -33,15 +33,16 @@
 static VALUE rb_gsl_sf_hydrogenicR_e(VALUE obj, VALUE n, VALUE l, 
 				     VALUE Z, VALUE r)
 {
   gsl_sf_result *rslt = NULL;
   VALUE v;
-  int status;
+  // local variable "status" declared and set, but never used
+  //int status;
   CHECK_FIXNUM(n); CHECK_FIXNUM(l);
   Need_Float(Z); Need_Float(r);
   v = Data_Make_Struct(cgsl_sf_result, gsl_sf_result, 0, free, rslt);
-  status = gsl_sf_hydrogenicR_e(FIX2INT(n), FIX2INT(l),
+  /*status =*/ gsl_sf_hydrogenicR_e(FIX2INT(n), FIX2INT(l),
 			    NUM2DBL(Z), NUM2DBL(r), rslt);
   return v;
 }
 
 static VALUE rb_gsl_sf_coulomb_wave_FG_e(VALUE obj, VALUE eta, VALUE x,
@@ -85,19 +86,18 @@
 static VALUE rb_gsl_sf_coulomb_wave_FG_array(VALUE obj, VALUE Lmin, VALUE kmax,
 					 VALUE eta, VALUE x)
 {
   double F_exponent, G_exponent;
   int status;
-  size_t size, stride;
+  size_t size;
   gsl_vector *vf = NULL, *vg = NULL;
   VALUE fary, gary;
   CHECK_FIXNUM(kmax);
   Need_Float(Lmin); Need_Float(eta); Need_Float(x);
   size = FIX2INT(kmax);
   vf = gsl_vector_alloc(size);
   vg = gsl_vector_alloc(size);
-  stride = vf->stride;
 
   status = gsl_sf_coulomb_wave_FG_array(NUM2DBL(Lmin), size, NUM2DBL(eta), 
 				   NUM2DBL(x), vf->data, vg->data,
 				    &F_exponent, &G_exponent);
   fary = Data_Wrap_Struct(cgsl_vector, 0, gsl_vector_free, vf);
@@ -110,21 +110,20 @@
 static VALUE rb_gsl_sf_coulomb_wave_FGp_array(VALUE obj, VALUE Lmin, VALUE kmax,
 					 VALUE eta, VALUE x)
 {
   double F_exponent, G_exponent;
   int status;
-  size_t size, stride;
+  size_t size;
   gsl_vector *vf = NULL, *vg = NULL, *vfp = NULL, *vgp = NULL;
   VALUE fary, gary, fpary, gpary;
   CHECK_FIXNUM(kmax);
   Need_Float(Lmin); Need_Float(eta); Need_Float(x);
   size = FIX2INT(kmax);
   vf = gsl_vector_alloc(size);
   vfp = gsl_vector_alloc(size);
   vg = gsl_vector_alloc(size);
   vgp = gsl_vector_alloc(size);
-  stride = vf->stride;
 
   status = gsl_sf_coulomb_wave_FGp_array(NUM2DBL(Lmin), size, NUM2DBL(eta), 
 				     NUM2DBL(x), vf->data, vfp->data, 
 				     vg->data, vgp->data,
 				     &F_exponent, &G_exponent);
@@ -163,15 +162,16 @@
 static VALUE rb_gsl_sf_coulomb_CL_array(VALUE obj, VALUE Lmin, VALUE kmax,
 					VALUE eta)
 {
   gsl_vector *v = NULL;
   size_t size;
-  int status;
+  // local variable "status" declared and set, but never used
+  //int status;
   CHECK_FIXNUM(kmax);
   Need_Float(Lmin); Need_Float(eta); 
   size = FIX2INT(kmax);
   v = gsl_vector_alloc(size);
-  status = gsl_sf_coulomb_CL_array(NUM2DBL(Lmin), size, NUM2DBL(eta), v->data);
+  /*status =*/ gsl_sf_coulomb_CL_array(NUM2DBL(Lmin), size, NUM2DBL(eta), v->data);
   return Data_Wrap_Struct(cgsl_vector, 0, gsl_vector_free, v);
 }
 
 void Init_gsl_sf_coulomb(VALUE module)
 {