anchor.diff:  
             maxL = INT(cLength_(c) / itemL)
       
  -          maxItems(itemType) = maxW * maxL
  -
  -          contType(itemType) = c
  +          nItms = maxW * maxL
   
             exit
   
  
positive.code: ! ******************************************************************
  ! ******************************************************************
  
    subroutine setMaxItems(itemType, itemId, itemL, itemW)
  
      ! This subroutine calculates the maximum number of items of type
      ! 'itemType' that can be packed onto the largest available
  
negative.code: 
      end do
  
    end subroutine setMaxItems_
  
  ! ******************************************************************
  ! ******************************************************************
  