anchor.diff:  
       ! TODO: test allocation error
       allocate(types(nTypes), tL(nTypes), tW(nTypes), maxItems(nTypes), &
  -             contType(nTypes), iId(nTypes))
  +             contType(nTypes), tId(nTypes))
   
       ! Load items sizes and initializes the maximum number of items in
       ! the largest container
  
positive.code:           iLength_(i) = tL(t)
  
            iWidth_(i) = tW(t)
  
         end do
  
  
negative.code:   ! Pointer to current item's dimensions
    real(8), pointer :: iLength(:), iWidth(:)
  
    !Pointer Id for containers and items
    integer, pointer :: iId(:)
    integer, pointer :: cId(:)
    private
  
    public :: iLength, iWidth, cLength, cWidth, nItems, nTItems,    &
  