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, tmpratio, curratio
     character(len=50) :: filename
     integer, dimension(:), allocatable :: tmp_array
     integer, dimension(0:19) :: ref_array, com_array
  
positive.code:   read(123,*) num_files
    read(123,*) rmsd_lim
    read(123,*) anceps
    
    allocate(struc_rep(num_files))
    
  
negative.code:   stop
  666 write(*,*) 'bad input'
  
  contains
    subroutine progressbar_add(old,current)
      integer :: current, old, loopcnt
  	
  	do loopcnt=old+1,current
  	  write(6,'(A)',advance='no') '*'
  	end do
  	
    end subroutine
  
  end program
  