From fb956d2266d98ee45de1199be01815aabcb16db2 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@6a38eb6e-646e-4a02-a296-d141613ad6c4>
Date: Fri, 5 Mar 2004 19:50:55 +0000
Subject: Check arguments, and return with an error code if there is an error.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@260 6a38eb6e-646e-4a02-a296-d141613ad6c4
---
 src/Boundary.c | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/Boundary.c b/src/Boundary.c
index 4e0c0e3..d9da8a3 100644
--- a/src/Boundary.c
+++ b/src/Boundary.c
@@ -386,6 +386,7 @@ CCTK_INT Bdry_Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST _GH,
    -2 no such physical boundary condition registered
    -3 faces already selected for bc
    -5 new value for GH passed in
+   -7 invalid variable index
    @endreturndesc
 @@*/
 CCTK_INT Bdry_Boundary_SelectVarForBCI(CCTK_POINTER_TO_CONST _GH,
@@ -409,6 +410,14 @@ CCTK_INT Bdry_Boundary_SelectVarForBCI(CCTK_POINTER_TO_CONST _GH,
   previous = NULL;
   previous_bcdata = NULL;
 
+  if (var_index<0 || var_index>=CCTK_NumVars())
+  {
+    CCTK_VWarn(1, __LINE__, __FILE__, CCTK_THORNSTRING,
+               "Invalid variable index");
+    retval = -7;
+    return retval;
+  }
+
 #ifdef DEBUG
   printf("Boundary_SelectVarForBCI:\n");
   printf("  called with GH=%p, faces=%d, width=%d, table_handle=%d, "
@@ -801,6 +810,7 @@ CCTK_INT Bdry_Boundary_SelectGroupForBCI(CCTK_POINTER_TO_CONST _GH,
     CCTK_VWarn(1, __LINE__, __FILE__, CCTK_THORNSTRING,
                "Invalid group index");
     retval = -7;
+    return retval;
   }
 
 #ifdef DEBUG
-- 
cgit v1.2.3