This is the mail archive of the gsl-discuss@sourceware.cygnus.com mailing list for the GSL project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

Building gsl-0.4.1 on SGI IRIX 6.x


Hi,

I tried to build gsl 0.4.1 on an IRIX 6.x machine.  I had a number of
problems.  Attached are my notes and some diffs to work around build
issues.  I never did get all the self-tests to pass; if they really work
on other machines please let me know.

The diffs are pretty long, but a couple changes -- fixing "extern
inline" and inconsistent "const" declarations -- account for most of it.

	David

-- 
David KAELBLING <drk@sgi.com>	    Silicon Graphics Computer Systems
1 Cabot Rd; Hudson, MA 01749	    978.567.2157  Fax: 978.562.4755
- In many places the definitions and declarations disagree about
  whether various parameters are "const".  (See attached diffs)
- When compiling without inlining GSL_MODE_PREC in prec.c is a macro,
  causing various syntax errors.  (See attached diffs)
- The current IRIX compilers disallow "extern inline".  (See attached diffs)
- Having an inline declaration in both a header and a .c file causes
  duplicate definition errors.  (See attached diffs)
- Some of the inline header declarations differ considerably from the
  "real" procedures (e.g. gsl_sf_sin_impl).  (Not fixed)
- Lots of duplicate symbols in blas_raw_cblas.o and blaw_raw_native.o.
  (Not fixed)
- Lots of unresolved symbols referenced.  (Not fixed)
	"MIN" -- first referenced by blas.o.
	first referenced by blas_raw_cblas.o:
		"cblas_caxpy" "cblas_ccopy" "cblas_cdotc" "cblas_cdotu"
		"cblas_cgbmv" "cblas_cgemm" "cblas_cgemv" "cblas_cgerc"
		"cblas_cgeru" "cblas_chbmv" "cblas_chemm" "cblas_chemv"
		"cblas_cher" "cblas_cher2" "cblas_cher2k" "cblas_cherk"
		"cblas_chpmv" "cblas_chpr" "cblas_chpr2" "cblas_cscal"
		"cblas_csscal" "cblas_cswap" "cblas_csymm" "cblas_csyr2k"
		"cblas_csyrk" "cblas_ctbmv" "cblas_ctbsv" "cblas_ctpmv"
		"cblas_ctpsv" "cblas_ctrmm" "cblas_ctrmv" "cblas_ctrsm"
		"cblas_ctrsv" "cblas_dasum" "cblas_daxpy" "cblas_dcopy"
		"cblas_ddot" "cblas_dgbmv" "cblas_dgemm" "cblas_dgemv"
		"cblas_dger" "cblas_dnrm2" "cblas_drot" "cblas_drotg"
		"cblas_drotm" "cblas_drotmg" "cblas_dsbmv" "cblas_dscal"
		"cblas_dsdot" "cblas_dspmv" "cblas_dspr" "cblas_dswap"
		"cblas_dsymm" "cblas_dsymv" "cblas_dsyr" "cblas_dsyr2"
		"cblas_dsyr2k" "cblas_dsyrk" "cblas_dtbmv" "cblas_dtbsv"
		"cblas_dtpmv" "cblas_dtpsv" "cblas_dtrmm" "cblas_dtrmv"
		"cblas_dtrsm" "cblas_dtrsv" "cblas_dzasum" "cblas_dznrm2"
		"cblas_icamax" "cblas_idamax" "cblas_isamax" "cblas_izamax"
		"cblas_sasum" "cblas_saxpy" "cblas_scasum" "cblas_scnrm2"
		"cblas_scopy" "cblas_sdot" "cblas_sdsdot" "cblas_sgbmv"
		"cblas_sgemm" "cblas_sgemv" "cblas_sger" "cblas_snrm2"
		"cblas_srot" "cblas_srotg" "cblas_srotm" "cblas_srotmg"
		"cblas_ssbmv" "cblas_sscal" "cblas_sspmv" "cblas_sspr"
		"cblas_sspr2" "cblas_sswap" "cblas_ssymm" "cblas_ssymv"
		"cblas_ssyr" "cblas_ssyr2" "cblas_ssyr2k" "cblas_ssyrk"
		"cblas_stbmv" "cblas_stbsv" "cblas_stpmv" "cblas_stpsv"
		"cblas_strmm" "cblas_strmv" "cblas_strsm" "cblas_strsv"
		"cblas_zaxpy" "cblas_zcopy" "cblas_zdotc" "cblas_zdotu"
		"cblas_zdscal" "cblas_zgbmv" "cblas_zgemm" "cblas_zgemv"
		"cblas_zgerc" "cblas_zgeru" "cblas_zhbmv" "cblas_zhemm"
		"cblas_zhemv" "cblas_zher" "cblas_zher2" "cblas_zher2k"
		"cblas_zherk" "cblas_zhpmv" "cblas_zhpr" "cblas_zhpr2"
		"cblas_zscal" "cblas_zswap" "cblas_zsymm" "cblas_zsyr2k"
		"cblas_zsyrk" "cblas_ztbmv" "cblas_ztbsv" "cblas_ztpmv"
		"cblas_ztpsv" "cblas_ztrmm" "cblas_ztrmv" "cblas_ztrsm"
		"cblas_ztrsv"
	"gsl_block_fread" -- first referenced by file.o.
	"gsl_block_fwrite" -- first referenced by file.o.
	"gsl_prec_eps" -- first referenced by ellint.o.
	"gsl_sf_beta_impl" -- first referenced by hyperg_1F1.o.
	"gsl_sf_choose_impl" -- first referenced by binomial.o.
	"gsl_sf_doublefact_impl" -- first referenced by bessel_k.o.
	"gsl_sf_fact_impl" -- first referenced by bessel_Kn.o.
	"gsl_sf_gamma_impl" -- first referenced by hyperg_U.o.
	"gsl_sf_gammainv_impl" -- first referenced by hyperg_U.o.
	"gsl_sf_gammastar_impl" -- first referenced by gamma_inc.o.
	"gsl_sf_hyperg_1F1_series_impl" -- first referenced by hyperg_1F1.o.
	"gsl_sf_hyperg_2F0_series_impl" -- first referenced by hyperg_1F1.o.
	"gsl_sf_hyperg_U_large_b_impl" -- first referenced by hyperg_U.o.
	"gsl_sf_lnbeta_impl" -- first referenced by hyperg_1F1.o.
	"gsl_sf_lnchoose_impl" -- first referenced by hyperg.o.
	"gsl_sf_lnfact_impl" -- first referenced by bessel_Kn.o.
	"gsl_sf_lngamma_complex_impl" -- first referenced by coulomb.o.
	"gsl_sf_lngamma_impl" -- first referenced by bessel.o.
	"gsl_sf_lngamma_sgn_impl" -- first referenced by hyperg_0F1.o.
	"gsl_sf_taylorcoeff_impl" -- first referenced by bessel.o.
	"locMAX" -- first referenced by blas_raw_native.o.

- Misc remaining warnings (not fixed):
  "endian.c", line 79: warning(1183): pointless comparison of unsigned integer
          with zero
        if(u.c[i]<0 || u.c[i]>7) flag=1 ;
                 ^

  "coulomb.c", line 937: warning(1551): variable "G_lam_G" is used before its
          value is set
        G->val  = G_lam_G;
                  ^

  "coulomb.c", line 939: warning(1551): variable "Gp_lam_G" is used before its
          value is set
        Gp->val = Gp_lam_G;
                  ^

  "qelg.c", line 181: warning(1178): argument is incompatible with corresponding
          format string conversion
      printf ("n_orig = %d, n_final = %d\n",n_orig,n_final) ;
                                            ^

  "qelg.c", line 181: warning(1178): argument is incompatible with corresponding
          format string conversion
      printf ("n_orig = %d, n_final = %d\n",n_orig,n_final) ;
                                                   ^

--- ./err/strerror.c	Fri Jan  1 20:03:58 1999
+++ ../gsl-0.4.1/./err/strerror.c	Mon Mar 29 17:09:31 1999
@@ -2,7 +2,7 @@
 #include <gsl_errno.h>
 
 const char *
-gsl_strerror (const int gsl_errno)
+gsl_strerror (int gsl_errno)
 {
   switch (gsl_errno)
     {
--- ./fft/c_main.c	Thu Sep  3 22:04:24 1998
+++ ../gsl-0.4.1/./fft/c_main.c	Tue Mar 30 11:04:25 1999
@@ -1,7 +1,7 @@
 int
 FUNCTION(gsl_fft_complex,forward) (TYPE(gsl_complex_packed_array) data, 
-				   const size_t stride, 
-				   const size_t n,
+				   size_t stride, 
+				   size_t n,
 				   const TYPE(gsl_fft_wavetable_complex) * wavetable)
 {
   gsl_fft_direction sign = forward;
@@ -12,8 +12,8 @@
 
 int
 FUNCTION(gsl_fft_complex,backward) (TYPE(gsl_complex_packed_array) data,
-				    const size_t stride, 
-				    const size_t n,
+				    size_t stride, 
+				    size_t n,
 				    const TYPE(gsl_fft_wavetable_complex) * wavetable)
 {
   gsl_fft_direction sign = backward;
@@ -24,8 +24,8 @@
 
 int
 FUNCTION(gsl_fft_complex,inverse) (TYPE(gsl_complex_packed_array) data, 
-				   const size_t stride, 
-				   const size_t n,
+				   size_t stride, 
+				   size_t n,
 				   const TYPE(gsl_fft_wavetable_complex) * wavetable)
 {
   gsl_fft_direction sign = backward;
@@ -53,10 +53,10 @@
 
 int
 FUNCTION(gsl_fft_complex,transform) (TYPE(gsl_complex_packed_array) data, 
-				     const size_t stride, 
-				     const size_t n,
+				     size_t stride, 
+				     size_t n,
 				     const TYPE(gsl_fft_wavetable_complex) * wavetable,
-				     const gsl_fft_direction sign)
+				     gsl_fft_direction sign)
 {
   const size_t nf = wavetable->nf;
 
--- ./fft/hc_radix2.c	Fri Sep  4 18:36:13 1998
+++ ../gsl-0.4.1/./fft/hc_radix2.c	Tue Mar 30 11:16:05 1999
@@ -4,8 +4,8 @@
 
 int
 FUNCTION(gsl_fft_halfcomplex,radix2_backward) (BASE data[],
-					       const size_t stride,
-					       const size_t n)
+					       size_t stride,
+					       size_t n)
 {
   int status = FUNCTION(gsl_fft_halfcomplex,radix2_transform) (data, stride, n) ;
   return status ;
@@ -13,8 +13,8 @@
 
 int
 FUNCTION(gsl_fft_halfcomplex,radix2_inverse) (BASE data[],
-					      const size_t stride,
-					      const size_t n)
+					      size_t stride,
+					      size_t n)
 {
   int status = FUNCTION(gsl_fft_halfcomplex,radix2_transform) (data, stride, n);
 
@@ -38,8 +38,8 @@
 
 int
 FUNCTION(gsl_fft_halfcomplex,radix2_transform) (BASE data[],
-						const size_t stride,
-						const size_t n)
+						size_t stride,
+						size_t n)
 {
   int result ;
   size_t p, p_1, q;
--- ./fft/c_radix2.c	Fri Sep  4 18:35:55 1998
+++ ../gsl-0.4.1/./fft/c_radix2.c	Tue Mar 30 11:11:05 1999
@@ -2,7 +2,7 @@
 
 int
 FUNCTION(gsl_fft_complex,radix2_forward) (TYPE(gsl_complex_packed_array) data,
-					  const size_t stride, const size_t n)
+					  size_t stride, size_t n)
 {
   gsl_fft_direction sign = forward;
   int status = FUNCTION(gsl_fft_complex,radix2_transform) (data, stride, n, sign);
@@ -11,7 +11,7 @@
 
 int
 FUNCTION(gsl_fft_complex,radix2_backward) (TYPE(gsl_complex_packed_array) data,
-					   const size_t stride, const size_t n)
+					   size_t stride, size_t n)
 {
   gsl_fft_direction sign = backward;
   int status = FUNCTION(gsl_fft_complex,radix2_transform) (data, stride, n, sign);
@@ -20,7 +20,7 @@
 
 int
 FUNCTION(gsl_fft_complex,radix2_inverse) (TYPE(gsl_complex_packed_array) data,
-					  const size_t stride, const size_t n)
+					  size_t stride, size_t n)
 {
   gsl_fft_direction sign = backward;
   int status = FUNCTION(gsl_fft_complex,radix2_transform) (data, stride, n, sign);
@@ -49,9 +49,9 @@
 
 int
 FUNCTION(gsl_fft_complex,radix2_transform) (TYPE(gsl_complex_packed_array) data,
-					    const size_t stride, 
-					    const size_t n,
-					    const gsl_fft_direction sign)
+					    size_t stride, 
+					    size_t n,
+					    gsl_fft_direction sign)
 {
   int result ;
   size_t dual;
@@ -158,8 +158,8 @@
 
 int
 FUNCTION(gsl_fft_complex,radix2_dif_forward) (TYPE(gsl_complex_packed_array) data, 
-					      const size_t stride, 
-					      const size_t n)
+					      size_t stride, 
+					      size_t n)
 {
   gsl_fft_direction sign = forward;
   int status = FUNCTION(gsl_fft_complex,radix2_dif_transform) (data, stride, n, sign);
@@ -168,8 +168,8 @@
 
 int
 FUNCTION(gsl_fft_complex,radix2_dif_backward) (TYPE(gsl_complex_packed_array) data,
-					       const size_t stride, 
-					       const size_t n)
+					       size_t stride, 
+					       size_t n)
 {
   gsl_fft_direction sign = backward;
   int status = FUNCTION(gsl_fft_complex,radix2_dif_transform) (data, stride, n, sign);
@@ -178,8 +178,8 @@
 
 int
 FUNCTION(gsl_fft_complex,radix2_dif_inverse) (TYPE(gsl_complex_packed_array) data, 
-					      const size_t stride, 
-					      const size_t n)
+					      size_t stride, 
+					      size_t n)
 {
   gsl_fft_direction sign = backward;
   int status = FUNCTION(gsl_fft_complex,radix2_dif_transform) (data, stride, n, sign);
@@ -206,9 +206,9 @@
 
 int
 FUNCTION(gsl_fft_complex,radix2_dif_transform) (TYPE(gsl_complex_packed_array) data, 
-				      const size_t stride, 
-				      const size_t n,
-				      const gsl_fft_direction sign)
+				      size_t stride, 
+				      size_t n,
+				      gsl_fft_direction sign)
 {
   int result ;
   size_t dual;
--- ./fft/real_unpack.c	Fri Sep  4 18:36:26 1998
+++ ../gsl-0.4.1/./fft/real_unpack.c	Tue Mar 30 11:20:39 1999
@@ -3,7 +3,7 @@
 int
 FUNCTION(gsl_fft_real,unpack) (const BASE real_coefficient[],
 			       BASE complex_coefficient[],
-			       const size_t stride, const size_t n)
+			       size_t stride, size_t n)
 {
   size_t i;
 
--- ./fft/bitreverse.c	Tue Sep  1 20:05:08 1998
+++ ../gsl-0.4.1/./fft/bitreverse.c	Tue Mar 30 11:11:30 1999
@@ -6,8 +6,8 @@
 
 int 
 FUNCTION(fft_complex,bitreverse_order) (BASE data[], 
-					const size_t stride,
-					const size_t n,
+					size_t stride,
+					size_t n,
 					size_t logn)
 {
   /* This is the Goldrader bit-reversal algorithm */
@@ -46,8 +46,8 @@
 
 int 
 FUNCTION(fft_real,bitreverse_order) (BASE data[], 
-				const size_t stride, 
-				const size_t n,
+				size_t stride, 
+				size_t n,
 				size_t logn)
 {
   /* This is the Goldrader bit-reversal algorithm */
--- ./fft/real_pass_4.c	Fri Sep  4 18:36:21 1998
+++ ../gsl-0.4.1/./fft/real_pass_4.c	Tue Mar 30 11:17:17 1999
@@ -2,11 +2,11 @@
  
 void
 FUNCTION(fft_real,pass_4) (const BASE in[],
-			   const size_t istride,
+			   size_t istride,
 			   BASE out[],
-			   const size_t ostride,
-			   const size_t product,
-			   const size_t n,
+			   size_t ostride,
+			   size_t product,
+			   size_t n,
 			   const gsl_complex twiddle1[],
 			   const gsl_complex twiddle2[],
 			   const gsl_complex twiddle3[])
--- ./fft/real_pass_5.c	Fri Sep  4 18:36:22 1998
+++ ../gsl-0.4.1/./fft/real_pass_5.c	Tue Mar 30 11:17:24 1999
@@ -2,11 +2,11 @@
 
 void
 FUNCTION(fft_real,pass_5) (const BASE in[],
-			   const size_t istride,
+			   size_t istride,
 			   BASE out[],
-			   const size_t ostride,
-			   const size_t product,
-			   const size_t n,
+			   size_t ostride,
+			   size_t product,
+			   size_t n,
 			   const gsl_complex twiddle1[],
 			   const gsl_complex twiddle2[],
 			   const gsl_complex twiddle3[],
--- ./fft/real_pass_2.c	Fri Sep  4 18:36:19 1998
+++ ../gsl-0.4.1/./fft/real_pass_2.c	Tue Mar 30 11:17:04 1999
@@ -2,11 +2,11 @@
  
 void
 FUNCTION(fft_real,pass_2) (const BASE in[],
-			   const size_t istride,
+			   size_t istride,
 			   BASE out[],
-			   const size_t ostride,
-			   const size_t product,
-			   const size_t n,
+			   size_t ostride,
+			   size_t product,
+			   size_t n,
 			   const gsl_complex twiddle[])
 {
   size_t k, k1;
--- ./fft/real_pass_3.c	Fri Sep  4 18:36:20 1998
+++ ../gsl-0.4.1/./fft/real_pass_3.c	Tue Mar 30 11:17:10 1999
@@ -2,11 +2,11 @@
 
 void
 FUNCTION(fft_real,pass_3) (const BASE in[], 
-			   const size_t istride,
+			   size_t istride,
 			   BASE out[],
-			   const size_t ostride,
-			   const size_t product,
-			   const size_t n,
+			   size_t ostride,
+			   size_t product,
+			   size_t n,
 			   const gsl_complex twiddle1[],
 			   const gsl_complex twiddle2[])
 {
--- ./fft/real_pass_n.c	Fri Sep  4 18:36:24 1998
+++ ../gsl-0.4.1/./fft/real_pass_n.c	Tue Mar 30 11:17:33 1999
@@ -2,12 +2,12 @@
 
 void
 FUNCTION(fft_real,pass_n) (const BASE in[],
-			   const size_t istride,
+			   size_t istride,
 			   BASE out[],
-			   const size_t ostride,
-			   const size_t factor,
-			   const size_t product,
-			   const size_t n,
+			   size_t ostride,
+			   size_t factor,
+			   size_t product,
+			   size_t n,
 			   const gsl_complex twiddle[])
 {
   size_t k, k1;
--- ./fft/dft_source.c	Thu Sep  3 22:12:01 1998
+++ ../gsl-0.4.1/./fft/dft_source.c	Tue Mar 30 11:06:07 1999
@@ -1,6 +1,6 @@
 int
 FUNCTION(gsl_dft_complex,forward) (const BASE data[], 
-				   const size_t stride, const size_t n,
+				   size_t stride, size_t n,
 				   BASE result[])
 {
   gsl_fft_direction sign = forward;
@@ -10,7 +10,7 @@
 
 int
 FUNCTION(gsl_dft_complex,backward) (const BASE data[], 
-				    const size_t stride, const size_t n,
+				    size_t stride, size_t n,
 				    BASE result[])
 {
   gsl_fft_direction sign = backward;
@@ -21,7 +21,7 @@
 
 int
 FUNCTION(gsl_dft_complex,inverse) (const BASE data[], 
-				   const size_t stride, const size_t n,
+				   size_t stride, size_t n,
 				   BASE result[])
 {
   gsl_fft_direction sign = backward;
@@ -43,9 +43,9 @@
 
 int
 FUNCTION(gsl_dft_complex,transform) (const BASE data[], 
-				     const size_t stride, const size_t n,
+				     size_t stride, size_t n,
 				     BASE result[],
-				     const gsl_fft_direction sign)
+				     gsl_fft_direction sign)
 {
 
   size_t i, j, exponent;
--- ./fft/hc_main.c	Fri Sep  4 18:36:06 1998
+++ ../gsl-0.4.1/./fft/hc_main.c	Tue Mar 30 11:14:16 1999
@@ -9,8 +9,8 @@
 #include "hc_pass.h"
 
 int
-FUNCTION(gsl_fft_halfcomplex,backward) (BASE data[], const size_t stride, 
-					const size_t n,
+FUNCTION(gsl_fft_halfcomplex,backward) (BASE data[], size_t stride, 
+					size_t n,
 					const TYPE(gsl_fft_wavetable_halfcomplex) * wavetable)
 {
   int status = FUNCTION(gsl_fft_halfcomplex,transform) (data, stride, n, wavetable) ;
@@ -18,8 +18,8 @@
 }
 
 int
-FUNCTION(gsl_fft_halfcomplex,inverse) (BASE data[], const size_t stride, 
-				       const size_t n,
+FUNCTION(gsl_fft_halfcomplex,inverse) (BASE data[], size_t stride, 
+				       size_t n,
 				       const TYPE(gsl_fft_wavetable_halfcomplex) * wavetable)
 {
   int status = FUNCTION(gsl_fft_halfcomplex,transform) (data, stride, n, wavetable);
@@ -43,7 +43,7 @@
 }
 
 int
-FUNCTION(gsl_fft_halfcomplex,transform) (BASE data[], const size_t stride, const size_t n,
+FUNCTION(gsl_fft_halfcomplex,transform) (BASE data[], size_t stride, size_t n,
 					 const TYPE(gsl_fft_wavetable_halfcomplex) * wavetable)
 {
   size_t factor, product, q, state;
--- ./fft/factorize.c	Fri Sep  4 18:35:59 1998
+++ ../gsl-0.4.1/./fft/factorize.c	Tue Mar 30 15:47:25 1999
@@ -5,7 +5,7 @@
 #include "factorize.h"
 
 int
-fft_complex_factorize (const size_t n,
+fft_complex_factorize (size_t n,
 			   size_t *nf,
 			   size_t factors[])
 {
@@ -20,7 +20,7 @@
 }
 
 int
-fft_halfcomplex_factorize (const size_t n,
+fft_halfcomplex_factorize (size_t n,
 			       size_t *nf,
 			       size_t factors[])
 {
@@ -32,7 +32,7 @@
 }
 
 int
-fft_real_factorize (const size_t n,
+fft_real_factorize (size_t n,
 			size_t *nf,
 			size_t factors[])
 {
@@ -45,7 +45,7 @@
 
 
 int
-fft_factorize (const size_t n,
+fft_factorize (size_t n,
 		   const size_t implemented_subtransforms[],
 		   size_t *n_factors,
 		   size_t factors[])
@@ -129,7 +129,7 @@
 }
 
 
-int fft_binary_logn (const size_t n)
+int fft_binary_logn (size_t n)
 {
   size_t ntest ;
   size_t binary_logn = 0 ;
--- ./fft/factorize.h	Fri Sep  4 18:36:00 1998
+++ ../gsl-0.4.1/./fft/factorize.h	Tue Mar 30 15:47:02 1999
@@ -1,23 +1,23 @@
 int
-fft_complex_factorize (const size_t n,
+fft_complex_factorize (size_t n,
 		       size_t *nf,
 		       size_t factors[]);
 
 int
-fft_halfcomplex_factorize (const size_t n,
+fft_halfcomplex_factorize (size_t n,
 			   size_t *nf,
 			   size_t factors[]);
 
 int
-fft_real_factorize (const size_t n,
+fft_real_factorize (size_t n,
 		    size_t *nf,
 		    size_t factors[]);
 
 int
-fft_factorize (const size_t n,
-		   const size_t implemented_subtransforms[],
-		   size_t *n_factors,
-		   size_t factors[]);
+fft_factorize (size_t n,
+	       const size_t implemented_subtransforms[],
+	       size_t *n_factors,
+	       size_t factors[]);
 
-int fft_binary_logn (const size_t n) ;
+int fft_binary_logn (size_t n) ;
 
--- ./fft/hc_unpack.c	Sun Sep  6 00:30:10 1998
+++ ../gsl-0.4.1/./fft/hc_unpack.c	Tue Mar 30 11:16:21 1999
@@ -3,7 +3,7 @@
 int
 FUNCTION(gsl_fft_halfcomplex,unpack) (const BASE halfcomplex_coefficient[],
 				      BASE complex_coefficient[],
-				      const size_t stride, const size_t n)
+				      size_t stride, size_t n)
 {
   size_t i;
 
@@ -39,7 +39,7 @@
 int
 FUNCTION(gsl_fft_halfcomplex,radix2_unpack) (const BASE halfcomplex_coefficient[],
 					     BASE complex_coefficient[],
-					     const size_t stride, const size_t n)
+					     size_t stride, size_t n)
 {
   size_t i;
 
--- ./fft/real_radix2.c	Sun Sep  6 00:30:11 1998
+++ ../gsl-0.4.1/./fft/real_radix2.c	Tue Mar 30 11:20:26 1999
@@ -3,7 +3,7 @@
 #include "bitreverse.h"
 
 int
-FUNCTION(gsl_fft_real,radix2_transform) (BASE data[], const size_t stride,  const size_t n)
+FUNCTION(gsl_fft_real,radix2_transform) (BASE data[], size_t stride,  size_t n)
 {
   int result ;
   size_t p, p_1, q;
--- ./fft/gsl_dft_complex.h	Sun Sep  6 00:30:07 1998
+++ ../gsl-0.4.1/./fft/gsl_dft_complex.h	Tue Mar 30 11:04:49 1999
@@ -17,6 +17,6 @@
 			     double result[]);
 
 int gsl_dft_complex_transform (const double data[], size_t stride, size_t n,
-		     double result[], const gsl_fft_direction sign);
+		     double result[], gsl_fft_direction sign);
 
 #endif /* GSL_DFT_COMPLEX_H */
--- ./fft/gsl_dft_complex_float.h	Sun Sep  6 00:30:08 1998
+++ ../gsl-0.4.1/./fft/gsl_dft_complex_float.h	Tue Mar 30 11:04:52 1999
@@ -17,6 +17,6 @@
 			     float result[]);
 
 int gsl_dft_complex_float_transform (const float data[], size_t stride, size_t n,
-		     float result[], const gsl_fft_direction sign);
+		     float result[], gsl_fft_direction sign);
 
 #endif /* GSL_DFT_COMPLEX_FLOAT_H */
--- ./fft/c_pass_6.c	Tue Sep  1 18:45:14 1998
+++ ../gsl-0.4.1/./fft/c_pass_6.c	Tue Mar 30 11:07:46 1999
@@ -1,11 +1,11 @@
 int
 FUNCTION(fft_complex,pass_6) (const BASE in[],
-			      const size_t istride,
+			      size_t istride,
 			      BASE out[],
-			      const size_t ostride,
-			      const gsl_fft_direction sign,
-			      const size_t product,
-			      const size_t n,
+			      size_t ostride,
+			      gsl_fft_direction sign,
+			      size_t product,
+			      size_t n,
 			      const gsl_complex twiddle1[],
 			      const gsl_complex twiddle2[],
 			      const gsl_complex twiddle3[],
--- ./fft/c_pass_7.c	Tue Sep  1 18:45:15 1998
+++ ../gsl-0.4.1/./fft/c_pass_7.c	Tue Mar 30 11:07:13 1999
@@ -1,11 +1,11 @@
 int
 FUNCTION(fft_complex,pass_7) (const BASE in[],
-			      const size_t istride,
+			      size_t istride,
 			      BASE out[],
-			      const size_t ostride,
-			      const gsl_fft_direction sign,
-			      const size_t product,
-			      const size_t n,
+			      size_t ostride,
+			      gsl_fft_direction sign,
+			      size_t product,
+			      size_t n,
 			      const gsl_complex twiddle1[],
 			      const gsl_complex twiddle2[],
 			      const gsl_complex twiddle3[],
--- ./fft/hc_pass_4.c	Fri Sep  4 18:36:09 1998
+++ ../gsl-0.4.1/./fft/hc_pass_4.c	Tue Mar 30 11:15:04 1999
@@ -2,11 +2,11 @@
 
 void
 FUNCTION(fft_halfcomplex,pass_4) (const BASE in[],
-				  const size_t istride,
+				  size_t istride,
 				  BASE out[],
-				  const size_t ostride,
-				  const size_t product,
-				  const size_t n,
+				  size_t ostride,
+				  size_t product,
+				  size_t n,
 				  const gsl_complex twiddle1[],
 				  const gsl_complex twiddle2[],
 				  const gsl_complex twiddle3[])
--- ./fft/c_pass_4.c	Tue Sep  1 18:45:13 1998
+++ ../gsl-0.4.1/./fft/c_pass_4.c	Tue Mar 30 11:08:15 1999
@@ -1,11 +1,11 @@
 int
 FUNCTION(fft_complex,pass_4) (const BASE in[],
-			      const size_t istride,
+			      size_t istride,
 			      BASE out[],
-			      const size_t ostride,
-			      const gsl_fft_direction sign,
-			      const size_t product,
-			      const size_t n,
+			      size_t ostride,
+			      gsl_fft_direction sign,
+			      size_t product,
+			      size_t n,
 			      const gsl_complex twiddle1[],
 			      const gsl_complex twiddle2[],
 			      const gsl_complex twiddle3[])
--- ./fft/hc_pass_5.c	Fri Sep  4 18:36:10 1998
+++ ../gsl-0.4.1/./fft/hc_pass_5.c	Tue Mar 30 11:15:16 1999
@@ -2,11 +2,11 @@
 
 void
 FUNCTION(fft_halfcomplex,pass_5) (const BASE in[],
-				  const size_t istride,
+				  size_t istride,
 				  BASE out[],
-				  const size_t ostride,
-				  const size_t product,
-				  const size_t n,
+				  size_t ostride,
+				  size_t product,
+				  size_t n,
 				  const gsl_complex twiddle1[],
 				  const gsl_complex twiddle2[],
 				  const gsl_complex twiddle3[],
--- ./fft/c_pass_5.c	Tue Sep  1 18:45:14 1998
+++ ../gsl-0.4.1/./fft/c_pass_5.c	Tue Mar 30 11:08:06 1999
@@ -1,11 +1,11 @@
 int
 FUNCTION(fft_complex,pass_5) (const BASE in[],
-			      const size_t istride,
+			      size_t istride,
 			      BASE out[],
-			      const size_t ostride,
-			      const gsl_fft_direction sign,
-			      const size_t product,
-			      const size_t n,
+			      size_t ostride,
+			      gsl_fft_direction sign,
+			      size_t product,
+			      size_t n,
 			      const gsl_complex twiddle1[],
 			      const gsl_complex twiddle2[],
 			      const gsl_complex twiddle3[],
--- ./fft/hc_pass_2.c	Fri Sep  4 18:36:08 1998
+++ ../gsl-0.4.1/./fft/hc_pass_2.c	Tue Mar 30 11:14:44 1999
@@ -2,11 +2,11 @@
 
 void
 FUNCTION(fft_halfcomplex,pass_2) (const BASE in[],
-				  const size_t istride,
+				  size_t istride,
 				  BASE out[],
-				  const size_t ostride,
-				  const size_t product,
-				  const size_t n,
+				  size_t ostride,
+				  size_t product,
+				  size_t n,
 				  const gsl_complex twiddle[])
 {
   size_t i, j, k, k1, jump;
--- ./fft/c_pass_2.c	Tue Sep  1 18:45:13 1998
+++ ../gsl-0.4.1/./fft/c_pass_2.c	Tue Mar 30 11:08:34 1999
@@ -1,11 +1,11 @@
 int
 FUNCTION(fft_complex,pass_2) (const BASE in[],
-			      const size_t istride,
+			      size_t istride,
 			      BASE out[],
-			      const size_t ostride,
-			      const gsl_fft_direction sign,
-			      const size_t product,
-			      const size_t n,
+			      size_t ostride,
+			      gsl_fft_direction sign,
+			      size_t product,
+			      size_t n,
 			      const gsl_complex twiddle[])
 {
   size_t i = 0, j = 0;
--- ./fft/hc_pass_3.c	Fri Sep  4 18:36:09 1998
+++ ../gsl-0.4.1/./fft/hc_pass_3.c	Tue Mar 30 11:14:53 1999
@@ -2,11 +2,11 @@
 
 void
 FUNCTION(fft_halfcomplex,pass_3) (const BASE in[],
-				  const size_t istride,
+				  size_t istride,
 				  BASE out[],
-				  const size_t ostride,
-				  const size_t product,
-				  const size_t n,
+				  size_t ostride,
+				  size_t product,
+				  size_t n,
 				  const gsl_complex twiddle1[],
 				  const gsl_complex twiddle2[])
 {
--- ./fft/c_pass_3.c	Tue Sep  1 18:45:13 1998
+++ ../gsl-0.4.1/./fft/c_pass_3.c	Tue Mar 30 11:08:25 1999
@@ -1,11 +1,11 @@
 int
 FUNCTION(fft_complex,pass_3) (const BASE in[],
-			      const size_t istride,
+			      size_t istride,
 			      BASE out[],
-			      const size_t ostride,
-			      const gsl_fft_direction sign,
-			      const size_t product,
-			      const size_t n,
+			      size_t ostride,
+			      gsl_fft_direction sign,
+			      size_t product,
+			      size_t n,
 			      const gsl_complex * twiddle1,
 			      const gsl_complex * twiddle2)
 {
--- ./fft/hc_pass_n.c	Fri Sep  4 18:36:12 1998
+++ ../gsl-0.4.1/./fft/hc_pass_n.c	Tue Mar 30 11:15:33 1999
@@ -2,12 +2,12 @@
 
 void
 FUNCTION(fft_halfcomplex,pass_n) (const BASE in[],
-				  const size_t istride,
+				  size_t istride,
 				  BASE out[],
-				  const size_t ostride,
-				  const size_t factor,
-				  const size_t product,
-				  const size_t n,
+				  size_t ostride,
+				  size_t factor,
+				  size_t product,
+				  size_t n,
 				  const gsl_complex twiddle[])
 {
 
--- ./fft/c_pass_n.c	Tue Sep  1 18:45:15 1998
+++ ../gsl-0.4.1/./fft/c_pass_n.c	Tue Mar 30 11:12:00 1999
@@ -1,12 +1,12 @@
 int
 FUNCTION(fft_complex,pass_n) (BASE in[],
-			      const size_t istride,
+			      size_t istride,
 			      BASE out[],
-			      const size_t ostride,
-			      const gsl_fft_direction sign,
-			      const size_t factor,
-			      const size_t product,
-			      const size_t n,
+			      size_t ostride,
+			      gsl_fft_direction sign,
+			      size_t factor,
+			      size_t product,
+			      size_t n,
 			      const gsl_complex twiddle[])
 {
   size_t i = 0, j = 0;
--- ./fft/real_main.c	Fri Sep  4 18:36:17 1998
+++ ../gsl-0.4.1/./fft/real_main.c	Tue Mar 30 11:16:53 1999
@@ -9,7 +9,7 @@
 #include "real_pass.h"
 
 int
-FUNCTION(gsl_fft_real,transform) (BASE data[], const size_t stride, const size_t n,
+FUNCTION(gsl_fft_real,transform) (BASE data[], size_t stride, size_t n,
 				  const TYPE(gsl_fft_wavetable_real) * wavetable)
 {
   const size_t nf = wavetable->nf;
--- ./fft/real_pass.h	Fri Sep  4 18:36:18 1998
+++ ../gsl-0.4.1/./fft/real_pass.h	Tue Mar 30 11:18:13 1999
@@ -4,16 +4,16 @@
 		      size_t istride,
 		      BASE out[],
 		      size_t ostride,
-		      const size_t product,
-		      const size_t n,
+		      size_t product,
+		      size_t n,
 		      const gsl_complex twiddle[]);
 
 void FUNCTION(fft_real,pass_3) (const BASE in[], 
 		      size_t istride,
 		      BASE out[],
 		      size_t ostride,
-		      const size_t product,
-		      const size_t n,
+		      size_t product,
+		      size_t n,
 		      const gsl_complex twiddle1[],
 		      const gsl_complex twiddle2[]);
 
@@ -21,8 +21,8 @@
 		      size_t istride,
 		      BASE out[],
 		      size_t ostride,
-		      const size_t product,
-		      const size_t n,
+		      size_t product,
+		      size_t n,
 		      const gsl_complex twiddle1[],
 		      const gsl_complex twiddle2[],
 		      const gsl_complex twiddle3[]);
@@ -31,8 +31,8 @@
 		      size_t istride,
 		      BASE out[],
 		      size_t ostride,
-		      const size_t product,
-		      const size_t n,
+		      size_t product,
+		      size_t n,
 		      const gsl_complex twiddle1[],
 		      const gsl_complex twiddle2[],
 		      const gsl_complex twiddle3[],
@@ -51,7 +51,7 @@
 		      size_t istride,
 		      BASE out[],
 		      size_t ostride,
-		      const size_t factor,
-		      const size_t product,
-		      const size_t n,
+		      size_t factor,
+		      size_t product,
+		      size_t n,
 		      const gsl_complex twiddle[]);
--- ./rng/rng.c	Wed Oct 28 17:26:41 1998
+++ ../gsl-0.4.1/./rng/rng.c	Tue Mar 30 14:27:21 1999
@@ -104,18 +104,23 @@
   (r->set) (r->state, seed);
 }
 
+#if !defined(HAVE_INLINE) || !defined(__sgi)
 unsigned long int
 gsl_rng_get (const gsl_rng * r)
 {
   return (r->get) (r->state);
 }
+#endif
 
+#if !defined(HAVE_INLINE) || !defined(__sgi)
 double
 gsl_rng_uniform (const gsl_rng * r)
 {
   return (r->get_double) (r->state);
 }
+#endif
 
+#if !defined(HAVE_INLINE) || !defined(__sgi)
 double
 gsl_rng_uniform_pos (const gsl_rng * r)
 {
@@ -128,7 +133,9 @@
 
   return x ;
 }
+#endif
 
+#if !defined(HAVE_INLINE) || !defined(__sgi)
 unsigned long int
 gsl_rng_uniform_int (const gsl_rng * r, unsigned long int n)
 {
@@ -151,6 +158,7 @@
 
   return k;
 }
+#endif
 
 unsigned long int
 gsl_rng_max (const gsl_rng * r)
--- ./rng/gsl_rng.h	Mon Sep 14 17:17:41 1998
+++ ../gsl-0.4.1/./rng/gsl_rng.h	Tue Mar 30 14:26:03 1999
@@ -101,19 +101,19 @@
 const gsl_rng_type * gsl_rng_env_setup (void);
 
 #ifdef HAVE_INLINE
-extern inline unsigned long int
+inline unsigned long int
 gsl_rng_get (const gsl_rng * r)
 {
   return (r->get) (r->state);
 }
 
-extern inline double
+inline double
 gsl_rng_uniform (const gsl_rng * r)
 {
   return (r->get_double) (r->state);
 }
 
-extern inline double
+inline double
 gsl_rng_uniform_pos (const gsl_rng * r)
 {
   double x ;
@@ -126,7 +126,7 @@
   return x ;
 }
 
-extern inline unsigned long int
+inline unsigned long int
 gsl_rng_uniform_int (const gsl_rng * r, unsigned long int n)
 {
   unsigned long int offset = r->min;
--- ./sum/levin_uerr.c	Tue Nov 17 19:47:32 1998
+++ ../gsl-0.4.1/./sum/levin_uerr.c	Tue Mar 30 11:28:54 1999
@@ -6,7 +6,7 @@
 
 int
 gsl_sum_levin_u_accel (const double *array,
-		       const size_t array_size,
+		       size_t array_size,
 		       double *q_num,
 		       double *q_den,
 		       double *dq_num,
@@ -29,9 +29,9 @@
 
 int
 gsl_sum_levin_u_accel_minmax (const double *array,
-			      const size_t array_size,
-			      const size_t min_terms,
-			      const size_t max_terms,
+			      size_t array_size,
+			      size_t min_terms,
+			      size_t max_terms,
 			      double *q_num,
 			      double *q_den,
 			      double *dq_num,
@@ -174,9 +174,9 @@
 
 
 int
-gsl_sum_levin_u_step (const double term,
-		      const size_t n,
-		      const size_t nmax,
+gsl_sum_levin_u_step (double term,
+		      size_t n,
+		      size_t nmax,
 		      double *q_num,
 		      double *q_den,
 		      double *dq_num,
--- ./sum/levin_u.c	Thu Nov 19 15:11:59 1998
+++ ../gsl-0.4.1/./sum/levin_u.c	Tue Mar 30 11:28:28 1999
@@ -9,7 +9,7 @@
 
 int
 gsl_sum_levin_u_trunc_accel (const double *array,
-			     const size_t array_size,
+			     size_t array_size,
 			     double *q_num,
 			     double *q_den,
 			     double *sum_accel,
@@ -27,9 +27,9 @@
 
 int
 gsl_sum_levin_u_trunc_accel_minmax (const double *array,
-				    const size_t array_size,
-				    const size_t min_terms,
-				    const size_t max_terms,
+				    size_t array_size,
+				    size_t min_terms,
+				    size_t max_terms,
 				    double *q_num,
 				    double *q_den,
 				    double *sum_accel,
@@ -140,8 +140,8 @@
 }
 
 int
-gsl_sum_levin_u_trunc_step (const double term,
-			    const size_t n,
+gsl_sum_levin_u_trunc_step (double term,
+			    size_t n,
 			    double *q_num,
 			    double *q_den,
 			    double *sum_accel,
--- ./sys/prec.c	Tue Dec 15 12:46:25 1998
+++ ../gsl-0.4.1/./sys/prec.c	Tue Mar 30 14:51:13 1999
@@ -44,9 +44,13 @@
 };
 
 
+#if !defined(HAVE_INLINE) || !defined(__sgi)
+#ifdef GSL_MODE_PREC
+#undef GSL_MODE_PREC
+#endif
 /* We need this somewhere, in case the inline is ignored.
  */
 unsigned int
 GSL_MODE_PREC(gsl_mode_t mt)
 { return  (mt & (unsigned int)7); }
-
+#endif
--- ./gsl_mode.h	Tue Dec 15 12:46:24 1998
+++ ../gsl-0.4.1/./gsl_mode.h	Tue Mar 30 14:06:14 1999
@@ -37,7 +37,7 @@
 #define GSL_PREC_APPROX  2
 
 #ifdef HAVE_INLINE
-extern inline unsigned int
+inline unsigned int
 GSL_MODE_PREC(gsl_mode_t mt)
 { return  (mt & (unsigned int)7); }
 #else
--- ./matrix/gsl_matrix_uint.h	Mon Nov 23 18:34:56 1998
+++ ../gsl-0.4.1/./matrix/gsl_matrix_uint.h	Tue Mar 30 15:15:43 1999
@@ -36,9 +36,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline 
+inline 
 unsigned int
-gsl_matrix_uint_get(const gsl_matrix_uint * m, const size_t i, const size_t j)
+gsl_matrix_uint_get(const gsl_matrix_uint * m, size_t i, size_t j)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1)  /* size_t is unsigned, can't be negative */
@@ -53,11 +53,9 @@
   return m->data[i * m->size2 + j] ;
 } 
 
-extern inline 
+inline 
 void
-gsl_matrix_uint_set(gsl_matrix_uint * m, 
-		   const size_t i, const size_t j, 
-		   const unsigned int x)
+gsl_matrix_uint_set(gsl_matrix_uint * m, size_t i, size_t j, unsigned int x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1) /* size_t is unsigned, can't be negative */
--- ./matrix/rowcol_source.c	Sat Nov 21 23:55:43 1998
+++ ../gsl-0.4.1/./matrix/rowcol_source.c	Mon Mar 29 17:38:19 1999
@@ -1,6 +1,6 @@
 int
 FUNCTION (gsl_matrix, copy_row) (const TYPE (gsl_matrix) * m,
-				 const size_t i,
+				 size_t i,
 				 TYPE (gsl_vector) * v)
 {
   const size_t column_length = m->size1;
@@ -34,7 +34,7 @@
 
 int
 FUNCTION (gsl_matrix, copy_col) (const TYPE (gsl_matrix) * m,
-				 const size_t j,
+				 size_t j,
 				 TYPE (gsl_vector) * v)
 {
   const size_t column_length = m->size1;
@@ -74,7 +74,7 @@
 
 int
 FUNCTION (gsl_matrix, set_row) (TYPE (gsl_matrix) * m,
-				const size_t i,
+				size_t i,
 				const TYPE (gsl_vector) * v)
 {
   const size_t column_length = m->size1;
@@ -107,7 +107,7 @@
 
 int
 FUNCTION (gsl_matrix, set_col) (TYPE (gsl_matrix) * m,
-				const size_t j,
+				size_t j,
 				const TYPE (gsl_vector) * v)
 {
   const size_t column_length = m->size1;
--- ./matrix/gsl_matrix_char.h	Mon Nov 23 18:34:45 1998
+++ ../gsl-0.4.1/./matrix/gsl_matrix_char.h	Tue Mar 30 15:14:44 1999
@@ -37,9 +37,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline 
+inline 
 char
-gsl_matrix_char_get(const gsl_matrix_char * m, const size_t i, const size_t j)
+gsl_matrix_char_get(const gsl_matrix_char * m, size_t i, size_t j)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1)  /* size_t is unsigned, can't be negative */
@@ -54,11 +54,9 @@
   return m->data[i * m->size2 + j] ;
 } 
 
-extern inline 
+inline 
 void
-gsl_matrix_char_set(gsl_matrix_char * m, 
-		   const size_t i, const size_t j, 
-		   const char x)
+gsl_matrix_char_set(gsl_matrix_char * m, size_t i, size_t j, char x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1) /* size_t is unsigned, can't be negative */
--- ./matrix/gsl_matrix_uchar.h	Mon Nov 23 18:34:55 1998
+++ ../gsl-0.4.1/./matrix/gsl_matrix_uchar.h	Tue Mar 30 15:15:51 1999
@@ -36,9 +36,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline 
+inline 
 unsigned char
-gsl_matrix_uchar_get(const gsl_matrix_uchar * m, const size_t i, const size_t j)
+gsl_matrix_uchar_get(const gsl_matrix_uchar * m, size_t i, size_t j)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1)  /* size_t is unsigned, can't be negative */
@@ -53,11 +53,9 @@
   return m->data[i * m->size2 + j] ;
 } 
 
-extern inline 
+inline 
 void
-gsl_matrix_uchar_set(gsl_matrix_uchar * m, 
-		   const size_t i, const size_t j, 
-		   const unsigned char x)
+gsl_matrix_uchar_set(gsl_matrix_uchar * m, size_t i, size_t j, unsigned char x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1) /* size_t is unsigned, can't be negative */
--- ./matrix/gsl_matrix_ushort.h	Mon Nov 23 18:34:57 1998
+++ ../gsl-0.4.1/./matrix/gsl_matrix_ushort.h	Tue Mar 30 15:15:08 1999
@@ -37,9 +37,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline 
+inline 
 unsigned short
-gsl_matrix_ushort_get(const gsl_matrix_ushort * m, const size_t i, const size_t j)
+gsl_matrix_ushort_get(const gsl_matrix_ushort * m, size_t i, size_t j)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1)  /* size_t is unsigned, can't be negative */
@@ -54,11 +54,9 @@
   return m->data[i * m->size2 + j] ;
 } 
 
-extern inline 
+inline 
 void
-gsl_matrix_ushort_set(gsl_matrix_ushort * m, 
-		   const size_t i, const size_t j, 
-		   const unsigned short x)
+gsl_matrix_ushort_set(gsl_matrix_ushort * m, size_t i, size_t j, unsigned short x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1) /* size_t is unsigned, can't be negative */
--- ./matrix/gsl_matrix_ulong.h	Mon Nov 23 18:34:56 1998
+++ ../gsl-0.4.1/./matrix/gsl_matrix_ulong.h	Tue Mar 30 15:15:36 1999
@@ -37,9 +37,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline 
+inline 
 unsigned long
-gsl_matrix_ulong_get(const gsl_matrix_ulong * m, const size_t i, const size_t j)
+gsl_matrix_ulong_get(const gsl_matrix_ulong * m, size_t i, size_t j)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1)  /* size_t is unsigned, can't be negative */
@@ -54,11 +54,9 @@
   return m->data[i * m->size2 + j] ;
 } 
 
-extern inline 
+inline 
 void
-gsl_matrix_ulong_set(gsl_matrix_ulong * m, 
-		     const size_t i, const size_t j, 
-		     const unsigned long x)
+gsl_matrix_ulong_set(gsl_matrix_ulong * m, size_t i, size_t j, unsigned long x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1) /* size_t is unsigned, can't be negative */
--- ./matrix/gsl_matrix_float.h	Mon Nov 23 18:34:49 1998
+++ ../gsl-0.4.1/./matrix/gsl_matrix_float.h	Tue Mar 30 15:16:14 1999
@@ -37,10 +37,9 @@
 /* inline functions if you are using GCC */
 
 #ifdef HAVE_INLINE
-extern inline 
+inline 
 float
-gsl_matrix_float_get(const gsl_matrix_float * m, 
-		     const size_t i, const size_t j)
+gsl_matrix_float_get(const gsl_matrix_float * m, size_t i, size_t j)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1)  /* size_t is unsigned, can't be negative */
@@ -55,10 +54,9 @@
   return m->data[i * m->size2 + j] ;
 } 
 
-extern inline 
+inline 
 void
-gsl_matrix_float_set(gsl_matrix_float * m, 
-		     const size_t i, const size_t j, const float x)
+gsl_matrix_float_set(gsl_matrix_float * m, size_t i, size_t j, float x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1) /* size_t is unsigned, can't be negative */
--- ./matrix/gsl_matrix_short.h	Mon Nov 23 18:34:54 1998
+++ ../gsl-0.4.1/./matrix/gsl_matrix_short.h	Tue Mar 30 15:15:56 1999
@@ -37,9 +37,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline 
+inline 
 short
-gsl_matrix_short_get(const gsl_matrix_short * m, const size_t i, const size_t j)
+gsl_matrix_short_get(const gsl_matrix_short * m, size_t i, size_t j)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1)  /* size_t is unsigned, can't be negative */
@@ -54,11 +54,9 @@
   return m->data[i * m->size2 + j] ;
 } 
 
-extern inline 
+inline 
 void
-gsl_matrix_short_set(gsl_matrix_short * m, 
-		   const size_t i, const size_t j, 
-		   const short x)
+gsl_matrix_short_set(gsl_matrix_short * m, size_t i, size_t j, short x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1) /* size_t is unsigned, can't be negative */
--- ./matrix/gsl_matrix_long.h	Mon Nov 23 18:34:52 1998
+++ ../gsl-0.4.1/./matrix/gsl_matrix_long.h	Tue Mar 30 15:16:06 1999
@@ -37,9 +37,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline 
+inline 
 long
-gsl_matrix_long_get(const gsl_matrix_long * m, const size_t i, const size_t j)
+gsl_matrix_long_get(const gsl_matrix_long * m, size_t i, size_t j)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1)  /* size_t is unsigned, can't be negative */
@@ -54,11 +54,9 @@
   return m->data[i * m->size2 + j] ;
 } 
 
-extern inline 
+inline 
 void
-gsl_matrix_long_set(gsl_matrix_long * m, 
-		   const size_t i, const size_t j, 
-		   const long x)
+gsl_matrix_long_set(gsl_matrix_long * m, size_t i, size_t j, long x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1) /* size_t is unsigned, can't be negative */
--- ./matrix/init_source.c	Sat Nov 21 23:55:40 1998
+++ ../gsl-0.4.1/./matrix/init_source.c	Mon Mar 29 17:31:28 1999
@@ -1,5 +1,5 @@
 TYPE (gsl_matrix) *
-FUNCTION (gsl_matrix, alloc) (const size_t n1, const size_t n2)
+FUNCTION (gsl_matrix, alloc) (size_t n1, size_t n2)
 {
   TYPE (gsl_matrix) * m;
 
@@ -39,7 +39,7 @@
 }
 
 TYPE (gsl_matrix) *
-FUNCTION (gsl_matrix, calloc) (const size_t n1, const size_t n2)
+FUNCTION (gsl_matrix, calloc) (size_t n1, size_t n2)
 {
   size_t i;
 
--- ./matrix/matrix_source.c	Sat Nov 21 23:55:41 1998
+++ ../gsl-0.4.1/./matrix/matrix_source.c	Tue Mar 30 14:11:32 1999
@@ -1,6 +1,7 @@
+#if !defined(HAVE_INLINE) || !defined(__sgi)
 inline BASE
 FUNCTION (gsl_matrix, get) (const TYPE (gsl_matrix) * m,
-			    const size_t i, const size_t j)
+			    size_t i, size_t j)
 {
   const BASE zero = ZERO;
 
@@ -20,8 +21,8 @@
 
 inline void
 FUNCTION (gsl_matrix, set) (TYPE (gsl_matrix) * m,
-			    const size_t i, const size_t j,
-			    const BASE x)
+			    size_t i, size_t j,
+			    BASE x)
 {
   if (gsl_check_range)
     {
@@ -36,3 +37,4 @@
     }
   *(BASE *) (m->data + MULTIPLICITY * (i * m->size2 + j)) = x;
 }
+#endif
--- ./matrix/gsl_matrix_double.h	Mon Nov 23 18:34:48 1998
+++ ../gsl-0.4.1/./matrix/gsl_matrix_double.h	Tue Mar 30 14:12:32 1999
@@ -38,9 +38,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline 
+inline 
 double
-gsl_matrix_get(const gsl_matrix * m, const size_t i, const size_t j)
+gsl_matrix_get(const gsl_matrix * m, size_t i, size_t j)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1)  /* size_t is unsigned, can't be negative */
@@ -55,9 +55,9 @@
   return m->data[i * m->size2 + j] ;
 } 
 
-extern inline 
+inline 
 void
-gsl_matrix_set(gsl_matrix * m, const size_t i, const size_t j, const double x)
+gsl_matrix_set(gsl_matrix * m, size_t i, size_t j, double x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1) /* size_t is unsigned, can't be negative */
--- ./matrix/gsl_matrix_int.h	Mon Nov 23 18:34:50 1998
+++ ../gsl-0.4.1/./matrix/gsl_matrix_int.h	Tue Mar 30 15:16:10 1999
@@ -37,9 +37,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline 
+inline 
 int
-gsl_matrix_int_get(const gsl_matrix_int * m, const size_t i, const size_t j)
+gsl_matrix_int_get(const gsl_matrix_int * m, size_t i, size_t j)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1)  /* size_t is unsigned, can't be negative */
@@ -54,11 +54,9 @@
   return m->data[i * m->size2 + j] ;
 } 
 
-extern inline 
+inline 
 void
-gsl_matrix_int_set(gsl_matrix_int * m, 
-		   const size_t i, const size_t j, 
-		   const int x)
+gsl_matrix_int_set(gsl_matrix_int * m, size_t i, size_t j, int x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1) /* size_t is unsigned, can't be negative */
--- ./matrix/gsl_matrix_complex_float.h	Mon Nov 23 18:34:46 1998
+++ ../gsl-0.4.1/./matrix/gsl_matrix_complex_float.h	Tue Mar 30 15:14:18 1999
@@ -39,10 +39,10 @@
 
 #ifdef HAVE_INLINE
 
-extern inline 
+inline 
 gsl_complex_float
 gsl_matrix_complex_float_get(const gsl_matrix_complex_float * m, 
-		     const size_t i, const size_t j)
+			     size_t i, size_t j)
 {
   const gsl_complex_float zero = {{0,0}};
 
@@ -59,10 +59,10 @@
   return *(gsl_complex_float *)(m->data + 2*(i * m->size2 + j)) ;
 } 
 
-extern inline 
+inline 
 void
 gsl_matrix_complex_float_set(gsl_matrix_complex_float * m, 
-		     const size_t i, const size_t j, const gsl_complex_float x)
+			     size_t i, size_t j, gsl_complex_float x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1) /* size_t is unsigned, can't be negative */
--- ./matrix/gsl_matrix_long_double.h	Mon Nov 23 18:34:53 1998
+++ ../gsl-0.4.1/./matrix/gsl_matrix_long_double.h	Tue Mar 30 14:12:13 1999
@@ -37,9 +37,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline 
+inline 
 long double
-gsl_matrix_long_double_get(const gsl_matrix_long_double * m, const size_t i, const size_t j)
+gsl_matrix_long_double_get(const gsl_matrix_long_double * m, size_t i, size_t j)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1)  /* size_t is unsigned, can't be negative */
@@ -54,9 +54,9 @@
   return m->data[i * m->size2 + j] ;
 } 
 
-extern inline 
+inline 
 void
-gsl_matrix_long_double_set(gsl_matrix_long_double * m, const size_t i, const size_t j, const long double x)
+gsl_matrix_long_double_set(gsl_matrix_long_double * m, size_t i, size_t j, long double x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1) /* size_t is unsigned, can't be negative */
--- ./matrix/gsl_matrix_complex_double.h	Mon Nov 23 18:34:45 1998
+++ ../gsl-0.4.1/./matrix/gsl_matrix_complex_double.h	Tue Mar 30 15:14:30 1999
@@ -40,10 +40,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline 
+inline 
 gsl_complex
-gsl_matrix_complex_get(const gsl_matrix_complex * m, 
-		     const size_t i, const size_t j)
+gsl_matrix_complex_get(const gsl_matrix_complex * m, size_t i, size_t j)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   const gsl_complex zero = {{0,0}};
@@ -60,11 +59,11 @@
   return *(gsl_complex *)(m->data + 2*(i * m->size2 + j)) ;
 } 
 
-extern inline 
+inline 
 void
 gsl_matrix_complex_set(gsl_matrix_complex * m, 
-		       const size_t i, const size_t j,
-		       const gsl_complex x)
+		       size_t i, size_t j,
+		       gsl_complex x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1) /* size_t is unsigned, can't be negative */
--- ./matrix/gsl_matrix_complex_long_double.h	Mon Nov 23 18:34:47 1998
+++ ../gsl-0.4.1/./matrix/gsl_matrix_complex_long_double.h	Tue Mar 30 15:13:59 1999
@@ -39,10 +39,10 @@
 
 #ifdef HAVE_INLINE
 
-extern inline 
+inline 
 gsl_complex_long_double
 gsl_matrix_complex_long_double_get(const gsl_matrix_complex_long_double * m, 
-		     const size_t i, const size_t j)
+				   size_t i, size_t j)
 {
   const gsl_complex_long_double zero = {{0,0}};
 
@@ -59,11 +59,11 @@
   return *(gsl_complex_long_double *)(m->data + 2*(i * m->size2 + j));
 } 
 
-extern inline 
+inline 
 void
 gsl_matrix_complex_long_double_set(gsl_matrix_complex_long_double * m, 
-		                   const size_t i, const size_t j,
-				   const gsl_complex_long_double x)
+		                   size_t i, size_t j,
+				   gsl_complex_long_double x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= m->size1) /* size_t is unsigned, can't be negative */
--- ./Makefile.in	Wed Feb 24 18:58:14 1999
+++ ../gsl-0.4.1/./Makefile.in	Tue Mar 30 16:22:14 1999
@@ -444,7 +444,7 @@
 
 libgsl.a: err/libgslerr.a err/libgsltest.a sys/libgslsys.a ieee-utils/libgslieeeutils.a vector/libgslvector.a matrix/libgslmatrix.a blas/libgslblas.a blas/libgslblasnative.a blas/libgslblascblas.a specfunc/libgslspecfunc.a rng/libgslrng.a randist/libgslrandist.a fft/libgslfft.a roots/libgslroots.a statistics/libgslstatistics.a siman/libgslsiman.a sum/libgslsum.a integration/libgslintegration.a interpolation/libgslinterpolation.a histogram/libgslhistogram.a monte/libgslmonte.a
 	@rm -f libgsl.a
-	$(AR) q libgsl.a err/error.o err/stream.o err/message.o err/strerror.o err/warn.o
+	$(AR) cq libgsl.a err/error.o err/stream.o err/message.o err/strerror.o err/warn.o
 	$(AR) q libgsl.a err/test_results.o
 	$(AR) q libgsl.a sys/minmax.o
 	$(AR) q libgsl.a ieee-utils/endian.o ieee-utils/print.o ieee-utils/standardize.o ieee-utils/make_rep.o ieee-utils/env.o ieee-utils/fp.o ieee-utils/read.o
--- ./specfunc/gsl_sf_exp.h	Fri Dec 18 18:42:50 1998
+++ ../gsl-0.4.1/./specfunc/gsl_sf_exp.h	Tue Mar 30 15:26:59 1999
@@ -78,8 +78,8 @@
 #ifdef HAVE_INLINE
 #include <gsl_math.h>
 #include <gsl_errno.h>
-extern inline
-int gsl_sf_exp_impl(const double x, gsl_sf_result * result)
+inline
+int gsl_sf_exp_impl(double x, gsl_sf_result * result)
 {
   if(x > GSL_LOG_DBL_MAX) {
     result->val = 0.0;
--- ./specfunc/hyperg_U.c	Tue Feb 16 18:46:30 1999
+++ ../gsl-0.4.1/./specfunc/hyperg_U.c	Mon Mar 29 18:13:13 1999
@@ -1274,7 +1274,7 @@
 
 
 int
-gsl_sf_hyperg_U_int_impl(const int a, const int b, const double x, gsl_sf_result * result)
+gsl_sf_hyperg_U_int_impl(int a, int b, double x, gsl_sf_result * result)
 {
   if(x <= 0.0) {
     result->val = 0.0;
@@ -1323,7 +1323,7 @@
 
 
 int
-gsl_sf_hyperg_U_impl(const double a, const double b, const double x, gsl_sf_result * result)
+gsl_sf_hyperg_U_impl(double a, double b, double x, gsl_sf_result * result)
 {
   const double rinta = floor(a + 0.5);
   const double rintb = floor(b + 0.5);
@@ -1389,7 +1389,7 @@
 
 
 int
-gsl_sf_hyperg_U_int_e(const int a, const int b, const double x, gsl_sf_result * result)
+gsl_sf_hyperg_U_int_e(int a, int b, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_hyperg_U_int_impl(a, b, x, result);
   if(status != GSL_SUCCESS) {
@@ -1400,7 +1400,7 @@
 
 
 int
-gsl_sf_hyperg_U_e(const double a, const double b, const double x, gsl_sf_result * result)
+gsl_sf_hyperg_U_e(double a, double b, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_hyperg_U_impl(a, b, x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/gsl_sf_poly.h	Sun Nov  8 22:04:07 1998
+++ ../gsl-0.4.1/./specfunc/gsl_sf_poly.h	Tue Mar 30 15:22:34 1999
@@ -9,12 +9,12 @@
  *
  * exceptions: none
  */
-double gsl_sf_poly_eval(const double c[], const int len, const double x);
+double gsl_sf_poly_eval(const double c[], int len, double x);
 
 
 #ifdef HAVE_INLINE
-extern inline
-double gsl_sf_poly_eval(const double c[], const int len, const double x)
+inline
+double gsl_sf_poly_eval(const double c[], int len, double x)
 {
   int i;
   double ans = c[len-1];
--- ./specfunc/bessel_Y0.c	Thu Jan 21 14:10:46 1999
+++ ../gsl-0.4.1/./specfunc/bessel_Y0.c	Mon Mar 29 17:49:08 1999
@@ -51,7 +51,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_Y0_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_Y0_impl(double x, gsl_sf_result * result)
 {
   const double two_over_pi = 2.0/M_PI;
   const double xmax        = 1.0/GSL_DBL_EPSILON;
@@ -101,7 +101,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_Y0_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_Y0_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_Y0_impl(x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/bessel_Y1.c	Thu Jan 21 12:01:06 1999
+++ ../gsl-0.4.1/./specfunc/bessel_Y1.c	Mon Mar 29 17:49:23 1999
@@ -52,7 +52,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_Y1_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_Y1_impl(double x, gsl_sf_result * result)
 {
   const double two_over_pi = 2.0/M_PI;
   const double xmin = 1.571*DBL_MIN; /*exp ( amax1(alog(r1mach(1)), -alog(r1mach(2)))+.01) */
@@ -118,7 +118,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_Y1_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_Y1_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_Y1_impl(x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/bessel_Yn.c	Thu Jan 21 14:10:47 1999
+++ ../gsl-0.4.1/./specfunc/bessel_Yn.c	Mon Mar 29 17:49:36 1999
@@ -78,7 +78,7 @@
 
 
 int
-gsl_sf_bessel_Yn_impl(int n, const double x, gsl_sf_result * result)
+gsl_sf_bessel_Yn_impl(int n, double x, gsl_sf_result * result)
 {
   int sign = 1;
 
@@ -149,7 +149,7 @@
 
 
 int
-gsl_sf_bessel_Yn_array_impl(const int nmin, const int nmax, const double x, double * result_array)
+gsl_sf_bessel_Yn_array_impl(int nmin, int nmax, double x, double * result_array)
 {
   if(result_array == 0) {
     return GSL_EFAULT;
@@ -193,7 +193,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_bessel_Yn_e(const int n, const double x, gsl_sf_result * result)
+gsl_sf_bessel_Yn_e(int n, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_Yn_impl(n, x, result);
   if(status != GSL_SUCCESS) {
@@ -204,7 +204,7 @@
 
 
 int
-gsl_sf_bessel_Yn_array_e(const int nmin, const int nmax, const double x, double * result_array)
+gsl_sf_bessel_Yn_array_e(int nmin, int nmax, double x, double * result_array)
 {
   int status = gsl_sf_bessel_Yn_array_impl(nmin, nmax, x, result_array);
   if(status != GSL_SUCCESS) {
--- ./specfunc/gsl_sf_pow_int.h	Fri Dec 18 18:42:53 1998
+++ ../gsl-0.4.1/./specfunc/gsl_sf_pow_int.h	Tue Mar 30 15:21:54 1999
@@ -10,14 +10,14 @@
 /* Calculate small integer powers.
  * Does not check for overflow/underflow.
  */
-double gsl_sf_pow_2(const double x);
-double gsl_sf_pow_3(const double x);
-double gsl_sf_pow_4(const double x);
-double gsl_sf_pow_5(const double x);
-double gsl_sf_pow_6(const double x);
-double gsl_sf_pow_7(const double x);
-double gsl_sf_pow_8(const double x);
-double gsl_sf_pow_9(const double x);
+double gsl_sf_pow_2(double x);
+double gsl_sf_pow_3(double x);
+double gsl_sf_pow_4(double x);
+double gsl_sf_pow_5(double x);
+double gsl_sf_pow_6(double x);
+double gsl_sf_pow_7(double x);
+double gsl_sf_pow_8(double x);
+double gsl_sf_pow_9(double x);
 
 
 /* Calculate x^n.
@@ -30,16 +30,16 @@
 
 
 #ifdef HAVE_INLINE
-extern inline double gsl_sf_pow_2(const double x) { return x*x;   }
-extern inline double gsl_sf_pow_3(const double x) { return x*x*x; }
-extern inline double gsl_sf_pow_4(const double x) { double x2 = x*x;   return x2*x2;	}
-extern inline double gsl_sf_pow_5(const double x) { double x2 = x*x;   return x2*x2*x;  }
-extern inline double gsl_sf_pow_6(const double x) { double x2 = x*x;   return x2*x2*x2; }
-extern inline double gsl_sf_pow_7(const double x) { double x3 = x*x*x; return x3*x3*x;  }
-extern inline double gsl_sf_pow_8(const double x) { double x2 = x*x;   double x4 = x2*x2; return x4*x4; }
-extern inline double gsl_sf_pow_9(const double x) { double x3 = x*x*x; return x3*x3*x3; }
+inline double gsl_sf_pow_2(double x) { return x*x;   }
+inline double gsl_sf_pow_3(double x) { return x*x*x; }
+inline double gsl_sf_pow_4(double x) { double x2 = x*x;   return x2*x2;	}
+inline double gsl_sf_pow_5(double x) { double x2 = x*x;   return x2*x2*x;  }
+inline double gsl_sf_pow_6(double x) { double x2 = x*x;   return x2*x2*x2; }
+inline double gsl_sf_pow_7(double x) { double x3 = x*x*x; return x3*x3*x;  }
+inline double gsl_sf_pow_8(double x) { double x2 = x*x;   double x4 = x2*x2; return x4*x4; }
+inline double gsl_sf_pow_9(double x) { double x3 = x*x*x; return x3*x3*x3; }
 
-extern inline
+inline
 int gsl_sf_pow_int_e(double x, int n, gsl_sf_result * result)
 {
   int status = gsl_sf_pow_int_impl(x, n, result);
@@ -50,7 +50,7 @@
   
 }
 
-extern inline
+inline
 double gsl_sf_pow_int(double x, int n)
 {
   gsl_sf_result p;
--- ./specfunc/bessel_K0.c	Sun Jan 17 16:55:58 1999
+++ ../gsl-0.4.1/./specfunc/bessel_K0.c	Mon Mar 29 17:47:44 1999
@@ -112,7 +112,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_K0_scaled_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_K0_scaled_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -152,7 +152,7 @@
 }
 
 
-int gsl_sf_bessel_K0_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_K0_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -185,7 +185,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_K0_scaled_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_K0_scaled_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_K0_scaled_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -195,7 +195,7 @@
 }
 
 
-int gsl_sf_bessel_K0_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_K0_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_K0_impl(x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/bessel_K1.c	Sun Jan 17 16:55:59 1999
+++ ../gsl-0.4.1/./specfunc/bessel_K1.c	Mon Mar 29 17:47:57 1999
@@ -113,7 +113,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_K1_scaled_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_K1_scaled_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -159,7 +159,7 @@
 }
 
 
-int gsl_sf_bessel_K1_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_K1_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -199,7 +199,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_K1_scaled_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_K1_scaled_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_K1_scaled_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -208,7 +208,7 @@
   return status;
 }
 
-int gsl_sf_bessel_K1_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_K1_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_K1_impl(x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/bessel_Kn.c	Thu Jan 21 14:10:44 1999
+++ ../gsl-0.4.1/./specfunc/bessel_Kn.c	Mon Mar 29 17:48:21 1999
@@ -79,7 +79,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_Kn_scaled_impl(int n, const double x, gsl_sf_result * result)
+int gsl_sf_bessel_Kn_scaled_impl(int n, double x, gsl_sf_result * result)
 {
   n = abs(n); /* K(-n, z) = K(n, z) */
 
@@ -131,7 +131,7 @@
 }
 
 
-int gsl_sf_bessel_Kn_impl(const int n, const double x, gsl_sf_result * result)
+int gsl_sf_bessel_Kn_impl(int n, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_Kn_scaled_impl(n, x, result);
   double ex = exp(-x);
@@ -141,7 +141,7 @@
 }
 
 
-int gsl_sf_bessel_Kn_scaled_array_impl(const int nmin, const int nmax, const double x, double * result_array)
+int gsl_sf_bessel_Kn_scaled_array_impl(int nmin, int nmax, double x, double * result_array)
 {
   if(result_array == 0) {
     return GSL_EFAULT;
@@ -196,7 +196,7 @@
 
 
 int
-gsl_sf_bessel_Kn_array_impl(const int nmin, const int nmax, const double x, double * result_array)
+gsl_sf_bessel_Kn_array_impl(int nmin, int nmax, double x, double * result_array)
 {
   int status = gsl_sf_bessel_Kn_scaled_array_impl(nmin, nmax, x, result_array);
   double ex = exp(-x);
@@ -208,7 +208,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_Kn_scaled_e(const int n, const double x, gsl_sf_result * result)
+int gsl_sf_bessel_Kn_scaled_e(int n, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_Kn_scaled_impl(n, x, result);
   if(status != GSL_SUCCESS) {
@@ -218,7 +218,7 @@
 }
 
 
-int gsl_sf_bessel_Kn_e(const int n, const double x, gsl_sf_result * result)
+int gsl_sf_bessel_Kn_e(int n, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_Kn_impl(n, x, result);
   if(status != GSL_SUCCESS) {
@@ -228,7 +228,7 @@
 }
 
 
-int gsl_sf_bessel_Kn_scaled_array_e(const int nmin, const int nmax, const double x, double * result)
+int gsl_sf_bessel_Kn_scaled_array_e(int nmin, int nmax, double x, double * result)
 {
   int status = gsl_sf_bessel_Kn_scaled_array_impl(nmin, nmax, x, result);
   if(status != GSL_SUCCESS) {
@@ -237,7 +237,7 @@
   return status;
 }
 
-int gsl_sf_bessel_Kn_array_e(const int nmin, const int nmax, const double x, double * result)
+int gsl_sf_bessel_Kn_array_e(int nmin, int nmax, double x, double * result)
 {
   int status = gsl_sf_bessel_Kn_array_impl(nmin, nmax, x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/bessel_J0.c	Thu Jan 21 12:01:04 1999
+++ ../gsl-0.4.1/./specfunc/bessel_J0.c	Mon Mar 29 17:46:22 1999
@@ -53,7 +53,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_J0_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_J0_impl(double x, gsl_sf_result * result)
 {
   double y = fabs(x);
 
@@ -88,7 +88,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_J0_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_J0_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_J0_impl(x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/bessel_J1.c	Thu Jan 21 12:01:05 1999
+++ ../gsl-0.4.1/./specfunc/bessel_J1.c	Mon Mar 29 17:46:39 1999
@@ -53,7 +53,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_J1_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_J1_impl(double x, gsl_sf_result * result)
 {
   double y = fabs(x);
 
@@ -106,7 +106,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_J1_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_J1_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_J1_impl(x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/bessel_Jn.c	Wed Feb 10 20:09:25 1999
+++ ../gsl-0.4.1/./specfunc/bessel_Jn.c	Mon Mar 29 17:46:51 1999
@@ -167,7 +167,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_Jn_e(const int n, const double x, gsl_sf_result * result)
+int gsl_sf_bessel_Jn_e(int n, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_Jn_impl(n, x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/bessel_I0.c	Sun Jan 17 16:55:54 1999
+++ ../gsl-0.4.1/./specfunc/bessel_I0.c	Mon Mar 29 17:44:54 1999
@@ -126,7 +126,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_I0_scaled_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_I0_scaled_impl(double x, gsl_sf_result * result)
 {
   double y = fabs(x);
 
@@ -165,7 +165,7 @@
 }
 
 
-int gsl_sf_bessel_I0_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_I0_impl(double x, gsl_sf_result * result)
 {
   double y = fabs(x);
 
@@ -202,7 +202,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_I0_scaled_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_I0_scaled_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_I0_scaled_impl(x, result);  
   if(status != GSL_SUCCESS) {
@@ -211,7 +211,7 @@
   return status;
 }
 
-int gsl_sf_bessel_I0_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_I0_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_I0_impl(x, result);  
   if(status != GSL_SUCCESS) {
--- ./specfunc/bessel_I1.c	Sun Jan 17 16:55:55 1999
+++ ../gsl-0.4.1/./specfunc/bessel_I1.c	Mon Mar 29 17:45:18 1999
@@ -125,7 +125,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_I1_scaled_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_I1_scaled_impl(double x, gsl_sf_result * result)
 {
   const double xmin    = 2.0 * GSL_DBL_MIN;
   const double x_small = ROOT_EIGHT * GSL_SQRT_DBL_EPSILON;
@@ -184,7 +184,7 @@
 }
 
 
-int gsl_sf_bessel_I1_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_I1_impl(double x, gsl_sf_result * result)
 {
   const double xmin    = 2.0 * GSL_DBL_MIN;
   const double x_small = ROOT_EIGHT * GSL_SQRT_DBL_EPSILON;
@@ -233,7 +233,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_I1_scaled_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_I1_scaled_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_I1_scaled_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -242,7 +242,7 @@
   return status;
 }
 
-int gsl_sf_bessel_I1_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_I1_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_I1_impl(x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/bessel_In.c	Wed Feb 10 20:09:23 1999
+++ ../gsl-0.4.1/./specfunc/bessel_In.c	Mon Mar 29 17:46:03 1999
@@ -13,7 +13,7 @@
 
 
 int
-gsl_sf_bessel_In_scaled_impl(int n, const double x, gsl_sf_result * result)
+gsl_sf_bessel_In_scaled_impl(int n, double x, gsl_sf_result * result)
 {
   const double ax = fabs(x);
 
@@ -91,7 +91,7 @@
 
 
 int
-gsl_sf_bessel_In_scaled_array_impl(const int nmin, const int nmax, const double x, double * result_array)
+gsl_sf_bessel_In_scaled_array_impl(int nmin, int nmax, double x, double * result_array)
 {
   if(result_array == 0) {
     return GSL_EFAULT;
@@ -147,7 +147,7 @@
 
 
 int
-gsl_sf_bessel_In_impl(const int n_in, const double x, gsl_sf_result * result)
+gsl_sf_bessel_In_impl(int n_in, double x, gsl_sf_result * result)
 {
   const double ax = fabs(x);
   const int n = abs(n_in);  /* I(-n, z) = I(n, z) */
@@ -173,7 +173,7 @@
 
 
 int
-gsl_sf_bessel_In_array_impl(const int nmin, const int nmax, const double x, double * result_array)
+gsl_sf_bessel_In_array_impl(int nmin, int nmax, double x, double * result_array)
 {
   double ax = fabs(x);
 
@@ -197,7 +197,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_In_scaled_e(const int n, const double x, gsl_sf_result * result)
+int gsl_sf_bessel_In_scaled_e(int n, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_In_scaled_impl(n, x, result);
   if(status != GSL_SUCCESS) {
@@ -206,7 +206,7 @@
   return status;
 }
 
-int gsl_sf_bessel_In_e(const int n, const double x, gsl_sf_result * result)
+int gsl_sf_bessel_In_e(int n, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_In_impl(n, x, result);
   if(status != GSL_SUCCESS) {
@@ -216,7 +216,7 @@
 }
 
 int
-gsl_sf_bessel_In_scaled_array_e(const int nmin, const int nmax, const double x, double * result_array)
+gsl_sf_bessel_In_scaled_array_e(int nmin, int nmax, double x, double * result_array)
 {
   int status = gsl_sf_bessel_In_scaled_array_impl(nmin, nmax, x, result_array);
   if(status != GSL_SUCCESS) {
@@ -225,7 +225,7 @@
   return status;
 }
 
-int gsl_sf_bessel_In_array_e(const int nmin, const int nmax, const double x, double * result_array)
+int gsl_sf_bessel_In_array_e(int nmin, int nmax, double x, double * result_array)
 {
   int status = gsl_sf_bessel_In_array_impl(nmin, nmax, x, result_array);
   if(status != GSL_SUCCESS) {
--- ./specfunc/psi.c	Fri Feb 12 13:54:12 1999
+++ ../gsl-0.4.1/./specfunc/psi.c	Mon Mar 29 18:23:55 1999
@@ -355,7 +355,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_psi_int_impl(const int n, gsl_sf_result * result)
+int gsl_sf_psi_int_impl(int n, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -386,7 +386,7 @@
 }
 
 
-int gsl_sf_psi_impl(const double x, gsl_sf_result * result)
+int gsl_sf_psi_impl(double x, gsl_sf_result * result)
 {
   const double y = fabs(x);
 
@@ -472,7 +472,7 @@
 
 
 int
-gsl_sf_psi_1piy_impl(const double y, gsl_sf_result * result)
+gsl_sf_psi_1piy_impl(double y, gsl_sf_result * result)
 {
   const double ay = fabs(y);
 
@@ -550,7 +550,7 @@
 }
 
 
-int gsl_sf_psi_1_int_impl(const int n, gsl_sf_result * result)
+int gsl_sf_psi_1_int_impl(int n, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -581,7 +581,7 @@
 }
 
 
-int gsl_sf_psi_n_impl(const int n, const double x, gsl_sf_result * result)
+int gsl_sf_psi_n_impl(int n, double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -610,7 +610,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_psi_int_e(const int n, gsl_sf_result * result)
+int gsl_sf_psi_int_e(int n, gsl_sf_result * result)
 {
   int status = gsl_sf_psi_int_impl(n, result);
   if(status != GSL_SUCCESS){
@@ -619,7 +619,7 @@
   return status;
 }
 
-int gsl_sf_psi_e(const double x, gsl_sf_result * result)
+int gsl_sf_psi_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_psi_impl(x, result);
   if(status != GSL_SUCCESS){
@@ -628,7 +628,7 @@
   return status;
 }
 
-int gsl_sf_psi_1piy_e(const double x, gsl_sf_result * result)
+int gsl_sf_psi_1piy_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_psi_1piy_impl(x, result);
   if(status != GSL_SUCCESS){
@@ -637,7 +637,7 @@
   return status;
 }
 
-int gsl_sf_psi_1_int_e(const int n, gsl_sf_result * result)
+int gsl_sf_psi_1_int_e(int n, gsl_sf_result * result)
 {
   int status = gsl_sf_psi_1_int_impl(n, result);
   if(status != GSL_SUCCESS){
@@ -646,7 +646,7 @@
   return status;
 }
 
-int gsl_sf_psi_n_e(const int n, const double x, gsl_sf_result * result)
+int gsl_sf_psi_n_e(int n, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_psi_n_impl(n, x, result);
   if(status != GSL_SUCCESS){
--- ./specfunc/legendre_Qn.c	Thu Jan 21 12:01:15 1999
+++ ../gsl-0.4.1/./specfunc/legendre_Qn.c	Mon Mar 29 18:18:31 1999
@@ -158,7 +158,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_legendre_Q0_impl(const double x, gsl_sf_result * result)
+gsl_sf_legendre_Q0_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -200,7 +200,7 @@
 
 
 int
-gsl_sf_legendre_Q1_impl(const double x, gsl_sf_result * result)
+gsl_sf_legendre_Q1_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -244,7 +244,7 @@
 
 
 int
-gsl_sf_legendre_Ql_impl(const int l, const double x, gsl_sf_result * result)
+gsl_sf_legendre_Ql_impl(int l, double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -319,7 +319,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_legendre_Q0_e(const double x, gsl_sf_result * result)
+gsl_sf_legendre_Q0_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_legendre_Q0_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -330,7 +330,7 @@
 
 
 int
-gsl_sf_legendre_Q1_e(const double x, gsl_sf_result * result)
+gsl_sf_legendre_Q1_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_legendre_Q1_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -341,7 +341,7 @@
 
 
 int
-gsl_sf_legendre_Ql_e(const int l, const double x, gsl_sf_result * result)
+gsl_sf_legendre_Ql_e(int l, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_legendre_Ql_impl(l, x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/bessel_temme.c	Thu Feb 11 14:33:29 1999
+++ ../gsl-0.4.1/./specfunc/bessel_temme.c	Mon Mar 29 17:52:47 1999
@@ -69,7 +69,7 @@
 
 static
 int
-gsl_sf_temme_gamma(const double nu, double * g_1pnu, double * g_1mnu, double * g1, double * g2)
+gsl_sf_temme_gamma(double nu, double * g_1pnu, double * g_1mnu, double * g1, double * g2)
 {
   const double anu = fabs(nu);    /* functions are even */
   const double x = 4.0*anu - 1.0;
@@ -86,7 +86,7 @@
 
 
 int
-gsl_sf_bessel_Y_temme(const double nu, const double x,
+gsl_sf_bessel_Y_temme(double nu, double x,
                       gsl_sf_result * Ynu,
                       gsl_sf_result * Ynup1)
 {
@@ -149,7 +149,7 @@
 
 
 int
-gsl_sf_bessel_K_scaled_temme(const double nu, const double x,
+gsl_sf_bessel_K_scaled_temme(double nu, double x,
                              double * K_nu, double * K_nup1, double * Kp_nu)
 {
   const int max_iter = 15000;
--- ./specfunc/legendre.h	Sat Dec 19 16:37:26 1998
+++ ../gsl-0.4.1/./specfunc/legendre.h	Mon Mar 29 18:20:34 1999
@@ -22,8 +22,8 @@
  * 1 < x
  */
 int
-gsl_sf_conicalP_xgt1_neg_mu_largetau_impl(const double mu, const double tau,
-                                          const double x, const double acosh_x,
+gsl_sf_conicalP_xgt1_neg_mu_largetau_impl(double mu, double tau,
+                                          double x, double acosh_x,
                                           gsl_sf_result * result, double * ln_multiplier);
 
 
@@ -32,8 +32,8 @@
  * -1 < x < 1
  */
 int
-gsl_sf_conicalP_xlt1_neg_mu_largetau_impl(const double mu, const double tau,
-                                          const double x, const double acos_x,
+gsl_sf_conicalP_xlt1_neg_mu_largetau_impl(double mu, double tau,
+                                          double x, double acos_x,
                                           gsl_sf_result * result, double * ln_multiplier);
 
 
@@ -50,5 +50,5 @@
  * [Zhurina+Karmazina, (3.8)]
  */
 int
-gsl_sf_conicalP_large_x_impl(const double mu, const double tau, const double x,
+gsl_sf_conicalP_large_x_impl(double mu, double tau, double x,
                              gsl_sf_result * result, double * ln_multiplier);
--- ./specfunc/trig.c	Wed Feb 17 18:25:11 1999
+++ ../gsl-0.4.1/./specfunc/trig.c	Tue Mar 30 14:23:03 1999
@@ -112,6 +112,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
+#if !defined(HAVE_INLINE) || !defined(__sgi)
 /* I would have prefered just using the library sin() function.
  * But after some experimentation I decided that there was
  * no good way to understand the error; library sin() is just a black box.
@@ -186,8 +187,10 @@
     }
   }
 }
+#endif
 
 
+#if !defined(HAVE_INLINE) || !defined(__sgi)
 int
 gsl_sf_cos_impl(double x, gsl_sf_result * result)
 {
@@ -260,10 +263,11 @@
     }
   }
 }
+#endif
 
 
 int
-gsl_sf_hypot_impl(const double x, const double y, gsl_sf_result * result)
+gsl_sf_hypot_impl(double x, double y, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -296,7 +300,7 @@
 
 
 int
-gsl_sf_complex_sin_impl(const double zr, const double zi,
+gsl_sf_complex_sin_impl(double zr, double zi,
                         gsl_sf_result * szr, gsl_sf_result * szi)
 {
   if(szr == 0 || szi == 0) {
@@ -333,7 +337,7 @@
 
 
 int
-gsl_sf_complex_cos_impl(const double zr, const double zi,
+gsl_sf_complex_cos_impl(double zr, double zi,
                         gsl_sf_result * czr, gsl_sf_result * czi)
 {
   if(czr == 0 || czi == 0) {
@@ -370,7 +374,7 @@
 
 
 int
-gsl_sf_complex_logsin_impl(const double zr, const double zi,
+gsl_sf_complex_logsin_impl(double zr, double zi,
                            gsl_sf_result * lszr, gsl_sf_result * lszi)
 {
   if(lszr == 0 || lszi == 0) {
@@ -406,7 +410,7 @@
 
 
 int
-gsl_sf_lnsinh_impl(const double x, gsl_sf_result * result)
+gsl_sf_lnsinh_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -436,7 +440,7 @@
 }
 
 
-int gsl_sf_lncosh_impl(const double x, gsl_sf_result * result)
+int gsl_sf_lncosh_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -460,7 +464,7 @@
 
 
 /*
-inline int gsl_sf_sincos_impl(const double theta, double * s, double * c)
+inline int gsl_sf_sincos_impl(double theta, double * s, double * c)
 {
   double tan_half = tan(0.5 * theta);
   double den = 1. + tan_half*tan_half;
@@ -470,7 +474,7 @@
 */
 
 int
-gsl_sf_polar_to_rect_impl(const double r, const double theta,
+gsl_sf_polar_to_rect_impl(double r, double theta,
                           gsl_sf_result * x, gsl_sf_result * y)
 {
   double t   = theta;
@@ -488,7 +492,7 @@
 
 
 int
-gsl_sf_rect_to_polar_impl(const double x, const double y,
+gsl_sf_rect_to_polar_impl(double x, double y,
                           gsl_sf_result * r, gsl_sf_result * theta)
 {
   int stat_h = gsl_sf_hypot_impl(x, y, r);
@@ -547,7 +551,7 @@
 }
 
 
-int gsl_sf_sin_err_impl(const double x, const double dx, gsl_sf_result * result)
+int gsl_sf_sin_err_impl(double x, double dx, gsl_sf_result * result)
 {
   int stat_s = gsl_sf_sin_impl(x, result);
   result->err += fabs(cos(x) * dx);
@@ -556,7 +560,7 @@
 }
 
 
-int gsl_sf_cos_err_impl(const double x, const double dx, gsl_sf_result * result)
+int gsl_sf_cos_err_impl(double x, double dx, gsl_sf_result * result)
 {
   int stat_c = gsl_sf_cos_impl(x, result);
   result->err += fabs(sin(x) * dx);
@@ -566,7 +570,7 @@
 
 
 int
-gsl_sf_sin_pi_x_impl(const double x, gsl_sf_result * result)
+gsl_sf_sin_pi_x_impl(double x, gsl_sf_result * result)
 {
   const double N = floor(x + 0.5);
   const double f = x - N;
@@ -602,7 +606,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
 
-int gsl_sf_sin_e(const double x, gsl_sf_result * r)
+int gsl_sf_sin_e(double x, gsl_sf_result * r)
 {
   int status = gsl_sf_sin_impl(x, r);
   if(status != GSL_SUCCESS) {
@@ -611,7 +615,7 @@
   return status;
 }
 
-int gsl_sf_cos_e(const double x, gsl_sf_result * r)
+int gsl_sf_cos_e(double x, gsl_sf_result * r)
 {
   int status = gsl_sf_cos_impl(x, r);
   if(status != GSL_SUCCESS) {
@@ -620,7 +624,7 @@
   return status;
 }
 
-int gsl_sf_hypot_e(const double x, const double y, gsl_sf_result * r)
+int gsl_sf_hypot_e(double x, double y, gsl_sf_result * r)
 {
   int status = gsl_sf_hypot_impl(x, y, r);
   if(status != GSL_SUCCESS) {
@@ -629,7 +633,7 @@
   return status;
 }
 
-int gsl_sf_complex_sin_e(const double zr, const double zi, gsl_sf_result * szr, gsl_sf_result * szi)
+int gsl_sf_complex_sin_e(double zr, double zi, gsl_sf_result * szr, gsl_sf_result * szi)
 {
   int status = gsl_sf_complex_sin_impl(zr, zi, szr, szi);
   if(status != GSL_SUCCESS) {
@@ -638,7 +642,7 @@
   return status;
 }
 
-int gsl_sf_complex_logsin_e(const double zr, const double zi, gsl_sf_result * lszr, gsl_sf_result * lszi)
+int gsl_sf_complex_logsin_e(double zr, double zi, gsl_sf_result * lszr, gsl_sf_result * lszi)
 {
   int status = gsl_sf_complex_logsin_impl(zr, zi, lszr, lszi);
   if(status != GSL_SUCCESS) {
@@ -647,7 +651,7 @@
   return status;
 }
 
-int gsl_sf_complex_cos_e(const double zr, const double zi, gsl_sf_result * czr, gsl_sf_result * czi)
+int gsl_sf_complex_cos_e(double zr, double zi, gsl_sf_result * czr, gsl_sf_result * czi)
 {
   int status = gsl_sf_complex_cos_impl(zr, zi, czr, czi);
   if(status != GSL_SUCCESS) {
@@ -656,7 +660,7 @@
   return status;
 }
 
-int gsl_sf_lnsinh_e(const double x, gsl_sf_result * result)
+int gsl_sf_lnsinh_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_lnsinh_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -665,7 +669,7 @@
   return status;
 }
 
-int gsl_sf_lncosh_e(const double x, gsl_sf_result * result)
+int gsl_sf_lncosh_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_lncosh_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -674,7 +678,7 @@
   return status;
 }
 
-int gsl_sf_polar_to_rect_e(const double r, const double theta, gsl_sf_result * x, gsl_sf_result * y)
+int gsl_sf_polar_to_rect_e(double r, double theta, gsl_sf_result * x, gsl_sf_result * y)
 {
   int status = gsl_sf_polar_to_rect_impl(r, theta, x, y);
   if(status != GSL_SUCCESS) {
@@ -683,7 +687,7 @@
   return status;
 }
 
-int gsl_sf_rect_to_polar_e(const double x, const double y, gsl_sf_result * r, gsl_sf_result * theta)
+int gsl_sf_rect_to_polar_e(double x, double y, gsl_sf_result * r, gsl_sf_result * theta)
 {
   int status = gsl_sf_rect_to_polar_impl(x, y, r, theta);
   if(status != GSL_SUCCESS) {
@@ -710,7 +714,7 @@
   return status;
 }
 
-int gsl_sf_sin_pi_x_e(const double x, gsl_sf_result * result)
+int gsl_sf_sin_pi_x_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_sin_pi_x_impl(x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/debye.c	Sun Dec 13 20:12:40 1998
+++ ../gsl-0.4.1/./specfunc/debye.c	Mon Mar 29 18:01:14 1999
@@ -124,10 +124,10 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_debye_1_impl(const double x, gsl_sf_result * result)
+int gsl_sf_debye_1_impl(double x, gsl_sf_result * result)
 {
   const double val_infinity = 1.64493406684822644;
-  const double xcut = -GSL_LOG_DBL_MIN;
+  const double xcut = - GSL_LOG_DBL_MIN;
 
   if(result == 0) {
     return GSL_EFAULT;
@@ -180,10 +180,10 @@
 }
 
     
-int gsl_sf_debye_2_impl(const double x, gsl_sf_result * result)
+int gsl_sf_debye_2_impl(double x, gsl_sf_result * result)
 {
   const double val_infinity = 4.80822761263837714;
-  const double xcut = -GSL_LOG_DBL_MIN;
+  const double xcut = - GSL_LOG_DBL_MIN;
 
   if(result == 0) {
     return GSL_EFAULT;
@@ -241,10 +241,10 @@
 }
 
 
-int gsl_sf_debye_3_impl(const double x, gsl_sf_result * result)
+int gsl_sf_debye_3_impl(double x, gsl_sf_result * result)
 {
   const double val_infinity = 19.4818182068004875;
-  const double xcut = -GSL_LOG_DBL_MIN;
+  const double xcut = - GSL_LOG_DBL_MIN;
 
   if(result == 0) {
     return GSL_EFAULT;
@@ -303,10 +303,10 @@
 }
 
 
-int gsl_sf_debye_4_impl(const double x, gsl_sf_result * result)
+int gsl_sf_debye_4_impl(double x, gsl_sf_result * result)
 {
   const double val_infinity = 99.5450644937635129;
-  const double xcut = -GSL_LOG_DBL_MIN;
+  const double xcut = - GSL_LOG_DBL_MIN;
 
   if(result == 0) {
     return GSL_EFAULT;
@@ -369,7 +369,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_debye_1_e(const double x, gsl_sf_result * result)
+gsl_sf_debye_1_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_debye_1_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -379,7 +379,7 @@
 }
 
 int
-gsl_sf_debye_2_e(const double x, gsl_sf_result * result)
+gsl_sf_debye_2_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_debye_2_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -389,7 +389,7 @@
 }
 
 int
-gsl_sf_debye_3_e(const double x, gsl_sf_result * result)
+gsl_sf_debye_3_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_debye_3_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -399,7 +399,7 @@
 }
 
 int
-gsl_sf_debye_4_e(const double x, gsl_sf_result * result)
+gsl_sf_debye_4_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_debye_4_impl(x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/bessel.h	Wed Feb 10 20:09:22 1999
+++ ../gsl-0.4.1/./specfunc/bessel.h	Mon Mar 29 17:43:26 1999
@@ -57,7 +57,7 @@
 
 
 int
-gsl_sf_bessel_K_scaled_steed_temme_CF2(const double nu, const double x,
+gsl_sf_bessel_K_scaled_steed_temme_CF2(double nu, double x,
                                        double * K_nu, double * K_nup1,
 				       double * Kp_nu);
 
--- ./specfunc/bessel.c	Thu Feb 11 14:33:26 1999
+++ ../gsl-0.4.1/./specfunc/bessel.c	Mon Mar 29 17:44:12 1999
@@ -76,10 +76,10 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_bessel_IJ_taylor_impl(const double nu, const double x,
-                             const int sign,
-                             const int kmax,
-                             const double threshold,
+gsl_sf_bessel_IJ_taylor_impl(double nu, double x,
+                             int sign,
+                             int kmax,
+                             double threshold,
                              gsl_sf_result * result
                              )
 {
@@ -186,7 +186,7 @@
  * for this particular method.
  */
 int
-gsl_sf_bessel_Jnu_asympx_impl(const double nu, const double x, gsl_sf_result * result)
+gsl_sf_bessel_Jnu_asympx_impl(double nu, double x, gsl_sf_result * result)
 {
   double mu   = 4.0*nu*nu;
   double mum1 = mu-1.0;
@@ -208,7 +208,7 @@
 /* x >> nu*nu+1
  */
 int
-gsl_sf_bessel_Ynu_asympx_impl(const double nu, const double x, gsl_sf_result * result)
+gsl_sf_bessel_Ynu_asympx_impl(double nu, double x, gsl_sf_result * result)
 {
   double ampl;
   double theta;
@@ -240,7 +240,7 @@
 /* x >> nu*nu+1
  */
 int
-gsl_sf_bessel_Inu_scaled_asympx_impl(const double nu, const double x, gsl_sf_result * result)
+gsl_sf_bessel_Inu_scaled_asympx_impl(double nu, double x, gsl_sf_result * result)
 {
   double mu   = 4.0*nu*nu;
   double mum1 = mu-1.0;
@@ -255,7 +255,7 @@
 /* x >> nu*nu+1
  */
 int
-gsl_sf_bessel_Knu_scaled_asympx_impl(const double nu, const double x, gsl_sf_result * result)
+gsl_sf_bessel_Knu_scaled_asympx_impl(double nu, double x, gsl_sf_result * result)
 {
   double mu   = 4.0*nu*nu;
   double mum1 = mu-1.0;
@@ -299,7 +299,7 @@
  * nu fixed will decrease the error.
  */
 int
-gsl_sf_bessel_Inu_scaled_asymp_unif_impl(const double nu, const double x, gsl_sf_result * result)
+gsl_sf_bessel_Inu_scaled_asymp_unif_impl(double nu, double x, gsl_sf_result * result)
 {
   int i;
   double z = x/nu;
@@ -337,7 +337,7 @@
  *   identical to that above for Inu_scaled
  */
 int
-gsl_sf_bessel_Knu_scaled_asymp_unif_impl(const double nu, const double x, gsl_sf_result * result)
+gsl_sf_bessel_Knu_scaled_asymp_unif_impl(double nu, double x, gsl_sf_result * result)
 {
   int i;
   double z = x/nu;
@@ -372,7 +372,7 @@
 /* Evaluate J_mu(x),J_{mu+1}(x) and Y_mu(x),Y_{mu+1}(x)  for |mu| < 1/2
  */
 int
-gsl_sf_bessel_JY_mu_restricted(const double mu, const double x,
+gsl_sf_bessel_JY_mu_restricted(double mu, double x,
                                gsl_sf_result * Jmu, gsl_sf_result * Jmup1,
                                gsl_sf_result * Ymu, gsl_sf_result * Ymup1)
 {
@@ -462,7 +462,7 @@
 
 
 int
-gsl_sf_bessel_J_CF1(const double nu, const double x,
+gsl_sf_bessel_J_CF1(double nu, double x,
                     double * ratio, double * sgn)
 {
   const double RECUR_BIG = GSL_SQRT_DBL_MAX;
@@ -530,7 +530,7 @@
  */
 #if 0
 int
-gsl_sf_bessel_J_CF1_ser(const double nu, const double x,
+gsl_sf_bessel_J_CF1_ser(double nu, double x,
                         double * ratio, double * sgn)
 {
   const int maxk = 20000;
@@ -568,7 +568,7 @@
  * using Gautschi (Euler) equivalent series.
  */
 int
-gsl_sf_bessel_I_CF1_ser(const double nu, const double x, double * ratio)
+gsl_sf_bessel_I_CF1_ser(double nu, double x, double * ratio)
 {
   const int maxk = 20000;
   double tk   = 1.0;
@@ -594,7 +594,7 @@
 
 
 int
-gsl_sf_bessel_JY_steed_CF2(const double nu, const double x,
+gsl_sf_bessel_JY_steed_CF2(double nu, double x,
                            double * P, double * Q)
 {
   const int max_iter = 10000;
@@ -657,7 +657,7 @@
  * Also requires |nu| < 1/2.
  */
 int
-gsl_sf_bessel_K_scaled_steed_temme_CF2(const double nu, const double x,
+gsl_sf_bessel_K_scaled_steed_temme_CF2(double nu, double x,
                                        double * K_nu, double * K_nup1,
                                        double * Kp_nu)
 {
--- ./specfunc/legendre_con.c	Wed Feb 24 10:58:49 1999
+++ ../gsl-0.4.1/./specfunc/legendre_con.c	Mon Mar 29 18:19:40 1999
@@ -290,8 +290,8 @@
  * [Olver, p. 469]
  */
 int
-gsl_sf_conicalP_xgt1_neg_mu_largetau_impl(const double mu, const double tau,
-                                          const double x, double acosh_x,
+gsl_sf_conicalP_xgt1_neg_mu_largetau_impl(double mu, double tau,
+                                          double x, double acosh_x,
                                           gsl_sf_result * result, double * ln_multiplier)
 {
   double xi = acosh_x;
@@ -352,8 +352,8 @@
  * [Olver, p. 473]
  */
 int
-gsl_sf_conicalP_xlt1_neg_mu_largetau_impl(const double mu, const double tau,
-                                          const double x, const double acos_x,
+gsl_sf_conicalP_xlt1_neg_mu_largetau_impl(double mu, double tau,
+                                          double x, double acos_x,
                                           gsl_sf_result * result, double * ln_multiplier)
 {
   double theta = acos_x;
@@ -416,7 +416,7 @@
  */
 static
 int
-conicalP_hyperg_large_x(const double mu, const double tau, const double y,
+conicalP_hyperg_large_x(double mu, double tau, double y,
                         double * reF, double * imF)
 {
   const int kmax = 1000;
@@ -467,7 +467,7 @@
  * x->Inf
  */
 int
-gsl_sf_conicalP_large_x_impl(const double mu, const double tau, const double x,
+gsl_sf_conicalP_large_x_impl(double mu, double tau, double x,
                              gsl_sf_result * result, double * ln_multiplier)
 {
   /* 2F1 term
@@ -750,7 +750,7 @@
 /* P^0_{-1/2 + I lambda}
  */
 int
-gsl_sf_conicalP_0_impl(const double lambda, const double x, gsl_sf_result * result)
+gsl_sf_conicalP_0_impl(double lambda, double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -861,7 +861,7 @@
 /* P^1_{-1/2 + I lambda}
  */
 int
-gsl_sf_conicalP_1_impl(const double lambda, const double x, gsl_sf_result * result)
+gsl_sf_conicalP_1_impl(double lambda, double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -1006,7 +1006,7 @@
  * [Abramowitz+Stegun 8.6.8, 8.6.12]
  * checked OK [GJ] Fri May  8 12:24:36 MDT 1998 
  */
-int gsl_sf_conicalP_half_impl(const double lambda, const double x,
+int gsl_sf_conicalP_half_impl(double lambda, double x,
                               gsl_sf_result * result
                               )
 {
@@ -1054,7 +1054,7 @@
  * [Abramowitz+Stegun 8.6.9, 8.6.14]
  * checked OK [GJ] Fri May  8 12:24:43 MDT 1998 
  */
-int gsl_sf_conicalP_mhalf_impl(const double lambda, const double x, gsl_sf_result * result)
+int gsl_sf_conicalP_mhalf_impl(double lambda, double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -1111,8 +1111,8 @@
 }
 
 
-int gsl_sf_conicalP_sph_reg_impl(const int l, const double lambda,
-                                 const double x,
+int gsl_sf_conicalP_sph_reg_impl(int l, double lambda,
+                                 double x,
                                  gsl_sf_result * result
                                  )
 {
@@ -1230,8 +1230,8 @@
 }
 
 
-int gsl_sf_conicalP_cyl_reg_impl(const int m, const double lambda,
-                                 const double x,
+int gsl_sf_conicalP_cyl_reg_impl(int m, double lambda,
+                                 double x,
                                  gsl_sf_result * result
                                  )
 {
@@ -1352,7 +1352,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_conicalP_0_e(const double lambda, const double x, gsl_sf_result * result)
+int gsl_sf_conicalP_0_e(double lambda, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_conicalP_0_impl(lambda, x, result);
   if(status != GSL_SUCCESS) {
@@ -1361,7 +1361,7 @@
   return status;
 }
 
-int gsl_sf_conicalP_1_e(const double lambda, const double x, gsl_sf_result * result)
+int gsl_sf_conicalP_1_e(double lambda, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_conicalP_1_impl(lambda, x, result);
   if(status != GSL_SUCCESS) {
@@ -1370,7 +1370,7 @@
   return status;
 }
 
-int gsl_sf_conicalP_half_e(const double lambda, const double x, gsl_sf_result * result)
+int gsl_sf_conicalP_half_e(double lambda, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_conicalP_half_impl(lambda, x, result);
   if(status != GSL_SUCCESS) {
@@ -1379,7 +1379,7 @@
   return status;
 }
 
-int gsl_sf_conicalP_mhalf_e(const double lambda, const double x, gsl_sf_result * result)
+int gsl_sf_conicalP_mhalf_e(double lambda, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_conicalP_mhalf_impl(lambda, x, result);
   if(status != GSL_SUCCESS) {
@@ -1388,7 +1388,7 @@
   return status;
 }
 
-int gsl_sf_conicalP_sph_reg_e(const int l, const double lambda, const double x, gsl_sf_result * result)
+int gsl_sf_conicalP_sph_reg_e(int l, double lambda, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_conicalP_sph_reg_impl(l, lambda, x, result);
   if(status != GSL_SUCCESS) {
@@ -1397,7 +1397,7 @@
   return status;
 }
 
-int gsl_sf_conicalP_cyl_reg_e(const int m, const double lambda, const double x, gsl_sf_result * result)
+int gsl_sf_conicalP_cyl_reg_e(int m, double lambda, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_conicalP_cyl_reg_impl(m, lambda, x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/hyperg_2F0.c	Fri Dec 18 18:42:59 1998
+++ ../gsl-0.4.1/./specfunc/hyperg_2F0.c	Mon Mar 29 18:10:28 1999
@@ -9,7 +9,7 @@
 
 
 int
-gsl_sf_hyperg_2F0_impl(const double a, const double b, const double x, gsl_sf_result * result)
+gsl_sf_hyperg_2F0_impl(double a, double b, double x, gsl_sf_result * result)
 {
   if(x < 0.0) {
     /* Use "definition" 2F0(a,b,x) = (-1/x)^a U(a,1+a-b,-1/x).
@@ -38,7 +38,7 @@
 
 
 int
-gsl_sf_hyperg_2F0_e(const double a, const double b, const double x, gsl_sf_result * result)
+gsl_sf_hyperg_2F0_e(double a, double b, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_hyperg_2F0_impl(a, b, x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/hyperg_2F1.c	Sat Feb 13 13:29:23 1999
+++ ../gsl-0.4.1/./specfunc/hyperg_2F1.c	Mon Mar 29 18:12:31 1999
@@ -607,8 +607,8 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_hyperg_2F1_impl(double a, double b, const double c,
-                       const double x,
+gsl_sf_hyperg_2F1_impl(double a, double b, double c,
+                       double x,
                        gsl_sf_result * result)
 {
   const double d = c - a - b;
@@ -712,8 +712,8 @@
 
 
 int
-gsl_sf_hyperg_2F1_conj_impl(const double aR, const double aI, const double c,
-                            const double x,
+gsl_sf_hyperg_2F1_conj_impl(double aR, double aI, double c,
+                            double x,
                             gsl_sf_result * result)
 {
   const double ax = fabs(x);
@@ -756,8 +756,8 @@
 
 
 int
-gsl_sf_hyperg_2F1_renorm_impl(const double a, const double b, const double c,
-                              const double x,
+gsl_sf_hyperg_2F1_renorm_impl(double a, double b, double c,
+                              double x,
 			      gsl_sf_result * result
 			      )
 {
@@ -820,8 +820,8 @@
 
 
 int
-gsl_sf_hyperg_2F1_conj_renorm_impl(const double aR, const double aI, const double c,
-                                   const double x,
+gsl_sf_hyperg_2F1_conj_renorm_impl(double aR, double aI, double c,
+                                   double x,
 			           gsl_sf_result * result
 			           )
 {
--- ./specfunc/bessel_Knu.c	Tue Feb  9 16:33:00 1999
+++ ../gsl-0.4.1/./specfunc/bessel_Knu.c	Mon Mar 29 17:48:50 1999
@@ -16,7 +16,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_bessel_Knu_scaled_impl(const double nu, const double x, gsl_sf_result * result)
+gsl_sf_bessel_Knu_scaled_impl(double nu, double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -58,7 +58,7 @@
 
 
 int
-gsl_sf_bessel_Knu_impl(const double nu, const double x, gsl_sf_result * result)
+gsl_sf_bessel_Knu_impl(double nu, double x, gsl_sf_result * result)
 {
   gsl_sf_result b;
   int stat_K = gsl_sf_bessel_Knu_scaled_impl(nu, x, &b);
@@ -68,7 +68,7 @@
 
 
 int
-gsl_sf_bessel_lnKnu_impl(const double nu, const double x, gsl_sf_result * result)
+gsl_sf_bessel_lnKnu_impl(double nu, double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -135,7 +135,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_bessel_Knu_scaled_e(const double nu, const double x, gsl_sf_result * result)
+gsl_sf_bessel_Knu_scaled_e(double nu, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_Knu_scaled_impl(nu, x, result);
   if(status != GSL_SUCCESS) {
@@ -144,7 +144,7 @@
   return status;
 }
 int
-gsl_sf_bessel_Knu_e(const double nu, const double x, gsl_sf_result * result)
+gsl_sf_bessel_Knu_e(double nu, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_Knu_impl(nu, x, result);
   if(status != GSL_SUCCESS) {
@@ -154,7 +154,7 @@
 }
 
 int
-gsl_sf_bessel_lnKnu_e(const double nu, const double x, gsl_sf_result * result)
+gsl_sf_bessel_lnKnu_e(double nu, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_lnKnu_impl(nu, x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/laguerre.c	Sat Feb 13 12:07:17 1999
+++ ../gsl-0.4.1/./specfunc/laguerre.c	Mon Mar 29 18:14:08 1999
@@ -93,7 +93,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_laguerre_1_impl(const double a, const double x, gsl_sf_result * result)
+gsl_sf_laguerre_1_impl(double a, double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -106,7 +106,7 @@
 }
 
 int
-gsl_sf_laguerre_2_impl(const double a, const double x, gsl_sf_result * result)
+gsl_sf_laguerre_2_impl(double a, double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -123,7 +123,7 @@
 }
 
 int
-gsl_sf_laguerre_3_impl(const double a, const double x, gsl_sf_result * result)
+gsl_sf_laguerre_3_impl(double a, double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -143,7 +143,7 @@
 }
 
 
-int gsl_sf_laguerre_n_impl(const int n, const double a, const double x,
+int gsl_sf_laguerre_n_impl(int n, double a, double x,
                            gsl_sf_result * result)
 {
   if(result == 0) {
--- ./specfunc/recurse.h	Tue Apr 14 17:38:37 1998
+++ ../gsl-0.4.1/./specfunc/recurse.h	Tue Mar 30 15:18:54 1999
@@ -14,10 +14,10 @@
  */
 #define GEN_RECURSE_FORWARD_SIMPLE(func)                                      \
 int CONCAT(recurse_forward_simple, func) (                                    \
-                               const int n_max, const int n_min,              \
+                               int n_max, int n_min,                          \
                                const double parameters[],                     \
-                               const double f_n_min,                          \
-			       const double f_n_min_p1,                       \
+                               double f_n_min,                                \
+			       double f_n_min_p1,                             \
                                double * f,                                    \
 			       double * f_n_max                               \
                                )                                              \
@@ -57,10 +57,10 @@
  */
 #define GEN_RECURSE_BACKWARD_MINIMAL_SIMPLE(func)                             \
 int CONCAT(recurse_backward_minimal_simple, func) (                           \
-	                       const int n_start,                             \
-                               const int n_max, const int n_min,              \
+	                       int n_start,                                   \
+                               int n_max, int n_min,                          \
                                const double parameters[],                     \
-                               const double f_n_min,                          \
+                               double f_n_min,                                \
                                double * f,                                    \
 			       double * f_n_max                               \
                                )                                              \
@@ -76,11 +76,11 @@
   }                                                                           \
                                                                               \
   if(f != 0) {                                                                \
-    f[n_max] = 10.*DBL_MIN;                                                      \
-    for(n=n_max; n > n_min; n--) {                                               \
+    f[n_max] = 10.*DBL_MIN;                                                   \
+    for(n=n_max; n > n_min; n--) {                                            \
       r_nm1  = -REC_COEFF_B(n, parameters) / (REC_COEFF_A(n, parameters) + r_n); \
-      f[n-1] = f[n] / r_nm1;                                                     \
-      r_n = r_nm1;                                                               \
+      f[n-1] = f[n] / r_nm1;                                                  \
+      r_n = r_nm1;                                                            \
     }                                                                         \
     ratio = f_n_min / f[n_min];                                               \
     for(n=n_min; n<=n_max; n++) {                                             \
@@ -91,10 +91,10 @@
     double f_nm1;                                                             \
     double f_n = 10.*DBL_MIN;                                                 \
     *f_n_max = f_n;                                                           \
-    for(n=n_max; n > n_min; n--) {                                               \
+    for(n=n_max; n > n_min; n--) {                                            \
       r_nm1 = -REC_COEFF_B(n, parameters) / (REC_COEFF_A(n, parameters) + r_n);  \
-      f_nm1 = f_n / r_nm1;                                                       \
-      r_n = r_nm1;                                                               \
+      f_nm1 = f_n / r_nm1;                                                    \
+      r_n = r_nm1;                                                            \
     }                                                                         \
     ratio = f_n_min / f_nm1;                                                  \
     *f_n_max *= ratio;                                                        \
--- ./specfunc/gsl_sf_expint.h	Sun Dec 13 20:13:04 1998
+++ ../gsl-0.4.1/./specfunc/gsl_sf_expint.h	Mon Mar 29 18:25:07 1999
@@ -64,7 +64,7 @@
  *
  * exceptions: none
  */
-int     gsl_sf_Si_impl(const double x, gsl_sf_result * result);
+int     gsl_sf_Si_impl(double x, gsl_sf_result * result);
 int     gsl_sf_Si_e(double x, gsl_sf_result * result);
 
 
@@ -73,7 +73,7 @@
  * x > 0.0
  * exceptions: GSL_EDOM 
  */
-int     gsl_sf_Ci_impl(const double x, gsl_sf_result * result);
+int     gsl_sf_Ci_impl(double x, gsl_sf_result * result);
 int     gsl_sf_Ci_e(double x, gsl_sf_result * result);
 
 
--- ./specfunc/bessel_Jnu.c	Thu Feb 11 14:33:27 1999
+++ ../gsl-0.4.1/./specfunc/bessel_Jnu.c	Mon Mar 29 17:47:16 1999
@@ -52,7 +52,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_bessel_Jnu_impl(const double nu, const double x, gsl_sf_result * result)
+gsl_sf_bessel_Jnu_impl(double nu, double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -152,7 +152,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_bessel_Jnu_e(const double nu, const double x, gsl_sf_result * result)
+gsl_sf_bessel_Jnu_e(double nu, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_Jnu_impl(nu, x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/hyperg.c	Tue Feb 16 16:45:40 1999
+++ ../gsl-0.4.1/./specfunc/hyperg.c	Mon Mar 29 18:13:44 1999
@@ -16,7 +16,7 @@
 
 
 int
-gsl_sf_hyperg_1F1_series_impl(const double a, const double b, const double x,
+gsl_sf_hyperg_1F1_series_impl(double a, double b, double x,
                               gsl_sf_result * result
                               )
 {
@@ -76,7 +76,7 @@
 
 
 int
-gsl_sf_hyperg_1F1_large_b_impl(const double a, const double b, const double x, gsl_sf_result * result)
+gsl_sf_hyperg_1F1_large_b_impl(double a, double b, double x, gsl_sf_result * result)
 {
   if(fabs(x/b) < 1.0) {
     const double u = x/b;
@@ -102,7 +102,7 @@
 
 
 int
-gsl_sf_hyperg_U_large_b_impl(const double a, const double b, const double x,
+gsl_sf_hyperg_U_large_b_impl(double a, double b, double x,
                              gsl_sf_result * result,
 			     double * ln_multiplier
 			     )
@@ -213,7 +213,7 @@
  * then the series is summed until it appears to start diverging.
  */
 int
-gsl_sf_hyperg_2F0_series_impl(const double a, const double b, const double x,
+gsl_sf_hyperg_2F0_series_impl(double a, double b, double x,
                               int n_trunc,
                               gsl_sf_result * result
                               )
--- ./specfunc/beta.c	Thu Feb 11 14:33:30 1999
+++ ../gsl-0.4.1/./specfunc/beta.c	Mon Mar 29 17:54:04 1999
@@ -11,7 +11,7 @@
 
 
 int
-gsl_sf_lnbeta_impl(const double x, const double y, gsl_sf_result * result)
+gsl_sf_lnbeta_impl(double x, double y, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -70,7 +70,7 @@
 
 
 int
-gsl_sf_beta_impl(const double x, const double y, gsl_sf_result * result)
+gsl_sf_beta_impl(double x, double y, gsl_sf_result * result)
 {
   if(x < 50.0 && y < 50.0) {
     gsl_sf_result gx, gy, gxy;
@@ -102,7 +102,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_lnbeta_e(const double x, const double y, gsl_sf_result * result)
+gsl_sf_lnbeta_e(double x, double y, gsl_sf_result * result)
 {
   int status = gsl_sf_lnbeta_impl(x, y, result);
   if(status != GSL_SUCCESS) {
@@ -112,7 +112,7 @@
 }
 
 int
-gsl_sf_beta_e(const double x, const double y, gsl_sf_result * result)
+gsl_sf_beta_e(double x, double y, gsl_sf_result * result)
 {
   int status = gsl_sf_beta_impl(x, y, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/zeta.c	Thu Jan 28 08:24:56 1999
+++ ../gsl-0.4.1/./specfunc/zeta.c	Mon Mar 29 18:28:09 1999
@@ -472,7 +472,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
 
-int gsl_sf_hzeta_impl(const double s, const double q, gsl_sf_result * result)
+int gsl_sf_hzeta_impl(double s, double q, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -541,7 +541,7 @@
 }
 
 
-int gsl_sf_zeta_impl(const double s, gsl_sf_result * result)
+int gsl_sf_zeta_impl(double s, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -623,7 +623,7 @@
 }
 
 
-int gsl_sf_zeta_int_impl(const int n, gsl_sf_result * result)
+int gsl_sf_zeta_int_impl(int n, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -701,7 +701,7 @@
 }
 
 
-int gsl_sf_eta_impl(const double s, gsl_sf_result * result)
+int gsl_sf_eta_impl(double s, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -737,7 +737,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Error Handling Versions *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_zeta_e(const double s, gsl_sf_result * result)
+int gsl_sf_zeta_e(double s, gsl_sf_result * result)
 {
   int status = gsl_sf_zeta_impl(s, result);
   if(status != GSL_SUCCESS) {
@@ -746,7 +746,7 @@
   return status;
 }
 
-int gsl_sf_hzeta_e(const double s, const double a, gsl_sf_result * result)
+int gsl_sf_hzeta_e(double s, double a, gsl_sf_result * result)
 {
   int status = gsl_sf_hzeta_impl(s, a, result);
   if(status != GSL_SUCCESS) {
@@ -755,7 +755,7 @@
   return status;
 }
 
-int gsl_sf_zeta_int_e(const int s, gsl_sf_result * result)
+int gsl_sf_zeta_int_e(int s, gsl_sf_result * result)
 {
   int status = gsl_sf_zeta_int_impl(s, result);
   if(status != GSL_SUCCESS) {
@@ -764,7 +764,7 @@
   return status;
 }
 
-int gsl_sf_eta_int_e(const int s, gsl_sf_result * result)
+int gsl_sf_eta_int_e(int s, gsl_sf_result * result)
 {
   int status = gsl_sf_eta_int_impl(s, result);
   if(status != GSL_SUCCESS) {
@@ -774,7 +774,7 @@
 }
 
 
-int gsl_sf_eta_e(const double s, gsl_sf_result * result)
+int gsl_sf_eta_e(double s, gsl_sf_result * result)
 {
   int status = gsl_sf_eta_impl(s, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/exp.c	Tue Feb 16 16:52:41 1999
+++ ../gsl-0.4.1/./specfunc/exp.c	Tue Mar 30 14:18:42 1999
@@ -85,7 +85,8 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_exp_impl(const double x, gsl_sf_result * result)
+#if !defined(HAVE_INLINE) || !defined(__sgi)
+int gsl_sf_exp_impl(double x, gsl_sf_result * result)
 {
   if(x > GSL_LOG_DBL_MAX) {
     result->val = 0.0;
@@ -103,9 +104,10 @@
     return GSL_SUCCESS;
   }
 }
+#endif
 
 
-int gsl_sf_exp_mult_impl(const double x, const double y, gsl_sf_result * result)
+int gsl_sf_exp_mult_impl(double x, double y, gsl_sf_result * result)
 {
   const double ay  = fabs(y);
 
@@ -152,8 +154,8 @@
 }
 
 
-int gsl_sf_exp_mult_err_impl(const double x, const double dx,
-                             const double y, const double dy,
+int gsl_sf_exp_mult_err_impl(double x, double dx,
+                             double y, double dy,
                              gsl_sf_result * result)
 {
   const double ay  = fabs(y);
@@ -204,7 +206,7 @@
 }
 
 
-int gsl_sf_expm1_impl(const double x, gsl_sf_result * result)
+int gsl_sf_expm1_impl(double x, gsl_sf_result * result)
 {
   const double cut = 0.002;
 
@@ -236,7 +238,7 @@
 }
 
 
-int gsl_sf_exprel_impl(const double x, gsl_sf_result * result)
+int gsl_sf_exprel_impl(double x, gsl_sf_result * result)
 {
   const double cut = 0.002;
 
@@ -301,7 +303,7 @@
 
 
 int
-gsl_sf_exprel_n_impl(const int N, const double x, gsl_sf_result * result)
+gsl_sf_exprel_n_impl(int N, double x, gsl_sf_result * result)
 {
   if(N < 0) {
     result->val = 0.0;
@@ -417,7 +419,7 @@
 
 
 int
-gsl_sf_exp_err_impl(const double x, const double dx, gsl_sf_result * result)
+gsl_sf_exp_err_impl(double x, double dx, gsl_sf_result * result)
 {
   const double adx = fabs(dx);
 
@@ -447,7 +449,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_exp_e(const double x, gsl_sf_result * result)
+int gsl_sf_exp_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_exp_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -457,7 +459,7 @@
 }
 
 
-int gsl_sf_exp_err_e(const double x, const double dx, gsl_sf_result * result)
+int gsl_sf_exp_err_e(double x, double dx, gsl_sf_result * result)
 {
   int status = gsl_sf_exp_err_impl(x, dx, result);
   if(status != GSL_SUCCESS) {
@@ -467,7 +469,7 @@
 }
 
 
-int gsl_sf_exp_mult_e(const double x, const double y, gsl_sf_result * result)
+int gsl_sf_exp_mult_e(double x, double y, gsl_sf_result * result)
 {
   int status = gsl_sf_exp_mult_impl(x, y, result);
   if(status != GSL_SUCCESS) {
@@ -477,8 +479,8 @@
 }
 
 
-int gsl_sf_exp_mult_err_e(const double x, const double dx,
-                          const double y, const double dy,
+int gsl_sf_exp_mult_err_e(double x, double dx,
+                          double y, double dy,
                           gsl_sf_result * result)
 {
   int status = gsl_sf_exp_mult_err_impl(x, dx, y, dy, result);
@@ -489,7 +491,7 @@
 }
 
 
-int gsl_sf_expm1_e(const double x, gsl_sf_result * result)
+int gsl_sf_expm1_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_expm1_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -499,7 +501,7 @@
 }
 
 
-int gsl_sf_exprel_e(const double x, gsl_sf_result * result)
+int gsl_sf_exprel_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_exprel_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -509,7 +511,7 @@
 }
 
 
-int gsl_sf_exprel_2_e(const double x, gsl_sf_result * result)
+int gsl_sf_exprel_2_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_exprel_2_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -519,7 +521,7 @@
 }
 
 
-int gsl_sf_exprel_n_e(const int n, const double x, gsl_sf_result * result)
+int gsl_sf_exprel_n_e(int n, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_exprel_n_impl(n, x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/clausen.c	Sun Dec 13 20:12:36 1998
+++ ../gsl-0.4.1/./specfunc/clausen.c	Mon Mar 29 17:55:17 1999
@@ -85,7 +85,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_clausen_e(const double x, gsl_sf_result * result)
+int gsl_sf_clausen_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_clausen_impl(x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/hyperg_0F1.c	Fri Dec 18 18:42:57 1998
+++ ../gsl-0.4.1/./specfunc/hyperg_0F1.c	Mon Mar 29 18:10:01 1999
@@ -264,7 +264,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_hyperg_0F1_e(const double c, const double x, gsl_sf_result * result)
+gsl_sf_hyperg_0F1_e(double c, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_hyperg_0F1_impl(c, x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/bessel_Ynu.c	Thu Feb 11 14:33:28 1999
+++ ../gsl-0.4.1/./specfunc/bessel_Ynu.c	Mon Mar 29 17:49:49 1999
@@ -107,7 +107,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_bessel_Ynu_e(const double nu, const double x, gsl_sf_result * result)
+gsl_sf_bessel_Ynu_e(double nu, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_Ynu_impl(nu, x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/gamma_inc.c	Thu Feb 11 14:33:35 1999
+++ ../gsl-0.4.1/./specfunc/gamma_inc.c	Mon Mar 29 18:09:18 1999
@@ -307,7 +307,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_gamma_inc_Q_impl(const double a, const double x, gsl_sf_result * result)
+gsl_sf_gamma_inc_Q_impl(double a, double x, gsl_sf_result * result)
 {
   if(a <= 0.0 || x < 0.0) {
     result->val = 0.0;
@@ -384,7 +384,7 @@
 
 
 int
-gsl_sf_gamma_inc_P_impl(const double a, const double x, gsl_sf_result * result)
+gsl_sf_gamma_inc_P_impl(double a, double x, gsl_sf_result * result)
 {
   if(a <= 0.0 || x < 0.0) {
     result->val = 0.0;
@@ -454,7 +454,7 @@
 
 
 int
-gsl_sf_gamma_inc_P_e(const double a, const double x, gsl_sf_result * result)
+gsl_sf_gamma_inc_P_e(double a, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_gamma_inc_P_impl(a, x, result);
   if(status != GSL_SUCCESS) {
@@ -464,7 +464,7 @@
 }
 
 int
-gsl_sf_gamma_inc_Q_e(const double a, const double x, gsl_sf_result * result)
+gsl_sf_gamma_inc_Q_e(double a, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_gamma_inc_Q_impl(a, x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/hyperg_1F1.c	Tue Feb 16 16:45:41 1999
+++ ../gsl-0.4.1/./specfunc/hyperg_1F1.c	Mon Mar 29 18:11:33 1999
@@ -1709,7 +1709,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_hyperg_1F1_int_impl(const int a, const int b, const double x, gsl_sf_result * result)
+gsl_sf_hyperg_1F1_int_impl(int a, int b, double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -1782,7 +1782,7 @@
 
 
 int
-gsl_sf_hyperg_1F1_impl(const double a, const double b, const double x,
+gsl_sf_hyperg_1F1_impl(double a, double b, double x,
                        gsl_sf_result * result
                        )
 {
@@ -2061,7 +2061,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_hyperg_1F1_int_e(const int m, const int n, double x, gsl_sf_result * result)
+gsl_sf_hyperg_1F1_int_e(int m, int n, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_hyperg_1F1_int_impl(m, n, x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/legendre_H3d.c	Wed Feb 24 10:58:48 1999
+++ ../gsl-0.4.1/./specfunc/legendre_H3d.c	Mon Mar 29 18:15:54 1999
@@ -220,7 +220,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_legendre_H3d_0_impl(const double lambda, const double eta, gsl_sf_result * result)
+gsl_sf_legendre_H3d_0_impl(double lambda, double eta, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -259,7 +259,7 @@
 
 
 int
-gsl_sf_legendre_H3d_1_impl(const double lambda, const double eta, gsl_sf_result * result)
+gsl_sf_legendre_H3d_1_impl(double lambda, double eta, gsl_sf_result * result)
 {
   const double xi    = fabs(eta*lambda);
   const double lsq   = lambda*lambda;
@@ -342,7 +342,7 @@
 
 
 int
-gsl_sf_legendre_H3d_impl(const int ell, const double lambda, const double eta,
+gsl_sf_legendre_H3d_impl(int ell, double lambda, double eta,
                          gsl_sf_result * result)
 {
   const double abs_lam = fabs(lambda);
@@ -478,7 +478,7 @@
 
 
 int
-gsl_sf_legendre_H3d_array_impl(const int lmax, const double lambda, const double eta, double * result_array)
+gsl_sf_legendre_H3d_array_impl(int lmax, double lambda, double eta, double * result_array)
 {
   if(result_array == 0) {
     return GSL_EFAULT;
@@ -537,7 +537,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_legendre_H3d_0_e(const double lambda, const double eta, gsl_sf_result * result)
+gsl_sf_legendre_H3d_0_e(double lambda, double eta, gsl_sf_result * result)
 {
   int status = gsl_sf_legendre_H3d_0_impl(lambda, eta, result);
   if(status != GSL_SUCCESS) {
@@ -547,7 +547,7 @@
 }
 
 int
-gsl_sf_legendre_H3d_1_e(const double lambda, const double eta, gsl_sf_result * result)
+gsl_sf_legendre_H3d_1_e(double lambda, double eta, gsl_sf_result * result)
 {
   int status = gsl_sf_legendre_H3d_1_impl(lambda, eta, result);
   if(status != GSL_SUCCESS) {
@@ -557,7 +557,7 @@
 }
 
 int
-gsl_sf_legendre_H3d_e(const int l, const double lambda, const double eta, gsl_sf_result * result)
+gsl_sf_legendre_H3d_e(int l, double lambda, double eta, gsl_sf_result * result)
 {
   int status = gsl_sf_legendre_H3d_impl(l, lambda, eta, result);
   if(status != GSL_SUCCESS) {
@@ -567,7 +567,7 @@
 }
 
 int
-gsl_sf_legendre_H3d_array_e(const int lmax, const double lambda, const double eta, double * result_array)
+gsl_sf_legendre_H3d_array_e(int lmax, double lambda, double eta, double * result_array)
 {
   int status = gsl_sf_legendre_H3d_array_impl(lmax, lambda, eta, result_array);
   if(status != GSL_SUCCESS) {
--- ./specfunc/test_sf.h	Thu Feb 11 14:33:48 1999
+++ ../gsl-0.4.1/./specfunc/test_sf.h	Tue Mar 30 15:21:16 1999
@@ -7,6 +7,11 @@
 #include <gsl_machine.h>
 #include "gsl_sf_result.h"
 
+#ifndef HAVE_INLINE
+#include <gsl_math.h>
+#include <gsl_errno.h>
+#endif
+
 double test_sf_frac_diff(double x1, double x2);
 int test_sf_check_result(char * message_buff, gsl_sf_result r, double val, double tol);
 int test_sf_check_return(char * message_buff, int val_return, int expected_return);
@@ -24,60 +29,60 @@
 #define TEST_SF_RETBAD  8
 
 
-#define TEST_SF(stat, func, args, val_in, tol, expect_return)                     \
-do {                                                                              \
-  char message_buff[4096];                                                  	  \
-  int _tsf_local_s = 0;                                                     	  \
-  int _tsf_status = func args;                                              	  \
-  _tsf_local_s |= test_sf_check_result(message_buff, r, val_in, tol);             \
+#define TEST_SF(stat, func, args, val_in, tol, expect_return)                 \
+do {                                                                          \
+  char message_buff[4096];                                                    \
+  int _tsf_local_s = 0;                                                       \
+  int _tsf_status = func args;                                                \
+  _tsf_local_s |= test_sf_check_result(message_buff, r, val_in, tol);         \
   _tsf_local_s |= test_sf_check_return(message_buff, _tsf_status, expect_return); \
-  gsl_test(_tsf_local_s, "  " #func #args);                                        	  \
-  if(_tsf_local_s != 0) {                                                         \
-    printf("  %s %d\n", __FILE__, __LINE__);                                        \
-    printf("%s", message_buff);                                                   \
-    printf("  %22.18g  %22.18g\n", r.val, r.err);                                   \
-  }                                                                               \
-  stat += _tsf_local_s;                                                           \
+  gsl_test(_tsf_local_s, "  " #func #args);                                   \
+  if(_tsf_local_s != 0) {                                                     \
+    printf("  %s %d\n", __FILE__, __LINE__);                                  \
+    printf("%s", message_buff);                                               \
+    printf("  %22.18g  %22.18g\n", r.val, r.err);                             \
+  }                                                                           \
+  stat += _tsf_local_s;                                                       \
 } while(0)
 
 
-#define TEST_SF_2(stat, func, args, val1, tol1, val2, tol2, expect_return)  	  \
-do {                                                                        	  \
-  char message_buff[4096];                                                  	  \
-  int _tsf_local_s = 0;                                                     	  \
-  int _tsf_status = func args;                                              	  \
-  _tsf_local_s |= test_sf_check_result(message_buff, r1, val1, tol1);	          \
-  _tsf_local_s |= test_sf_check_result(message_buff, r2, val2, tol2);	          \
+#define TEST_SF_2(stat, func, args, val1, tol1, val2, tol2, expect_return)    \
+do {                                                                          \
+  char message_buff[4096];                                                    \
+  int _tsf_local_s = 0;                                                       \
+  int _tsf_status = func args;                                                \
+  _tsf_local_s |= test_sf_check_result(message_buff, r1, val1, tol1);	      \
+  _tsf_local_s |= test_sf_check_result(message_buff, r2, val2, tol2);	      \
   _tsf_local_s |= test_sf_check_return(message_buff, _tsf_status, expect_return); \
-  gsl_test(_tsf_local_s, "  " #func #args);                                        	  \
-  if(_tsf_local_s != 0) {                                                         \
-    printf("  %s %d\n", __FILE__, __LINE__);                                        \
-    printf("%s", message_buff);                                                   \
-    printf("  %22.18g  %22.18g\n", r1.val, r1.err);                                 \
-    printf("  %22.18g  %22.18g\n", r2.val, r2.err);                                 \
-  }                                                                               \
-  stat += _tsf_local_s;                                                           \
+  gsl_test(_tsf_local_s, "  " #func #args);                                   \
+  if(_tsf_local_s != 0) {                                                     \
+    printf("  %s %d\n", __FILE__, __LINE__);                                  \
+    printf("%s", message_buff);                                               \
+    printf("  %22.18g  %22.18g\n", r1.val, r1.err);                           \
+    printf("  %22.18g  %22.18g\n", r2.val, r2.err);                           \
+  }                                                                           \
+  stat += _tsf_local_s;                                                       \
 } while(0)
 
 
-#define TEST_SF_SGN(stat, func, args, val_in, tol, expect_sgn, expect_return)     \
-do {                                                                              \
-  char message_buff[4096];                                                  	  \
-  int _tsf_local_s = 0;                                                     	  \
-  int _tsf_status = func args;                                              	  \
-  gsl_sf_result _tsf_local_r;                                             	  \
-  _tsf_local_r.val = sgn;                                                         \
-  _tsf_local_r.err = 0.0;                                             	          \
-  _tsf_local_s |= test_sf_check_result(message_buff, r, val_in, tol);             \
+#define TEST_SF_SGN(stat, func, args, val_in, tol, expect_sgn, expect_return) \
+do {                                                                          \
+  char message_buff[4096];                                                    \
+  int _tsf_local_s = 0;                                                       \
+  int _tsf_status = func args;                                                \
+  gsl_sf_result _tsf_local_r;                                                 \
+  _tsf_local_r.val = sgn;                                                     \
+  _tsf_local_r.err = 0.0;                                             	      \
+  _tsf_local_s |= test_sf_check_result(message_buff, r, val_in, tol);         \
   _tsf_local_s |= test_sf_check_result(message_buff, _tsf_local_r, expect_sgn, 0.0); \
   _tsf_local_s |= test_sf_check_return(message_buff, _tsf_status, expect_return); \
-  gsl_test(_tsf_local_s, "  " #func #args);                                        	  \
-  if(_tsf_local_s != 0) {                                                         \
-    printf("  %s %d\n", __FILE__, __LINE__);                                        \
-    printf("%s", message_buff);                                                   \
-    printf("  %22.18g  %22.18g\n", r.val, r.err);                                   \
-  }                                                                               \
-  stat += _tsf_local_s;                                                           \
+  gsl_test(_tsf_local_s, "  " #func #args);                                   \
+  if(_tsf_local_s != 0) {                                                     \
+    printf("  %s %d\n", __FILE__, __LINE__);                                  \
+    printf("%s", message_buff);                                               \
+    printf("  %22.18g  %22.18g\n", r.val, r.err);                             \
+  }                                                                           \
+  stat += _tsf_local_s;                                                       \
 } while(0)
 
 
--- ./specfunc/expint3.c	Sun Dec 13 20:12:48 1998
+++ ../gsl-0.4.1/./specfunc/expint3.c	Mon Mar 29 18:04:22 1999
@@ -80,7 +80,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_expint_3_impl(const double x, gsl_sf_result * result)
+int gsl_sf_expint_3_impl(double x, gsl_sf_result * result)
 {
   const double val_infinity = 0.892979511569249211;
 
@@ -105,7 +105,7 @@
     result->err = x * result_c.err;
     return GSL_SUCCESS;
   }
-  else if(x < pow(-GSL_LOG_DBL_EPSILON, 1.0/3.0)) {
+  else if(x < pow(- GSL_LOG_DBL_EPSILON, 1.0/3.0)) {
     const double t = 16.0/(x*x*x) - 1.0;
     const double s = exp(-x*x*x)/(3.0*x*x);
     gsl_sf_result result_c;
--- ./specfunc/gsl_sf_log.h	Sat Dec 19 16:37:22 1998
+++ ../gsl-0.4.1/./specfunc/gsl_sf_log.h	Tue Mar 30 15:23:01 1999
@@ -50,9 +50,9 @@
 
 
 #ifdef HAVE_INLINE
-extern inline
+inline
 int
-gsl_sf_log_impl(const double x, gsl_sf_result * result)
+gsl_sf_log_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -68,9 +68,9 @@
     return GSL_SUCCESS;
   }
 }
-extern inline
+inline
 int
-gsl_sf_log_abs_impl(const double x, gsl_sf_result * result)
+gsl_sf_log_abs_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
--- ./specfunc/expint.c	Thu Feb 11 14:33:32 1999
+++ ../gsl-0.4.1/./specfunc/expint.c	Mon Mar 29 18:03:58 1999
@@ -275,9 +275,9 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
 
-int gsl_sf_expint_E1_impl(const double x, gsl_sf_result * result)
+int gsl_sf_expint_E1_impl(double x, gsl_sf_result * result)
 {
-  const double xmaxt = -GSL_LOG_DBL_MIN;      /* XMAXT = -LOG (R1MACH(1)) */
+  const double xmaxt = - GSL_LOG_DBL_MIN;     /* XMAXT = -LOG (R1MACH(1)) */
   const double xmax  = xmaxt - log(xmaxt);    /* XMAX = XMAXT - LOG(XMAXT) */
 
   if(result == 0) {
@@ -355,9 +355,9 @@
 }
 
 
-int gsl_sf_expint_E2_impl(const double x, gsl_sf_result * result)
+int gsl_sf_expint_E2_impl(double x, gsl_sf_result * result)
 {
-  const double xmaxt = -GSL_LOG_DBL_MIN;
+  const double xmaxt = - GSL_LOG_DBL_MIN;
   const double xmax  = xmaxt - log(xmaxt);
 
   if(result == 0) {
@@ -406,7 +406,7 @@
 }
 
 
-int gsl_sf_expint_Ei_impl(const double x, gsl_sf_result * result)
+int gsl_sf_expint_Ei_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -434,7 +434,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_expint_E1_e(const double x, gsl_sf_result * result)
+int gsl_sf_expint_E1_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_expint_E1_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -443,7 +443,7 @@
   return status;
 }
 
-int gsl_sf_expint_E2_e(const double x, gsl_sf_result * result)
+int gsl_sf_expint_E2_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_expint_E2_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -452,7 +452,7 @@
   return status;
 }
 
-int gsl_sf_expint_Ei_e(const double x, gsl_sf_result * result)
+int gsl_sf_expint_Ei_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_expint_Ei_impl(x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/sinint.c	Thu Feb 11 14:33:42 1999
+++ ../gsl-0.4.1/./specfunc/sinint.c	Mon Mar 29 18:24:38 1999
@@ -307,7 +307,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_Si_impl(const double x, gsl_sf_result * result)
+int gsl_sf_Si_impl(double x, gsl_sf_result * result)
 {
   double ax = fabs(x);
   
@@ -343,7 +343,7 @@
 }
 
 
-int gsl_sf_Ci_impl(const double x, gsl_sf_result * result)
+int gsl_sf_Ci_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -384,7 +384,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_Si_e(const double x, gsl_sf_result * result)
+int gsl_sf_Si_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_Si_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -393,7 +393,7 @@
   return status;
 }
 
-int gsl_sf_Ci_e(const double x, gsl_sf_result * result)
+int gsl_sf_Ci_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_Ci_impl(x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/shint.c	Thu Jan 21 09:18:49 1999
+++ ../gsl-0.4.1/./specfunc/shint.c	Mon Mar 29 18:24:12 1999
@@ -39,7 +39,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_Shi_impl(const double x, gsl_sf_result * result)
+int gsl_sf_Shi_impl(double x, gsl_sf_result * result)
 {
   const double xsml = GSL_SQRT_DBL_EPSILON;  /* sqrt (r1mach(3)) */
   const double ax   = fabs(x);
@@ -78,7 +78,7 @@
 }
 
 
-int gsl_sf_Chi_impl(const double x, gsl_sf_result * result)
+int gsl_sf_Chi_impl(double x, gsl_sf_result * result)
 {
   gsl_sf_result result_Ei;
   gsl_sf_result result_E1;
@@ -110,7 +110,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_Shi_e(const double x, gsl_sf_result * result)
+int gsl_sf_Shi_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_Shi_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -119,7 +119,7 @@
   return status;
 }
 
-int gsl_sf_Chi_e(const double x, gsl_sf_result * result)
+int gsl_sf_Chi_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_Chi_impl(x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/airy.c	Tue Feb  9 16:32:55 1999
+++ ../gsl-0.4.1/./specfunc/airy.c	Mon Mar 29 17:41:01 1999
@@ -662,7 +662,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_airy_Ai_impl(const double x, const gsl_mode_t mode, gsl_sf_result * result)
+gsl_sf_airy_Ai_impl(double x, gsl_mode_t mode, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -706,7 +706,7 @@
 
 
 int
-gsl_sf_airy_Ai_scaled_impl(const double x, gsl_mode_t mode, gsl_sf_result * result)
+gsl_sf_airy_Ai_scaled_impl(double x, gsl_mode_t mode, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -746,7 +746,7 @@
 }
 
 
-int gsl_sf_airy_Bi_impl(const double x, gsl_mode_t mode, gsl_sf_result * result)
+int gsl_sf_airy_Bi_impl(double x, gsl_mode_t mode, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -806,7 +806,7 @@
 
 
 int
-gsl_sf_airy_Bi_scaled_impl(const double x, gsl_mode_t mode, gsl_sf_result * result)
+gsl_sf_airy_Bi_scaled_impl(double x, gsl_mode_t mode, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -859,7 +859,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_airy_Ai_e(const double x, gsl_mode_t mode, gsl_sf_result * result)
+int gsl_sf_airy_Ai_e(double x, gsl_mode_t mode, gsl_sf_result * result)
 {
   int status = gsl_sf_airy_Ai_impl(x, mode, result);
   if(status != GSL_SUCCESS) {
@@ -868,7 +868,7 @@
   return status;
 }
 
-int gsl_sf_airy_Ai_scaled_e(const double x, gsl_mode_t mode, gsl_sf_result * result)
+int gsl_sf_airy_Ai_scaled_e(double x, gsl_mode_t mode, gsl_sf_result * result)
 {
   int status = gsl_sf_airy_Ai_scaled_impl(x, mode, result);
   if(status != GSL_SUCCESS) {
@@ -877,7 +877,7 @@
   return status;
 }
 
-int gsl_sf_airy_Bi_e(const double x, gsl_mode_t mode, gsl_sf_result * result)
+int gsl_sf_airy_Bi_e(double x, gsl_mode_t mode, gsl_sf_result * result)
 {
   int status = gsl_sf_airy_Bi_impl(x, mode, result);
   if(status != GSL_SUCCESS) {
@@ -886,7 +886,7 @@
   return status;
 }
 
-int gsl_sf_airy_Bi_scaled_e(const double x, gsl_mode_t mode, gsl_sf_result * result)
+int gsl_sf_airy_Bi_scaled_e(double x, gsl_mode_t mode, gsl_sf_result * result)
 {
   int status = gsl_sf_airy_Bi_scaled_impl(x, mode, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/coulomb.c	Sat Dec 19 16:37:16 1998
+++ ../gsl-0.4.1/./specfunc/coulomb.c	Mon Mar 29 17:58:46 1999
@@ -877,7 +877,7 @@
     return GSL_EDOM;
     /* After all, since we are asking for G, this is a domain error... */
   }
-  else if(x < 1.2 && 2.0*M_PI*eta < 0.9*(-GSL_LOG_DBL_MIN) && fabs(eta*x) < 10.0) {
+  else if(x < 1.2 && 2.0*M_PI*eta < 0.9*(- GSL_LOG_DBL_MIN) && fabs(eta*x) < 10.0) {
     /* Reduce to a small lambda value and use the series
      * representations for F and G. We cannot allow eta to
      * be large and positive because the connection formula
--- ./specfunc/transport.c	Fri Feb 12 13:54:19 1999
+++ ../gsl-0.4.1/./specfunc/transport.c	Mon Mar 29 18:26:34 1999
@@ -154,7 +154,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_transport_2_impl(const double x, gsl_sf_result * result)
+gsl_sf_transport_2_impl(double x, gsl_sf_result * result)
 {
   const double val_infinity = 3.289868133696452873;
 
@@ -180,8 +180,8 @@
     result->err += 2.0 * GSL_DBL_EPSILON * fabs(result->val);
     return GSL_SUCCESS;
   }
-  else if(x < -GSL_LOG_DBL_EPSILON) {
-    const int    numexp = (int)((-GSL_LOG_DBL_EPSILON)/x) + 1;
+  else if(x < - GSL_LOG_DBL_EPSILON) {
+    const int    numexp = (int)((- GSL_LOG_DBL_EPSILON)/x) + 1;
     const double sumexp = transport_sumexp(numexp, 2, exp(-x), x);
     const double t = 2.0 * log(x) - x + log(sumexp);
     if(t < GSL_LOG_DBL_EPSILON) {
@@ -227,7 +227,7 @@
 
 
 int
-gsl_sf_transport_3_impl(const double x, gsl_sf_result * result)
+gsl_sf_transport_3_impl(double x, gsl_sf_result * result)
 { 
   const double val_infinity = 7.212341418957565712;
 
@@ -262,8 +262,8 @@
     result->err += GSL_DBL_EPSILON * fabs(result->val);
     return GSL_SUCCESS;
   }
-  else if(x < -GSL_LOG_DBL_EPSILON) {
-    const int    numexp = (int)((-GSL_LOG_DBL_EPSILON)/x) + 1;
+  else if(x < - GSL_LOG_DBL_EPSILON) {
+    const int    numexp = (int)((- GSL_LOG_DBL_EPSILON)/x) + 1;
     const double sumexp = transport_sumexp(numexp, 3, exp(-x), x);
     const double t = 3.0 * log(x) - x + log(sumexp);
     if(t < GSL_LOG_DBL_EPSILON) {
@@ -309,7 +309,7 @@
 
 
 int
-gsl_sf_transport_4_impl(const double x, gsl_sf_result * result)
+gsl_sf_transport_4_impl(double x, gsl_sf_result * result)
 {
   const double val_infinity = 25.97575760906731660;
 
@@ -344,8 +344,8 @@
     result->err += 2.0 * GSL_DBL_EPSILON * fabs(result->val);
     return GSL_SUCCESS;
   }
-  else if(x < -GSL_LOG_DBL_EPSILON) {
-    const int    numexp = (int)((-GSL_LOG_DBL_EPSILON)/x) + 1;
+  else if(x < - GSL_LOG_DBL_EPSILON) {
+    const int    numexp = (int)((- GSL_LOG_DBL_EPSILON)/x) + 1;
     const double sumexp = transport_sumexp(numexp, 4, exp(-x), x);
     const double t = 4.0 * log(x) - x + log(sumexp);
     if(t < GSL_LOG_DBL_EPSILON) {
@@ -391,7 +391,7 @@
 
 
 int
-gsl_sf_transport_5_impl(const double x, gsl_sf_result * result)
+gsl_sf_transport_5_impl(double x, gsl_sf_result * result)
 {
   const double val_infinity = 124.4313306172043912;
 
@@ -426,8 +426,8 @@
     result->err += 2.0 * GSL_DBL_EPSILON * fabs(result->val);
     return GSL_SUCCESS;
   }
-  else if(x < -GSL_LOG_DBL_EPSILON) {
-    const int    numexp = (int)((-GSL_LOG_DBL_EPSILON)/x) + 1;
+  else if(x < - GSL_LOG_DBL_EPSILON) {
+    const int    numexp = (int)((- GSL_LOG_DBL_EPSILON)/x) + 1;
     const double sumexp = transport_sumexp(numexp, 5, exp(-x), x);
     const double t = 5.0 * log(x) - x + log(sumexp);
     if(t < GSL_LOG_DBL_EPSILON) {
@@ -474,7 +474,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_transport_2_e(const double x, gsl_sf_result * result)
+int gsl_sf_transport_2_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_transport_2_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -483,7 +483,7 @@
   return status;
 }
 
-int gsl_sf_transport_3_e(const double x, gsl_sf_result * result)
+int gsl_sf_transport_3_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_transport_3_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -492,7 +492,7 @@
   return status;
 }
 
-int gsl_sf_transport_4_e(const double x, gsl_sf_result * result)
+int gsl_sf_transport_4_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_transport_4_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -501,7 +501,7 @@
   return status;
 }
 
-int gsl_sf_transport_5_e(const double x, gsl_sf_result * result)
+int gsl_sf_transport_5_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_transport_5_impl(x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/legendre_poly.c	Thu Feb 18 17:30:53 1999
+++ ../gsl-0.4.1/./specfunc/legendre_poly.c	Mon Mar 29 18:21:19 1999
@@ -55,7 +55,7 @@
 
 
 int
-gsl_sf_legendre_Pl_impl(const int l, const double x, gsl_sf_result * result)
+gsl_sf_legendre_Pl_impl(int l, double x, gsl_sf_result * result)
 { 
   if(result == 0) {
     return GSL_EFAULT;
@@ -148,7 +148,7 @@
 
 
 int
-gsl_sf_legendre_Pl_array_impl(const int lmax, const double x, double * result_array)
+gsl_sf_legendre_Pl_array_impl(int lmax, double x, double * result_array)
 {
   if(result_array == 0) {
     return GSL_EFAULT;
@@ -187,7 +187,7 @@
 
 
 int
-gsl_sf_legendre_Plm_impl(const int l, const int m, const double x, gsl_sf_result * result)
+gsl_sf_legendre_Plm_impl(int l, int m, double x, gsl_sf_result * result)
 {
   /* If l is large and m is large, then we have to worry
    * about overflow. Calculate an approximate exponent which
@@ -271,7 +271,7 @@
 
 
 int
-gsl_sf_legendre_Plm_array_impl(const int lmax, const int m, const double x, double * result_array)
+gsl_sf_legendre_Plm_array_impl(int lmax, int m, double x, double * result_array)
 {
   /* If l is large and m is large, then we have to worry
    * about overflow. Calculate an approximate exponent which
@@ -351,7 +351,7 @@
 
 
 int
-gsl_sf_legendre_sphPlm_impl(const int l, int m, const double x, gsl_sf_result * result)
+gsl_sf_legendre_sphPlm_impl(int l, int m, double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -441,7 +441,7 @@
 
 
 int
-gsl_sf_legendre_sphPlm_array_impl(const int lmax, int m, const double x, double * result_array)
+gsl_sf_legendre_sphPlm_array_impl(int lmax, int m, double x, double * result_array)
 {
   if(result_array == 0) {
     return GSL_EFAULT;
@@ -512,7 +512,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_legendre_P1_e(const double x, gsl_sf_result * result)
+int gsl_sf_legendre_P1_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_legendre_P1_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -521,7 +521,7 @@
   return status;
 }
 
-int gsl_sf_legendre_P2_e(const double x, gsl_sf_result * result)
+int gsl_sf_legendre_P2_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_legendre_P2_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -530,7 +530,7 @@
   return status;
 }
 
-int gsl_sf_legendre_P3_e(const double x, gsl_sf_result * result)
+int gsl_sf_legendre_P3_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_legendre_P3_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -539,7 +539,7 @@
   return status;
 }
 
-int gsl_sf_legendre_Pl_e(const int l, const double x, gsl_sf_result * result)
+int gsl_sf_legendre_Pl_e(int l, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_legendre_Pl_impl(l, x, result);
   if(status != GSL_SUCCESS) {
@@ -548,7 +548,7 @@
   return status;
 }
 
-int gsl_sf_legendre_Plm_e(const int l, const int m, const double x, gsl_sf_result * result)
+int gsl_sf_legendre_Plm_e(int l, int m, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_legendre_Plm_impl(l, m, x, result);
   if(status != GSL_SUCCESS) {
@@ -557,7 +557,7 @@
   return status;
 }
 
-int gsl_sf_legendre_sphPlm_e(const int l, const int m, const double x, gsl_sf_result * result)
+int gsl_sf_legendre_sphPlm_e(int l, int m, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_legendre_sphPlm_impl(l, m, x, result);
   if(status != GSL_SUCCESS) {
@@ -566,7 +566,7 @@
   return status;
 }
 
-int gsl_sf_legendre_Pl_array_e(const int lmax, const double x, double * result_array)
+int gsl_sf_legendre_Pl_array_e(int lmax, double x, double * result_array)
 {
   int status = gsl_sf_legendre_Pl_array_impl(lmax, x, result_array);
   if(status != GSL_SUCCESS) {
@@ -575,7 +575,7 @@
   return status;
 }
 
-int gsl_sf_legendre_Plm_array_e(const int lmax, const int m, const double x, double * result_array)
+int gsl_sf_legendre_Plm_array_e(int lmax, int m, double x, double * result_array)
 {
   int status = gsl_sf_legendre_Plm_array_impl(lmax, m, x, result_array);
   if(status != GSL_SUCCESS) {
@@ -584,7 +584,7 @@
   return status;
 }
 
-int gsl_sf_legendre_sphPlm_array_e(const int lmax, const int m, const double x, double * result_array)
+int gsl_sf_legendre_sphPlm_array_e(int lmax, int m, double x, double * result_array)
 {
   int status = gsl_sf_legendre_sphPlm_array_impl(lmax, m, x, result_array);
   if(status != GSL_SUCCESS) {
--- ./specfunc/airy_der.c	Mon Dec 28 11:56:32 1998
+++ ../gsl-0.4.1/./specfunc/airy_der.c	Mon Mar 29 17:41:46 1999
@@ -646,7 +646,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_airy_Ai_deriv_scaled_impl(const double x, gsl_mode_t mode, gsl_sf_result * result)
+gsl_sf_airy_Ai_deriv_scaled_impl(double x, gsl_mode_t mode, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -708,7 +708,7 @@
 
 
 int
-gsl_sf_airy_Ai_deriv_impl(const double x, gsl_mode_t mode, gsl_sf_result * result)
+gsl_sf_airy_Ai_deriv_impl(double x, gsl_mode_t mode, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -752,7 +752,7 @@
 
 
 int
-gsl_sf_airy_Bi_deriv_scaled_impl(const double x, gsl_mode_t mode, gsl_sf_result * result)
+gsl_sf_airy_Bi_deriv_scaled_impl(double x, gsl_mode_t mode, gsl_sf_result * result)
 {
   const double atr =  8.7506905708484345;   /* 16./(sqrt(8)-1) */
   const double btr = -2.0938363213560543;   /* -(sqrt(8)+1)/(sqrt(8)-1) */
@@ -828,7 +828,7 @@
 
 
 int
-gsl_sf_airy_Bi_deriv_impl(const double x, gsl_mode_t mode, gsl_sf_result * result)
+gsl_sf_airy_Bi_deriv_impl(double x, gsl_mode_t mode, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -885,7 +885,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_airy_Ai_deriv_scaled_e(const double x, gsl_mode_t mode, gsl_sf_result * result)
+int gsl_sf_airy_Ai_deriv_scaled_e(double x, gsl_mode_t mode, gsl_sf_result * result)
 {
   int status = gsl_sf_airy_Ai_deriv_scaled_impl(x, mode, result);
   if(status != GSL_SUCCESS) {
@@ -894,7 +894,7 @@
   return status;
 }
 
-int gsl_sf_airy_Ai_deriv_e(const double x, gsl_mode_t mode, gsl_sf_result * result)
+int gsl_sf_airy_Ai_deriv_e(double x, gsl_mode_t mode, gsl_sf_result * result)
 {
   int status = gsl_sf_airy_Ai_deriv_impl(x, mode, result);
   if(status != GSL_SUCCESS) {
@@ -903,7 +903,7 @@
   return status;
 }
 
-int gsl_sf_airy_Bi_deriv_scaled_e(const double x, gsl_mode_t mode, gsl_sf_result * result)
+int gsl_sf_airy_Bi_deriv_scaled_e(double x, gsl_mode_t mode, gsl_sf_result * result)
 {
   int status = gsl_sf_airy_Bi_deriv_scaled_impl(x, mode, result);
   if(status != GSL_SUCCESS) {
@@ -912,7 +912,7 @@
   return status;
 }
 
-int gsl_sf_airy_Bi_deriv_e(const double x, gsl_mode_t mode, gsl_sf_result * result)
+int gsl_sf_airy_Bi_deriv_e(double x, gsl_mode_t mode, gsl_sf_result * result)
 {
   int status = gsl_sf_airy_Bi_deriv_impl(x, mode, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/bessel_y.c	Thu Jan 21 09:18:44 1999
+++ ../gsl-0.4.1/./specfunc/bessel_y.c	Mon Mar 29 17:53:38 1999
@@ -19,7 +19,7 @@
  *
  * checked OK [GJ] Wed May 13 15:41:25 MDT 1998 
  */
-static int bessel_yl_small_x(int l, const double x, gsl_sf_result * result)
+static int bessel_yl_small_x(int l, double x, gsl_sf_result * result)
 {
   gsl_sf_result num_fact;
   double den = gsl_sf_pow_int(x, l+1);
@@ -56,7 +56,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
 
-int gsl_sf_bessel_y0_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_y0_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -82,7 +82,7 @@
 }
 
 
-int gsl_sf_bessel_y1_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_y1_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -125,7 +125,7 @@
 }
 
 
-int gsl_sf_bessel_y2_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_y2_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -170,7 +170,7 @@
 }
 
 
-int gsl_sf_bessel_yl_impl(int l, const double x, gsl_sf_result * result)
+int gsl_sf_bessel_yl_impl(int l, double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -229,7 +229,7 @@
 }
 
 
-int gsl_sf_bessel_yl_array_impl(const int lmax, const double x, double * result_array)
+int gsl_sf_bessel_yl_array_impl(int lmax, double x, double * result_array)
 {
   if(result_array == 0) {
     return GSL_EFAULT;
@@ -264,7 +264,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_y0_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_y0_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_y0_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -273,7 +273,7 @@
   return status;
 }
 
-int gsl_sf_bessel_y1_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_y1_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_y1_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -282,7 +282,7 @@
   return status;
 }
 
-int gsl_sf_bessel_y2_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_y2_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_y2_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -291,7 +291,7 @@
   return status;
 }
 
-int gsl_sf_bessel_yl_e(const int l, const double x, gsl_sf_result * result)
+int gsl_sf_bessel_yl_e(int l, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_yl_impl(l, x, result);
   if(status != GSL_SUCCESS) {
@@ -301,7 +301,7 @@
 }
 
 
-int gsl_sf_bessel_yl_array_e(const int lmax, const double x, double * result_array)
+int gsl_sf_bessel_yl_array_e(int lmax, double x, double * result_array)
 {
   int status = gsl_sf_bessel_yl_array_impl(lmax, x, result_array);
   if(status != GSL_SUCCESS) {
--- ./specfunc/bessel_k.c	Thu Jan 21 14:10:51 1999
+++ ../gsl-0.4.1/./specfunc/bessel_k.c	Mon Mar 29 17:52:15 1999
@@ -63,7 +63,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_k0_scaled_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_k0_scaled_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -84,7 +84,7 @@
 }
 
 
-int gsl_sf_bessel_k1_scaled_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_k1_scaled_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -110,7 +110,7 @@
 }
 
 
-int gsl_sf_bessel_k2_scaled_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_k2_scaled_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -136,7 +136,7 @@
 }
 
 
-int gsl_sf_bessel_kl_scaled_impl(int l, const double x, gsl_sf_result * result)
+int gsl_sf_bessel_kl_scaled_impl(int l, double x, gsl_sf_result * result)
 {
   if(l < 0 || x <= 0.0) {
     return GSL_EDOM;
@@ -190,7 +190,7 @@
   }
 }
 
-int gsl_sf_bessel_kl_scaled_array_impl(const int lmax, const double x, double * result_array)
+int gsl_sf_bessel_kl_scaled_array_impl(int lmax, double x, double * result_array)
 {
   if(lmax < 1 || x <= 0.0) {
     return GSL_EDOM;
@@ -219,7 +219,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_k0_scaled_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_k0_scaled_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_k0_scaled_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -228,7 +228,7 @@
   return status;
 }
 
-int gsl_sf_bessel_k1_scaled_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_k1_scaled_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_k1_scaled_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -237,7 +237,7 @@
   return status;
 }
 
-int gsl_sf_bessel_k2_scaled_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_k2_scaled_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_k2_scaled_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -246,7 +246,7 @@
   return status;
 }
 
-int gsl_sf_bessel_kl_scaled_e(const int l, const double x, gsl_sf_result * result)
+int gsl_sf_bessel_kl_scaled_e(int l, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_kl_scaled_impl(l, x, result);
   if(status != GSL_SUCCESS) {
@@ -256,7 +256,7 @@
 }
 
 
-int gsl_sf_bessel_kl_scaled_array_e(const int lmax, const double x, double * result_array)
+int gsl_sf_bessel_kl_scaled_array_e(int lmax, double x, double * result_array)
 {
   int status = gsl_sf_bessel_kl_scaled_array_impl(lmax, x, result_array);
   if(status != GSL_SUCCESS) {
--- ./specfunc/bessel_j.c	Wed Feb 10 20:09:30 1999
+++ ../gsl-0.4.1/./specfunc/bessel_j.c	Mon Mar 29 17:51:39 1999
@@ -13,7 +13,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_j0_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_j0_impl(double x, gsl_sf_result * result)
 {
   double ax = fabs(x);
 
@@ -43,7 +43,7 @@
 }
 
 
-int gsl_sf_bessel_j1_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_j1_impl(double x, gsl_sf_result * result)
 {
   double ax = fabs(x);
 
@@ -88,7 +88,7 @@
 }
 
 
-int gsl_sf_bessel_j2_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_j2_impl(double x, gsl_sf_result * result)
 {
   double ax = fabs(x);
 
@@ -139,7 +139,7 @@
 
 
 int
-gsl_sf_bessel_jl_impl(const int l, const double x, gsl_sf_result * result)
+gsl_sf_bessel_jl_impl(int l, double x, gsl_sf_result * result)
 {
   if(l < 0 || x < 0.0) {
     result->val = 0.0;
@@ -222,7 +222,7 @@
 
 
 int
-gsl_sf_bessel_jl_array_impl(const int lmax, const double x, double * result_array)
+gsl_sf_bessel_jl_array_impl(int lmax, double x, double * result_array)
 {
   if(result_array == 0) {
     return GSL_EFAULT;
@@ -255,7 +255,7 @@
 }
 
 
-int gsl_sf_bessel_jl_steed_array_impl(const int lmax, const double x, double * jl_x)
+int gsl_sf_bessel_jl_steed_array_impl(int lmax, double x, double * jl_x)
 {
   if(jl_x == 0) {
     return GSL_EFAULT;
@@ -340,7 +340,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_j0_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_j0_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_j0_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -349,7 +349,7 @@
   return status;
 }
 
-int gsl_sf_bessel_j1_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_j1_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_j1_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -358,7 +358,7 @@
   return status;
 }
 
-int gsl_sf_bessel_j2_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_j2_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_j2_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -367,7 +367,7 @@
   return status;
 }
 
-int gsl_sf_bessel_jl_e(const int l, const double x, gsl_sf_result * result)
+int gsl_sf_bessel_jl_e(int l, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_jl_impl(l, x, result);
   if(status != GSL_SUCCESS) {
@@ -376,7 +376,7 @@
   return status;
 }
 
-int gsl_sf_bessel_jl_array_e(const int lmax, const double x, double * jl_array)
+int gsl_sf_bessel_jl_array_e(int lmax, double x, double * jl_array)
 {
   int status = gsl_sf_bessel_jl_array_impl(lmax, x, jl_array);
   if(status != GSL_SUCCESS) {
--- ./specfunc/bessel_i.c	Wed Feb 10 20:09:28 1999
+++ ../gsl-0.4.1/./specfunc/bessel_i.c	Mon Mar 29 17:50:59 1999
@@ -40,7 +40,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_i0_scaled_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_i0_scaled_impl(double x, gsl_sf_result * result)
 {
   double ax = fabs(x);
 
@@ -71,7 +71,7 @@
 }
 
 
-int gsl_sf_bessel_i1_scaled_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_i1_scaled_impl(double x, gsl_sf_result * result)
 {
   double ax = fabs(x);
 
@@ -106,7 +106,7 @@
 }
 
 
-int gsl_sf_bessel_i2_scaled_impl(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_i2_scaled_impl(double x, gsl_sf_result * result)
 {
   double ax = fabs(x);
 
@@ -141,7 +141,7 @@
 }  
 
 
-int gsl_sf_bessel_il_scaled_impl(const int l, double x, gsl_sf_result * result)
+int gsl_sf_bessel_il_scaled_impl(int l, double x, gsl_sf_result * result)
 {
   double sgn = 1.0;
   double ax  = fabs(x);
@@ -246,7 +246,7 @@
 }
 
 
-int gsl_sf_bessel_il_scaled_array_impl(const int lmax, const double x, double * result_array)
+int gsl_sf_bessel_il_scaled_array_impl(int lmax, double x, double * result_array)
 {
   int ell;
   gsl_sf_result r_iellp1;
@@ -269,7 +269,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_bessel_i0_scaled_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_i0_scaled_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_i0_scaled_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -278,7 +278,7 @@
   return status;
 }
 
-int gsl_sf_bessel_i1_scaled_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_i1_scaled_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_i1_scaled_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -287,7 +287,7 @@
   return status;
 }
 
-int gsl_sf_bessel_i2_scaled_e(const double x, gsl_sf_result * result)
+int gsl_sf_bessel_i2_scaled_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_i2_scaled_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -296,7 +296,7 @@
   return status;
 }
 
-int gsl_sf_bessel_il_scaled_e(const int l, const double x, gsl_sf_result * result)
+int gsl_sf_bessel_il_scaled_e(int l, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_bessel_il_scaled_impl(l, x, result);
   if(status != GSL_SUCCESS) {
@@ -305,7 +305,7 @@
   return status;
 }
 
-int gsl_sf_bessel_il_scaled_array_e(const int lmax, const double x, double * il_array)
+int gsl_sf_bessel_il_scaled_array_e(int lmax, double x, double * il_array)
 {
   int status = gsl_sf_bessel_il_scaled_array_impl(lmax, x, il_array);
   if(status != GSL_SUCCESS) {
--- ./specfunc/gsl_sf_laguerre.h	Sun Jan 17 11:01:40 1999
+++ ../gsl-0.4.1/./specfunc/gsl_sf_laguerre.h	Mon Mar 29 18:15:03 1999
@@ -29,7 +29,7 @@
  * n >= 0
  * exceptions: GSL_EDOM
  */
-int     gsl_sf_laguerre_n_impl(const int n, const double a, const double x, gsl_sf_result * result);
+int     gsl_sf_laguerre_n_impl(int n, double a, double x, gsl_sf_result * result);
 int     gsl_sf_laguerre_n_e(int n, double a, double x, gsl_sf_result * result);
 
 
--- ./specfunc/coulomb_bound.c	Thu Feb 11 14:33:31 1999
+++ ../gsl-0.4.1/./specfunc/coulomb_bound.c	Mon Mar 29 17:59:25 1999
@@ -35,7 +35,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_hydrogenicR_1_impl(const double Z, const double r, gsl_sf_result * result)
+gsl_sf_hydrogenicR_1_impl(double Z, double r, gsl_sf_result * result)
 {
   if(Z > 0.0 && r >= 0.0) {
     double A = 2.0*Z;
@@ -54,8 +54,8 @@
 
 
 int
-gsl_sf_hydrogenicR_impl(const int n, const int l,
-                        const double Z, const double r,
+gsl_sf_hydrogenicR_impl(int n, int l,
+                        double Z, double r,
                         gsl_sf_result * result)
 {
   if(n < 1 || l > n-1 || Z <= 0.0 || r < 0.0) {
@@ -89,7 +89,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_hydrogenicR_1_e(const double Z, const double r, gsl_sf_result * result)
+gsl_sf_hydrogenicR_1_e(double Z, double r, gsl_sf_result * result)
 {
   int status = gsl_sf_hydrogenicR_1_impl(Z, r, result);
   if(status != GSL_SUCCESS) {
@@ -100,7 +100,7 @@
 
 
 int
-gsl_sf_hydrogenicR_e(const int n, const int l, const double Z, const double r, gsl_sf_result * result)
+gsl_sf_hydrogenicR_e(int n, int l, double Z, double r, gsl_sf_result * result)
 {
   int status = gsl_sf_hydrogenicR_impl(n, l, Z, r, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/synchrotron.c	Fri Feb 12 13:54:13 1999
+++ ../gsl-0.4.1/./specfunc/synchrotron.c	Mon Mar 29 18:25:31 1999
@@ -170,7 +170,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_synchrotron_1_impl(const double x, gsl_sf_result * result)
+int gsl_sf_synchrotron_1_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -216,7 +216,7 @@
 }
 
 
-int gsl_sf_synchrotron_2_impl(const double x, gsl_sf_result * result)
+int gsl_sf_synchrotron_2_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -263,7 +263,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_synchrotron_1_e(const double x, gsl_sf_result * result)
+int gsl_sf_synchrotron_1_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_synchrotron_1_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -272,7 +272,7 @@
   return status;
 }
 
-int gsl_sf_synchrotron_2_e(const double x, gsl_sf_result * result)
+int gsl_sf_synchrotron_2_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_synchrotron_2_impl(x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/fermi_dirac.c	Thu Feb 11 14:33:33 1999
+++ ../gsl-0.4.1/./specfunc/fermi_dirac.c	Mon Mar 29 18:06:52 1999
@@ -872,7 +872,7 @@
 int
 fd_nint(const int j, const double x, gsl_sf_result * result)
 {
-  const int nsize = 100 + 1;
+#define nsize (100 + 1)
   double qcoeff[nsize];
 
   if(j >= -1) {
@@ -919,6 +919,7 @@
     result->err = 3.0 * GSL_DBL_EPSILON * fabs(f*a*p);
     return GSL_SUCCESS;
   }
+#undef nsize
 }
 
 
@@ -929,7 +930,7 @@
 fd_neg(const double j, const double x, gsl_sf_result * result)
 {
   const int itmax = 100;
-  const int qsize = 100 + 1;
+#define qsize (100 + 1)
   double qnum[qsize], qden[qsize];
 
   if(x < GSL_LOG_DBL_MIN) {
@@ -984,6 +985,7 @@
     else
       return GSL_SUCCESS;
   }
+#undef qsize
 }
 
 
@@ -1240,7 +1242,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
 /* [Goano (4)] */
-int gsl_sf_fermi_dirac_m1_impl(const double x, gsl_sf_result * result)
+int gsl_sf_fermi_dirac_m1_impl(double x, gsl_sf_result * result)
 {
   if(x < GSL_LOG_DBL_MIN) {
     result->val = 0.0;
@@ -1263,7 +1265,7 @@
 
 
 /* [Goano (3)] */
-int gsl_sf_fermi_dirac_0_impl(const double x, gsl_sf_result * result)
+int gsl_sf_fermi_dirac_0_impl(double x, gsl_sf_result * result)
 {
   if(x < GSL_LOG_DBL_MIN) {
     result->val = 0.0;
@@ -1291,7 +1293,7 @@
 }
 
 
-int gsl_sf_fermi_dirac_1_impl(const double x, gsl_sf_result * result)
+int gsl_sf_fermi_dirac_1_impl(double x, gsl_sf_result * result)
 {
   if(x < GSL_LOG_DBL_MIN) {
     result->val = 0.0;
@@ -1355,7 +1357,7 @@
 }
 
 
-int gsl_sf_fermi_dirac_2_impl(const double x, gsl_sf_result * result)
+int gsl_sf_fermi_dirac_2_impl(double x, gsl_sf_result * result)
 {
   if(x < GSL_LOG_DBL_MIN) {
     result->val = 0.0;
@@ -1419,7 +1421,7 @@
 }
 
 
-int gsl_sf_fermi_dirac_int_impl(const int j, const double x, gsl_sf_result * result)
+int gsl_sf_fermi_dirac_int_impl(int j, double x, gsl_sf_result * result)
 {
   if(j < -1) {
     return fd_nint(j, x, result);
@@ -1462,7 +1464,7 @@
 }
 
 
-int gsl_sf_fermi_dirac_mhalf_impl(const double x, gsl_sf_result * result)
+int gsl_sf_fermi_dirac_mhalf_impl(double x, gsl_sf_result * result)
 {
   if(x < GSL_LOG_DBL_MIN) {
     result->val = 0.0;
@@ -1512,7 +1514,7 @@
 }
 
 
-int gsl_sf_fermi_dirac_half_impl(const double x, gsl_sf_result * result)
+int gsl_sf_fermi_dirac_half_impl(double x, gsl_sf_result * result)
 {
   if(x < GSL_LOG_DBL_MIN) {
     result->val = 0.0;
@@ -1562,7 +1564,7 @@
 }
 
 
-int gsl_sf_fermi_dirac_3half_impl(const double x, gsl_sf_result * result)
+int gsl_sf_fermi_dirac_3half_impl(double x, gsl_sf_result * result)
 {
   if(x < GSL_LOG_DBL_MIN) {
     result->val = 0.0;
@@ -1612,7 +1614,7 @@
 }
 
 /* [Goano p. 222] */
-int gsl_sf_fermi_dirac_inc_0_impl(const double x, const double b, gsl_sf_result * result)
+int gsl_sf_fermi_dirac_inc_0_impl(double x, double b, gsl_sf_result * result)
 {
   if(b < 0.0) {
     result->val = 0.0;
@@ -1633,7 +1635,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_fermi_dirac_m1_e(const double x, gsl_sf_result * result)
+int gsl_sf_fermi_dirac_m1_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_fermi_dirac_m1_impl(x, result);
   if(status != GSL_SUCCESS){
@@ -1643,7 +1645,7 @@
 }
 
 
-int gsl_sf_fermi_dirac_0_e(const double x, gsl_sf_result * result)
+int gsl_sf_fermi_dirac_0_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_fermi_dirac_0_impl(x, result);
   if(status != GSL_SUCCESS){
@@ -1653,7 +1655,7 @@
 }
 
 
-int gsl_sf_fermi_dirac_1_e(const double x, gsl_sf_result * result)
+int gsl_sf_fermi_dirac_1_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_fermi_dirac_1_impl(x, result);
   if(status != GSL_SUCCESS){
@@ -1662,7 +1664,7 @@
   return status;
 }
 
-int gsl_sf_fermi_dirac_2_e(const double x, gsl_sf_result * result)
+int gsl_sf_fermi_dirac_2_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_fermi_dirac_2_impl(x, result);
   if(status != GSL_SUCCESS){
@@ -1671,7 +1673,7 @@
   return status;
 }
 
-int gsl_sf_fermi_dirac_int_e(const int j, const double x, gsl_sf_result * result)
+int gsl_sf_fermi_dirac_int_e(int j, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_fermi_dirac_int_impl(j, x, result);
   if(status != GSL_SUCCESS){
@@ -1681,7 +1683,7 @@
 }
 
 
-int gsl_sf_fermi_dirac_mhalf_e(const double x, gsl_sf_result * result)
+int gsl_sf_fermi_dirac_mhalf_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_fermi_dirac_mhalf_impl(x, result);
   if(status != GSL_SUCCESS){
@@ -1691,7 +1693,7 @@
 }
 
 
-int gsl_sf_fermi_dirac_half_e(const double x, gsl_sf_result * result)
+int gsl_sf_fermi_dirac_half_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_fermi_dirac_half_impl(x, result);
   if(status != GSL_SUCCESS){
@@ -1701,7 +1703,7 @@
 }
 
 
-int gsl_sf_fermi_dirac_3half_e(const double x, gsl_sf_result * result)
+int gsl_sf_fermi_dirac_3half_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_fermi_dirac_3half_impl(x, result);
   if(status != GSL_SUCCESS){
@@ -1712,7 +1714,7 @@
 
 
 int 
-gsl_sf_fermi_dirac_inc_0_e(const double x, const double b, gsl_sf_result * result)
+gsl_sf_fermi_dirac_inc_0_e(double x, double b, gsl_sf_result * result)
 {
   int status = gsl_sf_fermi_dirac_inc_0_impl(x, b, result);
   if(status != GSL_SUCCESS){
--- ./specfunc/dilog.c	Fri Feb 12 13:54:05 1999
+++ ../gsl-0.4.1/./specfunc/dilog.c	Mon Mar 29 18:01:51 1999
@@ -335,7 +335,7 @@
 
 
 int
-gsl_sf_dilog_impl(const double x, gsl_sf_result * result)
+gsl_sf_dilog_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -356,7 +356,7 @@
 
 
 int
-gsl_sf_complex_dilog_impl(const double r, double theta,
+gsl_sf_complex_dilog_impl(double r, double theta,
                           gsl_sf_result * real_dl, gsl_sf_result * imag_dl)
 {
   if(real_dl == 0 || imag_dl == 0) {
@@ -482,7 +482,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_dilog_e(const double x, gsl_sf_result * result)
+gsl_sf_dilog_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_dilog_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -493,7 +493,7 @@
 
 
 int
-gsl_sf_complex_dilog_e(const double x, const double y,
+gsl_sf_complex_dilog_e(double x, double y,
                        gsl_sf_result * result_re,
                        gsl_sf_result * result_im)
 {
--- ./specfunc/log.c	Thu Jan 21 12:01:16 1999
+++ ../gsl-0.4.1/./specfunc/log.c	Tue Mar 30 14:20:09 1999
@@ -90,8 +90,9 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
+#if !defined(HAVE_INLINE) || !defined(__sgi)
 int
-gsl_sf_log_impl(const double x, gsl_sf_result * result)
+gsl_sf_log_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -107,10 +108,12 @@
     return GSL_SUCCESS;
   }
 }
+#endif
 
 
+#if !defined(HAVE_INLINE) || !defined(__sgi)
 int
-gsl_sf_log_abs_impl(const double x, gsl_sf_result * result)
+gsl_sf_log_abs_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -126,10 +129,11 @@
     return GSL_SUCCESS;
   }
 }
+#endif
 
 
 int
-gsl_sf_complex_log_impl(const double zr, const double zi, gsl_sf_result * lnr, gsl_sf_result * theta)
+gsl_sf_complex_log_impl(double zr, double zi, gsl_sf_result * lnr, gsl_sf_result * theta)
 {
   if(lnr == 0 || theta == 0) {
     return GSL_EFAULT;
@@ -156,7 +160,7 @@
 
 
 int
-gsl_sf_log_1plusx_impl(const double x, gsl_sf_result * result)
+gsl_sf_log_1plusx_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -194,7 +198,7 @@
 
 
 int
-gsl_sf_log_1plusx_mx_impl(const double x, gsl_sf_result * result)
+gsl_sf_log_1plusx_mx_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -236,7 +240,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* Error Handling Versions *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_log_e(const double x, gsl_sf_result * result)
+gsl_sf_log_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_log_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -247,7 +251,7 @@
 
 
 int
-gsl_sf_log_abs_e(const double x, gsl_sf_result * result)
+gsl_sf_log_abs_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_log_abs_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -258,7 +262,7 @@
 
 
 int
-gsl_sf_complex_log_e(const double zr, const double zi, gsl_sf_result * lnr, gsl_sf_result * theta)
+gsl_sf_complex_log_e(double zr, double zi, gsl_sf_result * lnr, gsl_sf_result * theta)
 {
   int status = gsl_sf_complex_log_impl(zr, zi, lnr, theta);
   if(status != GSL_SUCCESS) {
@@ -269,7 +273,7 @@
 
 
 int
-gsl_sf_log_1plusx_e(const double x, gsl_sf_result * result)
+gsl_sf_log_1plusx_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_log_1plusx_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -280,7 +284,7 @@
 
 
 int
-gsl_sf_log_1plusx_mx_e(const double x, gsl_sf_result * result)
+gsl_sf_log_1plusx_mx_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_log_1plusx_mx_impl(x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/gsl_sf_legendre.h	Sun Jan 17 11:01:41 1999
+++ ../gsl-0.4.1/./specfunc/gsl_sf_legendre.h	Tue Mar 30 15:23:31 1999
@@ -116,7 +116,7 @@
 /* size of result_array[] needed for the array versions of Plm
  * (lmax - m + 1)
  */
-int gsl_sf_legendre_array_size(const int lmax, const int m);
+int gsl_sf_legendre_array_size(int lmax, int m);
 
 
 /* Irregular Spherical Conical Function
@@ -238,9 +238,9 @@
 
 
 #ifdef HAVE_INLINE
-extern inline
+inline
 int
-gsl_sf_legendre_array_size(const int lmax, const int m)
+gsl_sf_legendre_array_size(int lmax, int m)
 {
   return lmax-m+1;
 }
--- ./specfunc/gsl_sf_trig.h	Wed Feb 17 18:25:08 1999
+++ ../gsl-0.4.1/./specfunc/gsl_sf_trig.h	Tue Mar 30 14:15:45 1999
@@ -123,7 +123,7 @@
 
 
 #ifdef HAVE_INLINE
-extern inline int
+inline int
 gsl_sf_sin_impl(double x, gsl_sf_result * result)
 {
   double frac_err;
@@ -140,7 +140,7 @@
   result->err = frac_err * fabs(result->val);
   return GSL_SUCCESS;
 }
-extern inline int
+inline int
 gsl_sf_cos_impl(double x, gsl_sf_result * result)
 {
   double frac_err;
--- ./specfunc/gamma.c	Sat Feb 13 12:07:15 1999
+++ ../gsl-0.4.1/./specfunc/gamma.c	Mon Mar 29 18:08:40 1999
@@ -1239,7 +1239,7 @@
 
 
 int
-gsl_sf_gamma_impl(const double x, gsl_sf_result * result)
+gsl_sf_gamma_impl(double x, gsl_sf_result * result)
 {
   if(x < 0.5) {
     int rint_x = (int)floor(x+0.5);
@@ -1287,7 +1287,7 @@
 
 
 int
-gsl_sf_gammastar_impl(const double x, gsl_sf_result * result)
+gsl_sf_gammastar_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -1339,7 +1339,7 @@
 
 
 int
-gsl_sf_gammainv_impl(const double x, gsl_sf_result * result)
+gsl_sf_gammainv_impl(double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -1424,7 +1424,7 @@
 }
 
 
-int gsl_sf_taylorcoeff_impl(const int n, const double x, gsl_sf_result * result)
+int gsl_sf_taylorcoeff_impl(int n, double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -1480,7 +1480,7 @@
 }
 
 
-int gsl_sf_fact_impl(const unsigned int n, gsl_sf_result * result)
+int gsl_sf_fact_impl(unsigned int n, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -1503,7 +1503,7 @@
 }
 
 
-int gsl_sf_doublefact_impl(const unsigned int n, gsl_sf_result * result)
+int gsl_sf_doublefact_impl(unsigned int n, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -1526,7 +1526,7 @@
 }
 
 
-int gsl_sf_lnfact_impl(const unsigned int n, gsl_sf_result * result)
+int gsl_sf_lnfact_impl(unsigned int n, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -1543,7 +1543,7 @@
 }
 
 
-int gsl_sf_lndoublefact_impl(const unsigned int n, gsl_sf_result * result)
+int gsl_sf_lndoublefact_impl(unsigned int n, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -1634,7 +1634,7 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
-int gsl_sf_fact_e(const unsigned int n, gsl_sf_result * result)
+int gsl_sf_fact_e(unsigned int n, gsl_sf_result * result)
 {
   int status = gsl_sf_fact_impl(n, result);
   if(status != GSL_SUCCESS) {
@@ -1643,7 +1643,7 @@
   return status;
 }
 
-int gsl_sf_lnfact_e(const unsigned int n, gsl_sf_result * result)
+int gsl_sf_lnfact_e(unsigned int n, gsl_sf_result * result)
 {
   int status = gsl_sf_lnfact_impl(n, result);
   if(status != GSL_SUCCESS) {
@@ -1652,7 +1652,7 @@
   return status;
 }
 
-int gsl_sf_doublefact_e(const unsigned int n, gsl_sf_result * result)
+int gsl_sf_doublefact_e(unsigned int n, gsl_sf_result * result)
 {
   int status = gsl_sf_doublefact_impl(n, result);
   if(status != GSL_SUCCESS) {
@@ -1661,7 +1661,7 @@
   return status;
 }
 
-int gsl_sf_lndoublefact_e(const unsigned int n, gsl_sf_result * result)
+int gsl_sf_lndoublefact_e(unsigned int n, gsl_sf_result * result)
 {
   int status = gsl_sf_lndoublefact_impl(n, result);
   if(status != GSL_SUCCESS) {
@@ -1670,7 +1670,7 @@
   return status;
 }
 
-int gsl_sf_lngamma_e(const double x, gsl_sf_result * result)
+int gsl_sf_lngamma_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_lngamma_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -1679,7 +1679,7 @@
   return status;
 }
 
-int gsl_sf_lngamma_sgn_e(const double x, gsl_sf_result * result, double * sgn)
+int gsl_sf_lngamma_sgn_e(double x, gsl_sf_result * result, double * sgn)
 {
   int status = gsl_sf_lngamma_sgn_impl(x, result, sgn);
   if(status != GSL_SUCCESS) {
@@ -1688,7 +1688,7 @@
   return status;
 }
 
-int gsl_sf_gamma_e(const double x, gsl_sf_result * result)
+int gsl_sf_gamma_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_gamma_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -1698,7 +1698,7 @@
 }
 
 
-int gsl_sf_gammastar_e(const double x, gsl_sf_result * result)
+int gsl_sf_gammastar_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_gammastar_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -1708,7 +1708,7 @@
 }
 
 
-int gsl_sf_gammainv_e(const double x, gsl_sf_result * result)
+int gsl_sf_gammainv_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_gammainv_impl(x, result);
   if(status != GSL_SUCCESS) {
@@ -1728,7 +1728,7 @@
 }
 
 
-int gsl_sf_taylorcoeff_e(const int n, const double x, gsl_sf_result * result)
+int gsl_sf_taylorcoeff_e(int n, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_taylorcoeff_impl(n, x, result);
   if(status != GSL_SUCCESS) {;
--- ./specfunc/chebyshev.c	Sun Jan 17 16:56:03 1999
+++ ../gsl-0.4.1/./specfunc/chebyshev.c	Mon Mar 29 17:54:56 1999
@@ -11,8 +11,8 @@
 /*-*-*-*-*-*-*-*-*-*-*-* Allocators *-*-*-*-*-*-*-*-*-*-*-*/
 
 gsl_sf_cheb_series * gsl_sf_cheb_new(double (*func)(double),
-    	    	    	    	     const double a, const double b,
-			      	     const int order)
+    	    	    	    	     double a, double b,
+			      	     int order)
 {
   int status;
 
@@ -150,7 +150,7 @@
 
 int
 gsl_sf_cheb_eval_n_impl(const gsl_sf_cheb_series * cs,
-                        const int n, const double x,
+                        int n, double x,
                         gsl_sf_result * result)
 {
   int j;
@@ -181,7 +181,7 @@
 
 int
 gsl_sf_cheb_eval_impl(const gsl_sf_cheb_series * cs,
-                      const double x,
+                      double x,
                       gsl_sf_result * result)
 {
   int j;
@@ -210,7 +210,7 @@
 
 int
 gsl_sf_cheb_eval_mode_impl(const gsl_sf_cheb_series * cs,
-                           const double x,
+                           double x,
                            gsl_mode_t mode,
                            gsl_sf_result * result)
 {
@@ -246,7 +246,7 @@
 
 
 int
-gsl_sf_cheb_eval_deriv_impl(gsl_sf_cheb_series * cs, const double x,
+gsl_sf_cheb_eval_deriv_impl(gsl_sf_cheb_series * cs, double x,
                             gsl_sf_result * result)
 {
   int j;
@@ -276,7 +276,7 @@
 
 
 int
-gsl_sf_cheb_eval_integ_impl(gsl_sf_cheb_series * cs, const double x,
+gsl_sf_cheb_eval_integ_impl(gsl_sf_cheb_series * cs, double x,
                             gsl_sf_result * result)
 {
   int j;
--- ./specfunc/pow_int.c	Fri Dec 18 18:43:01 1998
+++ ../gsl-0.4.1/./specfunc/pow_int.c	Tue Mar 30 15:22:14 1999
@@ -9,14 +9,16 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Natural Prototypes *-*-*-*-*-*-*-*-*-*-*-*/
 
-double gsl_sf_pow_2(const double x) { return x*x;   }
-double gsl_sf_pow_3(const double x) { return x*x*x; }
-double gsl_sf_pow_4(const double x) { double x2 = x*x;   return x2*x2;    }
-double gsl_sf_pow_5(const double x) { double x2 = x*x;   return x2*x2*x;  }
-double gsl_sf_pow_6(const double x) { double x2 = x*x;   return x2*x2*x2; }
-double gsl_sf_pow_7(const double x) { double x3 = x*x*x; return x3*x3*x;  }
-double gsl_sf_pow_8(const double x) { double x2 = x*x;   double x4 = x2*x2; return x4*x4; }
-double gsl_sf_pow_9(const double x) { double x3 = x*x*x; return x3*x3*x3; }
+#if !defined(HAVE_INLINE) || !defined(__sgi)
+double gsl_sf_pow_2(double x) { return x*x;   }
+double gsl_sf_pow_3(double x) { return x*x*x; }
+double gsl_sf_pow_4(double x) { double x2 = x*x;   return x2*x2;    }
+double gsl_sf_pow_5(double x) { double x2 = x*x;   return x2*x2*x;  }
+double gsl_sf_pow_6(double x) { double x2 = x*x;   return x2*x2*x2; }
+double gsl_sf_pow_7(double x) { double x3 = x*x*x; return x3*x3*x;  }
+double gsl_sf_pow_8(double x) { double x2 = x*x;   double x4 = x2*x2; return x4*x4; }
+double gsl_sf_pow_9(double x) { double x3 = x*x*x; return x3*x3*x3; }
+#endif
 
 
 int gsl_sf_pow_int_impl(double x, int n, gsl_sf_result * result)
@@ -49,7 +51,8 @@
 }
 
 
-int gsl_sf_pow_int_e(const double x, const int n, gsl_sf_result * result)
+#if !defined(HAVE_INLINE) || !defined(__sgi)
+int gsl_sf_pow_int_e(double x, int n, gsl_sf_result * result)
 {
   int status = gsl_sf_pow_int_impl(x, n, result);
   if(status != GSL_SUCCESS) {
@@ -58,8 +61,10 @@
   return status;
   
 }
+#endif
 
-double gsl_sf_pow_int(const double x, const int n)
+#if !defined(HAVE_INLINE) || !defined(__sgi)
+double gsl_sf_pow_int(double x, int n)
 {
   gsl_sf_result p;
   int status = gsl_sf_pow_int_impl(x, n, &p);
@@ -68,3 +73,4 @@
   }
   return p.val;
 }
+#endif
--- ./specfunc/bessel_amp_phase.c	Wed Nov 25 04:35:46 1998
+++ ../gsl-0.4.1/./specfunc/bessel_amp_phase.c	Mon Mar 29 17:50:18 1999
@@ -153,7 +153,7 @@
 
 
 int
-gsl_sf_bessel_asymp_Mnu_impl(const double nu, const double x, double * result)
+gsl_sf_bessel_asymp_Mnu_impl(double nu, double x, double * result)
 {
   const double r  = 2.0*nu/x;
   const double r2 = r*r;
@@ -167,7 +167,7 @@
 
 
 int
-gsl_sf_bessel_asymp_thetanu_corr_impl(const double nu, const double x, double * result)
+gsl_sf_bessel_asymp_thetanu_corr_impl(double nu, double x, double * result)
 {
   const double r  = 2.0*nu/x;
   const double r2 = r*r;
--- ./specfunc/elementary.c	Fri Feb 12 13:54:06 1999
+++ ../gsl-0.4.1/./specfunc/elementary.c	Mon Mar 29 18:02:19 1999
@@ -8,7 +8,7 @@
 
 
 int
-gsl_sf_multiply_impl(const double x, const double y, gsl_sf_result * result)
+gsl_sf_multiply_impl(double x, double y, gsl_sf_result * result)
 {
   const double ax = fabs(x);
   const double ay = fabs(y);
@@ -46,8 +46,8 @@
 
 
 int
-gsl_sf_multiply_err_impl(const double x, const double dx,
-                         const double y, const double dy,
+gsl_sf_multiply_err_impl(double x, double dx,
+                         double y, double dy,
                          gsl_sf_result * result)
 {
   int status = gsl_sf_multiply_impl(x, y, result);
@@ -59,7 +59,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_multiply_e(const double x, const double y, gsl_sf_result * result)
+gsl_sf_multiply_e(double x, double y, gsl_sf_result * result)
 {
   int status = gsl_sf_multiply_impl(x, y, result);
   if(status != GSL_SUCCESS) {
@@ -70,8 +70,8 @@
 
 
 int
-gsl_sf_multiply_err_e(const double x, const double dx,
-                      const double y, const double dy,
+gsl_sf_multiply_err_e(double x, double dx,
+                      double y, double dy,
                       gsl_sf_result * result)
 {
   int status = gsl_sf_multiply_err_impl(x, dx, y, dy, result);
--- ./specfunc/atanint.c	Mon Dec 28 11:56:33 1998
+++ ../gsl-0.4.1/./specfunc/atanint.c	Mon Mar 29 17:42:23 1999
@@ -44,7 +44,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_atanint_impl(const double x, gsl_sf_result * result)
+gsl_sf_atanint_impl(double x, gsl_sf_result * result)
 {
   const double ax  = fabs(x);
   const double sgn = GSL_SIGN(x);
@@ -91,7 +91,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_atanint_e(const double x, gsl_sf_result * result)
+gsl_sf_atanint_e(double x, gsl_sf_result * result)
 {
   int status = gsl_sf_atanint_impl(x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/poch.c	Tue Feb 16 16:45:43 1999
+++ ../gsl-0.4.1/./specfunc/poch.c	Mon Mar 29 18:22:25 1999
@@ -259,7 +259,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* (semi)Private Implementations *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_lnpoch_impl(const double a, const double x, gsl_sf_result * result)
+gsl_sf_lnpoch_impl(double a, double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -281,7 +281,7 @@
 
 
 int
-gsl_sf_lnpoch_sgn_impl(const double a, const double x,
+gsl_sf_lnpoch_sgn_impl(double a, double x,
                        gsl_sf_result * result, double * sgn)
 {
   if(a == 0.0 || a+x == 0.0) {
@@ -355,7 +355,7 @@
 
 
 int
-gsl_sf_poch_impl(const double a, const double x, gsl_sf_result * result)
+gsl_sf_poch_impl(double a, double x, gsl_sf_result * result)
 {
   if(result == 0) {
     return GSL_EFAULT;
@@ -379,7 +379,7 @@
 
 
 int
-gsl_sf_pochrel_impl(const double a, const double x, gsl_sf_result * result)
+gsl_sf_pochrel_impl(double a, double x, gsl_sf_result * result)
 {
   const double absx = fabs(x);
   const double absa = fabs(a);
@@ -413,7 +413,7 @@
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Error Handling *-*-*-*-*-*-*-*-*-*-*-*/
 
 int
-gsl_sf_lnpoch_e(const double a, const double x, gsl_sf_result * result)
+gsl_sf_lnpoch_e(double a, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_lnpoch_impl(a, x, result);
   if(status != GSL_SUCCESS) {
@@ -424,7 +424,7 @@
 
 
 int
-gsl_sf_lnpoch_sgn_e(const double a, const double x, gsl_sf_result * result, double * sgn)
+gsl_sf_lnpoch_sgn_e(double a, double x, gsl_sf_result * result, double * sgn)
 {
   int status = gsl_sf_lnpoch_sgn_impl(a, x, result, sgn);
   if(status != GSL_SUCCESS) {
@@ -435,7 +435,7 @@
 
 
 int
-gsl_sf_poch_e(const double a, const double x, gsl_sf_result * result)
+gsl_sf_poch_e(double a, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_poch_impl(a, x, result);
   if(status != GSL_SUCCESS) {
@@ -445,7 +445,7 @@
 }
 
 
-int gsl_sf_pochrel_e(const double a, const double x, gsl_sf_result * result)
+int gsl_sf_pochrel_e(double a, double x, gsl_sf_result * result)
 {
   int status = gsl_sf_pochrel_impl(a, x, result);
   if(status != GSL_SUCCESS) {
--- ./specfunc/poly.c	Tue Nov 17 19:47:03 1998
+++ ../gsl-0.4.1/./specfunc/poly.c	Tue Mar 30 15:22:42 1999
@@ -7,11 +7,13 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-* Functions w/ Natural Prototypes *-*-*-*-*-*-*-*-*-*-*-*/
 
+#if !defined(HAVE_INLINE) || !defined(__sgi)
 /* checked OK [GJ] Tue May  5 12:19:56 MDT 1998 */
-double gsl_sf_poly_eval(const double c[], const int len, const double x)
+double gsl_sf_poly_eval(const double c[], int len, double x)
 {
   int i;
   double ans = c[len-1];
   for(i=len-1; i>0; i--) ans = c[i-1] + x * ans;
   return ans;
 }
+#endif
--- ./vector/gsl_vector_int.h	Mon Nov 23 18:35:06 1998
+++ ../gsl-0.4.1/./vector/gsl_vector_int.h	Tue Mar 30 14:08:39 1999
@@ -20,9 +20,9 @@
 gsl_vector_int *gsl_vector_int_calloc (size_t n);
 void gsl_vector_int_free (gsl_vector_int * v);
 
-int *gsl_vector_int_ptr (const gsl_vector_int * v, const size_t i);
-int gsl_vector_int_get (const gsl_vector_int * v, const size_t i);
-void gsl_vector_int_set (gsl_vector_int * v, const size_t i, int x);
+int *gsl_vector_int_ptr (const gsl_vector_int * v, size_t i);
+int gsl_vector_int_get (const gsl_vector_int * v, size_t i);
+void gsl_vector_int_set (gsl_vector_int * v, size_t i, int x);
 
 int gsl_vector_int_fread (FILE * stream, gsl_vector_int * v);
 int gsl_vector_int_fwrite (FILE * stream, const gsl_vector_int * v);
@@ -40,9 +40,9 @@
 extern int gsl_check_range;
 
 #ifdef HAVE_INLINE
-extern inline
+inline
 int *
-gsl_vector_int_ptr (const gsl_vector_int * v, const size_t i)
+gsl_vector_int_ptr (const gsl_vector_int * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -53,9 +53,9 @@
   return (int *) (v->data + i * v->stride);
 }
 
-extern inline
+inline
 int
-gsl_vector_int_get (const gsl_vector_int * v, const size_t i)
+gsl_vector_int_get (const gsl_vector_int * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -66,9 +66,9 @@
   return v->data[i * v->stride];
 }
 
-extern inline
+inline
 void
-gsl_vector_int_set (gsl_vector_int * v, const size_t i, int x)
+gsl_vector_int_set (gsl_vector_int * v, size_t i, int x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
--- ./vector/gsl_vector_uint.h	Mon Nov 23 18:35:11 1998
+++ ../gsl-0.4.1/./vector/gsl_vector_uint.h	Tue Mar 30 14:08:16 1999
@@ -20,9 +20,9 @@
 gsl_vector_uint *gsl_vector_uint_calloc (size_t n);
 void gsl_vector_uint_free (gsl_vector_uint * v);
 
-unsigned int *gsl_vector_uint_ptr (const gsl_vector_uint * v, const size_t i);
-unsigned int gsl_vector_uint_get (const gsl_vector_uint * v, const size_t i);
-void gsl_vector_uint_set (gsl_vector_uint * v, const size_t i, unsigned int x);
+unsigned int *gsl_vector_uint_ptr (const gsl_vector_uint * v, size_t i);
+unsigned int gsl_vector_uint_get (const gsl_vector_uint * v, size_t i);
+void gsl_vector_uint_set (gsl_vector_uint * v, size_t i, unsigned int x);
 
 
 int gsl_vector_uint_fread (FILE * stream, gsl_vector_uint * v);
@@ -43,9 +43,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline
+inline
 unsigned int *
-gsl_vector_uint_ptr (const gsl_vector_uint * v, const size_t i)
+gsl_vector_uint_ptr (const gsl_vector_uint * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -56,9 +56,9 @@
   return (unsigned int *) (v->data + i * v->stride);
 }
 
-extern inline
+inline
 unsigned int
-gsl_vector_uint_get (const gsl_vector_uint * v, const size_t i)
+gsl_vector_uint_get (const gsl_vector_uint * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -69,9 +69,9 @@
   return v->data[i * v->stride];
 }
 
-extern inline
+inline
 void
-gsl_vector_uint_set (gsl_vector_uint * v, const size_t i, unsigned int x)
+gsl_vector_uint_set (gsl_vector_uint * v, size_t i, unsigned int x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
--- ./vector/gsl_vector_char.h	Mon Nov 23 18:35:01 1998
+++ ../gsl-0.4.1/./vector/gsl_vector_char.h	Tue Mar 30 14:07:28 1999
@@ -20,9 +20,9 @@
 gsl_vector_char *gsl_vector_char_calloc (size_t n);
 void gsl_vector_char_free (gsl_vector_char * v);
 
-char *gsl_vector_char_ptr (const gsl_vector_char * v, const size_t i);
-char gsl_vector_char_get (const gsl_vector_char * v, const size_t i);
-void gsl_vector_char_set (gsl_vector_char * v, const size_t i, char c);
+char *gsl_vector_char_ptr (const gsl_vector_char * v, size_t i);
+char gsl_vector_char_get (const gsl_vector_char * v, size_t i);
+void gsl_vector_char_set (gsl_vector_char * v, size_t i, char c);
 
 int gsl_vector_char_fread (FILE * stream, gsl_vector_char * v);
 int gsl_vector_char_fwrite (FILE * stream, const gsl_vector_char * v);
@@ -40,9 +40,9 @@
 extern int gsl_check_range;
 
 #ifdef HAVE_INLINE
-extern inline
+inline
 char *
-gsl_vector_char_ptr (const gsl_vector_char * v, const size_t i)
+gsl_vector_char_ptr (const gsl_vector_char * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -53,9 +53,9 @@
   return v->data + i;
 }
 
-extern inline
+inline
 char
-gsl_vector_char_get (const gsl_vector_char * v, const size_t i)
+gsl_vector_char_get (const gsl_vector_char * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -66,9 +66,9 @@
   return v->data[i * v->stride];
 }
 
-extern inline
+inline
 void
-gsl_vector_char_set (gsl_vector_char * v, const size_t i, char c)
+gsl_vector_char_set (gsl_vector_char * v, size_t i, char c)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
--- ./vector/fprintf_block.c	Sat Nov 21 23:56:00 1998
+++ ../gsl-0.4.1/./vector/fprintf_block.c	Mon Mar 29 17:16:49 1999
@@ -2,8 +2,8 @@
 
 int
 FUNCTION (gsl_block, fprintf) (FILE * stream, const ATOMIC * data,
-			       const size_t n,
-			       const size_t stride, const char *format)
+			       size_t n,
+			       size_t stride, const char *format)
 {
   size_t i;
 
@@ -45,7 +45,7 @@
 
 int
 FUNCTION (gsl_block, fscanf) (FILE * stream, ATOMIC * data,
-			      const size_t n, const size_t stride)
+			      size_t n, size_t stride)
 {
   size_t i;
 
--- ./vector/gsl_vector_complex_double.h	Mon Nov 23 18:35:02 1998
+++ ../gsl-0.4.1/./vector/gsl_vector_complex_double.h	Tue Mar 30 14:09:08 1999
@@ -44,9 +44,9 @@
 extern int gsl_check_range;
 
 #ifdef HAVE_INLINE
-extern inline
+inline
   gsl_complex *
-gsl_vector_complex_ptr (const gsl_vector_complex * v, const size_t i)
+gsl_vector_complex_ptr (const gsl_vector_complex * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -57,9 +57,9 @@
   return GSL_COMPLEX_AT (v, i);
 }
 
-extern inline
+inline
   gsl_complex
-gsl_vector_complex_get (const gsl_vector_complex * v, const size_t i)
+gsl_vector_complex_get (const gsl_vector_complex * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -73,9 +73,9 @@
   return *(GSL_COMPLEX_AT (v, i));
 }
 
-extern inline
+inline
 void
-gsl_vector_complex_set (gsl_vector_complex * v, const size_t i, gsl_complex z)
+gsl_vector_complex_set (gsl_vector_complex * v, size_t i, gsl_complex z)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
--- ./vector/gsl_vector_complex_float.h	Mon Nov 23 18:35:03 1998
+++ ../gsl-0.4.1/./vector/gsl_vector_complex_float.h	Tue Mar 30 14:08:57 1999
@@ -49,10 +49,10 @@
 extern int gsl_check_range;
 
 #ifdef HAVE_INLINE
-extern inline
+inline
   gsl_complex_float *
 gsl_vector_complex_float_ptr (const gsl_vector_complex_float * v,
-			      const size_t i)
+			      size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -63,10 +63,10 @@
   return GSL_COMPLEX_FLOAT_AT (v, i);
 }
 
-extern inline
+inline
   gsl_complex_float
 gsl_vector_complex_float_get (const gsl_vector_complex_float * v,
-			      const size_t i)
+			      size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -80,10 +80,10 @@
   return *GSL_COMPLEX_FLOAT_AT (v, i);
 }
 
-extern inline
+inline
 void
 gsl_vector_complex_float_set (gsl_vector_complex_float * v,
-			      const size_t i, gsl_complex_float z)
+			      size_t i, gsl_complex_float z)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
--- ./vector/vector_source.c	Sat Nov 21 23:56:06 1998
+++ ../gsl-0.4.1/./vector/vector_source.c	Tue Mar 30 14:11:05 1999
@@ -1,5 +1,6 @@
+#if !defined(HAVE_INLINE) || !defined(__sgi)
 inline BASE *
-FUNCTION (gsl_vector, ptr) (const TYPE (gsl_vector) * v, const size_t i)
+FUNCTION (gsl_vector, ptr) (const TYPE (gsl_vector) * v, size_t i)
 {
   if (gsl_check_range)
     {
@@ -13,7 +14,7 @@
 }
 
 inline BASE
-FUNCTION (gsl_vector, get) (const TYPE (gsl_vector) * v, const size_t i)
+FUNCTION (gsl_vector, get) (const TYPE (gsl_vector) * v, size_t i)
 {
   if (gsl_check_range)
     {
@@ -30,7 +31,7 @@
 }
 
 inline void
-FUNCTION (gsl_vector, set) (TYPE (gsl_vector) * v, const size_t i, BASE x)
+FUNCTION (gsl_vector, set) (TYPE (gsl_vector) * v, size_t i, BASE x)
 {
   if (gsl_check_range)
     {
@@ -44,3 +45,4 @@
 
   *(BASE *) (v->data + MULTIPLICITY * i * v->stride) = x;
 }
+#endif
--- ./vector/gsl_vector_long.h	Mon Nov 23 18:35:07 1998
+++ ../gsl-0.4.1/./vector/gsl_vector_long.h	Tue Mar 30 14:08:33 1999
@@ -20,9 +20,9 @@
 gsl_vector_long *gsl_vector_long_calloc (size_t n);
 void gsl_vector_long_free (gsl_vector_long * v);
 
-long *gsl_vector_long_ptr (const gsl_vector_long * v, const size_t i);
-long gsl_vector_long_get (const gsl_vector_long * v, const size_t i);
-void gsl_vector_long_set (gsl_vector_long * v, const size_t i, long x);
+long *gsl_vector_long_ptr (const gsl_vector_long * v, size_t i);
+long gsl_vector_long_get (const gsl_vector_long * v, size_t i);
+void gsl_vector_long_set (gsl_vector_long * v, size_t i, long x);
 
 
 int gsl_vector_long_fread (FILE * stream, gsl_vector_long * v);
@@ -43,9 +43,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline
+inline
 long *
-gsl_vector_long_ptr (const gsl_vector_long * v, const size_t i)
+gsl_vector_long_ptr (const gsl_vector_long * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -56,9 +56,9 @@
   return (long *) (v->data + i * v->stride);
 }
 
-extern inline
+inline
 long
-gsl_vector_long_get (const gsl_vector_long * v, const size_t i)
+gsl_vector_long_get (const gsl_vector_long * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -69,9 +69,9 @@
   return v->data[i * v->stride];
 }
 
-extern inline
+inline
 void
-gsl_vector_long_set (gsl_vector_long * v, const size_t i, long x)
+gsl_vector_long_set (gsl_vector_long * v, size_t i, long x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
--- ./vector/init_source.c	Sat Nov 21 23:56:03 1998
+++ ../gsl-0.4.1/./vector/init_source.c	Mon Mar 29 17:14:19 1999
@@ -1,5 +1,5 @@
 TYPE (gsl_vector) *
-FUNCTION (gsl_vector, alloc) (const size_t n)
+FUNCTION (gsl_vector, alloc) (size_t n)
 {
   TYPE (gsl_vector) * v;
 
@@ -35,7 +35,7 @@
 }
 
 TYPE (gsl_vector) *
-FUNCTION (gsl_vector, calloc) (const size_t n)
+FUNCTION (gsl_vector, calloc) (size_t n)
 {
   size_t i;
 
--- ./vector/gsl_vector_ushort.h	Mon Nov 23 18:35:12 1998
+++ ../gsl-0.4.1/./vector/gsl_vector_ushort.h	Tue Mar 30 14:08:02 1999
@@ -20,9 +20,9 @@
 gsl_vector_ushort *gsl_vector_ushort_calloc (size_t n);
 void gsl_vector_ushort_free (gsl_vector_ushort * v);
 
-unsigned short *gsl_vector_ushort_ptr (const gsl_vector_ushort * v, const size_t i);
-unsigned short gsl_vector_ushort_get (const gsl_vector_ushort * v, const size_t i);
-void gsl_vector_ushort_set (gsl_vector_ushort * v, const size_t i, unsigned short x);
+unsigned short *gsl_vector_ushort_ptr (const gsl_vector_ushort * v, size_t i);
+unsigned short gsl_vector_ushort_get (const gsl_vector_ushort * v, size_t i);
+void gsl_vector_ushort_set (gsl_vector_ushort * v, size_t i, unsigned short x);
 
 int gsl_vector_ushort_fread (FILE * stream, gsl_vector_ushort * v);
 int gsl_vector_ushort_fwrite (FILE * stream, const gsl_vector_ushort * v);
@@ -42,9 +42,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline
+inline
 unsigned short *
-gsl_vector_ushort_ptr (const gsl_vector_ushort * v, const size_t i)
+gsl_vector_ushort_ptr (const gsl_vector_ushort * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -55,9 +55,9 @@
   return (unsigned short *) (v->data + i * v->stride);
 }
 
-extern inline
+inline
 unsigned short
-gsl_vector_ushort_get (const gsl_vector_ushort * v, const size_t i)
+gsl_vector_ushort_get (const gsl_vector_ushort * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -68,9 +68,9 @@
   return v->data[i * v->stride];
 }
 
-extern inline
+inline
 void
-gsl_vector_ushort_set (gsl_vector_ushort * v, const size_t i, unsigned short x)
+gsl_vector_ushort_set (gsl_vector_ushort * v, size_t i, unsigned short x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
--- ./vector/gsl_vector_short.h	Mon Nov 23 18:35:09 1998
+++ ../gsl-0.4.1/./vector/gsl_vector_short.h	Tue Mar 30 14:08:24 1999
@@ -20,9 +20,9 @@
 gsl_vector_short *gsl_vector_short_calloc (size_t n);
 void gsl_vector_short_free (gsl_vector_short * v);
 
-short *gsl_vector_short_ptr (const gsl_vector_short * v, const size_t i);
-short gsl_vector_short_get (const gsl_vector_short * v, const size_t i);
-void gsl_vector_short_set (gsl_vector_short * v, const size_t i, short x);
+short *gsl_vector_short_ptr (const gsl_vector_short * v, size_t i);
+short gsl_vector_short_get (const gsl_vector_short * v, size_t i);
+void gsl_vector_short_set (gsl_vector_short * v, size_t i, short x);
 
 int gsl_vector_short_fread (FILE * stream, gsl_vector_short * v);
 int gsl_vector_short_fwrite (FILE * stream, const gsl_vector_short * v);
@@ -42,9 +42,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline
+inline
 short *
-gsl_vector_short_ptr (const gsl_vector_short * v, const size_t i)
+gsl_vector_short_ptr (const gsl_vector_short * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -55,9 +55,9 @@
   return (short *) (v->data + i * v->stride);
 }
 
-extern inline
+inline
 short
-gsl_vector_short_get (const gsl_vector_short * v, const size_t i)
+gsl_vector_short_get (const gsl_vector_short * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -68,9 +68,9 @@
   return v->data[i * v->stride];
 }
 
-extern inline
+inline
 void
-gsl_vector_short_set (gsl_vector_short * v, const size_t i, short x)
+gsl_vector_short_set (gsl_vector_short * v, size_t i, short x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
--- ./vector/gsl_vector_ulong.h	Mon Nov 23 18:35:11 1998
+++ ../gsl-0.4.1/./vector/gsl_vector_ulong.h	Tue Mar 30 14:08:12 1999
@@ -20,9 +20,9 @@
 gsl_vector_ulong *gsl_vector_ulong_calloc (size_t n);
 void gsl_vector_ulong_free (gsl_vector_ulong * v);
 
-unsigned long *gsl_vector_ulong_ptr (const gsl_vector_ulong * v, const size_t i);
-unsigned long gsl_vector_ulong_get (const gsl_vector_ulong * v, const size_t i);
-void gsl_vector_ulong_set (gsl_vector_ulong * v, const size_t i, unsigned long x);
+unsigned long *gsl_vector_ulong_ptr (const gsl_vector_ulong * v, size_t i);
+unsigned long gsl_vector_ulong_get (const gsl_vector_ulong * v, size_t i);
+void gsl_vector_ulong_set (gsl_vector_ulong * v, size_t i, unsigned long x);
 
 
 int gsl_vector_ulong_fread (FILE * stream, gsl_vector_ulong * v);
@@ -43,9 +43,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline
+inline
 unsigned long *
-gsl_vector_ulong_ptr (const gsl_vector_ulong * v, const size_t i)
+gsl_vector_ulong_ptr (const gsl_vector_ulong * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -56,9 +56,9 @@
   return (unsigned long *) (v->data + i * v->stride);
 }
 
-extern inline
+inline
 unsigned long
-gsl_vector_ulong_get (const gsl_vector_ulong * v, const size_t i)
+gsl_vector_ulong_get (const gsl_vector_ulong * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -69,9 +69,9 @@
   return v->data[i * v->stride];
 }
 
-extern inline
+inline
 void
-gsl_vector_ulong_set (gsl_vector_ulong * v, const size_t i, unsigned long x)
+gsl_vector_ulong_set (gsl_vector_ulong * v, size_t i, unsigned long x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
--- ./vector/gsl_vector_float.h	Mon Nov 23 18:35:06 1998
+++ ../gsl-0.4.1/./vector/gsl_vector_float.h	Tue Mar 30 14:08:43 1999
@@ -20,9 +20,9 @@
 gsl_vector_float *gsl_vector_float_calloc (size_t n);
 void gsl_vector_float_free (gsl_vector_float * v);
 
-float *gsl_vector_float_ptr (const gsl_vector_float * v, const size_t i);
-float gsl_vector_float_get (const gsl_vector_float * v, const size_t i);
-void gsl_vector_float_set (gsl_vector_float * v, const size_t i, float x);
+float *gsl_vector_float_ptr (const gsl_vector_float * v, size_t i);
+float gsl_vector_float_get (const gsl_vector_float * v, size_t i);
+void gsl_vector_float_set (gsl_vector_float * v, size_t i, float x);
 
 int gsl_vector_float_fread (FILE * stream, gsl_vector_float * v);
 int gsl_vector_float_fwrite (FILE * stream, const gsl_vector_float * v);
@@ -42,9 +42,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline
+inline
 float *
-gsl_vector_float_ptr (const gsl_vector_float * v, const size_t i)
+gsl_vector_float_ptr (const gsl_vector_float * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -55,9 +55,9 @@
   return (float *) (v->data + i * v->stride);
 }
 
-extern inline
+inline
 float
-gsl_vector_float_get (const gsl_vector_float * v, const size_t i)
+gsl_vector_float_get (const gsl_vector_float * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -68,9 +68,9 @@
   return v->data[i * v->stride];
 }
 
-extern inline
+inline
 void
-gsl_vector_float_set (gsl_vector_float * v, const size_t i, float x)
+gsl_vector_float_set (gsl_vector_float * v, size_t i, float x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
--- ./vector/gsl_vector_double.h	Mon Nov 23 18:35:05 1998
+++ ../gsl-0.4.1/./vector/gsl_vector_double.h	Tue Mar 30 14:08:47 1999
@@ -20,9 +20,9 @@
 gsl_vector *gsl_vector_calloc (size_t n);
 void gsl_vector_free (gsl_vector * v);
 
-double *gsl_vector_ptr (const gsl_vector * v, const size_t i);
-double gsl_vector_get (const gsl_vector * v, const size_t i);
-void gsl_vector_set (gsl_vector * v, const size_t i, double x);
+double *gsl_vector_ptr (const gsl_vector * v, size_t i);
+double gsl_vector_get (const gsl_vector * v, size_t i);
+void gsl_vector_set (gsl_vector * v, size_t i, double x);
 
 int gsl_vector_fread (FILE * stream, gsl_vector * v);
 int gsl_vector_fwrite (FILE * stream, const gsl_vector * v);
@@ -40,9 +40,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline
+inline
 double *
-gsl_vector_ptr (const gsl_vector * v, const size_t i)
+gsl_vector_ptr (const gsl_vector * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -53,9 +53,9 @@
   return (double *) (v->data + i * v->stride);
 }
 
-extern inline
+inline
 double
-gsl_vector_get (const gsl_vector * v, const size_t i)
+gsl_vector_get (const gsl_vector * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -66,9 +66,9 @@
   return v->data[i * v->stride];
 }
 
-extern inline
+inline
 void
-gsl_vector_set (gsl_vector * v, const size_t i, double x)
+gsl_vector_set (gsl_vector * v, size_t i, double x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
--- ./vector/gsl_vector_complex_long_double.h	Mon Nov 23 18:35:04 1998
+++ ../gsl-0.4.1/./vector/gsl_vector_complex_long_double.h	Tue Mar 30 14:08:51 1999
@@ -57,9 +57,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline 
+inline 
 gsl_complex_long_double *
-gsl_vector_complex_long_double_ptr (const gsl_vector_complex_long_double * v, const size_t i)
+gsl_vector_complex_long_double_ptr (const gsl_vector_complex_long_double * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -70,9 +70,9 @@
   return GSL_COMPLEX_LONG_DOUBLE_AT (v, i);
 }
 
-extern inline
+inline
   gsl_complex_long_double
-gsl_vector_complex_long_double_get (const gsl_vector_complex_long_double * v, const size_t i)
+gsl_vector_complex_long_double_get (const gsl_vector_complex_long_double * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -86,9 +86,9 @@
   return *GSL_COMPLEX_LONG_DOUBLE_AT (v, i);
 }
 
-extern inline
+inline
 void
-gsl_vector_complex_long_double_set (gsl_vector_complex_long_double * v, const size_t i, gsl_complex_long_double z)
+gsl_vector_complex_long_double_set (gsl_vector_complex_long_double * v, size_t i, gsl_complex_long_double z)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
--- ./vector/gsl_vector_long_double.h	Mon Nov 23 18:35:08 1998
+++ ../gsl-0.4.1/./vector/gsl_vector_long_double.h	Tue Mar 30 14:08:30 1999
@@ -20,9 +20,9 @@
 gsl_vector_long_double *gsl_vector_long_double_calloc (size_t n);
 void gsl_vector_long_double_free (gsl_vector_long_double * v);
 
-long double *gsl_vector_long_double_ptr (const gsl_vector_long_double * v, const size_t i);
-long double gsl_vector_long_double_get (const gsl_vector_long_double * v, const size_t i);
-void gsl_vector_long_double_set (gsl_vector_long_double * v, const size_t i, long double x);
+long double *gsl_vector_long_double_ptr (const gsl_vector_long_double * v, size_t i);
+long double gsl_vector_long_double_get (const gsl_vector_long_double * v, size_t i);
+void gsl_vector_long_double_set (gsl_vector_long_double * v, size_t i, long double x);
 
 int gsl_vector_long_double_fread (FILE * stream, gsl_vector_long_double * v);
 int gsl_vector_long_double_fwrite (FILE * stream, const gsl_vector_long_double * v);
@@ -41,9 +41,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline
+inline
 long double *
-gsl_vector_long_double_ptr (const gsl_vector_long_double * v, const size_t i)
+gsl_vector_long_double_ptr (const gsl_vector_long_double * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -54,9 +54,9 @@
   return (long double *) (v->data + i * v->stride);
 }
 
-extern inline
+inline
 long double
-gsl_vector_long_double_get (const gsl_vector_long_double * v, const size_t i)
+gsl_vector_long_double_get (const gsl_vector_long_double * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -67,9 +67,9 @@
   return v->data[i * v->stride];
 }
 
-extern inline
+inline
 void
-gsl_vector_long_double_set (gsl_vector_long_double * v, const size_t i, long double x)
+gsl_vector_long_double_set (gsl_vector_long_double * v, size_t i, long double x)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
--- ./vector/file_source.c	Sat Nov 21 23:55:59 1998
+++ ../gsl-0.4.1/./vector/file_source.c	Mon Mar 29 17:16:28 1999
@@ -43,8 +43,8 @@
 #endif
 
 int
-FUNCTION (gsl_block, fread) (FILE * stream, ATOMIC * data, const size_t n,
-			     const size_t stride)
+FUNCTION (gsl_block, fread) (FILE * stream, ATOMIC * data, size_t n,
+			     size_t stride)
 {
   if (stride == 1)
     {
@@ -75,7 +75,7 @@
 
 int
 FUNCTION (gsl_block, fwrite) (FILE * stream, const ATOMIC * data,
-			      const size_t n, const size_t stride)
+			      size_t n, size_t stride)
 {
 
   if (stride == 1)
--- ./vector/gsl_vector_uchar.h	Mon Nov 23 18:35:10 1998
+++ ../gsl-0.4.1/./vector/gsl_vector_uchar.h	Tue Mar 30 14:08:20 1999
@@ -20,9 +20,9 @@
 gsl_vector_uchar *gsl_vector_uchar_calloc (size_t n);
 void gsl_vector_uchar_free (gsl_vector_uchar * v);
 
-unsigned char *gsl_vector_uchar_ptr (const gsl_vector_uchar * v, const size_t i);
-unsigned char gsl_vector_uchar_get (const gsl_vector_uchar * v, const size_t i);
-void gsl_vector_uchar_set (gsl_vector_uchar * v, const size_t i, unsigned char x);
+unsigned char *gsl_vector_uchar_ptr (const gsl_vector_uchar * v, size_t i);
+unsigned char gsl_vector_uchar_get (const gsl_vector_uchar * v, size_t i);
+void gsl_vector_uchar_set (gsl_vector_uchar * v, size_t i, unsigned char x);
 
 
 int gsl_vector_uchar_fread (FILE * stream, gsl_vector_uchar * v);
@@ -43,9 +43,9 @@
 
 #ifdef HAVE_INLINE
 
-extern inline
+inline
 unsigned char *
-gsl_vector_uchar_ptr (const gsl_vector_uchar * v, const size_t i)
+gsl_vector_uchar_ptr (const gsl_vector_uchar * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -56,9 +56,9 @@
   return (unsigned char *) (v->data + i * v->stride);
 }
 
-extern inline
+inline
 unsigned char
-gsl_vector_uchar_get (const gsl_vector_uchar * v, const size_t i)
+gsl_vector_uchar_get (const gsl_vector_uchar * v, size_t i)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
@@ -69,9 +69,9 @@
   return v->data[i * v->stride];
 }
 
-extern inline
+inline
 void
-gsl_vector_uchar_set (gsl_vector_uchar * v, const size_t i, unsigned char c)
+gsl_vector_uchar_set (gsl_vector_uchar * v, size_t i, unsigned char c)
 {
 #ifndef GSL_RANGE_CHECK_OFF
   if (i >= v->size)	/* size_t is unsigned, can't be negative */
--- ./integration/qagse_impl.c	Sun Feb 14 07:20:32 1999
+++ ../gsl-0.4.1/./integration/qagse_impl.c	Tue Mar 30 11:31:58 1999
@@ -9,8 +9,8 @@
 
 int
 gsl_integration_qagse_impl (const gsl_function *f,
-			    const double a, const double b,
-			    const double epsabs, const double epsrel,
+			    double a, double b,
+			    double epsabs, double epsrel,
 			    gsl_integration_workspace * workspace,
 			    double *result, double *abserr,
 			    size_t * last, size_t * nqeval,
@@ -24,6 +24,7 @@
   size_t maxerr_index, nrmax = 0, i = 0, nres = 0, numrl2 = 1, ktmin = 0;
   int roundoff_type1 = 0, roundoff_type2 = 0, roundoff_type3 = 0;
   int error_type = 0, error_type2 = 0;
+
 
   const size_t limit = workspace->limit ;
   double * alist = workspace->alist ;
--- ./integration/qage_impl.c	Sun Feb 14 07:20:29 1999
+++ ../gsl-0.4.1/./integration/qage_impl.c	Tue Mar 30 11:31:04 1999
@@ -9,8 +9,8 @@
 
 int
 gsl_integration_qage_impl (const gsl_function *f,
-			   const double a, const double b,
-			   const double epsabs, const double epsrel,
+			   double a, double b,
+			   double epsabs, double epsrel,
 			   gsl_integration_workspace * workspace,
 			   size_t * last,
 			   double * result, double * abserr, size_t * nqeval,
--- ./integration/qpsrt.c	Tue Nov 17 19:45:33 1998
+++ ../gsl-0.4.1/./integration/qpsrt.c	Tue Mar 30 15:48:36 1999
@@ -3,7 +3,7 @@
 
 #include "qpsrt.h"
 
-void qpsrt (const size_t limit, const size_t last, 
+void qpsrt (size_t limit, size_t last, 
 	    size_t * maxerr_index, double * maxerr_value, 
 	    const double elist[], size_t iord[], 
 	    size_t * nrmax)
--- ./integration/qpsrt.h	Mon May 11 05:53:39 1998
+++ ../gsl-0.4.1/./integration/qpsrt.h	Tue Mar 30 15:48:28 1999
@@ -1,4 +1,4 @@
-void qpsrt (const size_t limit, const size_t last, 
+void qpsrt (size_t limit, size_t last, 
 	    size_t * maxerr_index, double * maxerr_value, 
 	    const double elist[], size_t iord[], 
 	    size_t * nrmax) ;
--- ./integration/err.c	Sat Nov 21 23:55:29 1998
+++ ../gsl-0.4.1/./integration/err.c	Tue Mar 30 11:33:25 1999
@@ -7,7 +7,7 @@
 #include "err.h"
 
 double rescale_error (double err, 
-		      const double result_abs, const double result_asc)
+		      double result_abs, double result_asc)
 {
   err = fabs(err) ;
 
--- ./integration/gsl_integration.h	Sun Feb 14 07:20:27 1999
+++ ../gsl-0.4.1/./integration/gsl_integration.h	Tue Mar 30 11:32:43 1999
@@ -19,17 +19,17 @@
 gsl_integration_workspace_free (gsl_integration_workspace * w) ;
 
 typedef void gsl_integration_rule_t (const gsl_function *f, 
-				     const double a, const double b,
+				     double a, double b,
 				     double * result, double * abserr,
 				     double * defabs, double * resabs) ;
        
 void gsl_integration_qk15 (const gsl_function *f,
-			  const double a, const double b,
+			  double a, double b,
 			  double * result, double * abserr,
 			  double * resabs, double * resasc) ;
 
 void gsl_integration_qk21 (const gsl_function *f,
-			  const double a, const double b,
+			  double a, double b,
 			  double * result, double * abserr,
 			  double * resabs, double * resasc);
 
@@ -49,7 +49,7 @@
 			  double * resabs, double * resasc);
 
 void gsl_integration_qk61 (const gsl_function *f,
-			  const double a, const double b,
+			  double a, double b,
 			  double * result, double * abserr,
 			  double * resabs, double * resasc);
 
@@ -78,8 +78,8 @@
 
 int
 gsl_integration_qage_impl (const gsl_function *f,
-			   const double a, const double b,
-			   const double epsabs, const double epsrel,
+			   double a, double b,
+			   double epsabs, double epsrel,
 			   gsl_integration_workspace * workspace,
 			   size_t * last,
 			   double * result, double * abserr, size_t * nqeval,
@@ -119,6 +119,6 @@
 			    gsl_integration_workspace * workspace,
 			    double * result, double * abserr, 
 			    size_t * last, size_t * nqeval,
-			    gsl_integration_rule_t * q) ;
+			    gsl_integration_rule_t * const q) ;
 
 #endif /* GSL_INTEGRATION_H */
--- ./integration/workspace.c	Tue Nov 17 19:45:35 1998
+++ ../gsl-0.4.1/./integration/workspace.c	Tue Mar 30 11:33:40 1999
@@ -4,7 +4,7 @@
 #include <gsl_errno.h>
 
 gsl_integration_workspace *
-gsl_integration_workspace_alloc (const size_t n) 
+gsl_integration_workspace_alloc (size_t n) 
 {
   gsl_integration_workspace * w ;
   
--- ./histogram/get2d.c	Wed May  6 10:07:20 1998
+++ ../gsl-0.4.1/./histogram/get2d.c	Tue Mar 30 11:35:27 1999
@@ -3,7 +3,7 @@
 #include <gsl_histogram2d.h>
 
 double
-gsl_histogram2d_get (const gsl_histogram2d * h, const size_t i, const size_t j)
+gsl_histogram2d_get (const gsl_histogram2d * h, size_t i, size_t j)
 {
   const size_t nx = h->nx;
   const size_t ny = h->ny;
@@ -24,7 +24,7 @@
 }
 
 int
-gsl_histogram2d_get_xrange (const gsl_histogram2d * h, const size_t i,
+gsl_histogram2d_get_xrange (const gsl_histogram2d * h, size_t i,
 			    double *xlower, double *xupper)
 {
   const size_t nx = h->nx;
@@ -41,7 +41,7 @@
 }
 
 int
-gsl_histogram2d_get_yrange (const gsl_histogram2d * h, const size_t j,
+gsl_histogram2d_get_yrange (const gsl_histogram2d * h, size_t j,
 			    double *ylower, double *yupper)
 {
   const size_t ny = h->ny;
--- ./histogram/init2d.c	Wed May  6 10:01:20 1998
+++ ../gsl-0.4.1/./histogram/init2d.c	Tue Mar 30 11:35:43 1999
@@ -4,9 +4,9 @@
 #include <gsl_histogram2d.h>
 
 gsl_histogram2d *
-gsl_histogram2d_calloc_uniform (const size_t nx, const size_t ny,
-				const double xmin, const double xmax,
-				const double ymin, const double ymax)
+gsl_histogram2d_calloc_uniform (size_t nx, size_t ny,
+				double xmin, double xmax,
+				double ymin, double ymax)
 {
   gsl_histogram2d *h;
 
@@ -45,7 +45,7 @@
 }
 
 gsl_histogram2d *
-gsl_histogram2d_calloc (const size_t nx, const size_t ny)
+gsl_histogram2d_calloc (size_t nx, size_t ny)
 {
   gsl_histogram2d *h;
 
--- ./histogram/find2d.c	Wed May  6 10:01:19 1998
+++ ../gsl-0.4.1/./histogram/find2d.c	Tue Mar 30 11:34:57 1999
@@ -6,7 +6,7 @@
 
 int
 gsl_histogram2d_find (const gsl_histogram2d * h,
-		      const double x, const double y,
+		      double x, double y,
 		      size_t * i, size_t * j)
 {
   int status = gsl_histogram_find_impl (h->nx, h->xrange, x, i);
@@ -29,7 +29,7 @@
 
 int
 gsl_histogram2d_find_impl (const gsl_histogram2d * h,
-			   const double x, const double y,
+			   double x, double y,
 			   size_t * i, size_t * j)
 {
   int status = gsl_histogram_find_impl (h->nx, h->xrange, x, i);
--- ./histogram/find.c	Mon May 11 19:16:47 1998
+++ ../gsl-0.4.1/./histogram/find.c	Tue Mar 30 11:34:20 1999
@@ -8,7 +8,7 @@
 
 int
 gsl_histogram_find (const gsl_histogram * h,
-		    const double x, size_t * i)
+		    double x, size_t * i)
 {
   int status = gsl_histogram_find_impl (h->n, h->range, x, i);
 
@@ -21,8 +21,8 @@
 }
 
 int
-gsl_histogram_find_impl (const size_t n, const double range[],
-			 const double x, size_t * i)
+gsl_histogram_find_impl (size_t n, const double range[],
+			 double x, size_t * i)
 {
   if (x < range[0])
     {
--- ./histogram/init.c	Mon May 11 19:16:49 1998
+++ ../gsl-0.4.1/./histogram/init.c	Tue Mar 30 11:34:45 1999
@@ -4,8 +4,7 @@
 #include <gsl_histogram.h>
 
 gsl_histogram *
-gsl_histogram_calloc_uniform (const size_t n, const double xmin,
-			      const double xmax)
+gsl_histogram_calloc_uniform (size_t n, double xmin, double xmax)
 {
   gsl_histogram *h;
 
--- ./ieee-utils/test.c	Fri Sep 11 12:48:39 1998
+++ ../gsl-0.4.1/./ieee-utils/test.c	Mon Mar 29 15:21:45 1999
@@ -5,11 +5,23 @@
 #include <gsl_ieee_utils.h>
 #include <gsl_test.h>
 
+#ifdef __sgi
+#include <sys/fpu.h>
+#endif
+
 int
 main (void)
 {
   float zerof = 0.0, minus_onef = -1.0 ;
   double zero = 0.0, minus_one = -1.0 ;
+
+#ifdef __sgi
+  /* 
+   * Clear the FS (flush denormalized results to zero) bit.
+   * If we don't, the denormalized FLT_MIN and DBL_MIN tests will fail.
+   */
+  set_fpc_csr(get_fpc_csr() & ~FPCSR_FLUSH_ZERO);
+#endif
 
   /* Check for +ZERO (float) */
 
--- ./statistics/gsl_statistics_double.h	Wed Aug 12 14:31:56 1998
+++ ../gsl-0.4.1/./statistics/gsl_statistics_double.h	Tue Mar 30 11:27:21 1999
@@ -44,6 +44,6 @@
 double gsl_stats_median_from_sorted_data (const double sorted_data[],
 					      size_t n) ;
 double gsl_stats_quantile_from_sorted_data (const double sorted_data[],
-						  size_t n, const double f) ;
+						  size_t n, double f) ;
 
 #endif /* GSL_STATISTICS_DOUBLE_H */
--- ./statistics/gsl_statistics_int.h	Wed Aug 12 14:31:56 1998
+++ ../gsl-0.4.1/./statistics/gsl_statistics_int.h	Tue Mar 30 11:27:14 1999
@@ -44,6 +44,6 @@
 double gsl_stats_int_median_from_sorted_data (const int sorted_data[],
 					      size_t n) ;
 double gsl_stats_int_quantile_from_sorted_data (const int sorted_data[],
-						  size_t n, const double f) ;
+						  size_t n, double f) ;
 
 #endif /* GSL_STATISTICS_INT_H */
--- ./statistics/minmax_source.c	Wed Aug  5 14:32:24 1998
+++ ../gsl-0.4.1/./statistics/minmax_source.c	Tue Mar 30 11:24:12 1999
@@ -1,6 +1,6 @@
 
 BASE 
-FUNCTION(gsl_stats,max) (const BASE data[], const size_t n)
+FUNCTION(gsl_stats,max) (const BASE data[], size_t n)
 {
   /* finds the largest member of a dataset */
 
@@ -17,7 +17,7 @@
 }
 
 BASE
-FUNCTION(gsl_stats,min) (const BASE data[], const size_t n)
+FUNCTION(gsl_stats,min) (const BASE data[], size_t n)
 {
   /* finds the smallest member of a dataset */
 
@@ -35,7 +35,7 @@
 }
 
 size_t
-FUNCTION(gsl_stats,max_index) (const BASE data[], const size_t n)
+FUNCTION(gsl_stats,max_index) (const BASE data[], size_t n)
 {
   /* finds the index of the largest member of a dataset */
   /* if there is more than one largest value then we choose the first */
@@ -56,7 +56,7 @@
 }
 
 size_t
-FUNCTION(gsl_stats,min_index) (const BASE data[], const size_t n)
+FUNCTION(gsl_stats,min_index) (const BASE data[], size_t n)
 {
   /* finds the index of the smallest member of a dataset */
   /* if there is more than one largest value then we choose the first  */
--- ./statistics/kurtosis_source.c	Sat Nov 21 23:55:49 1998
+++ ../gsl-0.4.1/./statistics/kurtosis_source.c	Tue Mar 30 11:23:21 1999
@@ -1,5 +1,5 @@
 double 
-FUNCTION(gsl_stats,kurtosis) (const BASE data[], const size_t n)
+FUNCTION(gsl_stats,kurtosis) (const BASE data[], size_t n)
 {
   const double mean = FUNCTION(gsl_stats,mean)(data, n);
   const double est_sd = FUNCTION(gsl_stats,est_sd_with_mean)(data, n, mean);
@@ -8,9 +8,9 @@
     
 double 
 FUNCTION(gsl_stats,kurtosis_with_mean_and_sd) (const BASE data[], 
-					       const size_t n,
-					       const double mean, 
-					       const double sd)
+					       size_t n,
+					       double mean, 
+					       double sd)
 {
   /* takes a dataset and finds the kurtosis */
 
--- ./statistics/median_source.c	Wed Aug  5 14:32:23 1998
+++ ../gsl-0.4.1/./statistics/median_source.c	Tue Mar 30 11:25:02 1999
@@ -1,7 +1,7 @@
 
 double
 FUNCTION(gsl_stats,median_from_sorted_data) (const BASE sorted_data[],
-					     const size_t n)
+					     size_t n)
 {
   double median ;
   const size_t lhs = (n - 1) / 2 ;
--- ./statistics/absdev_source.c	Sat Nov 21 23:55:48 1998
+++ ../gsl-0.4.1/./statistics/absdev_source.c	Tue Mar 30 11:22:46 1999
@@ -1,5 +1,5 @@
 double
-FUNCTION(gsl_stats,absdev) (const BASE data[], const size_t n)
+FUNCTION(gsl_stats,absdev) (const BASE data[], size_t n)
 {
   const double mean = FUNCTION(gsl_stats,mean)(data, n);
   return FUNCTION(gsl_stats,absdev_with_mean)(data, n, mean);
@@ -7,8 +7,8 @@
     
 double 
 FUNCTION(gsl_stats,absdev_with_mean) (const BASE data[], 
-				      const size_t n, 
-				      const double mean)
+				      size_t n, 
+				      double mean)
 {
   /* takes a dataset and finds the absolute deviation */
 
--- ./statistics/quantiles_source.c	Wed Aug 12 14:32:31 1998
+++ ../gsl-0.4.1/./statistics/quantiles_source.c	Tue Mar 30 11:25:16 1999
@@ -1,8 +1,8 @@
 
 double
 FUNCTION(gsl_stats,quantile_from_sorted_data) (const BASE sorted_data[], 
-						 const size_t n,
-						 const double f)
+						 size_t n,
+						 double f)
 {
   const double index = f * (n - 1) ;
   const size_t lhs = (int)index ;
--- ./statistics/sort_source.c	Sat Nov 21 23:55:52 1998
+++ ../gsl-0.4.1/./statistics/sort_source.c	Tue Mar 30 11:24:47 1999
@@ -1,7 +1,7 @@
 static int FUNCTION(my,compare) (const void * x, const void * y) ;
 
 void
-FUNCTION(gsl_stats,sort_data) (BASE data[], const size_t n)
+FUNCTION(gsl_stats,sort_data) (BASE data[], size_t n)
 {  
   qsort(data, n, sizeof(BASE), FUNCTION(my,compare)) ;
 }
--- ./statistics/mean_source.c	Wed Aug  5 14:44:18 1998
+++ ../gsl-0.4.1/./statistics/mean_source.c	Tue Mar 30 11:21:18 1999
@@ -1,6 +1,6 @@
 
 double 
-FUNCTION(gsl_stats,mean) (const BASE data[], const size_t size)
+FUNCTION(gsl_stats,mean) (const BASE data[], size_t size)
 {
   /* Compute the arithmetic mean of a dataset using the recurrence relation 
      mean_(n) = mean(n-1) + (data[n] - mean(n-1))/(n+1)   */
--- ./statistics/p_variance_source.c	Wed Aug  5 14:32:24 1998
+++ ../gsl-0.4.1/./statistics/p_variance_source.c	Tue Mar 30 11:23:55 1999
@@ -1,7 +1,7 @@
 
 double 
 FUNCTION(gsl_stats,pvariance) (const BASE data1[], const BASE data2[],
-			       const size_t n1, const size_t n2)
+			       size_t n1, size_t n2)
 {
   /* Find the pooled variance of two datasets */
 
--- ./statistics/gsl_statistics_long.h	Wed Aug 12 14:31:57 1998
+++ ../gsl-0.4.1/./statistics/gsl_statistics_long.h	Tue Mar 30 11:27:11 1999
@@ -44,6 +44,6 @@
 double gsl_stats_long_median_from_sorted_data (const long sorted_data[],
 					      size_t n) ;
 double gsl_stats_long_quantile_from_sorted_data (const long sorted_data[],
-						  size_t n, const double f) ;
+						  size_t n, double f) ;
 
 #endif /* GSL_STATISTICS_LONG_H */
--- ./statistics/gsl_statistics_short.h	Wed Aug 12 14:31:57 1998
+++ ../gsl-0.4.1/./statistics/gsl_statistics_short.h	Tue Mar 30 11:27:05 1999
@@ -44,6 +44,6 @@
 double gsl_stats_short_median_from_sorted_data (const short sorted_data[],
 					      size_t n) ;
 double gsl_stats_short_quantile_from_sorted_data (const short sorted_data[],
-						  size_t n, const double f) ;
+						  size_t n, double f) ;
 
 #endif /* GSL_STATISTICS_SHORT_H */
--- ./statistics/gsl_statistics_float.h	Wed Aug 12 14:31:56 1998
+++ ../gsl-0.4.1/./statistics/gsl_statistics_float.h	Tue Mar 30 11:27:17 1999
@@ -44,6 +44,6 @@
 double gsl_stats_float_median_from_sorted_data (const float sorted_data[],
 					      size_t n) ;
 double gsl_stats_float_quantile_from_sorted_data (const float sorted_data[],
-						  size_t n, const double f) ;
+						  size_t n, double f) ;
 
 #endif /* GSL_STATISTICS_FLOAT_H */
--- ./statistics/gsl_statistics_ulong.h	Wed Aug 12 14:31:57 1998
+++ ../gsl-0.4.1/./statistics/gsl_statistics_ulong.h	Tue Mar 30 11:26:54 1999
@@ -44,6 +44,6 @@
 double gsl_stats_ulong_median_from_sorted_data (const unsigned long sorted_data[],
 					      size_t n) ;
 double gsl_stats_ulong_quantile_from_sorted_data (const unsigned long sorted_data[],
-						  size_t n, const double f) ;
+						  size_t n, double f) ;
 
 #endif /* GSL_STATISTICS_ULONG_H */
--- ./statistics/variance_source.c	Sat Nov 21 23:55:56 1998
+++ ../gsl-0.4.1/./statistics/variance_source.c	Tue Mar 30 11:22:27 1999
@@ -1,15 +1,15 @@
 static double 
-FUNCTION(compute,variance) (const BASE data[], const size_t n, const double mean);
+FUNCTION(compute,variance) (const BASE data[], size_t n, double mean);
 
 double 
-FUNCTION(gsl_stats,variance) (const BASE data[], const size_t n)
+FUNCTION(gsl_stats,variance) (const BASE data[], size_t n)
 {
   const double mean = FUNCTION(gsl_stats,mean) (data, n);
   return FUNCTION(gsl_stats,variance_with_mean)(data, n, mean);
 }
 
 double 
-FUNCTION(gsl_stats,est_variance) (const BASE data[], const size_t n)
+FUNCTION(gsl_stats,est_variance) (const BASE data[], size_t n)
 {
   const double mean = FUNCTION(gsl_stats,mean) (data, n);
   return FUNCTION(gsl_stats,est_variance_with_mean)(data, n, mean);
@@ -17,14 +17,14 @@
 }
 
 double 
-FUNCTION(gsl_stats,sd) (const BASE data[], const size_t n)
+FUNCTION(gsl_stats,sd) (const BASE data[], size_t n)
 {
   const double mean = FUNCTION(gsl_stats,mean) (data, n);
   return FUNCTION(gsl_stats,sd_with_mean) (data, n, mean) ;
 }
 
 double 
-FUNCTION(gsl_stats,est_sd) (const BASE data[], const size_t n)
+FUNCTION(gsl_stats,est_sd) (const BASE data[], size_t n)
 {
   const double mean = FUNCTION(gsl_stats,mean) (data, n);
   return FUNCTION(gsl_stats,est_sd_with_mean) (data, n, mean) ;
@@ -32,16 +32,16 @@
 
 
 double 
-FUNCTION(gsl_stats,variance_with_mean) (const BASE data[], const size_t n, 
-					const double mean)
+FUNCTION(gsl_stats,variance_with_mean) (const BASE data[], size_t n, 
+					double mean)
 {
   const double variance = FUNCTION(compute,variance) (data, n, mean);
   return variance;
 }
 
 double 
-FUNCTION(gsl_stats,est_variance_with_mean) (const BASE data[], const size_t n,
-					    const double mean)
+FUNCTION(gsl_stats,est_variance_with_mean) (const BASE data[], size_t n,
+					    double mean)
 {
   const double variance = FUNCTION(compute,variance) (data, n, mean);
   const double est_variance = variance * ((double)n / (double)(n - 1));
@@ -50,8 +50,8 @@
 }
 
 double 
-FUNCTION(gsl_stats,sd_with_mean) (const BASE data[], const size_t n,
-				  const double mean)
+FUNCTION(gsl_stats,sd_with_mean) (const BASE data[], size_t n,
+				  double mean)
 {
   const double variance = FUNCTION(compute,variance) (data, n, mean);
   const double sd = sqrt (variance);
@@ -60,8 +60,8 @@
 }
 
 double 
-FUNCTION(gsl_stats,est_sd_with_mean) (const BASE data[], const size_t n,
-				      const double mean)
+FUNCTION(gsl_stats,est_sd_with_mean) (const BASE data[], size_t n,
+				      double mean)
 {
   const double variance = FUNCTION(compute,variance) (data, n, mean);
   const double est_sd = sqrt (variance * ((double)n / (double)(n - 1)));
@@ -70,7 +70,7 @@
 }
 
 static double
-FUNCTION(compute,variance) (const BASE data[], const size_t n, const double mean)
+FUNCTION(compute,variance) (const BASE data[], size_t n, double mean)
 {
   /* takes a dataset and finds the variance */
 
--- ./statistics/gsl_statistics_uchar.h	Wed Aug 12 14:31:57 1998
+++ ../gsl-0.4.1/./statistics/gsl_statistics_uchar.h	Tue Mar 30 11:27:01 1999
@@ -44,6 +44,6 @@
 double gsl_stats_uchar_median_from_sorted_data (const unsigned char sorted_data[],
 					      size_t n) ;
 double gsl_stats_uchar_quantile_from_sorted_data (const unsigned char sorted_data[],
-						  size_t n, const double f) ;
+						  size_t n, double f) ;
 
 #endif /* GSL_STATISTICS_UCHAR_H */
--- ./statistics/ttest_source.c	Sat Nov 21 23:55:54 1998
+++ ../gsl-0.4.1/./statistics/ttest_source.c	Tue Mar 30 11:24:27 1999
@@ -1,6 +1,6 @@
 double 
 FUNCTION(gsl_stats,ttest) (const BASE data1[], const BASE data2[],
-			   const size_t n1, const size_t n2)
+			   size_t n1, size_t n2)
 {
   /* runs a t-test between two datasets representing independent
      samples. Tests to see if the difference between means of the
--- ./statistics/gsl_statistics_long_double.h	Wed Aug 12 14:31:57 1998
+++ ../gsl-0.4.1/./statistics/gsl_statistics_long_double.h	Tue Mar 30 11:27:08 1999
@@ -44,6 +44,6 @@
 double gsl_stats_long_double_median_from_sorted_data (const long double sorted_data[],
 					      size_t n) ;
 double gsl_stats_long_double_quantile_from_sorted_data (const long double sorted_data[],
-						  size_t n, const double f) ;
+						  size_t n, double f) ;
 
 #endif /* GSL_STATISTICS_LONG_DOUBLE_H */
--- ./statistics/gsl_statistics_ushort.h	Wed Aug 12 14:31:57 1998
+++ ../gsl-0.4.1/./statistics/gsl_statistics_ushort.h	Tue Mar 30 11:26:49 1999
@@ -44,6 +44,6 @@
 double gsl_stats_ushort_median_from_sorted_data (const unsigned short sorted_data[],
 					      size_t n) ;
 double gsl_stats_ushort_quantile_from_sorted_data (const unsigned short sorted_data[],
-						  size_t n, const double f) ;
+						  size_t n, double f) ;
 
 #endif /* GSL_STATISTICS_USHORT_H */
--- ./statistics/gsl_statistics_char.h	Wed Aug 12 14:31:56 1998
+++ ../gsl-0.4.1/./statistics/gsl_statistics_char.h	Tue Mar 30 11:27:24 1999
@@ -44,6 +44,6 @@
 double gsl_stats_char_median_from_sorted_data (const char sorted_data[],
 					      size_t n) ;
 double gsl_stats_char_quantile_from_sorted_data (const char sorted_data[],
-						  size_t n, const double f) ;
+						  size_t n, double f) ;
 
 #endif /* GSL_STATISTICS_CHAR_H */
--- ./statistics/skew_source.c	Sat Nov 21 23:55:51 1998
+++ ../gsl-0.4.1/./statistics/skew_source.c	Tue Mar 30 11:23:02 1999
@@ -1,5 +1,5 @@
 double 
-FUNCTION(gsl_stats,skew) (const BASE data[], const size_t n)
+FUNCTION(gsl_stats,skew) (const BASE data[], size_t n)
 {
   const double mean = FUNCTION(gsl_stats,mean)(data, n);
   const double est_sd = FUNCTION(gsl_stats,est_sd_with_mean)(data, n, mean);
@@ -7,8 +7,8 @@
 }
     
 double 
-FUNCTION(gsl_stats,skew_with_mean_and_sd) (const BASE data[], const size_t n,
-					   const double mean, const double sd)
+FUNCTION(gsl_stats,skew_with_mean_and_sd) (const BASE data[], size_t n,
+					   double mean, double sd)
 {
   /* takes a dataset and finds the skewness */
 
--- ./statistics/lag1_source.c	Wed Aug  5 14:44:18 1998
+++ ../gsl-0.4.1/./statistics/lag1_source.c	Tue Mar 30 11:23:40 1999
@@ -1,6 +1,6 @@
 
 double 
-FUNCTION(gsl_stats,lag1_autocorrelation) (const BASE data[], const size_t n)
+FUNCTION(gsl_stats,lag1_autocorrelation) (const BASE data[], size_t n)
 {
   const double mean = FUNCTION(gsl_stats,mean) (data, n);
   return FUNCTION(gsl_stats,lag1_autocorrelation_with_mean)(data, n, mean);
@@ -8,7 +8,7 @@
 
 double 
 FUNCTION(gsl_stats,lag1_autocorrelation_with_mean) 
-     (const BASE data[], const size_t size, const double mean)
+     (const BASE data[], size_t size, double mean)
 {
   /* Compute the lag-1 autocorrelation of a dataset using the
      recurrence relation */
--- ./statistics/gsl_statistics_uint.h	Wed Aug 12 14:31:57 1998
+++ ../gsl-0.4.1/./statistics/gsl_statistics_uint.h	Tue Mar 30 11:26:58 1999
@@ -44,6 +44,6 @@
 double gsl_stats_uint_median_from_sorted_data (const unsigned int sorted_data[],
 					      size_t n) ;
 double gsl_stats_uint_quantile_from_sorted_data (const unsigned int sorted_data[],
-						  size_t n, const double f) ;
+						  size_t n, double f) ;
 
 #endif /* GSL_STATISTICS_UINT_H */
--- ./monte/plain.c	Fri Nov 20 23:30:16 1998
+++ ../gsl-0.4.1/./monte/plain.c	Tue Mar 30 15:49:31 1999
@@ -15,8 +15,8 @@
 int gsl_monte_plain_integrate(gsl_monte_plain_state *state, 
 			      const gsl_monte_f_T fun, 
 			      const double* xl, const double* xu, 
-			      const size_t num_dim, 
-			      const size_t calls, double* res, double* err)
+			      size_t num_dim, 
+			      size_t calls, double* res, double* err)
 {
   int status = 0;
   double sum, sum2;
--- ./monte/init_source.c	Tue Nov 17 18:49:37 1998
+++ ../gsl-0.4.1/./monte/init_source.c	Tue Mar 30 11:36:19 1999
@@ -1,5 +1,5 @@
 BASE * 
-FUNCTION(gsl_monte_vector,alloc) (const size_t n)
+FUNCTION(gsl_monte_vector,alloc) (size_t n)
 {
   BASE * v ;
 
@@ -20,7 +20,7 @@
 }
 
 BASE *
-FUNCTION(gsl_monte_vector,calloc) (const size_t n)
+FUNCTION(gsl_monte_vector,calloc) (size_t n)
 {
   size_t i ;
 
--- ./monte/gsl_monte_plain.h	Fri Aug 21 21:59:28 1998
+++ ../gsl-0.4.1/./monte/gsl_monte_plain.h	Tue Mar 30 15:49:06 1999
@@ -28,8 +28,8 @@
 int gsl_monte_plain_integrate(gsl_monte_plain_state *state, 
 			      const gsl_monte_f_T fun, 
 			      const double* xl, const double* xu, 
-			      const size_t num_dim, 
-			      const size_t calls, double* res, double* err);
+			      size_t num_dim, 
+			      size_t calls, double* res, double* err);
 
 gsl_monte_plain_state* gsl_monte_plain_alloc(size_t num_dim);
 
--- ./interpolation/gsl_interp.h	Fri Nov 13 21:10:51 1998
+++ ../gsl-0.4.1/./interpolation/gsl_interp.h	Tue Mar 30 14:35:27 1999
@@ -96,7 +96,6 @@
 
 #ifdef HAVE_INLINE
 #include "bsearch.h"
-extern
 inline
 size_t
 gsl_interp_accel_find(gsl_interp_accel * a, const double xa[], size_t len, double x)
--- ./interpolation/accel.c	Tue Nov 17 19:45:40 1998
+++ ../gsl-0.4.1/./interpolation/accel.c	Tue Mar 30 14:34:58 1999
@@ -20,6 +20,8 @@
 }
 
 
+#if !defined(HAVE_INLINE) || !defined(__sgi)
+inline
 size_t
 gsl_interp_accel_find (gsl_interp_accel * a, const double xa[], size_t len, double x)
 {
@@ -42,7 +44,7 @@
 
   return a->cache;
 }
-
+#endif
 
 void
 gsl_interp_accel_free (gsl_interp_accel * a)
--- ./interpolation/bsearch.h	Fri Nov 13 21:10:49 1998
+++ ../gsl-0.4.1/./interpolation/bsearch.h	Tue Mar 30 14:48:34 1999
@@ -11,7 +11,6 @@
                );
 
 #ifdef HAVE_INLINE
-extern
 inline
 size_t
 interp_bsearch(const double x_array[], double x,
--- ./interpolation/bsearch.c	Fri Nov 13 21:27:12 1998
+++ ../gsl-0.4.1/./interpolation/bsearch.c	Tue Mar 30 14:48:31 1999
@@ -6,6 +6,7 @@
 
 #include "bsearch.h"
 
+#if !defined(HAVE_INLINE) || !defined(__sgi)
 size_t
 interp_bsearch (const double x_array[], double x,
 		size_t index_lo,
@@ -25,3 +26,4 @@
 
   return ilo;
 }
+#endif
--- ./randist/exppow.c	Tue Dec 15 17:15:15 1998
+++ ../gsl-0.4.1/./randist/exppow.c	Mon Mar 29 18:30:36 1999
@@ -27,7 +27,7 @@
 */
 
 double
-gsl_ran_exppow (const gsl_rng * r, const double mu, const double a)
+gsl_ran_exppow (const gsl_rng * r, double mu, double a)
 {
   if (a < 1) 
     {
@@ -103,7 +103,7 @@
 }
 
 double
-gsl_ran_exppow_pdf (const double x, const double mu, const double a)
+gsl_ran_exppow_pdf (double x, double mu, double a)
 {
   double p ;
   gsl_sf_result lg;
--- ./randist/erlang.c	Tue Dec 15 17:15:14 1998
+++ ../gsl-0.4.1/./randist/erlang.c	Mon Mar 29 18:30:06 1999
@@ -12,13 +12,13 @@
    for x = 0 ... +infty */
 
 double
-gsl_ran_erlang (const gsl_rng * r, const double a, const double n)
+gsl_ran_erlang (const gsl_rng * r, double a, double n)
 {
   return gsl_ran_gamma (r, n, a);
 }
 
 double
-gsl_ran_erlang_pdf (const double x, const double a, const double n)
+gsl_ran_erlang_pdf (double x, double a, double n)
 {
   if (x <= 0) 
     {
--- ./randist/logistic.c	Tue Nov 17 19:07:17 1998
+++ ../gsl-0.4.1/./randist/logistic.c	Mon Mar 29 18:33:33 1999
@@ -10,7 +10,7 @@
    for x > 0 */
 
 double
-gsl_ran_logistic (const gsl_rng * r, const double mu)
+gsl_ran_logistic (const gsl_rng * r, double mu)
 {
   double x, z;
 
@@ -26,7 +26,7 @@
 }
 
 double
-gsl_ran_logistic_pdf (const double x, const double mu)
+gsl_ran_logistic_pdf (double x, double mu)
 {
   double u = exp (-x/mu);
   double p = u / (fabs(mu) * (1 + u) * (1 + u));
--- ./randist/logarithmic.c	Tue Nov 17 19:07:16 1998
+++ ../gsl-0.4.1/./randist/logarithmic.c	Mon Mar 29 18:33:18 1999
@@ -11,7 +11,7 @@
    on "Non-Uniform Random Variate Generation", Springer */
 
 unsigned int
-gsl_ran_logarithmic (const gsl_rng * r, const double p)
+gsl_ran_logarithmic (const gsl_rng * r, double p)
 {
   double c = log (1-p) ;
 
@@ -43,7 +43,7 @@
 }
 
 double
-gsl_ran_logarithmic_pdf (const unsigned int k, const double p)
+gsl_ran_logarithmic_pdf (unsigned int k, double p)
 {
   if (k == 0)
     {
--- ./randist/weibull.c	Tue Nov 17 19:07:24 1998
+++ ../gsl-0.4.1/./randist/weibull.c	Mon Mar 29 18:35:21 1999
@@ -10,7 +10,7 @@
  */
 
 double
-gsl_ran_weibull (const gsl_rng * r, const double mu, const double a)
+gsl_ran_weibull (const gsl_rng * r, double mu, double a)
 {
   double x = gsl_rng_uniform_pos (r);
 
@@ -20,7 +20,7 @@
 }
 
 double
-gsl_ran_weibull_pdf (const double x, const double mu, const double a)
+gsl_ran_weibull_pdf (double x, double mu, double a)
 {
   if (x < 0)
     {
--- ./randist/gumbel.c	Tue Nov 17 19:07:13 1998
+++ ../gsl-0.4.1/./randist/gumbel.c	Mon Mar 29 18:32:23 1999
@@ -14,7 +14,7 @@
  */
 
 double
-gsl_ran_gumbel1 (const gsl_rng * r, const double a, const double b)
+gsl_ran_gumbel1 (const gsl_rng * r, double a, double b)
 {
   double x = gsl_rng_uniform_pos (r);
 
@@ -24,14 +24,14 @@
 }
 
 double
-gsl_ran_gumbel1_pdf (const double x, const double a, const double b)
+gsl_ran_gumbel1_pdf (double x, double a, double b)
 {
   double p = a * b *  exp (-(b * exp(-a * x) + a * x));
   return p;
 }
 
 double
-gsl_ran_gumbel2 (const gsl_rng * r, const double a, const double b)
+gsl_ran_gumbel2 (const gsl_rng * r, double a, double b)
 {
   double x = gsl_rng_uniform_pos (r);
 
@@ -41,7 +41,7 @@
 }
 
 double
-gsl_ran_gumbel2_pdf (const double x, const double a, const double b)
+gsl_ran_gumbel2_pdf (double x, double a, double b)
 {
   if (x <= 0)
     {
--- ./randist/lognormal.c	Tue Nov 17 19:07:18 1998
+++ ../gsl-0.4.1/./randist/lognormal.c	Mon Mar 29 18:33:44 1999
@@ -12,7 +12,7 @@
    gaussian random numbers */
 
 double
-gsl_ran_lognormal (const gsl_rng * r, const double zeta, const double sigma)
+gsl_ran_lognormal (const gsl_rng * r, double zeta, double sigma)
 {
   double u, v, r2, normal, z;
 
@@ -36,7 +36,7 @@
 }
 
 double
-gsl_ran_lognormal_pdf (const double x, const double zeta, const double sigma)
+gsl_ran_lognormal_pdf (double x, double zeta, double sigma)
 {
   if (x <= 0)
     {
--- ./randist/pascal.c	Tue Dec 15 17:15:20 1998
+++ ../gsl-0.4.1/./randist/pascal.c	Mon Mar 29 18:34:24 1999
@@ -24,7 +24,7 @@
 }
 
 double
-gsl_ran_pascal_pdf (const unsigned int k, const double p, unsigned int n)
+gsl_ran_pascal_pdf (unsigned int k, double p, unsigned int n)
 {
   double P = gsl_ran_negative_binomial_pdf (k, p, (double) n);
   return P;
--- ./randist/cauchy.c	Tue Nov 17 19:07:04 1998
+++ ../gsl-0.4.1/./randist/cauchy.c	Mon Mar 29 18:29:42 1999
@@ -11,7 +11,7 @@
    It is also known as the Lorentzian probability distribution */
 
 double
-gsl_ran_cauchy (const gsl_rng * r, const double mu)
+gsl_ran_cauchy (const gsl_rng * r, double mu)
 {
   double u;
   do
@@ -24,7 +24,7 @@
 }
 
 double
-gsl_ran_cauchy_pdf (const double x, const double mu)
+gsl_ran_cauchy_pdf (double x, double mu)
 {
   double u = x / mu;
   double p = (1 / (M_PI * mu)) / (1 + u * u);
--- ./randist/bernoulli.c	Tue Nov 17 19:07:02 1998
+++ ../gsl-0.4.1/./randist/bernoulli.c	Mon Mar 29 18:28:51 1999
@@ -26,7 +26,7 @@
 }
 
 double
-gsl_ran_bernoulli_pdf (const unsigned int k, double p)
+gsl_ran_bernoulli_pdf (unsigned int k, double p)
 {
   if (k == 0)
     {
--- ./randist/poisson.c	Tue Dec 15 17:15:21 1998
+++ ../gsl-0.4.1/./randist/poisson.c	Mon Mar 29 18:34:38 1999
@@ -64,7 +64,7 @@
 }
 
 double
-gsl_ran_poisson_pdf (const unsigned int k, const double mu)
+gsl_ran_poisson_pdf (unsigned int k, double mu)
 {
   double p;
   gsl_sf_result lf;
--- ./randist/pareto.c	Tue Nov 17 19:07:19 1998
+++ ../gsl-0.4.1/./randist/pareto.c	Mon Mar 29 18:34:09 1999
@@ -10,7 +10,7 @@
  */
 
 double
-gsl_ran_pareto (const gsl_rng * r, double mu, const double a)
+gsl_ran_pareto (const gsl_rng * r, double mu, double a)
 {
   double x = gsl_rng_uniform_pos (r);
 
@@ -20,7 +20,7 @@
 }
 
 double
-gsl_ran_pareto_pdf (const double x, const double mu, const double a)
+gsl_ran_pareto_pdf (double x, double mu, double a)
 {
   if (x >= mu)
     {
--- ./randist/gauss.c	Sun Jan 31 17:24:39 1999
+++ ../gsl-0.4.1/./randist/gauss.c	Mon Mar 29 18:32:00 1999
@@ -19,7 +19,7 @@
 
 #if 1 /* Polar (Box-Mueller) method; See Knuth v2, 3rd ed, p122 */
 double
-gsl_ran_gaussian (const gsl_rng * r, const double sigma)
+gsl_ran_gaussian (const gsl_rng * r, double sigma)
 {
   double x, y, r2;
 
@@ -42,7 +42,7 @@
 #if 0 /* Ratio method (Kinderman-Monahan); see Knuth v2, 3rd ed, p130 */
       /* K+M, ACM Trans Math Software 3 (1977) 257-260. */
 double
-gsl_ran_gaussian (const gsl_rng * r, const double sigma)
+gsl_ran_gaussian (const gsl_rng * r, double sigma)
 {
   double u,v,x,xx;
 
@@ -61,7 +61,7 @@
 #endif
 
 double
-gsl_ran_gaussian_pdf (const double x, const double sigma)
+gsl_ran_gaussian_pdf (double x, double sigma)
 {
   double u = x / fabs(sigma) ;
   double p = (1 / (sqrt (2 * M_PI) * fabs(sigma)) ) * exp (-u * u / 2);
@@ -75,7 +75,7 @@
 }
 
 double
-gsl_ran_ugaussian_pdf (const double x)
+gsl_ran_ugaussian_pdf (double x)
 {
   return gsl_ran_gaussian_pdf (x, 1.0) ;
 }
@@ -106,9 +106,9 @@
 }
 
 double
-gsl_ran_bivariate_gaussian_pdf (const double x, const double y, 
-				const double sigma_x, const double sigma_y,
-				const double rho)
+gsl_ran_bivariate_gaussian_pdf (double x, double y, 
+				double sigma_x, double sigma_y,
+				double rho)
 {
   double u = x / sigma_x ;
   double v = y / sigma_y ;
@@ -119,7 +119,7 @@
 }
 
 double
-gsl_ran_ugaussian_tail (const gsl_rng * r, const double s)
+gsl_ran_ugaussian_tail (const gsl_rng * r, double s)
 {
   /* Returns a unit-variance gaussian random variable larger than s */
   /* Uses the "supertail" deviates from the last two steps
--- ./randist/hyperg.c	Tue Dec 15 17:15:18 1998
+++ ../gsl-0.4.1/./randist/hyperg.c	Mon Mar 29 18:32:40 1999
@@ -72,9 +72,9 @@
 }
 
 double
-gsl_ran_hypergeometric_pdf (const unsigned int k, 
-			    const unsigned int n1, 
-			    const unsigned int n2, 
+gsl_ran_hypergeometric_pdf (unsigned int k, 
+			    unsigned int n1, 
+			    unsigned int n2, 
 			    unsigned int t)
 {
   if (t > n1 + n2)
--- ./randist/beta.c	Tue Dec 15 17:15:11 1998
+++ ../gsl-0.4.1/./randist/beta.c	Mon Mar 29 18:29:12 1999
@@ -11,7 +11,7 @@
    The method used here is the one described in Knuth */
 
 double
-gsl_ran_beta (const gsl_rng * r, const double a, const double b)
+gsl_ran_beta (const gsl_rng * r, double a, double b)
 {
   double x1 = gsl_ran_gamma (r, a, 1.0);
   double x2 = gsl_ran_gamma (r, b, 1.0);
@@ -20,7 +20,7 @@
 }
 
 double
-gsl_ran_beta_pdf (const double x, const double a, const double b)
+gsl_ran_beta_pdf (double x, double a, double b)
 {
   if (x < 0 || x > 1)
     {
--- ./randist/levy.c	Tue Nov 17 19:07:15 1998
+++ ../gsl-0.4.1/./randist/levy.c	Mon Mar 29 18:33:04 1999
@@ -23,7 +23,7 @@
    */
 
 double
-gsl_ran_levy (const gsl_rng * r, const double mu, const double a)
+gsl_ran_levy (const gsl_rng * r, double mu, double a)
 {
   double u, v, t, s;
 
--- ./randist/laplace.c	Tue Nov 17 19:07:14 1998
+++ ../gsl-0.4.1/./randist/laplace.c	Mon Mar 29 18:32:53 1999
@@ -10,7 +10,7 @@
    for -infty < x < infty. It is also known as the Laplace distribution.  */
 
 double
-gsl_ran_laplace (const gsl_rng * r, const double mu)
+gsl_ran_laplace (const gsl_rng * r, double mu)
 {
   double u;
   do
@@ -30,7 +30,7 @@
 }
 
 double
-gsl_ran_laplace_pdf (const double x, const double mu)
+gsl_ran_laplace_pdf (double x, double mu)
 {
   double p = (1/(2*mu)) * exp (-fabs (x)/mu);
   return p;
--- ./randist/exponential.c	Tue Nov 17 19:07:07 1998
+++ ../gsl-0.4.1/./randist/exponential.c	Mon Mar 29 18:30:19 1999
@@ -10,7 +10,7 @@
    for x = 0 ... +infty */
 
 double
-gsl_ran_exponential (const gsl_rng * r, const double mu)
+gsl_ran_exponential (const gsl_rng * r, double mu)
 {
   double u = gsl_rng_uniform_pos (r);
 
@@ -18,7 +18,7 @@
 }
 
 double
-gsl_ran_exponential_pdf (const double x, const double mu)
+gsl_ran_exponential_pdf (double x, double mu)
 {
   if (x < 0)
     {
--- ./randist/fdist.c	Tue Dec 15 17:15:16 1998
+++ ../gsl-0.4.1/./randist/fdist.c	Mon Mar 29 18:30:55 1999
@@ -13,7 +13,7 @@
    The method used here is the one described in Knuth */
 
 double
-gsl_ran_fdist (const gsl_rng * r, const double nu1, const double nu2)
+gsl_ran_fdist (const gsl_rng * r, double nu1, double nu2)
 {
 
   double Y1 =  gsl_ran_gamma (r, nu1 / 2, 2.0);
@@ -25,7 +25,7 @@
 }
 
 double
-gsl_ran_fdist_pdf (const double x, const double nu1, const double nu2)
+gsl_ran_fdist_pdf (double x, double nu1, double nu2)
 {
   if (x < 0)
     {
--- ./randist/tdist.c	Tue Dec 15 17:15:22 1998
+++ ../gsl-0.4.1/./randist/tdist.c	Mon Mar 29 18:35:09 1999
@@ -13,7 +13,7 @@
    The method used here is the one described in Knuth */
 
 double
-gsl_ran_tdist (const gsl_rng * r, const double nu)
+gsl_ran_tdist (const gsl_rng * r, double nu)
 {
   if (nu <= 2)
     {
@@ -46,7 +46,7 @@
 }
 
 double
-gsl_ran_tdist_pdf (const double x, const double nu)
+gsl_ran_tdist_pdf (double x, double nu)
 {
   double p;
   gsl_sf_result lg1, lg2;
--- ./randist/chisq.c	Tue Dec 15 17:15:13 1998
+++ ../gsl-0.4.1/./randist/chisq.c	Mon Mar 29 18:29:53 1999
@@ -11,14 +11,14 @@
    for x = 0 ... +infty */
 
 double
-gsl_ran_chisq (const gsl_rng * r, const double nu)
+gsl_ran_chisq (const gsl_rng * r, double nu)
 {
   double chisq = 2 * gsl_ran_gamma (r, nu / 2, 1.0);
   return chisq;
 }
 
 double
-gsl_ran_chisq_pdf (const double x, const double nu)
+gsl_ran_chisq_pdf (double x, double nu)
 {
   if (x <= 0)
     {
--- ./randist/geometric.c	Tue Nov 17 19:07:12 1998
+++ ../gsl-0.4.1/./randist/geometric.c	Mon Mar 29 18:32:10 1999
@@ -11,7 +11,7 @@
    occurs with probability p. */
 
 unsigned int
-gsl_ran_geometric (const gsl_rng * r, const double p)
+gsl_ran_geometric (const gsl_rng * r, double p)
 {
   double u = gsl_rng_uniform_pos (r);
 
@@ -30,7 +30,7 @@
 }
 
 double
-gsl_ran_geometric_pdf (const unsigned int k, const double p)
+gsl_ran_geometric_pdf (unsigned int k, double p)
 {
   if (k == 0)
     {
--- ./randist/flat.c	Tue Nov 17 19:07:09 1998
+++ ../gsl-0.4.1/./randist/flat.c	Mon Mar 29 18:31:06 1999
@@ -11,7 +11,7 @@
  */
 
 double
-gsl_ran_flat (const gsl_rng * r, const double a, const double b)
+gsl_ran_flat (const gsl_rng * r, double a, double b)
 {
   double u = gsl_rng_uniform (r);
 
@@ -21,7 +21,7 @@
 }
 
 double
-gsl_ran_flat_pdf (double x, const double a, const double b)
+gsl_ran_flat_pdf (double x, double a, double b)
 {
   if (x < b && x >= a)
     {
--- ./randist/gamma.c	Tue Dec 15 17:15:17 1998
+++ ../gsl-0.4.1/./randist/gamma.c	Mon Mar 29 18:31:29 1999
@@ -19,7 +19,7 @@
    The algorithms below are from Knuth, vol 2, 2nd ed, p. 129. */
 
 double
-gsl_ran_gamma (const gsl_rng * r, const double a, const double b)
+gsl_ran_gamma (const gsl_rng * r, double a, double b)
 {
   /* assume a > 0 */
   unsigned int na = floor (a);
@@ -39,7 +39,7 @@
 }
 
 double
-gsl_ran_gamma_int (const gsl_rng * r, const unsigned int a)
+gsl_ran_gamma_int (const gsl_rng * r, unsigned int a)
 {
   if (a < 12)
     {
@@ -65,7 +65,7 @@
 }
 
 static double
-gamma_large (const gsl_rng * r, const double a)
+gamma_large (const gsl_rng * r, double a)
 {
   /* Works only if a > 1, and is most efficient if a is large
 
@@ -91,7 +91,7 @@
 }
 
 static double
-gamma_frac (const gsl_rng * r, const double a)
+gamma_frac (const gsl_rng * r, double a)
 {
   /* This is exercise 16 from Knuth; see page 135, and the solution is
      on page 551.  */
@@ -120,7 +120,7 @@
 }
 
 double
-gsl_ran_gamma_pdf (const double x, const double a, const double b)
+gsl_ran_gamma_pdf (double x, double a, double b)
 {
   if (x < 0)
     {
--- ./randist/binomial.c	Tue Dec 15 17:15:12 1998
+++ ../gsl-0.4.1/./randist/binomial.c	Mon Mar 29 18:29:30 1999
@@ -47,8 +47,8 @@
 }
 
 double
-gsl_ran_binomial_pdf (const unsigned int k, const double p, 
-		      const unsigned int n)
+gsl_ran_binomial_pdf (unsigned int k, double p, 
+		      unsigned int n)
 {
   if (k > n)
     {
--- ./randist/nbinomial.c	Tue Dec 15 17:15:19 1998
+++ ../gsl-0.4.1/./randist/nbinomial.c	Mon Mar 29 18:33:58 1999
@@ -21,7 +21,7 @@
 }
 
 double
-gsl_ran_negative_binomial_pdf (const unsigned int k, const double p, double n)
+gsl_ran_negative_binomial_pdf (unsigned int k, double p, double n)
 {
   double P;
   gsl_sf_result f, a, b;
--- ./randist/rayleigh.c	Tue Nov 17 19:07:21 1998
+++ ../gsl-0.4.1/./randist/rayleigh.c	Mon Mar 29 18:34:55 1999
@@ -10,7 +10,7 @@
    for x = 0 ... +infty */
 
 double
-gsl_ran_rayleigh (const gsl_rng * r, const double sigma)
+gsl_ran_rayleigh (const gsl_rng * r, double sigma)
 {
   double u = gsl_rng_uniform_pos (r);
 
@@ -18,7 +18,7 @@
 }
 
 double
-gsl_ran_rayleigh_pdf (const double x, const double sigma)
+gsl_ran_rayleigh_pdf (double x, double sigma)
 {
   if (x < 0)
     {
@@ -40,7 +40,7 @@
    for x = a ... +infty */
 
 double
-gsl_ran_rayleigh_tail (const gsl_rng * r, const double a, const double sigma)
+gsl_ran_rayleigh_tail (const gsl_rng * r, double a, double sigma)
 {
   double u = gsl_rng_uniform_pos (r);
 
@@ -48,7 +48,7 @@
 }
 
 double
-gsl_ran_rayleigh_tail_pdf (const double x, const double a, const double sigma)
+gsl_ran_rayleigh_tail_pdf (double x, double a, double sigma)
 {
   if (x < a)
     {
--- ./gsl_math.h	Sun Feb 14 07:25:46 1999
+++ ../gsl-0.4.1/./gsl_math.h	Tue Mar 30 14:14:38 1999
@@ -67,44 +67,44 @@
 /* inline-friendly strongly typed versions */
 #ifdef HAVE_INLINE
 
-extern inline int GSL_MAX_INT (int a, int b);
-extern inline int GSL_MIN_INT (int a, int b);
-extern inline double GSL_MAX_DBL (double a, double b);
-extern inline double GSL_MIN_DBL (double a, double b);
-extern inline long double GSL_MAX_LDBL (long double a, long double b);
-extern inline long double GSL_MIN_LDBL (long double a, long double b);
+inline int GSL_MAX_INT (int a, int b);
+inline int GSL_MIN_INT (int a, int b);
+inline double GSL_MAX_DBL (double a, double b);
+inline double GSL_MIN_DBL (double a, double b);
+inline long double GSL_MAX_LDBL (long double a, long double b);
+inline long double GSL_MIN_LDBL (long double a, long double b);
 
-extern inline int
+inline int
 GSL_MAX_INT (int a, int b)
 {
   return GSL_MAX (a, b);
 }
 
-extern inline int
+inline int
 GSL_MIN_INT (int a, int b)
 {
   return GSL_MIN (a, b);
 }
 
-extern inline double
+inline double
 GSL_MAX_DBL (double a, double b)
 {
   return GSL_MAX (a, b);
 }
 
-extern inline double
+inline double
 GSL_MIN_DBL (double a, double b)
 {
   return GSL_MIN (a, b);
 }
 
-extern inline long double
+inline long double
 GSL_MAX_LDBL (long double a, long double b)
 {
   return GSL_MAX (a, b);
 }
 
-extern inline long double
+inline long double
 GSL_MIN_LDBL (long double a, long double b)
 {
   return GSL_MIN (a, b);

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]