anchor.diff:  
       read(99, *) nContainers
   
  -    allocate(clength_(nContainers), cWidth_(nContainers),cId(nContainers))
  +    allocate(clength_(nContainers), cWidth_(nContainers),cId_(nContainers))
   
       do i = 1, nContainers
   
  -       read(99, *) cLength_(i), cWidth_(i), cId(i)
  +       read(99, *) cLength_(i), cWidth_(i), cId_(i)
   
       end do
   
  
positive.code: !!$
  !!$    iWidth  =>  iWidth_(iini:iend)
  
      deallocate(types, tL, tW)
  
    end subroutine loadData
  
  
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,    &
  