anchor.diff:  
          read(99, *) tL(t), tW(t), tId(t)
   
  -       call setMaxItems(t, tId(t), tL(t), tW(t))
  +       call setMaxItems_(t, tId(t), tL(t), tW(t), &
  +                         contType(t), maxItems(t))
   
       end do
   
  
positive.code: 
      end do
  
    end subroutine setMaxItems
  
  ! ******************************************************************
  ! ******************************************************************
  
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
         
  