quantum_package/src/Davidson/davidson_slave.irp.f

program davidson_slave
  use f77_zmq
  implicit none


  integer(ZMQ_PTR), external :: new_zmq_to_qp_run_socket
  integer(ZMQ_PTR) :: zmq_to_qp_run_socket
  double precision :: energy(N_states_diag)
  character*(64) :: state
  
  call provide_everything
  call switch_qp_run_to_master
  
  zmq_context = f77_zmq_ctx_new ()
  zmq_state = 'davidson'
  state = 'Waiting'

  zmq_to_qp_run_socket = new_zmq_to_qp_run_socket()

  do
    call wait_for_state(zmq_state,state)
    if(trim(state) /= "davidson") exit
    call davidson_miniserver_get()
    
    integer :: rc, i
 
    print *,  'Davidson slave running'
 
    !$OMP PARALLEL PRIVATE(i)
    i = omp_get_thread_num()
    call davidson_slave_tcp(i)
    !$OMP END PARALLEL
  end do
end

subroutine provide_everything
  PROVIDE mo_bielec_integrals_in_map psi_det_sorted_bit N_states_diag zmq_context
end subroutine