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)