1 | C ELM10D FIT CONSTRAINT PARTIALS, ETC. |
---|
2 | C |
---|
3 | C A DIFF BETWEEN ACTUAL AND DESIRED VALUES OF CONSTRAINED QUANTITIES. |
---|
4 | C CW WEIGHTING = 1/TOLERANCE SQUARED FOR CONSTRAINED QUANTITY. |
---|
5 | C CA MATRIX OF NORMAL EQUATIONS |
---|
6 | C SCALE SCALING FACTOR FOR HESSIAN |
---|
7 | C CASAV CA ARRAY AT LOWEST CHI-SQUARED |
---|
8 | C PARQ FACTOR FOR MARQUARDT - LEVENBERG FIT PARAMETER |
---|
9 | C PMARQ MARQUARDT - LEVENBERG FIT PARAMETER |
---|
10 | C CHSMIN MINIMUM VALUE OF CHI-SQUARED ENCOUNTERED |
---|
11 | C GNORM MAGNITUDE OF GRADIENT OF CHI SQUARED |
---|
12 | C EPS CONTRACTION FACTOR FOR MARQUARDT-LEVENBERG PARAMETER |
---|
13 | C ACTIV WHETHER GRADIENT IS PUSHING PARAMETER INTO LIMIT |
---|
14 | C NACTIV NUMBER OF ACTIVE VARIED PARAMETERS |
---|
15 | C NMAR EXPONENT ON STEP CONTRACTION FACTOR |
---|
16 | C |
---|
17 | LOGICAL ACTIV(NPVAR+1) |
---|
18 | REAL A(NPVAR+1), CA(NPVAR+1,NPVAR+1), |
---|
19 | 1 SCALE(NPVAR+1), CASAV(NPVAR+1,NPVAR+1) |
---|
20 | C |
---|
21 | COMMON /ELM10D/ A, CW, CA, SCALE, CASAV, PARQ, PMARQ, CHSMIN, |
---|
22 | > GNORM, EPS, ACTIV, NACTIV, NMAR |
---|