psi Subroutine

public subroutine psi(x, ps)

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

! PSI computes the PSI 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 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.

Output, real ( kind = 8 ) PS, the value of the PSI function.

Arguments

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

Called by

proc~~psi~~CalledByGraph proc~psi psi proc~chgubi chgubi proc~chgubi->proc~psi proc~hygfx hygfx proc~hygfx->proc~psi proc~hygfz hygfz proc~hygfz->proc~psi proc~lpmv lpmv proc~lpmv->proc~psi proc~chgu chgu proc~chgu->proc~chgubi