anchor.diff:      integer,    intent(in)       :: mc_nsweeps
       integer,    intent(inout)    :: tot_iter
       integer,    intent(in)       :: nupdate
  +    real(kflt)                      :: eps_map = 0.01_kflt
       integer                         :: iter
       character(len=long_string_size) :: filename
       integer                         :: nind, err
  
positive.code:     integer,    intent(in)       :: mc_nsweeps
      integer,    intent(inout)    :: tot_iter
      integer,    intent(in)       :: nupdate
      integer                         :: iter
      character(len=long_string_size) :: filename
      integer                         :: nind, err
  
negative.code:     integer,    intent(in)       :: mc_nsweeps
      integer,    intent(inout)    :: tot_iter
      integer,    intent(in)       :: nupdate
      real(kflt)                      :: eps_map = 0.01_kflt
      integer                         :: iter
      character(len=long_string_size) :: filename
      integer                         :: nind, err
  