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: ! ******************************************************************
  ! ******************************************************************
  
    subroutine shutdown()
  
      ! This subroutine deallocates all vectors and deassociates all
      ! the pointers
  
negative.code:     ! TODO: test if was allocated!
  
      ! deallocate(cType)
  
      if ( allocated(cLength_) ) deallocate(cLength_)
      
      if ( allocated(cWidth_) ) deallocate(cWidth_)
      
      if ( allocated(iType_) ) deallocate(iType_)
      
      if ( allocated(iNumber_) ) deallocate(iNumber_)
      
      if ( allocated(iLength_) ) deallocate(iLength_)
      
      if ( allocated(iWidth_) ) deallocate(iWidth_)
      
      if ( allocated(maxItems) ) deallocate(maxItems)
      
      if ( allocated(contType) ) deallocate(contType)
      
      if ( allocated(cTypeUsed_) ) deallocate(cTypeUsed_)
      
      if ( allocated(cStartEnd_) ) deallocate(cStartEnd_)
      
      if ( allocated(cId) ) deallocate(cId)
      
      if ( allocated(iId) ) deallocate(iId)
      
      iType => NULL()
  
      iNumber => NULL()
  