diff options
author | schnetter <schnetter@edbb7e70-9571-45d5-a481-0a560a9b4751> | 2004-10-21 09:42:38 +0000 |
---|---|---|
committer | schnetter <schnetter@edbb7e70-9571-45d5-a481-0a560a9b4751> | 2004-10-21 09:42:38 +0000 |
commit | 06fc3b5d61cc88670c11d825094dd4d117b81820 (patch) | |
tree | ad0cc3b1e9d0152a40d681aa7e5153108c8fed67 | |
parent | 205faef17191dd6dc3256b834cea39a721599be8 (diff) |
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
-rw-r--r-- | src/Slicing.c | 3 |
1 files changed, 2 insertions, 1 deletions
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); } |