anchor.diff:       stop
     end if
   
  -  !================================================ init. mpi
  -
  -  call mpi_wrapper_initialize(err)
  -
     !================================================ init. the random number generator
   
     call random_initialize(rseed,iproc)
  
positive.code:   character(len=string_size) :: mode         ! run mode: EVAL, SIM, LEARN
    integer                    :: rseed        ! random seed
    real(kflt)                 :: beta         ! temperature of the run
    integer                         :: err
    character(long_string_size)     :: err_string
    integer                         :: dim1,dim2
  
negative.code:   call units_open(trim(mode)//'.log','unknown',ulog,err)
    if(err /= 0) then
       if (iproc == 0) write(0,*) "error opening file ", trim(mode)//'.log'
       stop
    end if
  
  