anchor.diff:  
   !--- Hilbert space enumeration ---
   
  -    subroutine enumerate_determinants(sys, init, spin_flip, ex_level, sym_space_size, ndets, dets_list, ref_sym, occ_list0)
  +    subroutine enumerate_determinants(sys, init, spin_flip, ex_level, sym_space_size, ndets, dets_list, ref_sym, occ_list0, &
  +                                      verbose_in)
   
           ! Find the Slater determinants of a given system that can be formed from
           ! the basis functions.
  
positive.code:         !        Used as the reference determinant if a truncated CI space is
          !        being used.  *MUST* be specified if ex_level is not the number
          !        of electrons in the system.
          ! In/Out:
          !    sym_space_size: number of determinants of each symmetry.  Output if init
          !        is true, input if init is false.
  
negative.code:         integer, allocatable :: occ(:), comb(:,:), unocc(:)
          integer :: k(sys%lattice%ndim), k_beta(sys%lattice%ndim)
          type(det_info_t) :: d0
          logical :: in_space, force_full, truncate_space, verbose
  
          truncate_space = ex_level /= sys%nel
          verbose = init
          if (present(verbose_in)) verbose = verbose_in
  
          force_full = .false.
          if (init) then
  