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