diff --git a/src/davidson/davidson_parallel.irp.f b/src/davidson/davidson_parallel.irp.f index ac56fad7..be1873c7 100644 --- a/src/davidson/davidson_parallel.irp.f +++ b/src/davidson/davidson_parallel.irp.f @@ -270,10 +270,12 @@ subroutine davidson_push_results_async_recv(zmq_socket_push,sending) ! Activate is zmq_socket_push is a REQ IRP_IF ZMQ_PUSH IRP_ELSE - character*(2) :: ok + character*(256) :: ok rc = f77_zmq_recv( zmq_socket_push, ok, 2, 0) if ((rc /= 2).and.(ok(1:2)/='ok')) then print *, irp_here, ': f77_zmq_recv( zmq_socket_push, ok, 2, 0)' + print *, rc + print *, ok stop -1 endif IRP_ENDIF diff --git a/src/davidson/davidson_parallel_csf.irp.f b/src/davidson/davidson_parallel_csf.irp.f index 6e32dc11..fe651b1d 100644 --- a/src/davidson/davidson_parallel_csf.irp.f +++ b/src/davidson/davidson_parallel_csf.irp.f @@ -193,7 +193,7 @@ subroutine davidson_csf_push_results(zmq_socket_push, v_t, imin, imax, task_id) rc = f77_zmq_send( zmq_socket_push, imax, 4, ZMQ_SNDMORE) if(rc /= 4) stop 'davidson_csf_push_results failed to push imax' - rc8 = f77_zmq_send8( zmq_socket_push, v_t(1,imin), 8_8*sz, ZMQ_SNDMORE) + rc8 = f77_zmq_send8( zmq_socket_push, v_t(1,imin), 8_8*sz, 0) if(rc8 /= 8_8*sz) stop 'davidson_csf_push_results failed to push vt' ! Activate is zmq_socket_push is a REQ @@ -240,7 +240,7 @@ subroutine davidson_csf_push_results_async_send(zmq_socket_push, v_t, imin, imax rc = f77_zmq_send( zmq_socket_push, imax, 4, ZMQ_SNDMORE) if(rc /= 4) stop 'davidson_csf_push_results failed to push imax' - rc8 = f77_zmq_send8( zmq_socket_push, v_t(1,imin), 8_8*sz, ZMQ_SNDMORE) + rc8 = f77_zmq_send8( zmq_socket_push, v_t(1,imin), 8_8*sz, 0) if(rc8 /= 8_8*sz) stop 'davidson_csf_push_results failed to push vt' diff --git a/src/davidson/davidson_parallel_nos2.irp.f b/src/davidson/davidson_parallel_nos2.irp.f index c332281a..84cbe3af 100644 --- a/src/davidson/davidson_parallel_nos2.irp.f +++ b/src/davidson/davidson_parallel_nos2.irp.f @@ -193,7 +193,7 @@ subroutine davidson_nos2_push_results(zmq_socket_push, v_t, imin, imax, task_id) rc = f77_zmq_send( zmq_socket_push, imax, 4, ZMQ_SNDMORE) if(rc /= 4) stop 'davidson_nos2_push_results failed to push imax' - rc8 = f77_zmq_send8( zmq_socket_push, v_t(1,imin), 8_8*sz, ZMQ_SNDMORE) + rc8 = f77_zmq_send8( zmq_socket_push, v_t(1,imin), 8_8*sz, 0) if(rc8 /= 8_8*sz) stop 'davidson_nos2_push_results failed to push vt' ! Activate is zmq_socket_push is a REQ @@ -240,7 +240,7 @@ subroutine davidson_nos2_push_results_async_send(zmq_socket_push, v_t, imin, ima rc = f77_zmq_send( zmq_socket_push, imax, 4, ZMQ_SNDMORE) if(rc /= 4) stop 'davidson_nos2_push_results failed to push imax' - rc8 = f77_zmq_send8( zmq_socket_push, v_t(1,imin), 8_8*sz, ZMQ_SNDMORE) + rc8 = f77_zmq_send8( zmq_socket_push, v_t(1,imin), 8_8*sz, 0) if(rc8 /= 8_8*sz) stop 'davidson_nos2_push_results failed to push vt'