anchor.diff:        
         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)
     
  
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:   type tag_list
      integer, dimension(:), allocatable :: i
    end type
    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
  