From 386b83a2ae5a289799b9d2c004dac0eb7f1d8f7a Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Sat, 8 Apr 2017 21:11:24 +0200 Subject: [PATCH] Reduced nb of threads --- plugins/analyze_wf/analyze_wf.irp.f | 2 +- src/ZMQ/utils.irp.f | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/plugins/analyze_wf/analyze_wf.irp.f b/plugins/analyze_wf/analyze_wf.irp.f index 6d8bffcf..061ff940 100644 --- a/plugins/analyze_wf/analyze_wf.irp.f +++ b/plugins/analyze_wf/analyze_wf.irp.f @@ -18,7 +18,7 @@ subroutine run write(*,'(A)') '=============' write(*,'(A)') '' do istate=1,N_states - call get_occupation_from_dets(occupation,1) + call get_occupation_from_dets(occupation,istate) write(*,'(A)') '' write(*,'(A,I3)'), 'State ', istate write(*,'(A)') '---------------' diff --git a/src/ZMQ/utils.irp.f b/src/ZMQ/utils.irp.f index 6bcf6e74..5603809b 100644 --- a/src/ZMQ/utils.irp.f +++ b/src/ZMQ/utils.irp.f @@ -504,10 +504,10 @@ subroutine new_parallel_job(zmq_to_qp_run_socket,name_in) if (zmq_context == 0_ZMQ_PTR) then stop 'ZMQ_PTR is null' endif - rc = f77_zmq_ctx_set(zmq_context, ZMQ_IO_THREADS, nproc) - if (rc /= 0) then - print *, 'Unable to set the number of ZMQ IO threads to', nproc - endif +! rc = f77_zmq_ctx_set(zmq_context, ZMQ_IO_THREADS, nproc) +! if (rc /= 0) then +! print *, 'Unable to set the number of ZMQ IO threads to', nproc +! endif zmq_to_qp_run_socket = new_zmq_to_qp_run_socket() name = name_in