Allow vector groups of scalars.

Allow vector groups with more than one declared variable.

Much of this patch consists of removing special case code for scalars.
Scalars are now almost everywhere treated as rank 0 arrays.


git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGH/trunk@423 b61c5cb5-eaca-4651-9a7a-d64986f99364

1 files changed, 6 insertions, 3 deletions

diff --git a/src/PughUtils.c b/src/PughUtils.c
index 975f197..c820f56 100644
--- a/src/PughUtils.c
+++ b/src/PughUtils.c
@@ -97,7 +97,10 @@ void PUGH_Report (const cGH *GH)
     if (CCTK_GroupTypeI(gi) == CCTK_GF)
     {
       dim = CCTK_GroupDimI(gi);
-      havedims[dim-1]=1;
+      if (dim > 0)
+      {
+        havedims[dim-1]=1;
+      }
     }
   }
 
@@ -349,7 +352,7 @@ void PUGH_PrintStorage (const cGH *GH)
       {
         countarray += strlen(CCTK_GroupName(i))+1;
       }
-      else if (CCTK_GroupTypeI(i) == CCTK_SCALAR)
+      else
       {
         countscalar += strlen(CCTK_GroupName(i))+1;
       }
@@ -385,7 +388,7 @@ void PUGH_PrintStorage (const cGH *GH)
       {
         sprintf(messarray,"%s%s ",messarray,CCTK_GroupName(i));
       }
-      else if (CCTK_GroupTypeI(i) == CCTK_SCALAR)
+      else
       {
         sprintf(messscalar,"%s%s ",messscalar,CCTK_GroupName(i));
       }