10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-23 04:43:50 +01:00

Fixed MRCEPA0

This commit is contained in:
Anthony Scemama 2017-02-01 21:07:26 +01:00
parent d1507c937a
commit 6ea3216b98

View File

@ -315,13 +315,13 @@ subroutine push_mrsc2_results(zmq_socket_push, I_i, J, delta, delta_s2, task_id)
stop 'error' stop 'error'
endif endif
! ! Activate is zmq_socket_push is a REQ ! Activate is zmq_socket_push is a REQ
! integer :: idummy integer :: idummy
! rc = f77_zmq_recv( zmq_socket_push, idummy, 4, 0) rc = f77_zmq_recv( zmq_socket_push, idummy, 4, 0)
! if (rc /= 4) then if (rc /= 4) then
! print *, irp_here, 'f77_zmq_send( zmq_socket_push, idummy, 4, 0)' print *, irp_here, 'f77_zmq_send( zmq_socket_push, idummy, 4, 0)'
! stop 'error' stop 'error'
! endif endif
end end
@ -389,13 +389,13 @@ subroutine pull_mrsc2_results(zmq_socket_pull, I_i, J, n, idx, delta, delta_s2,
endif endif
! ! Activate is zmq_socket_pull is a REP ! Activate is zmq_socket_pull is a REP
! integer :: idummy integer :: idummy
! rc = f77_zmq_send( zmq_socket_pull, idummy, 4, 0) rc = f77_zmq_send( zmq_socket_pull, idummy, 4, 0)
! if (rc /= 4) then if (rc /= 4) then
! print *, irp_here, 'f77_zmq_send( zmq_socket_pull, idummy, 4, 0)' print *, irp_here, 'f77_zmq_send( zmq_socket_pull, idummy, 4, 0)'
! stop 'error' stop 'error'
! endif endif
end end