FUNCTION GAMR(X)
C***BEGIN PROLOGUE  GAMR
C***DATE WRITTEN   770701   (YYMMDD)
C***REVISION DATE  820801   (YYMMDD)
C***CATEGORY NO.  C7A
C***KEYWORDS  GAMMA FUNCTION SPECIAL FUNCTION,RECIPROCAL GAMMA FUNCTION
C***AUTHOR  FULLERTON, W., (LANL)
C***PURPOSE  Computes the reciprocal of the Gamma function.
C***DESCRIPTION
C
C GAMR is a single precison function that evaluates the reciprocal
C of the gamma function for single precision argument X.
C***REFERENCES  (NONE)
C***ROUTINES CALLED  ALGAMS,GAMMA,XERCLR,XGETF,XSETF
C***END PROLOGUE  GAMR