Added warning if a logical is not set in CCTK_SetLogical

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

1 files changed, 3 insertions, 0 deletions

diff --git a/src/util/Misc.c b/src/util/Misc.c
index a0c2377a..a1493e1f 100644
--- a/src/util/Misc.c
+++ b/src/util/Misc.c
@@ -16,6 +16,7 @@
 
 #include "Misc.h"
 #include "FortranString.h"
+#include "WarnLevel.h"
 
  /*@@
    @routine    CCTK_SplitString
@@ -128,6 +129,7 @@ int FORTRAN_NAME(CCTK_Equals)(const char *arg1,ONE_FORTSTRING_ARG)
   return(retval);
 }
 
+
 /*@@
   @routine CCTK_NullTerminateString
   @author Paul Walker
@@ -575,6 +577,7 @@ int CCTK_SetLogical(int *data, const char *value)
   }
   else
   {
+    CCTK_Warn(1,"Logical not set in CCTK_SetLogical");
     retval = -1;
   }