anchor.diff:      endif
   
       if(diagnostics_on)then
  -       write(*,'( ''  '',i6,'' seeds for element'',i7,'' and'',i6,'' for element'',i7)') &
  -            dat1,ne+1,dat2,ne+2
  +       write(*,'( ''Parent '',i6,'' with '',i6,'' seeds for element'',i7,'' and'',i6,'' for element'',i7)') &
  +            ne1,dat1,ne+1,dat2,ne+2
       endif
   
       call enter_exit(sub_name,2)
  
positive.code: 
         enddo ! while still parent branches
  
         write(*,'(I7,I8,I9)') ne_parent,num_seeds_in_space,num_terminal
  
      enddo ! for each initial parent
  
  
negative.code:           enddo !nd
            
         endif !num_seeds_from_elem
  !       write(*,'('' '',i6,'','')', advance = "no") num_seeds_from_elem(ne_min)
      enddo !N
      
      do N=1,num_next_parents
  