diff --git a/src/Integrals_Bielec/qp_ao_ints.irp.f b/src/Integrals_Bielec/qp_ao_ints.irp.f
index f932df0f..c60b4e5d 100644
--- a/src/Integrals_Bielec/qp_ao_ints.irp.f
+++ b/src/Integrals_Bielec/qp_ao_ints.irp.f
@@ -8,7 +8,8 @@ program qp_ao_ints
 
   call switch_qp_run_to_master
 
-  PROVIDE zmq_context
+  zmq_context = f77_zmq_ctx_new ()
+
   ! Set the state of the ZMQ
   zmq_state = 'ao_integrals'