Handle empty groups.

Handle empty groups.
Check for complex variables by testing the CCTK_REAL* macros.

set_component: when a component is not on the local processor, treat
it in the same way as in level mode.

darcs-hash:20030523215117-07bb3-56b046bfd26adfe416a5285b6feed8db8162ae13.gz

1 files changed, 2 insertions, 1 deletions

diff --git a/Carpet/Carpet/src/Poison.cc b/Carpet/Carpet/src/Poison.cc
index 2e8922158..a698e1574 100644
--- a/Carpet/Carpet/src/Poison.cc
+++ b/Carpet/Carpet/src/Poison.cc
@@ -8,7 +8,7 @@
 #include "carpet.hh"
 
 extern "C" {
-  static const char* rcsid = "$Header: /home/eschnett/C/carpet/Carpet/Carpet/Carpet/src/Poison.cc,v 1.10 2003/05/13 16:31:47 schnetter Exp $";
+  static const char* rcsid = "$Header: /home/eschnett/C/carpet/Carpet/Carpet/Carpet/src/Poison.cc,v 1.11 2003/05/23 23:51:17 schnetter Exp $";
   CCTK_FILEVERSION(Carpet_Carpet_Poison_cc);
 }
 
@@ -53,6 +53,7 @@ namespace Carpet {
     }
     
     const int var0 = CCTK_FirstVarIndexI(group);
+    assert (var0>=0);
     const int nvar = CCTK_NumVarsInGroupI(group);
     const int sz = CCTK_VarTypeSize(CCTK_VarTypeI(var0));
     assert (sz>0);