DOUBLE PRECISION FUNCTION DCHIDF(CHSQ,DF)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      LOGICAL QSTAT
      NWH=1
      CALL CDFCHI(NWH,DCHIDF,CHSQ,DF,QSTAT,BOUND)
      RETURN
      END