C ELM10D              FIT CONSTRAINT PARTIALS, ETC.
C
C A         DIFF BETWEEN ACTUAL AND DESIRED VALUES OF CONSTRAINED QUANTITIES.
C CW        WEIGHTING = 1/TOLERANCE SQUARED FOR CONSTRAINED QUANTITY.
C CA        MATRIX OF NORMAL EQUATIONS
C SCALE     SCALING FACTOR FOR HESSIAN
C CASAV     CA ARRAY AT LOWEST CHI-SQUARED
C PARQ      FACTOR FOR MARQUARDT - LEVENBERG FIT PARAMETER
C PMARQ     MARQUARDT - LEVENBERG FIT PARAMETER
C CHSMIN    MINIMUM VALUE OF CHI-SQUARED ENCOUNTERED
C GNORM     MAGNITUDE OF GRADIENT OF CHI SQUARED
C EPS       CONTRACTION FACTOR FOR MARQUARDT-LEVENBERG PARAMETER
C ACTIV     WHETHER GRADIENT IS PUSHING PARAMETER INTO LIMIT
C NACTIV    NUMBER OF ACTIVE VARIED PARAMETERS
C NMAR      EXPONENT ON STEP CONTRACTION FACTOR
C
      LOGICAL         ACTIV(NPVAR+1)
      REAL            A(NPVAR+1), CA(NPVAR+1,NPVAR+1), 
     1                SCALE(NPVAR+1), CASAV(NPVAR+1,NPVAR+1)
C
      COMMON /ELM10D/ A, CW, CA, SCALE, CASAV, PARQ, PMARQ, CHSMIN,
     >                GNORM, EPS, ACTIV, NACTIV, NMAR