anchor.diff:    tl(1)%i(1) = 1
     maxrmsd(1) = 0.d0
     maxediff(1) = 0.d0
  +
  +  write(6,*) 'Starting analysis...'
     
  +  tmpcnt=0
  +
     do i=2,num_files
       rmsd = 1111.d0
       cand = 0
  
positive.code:   read(123,*) rmsd_lim
    read(123,*) anceps
    
    allocate(struc_rep(num_files))
    
    read(123,*) curnum, filename
  
negative.code:       
        deallocate(tl_tmp,maxediff_tmp,maxrmsd_tmp)
      end if
      if (floor(1.d0*i/num_files) .ge. tmpcnt) then
        tmpcnt=tmpcnt+1
        write(6,'(A)',advance="no") '*'
      end if
    end do
    close(95)
    
  