forgot to add davidson_slave

src/Davidson/davidson_slave.irp.f

@@ -0,0 +1,40 @@
+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
+    !print *,  'Getting wave function'
+    !call zmq_get_psi(zmq_to_qp_run_socket,1,energy,N_states_diag)
+    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 zmq_context
+! end subroutine