program qp_ao_ints
  use omp_lib
  implicit none
  BEGIN_DOC
! Increments a running calculation to compute AO integrals
  END_DOC
  integer :: i

  call switch_qp_run_to_master

  PROVIDE zmq_context
  ! Set the state of the ZMQ
  zmq_state = 'ao_integrals'

  ! Provide everything needed
  double precision :: integral, ao_bielec_integral
  integral = ao_bielec_integral(1,1,1,1)

  !$OMP PARALLEL DEFAULT(PRIVATE) PRIVATE(i)
  i = omp_get_thread_num()
  call ao_bielec_integrals_in_map_slave_tcp(i)
  !$OMP END PARALLEL

  print *,  'Done'
end