198  loop in cnctarea.f, restructure to get optimizer capable of doing its
     stuff.
