Handle all complex variable datatypes (not just the standard CCTK_COMPLEX).

This closes PR CactusPUGH/1475.


git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGHReduce/trunk@36 d60812e6-3970-4df4-986e-c251b06effeb

1 files changed, 22 insertions, 1 deletions

diff --git a/src/ReductionNorm2.c b/src/ReductionNorm2.c
index 737a095..7d0fc04 100644
--- a/src/ReductionNorm2.c
+++ b/src/ReductionNorm2.c
@@ -217,7 +217,7 @@ static int ReductionNorm2 (const cGH *GH,
                            CCTK_REAL outvals[/*num_inarrays*num_outvals*/])
 {
   int i, total_outvals;
-  pGH *pughGH;
+  const pGH *pughGH;
 #ifdef CCTK_MPI
   CCTK_REAL *local_outvals;
 #endif
@@ -311,6 +311,27 @@ static int ReductionNorm2 (const cGH *GH,
                        CCTK_REAL, outvals, num_outvals, total_outvals);
         break;
 
+#ifdef CCTK_REAL4
+        ITERATE_ARRAY (CCTK_COMPLEX8, num_dims, inarrays[i],
+                       from, to, iterator, points_per_dim,
+                       CCTK_REAL4, outvals, num_outvals, total_outvals);
+        break;
+#endif
+
+#ifdef CCTK_REAL8
+        ITERATE_ARRAY (CCTK_COMPLEX16, num_dims, inarrays[i],
+                       from, to, iterator, points_per_dim,
+                       CCTK_REAL8, outvals, num_outvals, total_outvals);
+        break;
+#endif
+
+#ifdef CCTK_REAL16
+        ITERATE_ARRAY (CCTK_COMPLEX32, num_dims, inarrays[i],
+                       from, to, iterator, points_per_dim,
+                       CCTK_REAL16, outvals, num_outvals, total_outvals);
+        break;
+#endif
+
       default:
         CCTK_WARN (1, "PUGH_ReductionNorm2: Unknown variable type");
         return (-1);