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:   tl(1)%i(1) = 1
    maxrmsd(1) = 0.d0
    maxediff(1) = 0.d0
    
    do i=2,num_files
      rmsd = 1111.d0
      cand = 0
  
negative.code:   read(123,*) rmsd_lim
    read(123,*) anceps
    
    write(6,*) 'Reading structures...'
  
    allocate(struc_rep(num_files))
    
    read(123,*) curnum, filename
  