anchor.diff:        TOUCH N_det_generators
       endif
   
  +!    call MPI_BARRIER(MPI_COMM_WORLD)
       call MPI_BCAST (N_det_selectors, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
       if (ierr /= MPI_SUCCESS) then
         print *,  'Unable to broadcast N_det_selectors'
  
positive.code:   integer :: i, sze, ierr
    do i=1,LDA,2000000000/$8
      sze = min(LDA-i+1, 2000000000/$8)
      call MPI_BCAST (A(i), sze, MPI_$DOUBLE_PRECISION, 0, MPI_COMM_WORLD, ierr)
      if (ierr /= MPI_SUCCESS) then
        print *,  'Unable to broadcast chuks $double ', i
  
negative.code:       TOUCH N_det_selectors
      endif
  
  !    call MPI_BARRIER(MPI_COMM_WORLD)
      call MPI_BCAST (energy, size(energy), MPI_DOUBLE_PRECISION, 0, MPI_COMM_WORLD, ierr)
      if (ierr /= MPI_SUCCESS) then
        print *,  'Unable to broadcast energy'
        stop -1
      endif
  !    call MPI_BARRIER(MPI_COMM_WORLD)
  
    IRP_ENDIF
  end
  