subroutine HESSUPD( nn, mupd, dd, jmin, jmax, xdiff, lphprint )
logical lphprint
if (lphprint)
& , nn, ifail, lphprint
if (lphprint) then
& nn, ifail, lphprint
if (lphprint) print *, 'pathei-lsopt: ',
logical cold, lphprint, loffline
parameter (lphprint = .true.)
& lphprint )
LOGICAL lphprint
subroutine LSWRI( isize, phniter, NN, xx, gg, lphprint )