anchor.diff:                  call write_string(group_id, dhande, VCS_VERSION)
   
   ! [review] -  AJWT: This doesn't appear to agree with the comments at the top
  +! [reply] - JSS: fixed.
                   call write_string(group_id, duuid, GLOBAL_UUID)
   
                   call date_and_time(values=date_time)
   ! [review] -  AJWT: What does this actually look like?
  +! [reply] - JSS:
  +                ! Print out current time and date as HH:MM:SS DD/MM/YYYY.
                   write (date_str,'(2(i0.2,":"),i0.2,1X,2(i0.2,"/"),i4)') date_time(5:7), date_time(3:1:-1)
                   call write_string(group_id, ddate, date_str)
   
  
positive.code: !              I foresee a time when the calc_type format will change, and the code
  !              below will be a pain.  Perhaps some sort of interface for this.
  !             In particular, I don't think the restart_read should be dealing with this sort of thing.
                  ! Different calc types are either not compatible or require
                  ! hyperslabs (fewer particle types) or require copying (more
                  ! particle types).
  
negative.code: 
      type restart_info_t
  ! [review] -  AJWT: The comments in parse_input are not helpful in this regard!  More please.
  ! [reply] - JSS:
          ! If write_id is negative, then it was set by the user in the input file.  Set
          ! Y=-ID-1 to undo the transformation in parse_input, where Y is in the restart
          ! filename below.  If non-negative, generate Y such that the restart filename is unique.
          integer :: write_id ! ID number to write to.
          ! As for write_id but if positive find the highest possible value of Y  out of the
          ! existing restart files (assuming they have sequential values of Y).
          integer :: read_id  ! ID number to write to.
          ! Number of QMC iterations between writing out a restart file.
          integer :: write_restart_freq
          ! Stem to use for creating restart filenames (of the format restart_stem.Y.pX,
          ! where X is the processor rank and Y is a common positive integer related to
          ! write_id/read_id.
          character(8), private :: restart_stem = 'HANDE.RS'
      end type restart_info_t
  
      ! Global restart info store until we have a calc type which is passed
  