mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-30 04:33:41 +02:00
Merge pull request #150 from mveril/fix-ubuntu-20.10
Others fixes for #148
This commit is contained in:
commit
55bd87f590
@ -100,7 +100,7 @@ subroutine run_slave_main
|
|||||||
IRP_IF MPI_DEBUG
|
IRP_IF MPI_DEBUG
|
||||||
call mpi_print('zmq_get_dvector threshold_generators')
|
call mpi_print('zmq_get_dvector threshold_generators')
|
||||||
IRP_ENDIF
|
IRP_ENDIF
|
||||||
if (zmq_get_dvector(zmq_to_qp_run_socket,1,'threshold_generators',threshold_generators,1) == -1) cycle
|
if (zmq_get_dvector(zmq_to_qp_run_socket,1,'threshold_generators',(/threshold_generators/),1) == -1) cycle
|
||||||
IRP_IF MPI_DEBUG
|
IRP_IF MPI_DEBUG
|
||||||
call mpi_print('zmq_get_dvector energy')
|
call mpi_print('zmq_get_dvector energy')
|
||||||
IRP_ENDIF
|
IRP_ENDIF
|
||||||
@ -212,7 +212,7 @@ subroutine run_slave_main
|
|||||||
IRP_IF MPI_DEBUG
|
IRP_IF MPI_DEBUG
|
||||||
call mpi_print('zmq_get_dvector threshold_generators')
|
call mpi_print('zmq_get_dvector threshold_generators')
|
||||||
IRP_ENDIF
|
IRP_ENDIF
|
||||||
if (zmq_get_dvector(zmq_to_qp_run_socket,1,'threshold_generators',threshold_generators,1) == -1) cycle
|
if (zmq_get_dvector(zmq_to_qp_run_socket,1,'threshold_generators',(/threshold_generators/),1) == -1) cycle
|
||||||
IRP_IF MPI_DEBUG
|
IRP_IF MPI_DEBUG
|
||||||
call mpi_print('zmq_get_dvector energy')
|
call mpi_print('zmq_get_dvector energy')
|
||||||
IRP_ENDIF
|
IRP_ENDIF
|
||||||
|
@ -49,7 +49,7 @@ subroutine ZMQ_selection(N_in, pt2, variance, norm)
|
|||||||
if (zmq_put_dvector(zmq_to_qp_run_socket,1,'selection_weight',selection_weight,N_states) == -1) then
|
if (zmq_put_dvector(zmq_to_qp_run_socket,1,'selection_weight',selection_weight,N_states) == -1) then
|
||||||
stop 'Unable to put selection_weight on ZMQ server'
|
stop 'Unable to put selection_weight on ZMQ server'
|
||||||
endif
|
endif
|
||||||
if (zmq_put_dvector(zmq_to_qp_run_socket,1,'threshold_generators',threshold_generators,1) == -1) then
|
if (zmq_put_dvector(zmq_to_qp_run_socket,1,'threshold_generators',(/threshold_generators/),1) == -1) then
|
||||||
stop 'Unable to put threshold_generators on ZMQ server'
|
stop 'Unable to put threshold_generators on ZMQ server'
|
||||||
endif
|
endif
|
||||||
call create_selection_buffer(N, N*2, b)
|
call create_selection_buffer(N, N*2, b)
|
||||||
|
Loading…
Reference in New Issue
Block a user