write (iout,'(/80(1h*)/20x,a/80(1h*))')
& 'Options in energy minimization:'
write (iout,'(4(a,i5),a,1pe14.5,a,1pe14.5)')
& 'MaxMin:',MaxMin,' MaxFun:',MaxFun,
& 'MinMin:',MinMin,' MinFun:',MinFun,
& ' TolF:',TolF,' RTolF:',RTolF
write (iout,'(/80(1h*)/20x,a/80(1h*))')
& 'Options in energy minimization:'
write (iout,'(4(a,i5),a,1pe14.5,a,1pe14.5)')
& 'MaxMin:',MaxMin,' MaxFun:',MaxFun,
& 'MinMin:',MinMin,' MinFun:',MinFun,
& ' TolF:',TolF,' RTolF:',RTolF