From 14e288772a7e69187ca7ecaf4b25ff08d2d973f0 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@906471b6-c639-44d1-9ea0-3e3d6879f074>
Date: Wed, 16 Aug 2006 20:19:29 +0000
Subject: When interpolating, ignore input variables with an index of -1.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/SymBase/trunk@37 906471b6-c639-44d1-9ea0-3e3d6879f074
---
 src/Interpolation.c | 26 ++++++++++++++------------
 1 file changed, 14 insertions(+), 12 deletions(-)

diff --git a/src/Interpolation.c b/src/Interpolation.c
index 7835d7f..2ae8a2e 100644
--- a/src/Interpolation.c
+++ b/src/Interpolation.c
@@ -150,18 +150,20 @@ SymBase_SymmetryInterpolate (CCTK_POINTER_TO_CONST const cctkGH_,
   has_only_grid_arrays = 1;
   for (n=0; n<N_input_arrays; ++n)
   {
-    switch (CCTK_GroupTypeFromVarI (input_array_indices[n]))
-    {
-    case CCTK_GF:
-      has_only_grid_arrays = 0;
-      break;
-    case CCTK_SCALAR:
-    case CCTK_ARRAY:
-      has_grid_arrays = 1;
-      break;
-    default:
-      CCTK_WARN (1, "Could not determine group type of input arrays");
-      return -93;
+    if (input_array_indices[n] != -1) {
+      switch (CCTK_GroupTypeFromVarI (input_array_indices[n]))
+      {
+      case CCTK_GF:
+        has_only_grid_arrays = 0;
+        break;
+      case CCTK_SCALAR:
+      case CCTK_ARRAY:
+        has_grid_arrays = 1;
+        break;
+      default:
+        CCTK_WARN (1, "Could not determine group type of input arrays");
+        return -93;
+      }
     }
   }
   if (has_grid_arrays && ! has_only_grid_arrays)
-- 
cgit v1.2.3