call minimize(etot,var,iretcode,nfun)
write(iout,'(a10,f6.3,a14,i3,a6,i5)')
& ' SUMSL DIST',wstrain,' return code is',iretcode,
& ' eval ',nfun
ieval=nfun
call minimize(etot,var,iretcode,nfun)
write(iout,'(a10,f6.3,a14,i3,a6,i5)')
& ' SUMSL DIST',wstrain,' return code is',iretcode,
& ' eval ',nfun
ieval=nfun