From 68247ee14a471cae48e3db526f03178e56bf02ed Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Tue, 19 Apr 2016 20:34:43 +0200
Subject: [PATCH] Repaired qp_ao_ints

---
 src/Integrals_Bielec/qp_ao_ints.irp.f | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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'