DOUBLE PRECISION FUNCTION PDA_DERFC (X, STATUS)
  
  
  ***BEGIN PROLOGUE  PDA_DERFC
  ***PURPOSE  Compute the complementary error function.
  ***LIBRARY   SLATEC (FNLIB)
  ***CATEGORY  C8A, L5A1E
  ***TYPE      DOUBLE PRECISION (ERFC-S, PDA_DERFC-D)
  ***KEYWORDS  COMPLEMENTARY ERROR FUNCTION, ERFC, FNLIB,
               SPECIAL FUNCTIONS
  ***AUTHOR  Fullerton, W., (LANL)
  ***DESCRIPTION
  
   PDA_DERFC(X) calculates the double precision complementary error function
   for double precision argument X.
  
   Series for ERF        on the interval  0.          to  1.00000E+00
                                          with weighted Error   1.28E-32
                                           log weighted Error  31.89
                                 significant figures required  31.05
                                      decimal places required  32.55
  
   Series for ERC2       on the interval  2.50000E-01 to  1.00000E+00
                                          with weighted Error   2.67E-32
                                           log weighted Error  31.57
                                 significant figures required  30.31
                                      decimal places required  32.42
  
   Series for ERFC       on the interval  0.          to  2.50000E-01
                                          with weighted error   1.53E-31
                                           log weighted error  30.82
                                 significant figures required  29.47
                                      decimal places required  31.70
  
      STATUS   Returned error status.
               The status must be zero on entry. This
               routine does not check the status on entry.
  
  ***REFERENCES  (NONE)
  ***ROUTINES CALLED  PDA_D1MACH, PDA_DCSEVL, PDA_INITDS, PDA_XERMSG
  ***REVISION HISTORY  (YYMMDD)
     770701  DATE WRITTEN
     890531  Changed all specific intrinsics to generic.  (WRB)
     890531  REVISION DATE from Version 3.2
     891214  Prologue converted to Version 4.0 format.  (BAB)
     900315  CALLs to XERROR changed to CALLs to PDA_XERMSG.  (THJ)
     920618  Removed space from variable names.  (RWC, WRB)
     950425  Implement status.  (HME)
  ***END PROLOGUE  PDA_DERFC