gammaf Subroutine

public subroutine gammaf(x, ga)

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

! GAMMA evaluates the Gamma function.

Licensing:

The original FORTRAN77 version of this routine is copyrighted by 
Shanjie Zhang and Jianming Jin.  However, they give permission to 
incorporate this routine into a user program that the copyright 
is acknowledged.

Modified:

08 September 2007

Author:

Original FORTRAN77 version by Shanjie Zhang, Jianming Jin.
FORTRAN90 version by John Burkardt.

Reference:

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

Parameters:

Input, real ( kind = 8 ) X, the argument.
X must not be 0, or any negative integer.

Output, real ( kind = 8 ) GA, the value of the Gamma function.

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: x
real(kind=8) :: ga

Called by

proc~~gammaf~~CalledByGraph proc~gammaf gammaf proc~betaf betaf proc~betaf->proc~gammaf proc~cchg cchg proc~cchg->proc~gammaf proc~chgm chgm proc~chgm->proc~gammaf proc~chgubi chgubi proc~chgubi->proc~gammaf proc~chguit chguit proc~chguit->proc~gammaf proc~chgus chgus proc~chgus->proc~gammaf proc~cikva cikva proc~cikva->proc~gammaf proc~cikvb cikvb proc~cikvb->proc~gammaf proc~cjyva cjyva proc~cjyva->proc~gammaf proc~cjyvb cjyvb proc~cjyvb->proc~gammaf proc~dvla dvla proc~dvla->proc~gammaf proc~vvla vvla proc~dvla->proc~vvla proc~dvsa dvsa proc~dvsa->proc~gammaf proc~hygfx hygfx proc~hygfx->proc~gammaf proc~hygfz hygfz proc~hygfz->proc~gammaf proc~ikv ikv proc~ikv->proc~gammaf proc~incog incog proc~incog->proc~gammaf proc~jyv jyv proc~jyv->proc~gammaf proc~stvhv stvhv proc~stvhv->proc~gammaf proc~stvlv stvlv proc~stvlv->proc~gammaf proc~vvla->proc~gammaf proc~vvla->proc~dvla proc~vvsa vvsa proc~vvsa->proc~gammaf proc~chgu chgu proc~chgu->proc~chgubi proc~chgu->proc~chguit proc~chgu->proc~chgus proc~incob incob proc~incob->proc~betaf proc~pbdv pbdv proc~pbdv->proc~dvla proc~pbdv->proc~dvsa proc~pbvv pbvv proc~pbvv->proc~vvla proc~pbvv->proc~vvsa