anchor.diff:                                                   'subset of faults'
   write(stderr,*) '-obj OBJ_FILE                   Iteration and objective function'
   write(stderr,*) '-uncertainty UNCERT_FILE        Uncertainty distribution'
  -write(stderr,*) '-resample [SEED]                Resample models proportional to probability (objective)'
  +write(stderr,*) '-resample NRESAMPLE             Resample models proportional to probability (objective)'
  +write(stderr,*) '-seed SEED                      Set random number seed'
   write(stderr,*)
   
   call error_exit(1)
  
positive.code: ! 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)
  
  ! Local variables
  integer :: i, ios, it, itread, iflt, ipole, nlines_per_it, isamp
  
negative.code:             i = i - 1
          else
              call get_command_argument(i,arg)
              read(arg,*,iostat=ios) nresamp
              if (ios.ne.0) then
                  iseed = 0
                  i = i - 1
              endif
          endif
  
      elseif (tag.eq.'-seed') then
          i = i + 1
          call get_command_argument(i,arg)
          read(arg,*,iostat=ios) iseed
          if (ios.ne.0) then
              iseed = 0
              i = i - 1
          endif
  
      else
  