anchor.diff:           enddo
            print*
   
  -         !stop
  +         ! Next, find the rearrangement between the two groups (the automorphism)
  +         if (allocated(automorphism)) deallocate(automorphism)
  +         allocate(automorphism(n2))
  +         call find_permutation_of_group(g1,g2,automorphism)
            !3) change ilabeling2 into the equivalent ilabeling1
  +         write(*,'("before:  ",14i1)') ilabeling2
  +         do i = 0, n*nD2-1, n
  +!            write(*,'("i  ",i2," vs: ",7i2)')i,(automorphism+i)
  +            ilabeling2(1+i:n+i) = ilabeling2(automorphism+i)
  +         enddo
  +         write(*,'("before:  ",14i1)') ilabeling2
            !4) proceed as normal
         endif
            foundLab = .false.
  
positive.code:          cycle
        endif
        do i = 0, k-1
           if (count(ilabeling2==i)/=count(ilabeling==i)) then
              write(13,'("Concentrations don''t match for color ",i1)') i
              write(*,'("Concentrations don''t match for color ",i1)') i
              cycle compareloop
  
negative.code:       write(*,'("Structure number:",i8," is a match to # ",i9," in file 2.")') strN, match
     endif
     deallocate(ilabeling2)
     deallocate(ilabeling1)
  enddo
  close(13)
  
  