A check for a valid index

git-svn-id: http://svn.cactuscode.org/flesh/trunk@821 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 4 insertions, 2 deletions

diff --git a/src/main/GroupsOnGH.c b/src/main/GroupsOnGH.c
index ac0d1401..0a63fb7d 100644
--- a/src/main/GroupsOnGH.c
+++ b/src/main/GroupsOnGH.c
@@ -97,7 +97,7 @@ void *CCTK_VarDataPtr(cGH *GH, int timelevel, char *fullvarname)
    @enddesc 
    @calls     
    @history 
- 
+      A check for a valid index (i>=0) included by Gerd Lanfermann
    @endhistory 
 
    @var        GH 
@@ -130,7 +130,9 @@ void *CCTK_VarDataPtr(cGH *GH, int timelevel, char *fullvarname)
 @@*/
 
 void *CCTK_VarDataPtrI(cGH *GH, int timelevel, int varindex)
-{
+{ 
+  if (varindex < 0) 
+    CCTK_WARN(1,"WARNING: calling CCTK_VarDataPtrI with negative index! Prob. Fatal");
   return GH->data[varindex][timelevel];
 }