From 6b0b988ee8e3c4b3969880a8048c15cbddac804e Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Mon, 27 Nov 2017 23:38:48 +0100 Subject: [PATCH] Fixed overflow --- config/ifort.cfg | 2 +- src/ZMQ/put_get.irp.f | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/config/ifort.cfg b/config/ifort.cfg index 77761c85..b94d0cd4 100644 --- a/config/ifort.cfg +++ b/config/ifort.cfg @@ -9,7 +9,7 @@ FC : ifort LAPACK_LIB : -mkl=parallel IRPF90 : irpf90 -IRPF90_FLAGS : --ninja --align=32 -DZMQ_PUSH +IRPF90_FLAGS : --ninja --align=32 # Global options ################ diff --git a/src/ZMQ/put_get.irp.f b/src/ZMQ/put_get.irp.f index 76c3a339..588abf2c 100644 --- a/src/ZMQ/put_get.irp.f +++ b/src/ZMQ/put_get.irp.f @@ -49,7 +49,7 @@ subroutine zmq_get_dvector(zmq_to_qp_run_socket, worker_id, name, x, size_x) double precision, intent(out) :: x(size_x) integer :: rc integer*8 :: rc8 - character*(64) :: msg + character*(256) :: msg write(msg,'(A8,1X,I8,1X,A230)') 'get_data', worker_id, name rc = f77_zmq_send(zmq_to_qp_run_socket,trim(msg),len(trim(msg)),0)