diff --git a/src/Determinants/H_apply_zmq.template.f b/src/Determinants/H_apply_zmq.template.f index 2faceb77..fde09a8f 100644 --- a/src/Determinants/H_apply_zmq.template.f +++ b/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 diff --git a/src/Integrals_Bielec/ao_bi_integrals.irp.f b/src/Integrals_Bielec/ao_bi_integrals.irp.f index a7f4eeaf..2c46d42d 100644 --- a/src/Integrals_Bielec/ao_bi_integrals.irp.f +++ b/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 diff --git a/src/Integrals_Bielec/ao_bielec_integrals_in_map_slave.irp.f b/src/Integrals_Bielec/ao_bielec_integrals_in_map_slave.irp.f index 7e17f1b6..ae8248a6 100644 --- a/src/Integrals_Bielec/ao_bielec_integrals_in_map_slave.irp.f +++ b/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 diff --git a/src/ZMQ/utils.irp.f b/src/ZMQ/utils.irp.f index ae1de6e7..13e91d11 100644 --- a/src/ZMQ/utils.irp.f +++ b/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