psixn.f
FUNCTION PSIXN (N)
C***BEGIN PROLOGUE PSIXN
....
....
Warning: this routine is not intended to be user-callable.
....
....
C***SUBSIDIARY
C***PURPOSE Subsidiary to EXINT
C***LIBRARY SLATEC
C***TYPE SINGLE PRECISION (PSIXN-S, DPSIXN-D)
C***AUTHOR Amos, D. E., (SNLA)
C***DESCRIPTION
C
C This subroutine returns values of PSI(X)=derivative of log
C GAMMA(X), X .GT. 0.0 at integer arguments. A table look-up is
C performed for N .LE. 100, and the asymptotic expansion is
C evaluated for N .GT. 100.
C
C***SEE ALSO EXINT
C***ROUTINES CALLED R1MACH
C***REVISION HISTORY (YYMMDD)
C 800501 DATE WRITTEN
C 890531 Changed all specific intrinsics to generic. (WRB)
C 891214 Prologue converted to Version 4.0 format. (BAB)
C 900328 Added TYPE section. (WRB)
C 910722 Updated AUTHOR section. (ALS)
C***END PROLOGUE PSIXN