anchor.diff:      !!<local name="min_stab_a">Temporary array for arrow stabilizers.</local>
       !!<local name="d">Keeps track of how deep in the tree we are.</local>
       integer :: rotatedlabel(size(label))
  -    integer :: perm_i, perm_j, stab_size, new_loc, d, status
  -    integer, allocatable :: min_stab(:,:), min_stab_a(:,:)
  +    integer :: perm_i, perm_j, stab_size, new_loc, d
   
       d = self%depth()
       ! Make sure that the number of stabilizers is initially 0
  
positive.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>
      logical :: conc_check = .true.
      integer :: lab_degen, iHNF, status, i, jHNF, nHNF, nInAct, iD, idx(1), nD
      integer, allocatable :: vsH(:)
      character(105) :: struct_enum_out_formatstring
  
negative.code:     !!<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, nLeft, d, status
  
      d = self%depth()
      ! The labeling needs to have only '1's for the current color, have
  