anchor.diff:      if(comm_is_root()) then
         read(*,*) directory
         read(*,*) dump_filename
  +#ifdef ARTED_MS
         read(*,*) gNt
  +#endif
       end if
       call comm_bcast(directory, proc_group(1))
       call comm_bcast(dump_filename, proc_group(1))
  +#ifdef ARTED_MS
       call comm_bcast(gNt, proc_group(1))
  +#endif
       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
  
positive.code:       write(iounit,*) Time_shutdown
        write(iounit,*) "'"//trim(directory)//"'"
        write(iounit,*) "'"//trim(dump_filename)//"'"
        write(iounit,'(I7,A)') Nt,'   ! Nt: If you want continuous execution, please change the value.'
        close(iounit)
      end if
      call comm_bcast(dump_filename, proc_group(1))
  
negative.code:   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
    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()
  
  