Change the names of the internal routine arguments that contain the

array shapes.  They used to have a digit appended to an existing group
name, which can clash with another existing group name.  The new name
has the digit in front, which cannot be a legal group name.


git-svn-id: http://svn.cactuscode.org/flesh/trunk@4147 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 6 insertions, 6 deletions

diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl
index 177080f1..13e68108 100644
--- a/lib/sbin/GridFuncStuff.pl
+++ b/lib/sbin/GridFuncStuff.pl
@@ -390,20 +390,20 @@ sub GetThornArguments
         for($dim =0; $dim < $rhinterface_db->{"\U$thorn GROUP $group DIM\E"}; $dim++)
         {
 # FIXME: quick hack to shorten argument names
-#          $type .= "${sep}cctkv$group$dim";
-          $type .= "${sep}X$group$dim";
+#          $type .= "${sep}cctkv$dim$group";
+          $type .= "${sep}X$dim$group";
           $sep = ',';
           if($block eq 'PRIVATE')
           {
 # FIXME: quick hack to shorten argument names
-#            $arguments{"cctkv$group$dim"} = "(STORAGESIZE($thorn\::$group, $dim))";
-            $arguments{"X$group$dim"} = "(STORAGESIZE($thorn\::$group, $dim))";
+#            $arguments{"cctkv$dim$group"} = "(STORAGESIZE($thorn\::$group, $dim))";
+            $arguments{"X$dim$group"} = "(STORAGESIZE($thorn\::$group, $dim))";
           }
           else
           {
 # FIXME: quick hack to shorten argument names
-#            $arguments{"cctkv$group$dim"} = "(STORAGESIZE($imp\::$group, $dim))";
-            $arguments{"X$group$dim"} = "(STORAGESIZE($imp\::$group, $dim))";
+#            $arguments{"cctkv$dim$group"} = "(STORAGESIZE($imp\::$group, $dim))";
+            $arguments{"X$dim$group"} = "(STORAGESIZE($imp\::$group, $dim))";
           }
         }
         if(defined($vararraysize) && $compactgroup == 0)