This is the mail archive of the
gsl-discuss@sourceware.cygnus.com
mailing list for the GSL project.
Building gsl-0.4.1 on SGI IRIX 6.x
- To: gsl-discuss@sourceware.cygnus.com, drk@sgi.com
- Subject: Building gsl-0.4.1 on SGI IRIX 6.x
- From: David Kaelbling <drk@sgi.com>
- Date: Wed, 31 Mar 1999 15:54:12 -0500
- Organization: Silicon Graphics, Inc.
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);