 
      DOUBLE PRECISION FUNCTION DGAMR(X)
C***BEGIN PROLOGUE  DGAMR
C***DATE WRITTEN   770701   (YYMMDD)
C***REVISION DATE  820801   (YYMMDD)
C***CATEGORY NO.  C7A
C***KEYWORDS  DOUBLE PRECISION,GAMMA,GAMMA FUNCTION,
C             RECIPROCAL GAMMA FUNCTION,SPECIAL FUNCTION
C***AUTHOR  FULLERTON, W., (LANL)
C***PURPOSE  Calculates d.p. reciprocal Gamma function.
C***DESCRIPTION
C
C DGAMR(X) calculates the double precision reciprocal of the
C complete gamma function for double precision argument X.
C***REFERENCES  (NONE)
C***ROUTINES CALLED  DGAMMA,DINT,DLGAMS,XERCLR,XGETF,XSETF
C***END PROLOGUE  DGAMR
 
 
