From e86933e99fc7f51ec39c7ef6ab86d102cd388645 Mon Sep 17 00:00:00 2001
From: Joost VandeVondele <joost.vandevondele@cscs.ch>
Date: Sun, 18 May 2014 07:24:15 +0000
Subject: [PATCH] define vars

svn-origin-rev: 13987
---
 src/ma/ma_topology.F | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/ma/ma_topology.F b/src/ma/ma_topology.F
index 7c6391069c..4a0cdb33df 100644
--- a/src/ma/ma_topology.F
+++ b/src/ma/ma_topology.F
@@ -576,7 +576,8 @@ CONTAINS
 
 #if defined __GEMINI || __SEASTAR  
    INTEGER                      :: src_x, src_y, src_z,&
-                                   dest_x, dest_y, dest_z
+                                   dest_x, dest_y, dest_z,&
+                                   x, y, z
    REAL                         :: tmp
 
    CALL ma_get_host_coordinates(src,src_x, src_y, src_z)