& iprint,
integer iprint
& numiter, nfunc, fmin, iprint,
iprint = 10
& , iprint
if (iprint .ge. 1) then
$ , ' information level.................', iprint
if (iprint.ge.1) then
if (iprint.ge.10) then
$ , iprint, itmax, nfunc, nupdate
integer nn, iprint, itmax, nfunc, nupdate, ifail
if (iprint .ge. 5) then
else if (iprint .ge. 1) then