anchor.diff:               enddo
             endif ! end block to remove label exchange duplicates
          endif
  -   
  +
   
          ! "c" counts the number of labels of each kind across the
          ! entire labeling. Need this for "partial" lists that have
  
positive.code:     allocate(degeneracy_list(nexp) )
      degeneracy_list = 0
      if (sum(c)/=nl) stop "ERROR: initialization of the 'c' counter failed in generate_unique_labelings"
      
      ic = 0
      nUniq = 0
      do; ic = ic + 1
  
negative.code:     integer, intent(in) :: conc(:)
      integer, intent(in) :: l(:) ! the current labeling
      integer, intent(out):: X(:)
  
      integer n, iK, xTemp, iM, nLeft
      integer, allocatable :: mask(:)
  
  