Removed 'Written by' line
[pspp-builds.git] / lib / gsl-extras / poisson.c
index fffa99376fa89a8131a6a3b4ecb70c01a84ebe23..3ce2bf5a0f554e4f031a53fff3d3b7b43741d07c 100644 (file)
@@ -1,6 +1,7 @@
 /* cdf/poisson.c
  *
- * Copyright (C) 2004 Jason H. Stover.
+ * Copyright (C) 2004 Free Software Foundation, Inc.
+ * 
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -14,7 +15,7 @@
  *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
  */
 /*
  * Computes the cumulative distribution function for a Poisson
  *
  * where Y is a gamma random variable with parameters k+1 and 1.
  *
- * Reference: 
- * 
+ * Reference:
+ *
  * W. Feller, "An Introduction to Probability and Its
  * Applications," volume 1. Wiley, 1968. Exercise 46, page 173,
  * chapter 6.
  */
-#include <config.h>
 #include <math.h>
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_errno.h>
 #include <gsl/gsl_cdf.h>
 #include "gsl-extras.h"
-#include "gsl-extras.h"
 
 /*
  * Pr (X <= k) for a Poisson random variable X.
@@ -47,7 +46,7 @@ gslextras_cdf_poisson_P (const long k, const double lambda)
 {
   double P;
   double a;
-  
+
   if ( lambda <= 0.0 )
     {
       GSLEXTRAS_CDF_ERROR ("lambda <= 0", GSL_EDOM);
@@ -72,7 +71,7 @@ gslextras_cdf_poisson_Q (const long k, const double lambda)
 {
   double P;
   double a;
-  
+
   if ( lambda <= 0.0 )
     {
       GSLEXTRAS_CDF_ERROR ("lambda <= 0", GSL_EDOM);