Cgamma Cgamr Clngam Gamdratio Gamdratio_sub Gamma Gamma1pm1 Gamma1pm1_sub Gamr Gamr_sub Gamratio Gamratio_sub Lngam Lngam_sub Lngams Lngams_sub Poch Poch1 Poch1_sub Poch_sub

Poch_sub() Sub Poch_sub ( Ret As  Double, A As  Double, X As  Double, Optional Info As  Long  ) Pochhammer's symbol (a)x (Subroutine version) Purpose Computes the Pochhammer's symbol. (a)x = Γ(a + x)/Γ(a) Parameters [out] Ret Pochhammer's symbol (a)x. [in] A Argument a. (If A + X = 0 or a negative integer, A must be 0 or a negative integer) [in] X Argument x. [out] Info (Optional) = 0: Successful exit. = -1: The argument A had an illegal value. (When A + X = 0 or a negative integer, A is not 0 nor a negative integer) = 1: Floating point range error.