//---------------------------------------------
void VESSCOLUTILS::RecalcLists()
   {
   LIST<int>* rl = vc.GetRootlist();
   rl->Releasemem();

   for (int i = 0; i< vc.GetVessnum(); i++)
      {
      if (vc.IsRoot(i))
         rl->AddToTail(i);
      }
   }