anchor.diff:          call check_allocate('det_info_t%unocc_list_alpha',nvirt_alpha,ierr)
           allocate(det_info_t%unocc_list_beta(nvirt_beta), stat=ierr)
           call check_allocate('det_info_t%unocc_list_beta',nvirt_beta,ierr)
  +        allocate(det_info_t%symunocc(2,sym0:nsym+(sym0-1)), stat=ierr)
  +        call check_allocate('det_info_t%symunocc',size(det_info_t%symunocc),ierr)
   
       end subroutine alloc_det_info
   
  
positive.code: 
      end subroutine decode_det_spinocc_spinunocc
  
      pure function det_momentum(occ_list) result(ksum)
  
          ! In:
  
negative.code:     integer, pointer :: occ_list_alpha(:), occ_list_beta(:)
      ! List of unoccupied alpha/beta spin-orbitals
      integer, pointer :: unocc_list_alpha(:), unocc_list_beta(:)
      ! Number of unoccupied orbitals with each spin and symmetry.
      ! The first index maps to spin using (Ms+3)/2, where Ms=-1 is spin-down and
      ! Ms=1 is spin-up.
      integer, pointer :: symunocc(:,:) ! (2,sym0:sym_max)
      ! is the determinant an initiator determinant or not? (used only in
      ! i-FCIQMC).
      integer :: initiator_flag
  