anchor.diff:    type tag_list
       integer, dimension(:), allocatable :: i
     end type
  -  integer :: num_files, i, j, cand, k, cnt, curnum, tmpsize
  +  integer :: num_files, i, j, cand, k, cnt, curnum, tmpsize, tmpcnt
     character(len=50) :: filename
     integer, dimension(:), allocatable :: tmp_array
     integer, dimension(0:19) :: ref_array, com_array
  
positive.code:       
        deallocate(tl_tmp,maxediff_tmp,maxrmsd_tmp)
      end if
    end do
    close(95)
    
  
negative.code:   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
  