LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-29 08:24:51 +02:00
Code Issues Releases Wiki Activity

Reduced nb of threads

Browse Source
This commit is contained in:
Anthony Scemama 2017-04-08 21:11:24 +02:00
parent 5261a572e7
commit 386b83a2ae
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
plugins/analyze_wf/analyze_wf.irp.f
View File

@ -18,7 +18,7 @@ subroutine run
write(*,'(A)') '=============' write(*,'(A)') '============='
write(*,'(A)') '' write(*,'(A)') ''
do istate=1,N_states do istate=1,N_states
call get_occupation_from_dets(occupation,1) call get_occupation_from_dets(occupation,istate)
write(*,'(A)') '' write(*,'(A)') ''
write(*,'(A,I3)'), 'State ', istate write(*,'(A,I3)'), 'State ', istate
write(*,'(A)') '---------------' write(*,'(A)') '---------------'

8
src/ZMQ/utils.irp.f
View File

@ -504,10 +504,10 @@ subroutine new_parallel_job(zmq_to_qp_run_socket,name_in)
if (zmq_context == 0_ZMQ_PTR) then if (zmq_context == 0_ZMQ_PTR) then
stop 'ZMQ_PTR is null' stop 'ZMQ_PTR is null'
endif endif
rc = f77_zmq_ctx_set(zmq_context, ZMQ_IO_THREADS, nproc) ! rc = f77_zmq_ctx_set(zmq_context, ZMQ_IO_THREADS, nproc)
if (rc /= 0) then ! if (rc /= 0) then
print *, 'Unable to set the number of ZMQ IO threads to', nproc ! print *, 'Unable to set the number of ZMQ IO threads to', nproc
endif ! endif
zmq_to_qp_run_socket = new_zmq_to_qp_run_socket() zmq_to_qp_run_socket = new_zmq_to_qp_run_socket()
name = name_in name = name_in