anchor.diff:    integer                        :: i, j, last_full, dets(comb_teeth)
     integer                        :: k, l, cur_cp, under_det(comb_teeth+1)
     integer, allocatable :: iorder(:), first_cp(:)
  +  double precision :: tmp
  +
   
     allocate(iorder(N_det_generators), first_cp(N_cps_max+1))
     allocate(computed(N_det_generators))
  
positive.code: 
    integer(ZMQ_PTR), intent(in)   :: zmq_socket_pull
  
    double precision, intent(in) :: relative_error, E
    double precision, intent(out)  :: mrcc(N_states)
    double precision, allocatable  :: cp(:,:,:,:)
  
    double precision, intent(out)  :: delta(N_states, N_det_non_ref)
    double precision, intent(out)  :: delta_s2(N_states, N_det_non_ref)
    double precision, allocatable  :: delta_loc(:,:,:), delta_det(:,:,:,:)
    double precision, allocatable  :: mrcc_detail(:,:)
    double precision               :: mrcc_mwen(N_states)
    integer(ZMQ_PTR),external      :: new_zmq_to_qp_run_socket
    integer(ZMQ_PTR)               :: zmq_to_qp_run_socket
  
  
negative.code:           endif
          endif
        endif
      else
        delta_loc_slot += 1
      end if
    end do pullLoop
   
  