anchor.diff:  ! Arguments
   integer :: nit, nflt, npoles
   character(len=*) :: log_format
  -integer :: locked(nit,nflt)
  -double precision :: obj(nit), slip(nit,nflt,2), poles(nit,npoles,3), temp(nit), uncert(nit)
  -logical :: isAccepted(nit)
  +integer :: locked(nresamp,nflt)
  +double precision :: obj(nresamp), slip(nresamp,nflt,2), poles(nresamp,npoles,3), temp(nresamp), &
  +                    uncert(nresamp)
  +logical :: isAccepted(nresamp)
   
   ! Local variables
   integer :: i, ios, it, itread, iflt, ipole, nlines_per_it, isamp
  
positive.code:             i = i - 1
          else
              call get_command_argument(i,arg)
              read(arg,*,iostat=ios) iseed
              if (ios.ne.0) then
                  iseed = 0
                  i = i - 1
              endif
          endif
  
      else
  
negative.code: logical, allocatable :: isFltInSubset(:)
  integer :: it, nit
  integer :: i, ios, iflt, nflt, ipole, npoles, nsubset
  integer, allocatable :: samp_tmp(:)
  integer, allocatable :: locked(:,:), plocked(:)
  double precision, allocatable :: temp(:)
  double precision, allocatable :: obj(:), obj_resamp(:)
  