 
      FUNCTION POCH(A,X)
C***BEGIN PROLOGUE  POCH
C***DATE WRITTEN   770701   (YYMMDD)
C***REVISION DATE  820801   (YYMMDD)
C***CATEGORY NO.  C1,C7A
C***KEYWORDS  POCHHAMMER,SPECIAL FUNCTION
C***AUTHOR  FULLERTON, W., (LANL)
C***PURPOSE  Evaluates a generalization of Pochhammer's symbol.
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***REFERENCES  (NONE)
C***ROUTINES CALLED  ALGAMS,ALNREL,FAC,GAMMA,GAMR,R9LGMC,XERROR
C***END PROLOGUE  POCH
 
 
