20080203 095251.806 NL2SOL_PRB1: FORTRAN77 version Test routines in the the NL2SOL library. TEST01: Test the NL2SOL routine, which requires a user residual and jacobian routines. I INITIAL X(I) D(I) 1 0.300000E+01 0.707E+01 2 0.100000E+01 0.507E+01 0 IT NF F RELDF PRELDF RELDX 0 1 0.847E+02 1 2 0.678E+01 0.920E+00 0.980E+00 0.272E+00 2 3 0.120E+01 0.823E+00 0.847E+00 0.618E+00 3 4 0.523E+00 0.564E+00 0.815E+00 0.417E+00 4 5 0.400E+00 0.235E+00 0.284E+00 0.174E+00 5 6 0.390E+00 0.260E-01 0.515E-01 0.978E-01 6 7 0.387E+00 0.846E-02 0.846E-02 0.416E-01 7 8 0.387E+00 0.410E-04 0.378E-04 0.267E-02 8 9 0.387E+00 0.308E-06 0.391E-06 0.296E-03 0***** X- AND RELATIVE FUNCTION CONVERGENCE ***** 0FUNCTION 0.386600E+00 RELDX 0.295764E-03 FUNC. EVALS 9 GRAD. EVALS 9 PRELDF 0.391137E-06 NPRELDF 0.391121E-06 2 EXTRA FUNC. EVALS FOR COVARIANCE. 3 EXTRA GRAD. EVALS FOR COVARIANCE. I FINAL X(I) D(I) G(I) 1 -0.155489E+00 0.121E+01 -0.101E-03 2 0.694560E+00 0.146E+01 -0.526E-04 COVARIANCE = SCALE * H**-1 * (J**T * J) * H**-1 ROW 1 0.3447E+00 ROW 2 -0.2142E+00 0.4437E+00 TEST02: Test the NL2SNO routine, which requires only a user residual. The jacobian is approximated internally. I INITIAL X(I) D(I) 1 0.300000E+01 0.707E+01 2 0.100000E+01 0.507E+01 0 IT NF F RELDF PRELDF RELDX 0 1 0.847E+02 1 2 0.678E+01 0.920E+00 0.980E+00 0.272E+00 2 3 0.120E+01 0.823E+00 0.847E+00 0.618E+00 3 4 0.523E+00 0.564E+00 0.815E+00 0.417E+00 4 5 0.400E+00 0.235E+00 0.284E+00 0.174E+00 5 6 0.390E+00 0.261E-01 0.515E-01 0.979E-01 6 7 0.387E+00 0.846E-02 0.846E-02 0.416E-01 7 8 0.387E+00 0.419E-04 0.402E-04 0.274E-02 8 9 0.387E+00 0.463E-06 0.345E-06 0.282E-03 0***** X- AND RELATIVE FUNCTION CONVERGENCE ***** 0FUNCTION 0.386599E+00 RELDX 0.282061E-03 FUNC. EVALS 9 GRAD. EVALS 9 PRELDF 0.344935E-06 NPRELDF 0.344935E-06 5 EXTRA FUNC. EVALS FOR COVARIANCE. I FINAL X(I) D(I) G(I) 1 -0.155450E+00 0.124E+01 0.176E-04 2 0.694513E+00 0.147E+01 -0.825E-04 COVARIANCE = SCALE * H**-1 * (J**T * J) * H**-1 ROW 1 0.3393E+00 ROW 2 -0.2093E+00 0.4400E+00 NL2SOL_PRB1: Normal end of execution. 20080203 095251.809