6c6
<      5     LLINE,LREST,LALSD,LRECO,LBEST)
---
>      5     LLINE,LREST,LALSD,LRECO,LBEST,NLFUNC,NLGRAD)
37a38,39
> C 
>       EXTERNAL NLFUNC,NLGRAD
421c423
<  1280 FORMAT(8X,33HOBJECTIVE FUNCTION VALUE:  F(X) =,D16.8)
---
>  1280 FORMAT(8X,33HOBJECTIVE FUNCTION VALUE:  F(X) =,D20.12)