anchor.diff:              integer(lint), allocatable, target :: tmp_pop(:)
               character(10) :: proc_suf
               real(p), target :: tmp(1)
  -
  +!REVIEW-AJWT: By now I'm getting the sinking feeling from the variable list that this procedure is quite monolithic!
  +
  +!REVIEW-AJWT: A comment as to the format of the filename would be helpful.  I'd've written one, but I couldn't immediately figure it out
  +!REVIEW-AJWT: Having looked back I saw:   the format is restart_stem.Y.pX, where X is the processor rank and Y is a common integer given by write_id or read_id.
               ! Figure out filename.
               write (proc_suf,'(".p",'//int_fmt(iproc,0)//')') iproc
  +!REVIEW-AJWT: Might ri be an input parameter whose value defaults to restart_info_global?
               associate(ri => restart_info_global)
                   if (ri%write_id < 0) then
                       call get_unique_filename(trim(ri%restart_stem), trim(proc_suf), .true., ri%write_id, restart_file)
  
positive.code: 
          end subroutine read_integer
  
          subroutine read_ptr(id, dset, dtype, arr_ptr)
  
              ! Read an array from an open HDF5 file/group.
  
negative.code: module restart_hdf5
  !REVIEW-AJWT:  We should consider future usage at this point before the format is entrenched!
  !               I'll add this to the dev list email.
      ! Restart functionality based on the HDF5 library.  Note: this is only
      ! for QMC (ie FCIQMC, DMQMC or CCMC) calculations).
  
  