anchor.diff:  use const
   use spawn_data, only: spawn_t
   use csr, only: csrp_t
  +use parallel, only: parallel_timing_t
   
   implicit none
   
  
positive.code:     ! This option generates the deterministic space by reading the states in
      ! from an HDF5 file (named SEMI.STOCH.*.H5).
      enumerator :: read_determ_space
  end enum
  
  
  
negative.code:     ! equal to 0 then the corresponding state in position i of the main list is
      ! a deterministic state, else it is not.
      integer, allocatable :: flags(:)
      ! Type for holding information about semi-stochastic MPI timings.
      ! This is only used if separate_annihilation is .true.. If it is false
      ! then semi-stochastic communication is performed with the main spawning
      ! communicaton.
      type(parallel_timing_t) :: mpi_time
  end type semi_stoch_t
  
  ! --- Estimators ---
  