anchor.diff:    END_DOC
     integer                        :: k
   
  +  !$OMP PARALLEL DO DEFAULT(SHARED) PRIVATE(k)
     do k=1,N_det
       psi_bilinear_matrix_order_transp_reverse(psi_bilinear_matrix_transp_order(k)) = k
     enddo
  +  !$OMP END PARALLEL DO
   END_PROVIDER
   
   
  
positive.code:   integer, intent(out)           :: n_singles
    integer, intent(out)           :: n_doubles
  
    integer                        :: i,k,ii, imax
    integer, parameter             :: block_size=64
    include 'Utils/constants.include.F'
    integer(bit_kind)              :: xorvec(block_size,N_int_max)
    integer                        :: degree(block_size)
  
    integer, external              :: align_double
  
  
negative.code:   integer, intent(out)           :: singles(size_buffer)
    integer, intent(out)           :: n_singles
  
    integer                        :: i,k
    include 'Utils/constants.include.F'
    integer(bit_kind)              :: xorvec(N_int_max)
    integer                        :: degree
  
    integer, external              :: align_double
  
    !DIR$ ATTRIBUTES ALIGN : $IRP_ALIGN :: xorvec
  
  !  select case (Nint)
  !    case (1)
  