SUBROUTINE KGFIT(CHI, NC, NDF, ITNUM, DCHI)
C
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C     Returns information from last fit
C
C *CHI     real variable (write)
C          Final value of chisquare
C
C *NC      integer variable (write)
C          Number of constraints
C
C *NDF     integer variable (write)
C          Number of degrees of freedom
C
C *ITNUM   integer variable (write)
C          Number of iterations
C
C *DCHI    real variable (write)
C          Change in chisquare during last iteration
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>