Output fewer warnings.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/RotatingSymmetry90/trunk@22 c3c03602-0f4f-0410-b3fa-d2c81c8a7dc5

1 files changed, 15 insertions, 0 deletions

diff --git a/src/rotatingsymmetry90.c b/src/rotatingsymmetry90.c
index e71c643..a923fc7 100644
--- a/src/rotatingsymmetry90.c
+++ b/src/rotatingsymmetry90.c
@@ -268,6 +268,21 @@ int BndRot90VI (cGH const * restrict const cctkGH,
           (table, sizeof tensortypealias, tensortypealias, "tensortypealias");
         if (ierr == UTIL_ERROR_TABLE_NO_SUCH_KEY) {
           /* assume a scalar */
+          if (numvars != 1) {
+            static int * restrict didwarn = 0;
+            if (! didwarn) {
+              didwarn = calloc (CCTK_NumGroups(), sizeof *didwarn);
+            }
+            if (! didwarn[gis[var]]) {
+              didwarn[gis[var]] = 1;
+              char * groupname = CCTK_GroupName(gis[var]);
+              assert (groupname);
+              CCTK_VWarn (2, __LINE__, __FILE__, CCTK_THORNSTRING,
+                          "Group \"%s\" has no tensor type and contains more than one element -- treating these as \"scalar\"",
+                          groupname);
+              free (groupname);
+            }
+          }
           strcpy (tensortypealias, "scalar");
         } else if (ierr<0) {
           char * groupname = CCTK_GroupName(gis[var]);