anchor.diff:  ! ******************************************************************
   ! ******************************************************************
   
  -  subroutine setMaxItems(itemType, itemId, itemL, itemW)
  +  subroutine setMaxItems_(itemType, itemId, itemL, itemW, c, nItms)
   
       ! This subroutine calculates the maximum number of items of type
       ! 'itemType' that can be packed onto the largest available
  
positive.code: 
         read(99, *) tL(t), tW(t), tId(t)
  
         call setMaxItems(t, tId(t), tL(t), tW(t))
  
      end do
  
  
negative.code:     implicit none
  
      ! SCALAR ARGUMENTS
      integer :: itemType, itemId, c, nItms
      real(kind=8) :: itemL, itemW
  
      intent(in ) :: itemType, itemId, itemL, itemW
      intent(out) :: c, nItms
  
      ! LOCAL ARRAYS
      integer :: lC(nContainers)
      
      ! LOCAL SCALARS
      integer :: i, maxW, maxL
  
      do i = 1, nContainers
         
  