C @(#)fitnagc.inc	17.1.1.1 (ESO-IPG) 01/25/02 17:31:44
C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C
C.IDENTIFICATION
C       FITNAG.INC                     version 1.1 851205
C        J.D.Ponz              ESO - Garching
C       Ph. Defert               "
C
C.PURPOSE
C
C       Control Data Structure for Fitting
C
C       User Interface Control Variables : Common /FIT_COMMON0/,
C                                            /FIT_COMMON1/
C.KEYWORDS
C
C       FIT, DATA STRUCTURE
C
C------------------------------------------------------------------------------
C
C       Common areas
C
       COMMON/FITCM0/       FILNAM,FILTYP,MASK,
     .                            RIMA,FNAM,SPEC,
     .                          PTOKEN
       COMMON/FITCM1/ ERROR,PARAM,PARINI,NRFUN,NRITER,NRDATA,
     .       NRPARAM,FLAG,DEPCOL,WGTCOL,NRIND,INDCOL,NRPIX,
     .       FIXPAR,FCTCOD,ACTPAR,PLEN,RELAX,FINCHI,PRECIS,
     .       CHI,START,STEP,UNCER,PRPFAC,PTRI,PTRM,MAPPED,FPAR,
     .       SELE
C       COMMON/FITCM1/           NRFUN,NRITER,NRDATA,
C     .       NRPARAM,FLAG,DEPCOL,WGTCOL,NRIND,
C     .       INDCOL,NRPIX,
C     .       FIXPAR,FCTCOD,ACTPAR,PLEN,RELAX,FINCHI,PRECIS,
C     .       CHI,START,STEP,ERROR,
C     .       PARAM,PARINI,
C     .       UNCER,PRPFAC,PTRI,PTRM,MAPPED,FPAR,
C     .       SELE
        COMMON/FITCM2/ METPAR,PARLOW,PARUPP,NRPFIX,
     .       FZPPRN,FZIWGT,FZIBND,FZIMET
        COMMON/FITCM3/ ERRFPAR,ERRFFUN,ERRFTAB,ERRFDAT,
     .                 ERRFPFU,ERRFDUP,ERRFCON,FZIDEN
C
       EQUIVALENCE       (NRAXIS,NRIND)
       EQUIVALENCE       (CHAR,FILNAM)
       EQUIVALENCE       (INTG,NRFUN)
C       EQUIVALENCE       (REAL,RELAX)