Optimized parallelism of AO ints

src/Determinants/H_apply_zmq.template.f

@@ -174,7 +174,7 @@ subroutine $subroutine_slave(thread, iproc)
         fock_diag_tmp, i_generator, iproc $params_post)
     endif
 
-    call task_done_to_taskserver(zmq_to_qp_run_socket,worker_id,task_id,1)
+    call task_done_to_taskserver(zmq_to_qp_run_socket, worker_id, task_id)
     call push_pt2(zmq_socket_push,pt2,norm_pert,H_pert_diag,i_generator,N_st,task_id)
 
   enddo

src/Integrals_Bielec/ao_bi_integrals.irp.f

@@ -369,7 +369,7 @@ BEGIN_PROVIDER [ logical, ao_bielec_integrals_in_map ]
   call new_parallel_job(zmq_to_qp_run_socket,'ao_integrals')
 
   do l=1,ao_num
-    write(task,*) l
+    write(task,*) "triangle ", l
     call add_task_to_taskserver(zmq_to_qp_run_socket,task)
   enddo
 

src/Integrals_Bielec/ao_bielec_integrals_in_map_slave.irp.f

@@ -103,12 +103,8 @@ subroutine ao_bielec_integrals_in_map_slave(thread,iproc)
   do 
     call get_task_from_taskserver(zmq_to_qp_run_socket,worker_id, task_id, task)
     if (task_id == 0) exit
-    read(task,*) l
-    do j=1,l-1
-      call compute_ao_integrals_jl(j,l,n_integrals,buffer_i,buffer_value) 
-      call push_integrals(zmq_socket_push, n_integrals, buffer_i, buffer_value, 0)
-    enddo
-    call compute_ao_integrals_jl(l,l,n_integrals,buffer_i,buffer_value) 
+    read(task,*) j, l
+    call compute_ao_integrals_jl(j,l,n_integrals,buffer_i,buffer_value) 
     call task_done_to_taskserver(zmq_to_qp_run_socket,worker_id,task_id)
     call push_integrals(zmq_socket_push, n_integrals, buffer_i, buffer_value, task_id)
   enddo

src/ZMQ/utils.irp.f

@@ -605,7 +605,7 @@ subroutine add_task_to_taskserver(zmq_to_qp_run_socket,task)
   
 end
 
-subroutine task_done_to_taskserver(zmq_to_qp_run_socket,worker_id, task_id)
+subroutine task_done_to_taskserver(zmq_to_qp_run_socket, worker_id, task_id)
   use f77_zmq
   implicit none
   BEGIN_DOC