chguit Subroutine

public subroutine chguit(a, b, x, hu, id)

************80

! CHGUIT computes the hypergeometric function using Gauss-Legendre integration.

Discussion:

This procedure computes the hypergeometric function U(a,b,x) by
using Gaussian-Legendre integration (n = 60)

Licensing:

This routine is copyrighted by Shanjie Zhang and Jianming Jin.  However, 
they give permission to incorporate this routine into a user program 
provided that the copyright is acknowledged.

Modified:

22 July 2012

Author:

Shanjie Zhang, Jianming Jin

Reference:

Shanjie Zhang, Jianming Jin,
Computation of Special Functions,
Wiley, 1996,
ISBN: 0-471-11963-6,
LC: QA351.C45.

Parameters:

Input, double precision A, B, parameters.

Input, double precision X, the argument.

Output, double precision HU, U(a,b,z).

Output, integer ID, the estimated number of significant digits.

Arguments

Type IntentOptional Attributes Name
double precision :: a
double precision :: b
double precision :: x
double precision :: hu
integer :: id

Calls

proc~~chguit~~CallsGraph proc~chguit chguit proc~gammaf gammaf proc~chguit->proc~gammaf

Called by

proc~~chguit~~CalledByGraph proc~chguit chguit proc~chgu chgu proc~chgu->proc~chguit