From 06fc3b5d61cc88670c11d825094dd4d117b81820 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@edbb7e70-9571-45d5-a481-0a560a9b4751>
Date: Thu, 21 Oct 2004 09:42:38 +0000
Subject: Increase warning level for undefined slicing handles.

Abort when the unfinished Fortran wrapper for
Einstein_GetSlicingHandle is called.


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/CoordGauge/trunk@59 edbb7e70-9571-45d5-a481-0a560a9b4751
---
 src/Slicing.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Slicing.c b/src/Slicing.c
index 4eef7e7..18b4c23 100644
--- a/src/Slicing.c
+++ b/src/Slicing.c
@@ -149,6 +149,7 @@ int CCTK_FCALL CCTK_FNAME(Einstein_RegisterSlicing)(ONE_FORTSTRING_ARG)
   int handle;
   ONE_FORTSTRING_CREATE(name)
   handle = CCTK_VarIndex(name); 
+  CCTK_WARN (0, "Routine has not yet been written");
   free(name);
   return(handle);
 }
@@ -416,7 +417,7 @@ int Einstein_GetSlicingHandle(const char *name)
   handle =  Util_GetHandle(Eslicings,name,NULL);
   if (handle<0) 
   {
-    CCTK_VWarn(1,__LINE__,__FILE__,CCTK_THORNSTRING,
+    CCTK_VWarn(3,__LINE__,__FILE__,CCTK_THORNSTRING,
                "Einstein_GetSlicingHandle: cannot get handle for slicing %s",
                name);
   }
-- 
cgit v1.2.3