 
      DOUBLE PRECISION FUNCTION DBETA(A,B)
C***BEGIN PROLOGUE  DBETA
C***DATE WRITTEN   770601   (YYMMDD)
C***REVISION DATE  820801   (YYMMDD)
C***CATEGORY NO.  C7B
C***KEYWORDS  BETA,BETA FUNCTION,COMPLETE BETA FUNCTION,
C             DOUBLE PRECISION,SPECIAL FUNCTION
C***AUTHOR  FULLERTON, W., (LANL)
C***PURPOSE  Computes the d.p. complete Beta function.
C***DESCRIPTION
C
C DBETA(A,B) calculates the double precision complete beta function
C for double precision arguments A and B.
C***REFERENCES  (NONE)
C***ROUTINES CALLED  D1MACH,DGAMLM,DGAMMA,DLBETA,XERROR
C***END PROLOGUE  DBETA
 
 
