From 280ac9dba57373608a7aa29d492a31199aaa7161 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Mandes=20Sch=C3=B6nherr?= Date: Wed, 20 Aug 2014 13:26:32 +0000 Subject: [PATCH] TMC: loop control variable issue fixed in send_analysis_task svn-origin-rev: 14209 --- src/tmc/tmc_master.F | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/tmc/tmc_master.F b/src/tmc/tmc_master.F index f5de1e15bf..2dd76f2b11 100644 --- a/src/tmc/tmc_master.F +++ b/src/tmc/tmc_master.F @@ -193,7 +193,7 @@ CONTAINS CHARACTER(LEN=*), PARAMETER :: routineN = 'send_analysis_tasks', & routineP = moduleN//':'//routineN - INTEGER :: stat, wg + INTEGER :: dest, stat, wg LOGICAL :: failure TYPE(elem_list_type), POINTER :: list_tmp @@ -207,7 +207,8 @@ CONTAINS IF(.NOT.ASSOCIATED(ana_list)) EXIT wg_loop IF(.NOT.ana_worker_info(wg)%busy) THEN stat = TMC_STAT_ANALYSIS_REQUEST - CALL tmc_message(msg_type=stat, send_recv=send_msg, dest=wg, & + dest = wg + CALL tmc_message(msg_type=stat, send_recv=send_msg, dest=dest, & para_env=para_env, tmc_params=tmc_env%params, & list_elem=ana_list, error=error) IF(.NOT.ASSOCIATED(ana_list%next)) THEN