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

Gamr_sub() Sub Gamr_sub ( Ret As  Double, X As  Double, Optional Info As  Long  ) Reciprocal of gamma function 1/Γ(x) (Subroutine version) Purpose Computes the reciprocal of the gamma function at x, where x is not 0, -1, -2, ... Parameters [out] Ret Reciprocal of the gamma function 1/Γ(x). [in] X Argument x. (X <> 0 and X <> a negative integer) [out] Info (Optional) = 0: Successful exit. = -1: The argument X had an illegal value. (X = 0 or negative integer) = 1: Floating point range error.