anchor.diff:      implicit none
   
       ! SCALAR ARGUMENTS
  -    integer, intent(in) :: itemType, itemId
  -    real(kind=8), intent(in) :: itemL, itemW
  +    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 :: c, i, maxW, maxL
  +    integer :: i, maxW, maxL
   
       do i = 1, nContainers
          
  
positive.code:             removeAppendedBox, appendBox, removeBoxes, sortItems, &
              reduction, printStats, remainingItems, resetPacking,  &
              saveSol, reset, cId, iId, sortContainers, &
              getAvContainers
  
  contains
  
  
negative.code: 
            maxL = INT(cLength_(c) / itemL)
      
            nItms = maxW * maxL
  
            exit
  
  