anchor.diff:    use opt_variables,   only: opt_vars_initialize_p1, opt_vars_initialize_p2
     use backup_routines, only: backup_value
     use misc_routines,   only: get_wtime
  -  use communication,   only: comm_sync_all, comm_bcast, comm_is_root, comm_set_level2_group, &
  -                             procid, nprocs, proc_group
  +  use communication
     implicit none
     logical, intent(in) :: is_backup
   
     integer, parameter :: iounit = 500
     character(256)     :: reent_filename, dump_filename
     real(8) :: beg_time, end_time
  +#ifdef ARTED_MS
     integer :: gNt
  +#endif
   
     call comm_sync_all; beg_time = get_wtime()
   
  
positive.code:     if(comm_is_root()) then
        read(*,*) directory
        read(*,*) dump_filename
        read(*,*) gNt
      end if
      call comm_bcast(directory, proc_group(1))
      call comm_bcast(dump_filename, proc_group(1))
      call comm_bcast(gNt, proc_group(1))
      write (process_directory,'(A,A,I5.5,A)') trim(directory),'/work_p',procid(1),'/'
      open(iounit, status='old', form='unformatted', file=gen_filename(dump_filename, procid(1)), buffered='no')
    end if
  
negative.code:       Ndata_out_per_proc = Ndata_out / nprocs(1)
        call resize_arrays
      end if
  #endif
    end if
  
    call comm_sync_all; end_time = get_wtime()
  