Adding USE_CCTK_PARAMETERS and changing format of warning

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

1 files changed, 12 insertions, 2 deletions

diff --git a/src/main/WarnLevel.c b/src/main/WarnLevel.c
index 418f683e..f1158104 100644
--- a/src/main/WarnLevel.c
+++ b/src/main/WarnLevel.c
@@ -125,7 +125,8 @@ void CCTK_Warn(int level, int line, const char *file, const char *thorn, const c
   {
     if (cctk_full_warnings)
     {
-      fprintf(stderr, "WARNING level %d in thorn %s (line %d of %s): \n", level, thorn, line, file);
+      fprintf(stderr, "WARNING level %d in thorn %s \n  (line %d of %s): \n", 
+	      level, thorn, line, file);
       fprintf(stderr, "  -> %s\n",message);
       fflush(stderr);
     }
@@ -141,6 +142,8 @@ void CCTK_Warn(int level, int line, const char *file, const char *thorn, const c
     exit(99);
   }
 
+  USE_CCTK_PARAMETERS
+
 }
 
 void FMODIFIER FORTRAN_NAME(CCTK_Warn)(int *level, int *line, THREE_FORTSTRINGS_ARGS)
@@ -252,7 +255,7 @@ void CCTK_VWarn(int level, int line, const char *file, const char *thorn, const
     
     if (cctk_full_warnings)
     {
-      fprintf(stderr, "WARNING level %d in thorn %s (line %d of %s): \n", 
+      fprintf(stderr, "WARNING level %d in thorn %s \n  (line %d of %s): \n", 
 	      level, thorn, line, file);
       fprintf(stderr, "  -> ");
       vfprintf(stderr, format, ap);
@@ -274,6 +277,9 @@ void CCTK_VWarn(int level, int line, const char *file, const char *thorn, const
   {
     exit(99);
   }
+
+  USE_CCTK_PARAMETERS
+
 }  
 
 
@@ -309,6 +315,8 @@ void CCTK_ParamWarn(const char *thorn, const char *message)
 
   param_errors++;
 
+  USE_CCTK_PARAMETERS
+
 }
 
 void FMODIFIER FORTRAN_NAME(CCTK_ParamWarn)(TWO_FORTSTRINGS_ARGS)
@@ -444,6 +452,8 @@ void CCTKi_FinaliseParamWarn(void)
 
   }
 
+  USE_CCTK_PARAMETERS
+
 }
 
  /*@@