From f7a9768436d0f51498159998e878708b1d75191d Mon Sep 17 00:00:00 2001
From: allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Sun, 26 Jan 2003 13:00:24 +0000
Subject: 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
---
 lib/sbin/GridFuncStuff.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3