From e0b06889c81eb3806b459ab24a541f103d21a2e1 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Tue, 9 Jul 2019 17:15:30 +0200 Subject: [PATCH] Cleaning --- src/zmq/utils.irp.f | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/zmq/utils.irp.f b/src/zmq/utils.irp.f index 70f0830b..b376c185 100644 --- a/src/zmq/utils.irp.f +++ b/src/zmq/utils.irp.f @@ -752,7 +752,8 @@ integer function add_task_to_taskserver(zmq_to_qp_run_socket,task) add_task_to_taskserver = 0 - allocate(character(len=len(task)+10+len(zmq_state)) :: message) + sze = len(trim(task)) + len(trim(zmq_state))+11 + allocate(character(len=sze) :: message) message='add_task '//trim(zmq_state)//' '//trim(task) sze = len(message) rc = f77_zmq_send(zmq_to_qp_run_socket, message, sze, 0) @@ -768,6 +769,7 @@ integer function add_task_to_taskserver(zmq_to_qp_run_socket,task) add_task_to_taskserver = -1 return endif + deallocate(message) end