anchor.diff:      !!<local name="lastone">The index of the last '1' in the binary array.</local>
       !!<local name="d">Keeps track of how deep in the tree we are.</local>
       integer, allocatable :: new_labeling(:)
  -    integer :: site_i, nzeros, numones, lastone, nLeft, d, status
  -    integer :: ndigits(1), minl(1)
  +    integer :: site_i, nLeft, d, status
   
       d = self%depth()
       ! The labeling needs to have only '1's for the current color, have
  
positive.code:     class(tree) :: self
      integer, allocatable, intent(out) :: labeling(:)
  
      integer, allocatable :: clabeling(:), freeIndices(:), configList
      integer              :: ik, cIdx, iIdx, jIdx, ilc, jlc, nEmp, status
  
      allocate(labeling(self%n),STAT=status)
      if(status/=0) stop "Allocation failed in generateColoringFromLocation: labeling."
  
negative.code:     !!<local name="i">Loop variable</local>
      !!<local name="jHNF">Which HNF this is in the permIndx</local>
      !!<local name="nHNF">How many of this HNF are there.</local>
      integer :: lab_degen, iHNF, status, i, jHNF, nHNF, nInAct, iD, idx(1), nD
      integer, allocatable :: vsH(:)
      character(105) :: struct_enum_out_formatstring
  