# include <gsl/gsl_sf_hyperg.h>

# include "hyper_2f1.h"

/******************************************************************************/

double hyper_2f1 ( double a, double b, double c, double x )

/******************************************************************************/
/*
  Purpose:

    hyper_2f1() evaluates the hypergeometric function 2F1(a,b,c,x).

  Discussion:

    This is simply a convenient interface to the Gnu Scientific Library
    function gsl_sf_hyperg_2F1(a,b,c,x).

  Licensing:

    This code is distributed under the MIT license.

  Modified:

    26 December 2023

  Author:

    John Burkardt


  Reference:

    Mark Gelassi, Jim Davies, James Tyler, Bryan Gough,
    Reid Priedhorsky, Gerard Jungman, Michael Booth, Fabrice Rossi,
    GNU Scientific Library Reference Manual.

  Input:

    real a, b, c: the parameters.

    real x: the argument.

  Output:

    real fx: the function value.
*/
{
  double fx;

  fx = gsl_sf_hyperg_2F1 ( a, b, c, x );

  return fx;
}