rb-gsl 1.16.0.4 → 1.16.0.5

data/ext/{gsl → gsl_native}/sf_bessel.c

@@ -45,7 +45,7 @@ static VALUE rb_gsl_sf_bessel_Jn_e(VALUE obj, VALUE n, VALUE x)
 }
 
 static VALUE rb_gsl_sf_bessel_Xn_array(VALUE obj, VALUE n0, VALUE n1, VALUE x,
-				       int (*f)(int, int, double, double[]))
+                                       int (*f)(int, int, double, double[]))
 {
   int nmin, nmax, n;
   gsl_vector *v = NULL;
@@ -167,7 +167,7 @@ static VALUE rb_gsl_sf_bessel_In_scaled_e(VALUE obj, VALUE n, VALUE x)
 }
 
 static VALUE rb_gsl_sf_bessel_In_scaled_array(VALUE obj, VALUE n0, VALUE n1,
-					      VALUE x)
+                                              VALUE x)
 {
   return rb_gsl_sf_bessel_Xn_array(obj, n0, n1, x, gsl_sf_bessel_In_scaled_array);
 }
@@ -239,7 +239,7 @@ static VALUE rb_gsl_sf_bessel_Kn_scaled_e(VALUE obj, VALUE n, VALUE x)
 }
 
 static VALUE rb_gsl_sf_bessel_Kn_scaled_array(VALUE obj, VALUE n0, VALUE n1,
-					      VALUE x)
+                                              VALUE x)
 {
   return rb_gsl_sf_bessel_Xn_array(obj, n0, n1, x, gsl_sf_bessel_Kn_scaled_array);
 }
@@ -286,7 +286,7 @@ static VALUE rb_gsl_sf_bessel_jl_e(VALUE obj, VALUE n, VALUE x)
 }
 
 static VALUE rb_gsl_sf_bessel_xl_array(VALUE obj, VALUE n1, VALUE x,
-				       int (*f)(int, double, double[]))
+                                       int (*f)(int, double, double[]))
 {
   int nmax, n;
   // local variable "status" declared and set, but never used
@@ -446,7 +446,7 @@ static VALUE rb_gsl_sf_bessel_kl_scaled_e(VALUE obj, VALUE n, VALUE x)
 }
 
 static VALUE rb_gsl_sf_bessel_kl_scaled_array(VALUE obj, VALUE n1,
-					      VALUE x)
+                                              VALUE x)
 {
   return rb_gsl_sf_bessel_xl_array(obj, n1, x, gsl_sf_bessel_kl_scaled_array);
 }
@@ -497,7 +497,7 @@ static VALUE rb_gsl_sf_bessel_sequence_Jnu_e(int argc, VALUE *argv, VALUE obj)
       break;
     default:
       rb_raise(rb_eTypeError, "wrong argument type %s (String or Fixnum expected)",
-	       rb_class2name(CLASS_OF(m)));
+               rb_class2name(CLASS_OF(m)));
       break;
     }
   default:

data/ext/{gsl → gsl_native}/sf_coulomb.c

@@ -23,15 +23,15 @@ static VALUE rb_gsl_sf_hydrogenicR_1_e(VALUE obj,  VALUE Z, VALUE r)
   return rb_gsl_sf_eval_e_double2(gsl_sf_hydrogenicR_1_e, Z, r);
 }
 
-static VALUE rb_gsl_sf_hydrogenicR(VALUE obj, VALUE n, VALUE l, 
-				   VALUE Z, VALUE r)
+static VALUE rb_gsl_sf_hydrogenicR(VALUE obj, VALUE n, VALUE l,
+                                   VALUE Z, VALUE r)
 {
   return rb_float_new(gsl_sf_hydrogenicR(FIX2INT(n), FIX2INT(l),
-					   NUM2DBL(Z), NUM2DBL(r)));
+                                         NUM2DBL(Z), NUM2DBL(r)));
 }
 
-static VALUE rb_gsl_sf_hydrogenicR_e(VALUE obj, VALUE n, VALUE l, 
-				     VALUE Z, VALUE r)
+static VALUE rb_gsl_sf_hydrogenicR_e(VALUE obj, VALUE n, VALUE l,
+                                     VALUE Z, VALUE r)
 {
   gsl_sf_result *rslt = NULL;
   VALUE v;
@@ -41,12 +41,12 @@ static VALUE rb_gsl_sf_hydrogenicR_e(VALUE obj, VALUE n, VALUE 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),
-			    NUM2DBL(Z), NUM2DBL(r), rslt);
+                                    NUM2DBL(Z), NUM2DBL(r), rslt);
   return v;
 }
 
 static VALUE rb_gsl_sf_coulomb_wave_FG_e(VALUE obj, VALUE eta, VALUE x,
-					 VALUE L_F, VALUE k)
+                                         VALUE L_F, VALUE k)
 
 {
   gsl_sf_result *F, *Fp, *G, *Gp;
@@ -60,13 +60,13 @@ static VALUE rb_gsl_sf_coulomb_wave_FG_e(VALUE obj, VALUE eta, VALUE x,
   vG = Data_Make_Struct(cgsl_sf_result, gsl_sf_result, 0, free, G);
   vGp = Data_Make_Struct(cgsl_sf_result, gsl_sf_result, 0, free, Gp);
   status = gsl_sf_coulomb_wave_FG_e(NUM2DBL(eta), NUM2DBL(x), NUM2DBL(L_F),
-				    FIX2INT(k), F, Fp, G, Gp, &exp_F, &exp_G);
+                                    FIX2INT(k), F, Fp, G, Gp, &exp_F, &exp_G);
   return rb_ary_new3(7, vF, vFp, vG, vGp,
-		     rb_float_new(exp_F), rb_float_new(exp_G), INT2FIX(status));
+                     rb_float_new(exp_F), rb_float_new(exp_G), INT2FIX(status));
 }
 
 static VALUE rb_gsl_sf_coulomb_wave_F_array(VALUE obj, VALUE Lmin, VALUE kmax,
-					 VALUE eta, VALUE x)
+                                            VALUE eta, VALUE x)
 {
   double F_exponent;
   int status;
@@ -76,15 +76,15 @@ static VALUE rb_gsl_sf_coulomb_wave_F_array(VALUE obj, VALUE Lmin, VALUE kmax,
   Need_Float(Lmin); Need_Float(eta); Need_Float(x);
   size = FIX2INT(kmax);
   v = gsl_vector_alloc(size);
-  status = gsl_sf_coulomb_wave_F_array(NUM2DBL(Lmin), size, NUM2DBL(eta), 
-				   NUM2DBL(x), v->data, &F_exponent);
-  
-  return rb_ary_new3(3, Data_Wrap_Struct(cgsl_vector, 0, gsl_vector_free, v), 
-		     rb_float_new(F_exponent), INT2FIX(status));
+  status = gsl_sf_coulomb_wave_F_array(NUM2DBL(Lmin), size, NUM2DBL(eta),
+                                       NUM2DBL(x), v->data, &F_exponent);
+
+  return rb_ary_new3(3, Data_Wrap_Struct(cgsl_vector, 0, gsl_vector_free, v),
+                     rb_float_new(F_exponent), INT2FIX(status));
 }
 
 static VALUE rb_gsl_sf_coulomb_wave_FG_array(VALUE obj, VALUE Lmin, VALUE kmax,
-					 VALUE eta, VALUE x)
+                                             VALUE eta, VALUE x)
 {
   double F_exponent, G_exponent;
   int status;
@@ -97,18 +97,18 @@ static VALUE rb_gsl_sf_coulomb_wave_FG_array(VALUE obj, VALUE Lmin, VALUE kmax,
   vf = gsl_vector_alloc(size);
   vg = gsl_vector_alloc(size);
 
-  status = gsl_sf_coulomb_wave_FG_array(NUM2DBL(Lmin), size, NUM2DBL(eta), 
-				   NUM2DBL(x), vf->data, vg->data,
-				    &F_exponent, &G_exponent);
+  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);
   gary = Data_Wrap_Struct(cgsl_vector, 0, gsl_vector_free, vf);
   return rb_ary_new3(5, fary, gary,
-		     rb_float_new(F_exponent), rb_float_new(G_exponent),
-		     INT2FIX(status));
+                     rb_float_new(F_exponent), rb_float_new(G_exponent),
+                     INT2FIX(status));
 }
 
 static VALUE rb_gsl_sf_coulomb_wave_FGp_array(VALUE obj, VALUE Lmin, VALUE kmax,
-					 VALUE eta, VALUE x)
+                                              VALUE eta, VALUE x)
 {
   double F_exponent, G_exponent;
   int status;
@@ -123,21 +123,21 @@ static VALUE rb_gsl_sf_coulomb_wave_FGp_array(VALUE obj, VALUE Lmin, VALUE kmax,
   vg = gsl_vector_alloc(size);
   vgp = gsl_vector_alloc(size);
 
-  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);
+  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);
   fary = Data_Wrap_Struct(cgsl_vector, 0, gsl_vector_free, vf);
-  fpary =Data_Wrap_Struct(cgsl_vector, 0, gsl_vector_free, vfp);
+  fpary = Data_Wrap_Struct(cgsl_vector, 0, gsl_vector_free, vfp);
   gary = Data_Wrap_Struct(cgsl_vector, 0, gsl_vector_free, vg);
-  gpary =Data_Wrap_Struct(cgsl_vector, 0, gsl_vector_free, vgp);
+  gpary = Data_Wrap_Struct(cgsl_vector, 0, gsl_vector_free, vgp);
   return rb_ary_new3(7, fary, fpary, gary, gpary,
-		     rb_float_new(F_exponent), rb_float_new(G_exponent),
-		     INT2FIX(status));
+                     rb_float_new(F_exponent), rb_float_new(G_exponent),
+                     INT2FIX(status));
 }
 
 static VALUE rb_gsl_sf_coulomb_wave_sphF_array(VALUE obj, VALUE Lmin, VALUE kmax,
-					 VALUE eta, VALUE x)
+                                               VALUE eta, VALUE x)
 {
   int status;
   size_t size;
@@ -147,11 +147,11 @@ static VALUE rb_gsl_sf_coulomb_wave_sphF_array(VALUE obj, VALUE Lmin, VALUE kmax
   size = FIX2INT(kmax);
   v = gsl_vector_alloc(size);
   v2 = gsl_vector_alloc(size);
-  status =  gsl_sf_coulomb_wave_sphF_array(NUM2DBL(Lmin), size, NUM2DBL(eta), 
-				       NUM2DBL(x), v->data, v2->data);
-  return rb_ary_new3(3, Data_Wrap_Struct(cgsl_vector, 0, gsl_vector_free, v), 
-		     Data_Wrap_Struct(cgsl_vector, 0, gsl_vector_free, v2), 
-		     INT2FIX(status));
+  status =  gsl_sf_coulomb_wave_sphF_array(NUM2DBL(Lmin), size, NUM2DBL(eta),
+                                           NUM2DBL(x), v->data, v2->data);
+  return rb_ary_new3(3, Data_Wrap_Struct(cgsl_vector, 0, gsl_vector_free, v),
+                     Data_Wrap_Struct(cgsl_vector, 0, gsl_vector_free, v2),
+                     INT2FIX(status));
 }
 
 static VALUE rb_gsl_sf_coulomb_CL_e(VALUE obj, VALUE L, VALUE eta)
@@ -160,14 +160,14 @@ static VALUE rb_gsl_sf_coulomb_CL_e(VALUE obj, VALUE L, VALUE eta)
 }
 
 static VALUE rb_gsl_sf_coulomb_CL_array(VALUE obj, VALUE Lmin, VALUE kmax,
-					VALUE eta)
+                                        VALUE eta)
 {
   gsl_vector *v = NULL;
   size_t size;
   // local variable "status" declared and set, but never used
   //int status;
   CHECK_FIXNUM(kmax);
-  Need_Float(Lmin); Need_Float(eta); 
+  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);
@@ -191,7 +191,7 @@ void Init_gsl_sf_coulomb(VALUE module)
   rb_define_module_function(module, "coulomb_CL_array",  rb_gsl_sf_coulomb_CL_array, 3);
 
   mgsl_sf_coulomb = rb_define_module_under(module, "Coulomb");
-  
+
   rb_define_module_function(mgsl_sf_coulomb, "hydrogenicR_1",  rb_gsl_sf_hydrogenicR_1, 2);
   rb_define_module_function(mgsl_sf_coulomb, "hydrogenicR_1_e",  rb_gsl_sf_hydrogenicR_1_e, 2);
   rb_define_module_function(mgsl_sf_coulomb, "hydrogenicR",  rb_gsl_sf_hydrogenicR, 4);

data/ext/{gsl → gsl_native}/sf_coupling.c

@@ -12,16 +12,16 @@
 
 #include "include/rb_gsl_sf.h"
 
-static VALUE rb_gsl_sf_coupling_3j(VALUE obj, VALUE two_ja, VALUE two_jb, VALUE two_jc, VALUE two_ma, VALUE two_mb, VALUE two_mc) 
+static VALUE rb_gsl_sf_coupling_3j(VALUE obj, VALUE two_ja, VALUE two_jb, VALUE two_jc, VALUE two_ma, VALUE two_mb, VALUE two_mc)
 {
   CHECK_FIXNUM(two_ja); CHECK_FIXNUM(two_jb); CHECK_FIXNUM(two_jc);
   CHECK_FIXNUM(two_ma); CHECK_FIXNUM(two_mb); CHECK_FIXNUM(two_mc);
   return rb_float_new(gsl_sf_coupling_3j(FIX2INT(two_ja), FIX2INT(two_jb),
-					 FIX2INT(two_jc), FIX2INT(two_ma),
-					 FIX2INT(two_mb), FIX2INT(two_mc)));
+                                         FIX2INT(two_jc), FIX2INT(two_ma),
+                                         FIX2INT(two_mb), FIX2INT(two_mc)));
 }
 
-static VALUE rb_gsl_sf_coupling_3j_e(VALUE obj, VALUE two_ja, VALUE two_jb, VALUE two_jc, VALUE two_ma, VALUE two_mb, VALUE two_mc) 
+static VALUE rb_gsl_sf_coupling_3j_e(VALUE obj, VALUE two_ja, VALUE two_jb, VALUE two_jc, VALUE two_ma, VALUE two_mb, VALUE two_mc)
 {
   gsl_sf_result *rslt = NULL;
   VALUE v;
@@ -31,23 +31,23 @@ static VALUE rb_gsl_sf_coupling_3j_e(VALUE obj, VALUE two_ja, VALUE two_jb, VALU
   CHECK_FIXNUM(two_ma); CHECK_FIXNUM(two_mb); CHECK_FIXNUM(two_mc);
   v = Data_Make_Struct(cgsl_sf_result, gsl_sf_result, 0, free, rslt);
   /*status =*/ gsl_sf_coupling_3j_e(FIX2INT(two_ja), FIX2INT(two_jb),
-			  FIX2INT(two_jc), FIX2INT(two_ma),
-			  FIX2INT(two_mb), FIX2INT(two_mc),
-			  rslt);
+                                    FIX2INT(two_jc), FIX2INT(two_ma),
+                                    FIX2INT(two_mb), FIX2INT(two_mc),
+                                    rslt);
 
   return v;
 }
 
-static VALUE rb_gsl_sf_coupling_6j(VALUE obj, VALUE two_ja, VALUE two_jb, VALUE two_jc, VALUE two_jd, VALUE two_je, VALUE two_jf) 
+static VALUE rb_gsl_sf_coupling_6j(VALUE obj, VALUE two_ja, VALUE two_jb, VALUE two_jc, VALUE two_jd, VALUE two_je, VALUE two_jf)
 {
   CHECK_FIXNUM(two_ja); CHECK_FIXNUM(two_jb); CHECK_FIXNUM(two_jc);
   CHECK_FIXNUM(two_jd); CHECK_FIXNUM(two_je); CHECK_FIXNUM(two_jf);
   return rb_float_new(gsl_sf_coupling_6j(FIX2INT(two_ja), FIX2INT(two_jb),
-					 FIX2INT(two_jc), FIX2INT(two_jd),
-					 FIX2INT(two_je), FIX2INT(two_jf)));
+                                         FIX2INT(two_jc), FIX2INT(two_jd),
+                                         FIX2INT(two_je), FIX2INT(two_jf)));
 }
 
-static VALUE rb_gsl_sf_coupling_6j_e(VALUE obj, VALUE two_ja, VALUE two_jb, VALUE two_jc, VALUE two_jd, VALUE two_je, VALUE two_jf) 
+static VALUE rb_gsl_sf_coupling_6j_e(VALUE obj, VALUE two_ja, VALUE two_jb, VALUE two_jc, VALUE two_jd, VALUE two_je, VALUE two_jf)
 {
   gsl_sf_result *rslt = NULL;
   VALUE v;
@@ -57,31 +57,31 @@ static VALUE rb_gsl_sf_coupling_6j_e(VALUE obj, VALUE two_ja, VALUE two_jb, VALU
   CHECK_FIXNUM(two_jd); CHECK_FIXNUM(two_je); CHECK_FIXNUM(two_jf);
   v = Data_Make_Struct(cgsl_sf_result, gsl_sf_result, 0, free, rslt);
   /*status =*/ gsl_sf_coupling_6j_e(FIX2INT(two_ja), FIX2INT(two_jb),
-			  FIX2INT(two_jc), FIX2INT(two_jd),
-			  FIX2INT(two_je), FIX2INT(two_jf),
-			  rslt);
+                                    FIX2INT(two_jc), FIX2INT(two_jd),
+                                    FIX2INT(two_je), FIX2INT(two_jf),
+                                    rslt);
   return v;
 }
 
 static VALUE rb_gsl_sf_coupling_9j(VALUE obj, VALUE two_ja, VALUE two_jb,
-				   VALUE two_jc, VALUE two_jd, VALUE two_je,
-				   VALUE two_jf, VALUE two_jg, VALUE two_jh,
-				   VALUE two_ji) 
+                                   VALUE two_jc, VALUE two_jd, VALUE two_je,
+                                   VALUE two_jf, VALUE two_jg, VALUE two_jh,
+                                   VALUE two_ji)
 {
   CHECK_FIXNUM(two_ja); CHECK_FIXNUM(two_jb); CHECK_FIXNUM(two_jc);
   CHECK_FIXNUM(two_jd); CHECK_FIXNUM(two_je); CHECK_FIXNUM(two_jf);
   CHECK_FIXNUM(two_jg); CHECK_FIXNUM(two_jh); CHECK_FIXNUM(two_ji);
   return rb_float_new(gsl_sf_coupling_9j(FIX2INT(two_ja), FIX2INT(two_jb),
-					FIX2INT(two_jc), FIX2INT(two_jd),
-					FIX2INT(two_je), FIX2INT(two_jf),
-					FIX2INT(two_jg), FIX2INT(two_jh),
-					FIX2INT(two_ji)));
+                                         FIX2INT(two_jc), FIX2INT(two_jd),
+                                         FIX2INT(two_je), FIX2INT(two_jf),
+                                         FIX2INT(two_jg), FIX2INT(two_jh),
+                                         FIX2INT(two_ji)));
 }
 
 static VALUE rb_gsl_sf_coupling_9j_e(VALUE obj, VALUE two_ja, VALUE two_jb,
-				   VALUE two_jc, VALUE two_jd, VALUE two_je,
-				   VALUE two_jf, VALUE two_jg, VALUE two_jh,
-				   VALUE two_ji) 
+                                     VALUE two_jc, VALUE two_jd, VALUE two_je,
+                                     VALUE two_jf, VALUE two_jg, VALUE two_jh,
+                                     VALUE two_ji)
 {
   gsl_sf_result *rslt = NULL;
   VALUE v;
@@ -92,10 +92,10 @@ static VALUE rb_gsl_sf_coupling_9j_e(VALUE obj, VALUE two_ja, VALUE two_jb,
   CHECK_FIXNUM(two_jg); CHECK_FIXNUM(two_jh); CHECK_FIXNUM(two_ji);
   v = Data_Make_Struct(cgsl_sf_result, gsl_sf_result, 0, free, rslt);
   /*status =*/ gsl_sf_coupling_9j_e(FIX2INT(two_ja), FIX2INT(two_jb),
-			   FIX2INT(two_jc), FIX2INT(two_jd),
-			   FIX2INT(two_je), FIX2INT(two_jf),
-			   FIX2INT(two_jg), FIX2INT(two_jh),
-			   FIX2INT(two_ji), rslt);
+                                    FIX2INT(two_jc), FIX2INT(two_jd),
+                                    FIX2INT(two_je), FIX2INT(two_jf),
+                                    FIX2INT(two_jg), FIX2INT(two_jh),
+                                    FIX2INT(two_ji), rslt);
   return v;
 }
 
@@ -111,7 +111,7 @@ void Init_gsl_sf_coupling(VALUE module)
   rb_define_module_function(module, "coupling_9j_e",  rb_gsl_sf_coupling_9j_e, 9);
 
   mgsl_sf_coupling = rb_define_module_under(module, "Coupling");
-  
+
   rb_define_module_function(mgsl_sf_coupling, "3j",  rb_gsl_sf_coupling_3j, 6);
   rb_define_module_function(mgsl_sf_coupling, "3j_e",  rb_gsl_sf_coupling_3j_e, 6);
   rb_define_module_function(mgsl_sf_coupling, "6j",  rb_gsl_sf_coupling_6j, 6);

data/ext/{gsl → gsl_native}/sf_debye.c

@@ -83,21 +83,18 @@ static VALUE rb_gsl_sf_debye_n(int argc, VALUE *argv, VALUE obj)
   case 4:
     return rb_gsl_sf_eval1(gsl_sf_debye_4, x);
     break;
-#ifdef GSL_1_8_LATER
   case 5:
     return rb_gsl_sf_eval1(gsl_sf_debye_5, x);
     break;
   case 6:
     return rb_gsl_sf_eval1(gsl_sf_debye_6, x);
     break;
-#endif
   default:
     rb_raise(rb_eRuntimeError, "n must be 1, 2, 3, or 4");
     break;
   }
 }
 
-#ifdef GSL_1_8_LATER
 static VALUE rb_gsl_sf_debye_5(VALUE obj, VALUE x)
 {
   return rb_gsl_sf_eval1(gsl_sf_debye_5, x);
@@ -117,8 +114,6 @@ static VALUE rb_gsl_sf_debye_6_e(VALUE obj, VALUE x)
   return rb_gsl_sf_eval_e(gsl_sf_debye_6_e, x);
 }
 
-#endif
-
 void Init_gsl_sf_debye(VALUE module)
 {
   VALUE mgsl_sf_debye;
@@ -130,12 +125,10 @@ void Init_gsl_sf_debye(VALUE module)
   rb_define_module_function(module, "debye_3_e",  rb_gsl_sf_debye_3_e, 1);
   rb_define_module_function(module, "debye_4",  rb_gsl_sf_debye_4, 1);
   rb_define_module_function(module, "debye_4_e",  rb_gsl_sf_debye_4_e, 1);
-#ifdef GSL_1_8_LATER
   rb_define_module_function(module, "debye_5",  rb_gsl_sf_debye_5, 1);
   rb_define_module_function(module, "debye_5_e",  rb_gsl_sf_debye_5_e, 1);
   rb_define_module_function(module, "debye_6",  rb_gsl_sf_debye_6, 1);
   rb_define_module_function(module, "debye_6_e",  rb_gsl_sf_debye_6_e, 1);
-#endif
   rb_define_module_function(module, "debye_n",  rb_gsl_sf_debye_n, -1);
 
   mgsl_sf_debye = rb_define_module_under(module, "Debye");
@@ -147,11 +140,9 @@ void Init_gsl_sf_debye(VALUE module)
   rb_define_module_function(mgsl_sf_debye, "three_e",  rb_gsl_sf_debye_3_e, 1);
   rb_define_module_function(mgsl_sf_debye, "four",  rb_gsl_sf_debye_4, 1);
   rb_define_module_function(mgsl_sf_debye, "four_e",  rb_gsl_sf_debye_4_e, 1);
-#ifdef GSL_1_8_LATER
   rb_define_module_function(mgsl_sf_debye, "five",  rb_gsl_sf_debye_5, 1);
   rb_define_module_function(mgsl_sf_debye, "five_e",  rb_gsl_sf_debye_5_e, 1);
   rb_define_module_function(mgsl_sf_debye, "six",  rb_gsl_sf_debye_6, 1);
   rb_define_module_function(mgsl_sf_debye, "six_e",  rb_gsl_sf_debye_6_e, 1);
-#endif
   rb_define_module_function(mgsl_sf_debye, "n",  rb_gsl_sf_debye_n, -1);
 }

data/ext/{gsl → gsl_native}/sf_elementary.c

@@ -25,7 +25,7 @@ static VALUE rb_gsl_sf_multiply_e(VALUE obj, VALUE x, VALUE y)
 }
 
 static VALUE rb_gsl_sf_multiply_err_e(VALUE obj, VALUE x, VALUE dx,
-				      VALUE y, VALUE dy)
+                                      VALUE y, VALUE dy)
 {
   gsl_sf_result *r;
   VALUE v;
@@ -35,7 +35,7 @@ static VALUE rb_gsl_sf_multiply_err_e(VALUE obj, VALUE x, VALUE dx,
   Need_Float(dx); Need_Float(dy);
   v = Data_Make_Struct(cgsl_sf_result, gsl_sf_result, 0, free, r);
   /*status =*/ gsl_sf_multiply_err_e(NUM2DBL(x), NUM2DBL(dx),
-				 NUM2DBL(y), NUM2DBL(dy), r);
+                                     NUM2DBL(y), NUM2DBL(dy), r);
   return v;
 }
 

data/ext/{gsl → gsl_native}/sf_ellint.c

@@ -36,10 +36,10 @@ static VALUE rb_gsl_sf_ellint_Ecomp_e(VALUE obj, VALUE k, VALUE m)
 
 static VALUE rb_gsl_sf_ellint_F(int argc, VALUE *argv, VALUE obj)
 {
-  if (argc == 2) 
-    return rb_gsl_sf_eval_double2_m(gsl_sf_ellint_F, argv[0], argv[1], 
-				    INT2FIX(GSL_PREC_DOUBLE));
-  else 
+  if (argc == 2)
+    return rb_gsl_sf_eval_double2_m(gsl_sf_ellint_F, argv[0], argv[1],
+                                    INT2FIX(GSL_PREC_DOUBLE));
+  else
     return rb_gsl_sf_eval_double2_m(gsl_sf_ellint_F, argv[0], argv[1], argv[2]);
 }
 
@@ -50,10 +50,10 @@ static VALUE rb_gsl_sf_ellint_F_e(VALUE obj, VALUE phi, VALUE k, VALUE m)
 
 static VALUE rb_gsl_sf_ellint_E(int argc, VALUE *argv, VALUE obj)
 {
-  if (argc == 2) 
-    return rb_gsl_sf_eval_double2_m(gsl_sf_ellint_E, argv[0], argv[1], 
-				    INT2FIX(GSL_PREC_DOUBLE));
-  else 
+  if (argc == 2)
+    return rb_gsl_sf_eval_double2_m(gsl_sf_ellint_E, argv[0], argv[1],
+                                    INT2FIX(GSL_PREC_DOUBLE));
+  else
     return rb_gsl_sf_eval_double2_m(gsl_sf_ellint_E, argv[0], argv[1], argv[2]);
 }
 
@@ -65,42 +65,42 @@ static VALUE rb_gsl_sf_ellint_E_e(VALUE obj, VALUE phi, VALUE k, VALUE m)
 static VALUE rb_gsl_sf_ellint_P(int argc, VALUE *argv, VALUE obj)
 
 {
-  if (argc == 3) 
+  if (argc == 3)
     return rb_gsl_sf_eval_double3_m(gsl_sf_ellint_P, argv[0], argv[1], argv[2],
-				    INT2FIX(GSL_PREC_DOUBLE));
-  else 
+                                    INT2FIX(GSL_PREC_DOUBLE));
+  else
     return rb_gsl_sf_eval_double3_m(gsl_sf_ellint_P, argv[0], argv[1], argv[2],
-				    argv[3]);
+                                    argv[3]);
 }
 
-static VALUE rb_gsl_sf_ellint_P_e(VALUE obj, VALUE phi, VALUE k, 
-				  VALUE n, VALUE m)
+static VALUE rb_gsl_sf_ellint_P_e(VALUE obj, VALUE phi, VALUE k,
+                                  VALUE n, VALUE m)
 {
   return rb_gsl_sf_eval_e_double3_m(gsl_sf_ellint_P_e, phi, k, n, m);
 }
 
 static VALUE rb_gsl_sf_ellint_D(int argc, VALUE *argv, VALUE obj)
 {
-  if (argc == 3) 
+  if (argc == 3)
     return rb_gsl_sf_eval_double3_m(gsl_sf_ellint_D, argv[0], argv[1], argv[2],
-				    INT2FIX(GSL_PREC_DOUBLE));
-  else 
+                                    INT2FIX(GSL_PREC_DOUBLE));
+  else
     return rb_gsl_sf_eval_double3_m(gsl_sf_ellint_D, argv[0], argv[1], argv[2],
-				    argv[3]);
+                                    argv[3]);
 }
 
-static VALUE rb_gsl_sf_ellint_D_e(VALUE obj, VALUE phi, VALUE k, 
-				  VALUE n, VALUE m)
+static VALUE rb_gsl_sf_ellint_D_e(VALUE obj, VALUE phi, VALUE k,
+                                  VALUE n, VALUE m)
 {
   return rb_gsl_sf_eval_e_double3_m(gsl_sf_ellint_D_e, phi, k, n, m);
 }
 
 static VALUE rb_gsl_sf_ellint_RC(int argc, VALUE *argv, VALUE obj)
 {
-  if (argc == 2) 
-    return rb_gsl_sf_eval_double2_m(gsl_sf_ellint_RC, argv[0], argv[1], 
-				    INT2FIX(GSL_PREC_DOUBLE));
-  else 
+  if (argc == 2)
+    return rb_gsl_sf_eval_double2_m(gsl_sf_ellint_RC, argv[0], argv[1],
+                                    INT2FIX(GSL_PREC_DOUBLE));
+  else
     return rb_gsl_sf_eval_double2_m(gsl_sf_ellint_RC, argv[0], argv[1], argv[2]);
 }
 
@@ -111,48 +111,48 @@ static VALUE rb_gsl_sf_ellint_RC_e(VALUE obj, VALUE x, VALUE y, VALUE m)
 
 static VALUE rb_gsl_sf_ellint_RD(int argc, VALUE *argv, VALUE obj)
 {
-  if (argc == 3) 
+  if (argc == 3)
     return rb_gsl_sf_eval_double3_m(gsl_sf_ellint_RD, argv[0], argv[1], argv[2],
-				    INT2FIX(GSL_PREC_DOUBLE));
-  else 
+                                    INT2FIX(GSL_PREC_DOUBLE));
+  else
     return rb_gsl_sf_eval_double3_m(gsl_sf_ellint_RD, argv[0], argv[1], argv[2],
-				    argv[3]);
+                                    argv[3]);
 }
 
-static VALUE rb_gsl_sf_ellint_RD_e(VALUE obj, VALUE x, VALUE y, 
-				   VALUE z, VALUE m)
+static VALUE rb_gsl_sf_ellint_RD_e(VALUE obj, VALUE x, VALUE y,
+                                   VALUE z, VALUE m)
 {
   return rb_gsl_sf_eval_e_double3_m(gsl_sf_ellint_RD_e, x, y, z, m);
 }
 
 static VALUE rb_gsl_sf_ellint_RF(int argc, VALUE *argv, VALUE obj)
 {
-  if (argc == 3) 
+  if (argc == 3)
     return rb_gsl_sf_eval_double3_m(gsl_sf_ellint_RF, argv[0], argv[1], argv[2],
-				    INT2FIX(GSL_PREC_DOUBLE));
-  else 
+                                    INT2FIX(GSL_PREC_DOUBLE));
+  else
     return rb_gsl_sf_eval_double3_m(gsl_sf_ellint_RF, argv[0], argv[1], argv[2],
-				    argv[3]);
+                                    argv[3]);
 }
 
-static VALUE rb_gsl_sf_ellint_RF_e(VALUE obj, VALUE x, VALUE y, 
-				   VALUE z, VALUE m)
+static VALUE rb_gsl_sf_ellint_RF_e(VALUE obj, VALUE x, VALUE y,
+                                   VALUE z, VALUE m)
 {
   return rb_gsl_sf_eval_e_double3_m(gsl_sf_ellint_RF_e, x, y, z, m);
 }
 
 static VALUE rb_gsl_sf_ellint_RJ(int argc, VALUE *argv, VALUE obj)
 {
-  if (argc == 4) 
+  if (argc == 4)
     return rb_gsl_sf_eval_double4_m(gsl_sf_ellint_RJ, argv[0], argv[1], argv[2],
-				    argv[3], INT2FIX(GSL_PREC_DOUBLE));
-  else 
+                                    argv[3], INT2FIX(GSL_PREC_DOUBLE));
+  else
     return rb_gsl_sf_eval_double4_m(gsl_sf_ellint_RJ, argv[0], argv[1], argv[2],
-				    argv[3], argv[4]);
+                                    argv[3], argv[4]);
 }
 
-static VALUE rb_gsl_sf_ellint_RJ_e(VALUE obj, VALUE x, VALUE y, 
-				   VALUE z, VALUE p, VALUE m)
+static VALUE rb_gsl_sf_ellint_RJ_e(VALUE obj, VALUE x, VALUE y,
+                                   VALUE z, VALUE p, VALUE m)
 {
   return rb_gsl_sf_eval_e_double4_m(gsl_sf_ellint_RJ_e, x, y, z, p, m);
 }