poch.f
FUNCTION POCH (A, X)
C***BEGIN PROLOGUE POCH
C***PURPOSE Evaluate a generalization of Pochhammer's symbol.
C***LIBRARY SLATEC (FNLIB)
C***CATEGORY C1, C7A
C***TYPE SINGLE PRECISION (POCH-S, DPOCH-D)
C***KEYWORDS FNLIB, POCHHAMMER, SPECIAL FUNCTIONS
C***AUTHOR Fullerton, W., (LANL)
C***DESCRIPTION
C
C Evaluate a generalization of Pochhammer's symbol
C (A)-sub-X = GAMMA(A+X)/GAMMA(A). For X a non-negative integer,
C POCH(A,X) is just Pochhammer's symbol. A and X are single precision.
C This is a preliminary version. Error handling when POCH(A,X) is
C less than half precision is probably incorrect. Grossly incorrect
C arguments are not handled properly.
C
C***REFERENCES (NONE)
C***ROUTINES CALLED ALGAMS, ALNREL, FAC, GAMMA, GAMR, R9LGMC, XERMSG
C***REVISION HISTORY (YYMMDD)
C 770701 DATE WRITTEN
C 890531 Changed all specific intrinsics to generic. (WRB)
C 890531 REVISION DATE from Version 3.2
C 891214 Prologue converted to Version 4.0 format. (BAB)
C 900315 CALLs to XERROR changed to CALLs to XERMSG. (THJ)
C 900727 Added EXTERNAL statement. (WRB)
C***END PROLOGUE POCH