diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-14 15:50:38 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-14 15:50:38 +0000 |
commit | 905d8f707d5ab9f8c85f1cdc0e61c4b184a29a43 (patch) | |
tree | 4661096109bc5eac3c8e98c2cf961f3763c86c39 /lib/sbin/GridFuncStuff.pl | |
parent | 63efce33fc950b6847df4afd844a09053a7b32be (diff) |
Minor modification to data passed to CCTK_CreateGroup.
More modification still needed for complete compatability.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@54 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/GridFuncStuff.pl')
-rw-r--r-- | lib/sbin/GridFuncStuff.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index eccd0227..f8564ecb 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -119,7 +119,7 @@ sub create_thorn_group_initialisers local($variable,@variables); if($block eq "PRIVATE") { - $base_name = "thorn:$thorn"; + $base_name = "\$$thorn"; } else { @@ -130,7 +130,7 @@ sub create_thorn_group_initialisers { @variables = split(" ", $interface_database{"\U$thorn GROUP $group\E"}); - $line = " CCTK_CreateGroup(\"\U$base_name:$group\E\",\n" + $line = " CCTK_CreateGroup(\"\U$base_name::$group\E\",\n" . " \"" . $interface_database{"\U$thorn GROUP $group\E GTYPE"} . "\",\n" . " \"" . $interface_database{"\U$thorn GROUP $group\E VTYPE"} . "\",\n" . " ". scalar(@variables); |