*-- Author :   I.O.Skillicorn
      SUBROUTINE  FXFIT(X,Y,SIG,NDATA,A,MA,LISTA,MFIT,COVAR,NCVM,CHISQ)
C     ADDED FOR RESIDUALS                                                                                     
C     ADDED FOR SCALE FACTOR                                                                                  
      CALL FFUNCS(I,AFUNC,MA)
      CALL FAUSSJ(COVAR,MFIT,NCVM,BETA,1,1)
C     ADDED FOR SCALE FACTOR 9/4/92                                                                           
      CALL FFUNCS(I,AFUNC,MA)
C     ADDITION  2/3/92                                                                                        
C     ADDITION  9/4/92                                                                                        
C     SF1=SF1+(Y(I)-WZER(I))*(SUM-WZER(I))/SIG(I)**2                                                          
C     SF2=SF2+(SUM-WZER(I))**2/SIG(I)**2                                                                      
C     Y-WZER  IS SIGNED DRIFT                                                                                 
C     CALL COVSRT(COVAR,NCVM,MA,LISTA,MFIT)                                                                   
*