/[gsl]/gsl/cdf/cdf_gamma.c
ViewVC logotype

Diff of /gsl/cdf/cdf_gamma.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.2.1 by jstover, Tue Dec 31 16:14:57 2002 UTC revision 1.1.2.2 by jstover, Thu Jan 2 23:18:59 2003 UTC
# Line 1  Line 1 
1  /* gsl/cdf_gamma.c  /* gsl/cdf_gamma.c
2   *   *
3   * Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002 Gerard Jungman and Jason Stover.   * Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002 Gerard Jungman
4     * and Jason Stover.
5   *   *
6   * This program is free software; you can redistribute it and/or modify   * This program is free software; you can redistribute it and/or modify
7   * it under the terms of the GNU General Public License as published by   * it under the terms of the GNU General Public License as published by
# Line 14  Line 15 
15   *   *
16   * You should have received a copy of the GNU General Public License   * You should have received a copy of the GNU General Public License
17   * along with this program; if not, write to the Free Software   * along with this program; if not, write to the Free Software
18   * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.   * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
19   */   */
20    
21  /*  /*
# Line 36  Line 37 
37  /*  /*
38   * Wrappers for the functions that do the work.   * Wrappers for the functions that do the work.
39   */   */
40  int gsl_cdf_gamma_e ( double x, double alpha, double beta, gsl_cdf_tail_t tail, gsl_cdf_result *result)  int gsl_cdf_gamma_e ( double x, double alpha,
41                          double beta, gsl_cdf_tail_t tail, gsl_cdf_result *result)
42  {  {
43    int rc = 0;    int rc = 0;
44    if ( tail == GSL_CDF_UPPER )    if ( tail == GSL_CDF_LOWER )
45      {      {
46        rc = gamma_inc_P_e ( alpha, (x/beta), result);        rc = gamma_inc_P_e ( alpha, (x/beta), result);
47      }      }
48    else if (tail == GSL_CDF_LOWER )    else if (tail == GSL_CDF_UPPER )
49      {      {
50        rc = gamma_inc_Q_e ( alpha, (x/beta), result);        rc = gamma_inc_Q_e ( alpha, (x/beta), result);
51      }      }

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26