diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-01-26 13:00:24 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-01-26 13:00:24 +0000 |
commit | f7a9768436d0f51498159998e878708b1d75191d (patch) | |
tree | 8afc572b2d43bafe1c469631b22854c522f4c9f5 /lib/sbin/GridFuncStuff.pl | |
parent | 5ece4912f92056d4603d34475366279a31443234 (diff) |
Removed extra comma in CST generated files for vector groups
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3105 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/GridFuncStuff.pl')
-rw-r--r-- | lib/sbin/GridFuncStuff.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index 703985a2..ac3732a9 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -1030,7 +1030,7 @@ sub CreateThornGroupInitialisers # Check that the size is allowed. &CheckArraySizes($rhinterface_db->{"\U$thorn GROUP $group\E VARARRAY_SIZE"},$thorn,$rhparameter_db,$rhinterface_db); # Flag Cactus that it is a vector group. - $line = ' -1,'; + $line = ' -1'; } else { @@ -1040,6 +1040,8 @@ sub CreateThornGroupInitialisers foreach $variable (@variables) { $line .= ",\n \"$variable\""; + print "\n\n\n$thorn\n"; + print "$line\n"; } # Pass in the size of the GV array, which may be a valid parameter expression |