anchor.diff:              initialpoint, loadData, drawSol, extractBoxes,        &
               removeAppendedBox, appendBox, removeBoxes, sortItems, &
               reduction, printStats, remainingItems, resetPacking,  &
  -            saveSol, shutdown, cId, iId
  +            saveSol, reset, cId, iId
   
   contains
   
  
positive.code:     ! TODO: test if was allocated!
  
      ! deallocate(cType)
      
      deallocate(cLength_, cWidth_)
  
      deallocate(iType_, iNumber_, iLength_, iWidth_)
  
      deallocate(maxItems, contType, cTypeUsed_, cStartEnd_)
  
      deallocate(cId, iId)
  
      iType => NULL()
  
      iNumber => NULL()
  
negative.code: ! ******************************************************************
  ! ******************************************************************
  
    subroutine reset()
  
      ! This subroutine deallocates all vectors and deassociates all
      ! the pointers
  