anchor.diff:          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
  +        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
  
positive.code: 
          end select
  
          if (init .and. parent) then
              ! Output information about the size of the space.
              Ms = sys%nalpha - sys%nbeta
              write (6,'(1X,a75,'//int_fmt(Ms,0)//',a1)') &
  
negative.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.
          !    verbose_in(optional): print out info about number of determinants in each symmetry
          !        block.  Default: same value as init.
          ! In/Out:
          !    sym_space_size: number of determinants of each symmetry.  Output if init
          !        is true, input if init is false.
  