2,3c2,3
<      1     C,D,ACC,SCBOU,MAXFUN,MAXIT,IPRINT,MODE,IOUT,IFAIL,WA,LWA,         
<      2     KWA,LKWA,ACTIVE,LACTIV,LMERIT,LQL)
---
>      1     C,D,ACC,SCBOU,MAXFUN,MAXIT,IPRINT,MODE,IOUT,IFILE,IFAIL,
>      2     WA,LWA,KWA,LKWA,ACTIVE,LACTIV,LMERIT,LQL,EPS,NLFUNC,NLGRAD)
286a287,291
> C     
>       DOUBLE PRECISION EPS
>       EXTERNAL NLFUNC,NLGRAD
> C
>       CHARACTER*(*) IFILE
294a300
>       COMMON/CMACHE/EPS0
298a305,308
> C   PROVIDE MACHINE PRECISION PARAMETER
> C
>       EPS0=EPS
> C
319a330
>       OPEN(UNIT=IOUT,FILE=IFILE(1:LEN_TRIM(IFILE)),STATUS='UNKNOWN')
475c486,487
<      7     ACTIVE(M3),ACTIVE(M4),ACTIVE(M5),ACTIVE(M6),ACTIVE(M7))      
---
>      7     ACTIVE(M3),ACTIVE(M4),ACTIVE(M5),ACTIVE(M6),ACTIVE(M7),
>      8     NLFUNC,NLGRAD)    
493c505
<       END
\ No newline at end of file
---
>       END