anchor.diff:  
       iWidth => NULL()
     
  -  end subroutine shutdown
  +  end subroutine reset
     
   end module packdat
  
positive.code:   real(8), target, allocatable :: cLength_(:)
    real(8), target, allocatable :: cWidth_(:)
    ! Item's type
    integer, pointer :: iType(:)
    integer, target, allocatable :: iType_(:)
    ! Item's number
    integer, pointer :: iNumber(:)
    integer, target, allocatable :: iNumber_(:)
    ! Item's dimensions
    real(8), target, allocatable :: iLength_(:)
  
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()
  